Sub-Field: 50.4161

Parent File	Name	Number	Package
DRUG INGREDIENTS(#50.416)	DRUG IDENTIFIER	50.4161	Pharmacy Data Management

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DRUG IDENTIFIER	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X?1.N1"A"1.N) X` LAST EDITED: `APR 24, 1990` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is the drug identifier.` AUDIT: `YES, ALWAYS` `UNEDITABLE` CROSS-REFERENCE: `50.4161^B` `1)= S ^PS(50.416,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^PS(50.416,DA(1),1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `50.416^APD^MUMPS` `1)= S ^PS(50.416,"APD",X,$S(+$P(^PS(50.416,DA(1),0),"^",2):+$P(^(0),"^",2),1:DA(1)))=""` `2)= K ^PS(50.416,"APD",X,$S(+$P(^PS(50.416,DA(1),0),"^",2):+$P(^(0),"^",2),1:DA(1)))` `3)= DO NOT DELETE.` `This cross-reference stores the drug identifier for look-up purposes. Cross-reference by VA Products containing Ingredient. In the form of: ^PS(50.416,"APD",Drug Identifier,DA)`

DRUG IDENTIFIER

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X?1.N1"A"1.N) X
LAST EDITED: APR 24, 1990
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This is the drug identifier.
AUDIT: YES, ALWAYS
UNEDITABLE
CROSS-REFERENCE: 50.4161^B
1)= S ^PS(50.416,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PS(50.416,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 50.416^APD^MUMPS
1)= S ^PS(50.416,"APD",X,$S(+$P(^PS(50.416,DA(1),0),"^",2):+$P(^(0),"^",2),1:DA(1)))=""
2)= K ^PS(50.416,"APD",X,$S(+$P(^PS(50.416,DA(1),0),"^",2):+$P(^(0),"^",2),1:DA(1)))
3)= DO NOT DELETE.
This cross-reference stores the drug identifier for look-up purposes. Cross-reference by VA Products containing Ingredient. In the form of: ^PS(50.416,"APD",Drug Identifier,DA)