| [613] | 1 | FBAAPP0 ;AISC/GRR-ENTER FEE PHARMACY DETERMINATION CONT ;4/27/2005
|
|---|
| 2 | ;;3.5;FEE BASIS;**61,91**;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | HELPI W !!,"Enter Invoice number you wish to make a determination on. Must",!,"be an invoice which is 'Pending Determination' status." G RDIN^FBAAPP
|
|---|
| 5 | ALRDY W !,*7,"Someone is editing that invoice now!" G RDIN^FBAAPP
|
|---|
| 6 | ;
|
|---|
| 7 | NO1 ;ASK PHARMACIST TO SPECIFY ADJUSTMENT REASON
|
|---|
| 8 | N FBX
|
|---|
| 9 | ; prompt for adjustments
|
|---|
| 10 | S FBX=$$ADJ^FBUTL2($P(FBY(0),U,4),.FBADJ,2) Q:FBX=0
|
|---|
| 11 | ; prompt for remittance remarks
|
|---|
| 12 | S FBX=$$RR^FBUTL4(.FBRRMK,2) Q:FBX=0
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | GOON ; entry point when prescription was denied by pharmacy
|
|---|
| 16 | S STAT=3,$P(FBY(0),"^",11)=0,$P(FBY(0),"^",14)=DUZ,$P(FBY(0),"^",15)=DT,$P(FBY(0),"^",9)=3,$P(FBY(0),"^",16)=0
|
|---|
| 17 | RSET ; entry point when prescription was not denied by pharmacy
|
|---|
| 18 | S $P(FBY(0),"^",21)=$S(FBAAGP="Yes":"Y",FBAAGP="No":"N",1:"")
|
|---|
| 19 | S $P(FBY(0),"^",22)=FBAAPR
|
|---|
| 20 | S ^FBAA(162.1,FBJ,"RX",FBK,0)=FBY(0)
|
|---|
| 21 | K ^FBAA(162.1,FBJ,"RX","AC",1,FBK) S ^FBAA(162.1,FBJ,"RX","AC",STAT,FBK)="",$P(^FBAA(162.1,FBJ,0),"^",5)=$S($D(^FBAA(162.1,FBJ,"RX","AC",1)):1,$D(^(2)):2,$D(^(3)):3,1:0)
|
|---|
| 22 | I '$D(^FBAA(162.1,FBJ,"RX","AC",1)) K ^FBAA(162.1,"AC",1,FBJ) S ^FBAA(162.1,"AC",2,FBJ)=""
|
|---|
| 23 | I $D(FBADJ) D
|
|---|
| 24 | . D FILEADJ^FBRXFA(FBK_","_FBJ_",",.FBADJ) ; file adjustments
|
|---|
| 25 | . D FILERR^FBRXFR(FBK_","_FBJ_",",.FBRRMK) ; file remittance remarks
|
|---|
| 26 | Q
|
|---|
