- ABPAAGS2 ;PRINT AGED CLAIM SUMMARY; [ 05/17/91 4:53 PM ]
- ;;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",1)=ABPATLE,ABPA("HD",2)="AGED CLAIMS SUMMARY LISTING"
- S ABPA("HD",3)="Claims submitted between "_FRDT_" and "_TODT
- S (ABPAPG,P1T,P2T,P3T,P4T)=0,ZTNN=ZTSK,ZTSK=ZTN
- D ^ABPAPRT S IOP=IO_";80" D ^%ZIS K IOP
- I $D(A("PRINT",10)) W @A("PRINT",10) ; Set for standard print.
- 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 INSURER=$P(P,"/.:"),ZIP=$P(P,"/.:",2)
- .S (R,P1,P2,P3,P4)=0 F J=0:0 D Q:+R<1
- ..S R=$O(^%ZTSK(ZTSK,"INSURER",P,R)) Q:+R<1
- ..Q:$D(^%ZTSK(ZTSK,"AGING",R))'=1
- ..S DATA=^%ZTSK(ZTSK,"AGING",R) F K=1:1:4 D
- ...S @("P"_K)=@("P"_K)+$P(DATA,"^",K)
- ...S @("P"_K_"T")=@("P"_K_"T")+$P(DATA,"^",K)
- .I $Y>57 D ^ABPAACHD
- .W !,INSURER I ($L(INSURER)+$L(ZIP)+3)<40 W " (",ZIP,")"
- .W ?40,$J($P(DATA,"^"),9,2),?50,$J($P(DATA,"^",2),9,2)
- .W ?60,$J($P(DATA,"^",3),9,2),?70,$J($P(DATA,"^",4),9,2)
- .I ($L(INSURER)+$L(ZIP)+3)>39 W !?5,"(",ZIP,")"
- W !?40,"---------",?50,"---------",?60,"---------",?70,"---------"
- W !,?56,".",?76,".",!
- W "*** Report Totals ***",?37,"$" S X=P1T D COMMA^%DTC W X,?56,"."
- W ?58 S X=P3T D COMMA^%DTC W X,?76,"."
- W !?56,".",?76,".",!?48 S X=P2T D COMMA^%DTC W X
- W ?68 S X=P4T D COMMA^%DTC W X,@IOF 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,ABPAPG
- K ITOT,GTOT,OHRN,RTMP,FRDT,TODT,P1,P2,P3,P4,P1T,P2T,P3T,P4T,ZTNN
- Q
- ;--------------------------------------------------------------------
- MAIN ;ENTRY POINT - CALLED BY TASK MANAGER
- D INIT
- D ^ABPAACHD
- D GETDATA
- D END
- Q
- ABPAAGS2 ;PRINT AGED CLAIM SUMMARY; [ 05/17/91 4:53 PM ]
- +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")
- +2 SET FRDT=+$EXTRACT(BDT,4,5)_"/"_+$EXTRACT(BDT,6,7)_"/"_+$EXTRACT(BDT,2,3)
- +3 SET TODT=+$EXTRACT(EDT,4,5)_"/"_+$EXTRACT(EDT,6,7)_"/"_+$EXTRACT(EDT,2,3)
- +4 SET ABPA("HD",1)=ABPATLE
- SET ABPA("HD",2)="AGED CLAIMS SUMMARY LISTING"
- +5 SET ABPA("HD",3)="Claims submitted between "_FRDT_" and "_TODT
- +6 SET (ABPAPG,P1T,P2T,P3T,P4T)=0
- SET ZTNN=ZTSK
- SET ZTSK=ZTN
- +7 DO ^ABPAPRT
- SET IOP=IO_";80"
- DO ^%ZIS
- KILL IOP
- +8 ; Set for standard print.
- IF $DATA(A("PRINT",10))
- WRITE @A("PRINT",10)
- +9 QUIT
- +10 ;--------------------------------------------------------------------
- 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 INSURER=$PIECE(P,"/.:")
- SET ZIP=$PIECE(P,"/.:",2)
- +4 SET (R,P1,P2,P3,P4)=0
- FOR J=0:0
- Begin DoDot:2
- +5 SET R=$ORDER(^%ZTSK(ZTSK,"INSURER",P,R))
- IF +R<1
- QUIT
- +6 IF $DATA(^%ZTSK(ZTSK,"AGING",R))'=1
- QUIT
- +7 SET DATA=^%ZTSK(ZTSK,"AGING",R)
- FOR K=1:1:4
- Begin DoDot:3
- +8 SET @("P"_K)=@("P"_K)+$PIECE(DATA,"^",K)
- +9 SET @("P"_K_"T")=@("P"_K_"T")+$PIECE(DATA,"^",K)
- End DoDot:3
- End DoDot:2
- IF +R<1
- QUIT
- +10 IF $Y>57
- DO ^ABPAACHD
- +11 WRITE !,INSURER
- IF ($LENGTH(INSURER)+$LENGTH(ZIP)+3)<40
- WRITE " (",ZIP,")"
- +12 WRITE ?40,$JUSTIFY($PIECE(DATA,"^"),9,2),?50,$JUSTIFY($PIECE(DATA,"^",2),9,2)
- +13 WRITE ?60,$JUSTIFY($PIECE(DATA,"^",3),9,2),?70,$JUSTIFY($PIECE(DATA,"^",4),9,2)
- +14 IF ($LENGTH(INSURER)+$LENGTH(ZIP)+3)>39
- WRITE !?5,"(",ZIP,")"
- End DoDot:1
- IF P=""
- QUIT
- +15 WRITE !?40,"---------",?50,"---------",?60,"---------",?70,"---------"
- +16 WRITE !,?56,".",?76,".",!
- +17 WRITE "*** Report Totals ***",?37,"$"
- SET X=P1T
- DO COMMA^%DTC
- WRITE X,?56,"."
- +18 WRITE ?58
- SET X=P3T
- DO COMMA^%DTC
- WRITE X,?76,"."
- +19 WRITE !?56,".",?76,".",!?48
- SET X=P2T
- DO COMMA^%DTC
- WRITE X
- +20 WRITE ?68
- SET X=P4T
- DO COMMA^%DTC
- WRITE X,@IOF
- XECUTE ^%ZIS("C")
- +21 QUIT
- +22 ;---------------------------------------------------------------------
- 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,ABPAPG
- +2 KILL ITOT,GTOT,OHRN,RTMP,FRDT,TODT,P1,P2,P3,P4,P1T,P2T,P3T,P4T,ZTNN
- +3 QUIT
- +4 ;--------------------------------------------------------------------
- MAIN ;ENTRY POINT - CALLED BY TASK MANAGER
- +1 DO INIT
- +2 DO ^ABPAACHD
- +3 DO GETDATA
- +4 DO END
- +5 QUIT
