Routine: RACTWR

Information

RACTWR ; GENERATED FROM 'RA REPORT EDIT' INPUT TEMPLATE(#1439), FILE 74;01/20/12

Call Graph

Call Graph Total: 20

Package	Total	Call Graph
VA Fileman	14	^%DT EN^DDIOL $$EZBLD^DIALOG ^DIC E^DIE0 (,F,FIREREC,M,N,OUT,UNIQFERR,Z)^DIE17 Z^DIE2 ^DIE3 (AST,NOSCR)^DIED QQ^DIEQ $$GETTMP^DIKC1 ^DIR RW^DIR2 DIEN^DIWE
Radiology Nuclear Medicine	6	^RACTWR2 SECXREF^RADD1 XREF^RAUTL2 UPDT^RAUTL3 EN1^RAUTL4 (CHPRINT,EN1,EXIST)^RAUTL9

Entry Points

Name	Comments	DBIA/ICR reference
42
X29
X28
X
X24
X27
C42F1
X23
X22
24
25
26
27
20
21
22
23
28
29
RD
RE
4
8
X32
X33
X30
X31
X36
D
X34
X35
X38
X39
P
T
2
C4F1
X47
C33S
X45
X44
X42
X41
X40
X48
PR
BEGIN
C4S
3
C33
7
C44
C42
O
W
RP
39
38
33
32
31
30
37
36
35
34
X46
C42S
SET
X8
X9
6
X2
X3
X1
X6
X7
X4
C4
B
N
R
V
Z
C44S
11
10
13
12
15
14
17
16
19
18
NKEY
M11
C33F1
DE
C44F1
48
49
46
47
44
45
TR
43
40
41
1
5
9
KEYCHK()
A
I
X18
X19
Y
X12
X13
X15
X17
QS
R11
SAVEVALS

External References

Name	Field # of Occurrence
^%DT	X3, X8
EN^DDIOL	X40
$$EZBLD^DIALOG	11+1
^DIC	X47
E^DIE0	I+1, 3+3, 4+5, M11+3, 33+4, 34+2, 42+5, 44+5, 47+4
^DIE17	RD
F^DIE17	1, 2, 6, 7, 8, 9, 12, 13, 15, 17 , 18, 19, 22, 23, 24, 27, 28, 29, 30, 31 , 32, 34, 35, 36, 38, 39, 40, 41, 44, 45 , 46, 47, 48, 49
FIREREC^DIE17	1, 2, 6, 7, 9, 12, 13, 15, 17, 18 , 19, 22, 23, 24, 27, 28, 29, 30, 31, 32 , 35, 36, 38, 39, 40, 41, 45, 46, 48
M^DIE17	T
N^DIE17	RP, 3+3, 4+5, M11+3, 33+4, 34+2, 42+5, 44+5, 47+4
OUT^DIE17	1, 2, 6, 7, 9, 12, 13, 15, 17, 18 , 19, 22, 23, 24, 27, 28, 29, 30, 31, 32 , 35, 36, 38, 39, 40, 41, 45, 46, 48
UNIQFERR^DIE17	Z
Z^DIE17	X
Z^DIE2	RD+1
^DIE3	T
AST^DIED	P
NOSCR^DIED	P
QQ^DIEQ	QS
$$GETTMP^DIKC1	BEGIN+1
^DIR	SET+2
RW^DIR2	O+1
DIEN^DIWE	16+1, 21+1, 26+1
^RACTWR2	49
SECXREF^RADD1	C33+4, C33+6, C33S+4, C33S+6, C42+4, C42+6, C42S+4, C42S+6, C44+4, C44+6 , C44S+4, C44S+6
XREF^RAUTL2	C33+4, C33+6, C33S+4, C33S+6, C42+4, C42+6, C42S+4, C42S+6, C44+4, C44+6 , C44S+4, C44S+6
UPDT^RAUTL3	X18, X23, X28
EN1^RAUTL4	X33, X42, X44
CHPRINT^RAUTL9	X15
EN1^RAUTL9	X38
EXIST^RAUTL9	X22, X27

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,$C(7),"Variable RACT must be defined to continue!" Line Location: X1+0
Function Call: WRITE	Prompt: !,"------------------------------------------------------------------------------" Line Location: X13+0
Function Call: WRITE	Prompt: !,"------------------------------------------------------------------------------" Line Location: X19+0
Function Call: WRITE	Prompt: !,"------------------------------------------------------------------------------" Line Location: X24+0
Function Call: WRITE	Prompt: !,"------------------------------------------------------------------------------" Line Location: X29+0
Function Call: WRITE	Prompt: !!?3,$C(7),"NOTE: This report does not have an impression. As a result,",!?3," the report will be placed in a 'PROBLEM DRAFT' status",!?3," with an appropriate 'PROBLEM STATEMENT' entered as well.",! Line Location: X35+0
Function Call: WRITE	Prompt: !!,$C(7),"You do not have the appropriate privileges to verify a report." Line Location: X46+0
Routine Call	DIALOG Line Location: 11+1
Routine Call	DIC Line Location: X47
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
^DIE(1439	BEGIN+2
^DISV(	RD+2, Z*
^RA(79 - [#79]	X31
^RADPT - [#70]	X31
^RARPT - [#74]	DE, C4+2, C4S+2, X6, X8, 11+3, M11, X18, X23, X28 , X30, X31, X32, X45!
^RARPT("AD"	C4+2!, C4S+2*
^RARPT("ASTAT"	C33+8!, C33S+8, C42+8!, C42S+8, C44+8!, C44S+8*
^XUSEC("RA VERIFY"	X46

Label References

Name	Line Occurrences
$$KEYCHK	Z
@(	B, V
A	N, Z, Y, RP, 1, 2, 3+3, 4+5, 6, 7 , 9, M11+3, R11+1, 12, 13, 15, 16+1, 17, 18, 19 , 21+1, 22, 23, 24, 26+1, 27, 28, 29, 30, 31 , 32, 33+4, 34+2, 35, 36, 38, 39, 40, 41, 42+5 , 44+5, 45, 46, 47+4, 48
B	QS
BEGIN	RACTWR+1
C33F1	C33S
C33S	C33
C42F1	C42S
C42S	C42
C44F1	C44S
C44S	C44
C4F1	C4S
C4S	C4
D	RD, RD+1, P+1, QS
DE	RACTWR+1, 1, 2, 6, 7, 8, 9, R11, 12, 13 , 15, 17, 18, 19, 22, 23, 24, 27, 28, 29 , 30, 31, 32, 34, 35, 36, 38, 39, 40, 41 , 44, 45, 46, 47, 48
M11	11+2
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, 3+4, 4+6, M11+4, 33+5, 34+3, 42+6, 44+6 , 47+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
X1	1
X12	12
X13	13
X15	15
X17	17
X18	18
X19	19
X2	2
X22	22
X23	23
X24	24
X27	27
X28	28
X29	29
X30	30
X31	31
X32	32
X35	35
X36	36
X38	38
X39	39
X40	40
X41	41
X45	45
X46	46
X48	48
X6	6
X7	7
X9	9
Y	8+3
Z	P+1, 4+6

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DE+1, DE+2, DE+3, T, R+2, SET+2*
>> %DT	X3, X8
>> %DT(0	X8*!
%Z	DE+1, DE+2, DE+3*, DE+4!
>> D	N, D, 11, 11+1, 11+2, 11+3, M11, 16, 21, 26*
>> D0	BEGIN+3*, X8
>> DA	DE, BEGIN+3, C4+2, C4S+2, X6, 11+3, M11, X18, X23, X28 , X30, X31, X32, C33+8, C33S+8, C42+8, C42S+8, C44+8, C44S+8, X45
DB	DE!, C4!, C4S!, C33!, C33S!, C42!, C42S!, C44!, C44S!
DB(	T, P, X, SET, SET+1, 3+3, 4+5, M11+3, 33+4, 34+2* , 42+5, 44+5, 47+4*
>> DC	RP, 11+1, M11, 16+1, 21+1, 26+1*
DDER	T, T+1!, SET+2
DE	DE!
DE(	O+2, RE, Z, Y, PR, RP, SAVEVALS, SAVEVALS+1, KEYCHK, 3+3 , 4+1, 4+5, M11+3, 33+1, 33+4, 34+2, 42+1, 42+5, 44+1*, 44+5 , 47+4
DE(1	11!, 16!, 16+1!, 21!, 21+1!, 26!, 26+1!
DE(11	M11*
DE(3	DE+1*
DE(33	DE+1*, C33, C33+1, C33+3, C33+5, C33+7
DE(34	DE+2*
DE(4	DE+3*, C4, C4+1
DE(42	DE+1*, C42, C42+1, C42+3, C42+5, C42+7
DE(44	DE+1*, C44, C44+1, C44+3, C44+5, C44+7
DE(47	DE+1*
DE(8	DE+1*
DG	DE!, PR, R, R+1, R+2, 1, 2, 6, 7, 8 , 9, 12, 13, 15, 16+1, 17, 18, 19, 21+1, 22 , 23, 24, 26+1, 27, 28, 29, 30, 31, 32, 34 , 35, 36, 38, 39, 40, 41, 44, 45, 46, 47 , 48, 49
DG(	Z*, C4S, C4S+1, C33S, C33S+1, C33S+3, C33S+5, C33S+7, C42S, C42S+1 , C42S+3, C42S+5, C42S+7, C44S, C44S+1, C44S+3, C44S+5, C44S+7
>> DGO	11+1*
DIC	DE, P, C4+1, C4S+1, C33+1, C33+3, C33+5, C33+7, C33S+1, C33S+3 , C33S+5, C33S+7, C42+1, C42+3, C42+5, C42+7, C42S+1, C42S+3, C42S+5, C42S+7 , C44+1, C44+3, C44+5, C44+7, C44S+1, C44S+3, C44S+5, C44S+7, X47!*
DIC("S"	T, Z!, X47*
DIC(0	P, 1, 2, 6, 7, 9, 12, 13, 15, 17 , 18, 19, 22, 23, 24, 27, 28, 29, 30, 31 , 32, 35, 36, 38, 39, 40, 41, 45, 46, 48
>> DICRREC	BEGIN+2*
>> DIE	DE*, P, C4+1, C4S+1, C33+1, C33+3, C33+5, C33+7, C33S+1, C33S+3 , C33S+5, C33S+7, C42+1, C42+3, C42+5, C42+7, C42S+1, C42S+3, C42S+5, C42S+7 , C44+1, C44+3, C44+5, C44+7, C44S+1, C44S+3, C44S+5, C44S+7, X47
>> DIE("NO^"	X40, X41
DIEBADK	BEGIN+1!
DIEFIRE	BEGIN+1!, 1, 2, 6, 7, 9, 12, 13, 15, 17 , 18, 19, 22, 23, 24, 27, 28, 29, 30, 31 , 32, 35, 36, 38, 39, 40, 41, 45, 46, 48
>> DIEL	DE*
>> DIEZ	BEGIN+3*
DIEZAR	BEGIN+1~, BEGIN+2*
DIEZRXR	BEGIN+1~
DIEZTMP	SAVEVALS, SAVEVALS+1, SAVEVALS+2, BEGIN+1~*
>> DIFLD	N, T, D, SAVEVALS, SAVEVALS+1, SAVEVALS+2, 3, 4, 8, 11+1 , 33, 34, 42, 44, 47*
DIIENS	SAVEVALS, SAVEVALS+1, SAVEVALS+2, BEGIN+1~, BEGIN+3*
DIQUIET	SET+1~*
DIR	SET~
DIR("V"	SET*
DIR(0	SET*
>> DIRUT	X39
DIXR	BEGIN+1~
>> DL	DE*, W
DLAYGO	P*, Z!
>> DLB	W, RD+2, Z, D, 3, 4, 8, 11+1, 33, 34 , 42, 44, 47*
>> DNM	BEGIN*
>> DOW	11+1*
>> 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, 1, 2, 3+3 , 4+5, C4S, C4S+1, 5, 6, 7, 8, 9, 10, M11+3 , 12, 13, 14, 15, 17, 18, 19, 20, 22, 23 , 24, 25, 27, 28, 29, 30, 31, 32, 33+4, C33S , C33S+1, C33S+3, C33S+5, C33S+7, 34, 34+2, 35, 36, 37, 38* , 39, 40, 41, 42+5, C42S, C42S+1, C42S+3, C42S+5, C42S+7, 43 , 44, 44+5, C44S, C44S+1, C44S+3, C44S+5, C44S+7, 45, 46, 47 , 47+4, 48*
>> DQ(	A!, P+2, D*, PR
>> DSC(	11+2
DTIME	TR, BEGIN+3*
>> DTOUT	TR*
>> DU	DE, P, D, PR, SET, 3, 4, 4+2, 8, 33 , 33+2, 34, 42, 42+2, 44, 44+2, 47, 47+1
DUZ	RD+2, Z, 4+3, X46, 47+2
>> DV	O+1, O+2, N, RD+2, T, P, P+1, Z, D, Y , PR, RP, I, 3, 3+3, 4, 4+5, 8, 11+1, M11+3 , 33, 33+4, 34, 34+2, 42, 42+5, 44, 44+5, 47*, 47+4
>> DW	Z, D, SAVEVALS+1, KEYCHK, 1, 2, 3, 4, 4+1, 4+5 , 6, 7, 8, 9, 11+1, 12, 13, 15, 17, 18 , 19, 22, 23, 24, 27, 28, 29, 30, 31, 32 , 33, 33+1, 34, 35, 36, 38, 39, 40, 41, 42* , 42+1, 44, 44+1, 45, 46, 47, 48*
>> DZ	QS*
>> RACT	X1, X2, X12, X45*
>> RADTE	X7
>> RAELESIG	47+2, X48
RAKILL	C33+4!, C33+6!, C33S+4!, C33S+6!, C42+4!, C42+6!, C42S+4!, C42S+6!, C44+4!, C44+6! , C44S+4!, C44S+6!
>> RANODE	X17, X18, X22, X23, X27*, X28
>> RAONLINE	X30, X31
RARAD	C33+4!, C33+6!, C33S+4!, C33S+6!, C42+4!, C42+6!, C42S+4!, C42S+6!, C44+4!, C44+6! , C44S+4!, C44S+6!
RARPDT	X7!, 8+1, X9*
RASEC	C33S+6!, C42S+6!, C44S+6!
>> RASECOND	C33+4, C33+6, C33S+4, C33S+6, C42+4, C42+6, C42S+4, C42S+6, C44+4, C44+6 , C44S+4, C44S+6
RASET	C33+4!, C33+6!, C33S+4!, C33S+6, C42+4!, C42+6!, C42S+4!, C42S+6, C44+4!, C44+6! , C44S+4!, C44S+6
>> RASTATX	44+3, X45
>> RATRSC	X6*
RAXREF	C33+4~, C33+6~, C33S+4~, C33S+6~, C42+4~, C42+6~, C42S+4~, C42S+6~, C44+4~, C44+6~ , C44S+4~, C44S+6~
U	DE+1, DE+3, TR, P, P+2, Z, D, R, R+1, SET , BEGIN+3*, 1, 2, C4+2, C4S+2, 6, X6, 7, X8, 9 , 11+3, M11, 12, 13, 15, 17, 18, 19, 22, 23 , 24, 27, 28, 29, 30, 31, X31, 32, 35, 36 , 38, 39, 40, 41, 45, 46, 48
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, 1, 2, 3+1, 3+2, 3+3, X3!, 4+3, 4+4 , 4+5, 4+6, C4+1, C4+2, C4S, C4S+1, C4S+2, 6, 7, 8+1* , 8+2, X8!, 9, X9, M11+1, M11+2, M11+3, 12, 13, 15* , 17, 18, 19, 22, 23, 24, 27, 28, 29, 30 , 31, 32, 33+4, C33+1, C33+3, C33+5, C33+7, C33+8, C33S, C33S+1* , C33S+3, C33S+4, C33S+5, C33S+6, C33S+7, C33S+8, 34+2, X34!, X34+1!, 35* , 36, 38, 39, 40, 41, 42+3, 42+4, 42+5, C42+1, C42+3* , C42+5, C42+7, C42+8, C42S, C42S+1, C42S+3, C42S+4, C42S+5, C42S+6, C42S+7* , C42S+8, 44+3, 44+4, 44+5, C44+1, C44+3, C44+5, C44+7, C44+8, C44S* , C44S+1, C44S+3, C44S+4, C44S+5, C44S+6, C44S+7, C44S+8, 45, 46, X46 , 47+2, 47+3, 47+4, X47!, 48
>> Y	O, O+1, O+2, P, Y, PR, R, R+1, R+2, SET+2 , 1, X1, 2, X2, 3+2, 3+3, X3, 4+4, 4+5, 6* , 7, 8+2, X8, 9, M11+2, M11+3, 12, X12, 13, 15 , 16+1, 17, 18, 19, 21+1, 22, 23, 24, 26+1, 27 , 28, 29, 30, X30, 31, X31, 32, X32, 33+3, 33+4 , 34+1, 34+2, 35, 36, X36, 38, 39, X39, 40, 41 , X41, 42+4, 42+5, 44+4, 44+5, 45, X45, 46, X46, 47+3 , 47+4, X47, 48, X48
>> 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: RACTWR

Information

Source Information

Call Graph

Call Graph Total: 20

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