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.