Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RAIENVCK

Package: Radiology Nuclear Medicine

Routine: RAIENVCK


Information

RAIENVCK ;HIRMFO/GJC-Environmental Check Routine ;5/16/97 08:50

Source Information

Source file <RAIENVCK.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 ^DIC  $$GET1^DIQ  
Kernel 1 $$PATCH^XPDUTL  

Entry Points

Name Comments DBIA/ICR reference
VERSION ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
EN1 ; Version 5.0 environment check routine for Radiology/Nuclear Medicine.
XIT ; Exit point, kill variables then quit application.
CLEANUP() ; Check if the 'Radiology/Nuclear Medicine Cleanup 5.0'
; distribution has been loaded and is resident in the transport global.
; Output: 0 if not loaded -OR- not resident in transport global
; 1 if ok to proceed (loaded & transport global present)
ERR792 ; Error messages for an incomplete Imaging Type file. Needed are the
; imaging type abbreviations for those imaging types which will use
; radiopharmaceuticals.
TEXT ; Check I-Type & abbreviation of file 79.2 against those listed below.

External References

Name Field # of Occurrence
^DIC CLEANUP+6
$$GET1^DIQ CLEANUP+7
$$PATCH^XPDUTL EN1+31

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"DUZ and DUZ(0) must be defined as an active user to initialize"
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !?5,"the RADIOLOGY/NUCLEAR MEDICINE v",$P($T(+2),";",3)
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: " software.",$C(7)
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !?5,"You must have programmer access i.e, DUZ(0)=@, to run this "
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: "init!",$C(7)
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !!?3,"The Imaging type abbreviated as: "_RATXT(2)
  • Line Location: EN1+19
Function Call: WRITE
  • Prompt: !?3,"is missing. ("_RATXT(1)_")"
  • Line Location: EN1+20
Function Call: WRITE
  • Prompt: !!?3,"Patch 2 (RA*4.5*2) must be installed before"
  • Line Location: EN1+27
Function Call: WRITE
  • Prompt: " RADIOLOGY/NUCLEAR",!?3,"MEDICINE v",$P($T(+2),";",3)
  • Line Location: EN1+28
Function Call: WRITE
  • Prompt: " can be installed!",$C(7)
  • Line Location: EN1+29
Function Call: WRITE
  • Prompt: !!?3,"Patch 10 (RA*4.5*10) must be installed before"
  • Line Location: EN1+32
Function Call: WRITE
  • Prompt: " RADIOLOGY/NUCLEAR",!?3,"MEDICINE v",$P($T(+2),";",3)
  • Line Location: EN1+33
Function Call: WRITE
  • Prompt: " can be installed!",$C(7)
  • Line Location: EN1+34
Function Call: WRITE
  • Prompt: !!?3,"RADIOLOGY/NUCLEAR MEDICINE CLEANUP v",$P($T(+2),";",3)
  • Line Location: EN1+37
Function Call: WRITE
  • Prompt: " must be loaded and reside",!?3,"in the transport global before"
  • Line Location: EN1+38
Function Call: WRITE
  • Prompt: " RADIOLOGY/NUCLEAR MEDICINE v",$P($T(+2),";",3)
  • Line Location: EN1+39
Function Call: WRITE
  • Prompt: !?3,"can be installed!",!,$C(7)
  • Line Location: EN1+40
Function Call: WRITE
  • Prompt: !!?3,"The Imaging Type file must have these imaging type"
  • Line Location: ERR792+3
Function Call: WRITE
  • Prompt: !?3,"abbreviations before the package can be updated from"
  • Line Location: ERR792+4
Function Call: WRITE
  • Prompt: !?3,"version 4.5 to 5.0:",!
  • Line Location: ERR792+5
Function Call: WRITE
  • Prompt: !?5,"CARD - Cardiology Studies (Nuc Med)"
  • Line Location: ERR792+6
Function Call: WRITE
  • Prompt: !?5,"NM - Nuclear Medicine"
  • Line Location: ERR792+7
Function Call: WRITE
  • Prompt: !!?3,"Package installation cannot proceed. Contact the Radiology/"
  • Line Location: ERR792+8
Function Call: WRITE
  • Prompt: !?3,"Nuclear Medicine ADPAC for assistance.",$C(7)
  • Line Location: ERR792+9
Routine Call
  • DIC
  • Line Location:
    • CLEANUP+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XPD(9.7 - [#9.7] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(70 EN1+14
^RA(78.7 - [#78.7] EN1+25, EN1+26
^RA(79.2 - [#79.2] EN1+17
^RADPT(0 EN1+10
^XTMP("XPDI" CLEANUP+9

Label References

Name Line Occurrences
$$CLEANUP EN1+36
ERR792 EN1+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CLEANUP+4~
DIC CLEANUP+4~, CLEANUP+6*
DIC(0 CLEANUP+6*
DUZ EN1+1
DUZ(0 EN1+1, EN1+6
RA787 EN1+25*, EN1+26, XIT+1!
RAFLG EN1+13*, EN1+18*, EN1+24, XIT+1!
RAI EN1+15*, XIT+1!
RASTAT CLEANUP+4~, CLEANUP+7*, CLEANUP+8
RATXT EN1+15*, EN1+16, XIT+1!
RATXT(1 EN1+16*, EN1+20
RATXT(2 EN1+16*, EN1+17, EN1+19
X CLEANUP+4~, CLEANUP+5*
>> XPDABORT EN1+1*, EN1+6*, EN1+18*, EN1+29*, EN1+34*, EN1+40*
Y CLEANUP+4~, CLEANUP+6, CLEANUP+7, CLEANUP+9

Marked Items

Name Field # of Occurrence
$T( EN1+3, EN1+28, EN1+33, EN1+37, EN1+39, CLEANUP+5
$T(TEXT+RAI EN1+15
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All