Routine: DGLOCK2

Information

DGLOCK2 ;ALB/MRL - PATIENT FILE DATA EDIT CHECKS ; 28 Jan 2002 2:37 PM

Source Information

Source file <DGLOCK2.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
VA Fileman	2	EN^DDIOL ^DIC

Caller Graph

Caller Graph Total: 22

Package	Total	Caller Graph
Registration	20	DGRP7 DGRPTX11 DGRPTX14 DGRPTX17 DGRPTX22 DGRPTX23 DGRPTX24 DGRPTX35 DGRPTX36 DGRPTX37 DGRPTX38 DGRPTX39 DGRPX710 DGRPX73 DGRPX74 DGRPX75 DGRPX76 DGRPX77 DGRPXC ^DPT
Integrated Billing	2	IBXSC21 IBXSC22

Entry Points

Name	Comments	DBIA/ICR reference
EMD	;Emp Delete
DOL
DD	;Desig Delete
K2	;NOK2 Add
EMW
AAC
E2D	;Emer2 Delete
SED	;Sp Emp Delete
TOTCHK(DFN)	;Returns 1 if Any of 4 'Received' YES/NO amounts =YES
E1	;Emer Add
K2D	;NOK2 Delete
E2	;Emer2 Add
EM	;Emp Add
D	;Desig Add
TOTCKDEL	;ERROR MESSAGE IF DELETE .36295
AAC1	;Agency/Country Screen
MAR	;Married or Separated
K1	;NOK Add
SDD	;Spouse/Dependent Delete
EM1
TOTCKMSG	;ERROR MESSAGE FOR ABOVE
K1D	;NOK Delete
DOL2
DOL1
E1D	;Emer Delete
SE	;Sp Emp Add

External References

Name	Field # of Occurrence
EN^DDIOL	SDD+2
^DIC	AAC

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?4,*7,"'NEXT OF KIN' name must be specified to enter/edit this field" Line Location: K1+2
Function Call: WRITE	Prompt: !?4,*7,"Can't be deleted as long as 'NEXT OF KIN' is specified" Line Location: K1D+2
Function Call: WRITE	Prompt: !?4,*7,"'NEXT OF KIN-2' name must be specified to enter/edit this field" Line Location: K2+2
Function Call: WRITE	Prompt: !?4,*7,"Can't be deleted as long as 'NEXT OF KIN-2' is specified" Line Location: K2D+2
Function Call: WRITE	Prompt: !?4,*7,"'EMERGENCY CONTACT' name must be specified to enter/edit this field" Line Location: E1+2
Function Call: WRITE	Prompt: !?4,*7,"Can't be deleted as long as 'EMERGENCY CONTACT' is specified" Line Location: E1D+2
Function Call: WRITE	Prompt: !?4,*7,"'EMERGENCY CONTACT-2' name must be specified to enter/edit this field" Line Location: E2+2
Function Call: WRITE	Prompt: !?4,*7,"Can't be deleted as long as 'EMERGENCY CONTACT-2' is specified" Line Location: E2D+2
Function Call: WRITE	Prompt: !?4,*7,"'DESIGNEE' name must be specified to enter/edit this field" Line Location: D+2
Function Call: WRITE	Prompt: !?4,*7,"Can't be deleted as long as 'DESIGNEE' is specified" Line Location: DD+2
Function Call: WRITE	Prompt: !?4,*7,"'EMPLOYMENT STATUS' must be specified to enter/edit this field" Line Location: EMW+0
Function Call: WRITE	Prompt: !?4,*7,"'EMPLOYER NAME' must be specified to enter/edit this field" Line Location: EM1+2
Function Call: WRITE	Prompt: !?4,*7,"Can't be deleted as long as 'EMPLOYER NAME' is specified" Line Location: EMD+2
Function Call: WRITE	Prompt: !?4,*7,"'SPOUSES EMPLOYER' name must be specified to enter/edit this field" Line Location: SE+2
Function Call: WRITE	Prompt: !?4,*7,"Can't be deleted as long as 'SPOUSES EMPLOYER' is specified" Line Location: SED+2
Function Call: WRITE	Prompt: !?4,*7,"NOT POSSIBLE...Applicant is not Married." Line Location: MAR+2
Function Call: WRITE	Prompt: " ($",X,")" Line Location: DOL2+0
Function Call: WRITE	Prompt: !,?4,*7,"Must Receive A&A, HB, Pension, or Disability Benefits." Line Location: TOTCKMSG+1
Function Call: WRITE	Prompt: !,?4,*7,"Delete by indicating receipt of A&A, HB, Pension, & Disability as 'NO'." Line Location: TOTCKDEL+1
Routine Call	DIC Line Location: AAC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPR(408.13 - [#408.13]	SDD+2
^DIC(11 - [#11]	MAR+2
^DIC(8 - [#8]	AAC1+1
^DPT - [#2]	K1+2, K1D+2, K2+2, K2D+2, E1+2, E1D+2, E2+2, E2D+2, D+2, DD+2 , EM+1, EM1+1, EM1+2, EMD+2, SE+2, SED+2, MAR+2, AAC1+1, TOTCHK+3

Label References

Name	Line Occurrences
$$TOTCHK	TOTCKDEL+1
AAC1	AAC
DOL1	DOL1
DOL2	DOL
E1	E2+2
EMW	EM+1, EM1+1
K1	K2+2
MAR	SE+2

Naked Globals

Name	Field # of Occurrence
^(	K1+2, K1D+2, K2+2, K2D+2, E1+2, E1D+2, E2+2, E2D+2, D+2, DD+2 , EM+1, EM1+1, EMD+2, SE+2, SED+2
^("VET"	AAC1+1
^(0	SDD+2, MAR+2, AAC1+1

Local Variables

Name	Field # of Occurrence
>> DA	K1+1, K1D+1, K2+1, K2D+1, E1+1, E1D+1, E2+1, E2D+1, D+1, DD+1 , SDD+1, SDD+2, EM+1, EM1, EMD+1, SE+1, SED+1, MAR+1, TOTCHK+2, TOTCKDEL+1
DFN	K1+1~, K1+2, K1D+1~, K1D+2, K2+1~, K2+2, K2D+1~, K2D+2, E1+1~, E1+2 , E1D+1~, E1D+2, E2+1~, E2+2, E2D+1~, E2D+2, D+1~, D+2, DD+1~, DD+2 , EM1~, EM1+1, EM1+2, EMD+1~, EMD+2, SE+1~, SE+2, SED+1~, SED+2, MAR+1~* , MAR+2, AAC1+1, TOTCHK~, TOTCHK+2, TOTCHK+3, TOTCKDEL+1
>> DGAAC	AAC1+1*
>> DGAAC(1	AAC1+1*
DIC	AAC!*
DIC("S"	AAC*
>> DIE	AAC
U	K1+2, K1D+2, K2+2, K2D+2, E1+2, E1D+2, E2+2, E2D+2, D+2, DD+2 , SDD+2, EM+1, EM1+1, EM1+2, EMD+2, SE+2, SED+2, MAR+2, AAC1+1, TOTCHK+3
X	K1+2!, K1D+2!, K2+2!, K2D+2!, E1+2!, E1D+2!, E2+2!, E2D+2!, D+2!, DD+2! , SDD+2!, EMW!, EM1+2!, EMD+2!, SE+2!, SED+2!, MAR+2!, AAC!, DOL, DOL1* , DOL1+1, DOL2, TOTCKDEL+1!
>> Y	AAC

Customize PDF page

Package: Registration

Routine: DGLOCK2

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 22

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed