AZHLSC22.m

AZHLSC22 ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 2: M LANGUAGE PROGRAMMING STANDARDS & CONVENTIONS) ;  [ 01/12/98  8:47 AM ]

 ;;5.0;AZHLSC;;JUL 10, 1996

 ;Changed SHORT DESCRIPTION to .01 FIELD - NAME and global reference to Piece 3 of DIC(9.4 where variable SD Set (Line 1+11, 1+5) IHS/ALBQ/KEU 2/2/95

 ;Changed DIF="Z(" TO GLOBAL ^TMP($J,"Z" AND OTHER REFERENCES

 ;TO THE Z( ARRAY TO THE GLOBAL REF. TO ACCOMODATE LARGE RTNS

 ;THAT WE ARE RECEIVING  IHS/ABQ/KEU  4/7/95

 ;W !!!,$P($P($T(+1),";",2),"-",2)

1 D TTL^AZHLSC("2.2.1 First Line    2.2.2 Second Line.  (7.1)")

 I $O(^UTILITY($J,""))="" D NRTN^AZHLSC Q

 I 'AZHLPIEN W !?10,"PACKAGE not selected.",!,"Version/Short Description/Date Distributed not checked."

 K ^TMP($J,"AZHL","2")

 NEW AZHLSTBL,DIF,DTDIST,SD,V,XCNP,Z,AGENSITE ;IHS/ABQ/KEU 3/7/95 ADDED AGENSITE

 S (SD,V,DTDIST,AGENSITE)="" I AZHLPIEN S SD=$P(^DIC(9.4,AZHLPIEN,0),U,1),V=$G(^("VERSION")) I $L(V) S DTDIST=$P(^DIC(9.4,AZHLPIEN,22,$O(^DIC(9.4,AZHLPIEN,22,"B",V,0)),0),U,2)

 ;IHS/ABQ/KEU  2/2/95 ADDED AGENSITE AND CHANGED SD PIECE TO 1 TO LOOK FOR .01 FIELD INSTEAD OF SHORT DESCRPT

 S AZHL="",AZHLSTBL=^DD("FUNC",$O(^DD("FUNC","B","STRIPBLANKS",0)),1)

 F  S AZHL=$O(^UTILITY($J,AZHL)) Q:AZHL=""  W:AZHLTERM "." K Z S X=AZHL,DIF="^TMP($J,""Z"",",XCNP=0 X "X ^%ZOSF(""LOAD""),AZHLGFCX" I  S Z(1)=^TMP($J,"Z",1,0),Z(2)=^TMP($J,"Z",2,0),AGENSITE=$P(Z(1),";",2) D

 .I $P($G(AGENSITE),"/",3)']"" S AZHL0=AZHL D EN^AZHLSC46 I AZHLSC4I'=1 W !?10,AZHL,":  NO AGENCY/SITE/PROGRAMMER: ",AGENSITE D B("2.2.1.3  (7.1.1)") ;IHS/ABQ/KEU 3/7/95 Added to include check for New SAC

 .;I $L($P(Z(1),";",3)) S X=$P(Z(1),";",3),X=$P(X,"]") S:X["[" X=$P(X,"[",2) X AZHLSTBL S X=$P(X," ",1,2) S:X?1.2N.E X=$P(X," ") D ^%DT I Y=-1 S AZHL0=AZHL D EN^AZHLSC46 I AZHLSC4I'=1

 .; W !?10,"3rd ';'-piece is not date (of edit): ",Z(1) D B("2.2.1.4  (7.1.2)")

 .I $L(V),$P(Z(2),";",3)'=V W !?10,AZHL,":  Rtn vers, pkg file vers, no-match : ",Z(2) D B("2.2.2.1  (7.1.3)")

 .I $P(Z(2),";",5)]"" W !?10,"Patch piece not null in ",AZHL,": '",$P(Z(2),";",5),"'." D B("2.2.2.2  (7.1.5)")

 .S X=$P(Z(2),";",6) D ^%DT I Y=-1 W !?10,"Date of Release piece, not date :",AZHL,":  ",Z(2) D B("2.2.2.3  (7.1.6)")

 .E  I $L(DTDIST),DTDIST'=Y W !?10,"Date of Release '= DATE DISTRIBUTED in PACKAGE :",AZHL,":  ",Z(2) D B("2.2.2.3  (7.1.6)")

 .I $P(Z(1),";",2)'["-" S AZHL0=AZHL D EN^AZHLSC46 I AZHLSC4I'=1 W !?10,"No Dash between pgrm - desc : ",Z(1) D B("2.2.1  (7.1)")

 .Q

 I $D(^TMP($J,"AZHL","2")) W !!?5,"SUMMARY:" S %="" F  S %=$O(^TMP($J,"AZHL","2",%)) Q:%=""  W !?10,%," violations : ",^(%)

 Q

B(%) S ^(%)=$G(^TMP($J,"AZHL","2",%))+1 Q

AZHLSC22  ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 2: M LANGUAGE PROGRAMMING STANDARDS & CONVENTIONS) ;  [ 01/12/98  8:47 AM ]

 +1       ;;5.0;AZHLSC;;JUL 10, 1996

 +2       ;Changed SHORT DESCRIPTION to .01 FIELD - NAME and global reference to Piece 3 of DIC(9.4 where variable SD Set (Line 1+11, 1+5) IHS/ALBQ/KEU 2/2/95

 +3       ;Changed DIF="Z(" TO GLOBAL ^TMP($J,"Z" AND OTHER REFERENCES

 +4       ;TO THE Z( ARRAY TO THE GLOBAL REF. TO ACCOMODATE LARGE RTNS

 +5       ;THAT WE ARE RECEIVING  IHS/ABQ/KEU  4/7/95

 +6       ;W !!!,$P($P($T(+1),";",2),"-",2)

1          DO TTL^AZHLSC("2.2.1 First Line    2.2.2 Second Line.  (7.1)")

 +1        IF $ORDER(^UTILITY($JOB,""))=""

               DO NRTN^AZHLSC

               QUIT 

 +2        IF 'AZHLPIEN

               WRITE !?10,"PACKAGE not selected.",!,"Version/Short Description/Date Distributed not checked."

 +3        KILL ^TMP($JOB,"AZHL","2")

 +4       ;IHS/ABQ/KEU 3/7/95 ADDED AGENSITE

           NEW AZHLSTBL,DIF,DTDIST,SD,V,XCNP,Z,AGENSITE

 +5        SET (SD,V,DTDIST,AGENSITE)=""

           IF AZHLPIEN

               SET SD=$PIECE(^DIC(9.4,AZHLPIEN,0),U,1)

               SET V=$GET(^("VERSION"))

               IF $LENGTH(V)

                   SET DTDIST=$PIECE(^DIC(9.4,AZHLPIEN,22,$ORDER(^DIC(9.4,AZHLPIEN,22,"B",V,0)),0),U,2)

 +6       ;IHS/ABQ/KEU  2/2/95 ADDED AGENSITE AND CHANGED SD PIECE TO 1 TO LOOK FOR .01 FIELD INSTEAD OF SHORT DESCRPT

 +7        SET AZHL=""

           SET AZHLSTBL=^DD("FUNC",$ORDER(^DD("FUNC","B","STRIPBLANKS",0)),1)

 +8        FOR 

               SET AZHL=$ORDER(^UTILITY($JOB,AZHL))

               IF AZHL=""

                   QUIT 

               IF AZHLTERM

                   WRITE "."

               KILL Z

               SET X=AZHL

               SET DIF="^TMP($J,""Z"","

               SET XCNP=0

               XECUTE "X ^%ZOSF(""LOAD""),AZHLGFCX"

              IF $TEST

                   SET Z(1)=^TMP($JOB,"Z",1,0)

                   SET Z(2)=^TMP($JOB,"Z",2,0)

                   SET AGENSITE=$PIECE(Z(1),";",2)

                   Begin DoDot:1

 +9       ;IHS/ABQ/KEU 3/7/95 Added to include check for New SAC

                       IF $PIECE($GET(AGENSITE),"/",3)']""

                           SET AZHL0=AZHL

                           DO EN^AZHLSC46

                           IF AZHLSC4I'=1

                               WRITE !?10,AZHL,":  NO AGENCY/SITE/PROGRAMMER: ",AGENSITE

                               DO B("2.2.1.3  (7.1.1)")

 +10      ;I $L($P(Z(1),";",3)) S X=$P(Z(1),";",3),X=$P(X,"]") S:X["[" X=$P(X,"[",2) X AZHLSTBL S X=$P(X," ",1,2) S:X?1.2N.E X=$P(X," ") D ^%DT I Y=-1 S AZHL0=AZHL D EN^AZHLSC46 I AZHLSC4I'=1

 +11      ; W !?10,"3rd ';'-piece is not date (of edit): ",Z(1) D B("2.2.1.4  (7.1.2)")

 +12                   IF $LENGTH(V)

                           IF $PIECE(Z(2),";",3)'=V

                               WRITE !?10,AZHL,":  Rtn vers, pkg file vers, no-match : ",Z(2)

                               DO B("2.2.2.1  (7.1.3)")

 +13                   IF $PIECE(Z(2),";",5)]""

                           WRITE !?10,"Patch piece not null in ",AZHL,": '",$PIECE(Z(2),";",5),"'."

                           DO B("2.2.2.2  (7.1.5)")

 +14                   SET X=$PIECE(Z(2),";",6)

                       DO ^%DT

                       IF Y=-1

                           WRITE !?10,"Date of Release piece, not date :",AZHL,":  ",Z(2)

                           DO B("2.2.2.3  (7.1.6)")

 +15                  IF '$TEST

                           IF $LENGTH(DTDIST)

                               IF DTDIST'=Y

                                   WRITE !?10,"Date of Release '= DATE DISTRIBUTED in PACKAGE :",AZHL,":  ",Z(2)

                                   DO B("2.2.2.3  (7.1.6)")

 +16                   IF $PIECE(Z(1),";",2)'["-"

                           SET AZHL0=AZHL

                           DO EN^AZHLSC46

                           IF AZHLSC4I'=1

                               WRITE !?10,"No Dash between pgrm - desc : ",Z(1)

                               DO B("2.2.1  (7.1)")

 +17                   QUIT 

                   End DoDot:1

 +18       IF $DATA(^TMP($JOB,"AZHL","2"))

               WRITE !!?5,"SUMMARY:"

               SET %=""

               FOR 

                   SET %=$ORDER(^TMP($JOB,"AZHL","2",%))

                   IF %=""

                       QUIT 

                   WRITE !?10,%," violations : ",^(%)

 +19       QUIT 

B(%)       SET ^(%)=$GET(^TMP($JOB,"AZHL","2",%))+1

           QUIT