AZHLSC29 ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 2: M LANGUAGE PROGRAMMING STANDARDS & CONVENTIONS ; [ 08/13/1998 2:27 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.
;W !!!,$P($P($T(+1),";",2),"-",2)
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 K ^TMP($J,"A223")
S NORTNS=$O(^UTILITY($J,""))="" G:NORTNS 8
S AZHL0=1,(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) D EN^AZHLSC46 I AZHLSC4I'=1 F AZHL=" R "," R:",".R " I Z[AZHL S COM="R",ARG=$E(Z,$F(Z,AZHL),245) K ERTX D R^%INDEX I '$D(ERTX) S ^TMP($J,"2911",AZHL0,AZHLB)=Z
..S Z=^TMP($J,"Z",AZHLB,0) D EN^AZHLSC46 I AZHLSC4I'=1 F AZHLSC49=" R "," R:",".R " I Z[AZHLSC49 D EN^AZHLSC49 I AZHLSC4I=0 S ^TMP($J,"2911",AZHL0,AZHLB)=Z
..I $E(AZHL0,1,2)="AZ"!($E(AZHL0,1,2)="BZ") S ^TMP($J,"A223",AZHL0)=""
.Q
8 D TTL^AZHLSC("2.9.1.1, FileMan Utility Routine - DIR")
I NORTNS D NRTN^AZHLSC G 139
I $L($O(^TMP($J,"2911",""))) W !?10,"Consider use of DIR instead of (suspected) READ." S %="" F S %=$O(^TMP($J,"2911",%)) Q:%="" S A=0 F S A=$O(^TMP($J,"2911",%,A)) Q:'A W !?10,"+",A,"^",%," : ",^(A)
139 D TTL^AZHLSC("2.11.9, (13.4) Location Name")
I 'AZHLPIEN D NPKG^AZHLSC G A221
S %=AZHLNMSP,Z=0
F S %=$O(^DIC(19,"B",%)) Q:AZHLNMSP'=$E(%,1,$L(AZHLNMSP)) S A=$O(^(%,0)) I $P(^DIC(19,A,0),U,4)="M" D
.;W:'Z !?10,"The following ENTRY ACTIONS should display Location:" S Z=1 W !?10,%,": ",$S($D(^(20)):^(20),1:"**** NO ENTRY ACTION ****")
.W:'Z !?10,"The following ENTRY ACTIONS should display Location:" S Z=1 W:$G(^(20))!($G(^(26))) ?10,%,": ","**** NO ENTRY ACTION ****"
.Q
;
A221 D TTL^AZHLSC("APNDX A.2.2.1, (C.2.2.1) Security Keys => nsZ")
I 'AZHLPIEN D NPKG^AZHLSC G A223
S %=AZHLNMSP
F S %=$O(^DIC(19.1,"B",%)) Q:$E(%,1,$L(AZHLNMSP))'=AZHLNMSP I $E(%,$L(AZHLNMSP)+1)'="Z" W !?10,"Security Key '",%,"', namespace not followed by ""Z""."
A223 D TTL^AZHLSC("APNDX A.2.2.3, (C.2.2.3) AZ - BZ Local Area Routines")
I NORTNS D NRTN^AZHLSC K ^TMP($J,"A223") G END
I $L($O(^TMP($J,"A223",""))) W !?10,"The following routines are in the local area namespace." S %="" F S %=$O(^TMP($J,"A223",%)) Q:%="" W !?10,%
END ;K ^TMP($J,"13.8"),^("A222"),^("A223"),^("Z")
K ^TMP($J,"A222"),^("A223"),^("2911"),^("Z")
;K ^TMP($J,"Z")
Q
AZHLSC29 ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 2: M LANGUAGE PROGRAMMING STANDARDS & CONVENTIONS ; [ 08/13/1998 2:27 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 ;W !!!,$P($P($T(+1),";",2),"-",2)
+6 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
+7 DO END
KILL ^TMP($JOB,"A223")
+8 SET NORTNS=$ORDER(^UTILITY($JOB,""))=""
IF NORTNS
GOTO 8
+9 SET AZHL0=1
SET (LAB,LABO)=""
SET RTN="AZHL"
+10 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
+11 FOR AZHLB=3:1
IF '$DATA(^TMP($JOB,"Z",AZHLB))
QUIT
Begin DoDot:2
+12 ;S Z=^TMP($J,"Z",AZHLB,0) D EN^AZHLSC46 I AZHLSC4I'=1 F AZHL=" R "," R:",".R " I Z[AZHL S COM="R",ARG=$E(Z,$F(Z,AZHL),245) K ERTX D R^%INDEX I '$D(ERTX) S ^TMP($J,"2911",AZHL0,AZHLB)=Z
+13 SET Z=^TMP($JOB,"Z",AZHLB,0)
DO EN^AZHLSC46
IF AZHLSC4I'=1
FOR AZHLSC49=" R "," R:",".R "
IF Z[AZHLSC49
DO EN^AZHLSC49
IF AZHLSC4I=0
SET ^TMP($JOB,"2911",AZHL0,AZHLB)=Z
+14 IF $EXTRACT(AZHL0,1,2)="AZ"!($EXTRACT(AZHL0,1,2)="BZ")
SET ^TMP($JOB,"A223",AZHL0)=""
End DoDot:2
+15 QUIT
End DoDot:1
8 DO TTL^AZHLSC("2.9.1.1, FileMan Utility Routine - DIR")
+1 IF NORTNS
DO NRTN^AZHLSC
GOTO 139
+2 IF $LENGTH($ORDER(^TMP($JOB,"2911","")))
WRITE !?10,"Consider use of DIR instead of (suspected) READ."
SET %=""
FOR
SET %=$ORDER(^TMP($JOB,"2911",%))
IF %=""
QUIT
SET A=0
FOR
SET A=$ORDER(^TMP($JOB,"2911",%,A))
IF 'A
QUIT
WRITE !?10,"+",A,"^",%," : ",^(A)
139 DO TTL^AZHLSC("2.11.9, (13.4) Location Name")
+1 IF 'AZHLPIEN
DO NPKG^AZHLSC
GOTO A221
+2 SET %=AZHLNMSP
SET Z=0
+3 FOR
SET %=$ORDER(^DIC(19,"B",%))
IF AZHLNMSP'=$EXTRACT(%,1,$LENGTH(AZHLNMSP))
QUIT
SET A=$ORDER(^(%,0))
IF $PIECE(^DIC(19,A,0),U,4)="M"
Begin DoDot:1
+4 ;W:'Z !?10,"The following ENTRY ACTIONS should display Location:" S Z=1 W !?10,%,": ",$S($D(^(20)):^(20),1:"**** NO ENTRY ACTION ****")
+5 IF 'Z
WRITE !?10,"The following ENTRY ACTIONS should display Location:"
SET Z=1
IF $GET(^(20))!($GET(^(26)))
WRITE ?10,%,": ","**** NO ENTRY ACTION ****"
+6 QUIT
End DoDot:1
+7 ;
A221 DO TTL^AZHLSC("APNDX A.2.2.1, (C.2.2.1) Security Keys => nsZ")
+1 IF 'AZHLPIEN
DO NPKG^AZHLSC
GOTO A223
+2 SET %=AZHLNMSP
+3 FOR
SET %=$ORDER(^DIC(19.1,"B",%))
IF $EXTRACT(%,1,$LENGTH(AZHLNMSP))'=AZHLNMSP
QUIT
IF $EXTRACT(%,$LENGTH(AZHLNMSP)+1)'="Z"
WRITE !?10,"Security Key '",%,"', namespace not followed by ""Z""."
A223 DO TTL^AZHLSC("APNDX A.2.2.3, (C.2.2.3) AZ - BZ Local Area Routines")
+1 IF NORTNS
DO NRTN^AZHLSC
KILL ^TMP($JOB,"A223")
GOTO END
+2 IF $LENGTH($ORDER(^TMP($JOB,"A223","")))
WRITE !?10,"The following routines are in the local area namespace."
SET %=""
FOR
SET %=$ORDER(^TMP($JOB,"A223",%))
IF %=""
QUIT
WRITE !?10,%
END ;K ^TMP($J,"13.8"),^("A222"),^("A223"),^("Z")
+1 KILL ^TMP($JOB,"A222"),^("A223"),^("2911"),^("Z")
+2 ;K ^TMP($J,"Z")
+3 QUIT
