CCN (RX) NEW (151)    IB ACTION TYPE (350.1)

Name Value
NAME CCN (RX) NEW
ABBREVIATION NEW CCNR
CHARGE CATEGORY CCN RX CO-PAYMENT
SERVICE File: 49, IEN: 0
SEQUENCE NUMBER NEW
CANCELLATION ACTION TYPE CCN (RX) CANCEL
UPDATE ACTION TYPE CCN (RX) UPDATE
USER LOOKUP NAME CCN RX COPAY
NEW ACTION TYPE CCN (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