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: RACTOE

Package: Radiology Nuclear Medicine

Routine: RACTOE


Information

RACTOE ; GENERATED FROM 'RA ORDER EXAM' INPUT TEMPLATE(#1087), FILE 75.1;01/03/19

Source Information

Source file <RACTOE.m>

Call Graph

Call Graph

Call Graph Total: 28

Package Total Call Graph
VA FileMan 16 ^%DT  $$EZBLD^DIALOG  $$LABEL^DIALOGZ  ^DIC  YN^DICN  E^DIE0  (,F,FIREREC,M,N,OUT,UNIQFERR,Z)^DIE17  Z^DIE2  
^DIE3  (AST,NOSCR,SET)^DIED  QQ^DIEQ  $$GETTMP^DIKC1  ($$CREF,$$OREF)^DILF  $$SET^DIQ  RW^DIR2  DIEN^DIWE  
Radiology Nuclear Medicine 11 ^RACTOE3  ^RACTOE4  ^RACTOE6  CH^RADD2  $$ORVR^RAORDU  EN2^RAPRI  $$ITYPE^RASITE  ORDPRC^RAUTL2  
UPDT^RAUTL3  $$VALWP^RAUTL5  ($$ASKSEX,$$PAOE,$$PTAGE)^RAUTL8  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
DE
W
O
TR
A
B
RE
N
RD
T
P
V
UNIQ
Z
X
QS
D
Y
PR
R
RP
I
SAVEVALS
NKEY
KEYCHK()
BEGIN
1
X1
2
C2
C2S
C2F1
X2
3
X3
4
X4
5
X5
6
7
X7
8
9
X9
10
X10
11
X11
12
13
X13
14
X14
15
16
X16
17
X17
18
X18
19
M19
R19
20
21
X21
22
23
M23
R23
24
25
X25
26
X26
27
X27
28
X28
29
X29
30
X30
31
32
33
X33
34
X34
35
X35
36
X36
37
X37
38
X38
39
40
X40
41
X41
42
X42
43
44
X44
45
X45
46
47
X47
48
49
X49
50
51
X51
52
X52
53
X53
54
55
X55
56
X56
57
X57
58
X58
59
X59
60
X60
61
X61
62
X62
63
X63
64
65
X65
66
67
X67
68
X68
69
70
X70
71
X71
72
C72
C72S
C72F1
C72X1(DION)
C72F2
X72
73
X73
74
75
C75
C75S
C75F1
C75X1(DION)
C75F2
X75
76
X76
77
78
79
C79
C79S
C79F1
C79X1(DION)
C79F2
X79
80
81
X81
82
C82
C82S
C82F1
X82
83
C83
C83S
C83F1
X83
84
X84
85
86
M86
R86
87
88

External References

Name Field # of Occurrence
^%DT X52X68X72X75X79X83
$$EZBLD^DIALOG O+2, 19+1, 23+1, 86+1
$$LABEL^DIALOGZ 21119+1, 23+1, 252732+1, 404144
47496568727579828386+1
^DIC X2X11X47
YN^DICN X51
E^DIE0 I+1, M19+3, 25+4, 40+4, 49+4, 65+4, 68+3, 79+4, 82+5, 83+4
M86+3
^DIE17 RD
F^DIE17 13457910111314
16171821262829303334
35363738424551535556
57585960616263677071
73757678798182838486
88
FIREREC^DIE17 13457910131416
17182126282930333435
36373842455153555657
58596061626367707173
768184
M^DIE17 T
N^DIE17 RPM19+3, 25+4, 40+4, 49+4, 65+4, 68+3, 79+4, 82+5, 83+4
M86+3
OUT^DIE17 13457910131416
17182126282930333435
36373842455153555657
58596061626367707173
768184
UNIQFERR^DIE17 Z
Z^DIE17 X
Z^DIE2 RD+1
^DIE3 T
AST^DIED P
NOSCR^DIED P
SET^DIED T
QQ^DIEQ QS
$$GETTMP^DIKC1 BEGIN+1
$$CREF^DILF C2F1C72F2C75F2C79F2C82F1
$$OREF^DILF C2F1C72F2C75F2C79F2C82F1
$$SET^DIQ R+2
RW^DIR2 O+1
DIEN^DIWE 32+1
^RACTOE3 C83+1
^RACTOE4 C83S+1
^RACTOE6 88
CH^RADD2 C82S+2
$$ORVR^RAORDU 82+3, C82S+2
EN2^RAPRI X9
$$ITYPE^RASITE X4X18
ORDPRC^RAUTL2 X2
UPDT^RAUTL3 X38
$$VALWP^RAUTL5 X35
$$ASKSEX^RAUTL8 X57
$$PAOE^RAUTL8 X62
$$PTAGE^RAUTL8 X61
$$FMTE^XLFDT X81

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: " ("_$$EZBLD^DIALOG(710,.X)_")"
  • 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),"Variables RACAT,RADFN,RADIV,RALIFN and RAPIFN must be defined!"
  • Line Location: X1+0
Function Call: WRITE
  • Prompt: !?3,$C(7),"A 'detailed' procedure or a 'series' of procedures is required!"
  • Line Location: X7+0
Function Call: WRITE
  • Prompt: !!?3,$C(7),^("HIS"),!
  • Line Location: X29+0
Function Call: WRITE
  • Prompt: !!?3,$C(7),"Text must be at least two (2) alphanumeric characters in length.",!
  • Line Location: X36+0
Function Call: WRITE
  • Prompt: ?3,$C(7),"Clinical History cannot exceed 350 lines!"
  • Line Location: X37+0
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' if patient is scheduled for pre-op, or 'NO' if not.",!
  • Line Location: X51+0
Routine Call
  • DIALOG
  • Line Location:
    • O+2
    • 19+1
    • 23+1
    • 86+1
Routine Call
  • DIC
  • Line Location:
    • X2
    • X11
    • X47

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAO(75.1 - [#75.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( RR+1
^DD("DD" R+2
^DD("KEY" - [#.31] N
^DIE(1087 BEGIN+2
^DISV( RD+2, Z*
^RA(79 - [#79] X5X29X84
^RAMIS(71 - [#71] 2+3, X5X9X10
^RAMIS(71.2 - [#71.2] X17X18
^RAO(75.1 - [#75.1] DE19+4, M1923+4, M23R23+1, X30*, X34X37X38
C72F1+2!, C72F1+4*, C72X1+1, C75F1+2!, C75F1+4*, C75X1+1, C79F1+2!, C79F1+4*, C79X1+1, 86+3
M86
^TMP($J X30

Label References

Name Line Occurrences
$$KEYCHK Z
23+1 R23+1
@( BV
A RENZYRP13457
9101314161718M19+3, R19+1, 21
25+4, 2628293032+1, 33343536
373840+4, 424549+4, 51535556
5758596061626365+4, 6768+3
707173767879+4, 8182+5, 83+4, 84
M86+3, R86+1
B QS
BEGIN RACTOE+1
C2F1 C2S
C2S C2
C72F1 C72S
C72F2 C72F1+5
C72S C72
C72X1 C72F1
C75F1 C75S
C75F2 C75F1+5
C75S C75
C75X1 C75F1
C79F1 C79S
C79F2 C79F1+5
C79S C79
C79X1 C79F1
C82F1 C82S
C82S C82
C83F1 C83S
C83S C83
D RDRD+1, P+1, QS
DE RACTOE+1, 134579101113
14161718R1921R23262829
30333435363738424551
53555657585960616263
67707173757678798182
838486R86
M19 19+3
M23 23+3
M86 86+2
N Y
NKEY N
O YRP
P T
PR REI+1
QS RDNKEY
R RR+1
RD YII+1, M19+4, 25+5, 40+5, 49+5, 65+5, 68+4, 79+5
82+6, 83+5, M86+4
RE 11+2, 19+3, 23+3, M23+1, 72+2
RP PRRR+1
SAVEVALS Z
TR RE
V TP+1
W ORE
X NT+1, PY
X1 1
X10 10
X13 13
X14 14
X16 16
X17 17
X18 18
X21 21
X26 26
X28 28
X29 29
X3 3
X30 30
X33 33
X34 34
X35 35
X36 36
X37 37
X38 38
X4 4
X42 42
X45 45
X5 5
X51 51
X53 53
X55 55
X56 56
X57 57
X58 58
X59 59
X60 60
X61 61
X62 62
X63 63
X67 67
X7 7
X70 70
X71 71
X73 73
X76 76
X81 81
X84 84
X9 9
Y 2+5, 27+3, 41+4, 44+3, 47+4, 52+3, 75+4
Z P+1, 25+5, 40+5, 49+5, 65+5, 82+6

Naked Globals

Name Field # of Occurrence
^( DE+3, RD+2, RR+1, X5X84
^("F" SAVEVALS*
^("HIS" X29
^("R" DE+4
^(0 DE+1, RR+1, 2+3, 19+3, 19+4, M1923+3, 23+4, M23
R23+1, X3086+2, 86+3, M86

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DE+1*, DE+2*, DE+3*, DE+4*, UNIQ!*, R+2*, X51*
%( UNIQ!
%(0 UNIQ
>> %DT X52*, X68*, X72*, X75*, X79*, X83*
%Z DE+1*, DE+2, DE+3*, DE+4*, DE+5!
>> D N, D*, 19*, 19+1, 19+3*, 19+4*, M19, 23*, 23+1, 23+3*
23+4*, M23R23+1*, 32*, 86*, 86+1, 86+2*, 86+3*, M86
>> D0 BEGIN+3*
>> DA DEUNIQBEGIN+3, 19+4, M1923+4, M23R23+1, X30X34
X35X37X38C72F1+2, C72F1+4, C72X1+1, C75F1+2, C75F1+4, C75X1+1, C79F1+2
C79F1+4, C79X1+1, C82S+2, 86+3, M86
DB DE!, C2!, C2S!, C72!, C72S!, C75!, C75S!, C79!, C79S!, C82!
, C82S!, C83!, C83S!
DB( PXM19+3*, 25+4*, 40+4*, 49+4*, 65+4*, 68+3*, 79+4*, 82+5*
83+4*, M86+3*
>> DC RP19+1*, M19*, 23+1*, M23*, 32+1*, 86+1*, M86*
DDER TT+1!
DE DE!
DE( O+2, REZYPRRPSAVEVALSSAVEVALS+1, KEYCHK, 2+1*
M19+3, 25+4*, 40+4*, 49+4*, 65+4*, 68+3, 72+1*, 75+1*, 79+1*, 79+4
82+1*, 82+5*, 83+1*, 83+4, M86+3
DE(1 19!, 23!, 32!, 32+1!, 86!
DE(11 DE+1*
DE(19 M19*
DE(2 DE+1*, C2
DE(23 M23*
DE(25 DE+1*
DE(27 DE+3*
DE(40 DE+2*
DE(41 DE+1*
DE(44 DE+4*
DE(47 DE+1*
DE(49 DE+2*
DE(52 DE+1*
DE(65 DE+2*
DE(68 DE+2*
DE(72 DE+2*, C72
DE(75 DE+2*, C75
DE(79 DE+2*, C79
DE(82 DE+1*, C82C82+1
DE(83 DE+2*, C83
DE(86 M86*
DG DE!, PR*, R*, R+1*, R+2, 13457
9101113141617182126
28293032+1*, 333435363738
42455153555657585960
61626367707173757678
79818283848688
DG( Z*, C2SC72SC75SC79SC82SC82S+1, C83S
>> DGO 19+1*, 23+1*, 86+1*
DIC DE*, P*, X2!*, X11!*, X47!*, C82+1*, C82S+1*
DIC("S" Z!, X2*, X11*, X47*
DIC(0 P*, 1*, 3*, 4*, 5*, 7*, 9*, 10*, 13*, 14*
, 16*, 17*, 18*, 21*, 26*, 28*, 29*, 30*, 33*, 34*
, 35*, 36*, 37*, 38*, 42*, 45*, 51*, 53*, 55*, 56*
, 57*, 58*, 59*, 60*, 61*, 62*, 63*, 67*, 70*, 71*
, 73*, 76*, 81*, 84*
>> DICRREC BEGIN+2*
>> DIE DE*, PUNIQC2F1X2X11X47C72F2C75F2C79F2
C82+1, C82S+1, C82F1
DIEBADK BEGIN+1!
DIEFIRE BEGIN+1!, 134579101314
16171821262829303334
35363738424551535556
57585960616263677071
73768184
>> DIEL DE*
>> DIEZ BEGIN+3*
DIEZAR BEGIN+1~, BEGIN+2*
DIEZRXR BEGIN+1~
DIEZRXR( C2F1*, C2F1+1*, C72F2*, C72F2+1*, C75F2*, C75F2+1*, C79F2*, C79F2+1*, C82F1*, C82F1+1*
DIEZTMP SAVEVALSSAVEVALS+1, SAVEVALS+2, BEGIN+1~*, C72X1+1, C75X1+1, C79X1+1
>> DIFLD O+2, NUNIQDR+2, SAVEVALSSAVEVALS+1, SAVEVALS+2, 2*, 11*
19+1*, 23+1*, 25*, 27*, 40*, 41*, 44*, 47*, 49*, 52*
, 65*, 68*, 72*, 75*, 79*, 82*, 83*, 86+1*
DIIENS SAVEVALSSAVEVALS+1, SAVEVALS+2, BEGIN+1~, BEGIN+3*, C2F1, C72X1+1, C72F2, C75X1+1, C75F2
, C79X1+1, C79F2C82F1
DION C72X1~, C72X1+1, C75X1~, C75X1+1, C79X1~, C79X1+1
>> DIRUT X33
DIXR BEGIN+1~, C2F1+1*, C72F1*, C72F2+1*, C75F1*, C75F2+1*, C79F1*, C79F2+1*, C82F1+1*
>> DL DE*, W
DLAYGO P*, Z!
>> DLB WRD+2, ZD, 2*, 11*, 19+1*, 23+1*, 25*, 27*
, 40*, 41*, 44*, 47*, 49*, 52*, 65*, 68*, 72*, 75*
, 79*, 82*, 83*, 86+1*
>> DNM BEGIN*
>> DOW 19+1*, 23+1*, 86+1*
>> DP DE*, O+2, NR+2, SAVEVALSSAVEVALS+1, SAVEVALS+2, 21119+1
23+1, 252732+1, 404144474965
68727579828386+1
>> DQ O+2, A*, BREPP+2, VXDY
PRRPSAVEVALS, BEGIN*, 1*, C2S, 3*, 4*, 5*, 6*
, 7*, 8*, 9*, 10*, 11*, 12*, 13*, 14*, 15*, 16*
, 17*, 18*, M19+3, 20*, 21*, 22*, 24*, 25+4, 26*, 28*
, 29*, 30*, 31*, 33*, 34*, 35*, 36*, 37*, 38*, 39*
40+4, 42*, 43*, 45*, 46*, 48*, 49+4, 50*, 51*, 53*
, 54*, 55*, 56*, 57*, 58*, 59*, 60*, 61*, 62*, 63*
, 64*, 65+4, 66*, 67*, 68+3, 69*, 70*, 71*, C72S, 73*
, 74*, 75*, C75S, 76*, 77*, 78*, 79*, 79+4, C79S, 80*
, 81*, 82*, 82+5, C82SC82S+1, 83*, 83+4, C83S, 84*, 85*
, 86*, M86+3, 87*
>> DQ( A!, P+2, D*, PR
>> DSC( 19+3, 23+3, 86+2
DTIME TRBEGIN+3*
>> DTOUT TR*
>> DU DE*, PDPR, 2*, 2+2*, 11*, 11+1*, 19+2*, 23+2*
, 25*, 25+1*, 27*, 40*, 40+1*, 41*, 41+1*, 44*, 47*, 47+1*
, 49*, 49+1*, 52*, 65*, 65+1*, 68*, 72*, 75*, 79*, 82*
82+2*, 83*
DUZ RD+2, Z
DUZ("LANG" R+2
DUZ(0 TRRE
>> DV O+1, O+2, TRRENRD+2, TPP+1, UNIQ
ZDYPRRPI, 2*, 11*, 19+1*, M19+3
23+1*, 25*, 25+4, 27*, 40*, 40+4, 41*, 44*, 47*, 49*
49+4, 52*, 65*, 65+4, 68*, 68+3, 72*, 75*, 79*, 79+4
, 82*, 82+5, 83*, 83+4, 86+1*, M86+3
>> DW ZDSAVEVALS+1, KEYCHK, 1*, 2*, 2+1, 3*, 4*, 5*
, 7*, 9*, 10*, 11*, 13*, 14*, 16*, 17*, 18*, 19+1*
, 21*, 23+1*, 25*, 25+4, 26*, 27*, 28*, 29*, 30*, 33*
, 34*, 35*, 36*, 37*, 38*, 40*, 40+4, 41*, 42*, 44*
, 45*, 47*, 49*, 49+4, 51*, 52*, 53*, 55*, 56*, 57*
, 58*, 59*, 60*, 61*, 62*, 63*, 65*, 65+4, 67*, 68*
, 70*, 71*, 72*, 72+1, 73*, 75*, 75+1, 76*, 79*, 79+1
, 81*, 82*, 82+1, 82+5, 83*, 83+1, 84*, 86+1*
>> DZ QS*
>> RACAT X141+2
RACOM X56*!
RACOMENT X26*!, X28*!
>> RADFN X1X61
>> RADIV X1X5X29X84
>> RADR1 X70
>> RAEXMUL X53X81
>> RAI X14*, X16*, X17M19+1, X21, X30*
>> RAIMAG X4*, 25+2
>> RALIFN X149+2
>> RAMOD X13
>> RAMOD( X17M19+1, X21!
>> RAMOD(0 X16
>> RAMODPRO X17*, X18
>> RAOPT("ADDEXAM" X59X60
>> RAPAOE X62*, X63
>> RAPIFN X140+2
>> RAPKG 82+3
>> RAPREG X5965+2
>> RAPREOP1 X53*
>> RAPRI 2+3, X3*, X4X5X9X10X18
>> RAREAST 27+1
>> RARSH 44+1
>> RASEX X55X57, X58*
>> RASHA 47+2
>> RAVLEDTI X6768+1
>> RAVSTFLG X67
>> RAWHEN X70X7175+2, 79+2, X81*
>> RAWPFLAG X35*, X36
U DE+1, DE+2, DE+3, DE+4, TRPP+2, ZDR
R+1, BEGIN+3*, 12+3, 3457910
131416171819+4, M192123+4, M23
R23+1, 25+2, 2628293032+1, 333435
3637X3738424551535556
57585960616263677071
C72F1, C72X1+1, 73C75F1, C75X1+1, 7678C79F1, C79X1+1, 81
8486+3, M86
X O+2!*, TR*, NRDRD+1, RD+2*, T, P*, P+1!, P+2*
, UNIQ!, ZX+1*, QS, Y*, PR*, R*, R+1*, R+2, RP*
I+1, NKEY*, 1*, 2+3*, 2+4, C2S*, X2*!, 3*, X3, 4*
, 5*, 7*, 9*, 10*, X11*!, 13*, 14*, 16*, 17*, 18*
M19+1*, M19+2, M19+3*, 21*, 25+2*, 25+3, 25+4*, 25+5, 26*, 27+1*
27+2, X27!, X27+1!, 28*, 29*, 30*, 33*, 34*, 35*, 36*
, 37*, 38*, 40+2*, 40+3, 40+4*, 40+5, 41+2*, 41+3, 42*, X42
44+1*, 44+2, X44!, X44+1!, 45*, 47+2*, 47+3, X47*!, 49+2*, 49+3
49+4*, 49+5, 51*, 52+1*, 52+2, X52*!, 53*, X53, 55*, 56*
, 57*, 58*, 59*, 60*, 61*, 62*, 63*, 65+2*, 65+3, 65+4*
65+5, 67*, 68+1*, 68+2, 68+3*, X68*!, 70*, 71*, C72S*, C72F1~
C72F1+2, C72F1+3!*, C72F1+4, C72X1!, C72X1+2*, X72*!, 73*, 75+2*, 75+3, C75S*
, C75F1~, C75F1+2, C75F1+3!*, C75F1+4, C75X1!, C75X1+2*, X75*!, 76*, 79+2*, 79+3
79+4*, C79S*, C79F1~, C79F1+2, C79F1+3!*, C79F1+4, C79X1!, C79X1+2*, X79*!, 81*
X8182+3*, 82+4, 82+5*, 82+6, C82+1*, C82S*, C82S+1*, C82S+2, 83+2*
83+3, 83+4*, C83S*, X83*!, 84*, M86+1*, M86+2, M86+3*
X("FIELD" O+2*
X("FILE" O+2*
X(1 C72F1+1, C72F1+3, C72X1+1*, C72X1+2, C75F1+1, C75F1+3, C75X1+1*, C75X1+2, C79F1+1, C79F1+3
, C79X1+1*, C79X1+2
X1 C72F1~!*, C75F1~!*, C79F1~!*
X2 C72F1~!*, C72F1+3, C75F1~!*, C75F1+3, C79F1~!*, C79F1+3
>> Y OO+1, O+2, PY, PR*, R*, R+1*, R+2*, 1*
, X1*, 2+4*, X2, 3*, 4*, 5*, X5*, 7*, X7*, 9*
, 10*, X10*, X11, 13*, X13*, 14*, 16*, X16*, 17*, 18*
, X18*, M19+2*, M19+3, 21*, X21*, 25+3*, 25+4, 26*, 27+2*, 28*
, 29*, 30*, 32+1*, 33*, X33*, 34*, X34*, 35*, 36*, X36*
, 37*, X37*, 38*, 40+3*, 40+4, 41+3*, 42*, X42*, 44+2*, 45*
, X45*, 47+3*, X4749+3*, 49+4, 51*, X51*, 52+2*, X52, 53*
, 55*, X55*, 56*, 57*, X57*, 58*, 59*, 60*, X60*, 61*
, X61*, 62*, 63*, X63*, 65+3*, 65+4, 67*, X67*, 68+2*, 68+3
X68, 70*, X70*, 71*, X71*, X72, 73*, X73*, 75+3*, X75
, 76*, X76*, 78*, 79+3*, 79+4, X79, 81*, 82+4*, 82+5, 83+3*
83+4, X83, 84*, X84*, M86+2*, M86+3
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