Sub-Field: 50.037

Parent File	Name	Number	Package
DRUG(#50)	DRUG TEXT ENTRY	50.037	Pharmacy Data Management

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DRUG TEXT ENTRY	0;1	POINTER TO DRUG TEXT FILE (#51.7)	DRUG TEXT(#51.7) INPUT TRANSFORM: `S DIC("S")="N ZC S ZC=$P($G(^PS(51.7,+Y,0)),""^"",2) I $S('ZC:1,1:ZC>DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 01, 2000` HELP-PROMPT: `This field is used to associate a drug entry with text entries in the DRUG TEXT file (#51.7).` DESCRIPTION: `This field points to various drug text entries located in the DRUG TEXT file (#51.7).` SCREEN: `S DIC("S")="N ZC S ZC=$P($G(^PS(51.7,+Y,0)),""^"",2) I $S('ZC:1,1:ZC>DT)"` EXPLANATION: `This is used to screen out inactive entries.` CROSS-REFERENCE: `50.037^B` `1)= S ^PSDRUG(DA(1),9,"B",$E(X,1,30),DA)=""` `2)= K ^PSDRUG(DA(1),9,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `50^DTXT` `1)= S ^PSDRUG("DTXT",$E(X,1,30),DA(1),DA)=""` `2)= K ^PSDRUG("DTXT",$E(X,1,30),DA(1),DA)` `3)= Do Not Delete` `This cross-reference is used to lookup entries linked to a Drug Text entry.`

DRUG TEXT ENTRY

0;1

POINTER TO DRUG TEXT FILE (#51.7)

INPUT TRANSFORM: S DIC("S")="N ZC S ZC=$P($G(^PS(51.7,+Y,0)),""^"",2) I $S('ZC:1,1:ZC>DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 01, 2000
HELP-PROMPT: This field is used to associate a drug entry with text entries in the DRUG TEXT file (#51.7).
DESCRIPTION:
This field points to various drug text entries located in the DRUG TEXT file (#51.7).
SCREEN: S DIC("S")="N ZC S ZC=$P($G(^PS(51.7,+Y,0)),""^"",2) I $S('ZC:1,1:ZC>DT)"
EXPLANATION: This is used to screen out inactive entries.
CROSS-REFERENCE: 50.037^B
1)= S ^PSDRUG(DA(1),9,"B",$E(X,1,30),DA)=""
2)= K ^PSDRUG(DA(1),9,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 50^DTXT
1)= S ^PSDRUG("DTXT",$E(X,1,30),DA(1),DA)=""
2)= K ^PSDRUG("DTXT",$E(X,1,30),DA(1),DA)
3)= Do Not Delete
This cross-reference is used to lookup entries linked to a Drug Text entry.