- ABPAOP5 ;PRINT AO PVT INS POSTING LOG; [ 03/10/91 4:31 PM ]
- ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991
- A0 Q ;;NOT AN ENTRY POINT
- A1 ;QUEUE POSTING LOG PRINT JOB
- W !!,"YOUR POSTING LOG WILL NOW BE PRINTED!"
- S ZTRTN="ENTER^ABPAOP5",ZTDESC="PRINT AO PVT INS POSTING LOG"
- S ZTDTH=$H,ZTIO=ABPA("IO"),ZTSAVE("ABPA(")="" D ^%ZTLOAD
- K ABPA,ZTRTN,ZTDESC,ZTIO,ZTSAVE
- Q
- ;
- ENTER ;ENTRY POINT FOR TASK MANAGER
- K ABPA("HD") S ABPA("HD",1)="AO PRIVATE INSURANCE SYSTEM"
- S ABPA("HD",2)="DATABASE POSTING LOG",ABPAPG=0
- LOOP1 K ^TMP("ABPAOP",$J) S FC=0 F I=0:0 D Q:+FC=0
- .S FC=$O(^ABPAPOST(1,"F","B",FC)) Q:+FC=0
- .S SITENAME=$P(^DIC(4,FC,0),"^")
- .S NVCNT=$P(^ABPAPOST(1,"F",FC,0),"^",5)
- .S NPCNT=$P(^ABPAPOST(1,"F",FC,0),"^",6)
- .S NCCNT=$P(^ABPAPOST(1,"F",FC,0),"^",7)
- .S ^TMP("ABPAOP",$J,SITENAME,"TOTALS")=NVCNT_"^"_NPCNT_"^"_NCCNT
- .S DFN=0 F I=0:0 D Q:+DFN=0
- ..S DFN=$O(^ABPAPOST(1,"F",FC,"P",DFN)) Q:+DFN=0
- ..S PATNAME=$P(^ABPVAO(DFN,0),"^"),HRN=$P(^(0),"^",3)
- ..S ^TMP("ABPAOP",$J,SITENAME,"P",PATNAME)=HRN
- .S DFN=0 F I=0:0 D Q:+DFN=0
- ..S DFN=$O(^ABPAPOST(1,"F",FC,"I",DFN)) Q:+DFN=0
- ..S INSNAME=$P(^AUTNINS(DFN,0),"^"),ZIP=$P(^(0),"^",5)
- ..S ^TMP("ABPAOP",$J,SITENAME,"I",INSNAME)=ZIP
- LOOP2 S FC=0 F I=0:0 D Q:FC=""
- .S FC=$O(^TMP("ABPAOP",$J,FC)) Q:FC=""
- .S DATA=^TMP("ABPAOP",$J,FC,"TOTALS")
- .S NVCNT=$P(DATA,"^"),NPCNT=$P(DATA,"^",2),NCCNT=$P(DATA,"^",3)
- .D HEADP
- .S DFN=0 F I=0:0 D Q:DFN=""
- ..S DFN=$O(^TMP("ABPAOP",$J,FC,"P",DFN)) Q:DFN=""
- ..W !?15,DFN,?48,$J(^TMP("ABPAOP",$J,FC,"P",DFN),6)
- ..D:$Y>57 HEADP
- .I $Y<50 D
- ..W !!!?24,"INSURER NAME",?52,"ZIP",!?15
- ..W "------------------------------",?48,"----------"
- .I $Y'<50 D HEADI
- .S DFN=0 F I=0:0 D Q:DFN=""
- ..S DFN=$O(^TMP("ABPAOP",$J,FC,"I",DFN)) Q:DFN=""
- ..W !?15,DFN,?48,$J(^TMP("ABPAOP",$J,FC,"I",DFN),10)
- ..D:$Y>57 HEADI
- .W !?5 F I=1:1:70 W "-"
- .W !!?10,$J("# NEW INSURERS ADDED: ",25),$J(NVCNT,6)
- .W !?10,$J("# NEW PATIENTS ADDED: ",25),$J(NPCNT,6)
- .W !?10,$J("# NEW CLAIMS ADDED: ",25),$J(NCCNT,6)
- TOTAL S FC="ALL FACILITIES" D ^ABPAOPHD
- W !!?5 F I=1:1:70 W "-"
- W !!?10,$J("TOTAL NEW INSURERS ADDED: ",30)
- W $J($P(^ABPAPOST(1,0),"^",2),8)
- W !!?10,$J("TOTAL NEW PATIENTS ADDED: ",30)
- W $J($P(^ABPAPOST(1,0),"^",3),8)
- W !!?10,$J("TOTAL NEW CLAIMS ADDED: ",30)
- W $J($P(^ABPAPOST(1,0),"^",4),8)
- D ^%AUCLS
- ;
- Q
- ;
- HEADP D ^ABPAOPHD
- W !!?24,"PATIENT NAME",?50,"HRN",!?15,"------------------------------"
- W ?48,"------"
- Q
- ;
- HEADI D ^ABPAOPHD
- W !!?24,"INSURER NAME",?52,"ZIP",!?15
- W "------------------------------",?48,"----------"
- ABPAOP5 ;PRINT AO PVT INS POSTING LOG; [ 03/10/91 4:31 PM ]
- +1 ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991
- A0 ;;NOT AN ENTRY POINT
- QUIT
- A1 ;QUEUE POSTING LOG PRINT JOB
- +1 WRITE !!,"YOUR POSTING LOG WILL NOW BE PRINTED!"
- +2 SET ZTRTN="ENTER^ABPAOP5"
- SET ZTDESC="PRINT AO PVT INS POSTING LOG"
- +3 SET ZTDTH=$HOROLOG
- SET ZTIO=ABPA("IO")
- SET ZTSAVE("ABPA(")=""
- DO ^%ZTLOAD
- +4 KILL ABPA,ZTRTN,ZTDESC,ZTIO,ZTSAVE
- +5 QUIT
- +6 ;
- ENTER ;ENTRY POINT FOR TASK MANAGER
- +1 KILL ABPA("HD")
- SET ABPA("HD",1)="AO PRIVATE INSURANCE SYSTEM"
- +2 SET ABPA("HD",2)="DATABASE POSTING LOG"
- SET ABPAPG=0
- LOOP1 KILL ^TMP("ABPAOP",$JOB)
- SET FC=0
- FOR I=0:0
- Begin DoDot:1
- +1 SET FC=$ORDER(^ABPAPOST(1,"F","B",FC))
- IF +FC=0
- QUIT
- +2 SET SITENAME=$PIECE(^DIC(4,FC,0),"^")
- +3 SET NVCNT=$PIECE(^ABPAPOST(1,"F",FC,0),"^",5)
- +4 SET NPCNT=$PIECE(^ABPAPOST(1,"F",FC,0),"^",6)
- +5 SET NCCNT=$PIECE(^ABPAPOST(1,"F",FC,0),"^",7)
- +6 SET ^TMP("ABPAOP",$JOB,SITENAME,"TOTALS")=NVCNT_"^"_NPCNT_"^"_NCCNT
- +7 SET DFN=0
- FOR I=0:0
- Begin DoDot:2
- +8 SET DFN=$ORDER(^ABPAPOST(1,"F",FC,"P",DFN))
- IF +DFN=0
- QUIT
- +9 SET PATNAME=$PIECE(^ABPVAO(DFN,0),"^")
- SET HRN=$PIECE(^(0),"^",3)
- +10 SET ^TMP("ABPAOP",$JOB,SITENAME,"P",PATNAME)=HRN
- End DoDot:2
- IF +DFN=0
- QUIT
- +11 SET DFN=0
- FOR I=0:0
- Begin DoDot:2
- +12 SET DFN=$ORDER(^ABPAPOST(1,"F",FC,"I",DFN))
- IF +DFN=0
- QUIT
- +13 SET INSNAME=$PIECE(^AUTNINS(DFN,0),"^")
- SET ZIP=$PIECE(^(0),"^",5)
- +14 SET ^TMP("ABPAOP",$JOB,SITENAME,"I",INSNAME)=ZIP
- End DoDot:2
- IF +DFN=0
- QUIT
- End DoDot:1
- IF +FC=0
- QUIT
- LOOP2 SET FC=0
- FOR I=0:0
- Begin DoDot:1
- +1 SET FC=$ORDER(^TMP("ABPAOP",$JOB,FC))
- IF FC=""
- QUIT
- +2 SET DATA=^TMP("ABPAOP",$JOB,FC,"TOTALS")
- +3 SET NVCNT=$PIECE(DATA,"^")
- SET NPCNT=$PIECE(DATA,"^",2)
- SET NCCNT=$PIECE(DATA,"^",3)
- +4 DO HEADP
- +5 SET DFN=0
- FOR I=0:0
- Begin DoDot:2
- +6 SET DFN=$ORDER(^TMP("ABPAOP",$JOB,FC,"P",DFN))
- IF DFN=""
- QUIT
- +7 WRITE !?15,DFN,?48,$JUSTIFY(^TMP("ABPAOP",$JOB,FC,"P",DFN),6)
- +8 IF $Y>57
- DO HEADP
- End DoDot:2
- IF DFN=""
- QUIT
- +9 IF $Y<50
- Begin DoDot:2
- +10 WRITE !!!?24,"INSURER NAME",?52,"ZIP",!?15
- +11 WRITE "------------------------------",?48,"----------"
- End DoDot:2
- +12 IF $Y'<50
- DO HEADI
- +13 SET DFN=0
- FOR I=0:0
- Begin DoDot:2
- +14 SET DFN=$ORDER(^TMP("ABPAOP",$JOB,FC,"I",DFN))
- IF DFN=""
- QUIT
- +15 WRITE !?15,DFN,?48,$JUSTIFY(^TMP("ABPAOP",$JOB,FC,"I",DFN),10)
- +16 IF $Y>57
- DO HEADI
- End DoDot:2
- IF DFN=""
- QUIT
- +17 WRITE !?5
- FOR I=1:1:70
- WRITE "-"
- +18 WRITE !!?10,$JUSTIFY("# NEW INSURERS ADDED: ",25),$JUSTIFY(NVCNT,6)
- +19 WRITE !?10,$JUSTIFY("# NEW PATIENTS ADDED: ",25),$JUSTIFY(NPCNT,6)
- +20 WRITE !?10,$JUSTIFY("# NEW CLAIMS ADDED: ",25),$JUSTIFY(NCCNT,6)
- End DoDot:1
- IF FC=""
- QUIT
- TOTAL SET FC="ALL FACILITIES"
- DO ^ABPAOPHD
- +1 WRITE !!?5
- FOR I=1:1:70
- WRITE "-"
- +2 WRITE !!?10,$JUSTIFY("TOTAL NEW INSURERS ADDED: ",30)
- +3 WRITE $JUSTIFY($PIECE(^ABPAPOST(1,0),"^",2),8)
- +4 WRITE !!?10,$JUSTIFY("TOTAL NEW PATIENTS ADDED: ",30)
- +5 WRITE $JUSTIFY($PIECE(^ABPAPOST(1,0),"^",3),8)
- +6 WRITE !!?10,$JUSTIFY("TOTAL NEW CLAIMS ADDED: ",30)
- +7 WRITE $JUSTIFY($PIECE(^ABPAPOST(1,0),"^",4),8)
- +8 DO ^%AUCLS
- +9 ;
- +10 QUIT
- +11 ;
- HEADP DO ^ABPAOPHD
- +1 WRITE !!?24,"PATIENT NAME",?50,"HRN",!?15,"------------------------------"
- +2 WRITE ?48,"------"
- +3 QUIT
- +4 ;
- HEADI DO ^ABPAOPHD
- +1 WRITE !!?24,"INSURER NAME",?52,"ZIP",!?15
- +2 WRITE "------------------------------",?48,"----------"
