AZHNDUMB.m

AZHNDUMB ; [8/17/98 1:24pm]

 S Z=0

 ;F  S Z=$O(^ASUMX("F",Z)) Q:Z'?1N.N  D

 F Z=1,3 D

 .W !,"ACCOUNT: ",Z,!

 .S (X,Y,C)=0

 .F  S X=$O(^ASUMX("F",Z,X)) Q:X']""  D

 ..I $G(^ASUMS(40002,1,X,0))]"" D

 ...W !?4,$E(X,3,8) S C=C+1

 ...W ?12,$J($FN($P(^ASUMS(40002,1,X,0),U,16),",",2),12) S Y=Y+$P(^(0),U,16)

 .W !!,"TOTAL: ",$J(C,5),?12,$J($FN(Y,",",2),12)

 Q

AZHNDUMB  ; [8/17/98 1:24pm]

 +1        SET Z=0

 +2       ;F  S Z=$O(^ASUMX("F",Z)) Q:Z'?1N.N  D

 +3        FOR Z=1,3

               Begin DoDot:1

 +4                WRITE !,"ACCOUNT: ",Z,!

 +5                SET (X,Y,C)=0

 +6                FOR 

                       SET X=$ORDER(^ASUMX("F",Z,X))

                       IF X']""

                           QUIT 

                       Begin DoDot:2

 +7                        IF $GET(^ASUMS(40002,1,X,0))]""

                               Begin DoDot:3

 +8                                WRITE !?4,$EXTRACT(X,3,8)

                                   SET C=C+1

 +9                                WRITE ?12,$JUSTIFY($FNUMBER($PIECE(^ASUMS(40002,1,X,0),U,16),",",2),12)

                                   SET Y=Y+$PIECE(^(0),U,16)

                               End DoDot:3

                       End DoDot:2

 +10               WRITE !!,"TOTAL: ",$JUSTIFY(C,5),?12,$JUSTIFY($FNUMBER(Y,",",2),12)

               End DoDot:1

 +11       QUIT