- 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
