| 1 | FBAACO5 ;AISC/GRR-ENTER PAYMENT CONTINUED ;5/5/93 09:24
|
|---|
| 2 | ;;3.5;FEE BASIS;**73,79**;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | FILEV(DFN,FBV) ;files vendor multiple in outpatient payment file
|
|---|
| 5 | ;required input variable DFN,FBV (vendor ien)
|
|---|
| 6 | K FBAAOUT
|
|---|
| 7 | I '$G(DFN)!('FBV) S FBAAOUT=1 Q
|
|---|
| 8 | S:'$D(^FBAAC(DFN,1,0)) ^FBAAC(DFN,1,0)="^162.01P^0^0"
|
|---|
| 9 | S DLAYGO=162,DIC="^FBAAC("_DFN_",1,",DIC(0)="QLNM",DA(1)=DFN,X="`"_FBV D ^DIC K DIC,DLAYGO I Y<0 W !,*7,"Cannot select this Vendor at this time" S FBAAOUT=1 Q
|
|---|
| 10 | Q
|
|---|
| 11 | GETSVDT(DFN,FBV,FBASSOC,FBA,X) ;set date of service multiple
|
|---|
| 12 | ;required input DFN,FBV (vendor ien),FBASSOC (auth ptr,0 if not known)
|
|---|
| 13 | ;required input FBA (1=ask dt,0=do not ask dt)
|
|---|
| 14 | ;optional/required input X (dt) - X req if FBA=0 (do not ask)
|
|---|
| 15 | ;output FBSDI=ien of svc date mult,FBAADT=svc date
|
|---|
| 16 | TRYAGAIN ;
|
|---|
| 17 | K FBAAOUT
|
|---|
| 18 | I '$G(DFN)!('$G(FBV))!('$D(FBASSOC))!('$D(FBA)) S FBAAOUT=1 Q
|
|---|
| 19 | I FBA=0,('$G(X)) S FBAAOUT=1 Q
|
|---|
| 20 | I $G(FBA) S DIC("A")="Date of Service: ",DIC(0)="AEQLM"
|
|---|
| 21 | I '$G(FBA) S DIC(0)="QLMN"
|
|---|
| 22 | I '$D(^FBAAC(DFN,1,FBV,1,0)) S ^FBAAC(DFN,1,FBV,1,0)="^162.02DA^0^0"
|
|---|
| 23 | S DLAYGO=162,DA(2)=DFN,DA(1)=FBV,DIC="^FBAAC("_DFN_",1,"_FBV_",1," D ^DIC K DLAYGO,DIC,DA I X=""!(X="^")!(Y<0) S FBAAOUT=1 Q
|
|---|
| 24 | ;if date of service input transform called skip checks
|
|---|
| 25 | I $D(HOLDY) GOTO DONASK
|
|---|
| 26 | I $D(FBAAID),$P(Y,"^",2)>FBAAID W !!,*7,"Date of Service cannot be later than Invoice Date!",! G TRYAGAIN
|
|---|
| 27 | I $D(FBAABDT),$D(FBAAEDT),($P(Y,"^",2)<FBAABDT!($P(Y,"^",2)>FBAAEDT)) W !!,*7,"Date of Service ",$S($P(Y,"^",2)<FBAABDT:"prior to ",1:"later than "),"Authorization period.",! G TRYAGAIN
|
|---|
| 28 | DONASK ;
|
|---|
| 29 | S FBSDI=+Y,FBAADT=$P(Y,"^",2) I FBASSOC>0 S DA(2)=DFN,DA(1)=FBV,DA=FBSDI,DIE="^FBAAC("_DFN_",1,"_FBV_",1,",DR="3///^S X=FBASSOC" D ^DIE K DIE,DA,DR
|
|---|
| 30 | Q
|
|---|
