Routine: DGPTX74

Information

DGPTX74 ; ;12/08/20

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
VA FileMan	10	$$EZBLD^DIALOG $$LABEL^DIALOGZ E^DIE0 (,0,F,FIREREC,M,N,OUT,UNIQFERR,Z)^DIE17 Z^DIE2 ^DIE3 (AST,NOSCR,SET)^DIED QQ^DIEQ $$SET^DIQ RW^DIR2
Registration	1	(701,DRUG)^DGPTSC01

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGPTX73

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
X2
3
4
X4
5
X5
6
X6
7
X7
8
X8
9
X9
10
11
X11
12
X12
13
14
X14
15
X15
16
X16
17
X17
18
19
X19
20
X20
21
X21
22
X22
23
24
X24
25
X25
26
X26
27
X27
28
29
X29
30
X30
31

External References

Name	Field # of Occurrence
701^DGPTSC01	X1, X7, X11, X16, X21, X26
DRUG^DGPTSC01	X6
$$EZBLD^DIALOG	O+2
$$LABEL^DIALOGZ	1, 7, 11, 16, 21, 26
E^DIE0	I+1
^DIE17	RD
0^DIE17	31
F^DIE17	2, 4, 5, 6, 8, 9, 12, 14, 15, 17 , 19, 20, 22, 24, 25, 27, 29, 30
FIREREC^DIE17	2, 4, 5, 6, 8, 9, 12, 14, 15, 17 , 19, 20, 22, 24, 25, 27, 29, 30
M^DIE17	T
N^DIE17	RP
OUT^DIE17	2, 4, 5, 6, 8, 9, 12, 14, 15, 17 , 19, 20, 22, 24, 25, 27, 29, 30
UNIQFERR^DIE17	Z
Z^DIE17	X
Z^DIE2	RD+1
^DIE3	T
AST^DIED	P
NOSCR^DIED	P
SET^DIED	T
QQ^DIEQ	QS
$$SET^DIQ	R+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: " ("_$$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
Routine Call	DIALOG Line Location: O+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPT - [#45]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	R, R+1
^DD("DD"	R+2
^DD("KEY" - [#.31]	N
^DGPT - [#45]	DE
^DISV(	RD+2, Z*

Label References

Name	Line Occurrences
$$KEYCHK	Z
@(	B, V
A	RE, N, Z, Y, RP, 2, 4, 5, 6, 8 , 9, 12, 14, 15, 17, 19, 20, 22, 24, 25 , 27, 29, 30
B	QS
BEGIN	DGPTX74+1
D	RD, RD+1, P+1, QS
DE	DGPTX74+1, 2, 4, 5, 6, 8, 9, 12, 14, 15 , 17, 19, 20, 22, 24, 25, 27, 29, 30
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
RE	1+2, 7+2, 16+2, 21+1, 26+1
RP	PR, R, R+1
SAVEVALS	Z
TR	RE
V	T, P+1
W	O, RE
X	N, T+1, P, Y
X12	12
X14	14
X15	15
X17	17
X19	19
X2	2
X20	20
X22	22
X24	24
X25	25
X27	27
X29	29
X30	30
X4	4
X5	5
X6	6
X8	8
X9	9
Y	11+4
Z	P+1

Naked Globals

Name	Field # of Occurrence
^(	RD+2, R, R+1
^("F"	SAVEVALS*
^(0	R, R+1
^(300	DE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DE+1, UNIQ!, R+2*
%(	UNIQ!
%(0	UNIQ
%Z	DE+1*, DE+2!
>> D	N, D*
>> DA	DE, UNIQ
DB	DE!
DB(	P, X
>> DC	RP
DDER	T, T+1!
DE	DE!
DE(	O+2, RE, Z, Y, PR, RP, SAVEVALS, SAVEVALS+1, KEYCHK
DE(1	DE+1*
DE(11	DE+1*
DE(16	DE+1*
DE(21	DE+1*
DE(26	DE+1*
DE(7	DE+1*
DG	DE!, PR, R, R+1*, R+2, 2, 4, 5, 6, 8 , 9, 12, 14, 15, 17, 19, 20, 22, 24, 25 , 27, 29, 30
DG(	Z*
>> DG701	X5, X15, X20, X25
>> DGBPC(4	X4
>> DGBPC(6	X19
>> DGBPC(7	X24
>> DGDUP(3	X2*
>> DGDUP(4	X4, X8, X12
>> DGDUP(5	X14, X17*
>> DGDUP(6	X19, X22*
>> DGDUP(7	X24, X27*
DGER	X1!, X7!, X11!, X16!, X21!, X26!
DGFLAG	X1!, X7!, X11!, X16!, X21!, X26!
DGIT	X30!
>> DGNFLD	X30
>> DGPBC(5	X14
DGPTIT	X30!
>> DGTX	X6, 11+2
>> DIC	DE, P
>> DIC("S"	Z!
>> DIC(0	P, 2, 4, 5, 6, 8, 9, 12, 14, 15 , 17, 19, 20, 22, 24, 25, 27, 29, 30*
>> DIE	DE*, P, UNIQ
>> DIEFIRE	2, 4, 5, 6, 8, 9, 12, 14, 15, 17 , 19, 20, 22, 24, 25, 27, 29, 30
>> DIEL	DE*
>> DIEZTMP	SAVEVALS, SAVEVALS+1, SAVEVALS+2
>> DIFLD	O+2, N, UNIQ, D, R+2, SAVEVALS, SAVEVALS+1, SAVEVALS+2, 1, 7 , 11, 16, 21, 26
>> DIIENS	SAVEVALS, SAVEVALS+1, SAVEVALS+2
>> DL	DE*, W
DLAYGO	P*, Z!
>> DLB	W, RD+2, Z, D, 1, 7, 11, 16, 21, 26
>> DNM	BEGIN*
>> DP	DE*, O+2, N, R+2, SAVEVALS, SAVEVALS+1, SAVEVALS+2, 1, 7, 11 , 16, 21, 26
>> DQ	O+2, A, B, RE, P, P+2, V, X, D, Y , PR, RP, SAVEVALS, BEGIN, 2, 3, 4, 5, 6, 8 , 9, 10, 12, 13, 14, 15, 17, 18, 19, 20 , 22, 23, 24, 25, 27, 28, 29, 30
>> DQ(	A!, P+2, D*, PR
DTIME	TR
>> DTOUT	TR*
>> DU	DE, P, D, PR, 1, 1+1, 7, 7+1, 11, 11+1* , 16, 16+1, 21, 26
DUZ	RD+2, Z
DUZ("LANG"	R+2
DUZ(0	TR, RE
>> DV	O+1, O+2, TR, RE, N, RD+2, T, P, P+1, UNIQ , Z, D, Y, PR, RP, I, 1, 7, 11, 16 , 21, 26
>> DW	Z, D, SAVEVALS+1, KEYCHK, 1, 2, 4, 5, 6, 7 , 8, 9, 11, 12, 14, 15, 16, 17, 19, 20 , 21, 22, 24, 25, 26, 27, 29, 30
>> DZ	QS*
>> TESTING	X29
U	DE+1, TR, P, P+2, Z, D, R, R+1, 2, 4 , 5, X5, 6, 8, 9, 12, 14, 15, X15, 17 , 19, 20, X20, 22, 24, 25, X25, 27, 29, 30
X	O+2!, TR, N, RD, RD+1, RD+2, T, P, P+1!, P+2* , UNIQ!, Z, X+1, QS, Y, PR, R, R+1, R+2, RP , I+1, NKEY, X1!, 2, X2, 4, 5, 6, X7!, 8 , X8, 9, 11+2, 11+3, X11!, 12, X12, 14, 15, X16! , 17, X17, 19, 20, X21!, 22, X22, 24, 25, X26! , 27, X27, 29, 30
X("FIELD"	O+2*
X("FILE"	O+2*
>> Y	O, O+1, O+2, P, Y, PR, R, R+1, R+2, 2* , 4, X4, 5, X5, 6, X6, 8, 9, X9, 11+3 , 12, 14, X14, 15, X15, 17, 19, X19, 20, X20 , 22, 24, X24, 25, X25, 27, 29, 30, X30*
YS	V!
>> ZTQUEUED	X, NKEY

Marked Items

Name	Field # of Occurrence
$T(@(3)	D

Customize PDF page

Package: Registration

Routine: DGPTX74

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

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