Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^RAMIS(71.9

Package: Radiology Nuclear Medicine

Global: ^RAMIS(71.9


Information

FileMan FileNo FileMan Filename Package
71.9 RADIOPHARMACEUTICAL LOT Radiology Nuclear Medicine

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Radiology Nuclear Medicine 4 ^RAMIS(71.9    HL7 FIELD EXCEPTIONS    RADD3    RANMED1    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Radiology Nuclear Medicine 3 RADOSTIK    RANMED1    RANMPRT1    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Radiology Nuclear Medicine 1 NUC MED EXAM DATA(#70.2)[#70.21(13)]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Pharmacy Data Management 1 DRUG(#50)[5]    
Radiology Nuclear Medicine 1 RADIOPHARMACEUTICAL SOURCE(#71.8)[2]    

Fields, Total: 6

Field # Name Loc Type Details
.01 NUMBER/ID 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
2 SOURCE 0;2 POINTER TO RADIOPHARMACEUTICAL SOURCE FILE (#71.8)
************************REQUIRED FIELD************************
RADIOPHARMACEUTICAL SOURCE(#71.8)

  • 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.
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
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.
5 RADIOPHARM 0;5 POINTER TO DRUG FILE (#50) DRUG(#50)

  • LAST EDITED:  MAY 01, 2006
  • HELP-PROMPT:  Enter radiopharmaceutical associated with this Lot.
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 #.

External References

Name Field # of Occurrence
^%DT 3+1
EN^DDIOL IDWRITE+1, 3+1
Y^DIQ ID2+1
PAIR^RADD3 2+1
DUPL^RANMED1 .01TPL+1
$$EN5^RAPSAPI IDWRITE+1
$$FMDIFF^XLFDT 3+1
$$UP^XLFSTR .01+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(71.8 ID2+1
^RAMIS(71.8 - [#71.8] ID2+1
^RAMIS(71.9 - [#71.9] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID2+1, ID3+1, ID4+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 3+1*
%I ID2+1*!
>> C ID2+1*
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K)
>> DIC ID2+1
DT 3+1
U ID2+1, ID3+1, ID4+1
X .01+1!*, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K), 3+1*!, 4+1!
>> Y ID2+1*, 3+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All