| Name | Value |
|---|---|
| NAME | PSO SC RX COPAY NEW |
| ABBREVIATION | SC COPAY |
| CHARGE CATEGORY | RX CO-PAYMENT/SC VET |
| SEQUENCE NUMBER | NEW |
| CANCELLATION ACTION TYPE | PSO SC RX COPAY CANCEL |
| UPDATE ACTION TYPE | PSO SC RX COPAY UPDATE |
| USER LOOKUP NAME | SC PHARMACY COPAY |
| NEW ACTION TYPE | PSO SC RX COPAY 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 |
| ELIGIBILITY LOGIC | S X=0,X1="",X2="" G:'$D(VAEL) 1^IBAERR I VAEL(4),+VAEL(3),'IBDOM S X=$S($P(VAEL(3),"^",2)<50:2,1:0) I X S:$$RXEXMT^IBARXEU0(DFN,DT) X=0 I X S X2=$P(^IBE(350.1,DA,0),"^",4) D COST^IBAUTL |