ABPAAGE2 ;PRINT DETAILED OPEN ITEMS; [ 05/20/91 9:11 AM ]
;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991
W !!?5,"<<< NOT AN ENTRY POINT - ACCESS DENIED >>>" G END
;--------------------------------------------------------------------
INIT ;PROCEDURE TO INITIALIZE TEMPORARY LOCAL VARIABLES
K ABPA("HD") S FRDT=+$E(BDT,4,5)_"/"_+$E(BDT,6,7)_"/"_+$E(BDT,2,3)
S TODT=+$E(EDT,4,5)_"/"_+$E(EDT,6,7)_"/"_+$E(EDT,2,3)
S ABPA("HD",4)="Claims submitted between "_FRDT_" and "_TODT
S (ABPAPG,GCNT,GTOT)=0,ZTNN=ZTSK,ZTSK=ZTN
D ^ABPAPRT I $D(A("PRINT",16))=1 W @(A("PRINT",16))
Q
;--------------------------------------------------------------------
GETDATA ;PROCEDURE TO GET COMPILED DATA FROM THE %ZTSK NODE
S P=0 F I=0:0 D Q:P=""
.S P=$O(^%ZTSK(ZTSK,"INSURER",P)) Q:P=""
.S R=0 F M=0:0 D Q:+R=0
..S R=$O(^%ZTSK(ZTSK,"INSURER",P,R)) Q:+R=0
..Q:$D(^%ZTSK(ZTSK,"AGING",R))'=10 S ABPA("HD",1)=P
..Q:+$D(^AUTNINS(R,0))'=1 S DATA=^(0)
..F J=2:1:5 S ABPA("I"_J)=$P(DATA,"^",J)
..I $D(^DIC(5,ABPA("I4"),0))=1 S ABPA("I4")=$P(^(0),"^",2)
..S ABPA("HD",2)=ABPA("I2"),ABPA("HD",3)=ABPA("I3")_", "_ABPA("I4")
..S ABPA("HD",3)=ABPA("HD",3)_" "_ABPA("I5")
..D ^ABPAACHD S (RR,ICNT,ITOT,NEW)=0 F J=0:0 D Q:RR=""
...S RR=$O(^%ZTSK(ZTSK,"AGING",R,RR))
...I RR="" D Q
....W !?77,"--------",?119,"---------",!?77,$J(ICNT,8)
....S GCNT=GCNT+ICNT W ?118,"$",$J(ITOT,9,2) I $Y>57 D ^ABPAACHD
...S NEW=1,RRR=0 F K=0:0 D Q:RRR=""
....S RRR=$O(^%ZTSK(ZTSK,"AGING",R,RR,RRR)) Q:RRR=""
....S RRRR=0 F L=0:0 D Q:+RRRR=0
.....S RRRR=$O(^%ZTSK(ZTSK,"AGING",R,RR,RRR,RRRR)) Q:+RRRR=0
.....S DATA=^%ZTSK(ZTSK,"AGING",R,RR,RRR,RRRR),ICNT=ICNT+1
.....S SSN=$P(DATA,"^"),PNO=$P(DATA,"^",2),DOS=$P(DATA,"^",3)
.....S DOS=+$E(DOS,4,5)_"/"_+$E(DOS,6,7)_"/"_+$E(DOS,2,3)
.....S FAC=$P(DATA,"^",4),AMT=$P(DATA,"^",5)
.....S ITOT=ITOT+AMT,GTOT=GTOT+AMT
.....I NEW W !!,RRR,?32,SSN,?45,$J(PNO,30) S NEW=0
.....W:$X>77 ! W ?77,$J(DOS,8),?87,FAC,?119,$J(AMT,9,2)
.....I $Y>57 D
......D ^ABPAACHD S RTMP=RRRR
......S RTMP=$O(^%ZTSK(ZTSK,"AGING",R,RR,RRR,RTMP)) I +RTMP>0 D
.......W !,RRR,?32,SSN,?45,$J(PNO,30)
K ABPA("HD"),ABPA("RTYP") S ABPA("HD",1)="OPEN ITEMS SUMMARY"
S ABPA("RTYP")="" D ^ABPAACHD S X=GTOT D COMMA^%DTC S GTOT=X
W !!!!! S X="Summary for "_$P(^DIC(4,DUZ(2),0),"^")_": "
S X=X_GCNT_" claims for $"_GTOT W ?(131-$L(X)),X
W @IOF I $D(A("PRINT",10))=1 W @(A("PRINT",10))
X ^%ZIS("C")
Q
;---------------------------------------------------------------------
END ;PROCEDURE TO KILL ALL TEMPORARY LOCAL VARIABLES
K X,Y,ABPA("HD"),I,J,ABPAPG,K,L,R,RR,RRR,RRRRDOS,AGE,AMT,ZTN,P
K ITOT,GTOT,OHRN,RTMP,FRDT,TODT,GCNT,ICNT
Q
;--------------------------------------------------------------------
MAIN ;ENTRY POINT - CALLED BY TASK MANAGER
D INIT,GETDATA,END
Q
ABPAAGE2 ;PRINT DETAILED OPEN ITEMS; [ 05/20/91 9:11 AM ]
+1 ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991
+2 WRITE !!?5,"<<< NOT AN ENTRY POINT - ACCESS DENIED >>>"
GOTO END
+3 ;--------------------------------------------------------------------
INIT ;PROCEDURE TO INITIALIZE TEMPORARY LOCAL VARIABLES
+1 KILL ABPA("HD")
SET FRDT=+$EXTRACT(BDT,4,5)_"/"_+$EXTRACT(BDT,6,7)_"/"_+$EXTRACT(BDT,2,3)
+2 SET TODT=+$EXTRACT(EDT,4,5)_"/"_+$EXTRACT(EDT,6,7)_"/"_+$EXTRACT(EDT,2,3)
+3 SET ABPA("HD",4)="Claims submitted between "_FRDT_" and "_TODT
+4 SET (ABPAPG,GCNT,GTOT)=0
SET ZTNN=ZTSK
SET ZTSK=ZTN
+5 DO ^ABPAPRT
IF $DATA(A("PRINT",16))=1
WRITE @(A("PRINT",16))
+6 QUIT
+7 ;--------------------------------------------------------------------
GETDATA ;PROCEDURE TO GET COMPILED DATA FROM THE %ZTSK NODE
+1 SET P=0
FOR I=0:0
Begin DoDot:1
+2 SET P=$ORDER(^%ZTSK(ZTSK,"INSURER",P))
IF P=""
QUIT
+3 SET R=0
FOR M=0:0
Begin DoDot:2
+4 SET R=$ORDER(^%ZTSK(ZTSK,"INSURER",P,R))
IF +R=0
QUIT
+5 IF $DATA(^%ZTSK(ZTSK,"AGING",R))'=10
QUIT
SET ABPA("HD",1)=P
+6 IF +$DATA(^AUTNINS(R,0))'=1
QUIT
SET DATA=^(0)
+7 FOR J=2:1:5
SET ABPA("I"_J)=$PIECE(DATA,"^",J)
+8 IF $DATA(^DIC(5,ABPA("I4"),0))=1
SET ABPA("I4")=$PIECE(^(0),"^",2)
+9 SET ABPA("HD",2)=ABPA("I2")
SET ABPA("HD",3)=ABPA("I3")_", "_ABPA("I4")
+10 SET ABPA("HD",3)=ABPA("HD",3)_" "_ABPA("I5")
+11 DO ^ABPAACHD
SET (RR,ICNT,ITOT,NEW)=0
FOR J=0:0
Begin DoDot:3
+12 SET RR=$ORDER(^%ZTSK(ZTSK,"AGING",R,RR))
+13 IF RR=""
Begin DoDot:4
+14 WRITE !?77,"--------",?119,"---------",!?77,$JUSTIFY(ICNT,8)
+15 SET GCNT=GCNT+ICNT
WRITE ?118,"$",$JUSTIFY(ITOT,9,2)
IF $Y>57
DO ^ABPAACHD
End DoDot:4
QUIT
+16 SET NEW=1
SET RRR=0
FOR K=0:0
Begin DoDot:4
+17 SET RRR=$ORDER(^%ZTSK(ZTSK,"AGING",R,RR,RRR))
IF RRR=""
QUIT
+18 SET RRRR=0
FOR L=0:0
Begin DoDot:5
+19 SET RRRR=$ORDER(^%ZTSK(ZTSK,"AGING",R,RR,RRR,RRRR))
IF +RRRR=0
QUIT
+20 SET DATA=^%ZTSK(ZTSK,"AGING",R,RR,RRR,RRRR)
SET ICNT=ICNT+1
+21 SET SSN=$PIECE(DATA,"^")
SET PNO=$PIECE(DATA,"^",2)
SET DOS=$PIECE(DATA,"^",3)
+22 SET DOS=+$EXTRACT(DOS,4,5)_"/"_+$EXTRACT(DOS,6,7)_"/"_+$EXTRACT(DOS,2,3)
+23 SET FAC=$PIECE(DATA,"^",4)
SET AMT=$PIECE(DATA,"^",5)
+24 SET ITOT=ITOT+AMT
SET GTOT=GTOT+AMT
+25 IF NEW
WRITE !!,RRR,?32,SSN,?45,$JUSTIFY(PNO,30)
SET NEW=0
+26 IF $X>77
WRITE !
WRITE ?77,$JUSTIFY(DOS,8),?87,FAC,?119,$JUSTIFY(AMT,9,2)
+27 IF $Y>57
Begin DoDot:6
+28 DO ^ABPAACHD
SET RTMP=RRRR
+29 SET RTMP=$ORDER(^%ZTSK(ZTSK,"AGING",R,RR,RRR,RTMP))
IF +RTMP>0
Begin DoDot:7
+30 WRITE !,RRR,?32,SSN,?45,$JUSTIFY(PNO,30)
End DoDot:7
End DoDot:6
End DoDot:5
IF +RRRR=0
QUIT
End DoDot:4
IF RRR=""
QUIT
End DoDot:3
IF RR=""
QUIT
End DoDot:2
IF +R=0
QUIT
End DoDot:1
IF P=""
QUIT
+31 KILL ABPA("HD"),ABPA("RTYP")
SET ABPA("HD",1)="OPEN ITEMS SUMMARY"
+32 SET ABPA("RTYP")=""
DO ^ABPAACHD
SET X=GTOT
DO COMMA^%DTC
SET GTOT=X
+33 WRITE !!!!!
SET X="Summary for "_$PIECE(^DIC(4,DUZ(2),0),"^")_": "
+34 SET X=X_GCNT_" claims for $"_GTOT
WRITE ?(131-$LENGTH(X)),X
+35 WRITE @IOF
IF $DATA(A("PRINT",10))=1
WRITE @(A("PRINT",10))
+36 XECUTE ^%ZIS("C")
+37 QUIT
+38 ;---------------------------------------------------------------------
END ;PROCEDURE TO KILL ALL TEMPORARY LOCAL VARIABLES
+1 KILL X,Y,ABPA("HD"),I,J,ABPAPG,K,L,R,RR,RRR,RRRRDOS,AGE,AMT,ZTN,P
+2 KILL ITOT,GTOT,OHRN,RTMP,FRDT,TODT,GCNT,ICNT
+3 QUIT
+4 ;--------------------------------------------------------------------
MAIN ;ENTRY POINT - CALLED BY TASK MANAGER
+1 DO INIT
DO GETDATA
DO END
+2 QUIT
