Sub-Field: 50.6814

Parent File	Name	Number	Package
VA PRODUCT(#50.68)	ACTIVE INGREDIENTS	50.6814	National Drug File

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ACTIVE INGREDIENTS	0;1	POINTER TO DRUG INGREDIENTS FILE (#50.416)	DRUG INGREDIENTS(#50.416) INPUT TRANSFORM: `S DIC("S")="I $P($G(^(""VUID""),""^1""),""^"",2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X` LAST EDITED: `OCT 28, 2005` DESCRIPTION: `This is a pointer to the drug ingredients file.` TECHNICAL DESCR: SCREEN: `S DIC("S")="I $P($G(^(""VUID""),""^1""),""^"",2)"` EXPLANATION: `Only master VUID items are allowed.` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `50.6814^AC^MUMPS` `1)= D ING^PSNXREF` `2)= D KING^PSNXREF` `This cross reference updates the drug identifier multiple in the drug ingredients file/`
1	STRENGTH	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<1) X` LAST EDITED: `APR 24, 1998` HELP-PROMPT: `Answer must be 1-45 characters in length.` DESCRIPTION: `This is the strength of the ingredient.` AUDIT: `YES, ALWAYS`
2	UNITS	0;3	POINTER TO DRUG UNITS FILE (#50.607)	DRUG UNITS(#50.607) LAST EDITED: `APR 24, 1998` DESCRIPTION: `This is the unit of measure.` AUDIT: `YES, ALWAYS`

ACTIVE INGREDIENTS

0;1

POINTER TO DRUG INGREDIENTS FILE (#50.416)

INPUT TRANSFORM: S DIC("S")="I $P($G(^(""VUID""),""^1""),""^"",2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: OCT 28, 2005
DESCRIPTION:
This is a pointer to the drug ingredients file.
TECHNICAL DESCR:
SCREEN: S DIC("S")="I $P($G(^(""VUID""),""^1""),""^"",2)"
EXPLANATION: Only master VUID items are allowed.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 50.6814^AC^MUMPS
1)= D ING^PSNXREF
2)= D KING^PSNXREF
This cross reference updates the drug identifier multiple in the drug ingredients file/

STRENGTH

0;2

FREE TEXT

UNITS

0;3

POINTER TO DRUG UNITS FILE (#50.607)