|
Last change
on this file since 641 was 641, checked in by Sam Habiel, 15 years ago |
|
Initial commit of XB, move away from sf.net.
Includes kids file and documentation.
|
|
File size:
860 bytes
|
| Line | |
|---|
| 1 | %ZIBRD ; IHS/ADC/GTH - DISPLAY MSM DIRECTORY OF SELECTED RTNS ; [ 10/29/2002 7:42 AM ]
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ; XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.
|
|---|
| 4 | ;
|
|---|
| 5 | ; Generate routine directory of selected routines
|
|---|
| 6 | ;
|
|---|
| 7 | ; Save, or %RCOPY, this routine to the MGR uci, named as
|
|---|
| 8 | ; %ZIBRD. It may also be name %AZRD.
|
|---|
| 9 | ;
|
|---|
| 10 | START ;
|
|---|
| 11 | I $$VERSION^%ZOSV(1)["Cache" D ^%RD KILL MSYS,R,nrou Q ; IHS/SET/GTH XB*3*9 10/29/2002
|
|---|
| 12 | X ^%ZOSF("RSEL")
|
|---|
| 13 | G:$O(^UTILITY($J,""))="" EXIT
|
|---|
| 14 | NEW I,NAM,Y
|
|---|
| 15 | W !?21,"Routine Directory",?40
|
|---|
| 16 | D ^%D
|
|---|
| 17 | X ^%ZOSF("UCI")
|
|---|
| 18 | W !?25,"of ",Y,?40
|
|---|
| 19 | D ^%T
|
|---|
| 20 | W !
|
|---|
| 21 | %ST1 ;
|
|---|
| 22 | ;S NAM="" ;IHS/SET/GTH XB*3*9 10/29/2002
|
|---|
| 23 | S NAM=0 ;IHS/SET/GTH XB*3*9 10/29/2002
|
|---|
| 24 | F I=0:1 S NAM=$O(^UTILITY($J,NAM)) Q:NAM="" W:'(I#8) ! W NAM,$J("",9-$L(NAM))
|
|---|
| 25 | W !?5,I," Routines",!
|
|---|
| 26 | G START ;IHS/SET/GTH XB*3*9 10/29/2002
|
|---|
| 27 | EXIT ;
|
|---|
| 28 | KILL %UCI,%UCN
|
|---|
| 29 | KILL I,^UTILITY($J)
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
