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

Package: IHS Changes To ADT

Routine: ADGT15


Information

ADGT15 ; GENERATED FROM 'ADGWARD' INPUT TEMPLATE(#1595), FILE 42;05/04/99

Source Information

Source file <ADGT15.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 9 ^DIC  E^DIE0  (,F,M,N,Z)^DIE17  Z^DIE2  ^DIE3  QQ^DIEQ  AUDIT^DIET  ^DIR  
RW^DIR2  
IHS Changes To ADT 1 ^ADGT151  

Entry Points

Name Comments DBIA/ICR reference
DE
PR
1
BEGIN
SET
RP
C4S
TR
RD
RE
3
2
5
4
7
6
C3
X3
C1
X1
X6
X4
C4
A
B
D
I
O
N
P
R
T
W
V
Y
X
Z
QS
C1S
X5
C3S

External References

Name Field # of Occurrence
^ADGT151 7
^DIC P
E^DIE0 I+1
^DIE17 RD
F^DIE17 2, 3, 4, 5, 7
M^DIE17 T
N^DIE17 RP
Z^DIE17 X
Z^DIE2 RD+1
^DIE3 T
QQ^DIEQ QS
AUDIT^DIET C1+6, C1S+6
^DIR SET+2
RW^DIR2 O+1

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: !?20,"This Hospital location points to ",$P(^DIC(42,+^SC(+X,42),0),"^",1)
  • Line Location: X3+0
Routine Call
  • DIC
  • Line Location:
    • P
Routine Call
  • DIR
  • Line Location:
    • SET+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42 - [#42] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( T, R, R+1, C1S+6
^DD("DD" R+2
^DD(42 C1S+5, C3+1, C3S+1, C4S+1
^DIC(42 - [#42] DE, C1+1!, C1S+1*, X3, C4S+1
^DISV( RD+2, Z*
^SC - [#44] C3+1, C3S+1, X3

Label References

Name Line Occurrences
@( B, V
A N, Z, Y, RP, 2
B QS
BEGIN ADGT15+1
C1S C1
C3S C3
C4S C4
D RD, RD+1, P+1, QS
DE ADGT15+1, 2, 3, 4, 5
N Y
O Y, RP
P T
PR RE, I+1
QS RD
R R, R+1
RD Y, I, I+1
RE 1+2, 3+3, 4+3, 5+1, 6+1
RP PR, R, R+1
SET T
TR RE
V T, P+1
W O, RE
X N, T+1, P, Y
Z P+1

Naked Globals

Name Field # of Occurrence
^( RD+2, R, R+1
^("IHS" DE+3
^("ORDER" C4S+1
^(0 DE+1, R, R+1
^(12.1 T
^(42 C3+1, C3S+1, X3
^(44 DE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DE+1*, DE+2*, DE+3*, T, R+2*, SET+2*
%Z DE+1*, DE+2*, DE+3*, DE+4!
>> D N, D*
>> D0 BEGIN+1*, C1S+5*, C3+1*, C3S+1*, C4S+1*
>> DA DE, BEGIN+1, C1+1, C1S+1, C3+1, X3, C4S+1
DB DE!, C1!, C1S!, C3!, C3S!, C4!, C4S!
DB( T, P, X, SET, SET+1
>> DC RP
DDER T, T+1!, SET+2
DE DE!
DE( O+2, RE, Y, PR, RP, 1+1*, 3+1*, 4+1*
DE(1 DE+1*, C1, C1+2, C1+4, C1+6, C1S+6
DE(3 DE+2*, C3
DE(4 DE+3*, C4
DE(5 DE+1*
DE(6 DE+1*
DG DE!, PR*, R*, R+1*, R+2, 2, 3, 4, 5, 7
DG( Z*, C1S, C1S+2, C1S+4, C1S+6, C3S, C4S
>> DIC DE*, P*, C1*, C1+2*, C1+4*, C1S*, C1S+2*, C1S+4*, C3*, C3S*
, C4*, C4S*
>> DIC("S" T, Z!
>> DIC(0 P*
>> DIE DE*, P, C1, C1+2, C1+4, C1S, C1S+2, C1S+4, C3, C3S
, C4, C4S
>> DIEL DE*
>> DIEZ BEGIN+1*
>> DIFLD T, D, 1*, C1+6, C1S+6, 3*, 4*, 5*, 6*
>> DIIX C1+6*, C1S+6*
DIQUIET SET+1~*
DIR SET~
DIR("V" SET*
DIR(0 SET*
>> DIU C1S+5*, C3+1*, C3S+1*, C4S+1*
DIV C1S+5, C3+1!*, C3S+1, C4S+1!*
DIV(0 C3+1*, C3S+1*, C4S+1*
>> DL DE*, W
DLAYGO P*, Z!
>> DLB W, RD+2, Z, D, 1*, 3*, 4*, 5*, 6*
>> DNM BEGIN*
>> DP DE*, T, C1S+6
>> DQ O+2, A*, B, RE, T, P, P+2, V, X, D
, Y, PR, RP, SET, SET+1, BEGIN*, C1S, C1S+2, C1S+4, C1S+6
, 2*, 3*, C3S, 4*, C4S, 5*
>> DQ( A!, P+2, D*, PR
DTIME TR, BEGIN+1*
>> DTOUT TR*
>> DU DE*, P, D, PR, SET, 1*, 3*, 3+2*, 4*, 4+2*
, 5*, 6*
DUZ RD+2, Z
>> DV O+1, O+2, N, RD+2, T, P, P+1, Z, D, Y
, PR, RP, I, 1*, 3*, 4*, 5*, 6*
>> DW Z, D, 1*, 1+1, 3*, 3+1, 4*, 4+1, 5*, 6*
>> DZ QS*
>> I(0 C1S+5, C3+1*, C3S+1*
U DE+1, DE+2, DE+3, TR, P, P+2, Z, D, R, R+1
, SET, BEGIN+1*, C1+6, C1S+5, C1S+6, 2, C3+1, C3S+1, C4S+1
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*, C1*, C1+1, C1+2*, C1+4*, C1+6*, C1S*, C1S+1, C1S+2*, C1S+4*
, C1S+5*, C1S+6*, X1!, X1+1!, C3*, C3+1*, C3S*, C3S+1*, X3!, C4*
, C4S*, C4S+1*, X5!, X6!
Y O, O+1, O+2, P, Y, PR*, R*, R+1*, R+2*, SET+2
, C1S+5!, 2*, C3+1!, C3S+1!, C4S+1!
Y(0 SET+2
Y(1 C4S+1*
Y(101 C1S+5, C3+1*, C3S+1*
YS V!
>> ZTQUEUED X

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