source: IHS-VA_UTILITIES-XB/trunk/XBLUTL.m@ 1129

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

Modified directory structure; moved routines.

File size: 1.4 KB
Line 
1XBLUTL ; 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 ;
12START ;
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 ;
29LIST ;
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 ;
Note: See TracBrowser for help on using the repository browser.