Routine: DGDEP1

Information

DGDEP1 ;ALB/CAW,BAJ,ERC - List One Dependent/Edit Effective Dates ; 8/1/08 1:10pm

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Registration	2	INIT^DGDEP $$ACTIVE^DGMTU11
List Manager	1	$$SETSTR^VALM1
VA FileMan	1	^DIE

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

Package	Total	Caller Graph
Registration	6	DGDEPE DGMT EFFECTIVE DATE DGMT ENTER/EDIT ADJUDICATION DGMT EXPAND PROFILE DGMT MEANS TEST DEPENDENT EFFECTIVE EFFECTIVE DATE
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
LSTDEP(DGDEP)	;List Dependents
ONE(CNT)	; List one dependent ; Modified for SSN VERFICIATION STATUS DG5.3688 BAJ 11/22/2005
SET(X)	;Set up array
EXIT	;
EN	; Effective Dates
ENQ
EDIT	; Edit Effective Dates ; values for DGFLG: ; DGFLG = 1 IVM effective date
EDITQ
DOB(DA,X)	;CHECK EFFECTIVE DATE AGAINST DOB

External References

Name	Field # of Occurrence
INIT^DGDEP	EDITQ
$$ACTIVE^DGMTU11	DOB+16
^DIE	EDIT+9
$$SETSTR^VALM1	ONE+5, ONE+6, ONE+7, ONE+8, ONE+9, ONE+10, ONE+12, ONE+19, ONE+21, ONE+22 , ONE+25, ONE+27, ONE+32, ONE+33, ONE+34, ONE+35, ONE+38, ONE+39, ONE+45, ONE+46 , ONE+47, ONE+48, ONE+49, ONE+50, ONE+56, ONE+57, ONE+60, ONE+61, ONE+65, ONE+66 , ONE+67, ONE+72, ONE+73, ONE+78, ONE+79

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Cannot edit when viewing a means test." Line Location: EN+2
Function Call: WRITE	Prompt: !,"Not while viewing" Line Location: EN+3
Function Call: WRITE	Prompt: !,"Cannot inactivate veteran" Line Location: EN+5
Function Call: WRITE	Prompt: !!,"Cannot edit date added by IVM." Line Location: EDIT+10
Function Call: WRITE	Prompt: !!,"There has to be an effective date for this person." Line Location: EDIT+12
Function Call: WRITE	Prompt: !," <<EFFECTIVE DATE may not precede Date Of Birth>>",*7 Line Location: DOB+4
Function Call: WRITE	Prompt: !," <<EFFECTIVE DATE may not precede Veteran Date Of Birth>>",$C(7) Line Location: DOB+9
Function Call: WRITE	Prompt: !," <<EFFECTIVE DATE may not be greater than Veteran Date Of Death>>",$C(7) Line Location: DOB+14
Function Call: WRITE	Prompt: !," <<EFFECTIVE DATE must be a date prior to Spouse Inactivation Date>>",$C(7) Line Location: DOB+17
Routine Call	DIE Line Location: EDIT+9

FileNo	Call Tags
^DGPR(408.12 - [#408.12]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPR(408.12 - [#408.12]	EDIT+11, DOB+2, DOB+7
^DIC(5 - [#5]	ONE+71
^DPT - [#2]	DOB+8, DOB+12
^TMP("DGMTEP"	SET+1*, EXIT+1!, EDITQ+1!

Label References

Name	Line Occurrences
EDIT	EN+4, EDIT+12
EDITQ	EDIT+10
EN	EN+5
ENQ	EN+2, EN+3
ONE	LSTDEP+2, EDITQ+1
SET	ONE+13, ONE+28, ONE+36, ONE+40, ONE+41, ONE+51, ONE+58, ONE+62, ONE+80

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACTIVE	EN+7*, EN+8
CNT	LSTDEP+1~, LSTDEP+2, ONE~, ONE+6, ONE+8, ONE+10, ONE+12, ONE+17, ONE+20, ONE+24 , ONE+26, ONE+27, ONE+30, ONE+33, ONE+35, ONE+37, ONE+46, ONE+47, ONE+49, ONE+50 , ONE+54, ONE+56, ONE+57, ONE+60, ONE+61, ONE+64, ONE+65, ONE+66, ONE+67, ONE+70 , ONE+71, ONE+72, ONE+73, ONE+76, ONE+77, ONE+78, ONE+79
DA	EDIT+4~, EDIT+7*, DOB~, DOB+2, DOB+7, DOB+16
DATE	EN+6, EN+7, EDIT+4~, EDIT+11, EDIT+12
DEP	LSTDEP+1~, ONE+29, ONE+30, ONE+31, ONE+33, ONE+35, ONE+37
DGDEP	LSTDEP~, EDIT+6, EDITQ!
DGDEP(	LSTDEP+2, ONE+6, ONE+8, ONE+10, ONE+12, ONE+17, ONE+20, ONE+24, ONE+26*, ONE+27 , ONE+30, ONE+33, ONE+35, ONE+37, ONE+46, ONE+47, ONE+49, ONE+50, ONE+54, ONE+56 , ONE+57, ONE+60, ONE+61, ONE+64, ONE+65, ONE+66, ONE+67, ONE+70, ONE+71, ONE+72 , ONE+73, ONE+76, ONE+77, ONE+78, ONE+79, EDIT+6, EDIT+11
DGDEP(1	EN+6, EN+7
DGEDIT	EDIT+4~, EDIT+5*
DGEE	EDIT+4~
DGERR	EN+5!, EN+8*
DGFILE	DOB+1~, DOB+2*, DOB+3
DGFLG	EDIT+5*, EDIT+10, EDITQ!
DGLN	ONE+3~, ONE+42, ONE+82, SET+1, SET+2
DGMNTEXT	ONE+18~, ONE+20*, ONE+21, ONE+22
>> DGMTACT	EN+2
>> DGMTI	EN+2, EN+3
>> DGPR	EDIT+6*, EDIT+7
>> DGRPV	EN+3
>> DGW	EN+5, EDIT+6, EDIT+11, EDITQ+1
DIC	EDIT+4~
DIE	EDIT+4~, EDIT+7*
DR	EDIT+4~, EDIT+7*
DR(2	EDIT+8*
NODE	DOB+1~, DOB+7*, DOB+8, DOB+11, DOB+12
STATVAL	ONE+68~, ONE+69, ONE+71, ONE+72, ONE+77
U	ONE+6, ONE+8, ONE+10, ONE+12, ONE+17, ONE+20, ONE+24, ONE+26, ONE+27, ONE+33 , ONE+35, ONE+37, ONE+46, ONE+47, ONE+49, ONE+50, ONE+54, ONE+56, ONE+57, ONE+60 , ONE+61, ONE+64, ONE+65, ONE+66, ONE+67, ONE+70, ONE+71, ONE+72, ONE+73, ONE+76 , ONE+77, ONE+78, ONE+79, EN+7, EDIT+6, EDIT+11, DOB+2, DOB+3, DOB+8, DOB+11 , DOB+12
>> VALMBCK	EN+1, ENQ
>> VALMCNT	ONE+42, ONE+82
X	ONE+5, ONE+6, ONE+7, ONE+8, ONE+9, ONE+10, ONE+12, ONE+13, ONE+16, ONE+19* , ONE+21, ONE+22, ONE+25, ONE+27, ONE+28, ONE+32, ONE+33, ONE+34, ONE+35, ONE+36 , ONE+38, ONE+39, ONE+40, ONE+44, ONE+45, ONE+46, ONE+47, ONE+48, ONE+49, ONE+50* , ONE+51, ONE+55, ONE+56, ONE+57, ONE+58, ONE+59, ONE+60, ONE+61, ONE+62, ONE+63* , ONE+65, ONE+66, ONE+67, ONE+72, ONE+73, ONE+78, ONE+79, ONE+80, SET~, SET+1 , DOB~, DOB+3, DOB+5, DOB+8, DOB+11, DOB+13, DOB+15, DOB+16, DOB+18, DOB+20
X1	DOB+1~, DOB+2, DOB+3, DOB+12, DOB+13
Y	EDIT+4~
ZIPPOS	ONE+68~, ONE+77*, ONE+78

Customize PDF page

Package: Registration