XBTM15	; IHS/ADC/GTH - TECH MANUAL : KILL UNSUBSCRIPTED GLOBALS; [ 02/07/97   3:02 PM ]
	;;4.0;XB;;Jul 20, 2009;Build 2
	;
	NEW A
	F A=1:1 S X=$P($T(PR+A),";;",2) Q:X="###"  D PR(X) Q:$D(DUOUT)
	Q:$D(DUOUT)
	D ^DIWW
	Q
	;
PR(X)	NEW A D PR^XBTM(X) Q
	;;|SETTAB("C")||TAB| 
	;;|SETTAB("C")||TAB| 
	;;|SETTAB("C")||TAB|Unsubscripted Globals, KILL'd in the package.
	;;|SETTAB("C")||TAB| 
	;;|SETTAB("C")||TAB| 
	;;   Routine            Line                Global
	;;   -----------------  ------------------  ----------------
	;;###
