CHOICE (RX) CANCEL (126)    IB ACTION TYPE (350.1)

Name Value
NAME CHOICE (RX) CANCEL
ABBREVIATION CAN CCCR
CHARGE CATEGORY CHOICE RX CO-PAYMENT
SERVICE File: 49, IEN: 0
SEQUENCE NUMBER CANCEL
CANCELLATION ACTION TYPE CHOICE (RX) CANCEL
UPDATE ACTION TYPE CHOICE (RX) UPDATE
NEW ACTION TYPE CHOICE (RX) NEW
BILLING GROUP RX COPAY
INACTIVE 1
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