INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X?.APN) X S:$D(X) X=$$UP^XLFSTR(X)
LAST EDITED: AUG 26, 1996
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This field identifies the radiopharmaceutical lot. Alternatively, identifying names or numbers of batches, vials, syringes, or kits may also be recorded here.
PRE-LOOKUP: D DUPL^RANMED1
DELETE TEST: 1,0)= I 1 W *7,!,"Radiopharmaceutical lots cannot be deleted. "
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 71.9^B
1)= S ^RAMIS(71.9,"B",$E(X,1,30),DA)=""
2)= K ^RAMIS(71.9,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 71.9^TX^MUMPS
1)= S ^RAMIS(71.9,"TX",$E(X,1,30)_" ",DA)=""
2)= K ^RAMIS(71.9,"TX",$E(X,1,30)_" ",DA)
3)= Do not delete.
This cross-reference is necessary to convert all-numeric entries to text so that look-up can be done when the user enters the first few numbers rather than the entire field value.
INPUT TRANSFORM: S %DT="EXT" D ^%DT S X=Y K:Y<1!($$FMDIFF^XLFDT(Y,DT)>730.5)!($$FMDIFF^XLFDT(Y,DT)<-365.25) X D:'$D(X) EN^DDIOL("This date must be no more than 2 yrs in the future, or 1 yr in the past.","","!!?1")
LAST EDITED: MAY 14, 1999
HELP-PROMPT: Enter the expiration date of this radiopharmaceutical unit.
DESCRIPTION: This is the date this radiopharmaceutical unit expires. This field must be entered in order to print dosage tickets for exams associated with this radiopharmaceutical unit.
This date must be no more than 2 years in the future, and no more than 1 year in the past.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER