ABPAPD2.m

ABPAPD2 ;PVT-INS PYMT ENTRY CONTINUED; [ 08/07/91  4:54 PM ]

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

FRDT S X="--- SERVICE PERIOD(S) ---" W !!?(40-($L(X)/2)),X

 K %DT S %DT("A")="For DATES OF SERVICE from: "

 S %DT="AEPX",%DT(0)=DT*-1 W ! D ^%DT I +Y<0 D  G ^ABPAPD1

 .L ^ABPVAO(ABPATDFN)

 S ABPAFRDT=+Y,%DT("B")=X

TODT S %DT("A")="                       To: ",%DT="AEPX"

 S %DT(0)=DT*-1 D ^%DT G:+Y<0 FRDT S ABPATODT=+Y

 I ABPAFRDT>ABPATODT D  G FRDT

 .W *7,!!?10,"<<< ERROR - THE END IS BEFORE THE BEGINNING >>>"

A0 D ^ABPAPD2C G:+ABPACCNT'>0 ^ABPAPD1 K DIR

 S DIR("A")="IS THIS CORRECT (1-Yes, 2-No, 3-Cancel): ",DIR("B")=3

 S DIR(0)="SOAB^1:Yes;2:No;3:Cancel;" D ^DIR G ^ABPAPD2B:+Y=1

YN I +Y=3 L ^ABPVAO(ABPATDFN) G ^ABPAPD1

 ;

SCREEN K DIC,DIE,DA,DR,X,Y,DIR S DIR(0)="NO^1:"_ABPACCNT

 S DIR("A")="Select CLAIM NUMBER TO SCREEN OUT " D ^DIR G:+Y<1 A0

 I $D(ABPA("C",+Y))=1 D  G SCREEN

 .S ABPACSCR(ABPA("C",+Y))="" W " ...done!"

 W " ...not screened out!" G SCREEN

 ;

KILL K ABPACAMT,D0,DIC,DIE,DA,DR,ABPA("QF"),ABPADOS,ABPA("I")

 K ABPA("II"),ABPAPTR,ABPADATA,ABPATYPE,ABPASTAT Q

ABPAPD2   ;PVT-INS PYMT ENTRY CONTINUED; [ 08/07/91  4:54 PM ]

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

FRDT       SET X="--- SERVICE PERIOD(S) ---"

           WRITE !!?(40-($LENGTH(X)/2)),X

 +1        KILL %DT

           SET %DT("A")="For DATES OF SERVICE from: "

 +2        SET %DT="AEPX"

           SET %DT(0)=DT*-1

           WRITE !

           DO ^%DT

           IF +Y<0

               Begin DoDot:1

 +3                LOCK ^ABPVAO(ABPATDFN)

               End DoDot:1

               GOTO ^ABPAPD1

 +4        SET ABPAFRDT=+Y

           SET %DT("B")=X

TODT       SET %DT("A")="                       To: "

           SET %DT="AEPX"

 +1        SET %DT(0)=DT*-1

           DO ^%DT

           IF +Y<0

               GOTO FRDT

           SET ABPATODT=+Y

 +2        IF ABPAFRDT>ABPATODT

               Begin DoDot:1

 +3                WRITE *7,!!?10,"<<< ERROR - THE END IS BEFORE THE BEGINNING >>>"

               End DoDot:1

               GOTO FRDT

A0         DO ^ABPAPD2C

           IF +ABPACCNT'>0

               GOTO ^ABPAPD1

           KILL DIR

 +1        SET DIR("A")="IS THIS CORRECT (1-Yes, 2-No, 3-Cancel): "

           SET DIR("B")=3

 +2        SET DIR(0)="SOAB^1:Yes;2:No;3:Cancel;"

           DO ^DIR

           IF +Y=1

               GOTO ^ABPAPD2B

YN         IF +Y=3

               LOCK ^ABPVAO(ABPATDFN)

               GOTO ^ABPAPD1

 +1       ;

SCREEN     KILL DIC,DIE,DA,DR,X,Y,DIR

           SET DIR(0)="NO^1:"_ABPACCNT

 +1        SET DIR("A")="Select CLAIM NUMBER TO SCREEN OUT "

           DO ^DIR

           IF +Y<1

               GOTO A0

 +2        IF $DATA(ABPA("C",+Y))=1

               Begin DoDot:1

 +3                SET ABPACSCR(ABPA("C",+Y))=""

                   WRITE " ...done!"

               End DoDot:1

               GOTO SCREEN

 +4        WRITE " ...not screened out!"

           GOTO SCREEN

 +5       ;

KILL       KILL ABPACAMT,D0,DIC,DIE,DA,DR,ABPA("QF"),ABPADOS,ABPA("I")

 +1        KILL ABPA("II"),ABPAPTR,ABPADATA,ABPATYPE,ABPASTAT

           QUIT