Routine: DGRPX7

Information

DGRPX7 ; GENERATED FROM 'DG LOAD EDIT SCREEN 7' INPUT TEMPLATE(#2407), FILE 2;03/21/13

Call Graph

Call Graph Total: 22

Package	Total	Call Graph
Registration	11	AUTOUPD^DGENA2 (EV,VAGE,VET)^DGLOCK SC^DGLOCK1 EN^DGMTCOR EN^DGRP7CC SC7^DGRPV ^DGRPX71 ^DGRPX72 ^DGRPX73 ADGRU^DGRUDD01 AVAFC^VAFCDD01
VA Fileman	10	^%DT E^DIE0 (,F,FIREREC,M,N,OUT,UNIQFERR,Z)^DIE17 Z^DIE2 ^DIE3 (AST,NOSCR)^DIED QQ^DIEQ $$GETTMP^DIKC1 ^DIR RW^DIR2
IHS Patient	1	(KILL,SET)^AUPNDWXR

Entry Points

Name	Comments	DBIA/ICR reference
X5
DE
15
X10
C11F1
X11
X9
C11
PR
1
BEGIN
SET
RP
C4S
C9
TR
C5
X15
RD
RE
3
2
5
4
7
6
X2
C2
12
X1
X6
X7
KEYCHK()
C2X1(DION)
A
C7F1
B
D
C2S
I
C9F1
X3
O
N
C2F1
P
R
T
W
V
Y
X
X12
Z
C11S
13
11
10
QS
C5F1
C5S
14
C4F1
16
C7
C7S
9
NKEY
C2F2
C9S
X4
8
C4
X8
X13
SAVEVALS

External References

Name	Field # of Occurrence
^%DT	X8
KILL^AUPNDWXR	C4+14
SET^AUPNDWXR	C4S+14
AUTOUPD^DGENA2	C4+8, C4S+8, C5+6, C5S+6, C7+4, C7S+4, C9+2, C9S+2
EV^DGLOCK	X4, X5, X7
VAGE^DGLOCK	X4
VET^DGLOCK	X5
SC^DGLOCK1	X8
EN^DGMTCOR	C4+2, C4S+2, C9+4, C9S+4
EN^DGRP7CC	C4+4, C4S+4
SC7^DGRPV	X3
^DGRPX71	C11+1
^DGRPX72	C11S+1
^DGRPX73	16
ADGRU^DGRUDD01	C4+12, C4S+12, C5+10, C5S+10, C7+10, C7S+10
E^DIE0	I+1
^DIE17	RD
F^DIE17	1, 3, 4, 5, 6, 7, 8, 10, 11, 12 , 13, 15, 16
FIREREC^DIE17	1, 3, 6, 10, 12, 13, 15
M^DIE17	T
N^DIE17	RP
OUT^DIE17	1, 3, 6, 10, 12, 13, 15
UNIQFERR^DIE17	Z
Z^DIE17	X
Z^DIE2	RD+1
^DIE3	T
AST^DIED	P
NOSCR^DIED	P
QQ^DIEQ	QS
$$GETTMP^DIKC1	BEGIN+1
^DIR	SET+2
RW^DIR2	O+1
AVAFC^VAFCDD01	C2+2, C2S+2, C4+10, C4S+10, C5+8, C5S+8, C7+8, C7S+8

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: !?4,*7,"Only applies to service-connected applicants." Line Location: X7+0
Function Call: WRITE	Prompt: !,"No editing P&T Data, Eligibility record verified by HEC" Line Location: X15+0
Routine Call	DIR Line Location: SET+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	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
^DD(2	C4S+6, C5S+2, C5S+4
^DIE(2407	BEGIN+2
^DISV(	RD+2, Z*
^DPT - [#2]	DE, C2X1+1, C4S+6, C5S+2, C5S+4, X7, X10
^DPT("APTYPE"	C2F1+2!, C2F1+4*
^XUSEC("DG ELIGIBILITY"	X4

Label References

Name	Line Occurrences
$$KEYCHK	Z
@(	B, V
A	N, Z, Y, RP, 1, 3, 6, 10, 12, 13 , 15
B	QS
BEGIN	DGRPX7+1
C11F1	C11S
C11S	C11
C2F1	C2S
C2F2	C2F1+5
C2S	C2
C2X1	C2F1
C4F1	C4S
C4S	C4
C5F1	C5S
C5S	C5
C7F1	C7S
C7S	C7
C9F1	C9S
C9S	C9
D	RD, RD+1, P+1, QS
DE	DGRPX7+1, 1, 3, 4, 5, 6, 7, 8, 10, 11 , 12, 13, 15
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	2+3, 4+3, 5+3, 7+2, 8+1, 9+3, 11+3
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
X10	10
X12	12
X13	13
X15	15
X3	3
X6	6
Z	P+1

Naked Globals

Name	Field # of Occurrence
^(	DE+1, RD+2, R, R+1, C4S+6, C5S+2, C5S+4, X7
^("F"	SAVEVALS*
^("TYPE"	DE+2
^("VET"	DE+3
^(0	R, R+1
^(12.1	T

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DE+1, DE+2, DE+3, T, R+2, SET+2*
>> %DT	X8*
%Z	DE+1, DE+2, DE+3*, DE+4!
>> D	N, D*
>> D0	BEGIN+3*, C4S+6, C5S+2, C5S+4
>> DA	DE, BEGIN+3, C2+2, C2S+2, C2F1+2, C2F1+4, C2X1+1, C4+2, C4+4, C4+8 , C4+10, C4+12, C4+14, C4S+2, C4S+4, C4S+8, C4S+10, C4S+12, C4S+14, X4 , C5+6, C5+8, C5+10, C5S+6, C5S+8, C5S+10, X5, C7+4, C7+8, C7+10 , C7S+4, C7S+8, C7S+10, X7, X8, C9+2, C9+4, C9S+2, C9S+4
DB	DE!, C2!, C2S!, C4!, C4S!, C5!, C5S!, C7!, C7S!, C9! , C9S!, 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, 2+1* , 4+1, 5+1, 7+1, 9+1, 11+1*
DE(11	DE+1*, C11
DE(2	DE+2*, C2, C2+1
DE(4	DE+3*, C4, C4+1, C4+3, C4+5, C4+7, C4+9, C4+11, C4+13
DE(5	DE+1*, C5, C5+1, C5+3, C5+5, C5+7, C5+9
DE(7	DE+1*, C7, C7+1, C7+3, C7+5, C7+7, C7+9
DE(8	DE+1*
DE(9	DE+1*, C9, C9+1, C9+3
DFN	C4+2, C4+4, C4S+2, C4S+4, X4, X5, X7, X8~, C9+4, C9S+4 , X10
DG	DE!, PR, R, R+1*, R+2, 1, 3, 4, 5, 6 , 7, 8, 10, 11, 12, 13, 15, 16
DG(	Z*, C2S, C2S+1, C4S, C4S+1, C4S+3, C4S+5, C4S+7, C4S+9, C4S+11 , C4S+13, C5S, C5S+1, C5S+3, C5S+5, C5S+7, C5S+9, C7S, C7S+1, C7S+3 , C7S+5, C7S+7, C7S+9, C9S, C9S+1, C9S+3, C11S
>> DGDR	X1
DGMTCOR	C4+2!, C4S+2!, C9+4!, C9S+4!
>> DIC	DE, P, C2+1, C2S+1, C4+1, C4+3, C4+5, C4+7, C4+9, C4+11 , C4+13, C4S+1, C4S+3, C4S+5, C4S+7, C4S+9, C4S+11, C4S+13, C5+1, C5+3 , C5+5, C5+7, C5+9, C5S+1, C5S+3, C5S+5, C5S+7, C5S+9, C7+1, C7+3 , C7+5, C7+7, C7+9, C7S+1, C7S+3, C7S+5, C7S+7, C7S+9, C9+1, C9+3 , C9S+1, C9S+3
>> DIC("S"	T, Z!
>> DIC(0	P, 1, 3, 6, 10, 12, 13, 15
>> DICRREC	BEGIN+2*
>> DIE	DE*, P, C2+1, C2S+1, C4+1, C4+3, C4+5, C4+7, C4+9, C4+11 , C4+13, C4S+1, C4S+3, C4S+5, C4S+7, C4S+9, C4S+11, C4S+13, C5+1, C5+3 , C5+5, C5+7, C5+9, C5S+1, C5S+3, C5S+5, C5S+7, C5S+9, C7+1, C7+3 , C7+5, C7+7, C7+9, C7S+1, C7S+3, C7S+5, C7S+7, C7S+9, C9+1, C9+3 , C9S+1, C9S+3
DIEBADK	BEGIN+1!
DIEFIRE	BEGIN+1!, 1, 3, 6, 10, 12, 13, 15
>> DIEL	DE*
>> DIEZ	BEGIN+3*
DIEZAR	BEGIN+1~, BEGIN+2*
DIEZRXR	BEGIN+1~
DIEZTMP	SAVEVALS, SAVEVALS+1, SAVEVALS+2, BEGIN+1~*, C2X1+1
>> DIFLD	N, T, D, SAVEVALS, SAVEVALS+1, SAVEVALS+2, 2, 4, 5, 7 , 8, 9, 11*
DIIENS	SAVEVALS, SAVEVALS+1, SAVEVALS+2, BEGIN+1~, BEGIN+3*, C2X1+1
DION	C2X1~, C2X1+1
DIQUIET	SET+1~*
DIR	SET~
DIR("V"	SET*
DIR(0	SET*
>> DIU	C4S+6, C5S+2, C5S+4*
>> DIV	C4S+6, C5S+2, C5S+4
DIXR	BEGIN+1~, C2F1*
>> DL	DE*, W
DLAYGO	P*, Z!
>> DLB	W, RD+2, Z, D, 2, 4, 5, 7, 8, 9 , 11*
>> DNM	BEGIN*
>> DP	DE*, N, T, SAVEVALS, SAVEVALS+1, SAVEVALS+2
>> DPTX	X4
>> 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 , 3, 4, C4S, C4S+1, C4S+3, C4S+5, C4S+7, C4S+9, C4S+11, C4S+13 , 5, C5S, C5S+1, C5S+3, C5S+5, C5S+7, C5S+9, 6, 7, C7S , C7S+1, C7S+3, C7S+5, C7S+7, C7S+9, 8, C9S, C9S+1, C9S+3, 10 , 11, C11S, 12, 13, 14, 15*
>> DQ(	A!, P+2, D*, PR
DTIME	TR, BEGIN+3*
>> DTOUT	TR*
>> DU	DE, P, D, PR, SET, 2, 2+2, 4, 4+2, 5 , 5+2, 7, 8, 9, 9+2, 11, 11+2*
DUZ	RD+2, Z, X4
>> DV	O+1, O+2, N, RD+2, T, P, P+1, Z, D, Y , PR, RP, I, 2, 4, 5, 7, 8, 9, 11*
>> DW	Z, D, SAVEVALS+1, KEYCHK, 1, 2, 2+1, 3, 4, 4+1 , 5, 5+1, 6, 7, 7+1, 8, 9, 9+1, 10, 11* , 11+1, 12, 13, 15*
>> DZ	QS*
U	DE+1, DE+2, DE+3, TR, P, P+2, Z, D, R, R+1 , SET, BEGIN+3*, 1, C2F1, C2X1+1, 3, C4S+6, C5S+2, C5S+4, 6 , X7, 10, X10, 12, 13, 15
>> VAFCF	C2+2, C2S+2, C4+10, C4S+10, C5+8, C5S+8
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, C2S, C2S+1, C2F1~, C2F1+2, C2F1+3!, C2F1+4 , C2X1!, C2X1+2, 3, C4+1, C4+3, C4+5, C4+7, C4+9, C4+11, C4+13 , C4S, C4S+1, C4S+3, C4S+5, C4S+6, C4S+7, C4S+9, C4S+11, C4S+13, X4 , C5+1, C5+3, C5+5, C5+7, C5+9, C5S, C5S+1, C5S+2, C5S+3, C5S+4* , C5S+5, C5S+7, C5S+9, X5, 6, X6, C7+1, C7+3, C7+5, C7+7 , C7+9, C7S, C7S+1, C7S+3, C7S+5, C7S+7, C7S+9, X7!, X8!, C9+1* , C9+3, C9S, C9S+1, C9S+3, 10, C11S, 12, X12, 13, 15*
X(1	C2F1+1, C2F1+3, C2X1+1*, C2X1+2
X1	C2F1~!*
X2	C2F1~!*, C2F1+3
Y	O, O+1, O+2, P, Y, PR, R, R+1, R+2, SET+2 , 1, X1, 3, C4S+6!, C5S+2!, C5S+4!, 6, X6, X8, 10 , X10, 12, X12, 13, X13, 15
Y(0	SET+2
Y(1	C4S+6, C5S+2, C5S+4*
YS	V!
>> ZTQUEUED	X, NKEY

Marked Items

Name	Field # of Occurrence
$T(@(3)	D
$T(ADGRU^DGRUDD01	C4+12, C4S+12, C5+10, C5S+10, C7+10, C7S+10
$T(AVAFC^VAFCDD01	C2+2, C2S+2, C4+10, C4S+10, C5+8, C5S+8, C7+8, C7S+8

Customize PDF page

Package: Registration

Routine: DGRPX7

Information

Source Information

Call Graph

Call Graph Total: 22

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