Routine: RAIENVCK

Information

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

Source Information

Source file <RAIENVCK.m>

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
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.
EN1	; Version 5.0 environment check routine for Radiology/Nuclear Medicine.
VERSION	;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
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)

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 (RA4.52) 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 (RA4.510) 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

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

>>	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

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAIENVCK

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	EN1+3, EN1+28, EN1+33, EN1+37, EN1+39, CLEANUP+5
$T(TEXT+RAI	EN1+15