AZHLSC52 ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 2: M LANGUAGE PROGRAMMING & CONVENTIONS ; [ 04/16/1999 1:15 PM ]
;;5.0;AZHLSC;;JUL 10, 1996
;
;IHS/ABQ/KEU - CHANGED DIF="Z(" TO ^TMP($J,"Z" AND OTHER
;REFERENCES TO THE ARRAY TO THE GLOBAL.
NEW A,AC,ARG,AZHL0,AZHLA,AZHLB,CH,COM,DIF,EC,ERR,ERTX,GK,L,LAB,LABO,LI,LL,LOC,LV,NORTNS,OP,PL,Q,RDTIME,RTN,S,S1,STR,V,XCNP,Z
D END
S NORTNS=$O(^UTILITY($J,""))="" G:NORTNS 5251
S AZHL0="",(LAB,LABO)="",RTN="AZHL"
F K Z,^TMP($J,"Z") S AZHL0=$O(^UTILITY($J,AZHL0)) Q:AZHL0="" S X=AZHL0,DIF="^TMP($J,""Z"",",XCNP=0 X "X ^%ZOSF(""LOAD""),AZHLGFCX" I D
.F AZHLB=3:1 Q:'$D(^TMP($J,"Z",AZHLB)) D
..S Z=^TMP($J,"Z",AZHLB,0)
..I Z["S ^UTILITY(" D EN^AZHLSC46 Q:AZHLSC4I=1 S ^TMP($J,"2.3.2.5",AZHL0,AZHLB)=Z
..I Z["S ^TMP(" D CHKTMP I AZHLSC4I'=1 D EN^AZHLSC46 I AZHLSC4I'=1 S ^TMP($J,"2.3.2.5.1",AZHL0,AZHLB)=Z
..I Z["^XTMP(" D CHKXTMP I AZHLSC4I'=1 D EN^AZHLSC46 Q:AZHLSC4I=1 S ^TMP($J,"2.3.2.5.2",AZHL0,AZHLB)=Z
.Q
5251 D TTL^AZHLSC("2.3.2.5), Use of ^UTILITY")
I NORTNS D NRTN^AZHLSC G 52512
I $L($O(^TMP($J,"2.3.2.5",""))) W !?10,"Possible SET of ^UTILITY( global." S %="" F S %=$O(^TMP($J,"2.3.2.5",%)) Q:%="" S A=0 F S A=$O(^TMP($J,"2.3.2.5",%,A)) Q:'A W !?10,"+",A,"^",%," : ",^(A)
52512 D TTL^AZHLSC("2.3.2.5.1), Should be ^TMP($J or ^TMP(NAMESPACE,$J")
I NORTNS D NRTN^AZHLSC G 52513
I $L($O(^TMP($J,"2.3.2.5.1",""))) W !?10,"Improper use of ^TMP( global." S %="" F S %=$O(^TMP($J,"2.3.2.5.1",%)) Q:%="" S A=0 F S A=$O(^TMP($J,"2.3.2.5.1",%,A)) Q:'A W !?10,"+",A,"^",%," : ",^(A)
52513 D TTL^AZHLSC("2.3.2.5.2), Should be ^XTMP(NAMESPACE")
I NORTNS D NRTN^AZHLSC G X
I $L($O(^TMP($J,"2.3.2.5.2",""))) W !?10,"Improper use of ^XTMP( global." S %="" F S %=$O(^TMP($J,"2.3.2.5.2",%)) Q:%="" S A=0 F S A=$O(^TMP($J,"2.3.2.5.2",%,A)) Q:'A W !?10,"+",A,"^",%," : ",^(A)
X Q
;
END K ^TMP($J,"2.3.2.5"),^TMP($J,"2.3.2.5.1"),^TMP($J,"2.3.2.5.2"),^("Z")
;K ^TMP($J,"Z")
Q
CHKTMP ; ^TMP($J, OR ^TMP(NAMESPACE,$J
S AZHLSCF="",AZHLSC4I="",AZHLSCG=""
S AZHLSCF=$F(Z,"^TMP(") Q:AZHLSCF=0
I $E(Z,AZHLSCF,AZHLSCF+1)="$J" S AZHLSC4I=1 Q
Q:$D(AZHLNMSP)="" S AZHLSCG=$E(Z,AZHLSCF,AZHLSCF+40) I $P(AZHLSCG,",",2)["$J",($P(AZHLSCG,",",1)[AZHLNMSP) S AZHLSC4I=1 Q
S AZHLSC4I=0 Q
CHKXTMP ; ^XTMP(NAMESPACE
Q:$D(AZHLNMSP)=""
S AZHLSCF="",AZHLSC4I="",AZHLSCG=""
S AZHLSCF=$F(Z,"^XTMP(") Q:AZHLSCF=0
I $E(Z,AZHLSCF,AZHLSCF+4)[AZHLNMSP S AZHLSC4I=1 Q
S AZHLSC4I=0 Q
AZHLSC52 ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 2: M LANGUAGE PROGRAMMING & CONVENTIONS ; [ 04/16/1999 1:15 PM ]
+1 ;;5.0;AZHLSC;;JUL 10, 1996
+2 ;
+3 ;IHS/ABQ/KEU - CHANGED DIF="Z(" TO ^TMP($J,"Z" AND OTHER
+4 ;REFERENCES TO THE ARRAY TO THE GLOBAL.
+5 NEW A,AC,ARG,AZHL0,AZHLA,AZHLB,CH,COM,DIF,EC,ERR,ERTX,GK,L,LAB,LABO,LI,LL,LOC,LV,NORTNS,OP,PL,Q,RDTIME,RTN,S,S1,STR,V,XCNP,Z
+6 DO END
+7 SET NORTNS=$ORDER(^UTILITY($JOB,""))=""
IF NORTNS
GOTO 5251
+8 SET AZHL0=""
SET (LAB,LABO)=""
SET RTN="AZHL"
+9 FOR
KILL Z,^TMP($JOB,"Z")
SET AZHL0=$ORDER(^UTILITY($JOB,AZHL0))
IF AZHL0=""
QUIT
SET X=AZHL0
SET DIF="^TMP($J,""Z"","
SET XCNP=0
XECUTE "X ^%ZOSF(""LOAD""),AZHLGFCX"
IF $TEST
Begin DoDot:1
+10 FOR AZHLB=3:1
IF '$DATA(^TMP($JOB,"Z",AZHLB))
QUIT
Begin DoDot:2
+11 SET Z=^TMP($JOB,"Z",AZHLB,0)
+12 IF Z["S ^UTILITY("
DO EN^AZHLSC46
IF AZHLSC4I=1
QUIT
SET ^TMP($JOB,"2.3.2.5",AZHL0,AZHLB)=Z
+13 IF Z["S ^TMP("
DO CHKTMP
IF AZHLSC4I'=1
DO EN^AZHLSC46
IF AZHLSC4I'=1
SET ^TMP($JOB,"2.3.2.5.1",AZHL0,AZHLB)=Z
+14 IF Z["^XTMP("
DO CHKXTMP
IF AZHLSC4I'=1
DO EN^AZHLSC46
IF AZHLSC4I=1
QUIT
SET ^TMP($JOB,"2.3.2.5.2",AZHL0,AZHLB)=Z
End DoDot:2
+15 QUIT
End DoDot:1
5251 DO TTL^AZHLSC("2.3.2.5), Use of ^UTILITY")
+1 IF NORTNS
DO NRTN^AZHLSC
GOTO 52512
+2 IF $LENGTH($ORDER(^TMP($JOB,"2.3.2.5","")))
WRITE !?10,"Possible SET of ^UTILITY( global."
SET %=""
FOR
SET %=$ORDER(^TMP($JOB,"2.3.2.5",%))
IF %=""
QUIT
SET A=0
FOR
SET A=$ORDER(^TMP($JOB,"2.3.2.5",%,A))
IF 'A
QUIT
WRITE !?10,"+",A,"^",%," : ",^(A)
52512 DO TTL^AZHLSC("2.3.2.5.1), Should be ^TMP($J or ^TMP(NAMESPACE,$J")
+1 IF NORTNS
DO NRTN^AZHLSC
GOTO 52513
+2 IF $LENGTH($ORDER(^TMP($JOB,"2.3.2.5.1","")))
WRITE !?10,"Improper use of ^TMP( global."
SET %=""
FOR
SET %=$ORDER(^TMP($JOB,"2.3.2.5.1",%))
IF %=""
QUIT
SET A=0
FOR
SET A=$ORDER(^TMP($JOB,"2.3.2.5.1",%,A))
IF 'A
QUIT
WRITE !?10,"+",A,"^",%," : ",^(A)
52513 DO TTL^AZHLSC("2.3.2.5.2), Should be ^XTMP(NAMESPACE")
+1 IF NORTNS
DO NRTN^AZHLSC
GOTO X
+2 IF $LENGTH($ORDER(^TMP($JOB,"2.3.2.5.2","")))
WRITE !?10,"Improper use of ^XTMP( global."
SET %=""
FOR
SET %=$ORDER(^TMP($JOB,"2.3.2.5.2",%))
IF %=""
QUIT
SET A=0
FOR
SET A=$ORDER(^TMP($JOB,"2.3.2.5.2",%,A))
IF 'A
QUIT
WRITE !?10,"+",A,"^",%," : ",^(A)
X QUIT
+1 ;
END KILL ^TMP($JOB,"2.3.2.5"),^TMP($JOB,"2.3.2.5.1"),^TMP($JOB,"2.3.2.5.2"),^("Z")
+1 ;K ^TMP($J,"Z")
+2 QUIT
CHKTMP ; ^TMP($J, OR ^TMP(NAMESPACE,$J
+1 SET AZHLSCF=""
SET AZHLSC4I=""
SET AZHLSCG=""
+2 SET AZHLSCF=$FIND(Z,"^TMP(")
IF AZHLSCF=0
QUIT
+3 IF $EXTRACT(Z,AZHLSCF,AZHLSCF+1)="$J"
SET AZHLSC4I=1
QUIT
+4 IF $DATA(AZHLNMSP)=""
QUIT
SET AZHLSCG=$EXTRACT(Z,AZHLSCF,AZHLSCF+40)
IF $PIECE(AZHLSCG,",",2)["$J"
IF ($PIECE(AZHLSCG,",",1)[AZHLNMSP)
SET AZHLSC4I=1
QUIT
+5 SET AZHLSC4I=0
QUIT
CHKXTMP ; ^XTMP(NAMESPACE
+1 IF $DATA(AZHLNMSP)=""
QUIT
+2 SET AZHLSCF=""
SET AZHLSC4I=""
SET AZHLSCG=""
+3 SET AZHLSCF=$FIND(Z,"^XTMP(")
IF AZHLSCF=0
QUIT
+4 IF $EXTRACT(Z,AZHLSCF,AZHLSCF+4)[AZHLNMSP
SET AZHLSC4I=1
QUIT
+5 SET AZHLSC4I=0
QUIT
