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

Package: IHS Changes To ADT

Routine: ADGT041


Information

ADGT041 ; ;04/08/09

Source Information

Source file <ADGT041.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA Fileman 11 ^%DT  E^DIE0  (,F,FIREREC,M,N,OUT,UNIQFERR,Z)^DIE17  Z^DIE2  ^DIE3  (AST,NOSCR)^DIED  QQ^DIEQ  AUDIT^DIET  
^DIR  RW^DIR2  DIEN^DIWE  
IHS Changes To ADT 3 ^ADGT042  ^ADGT043  ^ADGT044  

Entry Points

Name Comments DBIA/ICR reference
V
C16S
X
X20
C2S
20
21
22
RD
RE
4
8
11
C20
C6F1
D
C2F1
P
C5F1
T
2
18
NKEY
PR
BEGIN
3
7
O
W
RP
C5S
C11F1
SET
C6S
X8
X9
6
X2
C2
C20F1
X6
C6
C5
X5
C7F1
B
N
R
C20S
X3
Z
C11S
C16F1
10
13
12
15
14
17
16
19
C7
C7S
X7 ; K:X[""""!($A(X)=45) X I $D(X) S Z=$P(X,"-",2) K:Z=""&(X'="*")!($P(^ADGDS(DA(1),"DS",DA,0),"^",3)="") X I $D(X) S Y=$P(^(0),U,3),%=$S($D(^DIC(42,Y,0)):$P(^(0),U,1),1:"") K:Y="" X I $D(X) S DFN=DA(1) D ^DGBEDC
X4
X1
DE
C11
C16
TR
1
5
9
KEYCHK()
A
I
X18
Y
X11
X12
X13
X14
X15
X16
X17
QS
SAVEVALS

External References

Name Field # of Occurrence
^%DT X2, X5, X11
^ADGT042 C20+1
^ADGT043 C20S+1
^ADGT044 22
E^DIE0 I+1, 20+5
^DIE17 RD
F^DIE17 1, 3, 6, 7, 8, 12, 13, 15, 17, 18
, 22
FIREREC^DIE17 1, 13, 15, 18
M^DIE17 T
N^DIE17 RP, 20+5
OUT^DIE17 1, 13, 15, 18
UNIQFERR^DIE17 Z
Z^DIE17 X
Z^DIE2 RD+1
^DIE3 T
AST^DIED P
NOSCR^DIED P
QQ^DIEQ QS
AUDIT^DIET C16+1, C16S+1
^DIR SET+2
RW^DIR2 O+1
DIEN^DIWE 10+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: !,"Must be after Day Surgery Date/Time"
  • Line Location: X11+0
Routine Call
  • DIR
  • Line Location:
    • SET+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ADGDS - [#9009012] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGDS - [#9009012] DE, X1, C2+4!, C2S+4*, X5, C11+2, C11+4, C11S+2, C11S+4, X11
, 20+3
^ADGDS("AA" C2+2!, C2S+2*
^ADGDS("AC" C5+2!, C5S+2*
^ADGDS("AD" C2+8!, C2S+8*
^ADGDS("APID" C2+6!, C2S+6*
^ADGDS("CN" C6+2!, C6S+2*, C11+2*, C11S+2!
^ADGDS("RM" C7+2!, C7S+2*, C11+4*, C11S+4!
^DD( T, R, R+1, C16S+1
^DD("DD" R+2
^DD("KEY" - [#.31] N
^DIC(42 - [#42] C6+2, C6S+2, C11+2, C11S+2
^DISV( RD+2, Z*

Label References

Name Line Occurrences
$$KEYCHK Z
@( B, V
A N, Z, Y, RP, 1, 10+1, 13, 15, 18, 20+5
B QS
BEGIN ADGT041+1
C11F1 C11S
C11S C11
C16F1 C16S
C16S C16
C20F1 C20S
C20S C20
C2F1 C2S
C2S C2
C5F1 C5S
C5S C5
C6F1 C6S
C6S C6
C7F1 C7S
C7S C7
D RD, RD+1, P+1, QS
DE ADGT041+1, 1, 3, 6, 7, 8, 12, 13, 15, 17
, 18
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, 20+6
RE 2+2, 3+1, 4+1, 5+2, 6+3, 7+2, 8+2, 9+2, 11+2, 12+2
, 14+2, 16+3, 17+2
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
X13 13
X15 15
X18 18
Z P+1

Naked Globals

Name Field # of Occurrence
^( RD+2, R, R+1
^("F" SAVEVALS*
^(0 DE+1, R, R+1, C11+2, C11+4, C11S+2, C11S+4
^(12.1 T
^(2 DE+2, X5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DE+1*, DE+2*, T, R+2*, SET+2*
>> %DT X2*, X5*, X11*
%Z DE+1*, DE+2*, DE+3!
>> D N, D*, 10*
>> D0 DE
>> DA DE, C2+2, C2+4, C2+6, C2+8, C2S+2, C2S+4, C2S+6, C2S+8, C5+2
, C5S+2, X5, C6+2, C6S+2, C7+2, C7S+2, C11+2, C11+4, C11S+2, C11S+4
, X11
>> DA(1 C2+2, C2+4, C2+6, C2+8, C2S+2, C2S+4, C2S+6, C2S+8, C5+2, C5S+2
, X5, C6+2, C6S+2, C7+2, C7S+2, C11+2, C11+4, C11S+2, C11S+4, X11
DB DE!, C2!, C2S!, C5!, C5S!, C6!, C6S!, C7!, C7S!, C11!
, C11S!, C16!, C16S!, C20!, C20S!
DB( T, P, X, SET, SET+1, 20+5*
>> DC RP, 10+1*
DDER T, T+1!, SET+2
DE DE!
DE( O+2, RE, Z, Y, PR, RP, SAVEVALS, SAVEVALS+1, KEYCHK, 2+1*
, 5+1*, 6+1*, 7+1*, 11+1*, 16+1*, 20+1*, 20+5
DE(1 10!, 10+1!
DE(11 DE+2*, C11, C11+1, C11+3
DE(12 DE+2*
DE(14 DE+2*
DE(16 DE+2*, C16, C16+1, C16S+1
DE(17 DE+2*
DE(2 DE+1*, C2, C2+1, C2+3, C2+5, C2+7
DE(20 DE+1*, C20
DE(3 DE+1*
DE(4 DE+2*
DE(5 DE+1*, C5, C5+1
DE(6 DE+1*, C6, C6+1
DE(7 DE+1*, C7, C7+1
DE(8 DE+1*
DE(9 DE+1*
>> DFN X1, 20+3
DG DE!, PR*, R*, R+1*, R+2, 1, 3, 6, 7, 8
, 10+1*, 12, 13, 15, 17, 18, 22
DG( Z*, C2S, C2S+1, C2S+3, C2S+5, C2S+7, C5S, C5S+1, C6S, C6S+1
, C7S, C7S+1, C11S, C11S+1, C11S+3, C16S, C16S+1, C20S
>> DGDFN1 X1, 20+3
>> DIC DE*, P*, C2+1*, C2+3*, C2+5*, C2+7*, C2S+1*, C2S+3*, C2S+5*, C2S+7*
, C5+1*, C5S+1*, C6+1*, C6S+1*, C7+1*, C7S+1*, C11+1*, C11+3*, C11S+1*, C11S+3*
>> DIC("S" T, Z!
>> DIC(0 P*, 1*, 13*, 15*, 18*
>> DIE DE*, P, C2+1, C2+3, C2+5, C2+7, C2S+1, C2S+3, C2S+5, C2S+7
, C5+1, C5S+1, C6+1, C6S+1, C7+1, C7S+1, C11+1, C11+3, C11S+1, C11S+3
>> DIEFIRE 1, 13, 15, 18
>> DIEL DE*
>> DIEZTMP SAVEVALS, SAVEVALS+1, SAVEVALS+2
>> DIFLD N, T, D, SAVEVALS, SAVEVALS+1, SAVEVALS+2, 2*, 3*, 4*, 5*
, 6*, 7*, 8*, 9*, 11*, 12*, 14*, 16*, C16+1, C16S+1
, 17*, 20*
>> DIIENS SAVEVALS, SAVEVALS+1, SAVEVALS+2
>> DIIX C16+1*, C16S+1*
DIQUIET SET+1~*
DIR SET~
DIR("V" SET*
DIR(0 SET*
>> DL DE*, W
DLAYGO P*, Z!
>> DLB W, RD+2, Z, D, 2*, 3*, 4*, 5*, 6*, 7*
, 8*, 9*, 11*, 12*, 14*, 16*, 17*, 20*
>> DNM BEGIN*
>> DP DE*, N, T, SAVEVALS, SAVEVALS+1, SAVEVALS+2, C16S+1
>> DQ O+2, A*, B, RE, T, P, P+2, V, X, D
, Y, PR, RP, SET, SET+1, SAVEVALS, BEGIN*, 1*, C2S, C2S+1
, C2S+3, C2S+5, C2S+7, 3*, C5S, C5S+1, 6*, C6S, C6S+1, 7*
, C7S, C7S+1, 8*, C11S, C11S+1, C11S+3, 12*, 13*, 15*, C16S
, C16S+1, 17*, 18*, 19*, 20+5, C20S, 21*
>> DQ( A!, P+2, D*, PR
DTIME TR
>> DTOUT TR*
>> DU DE*, P, D, PR, SET, 2*, 3*, 4*, 5*, 6*
, 6+2*, 7*, 8*, 8+1*, 9*, 9+1*, 11*, 12*, 12+1*, 14*
, 14+1*, 16*, 16+2*, 17*, 17+1*, 20*, 20+2*
DUZ RD+2, Z
>> DV O+1, O+2, N, RD+2, T, P, P+1, Z, D, Y
, PR, RP, I, 2*, 3*, 4*, 5*, 6*, 7*, 8*
, 9*, 11*, 12*, 14*, 16*, 17*, 20*, 20+5
>> DW Z, D, SAVEVALS+1, KEYCHK, 1*, 2*, 2+1, 3*, 4*, 5*
, 5+1, 6*, 6+1, 7*, 7+1, 8*, 9*, 11*, 11+1, 12*
, 13*, 14*, 15*, 16*, 16+1, 17*, 18*, 20*, 20+1
>> DZ QS*
U DE+1, DE+2, TR, P, P+2, Z, D, R, R+1, SET
, 1, 13, 15, C16+1, C16S+1, 18
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*, C2+1*, C2+2, C2+3*, C2+4, C2+5*, C2+6, C2+7*
, C2+8, C2S*, C2S+1*, C2S+2, C2S+3*, C2S+4, C2S+5*, C2S+6, C2S+7*, C2S+8
, X2*!, X3!, X3+1!, X4!, X4+1!, C5+1*, C5+2, C5S*, C5S+1*, C5S+2
, X5*!, C6+1*, C6+2, C6S*, C6S+1*, C6S+2, C7+1*, C7+2, C7S*, C7S+1*
, C7S+2, X7+1!, C11+1*, C11+3*, C11S*, C11S+1*, C11S+3*, X11*!, 13*, X13
, 15*, X15, C16+1*, C16S*, C16S+1*, 18*, 20+3*, 20+4, 20+5*, C20S*
>> XX C11+2*, C11+4*, C11S+2*, C11S+4*
>> Y O, O+1, O+2, P, Y, PR*, R*, R+1*, R+2*, SET+2
, 1*, X2, X5, 10+1*, X11, 13*, X13*, 15*, X15*, 18*
, X18*, 20+4*, 20+5
>> 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