| [641] | 1 | XBLUTL ; IHS/ADC/GTH - LIST ^UTILITY FOR $J ; [ 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 | ; This routine lists all entries in the ^UTILITY global for
|
|---|
| 6 | ; the current $J where $J is the first or second subscript.
|
|---|
| 7 | ;
|
|---|
| 8 | ; This is most useful from programmer mode. If used thru the
|
|---|
| 9 | ; XB menu, ^UTILITY($J) is killed in ^XBKSET before this
|
|---|
| 10 | ; routine is run.
|
|---|
| 11 | ;
|
|---|
| 12 | START ;
|
|---|
| 13 | W @($S($D(IOF):IOF,1:"#"))
|
|---|
| 14 | X ^%ZOSF("UCI")
|
|---|
| 15 | ;W !,"^UTILITY nodes for job ",$J," in UCI ",Y,!;IHS/SET/GTH XB*3*9 10/29/2002
|
|---|
| 16 | W !,"^UTILITY nodes for job ",$J," in ",$S($$VERSION^%ZOSV(1)["Cache":"Namespace",1:"UCI")," ",Y,! ;IHS/SET/GTH XB*3*9 10/29/2002
|
|---|
| 17 | S XBLUTL("QFLG")=0,XBLUTL("X")="^UTILITY($J,"""")"
|
|---|
| 18 | F S XBLUTL("X")=$Q(@XBLUTL("X")) Q:$P($P(XBLUTL("X"),"(",2),",")'=$J D LIST Q:XBLUTL("QFLG")
|
|---|
| 19 | S XBLUTL("Y")=" "
|
|---|
| 20 | F S XBLUTL("Y")=$O(^UTILITY(XBLUTL("Y"))) Q:XBLUTL("Y")="" I $D(^UTILITY(XBLUTL("Y"),$J)) D
|
|---|
| 21 | . S XBLUTL("X")="^UTILITY("""_XBLUTL("Y")_""","_$J_")",XBLUTL("Z")="1""^UTILITY("""""_XBLUTL("Y")_""""","_$J_"""1P.E"
|
|---|
| 22 | . D:$D(@(XBLUTL("X")))#2 LIST
|
|---|
| 23 | . Q:XBLUTL("QFLG")
|
|---|
| 24 | . F S XBLUTL("X")=$Q(@XBLUTL("X")) Q:XBLUTL("X")'?@XBLUTL("Z") D LIST Q:XBLUTL("QFLG")
|
|---|
| 25 | . Q
|
|---|
| 26 | KILL XBLUTL
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | LIST ;
|
|---|
| 30 | I $Y>($S($D(IOSL):IOSL,1:24)-3) S Y=$$DIR^XBDIR("E"),XBLUTL("QFLG")='Y W:Y @($S($D(IOF):IOF,1:"#"))
|
|---|
| 31 | Q:XBLUTL("QFLG")
|
|---|
| 32 | W !,XBLUTL("X")," = ",@XBLUTL("X")
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
