- ABPAPD0 ;PVT-INS PAYMENT ENTRY (START); [ 07/01/91 4:33 PM ]
- ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991
- D XIT,CURRENT^%ZIS S U="^"
- S ABPA("HD",1)=ABPATLE,ABPA("HD",2)="Post PAYMENT Data" D ^ABPAHD
- BATDT D ^ABPAGPB I $D(ABPABDT)'=1 D XIT G END
- K ABPA("HD") S ABPA("HD",1)=ABPATLE,ABPA("HD",2)="Post PAYMENT Data"
- D ^ABPAHD W !! S D0=ABPABDFN K DXS D ^ABPABAT K DXS
- D CHECK^ABPACMRP I 'CLOSED K CLOSED D XIT G END
- FAC K DIC S DIC="^DIC(4,",DIC(0)="AEQZ",DIC("A")="Select BATCH FACILITY: "
- W !! D ^DIC I +Y<1 D G ABPAPD0
- .D ^ABPABRC0,XIT S U="^"
- .S ABPA("HD",1)=ABPATLE,ABPA("HD",2)="Post PAYMENT Data"
- .S ABPA("HD",3)="BATCH SUMMARY" D ^ABPAHD W !! S D0=ABPABDFN K DXS
- .D ^ABPABAT K DXS W ! F X=1:1:79 W "="
- .D CLOSE^ABPABRC0,PAUSE^ABPAMAIN L
- S ABPASITE=+Y
- G ^ABPAPD1
- XIT K ABPADDFN,ABPATDFN,ABPADT,ABPADTD,ABPAPAT,D,ABPAX,ABPAFRDT,ABPATODT
- K ABPA,ABPAL,DIC,C,ABPADT,ABPAQKS,ABPAQK,ABPAHRN,DA,J,K,Z,XQH,ABPACSCR
- K ABPAC,ABPAI,ABPAXX,ABPAINS,DIE,DR,ABPAPD,ABPABDT,ABPASITE,DIC,X,Y
- Q
- END K ABPA("I"),ABPABDFN,ERRFLG,LBATDT,DIK Q
- ABPAPD0 ;PVT-INS PAYMENT ENTRY (START); [ 07/01/91 4:33 PM ]
- +1 ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991
- +2 DO XIT
- DO CURRENT^%ZIS
- SET U="^"
- +3 SET ABPA("HD",1)=ABPATLE
- SET ABPA("HD",2)="Post PAYMENT Data"
- DO ^ABPAHD
- BATDT DO ^ABPAGPB
- IF $DATA(ABPABDT)'=1
- DO XIT
- GOTO END
- +1 KILL ABPA("HD")
- SET ABPA("HD",1)=ABPATLE
- SET ABPA("HD",2)="Post PAYMENT Data"
- +2 DO ^ABPAHD
- WRITE !!
- SET D0=ABPABDFN
- KILL DXS
- DO ^ABPABAT
- KILL DXS
- +3 DO CHECK^ABPACMRP
- IF 'CLOSED
- KILL CLOSED
- DO XIT
- GOTO END
- FAC KILL DIC
- SET DIC="^DIC(4,"
- SET DIC(0)="AEQZ"
- SET DIC("A")="Select BATCH FACILITY: "
- +1 WRITE !!
- DO ^DIC
- IF +Y<1
- Begin DoDot:1
- +2 DO ^ABPABRC0
- DO XIT
- SET U="^"
- +3 SET ABPA("HD",1)=ABPATLE
- SET ABPA("HD",2)="Post PAYMENT Data"
- +4 SET ABPA("HD",3)="BATCH SUMMARY"
- DO ^ABPAHD
- WRITE !!
- SET D0=ABPABDFN
- KILL DXS
- +5 DO ^ABPABAT
- KILL DXS
- WRITE !
- FOR X=1:1:79
- WRITE "="
- +6 DO CLOSE^ABPABRC0
- DO PAUSE^ABPAMAIN
- LOCK
- End DoDot:1
- GOTO ABPAPD0
- +7 SET ABPASITE=+Y
- +8 GOTO ^ABPAPD1
- XIT KILL ABPADDFN,ABPATDFN,ABPADT,ABPADTD,ABPAPAT,D,ABPAX,ABPAFRDT,ABPATODT
- +1 KILL ABPA,ABPAL,DIC,C,ABPADT,ABPAQKS,ABPAQK,ABPAHRN,DA,J,K,Z,XQH,ABPACSCR
- +2 KILL ABPAC,ABPAI,ABPAXX,ABPAINS,DIE,DR,ABPAPD,ABPABDT,ABPASITE,DIC,X,Y
- +3 QUIT
- END KILL ABPA("I"),ABPABDFN,ERRFLG,LBATDT,DIK
- QUIT
