|
Last change
on this file since 641 was 641, checked in by Sam Habiel, 14 years ago |
|
Initial commit of XB, move away from sf.net.
Includes kids file and documentation.
|
|
File size:
529 bytes
|
| Line | |
|---|
| 1 | XBTM15 ; 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 | ;
|
|---|
| 10 | PR(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.
