Routine: RACTWR2

Information

RACTWR2 ; ;01/20/12

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
VA Fileman	10	^%DT ^DIC E^DIE0 (,0,F,FIREREC,M,N,OUT,UNIQFERR,Z)^DIE17 Z^DIE2 ^DIE3 (AST,NOSCR)^DIED QQ^DIEQ ^DIR RW^DIR2
Radiology Nuclear Medicine	3	SECXREF^RADD1 XREF^RAUTL2 EN1^RAUTL4
Kernel	1	EN^XUSHSHP

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RACTWR

Entry Points

Name	Comments	DBIA/ICR reference
C14F1
C14S
DE
C11F1
X11
X9
C11
20
C14
PR
1
BEGIN
SET
RP
X14
TR
X8
RD
RE
3
2
5
4
7
6
X2
8
X1
X6
KEYCHK()
X5
A
B
D
I
13
O
N
P
X19
R
T
W
V
Y
X
X12
Z
C11S
X15
X17
11
10
QS
12
15
14
17
16
19
18
9
NKEY
X4
SAVEVALS

External References

Name	Field # of Occurrence
^%DT	X14
^DIC	X1
E^DIE0	I+1, 6+4, 8+4, 11+4, 14+4
^DIE17	RD
0^DIE17	20
F^DIE17	2, 4, 5, 9, 12, 14, 15, 17, 19
FIREREC^DIE17	2, 4, 5, 9, 12, 15, 19
M^DIE17	T
N^DIE17	RP, 6+4, 8+4, 11+4, 14+4
OUT^DIE17	2, 4, 5, 9, 12, 15, 19
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
SECXREF^RADD1	C11+4, C11+6, C11S+4, C11S+6
XREF^RAUTL2	C11+4, C11+6, C11S+4, C11S+6
EN1^RAUTL4	X11
EN^XUSHSHP	X5

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: !!,$C(7),"You must enter the 'VERIFYING PHYSICIAN'." Line Location: X2+0
Routine Call	DIC Line Location: X1
Routine Call	DIR Line Location: SET+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RARPT - [#74]	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*
^RARPT - [#74]	DE
^RARPT("AA"	C14+2!, C14S+2*
^RARPT("ASTAT"	C11+8!, C11S+8*

Label References

Name	Line Occurrences
$$KEYCHK	Z
@(	B, V
A	N, Z, Y, RP, 2, 4, 5, 6+4, 8+4, 9 , 11+4, 12, 14+4, 15, 19
B	QS
BEGIN	RACTWR2+1
C11F1	C11S
C11S	C11
C14F1	C14S
C14S	C14
D	RD, RD+1, P+1, QS
DE	RACTWR2+1, 2, 4, 5, 9, 12, 14, 15, 17, 19
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, 6+5, 8+5, 11+5, 14+5
RE	1+2, 17+1
RP	PR, R, R+1
SAVEVALS	Z
SET	T
TR	RE
V	T, P+1
W	O, RE
X	N, T+1, P, Y
X12	12
X15	15
X19	19
X2	2
X4	4
X5	5
X9	9
Z	P+1, 8+5

Naked Globals

Name	Field # of Occurrence
^(	RD+2, R, R+1
^("F"	SAVEVALS*
^("P"	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
>> %DT	X14*
%Z	DE+1, DE+2, DE+3!
>> D	N, D*
>> DA	DE, X5, C11+8, C11S+8, C14+2, C14S+2
DB	DE!, C11!, C11S!, C14!, C14S!
DB(	T, P, X, SET, SET+1, 6+4, 8+4, 11+4, 14+4
>> DC	RP
DDER	T, T+1!, SET+2
DE	DE!
DE(	O+2, RE, Z, Y, PR, RP, SAVEVALS, SAVEVALS+1, KEYCHK, 6+4 , 8+4, 11+1, 11+4, 14+1*, 14+4
DE(1	DE+1*
DE(11	DE+1*, C11, C11+1, C11+3, C11+5, C11+7
DE(14	DE+1*, C14, C14+1
DE(17	DE+2*
DE(6	DE+1*
DE(8	DE+1*
DG	DE!, PR, R, R+1*, R+2, 2, 4, 5, 9, 12 , 14, 15, 17, 19
DG(	Z*, C11S, C11S+1, C11S+3, C11S+5, C11S+7, C14S, C14S+1
DIC	DE, P, X1!, C11+1, C11+3, C11+5, C11+7, C11S+1, C11S+3, C11S+5 , C11S+7, C14+1, C14S+1*
DIC("S"	T, Z!, X1*
DIC(0	P, 2, 4, 5, 9, 12, 15, 19
>> DIE	DE*, P, X1, C11+1, C11+3, C11+5, C11+7, C11S+1, C11S+3, C11S+5 , C11S+7, C14+1, C14S+1
>> DIEFIRE	2, 4, 5, 9, 12, 15, 19
>> DIEL	DE*
>> DIEZTMP	SAVEVALS, SAVEVALS+1, SAVEVALS+2
>> DIFLD	N, T, D, SAVEVALS, SAVEVALS+1, SAVEVALS+2, 1, 6, 8, 11 , 14, 17
>> DIIENS	SAVEVALS, SAVEVALS+1, SAVEVALS+2
DIQUIET	SET+1~*
DIR	SET~
DIR("V"	SET*
DIR(0	SET*
>> DL	DE*, W
DLAYGO	P*, Z!
>> DLB	W, RD+2, Z, D, 1, 6, 8, 11, 14, 17
>> 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+4, 7, 8+4, 9, 10, 11+4, C11S, C11S+1, C11S+3 , C11S+5, C11S+7, 12, 13, 14, 14+4, C14S, C14S+1, 15, 16* , 17, 18, 19*
>> DQ(	A!, P+2, D*, PR
>> DQ(6	6+1*
DTIME	TR
>> DTOUT	TR*
>> DU	DE, P, D, PR, SET, 1, 1+1, 6, 8, 8+1 , 11, 11+2, 14, 17
DUZ	RD+2, Z, 8+2
>> DV	O+1, O+2, N, RD+2, T, P, P+1, Z, D, Y , PR, RP, I, 1, 6, 6+4, 8, 8+4, 11, 11+4 , 14, 14+4, 17
>> DW	Z, D, SAVEVALS+1, KEYCHK, 1, 2, 4, 5, 6, 8 , 8+4, 9, 11, 11+1, 12, 14, 14+1, 15, 17, 19*
>> DZ	QS*
RAKILL	C11+4!, C11+6!, C11S+4!, C11S+6!
RANODE	X19!
RARAD	C11+4!, C11+6!, C11S+4!, C11S+6!
RASEC	C11S+6!
>> RASECOND	C11+4, C11+6, C11S+4, C11S+6
RASET	C11+4!, C11+6!, C11S+4!, C11S+6
>> RASIG("NAME"	X4, X5
>> RASIG("PER"	X4, X5
RASIGCDE	X5*, 6+2, X19!
RASTATX	X19!
RATRSC	X19!
RAXREF	C11+4~, C11+6~, C11S+4~, C11S+6~
U	DE+1, TR, P, P+2, Z, D, R, R+1, SET, 2 , 4, 5, 9, 12, 15, 19
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, X1!, 2, X2, 4, 5, X5, 6+2, 6+3 , 6+4, X6!, X6+1!, 8+2, 8+3, 8+4, 8+5, 9, 11+4, C11+1 , C11+3, C11+5, C11+7, C11+8, C11S, C11S+1, C11S+3, C11S+4, C11S+5, C11S+6 , C11S+7, C11S+8, 12, 14+2, 14+3, 14+4, C14+1, C14+2, C14S, C14S+1 , C14S+2, X14!, 15, X17!, X17+1!, 19*
>> X1	X5*
>> X2	X5*
>> Y	O, O+1, O+2, P, Y, PR, R, R+1, R+2, SET+2 , X1, 2, X2, 4, X4, 5, 6+3, 6+4, 8+3, 8+4 , 9, X9, 11+3, 11+4, 12, X12, 14+3, 14+4, X14, 15 , X15, 19
>> 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: RACTWR2

Information

Source Information

Call Graph

Call Graph Total: 14

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