ABPAPCS0.m

ABPAPCS0 ;PRIV-INS PAID CLAIM SUMMARY;[ 05/22/91  10:14 AM ]

 ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991

PAT D XIT S ABPA("HD",1)=ABPATLE

 S ABPA("HD",2)="PAYMENT SUMMARY for a claim" D ^ABPAHD

 W !! D ^ABPAPATL I $D(ABPATDFN)'=1 D XIT Q

 I +ABPATDFN<1 G PAT

DT0 S $P(ABPAX,"=",80)="",ABPAHRN=$P(^ABPVAO(ABPATDFN,0),"^",3)

 S ABPAL=$E($P(^DIC(4,$P(^ABPVAO(DA,0),U,2),0),U),1,25)

 S $P(ABPAXX,"-",80)="" D ^ABPAPCS2 S ABPAC=0

 ;--------------------------------------------------------------------

GETDT ;PROCEDURE TO PROCESS DATE OF SERVICE INPUT

 K DIR,ABPADT S DIR(0)="D",DIR("A")="Select CLAIM DATE OF SERVICE"

 W ! D ^DIR G:'Y PAT S ABPACDT=+Y

 ;---------------------------------------------------------------------

DEVICE ;PROCEDURE TO PROCESS OUTPUT DEVICE SELECTION

 K %IS S %IS="H",%IS("A")="Use which device: " W ! D ^%ZIS U IO

 ;---------------------------------------------------------------------

PAID S ABPAI=1 D ^ABPAPCS2,^ABPAPCS1

 ;

ENDLST W:IO'=IO(0) @IOF X ^%ZIS("C")

 W ! S ABPAMESS="End of display...press any key to continue"

 D PAUSE^ABPAMAIN G PAT

 ;

XIT K ABPARECV,ABPAPD,ABPAENT,ABPADDFN,ABPATDFN,ABPADT,ABPADTD,ABPAPAT,D

 K ABPA,ABPAL,DIC,C,ABPADT,ABPAQKS,ABPAQK,ABPAHRN,ABPARECV,DA,J,K,Z,XQH

END K ABPAC,ABPAI,ABPAXX,ABPAINS,DIE,DR,%DT,ABPAX,ABPAZ,ABPAPDT,QFLG Q

ABPAPCS0  ;PRIV-INS PAID CLAIM SUMMARY;[ 05/22/91  10:14 AM ]

 +1       ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991

PAT        DO XIT

           SET ABPA("HD",1)=ABPATLE

 +1        SET ABPA("HD",2)="PAYMENT SUMMARY for a claim"

           DO ^ABPAHD

 +2        WRITE !!

           DO ^ABPAPATL

           IF $DATA(ABPATDFN)'=1

               DO XIT

               QUIT 

 +3        IF +ABPATDFN<1

               GOTO PAT

DT0        SET $PIECE(ABPAX,"=",80)=""

           SET ABPAHRN=$PIECE(^ABPVAO(ABPATDFN,0),"^",3)

 +1        SET ABPAL=$EXTRACT($PIECE(^DIC(4,$PIECE(^ABPVAO(DA,0),U,2),0),U),1,25)

 +2        SET $PIECE(ABPAXX,"-",80)=""

           DO ^ABPAPCS2

           SET ABPAC=0

 +3       ;--------------------------------------------------------------------

GETDT     ;PROCEDURE TO PROCESS DATE OF SERVICE INPUT

 +1        KILL DIR,ABPADT

           SET DIR(0)="D"

           SET DIR("A")="Select CLAIM DATE OF SERVICE"

 +2        WRITE !

           DO ^DIR

           IF 'Y

               GOTO PAT

           SET ABPACDT=+Y

 +3       ;---------------------------------------------------------------------

DEVICE    ;PROCEDURE TO PROCESS OUTPUT DEVICE SELECTION

 +1        KILL %IS

           SET %IS="H"

           SET %IS("A")="Use which device: "

           WRITE !

           DO ^%ZIS

           USE IO

 +2       ;---------------------------------------------------------------------

PAID       SET ABPAI=1

           DO ^ABPAPCS2

           DO ^ABPAPCS1

 +1       ;

ENDLST     IF IO'=IO(0)

               WRITE @IOF

           XECUTE ^%ZIS("C")

 +1        WRITE !

           SET ABPAMESS="End of display...press any key to continue"

 +2        DO PAUSE^ABPAMAIN

           GOTO PAT

 +3       ;

XIT        KILL ABPARECV,ABPAPD,ABPAENT,ABPADDFN,ABPATDFN,ABPADT,ABPADTD,ABPAPAT,D

 +1        KILL ABPA,ABPAL,DIC,C,ABPADT,ABPAQKS,ABPAQK,ABPAHRN,ABPARECV,DA,J,K,Z,XQH

END        KILL ABPAC,ABPAI,ABPAXX,ABPAINS,DIE,DR,%DT,ABPAX,ABPAZ,ABPAPDT,QFLG

           QUIT