CC (RX) NEW (139)    IB ACTION TYPE (350.1)

Name Value
NAME CC (RX) NEW
ABBREVIATION NEW CCRX
CHARGE CATEGORY CC RX CO-PAYMENT
SERVICE File: 49, IEN: 0
SEQUENCE NUMBER NEW
CANCELLATION ACTION TYPE CC (RX) CANCEL
UPDATE ACTION TYPE CC (RX) UPDATE
USER LOOKUP NAME CC RX COPAY
NEW ACTION TYPE CC (RX) NEW
PLACE ON HOLD YES
BILLING GROUP RX COPAY
PARENT TRACE LOGIC D PTL^IBAUTL
SET LOGIC S:'$D(^(10)) X="" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:"UNK") I $D(Y(0)) S X=X_"-"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'="":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:"UNK DRUG"),X=$E(X,1,18)_"-"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:"")
FULL PROFILE LOGIC I $D(X) D EN^PSOCPVW
ELIGIBILITY LOGIC S X=0,X1="",X2="" G:'$D(VAEL) 1^IBAERR I VAEL(4),'+VAEL(3),'IBDOM,'$$RXEXMT^IBARXEU0(DFN,DT) S X=1,X2=$P(^IBE(350.1,DA,0),"^",4) D COST^IBAUTL