FEE SERV NSC RX COPAY NEW (114)    IB ACTION TYPE (350.1)

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