XBTM14	; IHS/ADC/GTH - TECH MANUAL : ENHANCEMENTS ; [ 02/07/97   3:02 PM ]
	;;4.0;XB;;Jul 20, 2009;Build 2
	;
	NEW A,B
	S A=$O(^DIC(9.4,"C","XB",0)),B=$O(^DIC(9.4,A,22,"B",^DIC(9.4,A,"VERSION"),0))
	S %=0
	F  S %=$O(^DIC(9.4,A,22,B,1,%)) Q:'%   D PR(^(%,0)) Q:$D(DUOUT)
	Q:$D(DUOUT)
	D ^DIWW
	Q
	;
PR(X)	NEW %,A,B D PR^XBTM(X) Q
	;
