Sub-Field: 50.21

This is the IV drug which is a member of this category.  It is a pointer to either the IV SOLUTIONS file (52.7) or the IV ADDITIVES file (52.6), depending on the drug selected.

1)= S ^PS(50.2,DA(1),1,"B",$E(X,1,30),DA)=""

2)= K ^PS(50.2,DA(1),1,"B",$E(X,1,30),DA)

3)= Required Index for Variable Pointer

1)= S X=$S($D(@("^"_$P(X,";",2)_+X_",0)")):$P(^(0),"^",2),1:""),DIU=$S($D(^PS(50.2,DA(1),1,DA,0)):$P(^(0),"^",2),1:"") I X'=DIU S $P(^(0),"^",2)=X I $O(^DD(50.21,1,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV=X,DIH=5

0.21,DIG=1 D ^DICR

2)= S X="",DIU=$S($D(^PS(50.2,DA(1),1,DA,0)):$P(^(0),"^",2),1:"") I DIU]"" S $P(^(0),"^",2)=X I $O(^DD(50.21,1,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV=X,DIH=50.21,DIG=1 D ^DICR

3)= DON'T DELETE - HOMEGROWN EXTENDED TRIGGER FOR A VP - CML3

CREATE VALUE)= IV DRUG:GENERIC DRUG

DELETE VALUE)= @

FIELD)= GENERIC DRUG

Triggers data into sub-field (1).

This is the generic name of the IV drug, and is a pointer to the DRUG file (50).

UNEDITABLE

1)= S ^PS(50.2,"AD",DA(1),X)=""

2)= K ^PS(50.2,"AD",DA(1),X)

Cross-reference by: IV Drug, Generic Drug.

S ^PS(50.2,"AD",IV DRUG,GENERIC DRUG)=""