Routine: DGPTX52

Information

DGPTX52 ; ;03/21/13

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
VA Fileman	10	^DIC E^DIE0 (,F,FIREREC,M,N,OUT,UNIQFERR,Z)^DIE17 Z^DIE2 ^DIE3 (AST,NOSCR)^DIED QQ^DIEQ ($$CREF,$$OREF)^DILF ^DIR RW^DIR2
Registration	4	ICDEN^DGPTF5 (501,DRUG)^DGPTSC01 SCAN^DGPTSCAN ^DGPTX53

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGPTX51

Entry Points

Name	Comments	DBIA/ICR reference
DE
X26
X10
C11F1
X11
X25
X9
C11
20
X21
X23
X22
PR
1
BEGIN
SET
RP
21
22
23
X14
TR
C6S
RD
RE
3
2
5
4
7
6
X2
8
C1
X1
X6
C6
KEYCHK()
X5
A
24
B
C6F1
D
25
I
27
13
O
N
X18
P
X19
R
T
W
V
Y
X
X12
Z
C11S
X16
X17
11
10
QS
12
15
14
17
16
19
18
9
X7
NKEY
X4
C1S
26
C1F1
SAVEVALS

External References

Name	Field # of Occurrence
ICDEN^DGPTF5	X1, X6, X11
501^DGPTSC01	X18, X22
DRUG^DGPTSC01	X26
SCAN^DGPTSCAN	X16
^DGPTX53	27
^DIC	X1, X6, X11
E^DIE0	I+1
^DIE17	RD
F^DIE17	1, 2, 4, 5, 6, 7, 9, 10, 11, 12 , 14, 16, 17, 18, 19, 21, 23, 25, 26, 27
FIREREC^DIE17	2, 4, 5, 7, 9, 10, 12, 14, 16, 17 , 19, 21, 23, 25, 26
M^DIE17	T
N^DIE17	RP
OUT^DIE17	2, 4, 5, 7, 9, 10, 12, 14, 16, 17 , 19, 21, 23, 25, 26
UNIQFERR^DIE17	Z
Z^DIE17	X
Z^DIE2	RD+1
^DIE3	T
AST^DIED	P
NOSCR^DIED	P
QQ^DIEQ	QS
$$CREF^DILF	C1F1, C6F1, C11F1
$$OREF^DILF	C1F1, C6F1, C11F1
^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
Routine Call	DIC Line Location: X1 X6 X11
Routine Call	DIR Line Location: SET+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(	T, R, R+1
^DD("DD"	R+2
^DD("KEY" - [#.31]	N
^DGPT - [#45]	DE, C1+2!, C1S+2, 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, 2, 4, 5, 7, 9, 10 , 12, 14, 16, 17, 19, 21, 23, 25, 26
B	QS
BEGIN	DGPTX52+1
C11F1	C11S
C11S	C11
C1F1	C1S
C1S	C1
C6F1	C6S
C6S	C6
D	RD, RD+1, P+1, QS
DE	DGPTX52+1, 1, 2, 4, 5, 6, 7, 9, 10, 11 , 12, 14, 16, 17, 18, 19, 21, 23, 25, 26
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+3, 6+3, 11+3, 18+2, 22+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
X10	10
X12	12
X14	14
X16	16
X17	17
X19	19
X2	2
X21	21
X23	23
X25	25
X26	26
X4	4
X5	5
X7	7
X9	9
Z	P+1

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DE+1, DE+2, T, R+2, SET+2
%Z	DE+1, DE+2, DE+3!
>> D	N, D*
>> D0	DE
>> DA	DE, C1+2, C1S+2, C6+2, C6S+2, C11+2, C11S+2
>> DA(1	C1+2, C1S+2, C6+2, C6S+2, C11+2, C11S+2
DB	DE!, C1!, C1S!, C6!, C6S!, C11!, C11S!
DB(	T, P, X, SET, SET+1
>> DC	RP
DDER	T, T+1!, SET+2
DE	DE!
DE(	O+2, RE, Z, Y, PR, RP, SAVEVALS, SAVEVALS+1, KEYCHK, 1+1* , 6+1, 11+1
DE(1	DE+1*, C1, C1+1, C1+3
DE(11	DE+1*, C11, C11+1, C11+3
DE(18	DE+2*
DE(22	DE+2*
DE(6	DE+1*, C6, C6+1, C6+3
DG	DE!, PR, R, R+1*, R+2, 1, 2, 4, 5, 6 , 7, 9, 10, 11, 12, 14, 16, 17, 18, 19 , 21, 23, 25, 26, 27
DG(	Z*, C1S, C1S+1, C1S+3, C6S, C6S+1, C6S+3, C11S, C11S+1, C11S+3
DGADD	X4, X9, X14!
>> DGBPC	X16
>> DGBPC(2	X17
>> DGBPC(3	X21
>> DGBPC(4	X25
DGDUP	X14!
DGDUP(2	X17, X19*
DGDUP(3	X21, X23*
DGDUP(4	X25
DGER	X18!, X22!
DGFLAG	X18!, X22!
>> DGHOLD	X4, X9
DGNFLD	X2, X5, X7, X10, X12*, X14!
DGPTIT	X2!, X7!, X12!
DGPTIT(	X2, X7, X12*
>> DGTX	X26
DIC	DE, P, C1+1, C1+3, C1S+1, C1S+3, X1!, C6+1, C6+3, C6S+1 , C6S+3, X6!, C11+1, C11+3, C11S+1, C11S+3, X11!*
DIC("S"	T, Z!, X1, X6, X11*
DIC(0	P, X1, 2, 4, 5, X6, 7, 9, 10, X11 , 12, 14, 16, 17, 19, 21, 23, 25, 26*
>> DIE	DE*, P, C1+1, C1+3, C1S+1, C1S+3, C1F1, X1, C6+1, C6+3 , C6S+1, C6S+3, C6F1, X6, C11+1, C11+3, C11S+1, C11S+3, C11F1, X11
>> DIEFIRE	2, 4, 5, 7, 9, 10, 12, 14, 16, 17 , 19, 21, 23, 25, 26
>> DIEL	DE*
>> DIEZRXR(	C1F1, C1F1+1, C6F1, C6F1+1, C11F1, C11F1+1
>> DIEZTMP	SAVEVALS, SAVEVALS+1, SAVEVALS+2
>> DIFLD	N, T, D, SAVEVALS, SAVEVALS+1, SAVEVALS+2, 1, 6, 11, 18 , 22*
>> DIIENS	SAVEVALS, SAVEVALS+1, SAVEVALS+2, C1F1, C6F1, C11F1
DIQUIET	SET+1~*
DIR	SET~
DIR("V"	SET*
DIR(0	SET*
>> DIXR	C1F1+1, C6F1+1, C11F1+1*
>> DL	DE*, W
DLAYGO	P*, Z!
>> DLB	W, RD+2, Z, D, 1, 6, 11, 18, 22*
>> DNM	BEGIN*
>> DP	DE*, N, T, SAVEVALS, SAVEVALS+1, SAVEVALS+2
>> DQ	O+2, A, B, RE, T, P, P+2, V, X, D , Y, PR, RP, SET, SET+1, SAVEVALS, BEGIN, 1, C1S, C1S+1 , C1S+3, 2, 3, 4, 5, 6, C6S, C6S+1, C6S+3, 7* , 8, 9, 10, 11, C11S, C11S+1, C11S+3, 12, 13, 14* , 15, 16, 17, 18, 19, 20, 21, 23, 24, 25 , 26*
>> DQ(	A!, P+2, D*, PR
DTIME	TR
>> DTOUT	TR*
>> DU	DE, P, D, PR, SET, 1, 1+2, 6, 6+2, 11 , 11+2, 18, 18+1, 22, 22+1*
DUZ	RD+2, Z
>> DV	O+1, O+2, N, RD+2, T, P, P+1, Z, D, Y , PR, RP, I, 1, 6, 11, 18, 22*
>> DW	Z, D, SAVEVALS+1, KEYCHK, 1, 1+1, 2, 4, 5, 6* , 6+1, 7, 9, 10, 11, 11+1, 12, 14, 16, 17 , 18, 19, 21, 22, 23, 25, 26*
>> DZ	QS*
K	X1!, X6!, X11!
U	DE+1, DE+2, TR, P, P+2, Z, D, R, R+1, SET , 2, 4, X4, 5, 7, 9, X9, 10, 12, 14 , 16, 17, 19, 21, 23, 25, 26
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, C1+1, C1+2, C1+3, C1S, C1S+1, C1S+2, C1S+3, X1! , 2, X2, 4, 5, C6+1, C6+2, C6+3, C6S, C6S+1, C6S+2 , C6S+3, X6!, 7, X7, 9, 10, C11+1, C11+2, C11+3, C11S* , C11S+1, C11S+2, C11S+3, X11!, 12, X12, 14, 16, 17, X18! , 19, X19, 21, X22!, 23, X23, 25, 26
>> Y	O, O+1, O+2, P, Y, PR, R, R+1, R+2, SET+2 , X1, 2, X2, 4, X4, 5, X6, 7, X7, 9 , X9, 10, X11, 12, X12, 14, X14, 16, X16, 17* , X17, 19, 21, X21, 23, 25, X25, 26, X26*
>> Y(0	SET+2
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: 14

Caller Graph

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