STANDARD DATA DICTIONARY #71.9 -- RADIOPHARMACEUTICAL LOT FILE 3/24/25 PAGE 1
STORED IN ^RAMIS(71.9, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used to record names of radiopharmaceutical lots, batches, vials, syringes, or kits at the discretion of the facility.
DD ACCESS: @
IDENTIFIED BY: SOURCE (#2)[R], EXPIRATION DATE (#3), KIT # (#4)
"WRITE": D EN^DDIOL($$EN5^RAPSAPI,"","?30")
POINTED TO BY: LOT NO. field (#13) of the RADIOPHARMACEUTICALS sub-field (#70.21) of the NUC MED EXAM DATA File (#70.2)
CROSS
REFERENCED BY: NUMBER/ID(B), SOURCE(C), NUMBER/ID(TX)
71.9,.01 NUMBER/ID 0;1 FREE TEXT (Required)
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.
71.9,2 SOURCE 0;2 POINTER TO RADIOPHARMACEUTICAL SOURCE FILE (#71.8) (Required)
INPUT TRANSFORM: D PAIR^RADD3 Q
LAST EDITED: AUG 26, 1996
HELP-PROMPT: Enter this source/vendor of the radiopharmaceutical unit.
DESCRIPTION:
This field identifies the source of this radiopharmaceutical lot, batch, vial, syringe, or kit.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 71.9^C
1)= S ^RAMIS(71.9,"C",$E(X,1,30),DA)=""
2)= K ^RAMIS(71.9,"C",$E(X,1,30),DA)
3)= Don't delete
This cross-reference is a regular look-up cross-reference necessary to be able to look up lots by
source/vendor.
71.9,3 EXPIRATION DATE 0;3 DATE
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
71.9,4 KIT # 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: JAN 02, 1997
HELP-PROMPT: Answer must be 1-15 characters in length.
DESCRIPTION:
This is the kit number for this radiopharmaceutical unit, if applicable.
71.9,5 RADIOPHARM 0;5 POINTER TO DRUG FILE (#50)
LAST EDITED: MAY 01, 2006
HELP-PROMPT: Enter radiopharmaceutical associated with this Lot.
71.9,6 INACTIVE 0;6 SET
'Y' FOR YES;
LAST EDITED: JAN 17, 1997
HELP-PROMPT: Enter Y if this Lot is not to be used anymore.
DESCRIPTION:
When a particularLot should not be used anymore, enter Y in this field to inactive the Lot #.
FILES POINTED TO FIELDS
DRUG (#50) RADIOPHARM (#5)
RADIOPHARMACEUTICAL SOURCE
(#71.8) SOURCE (#2)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):