Sub-Field: 50.21

Parent File	Name	Number	Package
IV CATEGORY(#50.2)	IV DRUG	50.21	Inpatient Medications

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	IV DRUG	0;1	VARIABLE POINTER	IV ADDITIVES(#52.6) IV SOLUTIONS(#52.7) EXPLANATION: `Entry must have a corresponding Generic Drug` `SCREEN ON FILE 52.7: S DIC("S")="I $P(^(0),""^"",2)"` EXPLANATION: `Entry must have a corresponding Generic Drug` DESCRIPTION: `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.` GROUP: `PSJI` CROSS-REFERENCE: `50.21^B` `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` CROSS-REFERENCE: `^^TRIGGER^50.21^1` `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).`
1	GENERIC DRUG	0;2	POINTER TO DRUG FILE (#50)	**********************REQUIRED FIELD********************** DRUG(#50) LAST EDITED: `MAY 02, 1989` DESCRIPTION: `This is the generic name of the IV drug, and is a pointer to the DRUG file (50).` GROUP: `PSJI` `UNEDITABLE` NOTES: `TRIGGERED by the IV DRUG field of the IV DRUG sub-field of the IV CATEGORY File` CROSS-REFERENCE: `50.2^AD^MUMPS` `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)=""`

.01

IV DRUG

0;1

VARIABLE POINTER

IV ADDITIVES(#52.6) IV SOLUTIONS(#52.7)

EXPLANATION: Entry must have a corresponding Generic Drug
SCREEN ON FILE 52.7: S DIC("S")="I $P(^(0),""^"",2)"
EXPLANATION: Entry must have a corresponding Generic Drug
DESCRIPTION:
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.
GROUP: PSJI
CROSS-REFERENCE: 50.21^B
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
CROSS-REFERENCE: ^^TRIGGER^50.21^1
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).

GENERIC DRUG

0;2

POINTER TO DRUG FILE (#50)

************************REQUIRED FIELD************************

DRUG(#50)

LAST EDITED: MAY 02, 1989
DESCRIPTION:
This is the generic name of the IV drug, and is a pointer to the DRUG file (50).
GROUP: PSJI
UNEDITABLE
NOTES: TRIGGERED by the IV DRUG field of the IV DRUG sub-field of the IV CATEGORY File
CROSS-REFERENCE: 50.2^AD^MUMPS
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)=""

Customize PDF page

Package: Inpatient Medications

IV CATEGORY(#50.2)-->50.21

Sub-Field: 50.21

Information

Details