Routine: RADEM

Package	Total	Call Graph
Radiology Nuclear Medicine	4	(,Q)^RADEM1 $$VETELI^RADEM2 ^RASERV ($$SSN,D)^RAUTL
VA Fileman	3	^%DTC ^DIC ^DIR
Adverse Reaction Tracking	2	^GMRADPT $$ORCHK^GMRAOR
Kernel	1	HOME^%ZIS
Registration	1	ADD^VADPT

Package

Total

Call Graph

Radiology Nuclear Medicine

(,Q)^RADEM1 $$VETELI^RADEM2 ^RASERV ($$SSN,D)^RAUTL

VA Fileman

^%DTC ^DIC ^DIR

Adverse Reaction Tracking

^GMRADPT $$ORCHK^GMRAOR

Kernel

HOME^%ZIS

Registration

ADD^VADPT

Package	Total	Caller Graph
Radiology Nuclear Medicine	5	RA PROFDEMOS RADEM2 RAHLQ1 RAHLR RAHLR1A

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA PROFDEMOS RADEM2 RAHLQ1 RAHLR RAHLR1A

Name	Field # of Occurrence
^%DTC	PAT
HOME^%ZIS	DIS
^DIC	RADFN
^DIR	DIS+17
^GMRADPT	ALLERGY+4
$$ORCHK^GMRAOR	PAT+14
^RADEM1	Q+2
Q^RADEM1	DIS+21
$$VETELI^RADEM2	PAT+12
^RASERV	PAT+19
$$SSN^RAUTL	PAT
D^RAUTL	PAT+2
ADD^VADPT	PAT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF," ********* Patient Demographics *********",! Line Location: DIS+0
Function Call: WRITE	Prompt: !?2,"Name : ",$E(RANME,1,20),?40,"Address: ",?50,$G(RAPA(1)) Line Location: DIS+1
Function Call: WRITE	Prompt: !?2,"Pt ID : ",RASSN,?38,$S($G(RAPA(9))]"":"(temporary)",1:""),?50,$G(RAPA(2)) Line Location: DIS+2
Function Call: WRITE	Prompt: !?2,"Date of Birth: ",RADOB,?50,$G(RAPA(3)) Line Location: DIS+3
Function Call: WRITE	Prompt: !?2,"Age : ",RAGE,?50,$G(RATWN) Line Location: DIS+4
Function Call: WRITE	Prompt: !?2,"Veteran : ",RAVET Line Location: DIS+5
Function Call: WRITE	Prompt: ?40,"Currently is an inpatient." Condition for execution: $D(RAWARD) Line Location: DIS+5
Function Call: WRITE	Prompt: !?2,"Eligibility : ",RAELIG Line Location: DIS+6
Function Call: WRITE	Prompt: ?42,"Ward : ",RAWARD Condition for execution: $D(RAWARD) Line Location: DIS+6
Function Call: WRITE	Prompt: !?2,"Exam Category: ",RAUSAL Line Location: DIS+7
Function Call: WRITE	Prompt: ?42,"Service : ",RASER Condition for execution: $D(RASER) Line Location: DIS+7
Function Call: WRITE	Prompt: !?2,"Sex : ",RASEX Line Location: DIS+8
Function Call: WRITE	Prompt: ?42,"Bedsection : ",RABED Condition for execution: $D(RABED) Line Location: DIS+8
Function Call: WRITE	Prompt: !?2,"Phone Number : ",$G(RAPA(8)) Line Location: DIS+9
Function Call: WRITE	Prompt: !?2,"Narrative : ",^(1) Line Location: DIS+10
Function Call: WRITE	Prompt: !!?2,"Contrast Medium Reaction: ",RAMED Line Location: DIS+11
Function Call: WRITE	Prompt: !,?2,"Other Allergies:",!?7,"'V' denotes verified allergy 'N' denotes non-verified allergy",! Line Location: DIS+12
Function Call: WRITE	Prompt: !?20," No allergies on file " Line Location: DIS+13
Function Call: WRITE	Prompt: @IOF,!,?2,"Other Allergies:",!?7,"'V' denotes verified allergy 'N' denotes non-verified allergy",! Line Location: DIS+18
Function Call: WRITE	Prompt: !!?2,$C(7),"** Patient has died **" Line Location: Q+0
Routine Call	%ZIS Line Location: DIS
Routine Call	DIC Line Location: RADFN
Routine Call	DIR Line Location: DIS+17

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ALLERGY+2
^DD(70	PAT+16
^DIC(5 - [#5]	PAT+10
^DPT - [#2]	PAT, PAT+19, Q
^RADPT - [#70]	PAT+15, DIS+10

Name	Line Occurrences
ALLERGY	DIS+13
PAT	RADFN
Q	PAT, DIS+13

Name	Field # of Occurrence
^(	PAT+19, Q
^(0	PAT, PAT+15
^(1	DIS+10

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	Q+1!
%H	Q+1!
CNT	ALLERGY+3~, ALLERGY+5, ALLERGY+6, ALLERGY+7
>> DFN	PAT+4, DIS+13, ALLERGY+4
DIC	RADFN*!
DIC(0	RADFN*
DIR	DIS+17~
DIR(0	DIS+17*
DT	PAT, PAT+1
GMRAL	DIS+13, Q+2!, ALLERGY+4
GMRAL(	ALLERGY+6, ALLERGY+7
I	DIS+14, DIS+15, DIS+16, Q+2!, ALLERGY+3~, ALLERGY+5, ALLERGY+6*, ALLERGY+7
IOF	DIS, DIS+18
IOSL	DIS+16
IOST	DIS+16
PI	Q+1!
PI(	DIS+14, DIS+15, DIS+16, ALLERGY+6, ALLERGY+7
POP	Q+1!
RABED	DIS+8, Q+2!
>> RADFN	PAT, PAT+4, PAT+12, PAT+14, PAT+15, PAT+19, DIS+10, DIS+13, Q, RADFN*
RADOB	PAT, PAT+1, PAT+2, DIS+3, Q+1!
RAELIG	PAT+13*, DIS+6, Q+1!
RAGE	PAT, PAT+1, DIS+4, Q+1!
RAI	PAT+6*, Q+1!
RAMED	PAT+14*, DIS+11, Q+1!
RANME	PAT*, DIS+1, Q+1!
RAPA	PAT+4!, Q+1!
RAPA(	PAT+6*
RAPA(1	DIS+1
RAPA(2	DIS+2
RAPA(3	DIS+3
RAPA(4	PAT+10
RAPA(5	PAT+10
RAPA(6	PAT+10
RAPA(8	PAT+7*, DIS+9
RAPA(9	DIS+2
RASER	DIS+7, Q+2!
RASEX	PAT*, DIS+8, Q+1!
RASSN	PAT*, DIS+2, Q+2!
RATWN	PAT+7, PAT+10, DIS+4, Q+1!
RAUSAL	PAT+14, PAT+16, PAT+17*, DIS+7, Q+2!
RAVET	PAT+13*, DIS+5, Q+2!
RAVETELI	PAT+12~*, PAT+13
RAWARD	DIS+5, DIS+6, Q+2!
RAWD	Q+1!
>> RAXIT	DIS+14, DIS+17, DIS+21
ST	Q+2!
U	PAT+10
VAERR	PAT+4!, PAT+5, PAT+9, Q+2!
VAIN	Q+2!
VAROOT	PAT+4*!
>> X	PAT, ALLERGY+2*
>> X1	PAT*
>> X2	PAT*
>> Y	PAT, PAT+2, PAT+14, PAT+15, PAT+16, DIS+17, RADFN

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RADEM

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: