| 1 | FBAACCB2 ;AISC/CMR-CLERK CLOSE BATCH ;JUN 21, 1994
|
|---|
| 2 | ;;3.5;FEE BASIS;;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | PMNT ;displays check and cancellation information if any exist
|
|---|
| 5 | I $G(FBCK)]"" W !?4,">>>Check # ",FBCK I $G(FBCKDT) W " Date Paid: ",$$DATX^FBAAUTL(FBCKDT),$S(FBCKINT>0:" Interest: "_$FN(FBCKINT,",",2),1:""),"<<<" D
|
|---|
| 6 | .I FBDIS-FBCKINT'=+A2 W !,*7,?4,">>>Amount paid altered to $ ",$FN((FBDIS-FBCKINT),",",2)," on the Fee Payment Voucher document.<<<"
|
|---|
| 7 | I $G(FBCANDT)>0 W !?4,">>>Check cancelled on: ",$$DATX^FBAAUTL(FBCANDT) I +FBCANR W " Reason: ",$P($G(^FB(162.95,+FBCANR,0)),"^"),"<<<" D
|
|---|
| 8 | .W !,?7,$S(FBCAN="R":"Check WILL be replaced.",FBCAN="C":"Check WILL be re-issued.",FBCAN="X":"Check WILL NOT be replaced.",1:"")
|
|---|
| 9 | PMTCLN K FBCAN,FBCK,FBCKDT,FBCANDT,FBCANR,FBCKINT,FBDIS,FBCKIN
|
|---|
| 10 | Q
|
|---|
| 11 | FBCKO(J,K,L,M) ;set outpatient check variables
|
|---|
| 12 | ;J,K,L,M must be defined to DA(3),DA(2),DA(1) and DA respectively
|
|---|
| 13 | I 'J!('K)!('L)!('M) S (FBCAN,FBCK,FBCANDT,FBCANR,FBDIS,FBCKINT,FBCKDT)="" Q
|
|---|
| 14 | S FBCKIN=$G(^FBAAC(J,1,K,1,L,1,M,2))
|
|---|
| 15 | S FBCAN=$P(FBCKIN,"^",6),FBCK=$P(FBCKIN,"^",3),FBCANDT=$P(FBCKIN,"^",4),FBCANR=$P(FBCKIN,"^",5),FBDIS=$P(FBCKIN,"^",8),FBCKINT=$P(FBCKIN,"^",9)
|
|---|
| 16 | S FBCKDT=$P($G(^FBAAC(J,1,K,1,L,1,M,0)),"^",14)
|
|---|
| 17 | K FBCKIN
|
|---|
| 18 | Q
|
|---|
