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)