source: IHS-VA_UTILITIES-XB/trunk/XBTM15.m@ 674

Last change on this file since 674 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 529 bytes
Line 
1XBTM15 ; IHS/ADC/GTH - TECH MANUAL : KILL UNSUBSCRIPTED GLOBALS; [ 02/07/97 3:02 PM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;
4 NEW A
5 F A=1:1 S X=$P($T(PR+A),";;",2) Q:X="###" D PR(X) Q:$D(DUOUT)
6 Q:$D(DUOUT)
7 D ^DIWW
8 Q
9 ;
10PR(X) NEW A D PR^XBTM(X) Q
11 ;;|SETTAB("C")||TAB|
12 ;;|SETTAB("C")||TAB|
13 ;;|SETTAB("C")||TAB|Unsubscripted Globals, KILL'd in the package.
14 ;;|SETTAB("C")||TAB|
15 ;;|SETTAB("C")||TAB|
16 ;; Routine Line Global
17 ;; ----------------- ------------------ ----------------
18 ;;###
Note: See TracBrowser for help on using the repository browser.