INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 06, 2003
HELP-PROMPT: Type a Number between 1 and 9999999, 0 Decimal Digits
DESCRIPTION:
This .01 field contains a number that represents the record number of the drug in the VistA server's Drug file. It is used in the workstation file to prevent the possibility of filing duplicate drug names.
CROSS-REFERENCE: 53.703^B
1)= S ^ALPB(53.7,DA(2),2,DA(1),7,"B",$E(X,1,30),DA)=""
2)= K ^ALPB(53.7,DA(2),2,DA(1),7,"B",$E(X,1,30),DA)