- AZHLSC2 ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 2: M LANGUAGE PROGRAMMING STANDARDS & CONVENTIONS ; [ 11/05/1999 11:18 AM ]
- ;;5.0;AZHLSC;;JUL 10, 1996
- ;
- W !!!,$P($P($T(+1),";",2),"-",2)
- NEW A,B,DIF,NO,V,XCNP,Z,AZHLFILE,AZHLFLD
- 5 D TTL^AZHLSC("2.1.5, (8.5) File/Data Restrictions")
- I 'AZHLPIEN D NPKG^AZHLSC G 6
- S %=0 F S %=$O(^DIC(9.4,AZHLPIEN,4,%)) Q:'% W:AZHLTERM "." I $S('$D(^DIC(9.4,AZHLPIEN,4,%,222)):0,$P(^(222),U,7)="y":1,1:0) W !?10,"File ",$P(^(0),U,1)," marked as DATA COMES WITH FILE."
- 6 D TTL^AZHLSC("2.1.6, (8.6) FileManager Access Code Security")
- I 'AZHLPIEN D NPKG^AZHLSC G 16
- S (A,%)=0,B=""
- F S %=$O(^DIC(9.4,AZHLPIEN,4,%)) Q:'% S AZHLACCE=$P($G(^DIC(9.4,AZHLPIEN,4,%,0)),U,1) W:AZHLTERM "." D
- .F %(1)="AUDIT","DD","RD","WR","DEL","LAYGO" Q:'AZHLACCE I $S('$D(^DIC(AZHLACCE,0,%(1))):1,'$L(^(%(1))):1,1:0) S B=B_$S($L(B):", ",1:"")_%(1)
- .I $L(B) W:'A !?5,"File",?25,"Missing Access Code(s)",!?10,"-------------------------------------------------" S A=1 W !?5,$P(^DIC(9.4,AZHLPIEN,4,%,0),U,1),?25,B S B=""
- .Q
- 16 ;
- G FILEVR
- ;IHS/JN 1/8/98 THE FOLLOWING CODE IS BY-PASSED, FIELDS WILL BE GONE IN THE NEAR FUTURE AND CHG IS STANDARDS
- 7 D TTL^AZHLSC("2.1.7, (8.9) Version Information")
- I 'AZHLPIEN D NPKG^AZHLSC G 20
- I $S('$D(^DIC(9.4,AZHLPIEN,"VERSION")):1,'(^("VERSION")):1,1:0) W !?10,"Version number not in PACKAGE file.",!?10,"Other fields in VERSION multiple not checked."
- E S V=^("VERSION"),%="The following fields are missing from the PACKAGE file entry for version "_V_".",V1=0,V1=$O(^DIC(9.4,AZHLPIEN,22,"B",V,V1)),V=V1 K X D
- .;E S V=^("VERSION"),%="The following fields are missing from the PACKAGE file entry for version "_V_".",V=$O(^DIC(9.4,AZHLPIEN,22,"B",V_$S(V[".":"",1:".0"),0)) K X D;Old line, new line above-RAW 10/93
- .I '$P($G(^DIC(9.4,AZHLPIEN,22,V,0)),U,2) S X(0)="DATE DISTRIBUTED"
- .I '+$P($G(^DIC(9.4,AZHLPIEN,22,V,1,0)),U,3) S X(1)="DESCRIPTION OF ENHANCEMENTS"
- .I '+$P($G(^DIC(9.4,AZHLPIEN,22,V,"I",0)),U,3) S X("I")="INSTALLATION NOTES"
- .I '+$P($G(^DIC(9.4,AZHLPIEN,22,V,"P",0)),U,3) S X("P")="PROGRAMMER NOTES"
- .I '+$P($G(^DIC(9.4,AZHLPIEN,22,V,"R",0)),U,3) S X("R")="RELEASE NOTE"
- .I '+$P($G(^DIC(9.4,AZHLPIEN,22,V,"S",0)),U,3) S X("S")="SYSTEM REQUIREMENTS"
- .I $D(X) W !?5,% F %=0,1,"I","P","R","S" I $D(X(%)) W !?10,X(%)
- .Q
- ;IHS/DSM/JN 1/8/98 THE ABOVE CODE TO LABEL 7 IS BY-PASSED
- FILEVR ;
- D TTL^AZHLSC("2.1.7, (8.9) Version number in ^DD(file#,0,""VR"")")
- I 'AZHLPIEN D NPKG^AZHLSC G 20
- S %=0 F S %=$O(^DIC(9.4,AZHLPIEN,4,"B",%)) Q:'% D
- .I '$D(^DD(%,0,"VR")) W !?10,"Version number not in ^DD(",%,",0,""VR"")."
- .I $S('$D(^DIC(9.4,AZHLPIEN,4,$O(^DIC(9.4,AZHLPIEN,4,"B",%,0)),222)):1,$P(^(222),U,2)'="y":1,1:0) W !?10,"File ",%,", ASSIGN A VERSION NUMBER is not 'YES'."
- .Q
- 20 D ^AZHLSC20 ; LAYGO Restrictions
- D ^AZHLSC22
- D ^AZHLSC41
- D ^AZHLSC42
- D ^AZHLSC23
- D ^AZHLSC24
- D ^AZHLSC25 ;$NEXT
- D ^AZHLSC26
- D ^AZHLSC27
- D ^AZHLSC28
- D ^AZHLSC29
- Q
- BUL ;;BULLETIN
- DIBT ;;SORT TEMPLATE
- DIE ;;INPUT TEMPLATE
- DIPT ;;PRINT TEMPLATE
- FUN ;;FUNCTION
- HEL ;;HELP FRAME
- KEY ;;SECURITY KEY
- OPT ;;OPTION
- ;
- AZHLSC2 ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 2: M LANGUAGE PROGRAMMING STANDARDS & CONVENTIONS ; [ 11/05/1999 11:18 AM ]
- +1 ;;5.0;AZHLSC;;JUL 10, 1996
- +2 ;
- +3 WRITE !!!,$PIECE($PIECE($TEXT(+1),";",2),"-",2)
- +4 NEW A,B,DIF,NO,V,XCNP,Z,AZHLFILE,AZHLFLD
- 5 DO TTL^AZHLSC("2.1.5, (8.5) File/Data Restrictions")
- +1 IF 'AZHLPIEN
- DO NPKG^AZHLSC
- GOTO 6
- +2 SET %=0
- FOR
- SET %=$ORDER(^DIC(9.4,AZHLPIEN,4,%))
- IF '%
- QUIT
- IF AZHLTERM
- WRITE "."
- IF $SELECT('$DATA(^DIC(9.4,AZHLPIEN,4,%,222)):0,$PIECE(^(222),U,7)="y":1,1:0)
- WRITE !?10,"File ",$PIECE(^(0),U,1)," marked as DATA COMES WITH FILE."
- 6 DO TTL^AZHLSC("2.1.6, (8.6) FileManager Access Code Security")
- +1 IF 'AZHLPIEN
- DO NPKG^AZHLSC
- GOTO 16
- +2 SET (A,%)=0
- SET B=""
- +3 FOR
- SET %=$ORDER(^DIC(9.4,AZHLPIEN,4,%))
- IF '%
- QUIT
- SET AZHLACCE=$PIECE($GET(^DIC(9.4,AZHLPIEN,4,%,0)),U,1)
- IF AZHLTERM
- WRITE "."
- Begin DoDot:1
- +4 FOR %(1)="AUDIT","DD","RD","WR","DEL","LAYGO"
- IF 'AZHLACCE
- QUIT
- IF $SELECT('$DATA(^DIC(AZHLACCE,0,%(1))):1,'$LENGTH(^(%(1))):1,1:0)
- SET B=B_$SELECT($LENGTH(B):", ",1:"")_%(1)
- +5 IF $LENGTH(B)
- IF 'A
- WRITE !?5,"File",?25,"Missing Access Code(s)",!?10,"-------------------------------------------------"
- SET A=1
- WRITE !?5,$PIECE(^DIC(9.4,AZHLPIEN,4,%,0),U,1),?25,B
- SET B=""
- +6 QUIT
- End DoDot:1
- 16 ;
- +1 GOTO FILEVR
- +2 ;IHS/JN 1/8/98 THE FOLLOWING CODE IS BY-PASSED, FIELDS WILL BE GONE IN THE NEAR FUTURE AND CHG IS STANDARDS
- 7 DO TTL^AZHLSC("2.1.7, (8.9) Version Information")
- +1 IF 'AZHLPIEN
- DO NPKG^AZHLSC
- GOTO 20
- +2 IF $SELECT('$DATA(^DIC(9.4,AZHLPIEN,"VERSION")):1,'(^("VERSION")):1,1:0)
- WRITE !?10,"Version number not in PACKAGE file.",!?10,"Other fields in VERSION multiple not checked."
- +3 IF '$TEST
- SET V=^("VERSION")
- SET %="The following fields are missing from the PACKAGE file entry for version "_V_"."
- SET V1=0
- SET V1=$ORDER(^DIC(9.4,AZHLPIEN,22,"B",V,V1))
- SET V=V1
- KILL X
- Begin DoDot:1
- +4 ;E S V=^("VERSION"),%="The following fields are missing from the PACKAGE file entry for version "_V_".",V=$O(^DIC(9.4,AZHLPIEN,22,"B",V_$S(V[".":"",1:".0"),0)) K X D;Old line, new line above-RAW 10/93
- +5 IF '$PIECE($GET(^DIC(9.4,AZHLPIEN,22,V,0)),U,2)
- SET X(0)="DATE DISTRIBUTED"
- +6 IF '+$PIECE($GET(^DIC(9.4,AZHLPIEN,22,V,1,0)),U,3)
- SET X(1)="DESCRIPTION OF ENHANCEMENTS"
- +7 IF '+$PIECE($GET(^DIC(9.4,AZHLPIEN,22,V,"I",0)),U,3)
- SET X("I")="INSTALLATION NOTES"
- +8 IF '+$PIECE($GET(^DIC(9.4,AZHLPIEN,22,V,"P",0)),U,3)
- SET X("P")="PROGRAMMER NOTES"
- +9 IF '+$PIECE($GET(^DIC(9.4,AZHLPIEN,22,V,"R",0)),U,3)
- SET X("R")="RELEASE NOTE"
- +10 IF '+$PIECE($GET(^DIC(9.4,AZHLPIEN,22,V,"S",0)),U,3)
- SET X("S")="SYSTEM REQUIREMENTS"
- +11 IF $DATA(X)
- WRITE !?5,%
- FOR %=0,1,"I","P","R","S"
- IF $DATA(X(%))
- WRITE !?10,X(%)
- +12 QUIT
- End DoDot:1
- +13 ;IHS/DSM/JN 1/8/98 THE ABOVE CODE TO LABEL 7 IS BY-PASSED
- FILEVR ;
- +1 DO TTL^AZHLSC("2.1.7, (8.9) Version number in ^DD(file#,0,""VR"")")
- +2 IF 'AZHLPIEN
- DO NPKG^AZHLSC
- GOTO 20
- +3 SET %=0
- FOR
- SET %=$ORDER(^DIC(9.4,AZHLPIEN,4,"B",%))
- IF '%
- QUIT
- Begin DoDot:1
- +4 IF '$DATA(^DD(%,0,"VR"))
- WRITE !?10,"Version number not in ^DD(",%,",0,""VR"")."
- +5 IF $SELECT('$DATA(^DIC(9.4,AZHLPIEN,4,$ORDER(^DIC(9.4,AZHLPIEN,4,"B",%,0)),222)):1,$PIECE(^(222),U,2)'="y":1,1:0)
- WRITE !?10,"File ",%,", ASSIGN A VERSION NUMBER is not 'YES'."
- +6 QUIT
- End DoDot:1
- 20 ; LAYGO Restrictions
- DO ^AZHLSC20
- +1 DO ^AZHLSC22
- +2 DO ^AZHLSC41
- +3 DO ^AZHLSC42
- +4 DO ^AZHLSC23
- +5 DO ^AZHLSC24
- +6 ;$NEXT
- DO ^AZHLSC25
- +7 DO ^AZHLSC26
- +8 DO ^AZHLSC27
- +9 DO ^AZHLSC28
- +10 DO ^AZHLSC29
- +11 QUIT
- BUL ;;BULLETIN
- DIBT ;;SORT TEMPLATE
- DIE ;;INPUT TEMPLATE
- DIPT ;;PRINT TEMPLATE
- FUN ;;FUNCTION
- HEL ;;HELP FRAME
- KEY ;;SECURITY KEY
- OPT ;;OPTION
- +1 ;
