FEE SERV NSC RX COPAY UPDATE (116)    IB ACTION TYPE (350.1)

Name Value
NAME FEE SERV NSC RX COPAY UPDATE
ABBREVIATION UPD FNSC
CHARGE CATEGORY RX CO-PAYMENT/NSC VET
SEQUENCE NUMBER UPDATE
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
PLACE ON HOLD YES
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