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 X3X8
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 12678912131517
18192223242728293031
32343536383940414445
46474849
FIREREC^DIE17 126791213151718
19222324272829303132
353638394041454648
M^DIE17 T
N^DIE17 RP3+3, 4+5, M11+3, 33+4, 34+2, 42+5, 44+5, 47+4
OUT^DIE17 126791213151718
19222324272829303132
353638394041454648
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 X18X23X28
EN1^RAUTL4 X33X42X44
CHPRINT^RAUTL9 X15
EN1^RAUTL9 X38
EXIST^RAUTL9 X22X27

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( TRR+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] DEC4+2, C4S+2, X6X811+3, M11X18X23X28
X30X31X32, 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
@( BV
A NZYRP123+3, 4+5, 67
9M11+3, R11+1, 12131516+1, 171819
21+1, 22232426+1, 2728293031
3233+4, 34+2, 35363839404142+5
44+5, 454647+4, 48
B QS
BEGIN RACTWR+1
C33F1 C33S
C33S C33
C42F1 C42S
C42S C42
C44F1 C44S
C44S C44
C4F1 C4S
C4S C4
D RDRD+1, P+1, QS
DE RACTWR+1, 126789R111213
15171819222324272829
30313234353638394041
4445464748
M11 11+2
N Y
NKEY N
O YRP
P T
PR REI+1
QS RDNKEY
R RR+1
RD YII+1, 3+4, 4+6, M11+4, 33+5, 34+3, 42+6, 44+6
47+5
RP PRRR+1
SAVEVALS Z
SET T
TR RE
V TP+1
W ORE
X NT+1, PY
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, RR+1, X31
^("F" SAVEVALS*
^("P" DE+2
^("T" DE+3
^(0 DE+1, RR+1, 11+2, 11+3, M11X31
^(12.1 T

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DE+1*, DE+2*, DE+3*, TR+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 DEBEGIN+3, C4+2, C4S+2, X611+3, M11X18X23X28
X30X31X32C33+8, C33S+8, C42+8, C42S+8, C44+8, C44S+8, X45
DB DE!, C4!, C4S!, C33!, C33S!, C42!, C42S!, C44!, C44S!
DB( TPXSETSET+1, 3+3*, 4+5*, M11+3*, 33+4*, 34+2*
42+5*, 44+5*, 47+4*
>> DC RP11+1*, M11*, 16+1*, 21+1*, 26+1*
DDER TT+1!, SET+2
DE DE!
DE( O+2, REZYPRRPSAVEVALSSAVEVALS+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*, C33C33+1, C33+3, C33+5, C33+7
DE(34 DE+2*
DE(4 DE+3*, C4C4+1
DE(42 DE+1*, C42C42+1, C42+3, C42+5, C42+7
DE(44 DE+1*, C44C44+1, C44+3, C44+5, C44+7
DE(47 DE+1*
DE(8 DE+1*
DG DE!, PR*, R*, R+1*, R+2, 12678
912131516+1*, 17181921+1*, 22
232426+1*, 27282930313234
35363839404144454647
4849
DG( Z*, C4SC4S+1, C33SC33S+1, C33S+3, C33S+5, C33S+7, C42SC42S+1
C42S+3, C42S+5, C42S+7, C44SC44S+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*, PC4+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^" X40X41
DIEBADK BEGIN+1!
DIEFIRE BEGIN+1!, 1267912131517
18192223242728293031
32353638394041454648
>> DIEL DE*
>> DIEZ BEGIN+3*
DIEZAR BEGIN+1~, BEGIN+2*
DIEZRXR BEGIN+1~
DIEZTMP SAVEVALSSAVEVALS+1, SAVEVALS+2, BEGIN+1~*
>> DIFLD NTDSAVEVALSSAVEVALS+1, SAVEVALS+2, 3*, 4*, 8*, 11+1*
, 33*, 34*, 42*, 44*, 47*
DIIENS SAVEVALSSAVEVALS+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 WRD+2, ZD, 3*, 4*, 8*, 11+1*, 33*, 34*
, 42*, 44*, 47*
>> DNM BEGIN*
>> DOW 11+1*
>> DP DE*, NTSAVEVALSSAVEVALS+1, SAVEVALS+2
>> DQ O+2, A*, BRETPP+2, VXD
YPRRPSETSET+1, SAVEVALS, BEGIN*, 1*, 2*, 3+3
4+5, C4SC4S+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, C42SC42S+1, C42S+3, C42S+5, C42S+7, 43*
, 44*, 44+5, C44SC44S+1, C44S+3, C44S+5, C44S+7, 45*, 46*, 47*
47+4, 48*
DQ( A!, P+2, D*, PR
>> DSC( 11+2
DTIME TRBEGIN+3*
>> DTOUT TR*
>> DU DE*, PDPRSET, 3*, 4*, 4+2*, 8*, 33*
33+2*, 34*, 42*, 42+2*, 44*, 44+2*, 47*, 47+1*
DUZ RD+2, Z4+3, X4647+2
>> DV O+1, O+2, NRD+2, TPP+1, ZDY
PRRPI, 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 ZDSAVEVALS+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 X1X2X12, 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 X30X31
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, TRPP+2, ZDRR+1, SET
BEGIN+3*, 12C4+2, C4S+2, 6X67X89
11+3, M111213151718192223
242728293031X31323536
38394041454648
X O+2*, TR*, NRDRD+1, RD+2*, T, P*, P+1!, P+2*
ZX+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*, X9M11+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 OO+1, O+2, PY, PR*, R*, R+1*, R+2*, SET+2
, 1*, X1*, 2*, X2*, 3+2*, 3+3, X34+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 XNKEY

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