Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: RACTWR

Package: Radiology Nuclear Medicine

Routine: RACTWR


Information

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

Source Information

Source file <RACTWR.m>

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All