ABPAPD0.m

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