Routine: RACTOE3

Package	Total	Call Graph
VA Fileman	12	^%DT ^DIC YN^DICN E^DIE0 (,F,FIREREC,M,N,OUT,UNIQFERR,Z)^DIE17 Z^DIE2 ^DIE3 (AST,NOSCR)^DIED QQ^DIEQ ^DIR RW^DIR2 DIEN^DIWE
Radiology Nuclear Medicine	4	^RACTOE4 UPDT^RAUTL3 $$VALWP^RAUTL5 ($$ASKSEX,$$PAOE,$$PTAGE)^RAUTL8

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RACTOE

Entry Points

Name	Comments	DBIA/ICR reference
X32
28
DE
X26
X10
26
X29
X28
X11
X25
X9
X27
20
X21
X20
X22
PR
1
BEGIN
SET
RP
21
22
23
TR
29
RD
RE
3
2
5
4
7
6
X2
X3
X6
X7
KEYCHK()
X5
A
24
X30
B
D
25
I
27
13
O
N
X18
P
X31
R
X24
T
W
V
Y
X
Z
X14
X16
34
11
10
QS
12
15
14
17
16
19
18
31
30
9
NKEY
33
X4
32
8
X13
SAVEVALS

External References

Name	Field # of Occurrence
^%DT	X21
^DIC	X16
YN^DICN	X20
E^DIE0	I+1, 9+4, 18+4
^DIE17	RD
F^DIE17	2, 3, 4, 5, 6, 7, 11, 14, 20, 22 , 24, 25, 26, 27, 28, 29, 30, 31, 32, 34
FIREREC^DIE17	2, 3, 4, 5, 6, 7, 11, 14, 20, 22 , 24, 25, 26, 27, 28, 29, 30, 31, 32
M^DIE17	T
N^DIE17	RP, 9+4, 18+4
OUT^DIE17	2, 3, 4, 5, 6, 7, 11, 14, 20, 22 , 24, 25, 26, 27, 28, 29, 30, 31, 32
UNIQFERR^DIE17	Z
Z^DIE17	X
Z^DIE2	RD+1
^DIE3	T
AST^DIED	P
NOSCR^DIED	P
QQ^DIEQ	QS
^DIR	SET+2
RW^DIR2	O+1
DIEN^DIWE	1+1
^RACTOE4	34
UPDT^RAUTL3	X7
$$VALWP^RAUTL5	X4
$$ASKSEX^RAUTL8	X26
$$PAOE^RAUTL8	X31
$$PTAGE^RAUTL8	X30

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !?DL+DL-2,DLB_": " Line Location: W+0
Function Call: WRITE	Prompt: W Line Location: O+0
Function Call: WRITE	Prompt: Y Line Location: O+0
Function Call: WRITE	Prompt: !?9 Condition for execution: $X>45 Line Location: O+0
Function Call: WRITE	Prompt: " (No Editing)" Line Location: O+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: TR+0
Function Call: WRITE	Prompt: $C(7) Line Location: TR+0
Function Call: WRITE	Prompt: " "_X Line Location: RD+2
Function Call: WRITE	Prompt: !?3,*7,"Please enter a clinical history which corresponds to this request!" Line Location: X3+0
Function Call: WRITE	Prompt: !!?3,$C(7),"Text must be at least two (2) alphanumeric characters in length.",! Line Location: X5+0
Function Call: WRITE	Prompt: ?3,$C(7),"Clinical History cannot exceed 350 lines!" Line Location: X6+0
Function Call: WRITE	Prompt: !!,"Enter 'YES' if patient is scheduled for pre-op, or 'NO' if not.",! Line Location: X20+0
Routine Call	DIC Line Location: X16
Routine Call	DIR Line Location: SET+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RAO(75.1 - [#75.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	T, R, R+1
^DD("DD"	R+2
^DD("KEY" - [#.31]	N
^DISV(	RD+2, Z*
^RAO(75.1 - [#75.1]	DE, X3, X6, X7

Label References

Name	Line Occurrences
$$KEYCHK	Z
@(	B, V
A	N, Z, Y, RP, 1+1, 2, 3, 4, 5, 6 , 7, 9+4, 11, 14, 18+4, 20, 22, 24, 25, 26 , 27, 28, 29, 30, 31, 32
B	QS
BEGIN	RACTOE3+1
D	RD, RD+1, P+1, QS
DE	RACTOE3+1, 2, 3, 4, 5, 6, 7, 11, 14, 20 , 22, 24, 25, 26, 27, 28, 29, 30, 31, 32
N	Y
NKEY	N
O	Y, RP
P	T
PR	RE, I+1
QS	RD, NKEY
R	R, R+1
RD	Y, I, I+1, 9+5, 18+5
RP	PR, R, R+1
SAVEVALS	Z
SET	T
TR	RE
V	T, P+1
W	O, RE
X	N, T+1, P, Y
X11	11
X14	14
X2	2
X20	20
X22	22
X24	24
X25	25
X26	26
X27	27
X28	28
X29	29
X3	3
X30	30
X31	31
X32	32
X4	4
X5	5
X6	6
X7	7
Y	10+4, 13+3, 16+4, 21+3
Z	P+1, 9+5, 18+5

Naked Globals

Name	Field # of Occurrence
^(	RD+2, R, R+1
^("F"	SAVEVALS*
^("R"	DE+2
^(0	DE+1, R, R+1
^(12.1	T

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DE+1, DE+2, T, R+2, SET+2, X20*
>> %DT	X21*
%Z	DE+1, DE+2, DE+3!
>> D	N, D, 1
>> DA	DE, X3, X4, X6, X7
DB	DE!
DB(	T, P, X, SET, SET+1, 9+4, 18+4
>> DC	RP, 1+1*
DDER	T, T+1!, SET+2
DE	DE!
DE(	O+2, RE, Z, Y, PR, RP, SAVEVALS, SAVEVALS+1, KEYCHK, 9+4* , 18+4*
DE(1	1!, 1+1!
DE(10	DE+1*
DE(13	DE+2*
DE(16	DE+1*
DE(18	DE+1*
DE(21	DE+1*
DE(9	DE+1*
DG	DE!, PR, R, R+1, R+2, 1+1, 2, 3, 4, 5 , 6, 7, 11, 14, 20, 22, 24, 25, 26, 27 , 28, 29, 30, 31, 32, 34
DG(	Z*
DIC	DE, P, X16!*
DIC("S"	T, Z!, X16*
DIC(0	P, 2, 3, 4, 5, 6, 7, 11, 14, 20 , 22, 24, 25, 26, 27, 28, 29, 30, 31, 32
>> DIE	DE*, P, X16
>> DIEFIRE	2, 3, 4, 5, 6, 7, 11, 14, 20, 22 , 24, 25, 26, 27, 28, 29, 30, 31, 32
>> DIEL	DE*
>> DIEZTMP	SAVEVALS, SAVEVALS+1, SAVEVALS+2
>> DIFLD	N, T, D, SAVEVALS, SAVEVALS+1, SAVEVALS+2, 9, 10, 13, 16 , 18, 21
>> DIIENS	SAVEVALS, SAVEVALS+1, SAVEVALS+2
DIQUIET	SET+1~*
DIR	SET~
DIR("V"	SET*
DIR(0	SET*
>> DIRUT	X2
>> DL	DE*, W
DLAYGO	P*, Z!
>> DLB	W, RD+2, Z, D, 9, 10, 13, 16, 18, 21
>> DNM	BEGIN*
>> DP	DE*, N, T, SAVEVALS, SAVEVALS+1, SAVEVALS+2
>> DQ	O+2, A, B, RE, T, P, P+2, V, X, D , Y, PR, RP, SET, SET+1, SAVEVALS, BEGIN, 2, 3, 4* , 5, 6, 7, 8, 9+4, 11, 12, 14, 15, 17* , 18+4, 19, 20, 22, 23, 24, 25, 26, 27, 28* , 29, 30, 31, 32, 33*
>> DQ(	A!, P+2, D*, PR
DTIME	TR
>> DTOUT	TR*
>> DU	DE, P, D, PR, SET, 9, 9+1, 10, 10+1, 13 , 16, 16+1, 18, 18+1, 21*
DUZ	RD+2, Z
>> DV	O+1, O+2, N, RD+2, T, P, P+1, Z, D, Y , PR, RP, I, 9, 9+4, 10, 13, 16, 18, 18+4 , 21
>> DW	Z, D, SAVEVALS+1, KEYCHK, 2, 3, 4, 5, 6, 7 , 9, 9+4, 10, 11, 13, 14, 16, 18, 18+4, 20 , 21, 22, 24, 25, 26, 27, 28, 29, 30, 31 , 32*
>> DZ	QS*
>> RACAT	10+2
RACOM	X25*!
>> RADFN	X30
>> RAEXMUL	X22
>> RALIFN	18+2
>> RAOPT("ADDEXAM"	X28, X29
>> RAPAOE	X31*, X32
>> RAPIFN	9+2
>> RAPREG	X28
>> RAPREOP1	X22*
>> RARSH	13+1
>> RASEX	X24, X26, X27*
>> RASHA	16+2
>> RAWPFLAG	X4*, X5
U	DE+1, DE+2, TR, P, P+2, Z, D, R, R+1, SET , 2, 3, 4, 5, 6, X6, 7, 11, 14, 20 , 22, 24, 25, 26, 27, 28, 29, 30, 31, 32
X	O+2, TR, N, RD, RD+1, RD+2, T, P, P+1!, P+2* , Z, X+1, QS, Y, PR, R, R+1, R+2, RP, I+1 , SET+2, NKEY, 2, 3, 4, 5, 6, 7, 9+2, 9+3 , 9+4, 9+5, 10+2, 10+3, 11, X11, 13+1, 13+2, X13!, X13+1! , 14, 16+2, 16+3, X16!, 18+2, 18+3, 18+4, 18+5, 20, 21+1 , 21+2, X21!, 22, X22, 24, 25, 26, 27, 28, 29 , 30, 31, 32*
>> Y	O, O+1, O+2, P, Y, PR, R, R+1, R+2, SET+2 , 1+1, 2, X2, 3, X3, 4, 5, X5, 6, X6 , 7, 9+3, 9+4, 10+3, 11, X11, 13+2, 14, X14, 16+3* , X16, 18+3, 18+4, 20, X20, 21+2, X21, 22, 24, X24* , 25, 26, X26, 27, 28, 29, X29, 30, X30, 31 , 32, X32
>> Y(0	SET+2
YS	V!
>> ZTQUEUED	X, NKEY

Marked Items

Name	Field # of Occurrence
$T(@(3)	D

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RACTOE3

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items