FEE SERV NSC RX COPAY CANCEL (115)    IB ACTION TYPE (350.1)

Name Value
NAME FEE SERV NSC RX COPAY CANCEL
ABBREVIATION CAN FNSC
CHARGE CATEGORY RX CO-PAYMENT/NSC VET
SEQUENCE NUMBER CANCEL
CANCELLATION ACTION TYPE FEE SERV NSC RX COPAY CANCEL
UPDATE ACTION TYPE FEE SERV NSC RX COPAY UPDATE
NEW ACTION TYPE FEE SERV NSC RX COPAY NEW
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