CCN (RX) UPDATE (152)    IB ACTION TYPE (350.1)

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