Routine: RADEM1

Package	Total	Call Graph
VA Fileman	6	C^%DTC $$EXTERNAL^DILFD Y^DIQ ^DIR ^DIWP ^DIWW
Radiology Nuclear Medicine	3	($$DATEPRT,$$SSANVAL,$$USESSAN)^RAHLRU1 D^RAUTL EN1^RAUTL20
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

VA Fileman

C^%DTC $$EXTERNAL^DILFD Y^DIQ ^DIR ^DIWP ^DIWW

Radiology Nuclear Medicine

($$DATEPRT,$$SSANVAL,$$USESSAN)^RAHLRU1 D^RAUTL EN1^RAUTL20

Kernel

$$FMTE^XLFDT

Package	Total	Caller Graph
Radiology Nuclear Medicine	5	RADEM RADEM2 RAORD1 RAORD6 RAPROD

Package

Total

Caller Graph

Radiology Nuclear Medicine

RADEM RADEM2 RAORD1 RAORD6 RAPROD

Entry Points

External References

Name	Field # of Occurrence
C^%DTC	EXAM+1
$$EXTERNAL^DILFD	CM+9
Y^DIQ	ORDER+9, ORDER+10
^DIR	PRT+24, ORDER+18
^DIWP	EXAM+12
^DIWW	EXAM+12
$$DATEPRT^RAHLRU1	PRT+21
$$SSANVAL^RAHLRU1	PRT+19
$$USESSAN^RAHLRU1	PRT+21, PRT+22, ORDER+11, ORDER+12, ORDER+15, ORDER+16, HDR+12, HDR+13, HDR+14, HDR+15
D^RAUTL	EXAM+2
EN1^RAUTL20	PRT+17
$$FMTE^XLFDT	ORDER+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRT+25
Function Call: WRITE	Prompt: !?18,$E(RA751(2),1,28),?56,"Ord " Line Location: ORDER+11
Function Call: WRITE	Prompt: !?10,$E(RA751(2),1,28),?51,"Ord " Line Location: ORDER+12
Function Call: WRITE	Prompt: $S(RA751(16)]"":$$FMTE^XLFDT(RA751(16),"2D"),1:"") Line Location: ORDER+13
Function Call: WRITE	Prompt: ?68,$E(RA751(20),1,12) Line Location: ORDER+15
Function Call: WRITE	Prompt: ?67,$E(RA751(20),1,12) Line Location: ORDER+16
Function Call: WRITE	Prompt: @IOF Line Location: ORDER+19
Function Call: WRITE	Prompt: !!,"Case #",?18,"Last 5 Procedures/New Orders",?47,"Exam Dt",?56,"Exam Status",?68,"Imaging Loc." Line Location: HDR+12
Function Call: WRITE	Prompt: !,"----------------",?18,"----------------------------",?47,"--------",?56,"-----------",?68,"------------" Line Location: HDR+13
Function Call: WRITE	Prompt: !!,"Case #",?10,"Last 5 Procedures/New Orders",?39,"Exam Date",?51,"Status of Exam",?67,"Imaging Loc." Line Location: HDR+14
Function Call: WRITE	Prompt: !,"------",?10,"----------------------------",?39,"---------",?51,"--------------",?67,"------------" Line Location: HDR+15
Routine Call	DIR Line Location: PRT+24 ORDER+18

FileNo	Call Tags
70.3225	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(75.1	ORDER+9, ORDER+10
^RA(72 - [#72]	PRT+11, PRT+12, PRT+15
^RA(79.1 - [#79.1]	RACN
^RA(79.2 - [#79.2]	PRT+13
^RADPT - [#70]	EXAM+2, RACN+1, PRT+3, PRT+4, PRT+7, CM+7, CM+8
^RADPT("AO"	ORDER+4
^RAMIS(71 - [#71]	PRT+1
^RAO(75.1 - [#75.1]	ORDER+3, ORDER+5, ORDER+6
^SC - [#44]	RACN
^UTILITY($J	EXAM+9!

Name	Line Occurrences
$$CM	EXAM+11
HDR	EXAM, PRT+25, ORDER+19
ORDER	EXAM+4
PRT	RACN+1
Q	EXAM+3
RACN	EXAM+2

Name	Field # of Occurrence
^(	EXAM+2, RACN+1
^(0	EXAM+2, RACN, RACN+1, PRT+1, PRT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	Q!
%H	Q!
>> C	ORDER+9, ORDER+10
DIC	Q!
DIR	PRT+24~, ORDER+18!
DIR(0	PRT+24, ORDER+18
DIROUT	ORDER+2~
DIRUT	ORDER+2~
DIWF	EXAM+9~, EXAM+12*
DIWL	EXAM+9~, EXAM+12*
DIWR	EXAM+9~
DIWT	EXAM+9~
DT	EXAM+1
DTIME	EXAM+14
DTOUT	ORDER+2~
DUOUT	ORDER+2~
I	CM+6~, CM+7, CM+8
I(0	CM+8*, CM+9
IOF	PRT+25, ORDER+19, HDR+9
IOSL	PRT+23, ORDER+17
IOST	PRT+23, ORDER+17
POP	Q!
RA751	ORDER+2~
RA751(0	ORDER+6*, ORDER+7, ORDER+8
RA751(16	ORDER+7*, ORDER+13
RA751(2	ORDER+6, ORDER+9, ORDER+11, ORDER+12
RA751(20	ORDER+7, ORDER+10, ORDER+15, ORDER+16
RA751(5	ORDER+8*
RABAR	Q!, PRT+1, PRT+3, PRT+4, PRT+6, PRT+21, PRT+22
RABARFL	EXAM+6, Q!, PRT+3*
RACHKDT	EXAM+1*, EXAM+2, Q!, RACN+1, PRT+3, PRT+4
RACHKDT1	EXAM+1*, Q!, PRT+5
RACN	Q!, PRT+15*, PRT+20, PRT+22
RACNDSP	PRT+19~, PRT+20*, PRT+21
RACNFL	EXAM+8, Q!, PRT+6*
RACNI	Q!, RACN+1*, PRT+3, PRT+4, PRT+7, PRT+19, CM~, CM+7, CM+8
RACODE	Q!, PRT+3, PRT+4, PRT+6*, PRT+21, PRT+22
RACONT	EXAM+14, Q!
RADATE	EXAM+2*, Q!, PRT+22
RADFN	EXAM+2, RACN+1, PRT+3, PRT+4, PRT+7, PRT+19, ORDER+3, ORDER+4, CM~, CM+7 , CM+8
RADISP	PRT+17~, PRT+18*, PRT+21, PRT+22
RADTE	EXAM+2*, Q!, RACN+1, PRT+3, PRT+4, PRT+5, PRT+21
RADTI	EXAM+2*, Q!, RACN+1, PRT+3, PRT+4, PRT+7, PRT+19, CM~, CM+7, CM+8
RAESITY	PRT~, PRT+12*, PRT+13
RAITYPE	PRT~, PRT+13, PRT+14, PRT+15
>> RALOC	EXAM+2, RACN, PRT+21, PRT+22
RALP	ORDER+2~, ORDER+3, ORDER+4, ORDER+5, ORDER+6
RAMEMLOW	PRT+17~, PRT+18
>> RAOPT("ORDEREXAM"	HDR+9, HDR+19!
RAORFL	EXAM+7, Q!, PRT+4*
RAPR1	Q!, PRT+1*, PRT+21, PRT+22
RAPRI	Q!, PRT+1*
RAPRTSET	PRT+17~, PRT+18
RASEQ	EXAM+2, EXAM+5, Q!, RACN+1, PRT+21, PRT+22*
RASSAN	PRT+19~*, PRT+20
RAST	Q!, PRT+11*, PRT+21, PRT+22
RASTI	Q!, PRT+10*, PRT+11, PRT+12, PRT+15
RAXIT	EXAM, EXAM+2, EXAM+3, EXAM+14, Q!, RACN+1, PRT+24, PRT+25, ORDER+2, ORDER+3 , ORDER+18, ORDER+19
RAZCNI	EXAM+11, Q!, PRT+7*
RAZDFN	EXAM+10, EXAM+11, Q!, PRT+7*
RAZDTI	EXAM+11, Q!, PRT+7*
U	PRT+2, PRT+12, PRT+13, ORDER+5, ORDER+6, ORDER+7, ORDER+8, ORDER+9, ORDER+10, CM+8
X	EXAM+1, EXAM+9~, EXAM+10, EXAM+11, EXAM+14, CM+6~, CM+9, CM+11, CM+12*, CM+13
>> X1	EXAM+1*
>> X2	EXAM+1*
>> Y	EXAM+2, RACN+1, PRT+1, PRT+2, PRT+10, PRT+15, PRT+24, ORDER+9, ORDER+10, ORDER+18

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RADEM1

Information

Source Information

Call Graph

Call Graph Total: 10

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:

Name	Comments	DBIA/ICR reference
HDR	; Header ; Created by GJC@1/3/94 ; modified for SSAN by RTK 3/19/09 ; The variable: RAOPT("ORDEREXAM") is defined in the entry action of ; the option RA ORDEREXAM. It is subsequently kill in the exit action ; of the option.
Q
PRT
CM(RADFN,RADTI,RACNI)	;Return the contrast media used while performing an
RACN
ORDER	; Check for pat rad orders before registering a patient in rad ; Created by GJC@1/3/94
EXAM