- AZHLSC51 ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 2: M LANGUAGE PROGRAMMING STANDARDS & CONVENTIONS ; [ 01/06/1999 9:36 AM ] [1/19/00 7:12am]
- ;;5.0;AZHLSC;;JUL 10, 1996
- ;
- NEW AZHLB,AZHLFLD,AZHL0,BFN,DIF,EFN,F,G,XCNP,Z
- 529 D TTL^AZHLSC("2.3.2.9, (9.1) Global Names (of Package's files)")
- I 'AZHLPIEN D NPKG^AZHLSC Q
- S %=0 F S %=$O(^DIC(9.4,AZHLPIEN,4,"B",%)) Q:'% W:AZHLTERM "." S AZHLSC99=$P($G(^DIC(%,0,"GL")),"(",1) I AZHLSC99'="",$P(AZHLSC99,U,2)'[AZHLNMSP W !?10,"File ",%,", global ",^DIC(%,0,"GL")," is not namespaced."
- ;S %=0 F S %=$O(^DIC(9.4,AZHLPIEN,4,"B",%)) Q:'% W:AZHLTERM "." I '$E($P($P(^DIC(%,0,"GL"),"("),U,2),1,$L(AZHLNMSP))'=AZHLNMSP W !?10,"File ",%,", global ",^DIC(%,0,"GL")," is not namespaced."
- Q
- 524 NEW AZHLB,AZHLFLD,AZHL0,BFN,DIF,EFN,F,G,XCNP,Z
- ;D TTL^AZHLSC("2.3.2.4, (9.4) % Global Nodes")
- ;I $O(^UTILITY($J,""))="" D NRTN^AZHLSC Q
- D END S AZHL0=""
- F S AZHL0=$O(^UTILITY($J,AZHL0)) Q:AZHL0="" W:AZHLTERM "." S X=AZHL0,DIF="^TMP($J,""Z"",",XCNP=0 X "X ^%ZOSF(""LOAD""),AZHLGFCX" I S XCNP=XCNP-1 D
- .F AZHLB=3:1:XCNP S Z=AZHLB,(Z(Z),^TMP($J,"Z"))=^TMP($J,"Z",AZHLB,0) D
- ..I ^TMP($J,"Z")["K ^" D EN^AZHLSC47 Q:AZHLSC4I=1 D EN^AZHLSC46 Q:AZHLSC4I=1 D UNSCRGL Q:AZHLSC4I=1 S ^TMP($J,"2.3.2.3",AZHL0,AZHLB)=^TMP($J,"Z")
- ..I ^TMP($J,"Z")["^%" D EN^AZHLSC47 Q:AZHLSC4I=1 D EN^AZHLSC54
- ..Q
- .K ^TMP($J,"Z") ;K Z
- .Q
- D TTL^AZHLSC("2.3.2.3, KILL of unsubscripted global")
- I $O(^UTILITY($J,""))="" D NRTN^AZHLSC G 2324
- I $L($O(^TMP($J,"2.3.2.3",""))) W !?10," " S %="" F S %=$O(^TMP($J,"2.3.2.3",%)) Q:%="" S A=0 F S A=$O(^TMP($J,"2.3.2.3",%,A)) Q:'A W !?10,"+",A,"^",%," : ",^(A)
- 2324 D TTL^AZHLSC("2.3.2.4, % Global Nodes")
- I $O(^UTILITY($J,""))="" D NRTN^AZHLSC Q
- I $L($O(^TMP($J,"2.3.2.4",""))) W !?10,"SET or KILL of %-Global Node." S %="" F S %=$O(^TMP($J,"2.3.2.4",%)) Q:%="" S A=0 F S A=$O(^TMP($J,"2.3.2.4",%,A)) Q:'A W !?10,"+",A,"^",%," : ",^(A)
- D END S AZHL0=""
- Q
- END K ^TMP($J,"2.3.2.4"),^TMP($J,"2.3.2.3"),^("Z")
- Q
- UNSCRGL ; FIND UNSUBCRIPTED GLOBAL
- S AZHLSCF="",AZHLSCG="",AZHLSC4I=0
- S AZHLSCF=$F(Z(Z),"K ^") I AZHLSCF=0 S AZHLSC4I=0 Q
- S AZHLSCG=$E(Z(Z),AZHLSCF,AZHLSCF+10) I AZHLSCG["(" S AZHLSC4I=1 Q
- I $E(AZHLSCG,1,3)="TMP" S AZHLSC4I=1 Q
- S AZHLSC4I=0 Q
- AZHLSC51 ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 2: M LANGUAGE PROGRAMMING STANDARDS & CONVENTIONS ; [ 01/06/1999 9:36 AM ] [1/19/00 7:12am]
- +1 ;;5.0;AZHLSC;;JUL 10, 1996
- +2 ;
- +3 NEW AZHLB,AZHLFLD,AZHL0,BFN,DIF,EFN,F,G,XCNP,Z
- 529 DO TTL^AZHLSC("2.3.2.9, (9.1) Global Names (of Package's files)")
- +1 IF 'AZHLPIEN
- DO NPKG^AZHLSC
- QUIT
- +2 SET %=0
- FOR
- SET %=$ORDER(^DIC(9.4,AZHLPIEN,4,"B",%))
- IF '%
- QUIT
- IF AZHLTERM
- WRITE "."
- SET AZHLSC99=$PIECE($GET(^DIC(%,0,"GL")),"(",1)
- IF AZHLSC99'=""
- IF $PIECE(AZHLSC99,U,2)'[AZHLNMSP
- WRITE !?10,"File ",%,", global ",^DIC(%,0,"GL")," is not namespaced."
- +3 ;S %=0 F S %=$O(^DIC(9.4,AZHLPIEN,4,"B",%)) Q:'% W:AZHLTERM "." I '$E($P($P(^DIC(%,0,"GL"),"("),U,2),1,$L(AZHLNMSP))'=AZHLNMSP W !?10,"File ",%,", global ",^DIC(%,0,"GL")," is not namespaced."
- +4 QUIT
- 524 NEW AZHLB,AZHLFLD,AZHL0,BFN,DIF,EFN,F,G,XCNP,Z
- +1 ;D TTL^AZHLSC("2.3.2.4, (9.4) % Global Nodes")
- +2 ;I $O(^UTILITY($J,""))="" D NRTN^AZHLSC Q
- +3 DO END
- SET AZHL0=""
- +4 FOR
- SET AZHL0=$ORDER(^UTILITY($JOB,AZHL0))
- IF AZHL0=""
- QUIT
- IF AZHLTERM
- WRITE "."
- SET X=AZHL0
- SET DIF="^TMP($J,""Z"","
- SET XCNP=0
- XECUTE "X ^%ZOSF(""LOAD""),AZHLGFCX"
- IF $TEST
- SET XCNP=XCNP-1
- Begin DoDot:1
- +5 FOR AZHLB=3:1:XCNP
- SET Z=AZHLB
- SET (Z(Z),^TMP($JOB,"Z"))=^TMP($JOB,"Z",AZHLB,0)
- Begin DoDot:2
- +6 IF ^TMP($JOB,"Z")["K ^"
- DO EN^AZHLSC47
- IF AZHLSC4I=1
- QUIT
- DO EN^AZHLSC46
- IF AZHLSC4I=1
- QUIT
- DO UNSCRGL
- IF AZHLSC4I=1
- QUIT
- SET ^TMP($JOB,"2.3.2.3",AZHL0,AZHLB)=^TMP($JOB,"Z")
- +7 IF ^TMP($JOB,"Z")["^%"
- DO EN^AZHLSC47
- IF AZHLSC4I=1
- QUIT
- DO EN^AZHLSC54
- +8 QUIT
- End DoDot:2
- +9 ;K Z
- KILL ^TMP($JOB,"Z")
- +10 QUIT
- End DoDot:1
- +11 DO TTL^AZHLSC("2.3.2.3, KILL of unsubscripted global")
- +12 IF $ORDER(^UTILITY($JOB,""))=""
- DO NRTN^AZHLSC
- GOTO 2324
- +13 IF $LENGTH($ORDER(^TMP($JOB,"2.3.2.3","")))
- WRITE !?10," "
- SET %=""
- FOR
- SET %=$ORDER(^TMP($JOB,"2.3.2.3",%))
- IF %=""
- QUIT
- SET A=0
- FOR
- SET A=$ORDER(^TMP($JOB,"2.3.2.3",%,A))
- IF 'A
- QUIT
- WRITE !?10,"+",A,"^",%," : ",^(A)
- 2324 DO TTL^AZHLSC("2.3.2.4, % Global Nodes")
- +1 IF $ORDER(^UTILITY($JOB,""))=""
- DO NRTN^AZHLSC
- QUIT
- +2 IF $LENGTH($ORDER(^TMP($JOB,"2.3.2.4","")))
- WRITE !?10,"SET or KILL of %-Global Node."
- SET %=""
- FOR
- SET %=$ORDER(^TMP($JOB,"2.3.2.4",%))
- IF %=""
- QUIT
- SET A=0
- FOR
- SET A=$ORDER(^TMP($JOB,"2.3.2.4",%,A))
- IF 'A
- QUIT
- WRITE !?10,"+",A,"^",%," : ",^(A)
- +3 DO END
- SET AZHL0=""
- +4 QUIT
- END KILL ^TMP($JOB,"2.3.2.4"),^TMP($JOB,"2.3.2.3"),^("Z")
- +1 QUIT
- UNSCRGL ; FIND UNSUBCRIPTED GLOBAL
- +1 SET AZHLSCF=""
- SET AZHLSCG=""
- SET AZHLSC4I=0
- +2 SET AZHLSCF=$FIND(Z(Z),"K ^")
- IF AZHLSCF=0
- SET AZHLSC4I=0
- QUIT
- +3 SET AZHLSCG=$EXTRACT(Z(Z),AZHLSCF,AZHLSCF+10)
- IF AZHLSCG["("
- SET AZHLSC4I=1
- QUIT
- +4 IF $EXTRACT(AZHLSCG,1,3)="TMP"
- SET AZHLSC4I=1
- QUIT
- +5 SET AZHLSC4I=0
- QUIT
