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(#1069), FILE 74;03/17/10

Source Information

Source file <RACTWR.m>

Call Graph

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

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
  • Variable: X
  • Timeout: DTIME
  • 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(1069 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