Routine: AZHLSC25

AZHLSC25 ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 2: M LANGUAGE PROGRAMMING STANDARDS & CONVENTIONS ;  [ 06/28/1999  9:11 AM ]

 ;;5.0;AZHLSC;;JUL 10, 1996

 ;CHANGED DIF="Z(" TO GLOBAL AND OTHER REFERENCES TO THE

 ;ARRAY TO THE GLOBAL REFERENCE TO ACCOMMODATE LARGE RTNS SIZES

 ;IHS/ABQ/KEU  4/7/95

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

 NEW A,A3,A4,A5,ARG,B,CH,COM,DIF,G,I,J,LIN,NORTNS,NUL,R,Q,XCNP,Z

 D END

 S Q="""",A4="=""O ",A5="=""C ",NORTNS=$O(^UTILITY($J,""))=""

 S AZHL=""

 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 XCNP=XCNP-1 D

 .F Z=3:1:XCNP S Z(Z)=^TMP($J,"Z",Z,0) K ^TMP($J,"Z",Z,0) D

 ..I Z(Z)'["$$" D EN^AZHLSC47 Q:AZHLSC4I=1  I Z(Z)["$N" S ^TMP($J,"2521",AZHL,Z)=Z(Z)

..Q

.Q

721 D TTL^AZHLSC("2.5.2.1,  (6.6.18)  $NEXT.")

 I NORTNS D NRTN^AZHLSC Q

 I $L($O(^TMP($J,"2521",""))) S %="" F  S %=$O(^TMP($J,"2521",%)) Q:%=""  S A=0 F  S A=$O(^TMP($J,"2521",%,A)) Q:'A  W !?10,"+",A,"^",%," :  ",^(A)

END K ^TMP($J,"2521"),^("Z"),Z

AZHLSC25  ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 2: M LANGUAGE PROGRAMMING STANDARDS & CONVENTIONS ;  [ 06/28/1999  9:11 AM ]

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

 +2       ;CHANGED DIF="Z(" TO GLOBAL AND OTHER REFERENCES TO THE

 +3       ;ARRAY TO THE GLOBAL REFERENCE TO ACCOMMODATE LARGE RTNS SIZES

 +4       ;IHS/ABQ/KEU  4/7/95

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

 +6        NEW A,A3,A4,A5,ARG,B,CH,COM,DIF,G,I,J,LIN,NORTNS,NUL,R,Q,XCNP,Z

 +7        DO END

 +8        SET Q=""""

           SET A4="=""O "

           SET A5="=""C "

           SET NORTNS=$ORDER(^UTILITY($JOB,""))=""

 +9        SET AZHL=""

 +10       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 XCNP=XCNP-1

                   Begin DoDot:1

 +11                   FOR Z=3:1:XCNP

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

                           KILL ^TMP($JOB,"Z",Z,0)

                           Begin DoDot:2

 +12                           IF Z(Z)'["$$"

                                   DO EN^AZHLSC47

                                   IF AZHLSC4I=1

                                       QUIT

                                   IF Z(Z)["$N"

                                       SET ^TMP($JOB,"2521",AZHL,Z)=Z(Z)

 +13                           QUIT

                           End DoDot:2

 +14                   QUIT

                   End DoDot:1

721        DO TTL^AZHLSC("2.5.2.1,  (6.6.18)  $NEXT.")

 +1        IF NORTNS

               DO NRTN^AZHLSC

               QUIT

 +2        IF $LENGTH($ORDER(^TMP($JOB,"2521","")))

               SET %=""

FOR

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

                   IF %=""

                       QUIT

                   SET A=0

FOR

                       SET A=$ORDER(^TMP($JOB,"2521",%,A))

                       IF 'A

                           QUIT

                       WRITE !?10,"+",A,"^",%," :  ",^(A)

 +3        QUIT

 +4       ;

END        KILL ^TMP($JOB,"2521"),^("Z"),Z

 +1        QUIT

 +2       ;

AZHLSC25.m