Routine: DGPTX52

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

Package	Total	Caller Graph
Registration	1	DGPTX51

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
10
X10
11
X11
12
13
X13
14
X14
15
X15
16
17
X17
18
X18
19
X19
20
21
X21
22
X22
23
X23
24
25
X25
26
27
X27
28
X28
29
X29
30
X30
31
32
X32
33
34
X34
35
X35
36
X36
37
38
X38
39
40
X40
41
X41
42
X42
43
44
X44
45
46
X46
47
X47
48
X48
49
50
X50
51
52
X52
53
X53
54
X54
55
56
X56
57
58
X58
59
X59
60
X60
61
62
X62
63
64
X64
65
X65
66
X66
67
X67
68
69
X69
70
71
72
X72
73

External References

Name	Field # of Occurrence
$$FILEHNC^DGNTAPI1	X66
501^DGPTSC01	X1, X6, X10, X14, X18, X22
DRUG^DGPTSC01	X5
501^DGPTSPQ	X35, X38, X41, X44, X47, X50
CHQUES^DGPTSPQ	X27
$$EZBLD^DIALOG	O+2
$$LABEL^DIALOGZ	1, 6, 10, 14, 18, 22, 32, 38, 44, 50 , 56, 62, 69
E^DIE0	I+1, 32+3, 38+3, 44+3, 50+3, 56+3, 62+3, 69+3
^DIE17	RD
1^DIE17	73
F^DIE17	2, 4, 5, 7, 8, 11, 13, 15, 17, 19 , 21, 23, 25, 27, 28, 30, 34, 36, 40, 42 , 46, 48, 52, 54, 58, 60, 64, 66, 67, 72
FIREREC^DIE17	2, 4, 5, 7, 8, 11, 13, 15, 17, 19 , 21, 23, 25, 27, 28, 30, 34, 36, 40, 42 , 46, 48, 52, 54, 58, 60, 64, 66, 67, 72
M^DIE17	T
N^DIE17	RP, 32+3, 38+3, 44+3, 50+3, 56+3, 62+3, 69+3
OUT^DIE17	2, 4, 5, 7, 8, 11, 13, 15, 17, 19 , 21, 23, 25, 27, 28, 30, 34, 36, 40, 42 , 46, 48, 52, 54, 58, 60, 64, 66, 67, 72
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, 7, 8 , 11, 13, 15, 17, 19, 21, 23, 25, 27, 28 , 30, 32+3, 34, 36, 38+3, 40, 42, 44+3, 46, 48 , 50+3, 52, 54, 56+3, 58, 60, 62+3, 64, 66, 67 , 69+3, 72
B	QS
BEGIN	DGPTX52+1
D	RD, RD+1, P+1, QS
DE	DGPTX52+1, 2, 4, 5, 7, 8, 11, 13, 15, 17 , 19, 21, 23, 25, 27, 28, 30, 34, 36, 40 , 42, 46, 48, 52, 54, 58, 60, 64, 66, 67 , 72
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, 32+4, 38+4, 44+4, 50+4, 56+4, 62+4, 69+4
RE	1+2, 6+2, 14+2, 18+1, 22+1, 35+2, 41+2, 47+2, 53+2, 59+2 , 65+2
RP	PR, R, R+1
SAVEVALS	Z
TR	RE
V	T, P+1
W	O, RE
X	N, T+1, P, Y
X11	11
X13	13
X15	15
X17	17
X19	19
X2	2
X21	21
X23	23
X25	25
X27	27
X28	28
X30	30
X34	34
X36	36
X4	4
X40	40
X42	42
X46	46
X48	48
X5	5
X52	52
X54	54
X58	58
X60	60
X64	64
X66	66
X67	67
X7	7
X72	72
X8	8
Y	10+4, 29+3
Z	P+1

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DE+1, DE+2, DE+3, UNIQ!, R+2*
%(	UNIQ!
%(0	UNIQ
%Z	DE+1, DE+2, DE+3, DE+4!
>> D	N, D*
>> D0	DE
>> DA	DE, UNIQ
DB	DE!
DB(	P, X, 32+3, 38+3, 44+3, 50+3, 56+3, 62+3, 69+3*
>> DC	RP
DDER	T, T+1!
DE	DE!
DE(	O+2, RE, Z, Y, PR, RP, SAVEVALS, SAVEVALS+1, KEYCHK, 32+3 , 38+3, 44+3, 50+3, 56+3, 62+3, 69+3
DE(1	DE+3*
DE(10	DE+3*
DE(14	DE+3*
DE(18	DE+3*
DE(22	DE+3*
DE(29	DE+2*
DE(32	DE+2*
DE(35	DE+1*
DE(38	DE+1*
DE(41	DE+1*
DE(44	DE+1*
DE(47	DE+1*
DE(50	DE+1*
DE(53	DE+2*
DE(56	DE+2*
DE(59	DE+1*
DE(6	DE+3*
DE(62	DE+1*
DE(65	DE+1*
DE(69	DE+1*
>> DFN	X66
DG	DE!, PR, R, R+1*, R+2, 2, 4, 5, 7, 8 , 11, 13, 15, 17, 19, 21, 23, 25, 27, 28 , 30, 34, 36, 40, 42, 46, 48, 52, 54, 58 , 60, 64, 66, 67, 72
DG(	Z*
>> DGBPC(4	X4
>> DGBPC(5	X13
>> DGBPC(6	X17
>> DGBPC(7	X21
>> DGDUP(3	X2*
>> DGDUP(4	X4, X7, X11
>> DGDUP(5	X13, X15*
>> DGDUP(6	X17, X19*
>> DGDUP(7	X21, X23*
DGER	X1!, X6!, X10!, X14!, X18!, X22!, X35!, X38!, X41!, X44! , X47!, X50!
DGEXQ	X27!, X72!
DGEXQ(1	X34
DGEXQ(2	X40
DGEXQ(3	X46
DGEXQ(4	X58
DGEXQ(5	X64
DGEXQ(6	X28
DGEXQ(7	X52
DGFLAG	X1!, X6!, X10!, X14!, X18!, X22!, X35!, X38!, X41!, X44! , X47!, X50!
>> DGNFLD	X25, X72
DGPTIT	X25!
DGTX	X5, 10+2, X25!
>> DIC	DE, P
>> DIC("S"	Z!
>> DIC(0	P, 2, 4, 5, 7, 8, 11, 13, 15, 17 , 19, 21, 23, 25, 27, 28, 30, 34, 36, 40 , 42, 46, 48, 52, 54, 58, 60, 64, 66, 67 , 72*
>> DIE	DE*, P, UNIQ
>> DIEFIRE	2, 4, 5, 7, 8, 11, 13, 15, 17, 19 , 21, 23, 25, 27, 28, 30, 34, 36, 40, 42 , 46, 48, 52, 54, 58, 60, 64, 66, 67, 72
>> DIEL	DE*
>> DIEZTMP	SAVEVALS, SAVEVALS+1, SAVEVALS+2
>> DIFLD	O+2, N, UNIQ, D, R+2, SAVEVALS, SAVEVALS+1, SAVEVALS+2, 1, 6 , 10, 14, 18, 22, 29, 32, 35, 38, 41, 44 , 47, 50, 53, 56, 59, 62, 65, 69
>> DIIENS	SAVEVALS, SAVEVALS+1, SAVEVALS+2
>> DL	DE*, W
DLAYGO	P*, Z!
>> DLB	W, RD+2, Z, D, 1, 6, 10, 14, 18, 22 , 29, 32, 35, 38, 41, 44, 47, 50, 53, 56 , 59, 62, 65, 69
>> DNM	BEGIN*
>> DP	DE*, O+2, N, R+2, SAVEVALS, SAVEVALS+1, SAVEVALS+2, 1, 6, 10 , 14, 18, 22, 32, 38, 44, 50, 56, 62, 69
>> DQ	O+2, A, B, RE, P, P+2, V, X, D, Y , PR, RP, SAVEVALS, BEGIN, 2, 3, 4, 5, 7, 8 , 9, 11, 12, 13, 15, 16, 17, 19, 20, 21 , 23, 24, 25, 26, 27, 28, 30, 31, 32+3, 33* , 34, 36, 37, 38+3, 39, 40, 42, 43, 44+3, 45 , 46, 48, 49, 50+3, 51, 52, 54, 55, 56+3, 57 , 58, 60, 61, 62+3, 63, 64, 66, 67, 68, 69+3 , 70, 71, 72*
>> DQ(	A!, P+2, D*, PR
DTIME	TR
>> DTOUT	TR*
>> DU	DE, P, D, PR, 1, 1+1, 6, 6+1, 10, 10+1* , 14, 14+1, 18, 22, 29, 29+1, 32, 32+1, 35, 35+1 , 38, 38+1, 41, 41+1, 44, 44+1, 47, 47+1, 50, 50+1 , 53, 53+1, 56, 56+1, 59, 59+1, 62, 62+1, 65, 65+1 , 69, 69+1
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, 6, 10, 14 , 18, 22, 29, 32, 32+3, 35, 38, 38+3, 41, 44 , 44+3, 47, 50, 50+3, 53, 56, 56+3, 59, 62, 62+3 , 65, 69, 69+3
>> DW	Z, D, SAVEVALS+1, KEYCHK, 1, 2, 4, 5, 6, 7 , 8, 10, 11, 13, 14, 15, 17, 18, 19, 21 , 22, 23, 25, 27, 28, 29, 30, 32, 34, 35 , 36, 38, 40, 41, 42, 44, 46, 47, 48, 50 , 52, 53, 54, 56, 58, 59, 60, 62, 64, 65 , 66, 67, 69, 72
>> DZ	QS*
U	DE+1, DE+2, DE+3, TR, P, P+2, Z, D, R, R+1 , 2, 4, 5, 7, 8, 11, 13, 15, 17, 19 , 21, 23, 25, 27, 28, 30, 34, 36, 40, 42 , 46, 48, 52, 54, 58, 60, 64, 66, 67, 72
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, X6!, 7, X7 , 8, 10+2, 10+3, X10!, 11, X11, 13, X14!, 15, X15 , 17, X18!, 19, X19, 21, X22!, 23, X23, 25, 27 , 28, 30, 32+3, 34, X35!, 36, 38+3, X38!, 40, X41! , 42, 44+3, X44!, 46, X47!, 48, 50+3, X50!, 52, 54 , 56+3, 58, 60, 62+3, 64, 66, X66, 67, 69+3, 72*
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, 7, 8, X8, 10+3, 11, 13 , X13, 15, 17, X17, 19, 21, X21, 23, 25, X25 , 27, X27, 28, X28, 29+2, 30, X30, 32+2, 32+3, 34* , X34, 36, X36, 38+2, 38+3, 40, X40, 42, X42, 44+2* , 44+3, 46, X46, 48, X48, 50+2, 50+3, 52, X52, 54 , X54, 56+2, 56+3, 58, X58, 60, X60, 62+2, 62+3, 64 , X64, 66, 67, X67, 69+2, 69+3, 72, X72*
YS	V!
>> ZTQUEUED	X, NKEY

Marked Items

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

Customize PDF page

Package: Registration

Routine: DGPTX52

Information

Source Information

Call Graph

Call Graph Total: 13

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