; Set new entries into the IB ACTION STATUS (#350.21) file.
FT
; Update called routine for form type HCFA 1500
PSO
; Update the eligibility logic for PSO SC RX COPAY NEW
CRES
; Update the cancellation reason MT CHARGE EDITED in file #350.3
ABP
; Set auto biller parameters.
BASC
; Update the BASC start date to 10/1/99.
NEWCODE
;;S X=0,X1="",X2="" G:'$D(VAEL) 1^IBAERR I VAEL(4),+VAEL(3),'IBDOM S X=$S($P(VAEL(3),"^",2)<50:2,1:0) I X S:$$RXEXMT^IBARXEU0(DFN,DT) X=0 I X S X2=$P(^IBE(350.1,DA,0),"^",4) D COST^IBAUTL
CCMG
; Update the central collection mailgroup in file #350.9
ACHG
; Clean up any IB ACTION CHARGE (#350.2) nodes left hanging.