Routine: DGLOCK

Package	Total	Call Graph
VA FileMan	2	EN^DDIOL YN^DICN
Registration	1	EN^DGCLEAR

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: 21

Package	Total	Caller Graph
Registration	12	DGLOCK1 DGPTX11 DGRPTX DGRPTX27 DGRPX7 DGRPX75 DGRPXC DGRPXCR DGRPXR DGRPXX7 DGRPXX71 DGRPXX72
Integrated Billing	5	IBXS11 IBXSC11 IBXSC114 IBXSC117 IBXSC121
Albany OIFO	3	A1CKC A1CKC2 A1CKC3
Automated Medical Information Exchange	1	DVBAXA

Entry Points

Name	Comments	DBIA/ICR reference
FFP	; DGFFP Access key required
EK	;EKey Rqrd
EV	;EK rqrd if Elig Ver
EV2	;if elig is ver Discharged Due to Disability can't be edited - DG 672
SV	;EK Rqrd if Svc Rcrd Ver
SV1
MV	;EK Rqrd if Money Ver
VET	;Veteran
VAGE	;Vet Age
AO	;Agent Orange
EC	;SW Asia Contaminants - name change from Env. Contam. DG5.3688
COM	;Combat
INE	;Ineligible
IR	;ION Rad
POW	;Prisoner of War
SER1	;NTL Svc
SER2	;NNTL
TAD	;Temp Add Edit
TADD	;Temp Address Delete?
ASK
VN	;Viet Svc
OEIF	;OIF/ OEF/ UNKNOWN OEF/OIF Svc
SVED	;Lebanon, Grenada, Panama, Persian Gulf & Yugoslavia svc edit ; (from and to dates)
PTDT
POWV
INEL	;check ineligible date - cannot be before DOB
INCOM	;check date ruled incompetent (VA) - cannot be before DOB
INCOM2	;check date ruled incompetent (civil - cannot be before DOB
DOBDOD(DGFLD,DGX)	;called from subroutines to check if
DEATH	;new date constraints added with ESR 3.1 - DG5.3754
BIRTH	;checks for DOB added with DG5.3754
MSE	;Military Service Episode data cannot be edited once it has been

External References

Name	Field # of Occurrence
EN^DDIOL	FFP+1, EV+1, EV2+4, SV1, VET+2, PTDT+2, POWV+2, DOBDOD+5, DEATH+8, DEATH+12 , DEATH+16, BIRTH+11, BIRTH+19, MSE+4
EN^DGCLEAR	ASK+3
YN^DICN	ASK

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?4,$C(7),"Eligibility Key required to edit this field." Line Location: EK+1
Function Call: WRITE	Prompt: !?4,$C(7),"Monetary Benefits verified...Eligibility Key required to edit this field." Line Location: MV+2
Function Call: WRITE	Prompt: !?4,$C(7),"Applicant is TOO YOUNG to be a veteran...ONLY ",X," YEARS OLD!!",!?4,"See your supervisor if you require assistance." Line Location: VAGE+2
Function Call: WRITE	Prompt: !?4,$C(7),"Exposure to Agent Orange not indicated...NO EDITING!" Line Location: AO+1
Function Call: WRITE	Prompt: !?4,$C(7),"Southwest Asia Conditions not indicated...NO EDITING!" Line Location: EC+1
Function Call: WRITE	Prompt: !?4,$C(7),"Date must be on or after 8/2/1990!" Line Location: EC+2
Function Call: WRITE	Prompt: !?4,$C(7),"Service in Combat Zone not indicated...NO EDITING!" Line Location: COM+1
Function Call: WRITE	Prompt: !?4,$C(7),"Requirement for 'Ineligible patient' data not indicated...NO EDITING!" Line Location: INE+1
Function Call: WRITE	Prompt: !?4,$C(7),"Exposure to Ionizing Radiation is not indicated...NO EDITING!" Line Location: IR+1
Function Call: WRITE	Prompt: !?5,$C(7),"Not identified as a former Prisoner of War...NO EDITING!" Line Location: POW+1
Function Call: WRITE	Prompt: !?4,$C(7),"Other Periods of Service are not indicated...NO EDITING!" Line Location: SER1+1
Function Call: WRITE	Prompt: !?4,$C(7),"Third Period of Service is not indicated...NO EDITING!" Line Location: SER2+1
Function Call: WRITE	Prompt: !?4,$C(7),"Requirement for Temporary Address data not indicated...NO EDITING!" Line Location: TAD+1
Function Call: WRITE	Prompt: !,"Do you want to delete all temporary address data" Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Answer 'Y'es to remove temporary address information, 'N'o to leave data in file" Line Location: ASK+0
Function Call: WRITE	Prompt: !?4,$C(7),"Service in Republic of Vietnam not indicated...NO EDITING!" Line Location: VN+1
Function Call: WRITE	Prompt: $S(DGSV=1:"Lebanon",DGSV=4:"Grenada",DGSV=7:"Panama",DGSV=10:"Persian Gulf",DGSV=16:"Somalia",DGSV=19:"Yugoslavia",1:"") Line Location: SVED+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	PTDT+4, INEL+4, INCOM+3, INCOM2+3, DEATH+3, BIRTH+7
^DG(391 - [#391]	VET+1
^DGEN(27.11 - [#27.11]	BIRTH+17, BIRTH+18
^DPT - [#2]	EV+1, EV2+2, EV2+3, SV1, MV+2, VET+1, VET+2, VAGE+1, AO+1, EC+1 , COM+1, INE+1, IR+1, POW+1, SER1+1, SER2+1, TAD+1, TADD+1, VN+1, SVED+9 , PTDT+2, PTDT+5, PTDT+7, PTDT+8, POWV+2, INEL+3, INCOM+4, INCOM+6, INCOM+7, INCOM2+4 , INCOM2+6, INCOM2+7, DEATH+5, DEATH+7, DEATH+11, DEATH+15, BIRTH+9, BIRTH+10, BIRTH+13, BIRTH+15 , MSE+4
^XUSEC("DG ELIGIBILITY"	EK+1, EV+1, SV1, MV+2
^XUSEC("DGFFP ACCESS"	FFP+1

Label References

Name	Line Occurrences
ASK	ASK
DOBDOD	PTDT+6, PTDT+9, INEL+5, INCOM+5, INCOM+8, INCOM2+5, INCOM2+8, DEATH+5
EK	INE+1
SV	AO+1, EC+1, COM+1, IR+1, POW+1, SER1+1, SER2+1, VN+1, OEIF+1, SVED+6
VET	SV+1, MV+1, MSE+3

Naked Globals

Name	Field # of Occurrence
^(	EV+1, EV2+2, SV1, MV+2, AO+1, EC+1, COM+1, INE+1, IR+1, POW+1 , SER1+1, SER2+1, TAD+1, TADD+1, VN+1, PTDT+2
^("TYPE"	VET+1
^("VET"	VET+2
^(0	VET+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASK*, ASK+3
>> %Y	ASK
>> DA	BIRTH+3, BIRTH+5, MSE+4
DFN	EV+1, EV2+2, EV2+3, SV1, MV+2, VET+1, VET+2, VAGE+1, AO+1, EC+1 , COM+1, INE+1, IR+1, POW+1, SER1+1, SER2+1, TAD+1, TADD+1, ASK+3, VN+1 , SVED+9, PTDT+2, PTDT+5, PTDT+7, PTDT+8, POWV+2, INEL+3, INCOM+4, INCOM+6, INCOM+7 , INCOM2+4, INCOM2+6, INCOM2+7, DEATH+5, DEATH+7, DEATH+11, DEATH+15, BIRTH+4~, BIRTH+5*, BIRTH+9 , BIRTH+10, BIRTH+13, BIRTH+15, BIRTH+17, MSE+4
>> DGADDF	BIRTH+1
DGDATA	VAGE+1*, VAGE+2!, VAGE+3!
DGENR	BIRTH+14~, BIRTH+15*, BIRTH+16, BIRTH+17, BIRTH+18
DGFLD	PTDT+3~, PTDT+4, PTDT+6, PTDT+9, INEL+2~, INEL+4, INEL+5, INCOM+2~, INCOM+3, INCOM+5 , INCOM+8, INCOM2+2~, INCOM2+3, INCOM2+5, INCOM2+8, DOBDOD~, DOBDOD+3, DOBDOD+5, DEATH+2~, DEATH+3* , DEATH+5, DEATH+8, DEATH+12, DEATH+16, BIRTH+6~, BIRTH+7*, BIRTH+11, BIRTH+19
DGOK	SVED+7~, SVED+8, SVED+9, SVED+11
DGPC	SVED+7~, SVED+14*, SVED+15, SVED+16
DGSV	SVED+7~, SVED+9, SVED+15
>> DGTMOT	ASK+2*
DGVV	VET+1*, VET+2, VET+3!
DGX	SVED+6!, SVED+9, SVED+15, SVED+18!, DOBDOD~, DOBDOD+4, DOBDOD+5
>> DPTIDS(	VAGE+1
DT	VAGE+1
>> DTOUT	ASK+2
DUZ	FFP+1, EK+1, EV+1, SV1, MV+2
>> EASAPP	BIRTH+1
PC	SVED+7~, SVED+9, SVED+10, SVED+14, SVED+16
U	EV+1, EV2+2, EV2+3, SV1, MV+2, VAGE+1, AO+1, EC+1, COM+1, INE+1 , IR+1, POW+1, SER1+1, SER2+1, TAD+1, VN+1, SVED+9, SVED+15, PTDT+2, PTDT+4 , PTDT+5, PTDT+7, PTDT+8, POWV+2, INEL+3, INEL+4, INCOM+3, INCOM+4, INCOM+6, INCOM+7 , INCOM2+3, INCOM2+4, INCOM2+6, INCOM2+7, DEATH+3, DEATH+5, DEATH+7, DEATH+11, DEATH+15, BIRTH+7 , BIRTH+9, BIRTH+10, BIRTH+13, BIRTH+15, BIRTH+17, BIRTH+18, MSE+4
X	FFP+1!, EK+1!, EV+1!, EV2+4!, SV+1, SV1!, MV+1, MV+2!, VET+2!, VAGE+1* , VAGE+2!, VAGE+3*, AO+1!, EC+1!, EC+2!, COM+1!, INE+1!, IR+1!, POW+1!, SER1+1! , SER2+1!, TAD+1!, VN+1!, SVED+6, SVED+12, SVED+17!, PTDT+2!, PTDT+5, PTDT+8, POWV+2! , INEL+3, INCOM+4, INCOM+7, INCOM2+4, INCOM2+7, DOBDOD+6!, DEATH+1, DEATH+5, DEATH+7, DEATH+9! , DEATH+11, DEATH+13!, DEATH+15, DEATH+17!, BIRTH+2, BIRTH+9, BIRTH+10, BIRTH+11!, BIRTH+18, BIRTH+20! , MSE+3, MSE+4!
X1	VAGE+1*, VAGE+2!, VAGE+3!
X2	VAGE+1*, VAGE+2!, VAGE+3!

Customize PDF page

Package: Registration

Routine: DGLOCK

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 21

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: