| 1 | FBAARR2 ;AISC/GRR-RE-INITIATE REJECTED LINE ITEMS ;13AUG86
|
|---|
| 2 | ;;3.5;FEE BASIS;;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | DELT ;TRAVEL LINE ITEM RE-INITIATE
|
|---|
| 5 | K QQ
|
|---|
| 6 | D GET^FBAAVR2 I '$D(^FBAAC("AG",B,J)) W !!,*7,"No payments rejected in this batch for that patient!" G DELT
|
|---|
| 7 | S (QQ,TM1,TM2)=0 W @IOF D HEDP^FBAACCB0
|
|---|
| 8 | F K=0:0 S K=$O(^FBAAC("AG",B,J,K)) Q:K'>0 S QQ=QQ+1,QQ(QQ)=J_"^"_K S Y(0)=^FBAAC(J,3,K,0) D SETT^FBAACCB0
|
|---|
| 9 | RLT S DIR(0)="N^1:"_QQ,DIR("A")="Re-initiate which line item" D ^DIR K DIR G:$D(DIRUT) ENDT S HX=X
|
|---|
| 10 | I '$D(QQ(HX)) W !!,*7,"You just did that one!!" G RLT
|
|---|
| 11 | RIN S DIR(0)="Y",DIR("A")="Are you sure you want to re-initiate line item number: "_HX,DIR("B")="NO" D ^DIR K DIR G:$D(DIRUT)!'Y RLT
|
|---|
| 12 | S J=$P(QQ(HX),"^",1),K=$P(QQ(HX),"^",2)
|
|---|
| 13 | D REJT^FBAARR1 S FBAAAP=$P(^FBAAC(J,3,K,0),"^",3),$P(^FBAA(161.7,FBNB,0),"^",9)=($P(^FBAA(161.7,FBNB,0),"^",9)+FBAAAP),$P(^(0),"^",11)=($P(^(0),"^",11)+1) K QQ(HX)
|
|---|
| 14 | RASK S DIR(0)="Y",DIR("A")=$S($G(FBERR):"",1:"Line Re-initiated. ")_"Want to re-initiate another",DIR("B")="YES" D ^DIR K DIR G RASK:$D(DIRUT),ENDT:'Y,DELT:Y
|
|---|
| 15 | ENDT I '$D(^FBAAC("AG",B)) S $P(^FBAA(161.7,B,0),"^",17)=""
|
|---|
| 16 | Q
|
|---|
| 17 | DELP ;PHARMACY LINE ITEM RE-INITIATE
|
|---|
| 18 | RDI K QQ W !! S DIC="^FBAA(162.1,",DIC(0)="AEQ" D ^DIC Q:X="^"!(X="") G:Y<0 RDI S A=+Y I '$D(^FBAA(162.1,"AF",B,A)) W !!,*7,"No payments rejected in this batch for that Invoice!" G RDI
|
|---|
| 19 | S (QQ,TM1,TM2)=0,FBIN=A W @IOF D SETV^FBAACCB0,HED^FBAACCB
|
|---|
| 20 | F B2=0:0 S B2=$O(^FBAA(162.1,"AF",B,A,B2)) Q:B2'>0 S QQ=QQ+1,QQ(QQ)=A_"^"_B2 S Z(0)=^FBAA(162.1,A,"RX",B2,0) D MORE^FBAACCB1
|
|---|
| 21 | RLP S DIR(0)="N^1:"_QQ,DIR("A")="Re-initiate which line item" D ^DIR K DIR G:$D(DIRUT) ENDP S HX=X
|
|---|
| 22 | I '$D(QQ(HX)) W !!,*7,"You just did that one!!" G RLP
|
|---|
| 23 | PRIN S DIR(0)="Y",DIR("A")="Are you sure you want to re-initiate item number: "_HX,DIR("B")="NO" D ^DIR K DIR G:$D(DIRUT)!'Y RLP
|
|---|
| 24 | S A=$P(QQ(HX),"^",1),B2=$P(QQ(HX),"^",2)
|
|---|
| 25 | I $P($G(^FBAA(162.1,A,"RX",B2,2)),"^",3)="V" S FBIN=A D VOID^FBAARR1 Q
|
|---|
| 26 | S FBPID=$P(^FBAA(162.1,A,"RX",B2,0),"^",5),$P(^(0),"^",17)=FBNB,FBAAAP=$P(^(0),"^",16),^FBAA(162.1,"AE",FBNB,A,B2)="",^FBAA(162.1,"AJ",FBNB,FBPID,A,B2)="" K ^FBAA(162.1,"AF",B,A,B2),^FBAA(162.1,A,"RX",B2,"FBREJ")
|
|---|
| 27 | S $P(^FBAA(161.7,FBNB,0),"^",9)=($P(^FBAA(161.7,FBNB,0),"^",9)+FBAAAP),$P(^(0),"^",11)=($P(^(0),"^",11)+1)
|
|---|
| 28 | PASK S DIR(0)="Y",DIR("A")=$S($G(FBERR):"",1:"Reject code deleted. ")_"Want to delete another",DIR("B")="YES" D ^DIR K DIR G PASK:$D(DIRUT),DELP:Y,ENDP
|
|---|
| 29 | ENDP I '$D(^FBAA(162.1,"AF",B)) S $P(^FBAA(161.7,B,0),"^",17)=""
|
|---|
| 30 | Q
|
|---|
