Routine: ADGT041

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

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGT041

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items