Routine: DG53296D

Information

DG53296D ;JAT DG*5.3*296 DELETE DCD INCOME TESTS ; 01 JUNE 2000

Source Information

Source file <DG53296D.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Registration	3	EN^DG53296C $$LST^DGMTU ALL^DGMTU21
VA Fileman	2	^DIE ^DIK
Income Verification Match	1	ADD^IVMCMB

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DG53296

Entry Points

Name	Comments	DBIA/ICR reference
DELTYPE(DFN,MTDATE,TYPE)	;
SETUPAR	; Create array IVMAR1() where ; 1) Subscript is MT Changes Type (#408.42) file node where type of ; change = Name, DOB, SSN, Sex, Relationship. ; 2) 1st piece is (#408.12) or (#408.13) file. ; 3) 2nd piece is (#408.12) or (#408.13) file field number.
DEL21	; Delete veteran, spouse, and dependent entries from ; Individual Annual Income (#408.21) file: ; - Veteran (#408.21) record
EN(IVMMTIEN)	; -- ; This routine will process income test deletion requests received ; from the IVM Center.
DELETE(IVMMTIEN,DFN,IVMDOT)	; delete copay or MT
EN1	; Get zero node of (#408.31)
DEL22	; Delete veteran, spouse, and dependent entries from the ; Income Relation (#408.22) file: ; - Veteran (#408.22) record
ENQ
TYPECH	; Type of dependent changes (#408.41/#408.42) file ; 1st piece - 408.42 table file node ; 2nd piece - file (408.12/408.13) ; 3rd piece - 408.12/408.13 field

External References

Name	Field # of Occurrence
EN^DG53296C	DEL21+70
$$LST^DGMTU	DELTYPE+10, DELTYPE+18
ALL^DGMTU21	DELETE+4
^DIE	DEL21+62
^DIK	DEL22+6, DEL22+12, DEL22+19, DEL21+6, DEL21+12, DEL21+19, DEL21+42, DEL21+43, DEL21+65
ADD^IVMCMB	DELTYPE+20

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPR(408.12 - [#408.12]	Classic Fileman Calls
^DGPR(408.13 - [#408.13]	Classic Fileman Calls
^DGMT(408.21 - [#408.21]	Classic Fileman Calls
^DGMT(408.22 - [#408.22]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.31 - [#408.31]	EN1+1, EN1+6, DELTYPE+15
^DGPR(408.12 - [#408.12]	DEL21+27, DEL21+29, DEL21+34, DEL21+37, DEL21+50, DEL21+52, DEL21+55
^DGPR(408.13 - [#408.13]	DEL21+38

Label References

Name	Line Occurrences
$$EN	DELTYPE+16
DELETE	EN1+9, EN1+10
SETUPAR	DEL21+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	DEL22+3, DEL22+4, DEL22+9, DEL22+10, DEL22+17, DEL21+3, DEL21+4, DEL21+9, DEL21+10, DEL21+17 , DEL21+42!, DEL21+43!, DEL21+60, DEL21+64, DEL21+65!
DA(1	DEL21+60, DEL21+64, DEL21+65!
DFN	EN+13~, EN1+4*, EN1+9, EN1+10, DELETE~, DELETE+4, DELTYPE~, DELTYPE+4, DELTYPE+10, DELTYPE+18 , DELTYPE+20
>> DGINC("C"	DEL21+16, DEL21+17
>> DGINC("S"	DEL21+9
>> DGINC("V"	DEL21+3
>> DGINR("C"	DEL22+16, DEL22+17
>> DGINR("S"	DEL22+9
>> DGINR("V"	DEL22+3
>> DIE	DEL21+61*
DIK	DEL22+5, DEL22+11, DEL22+18, DEL21+5, DEL21+11, DEL21+18, DEL21+42!, DEL21+43!, DEL21+64*, DEL21+65!
>> DR	DEL21+60*
DT	DELTYPE+18
>> IVM12	DEL21+27*, DEL21+29, DEL21+34, DEL21+37, DEL21+42, DEL21+50, DEL21+52, DEL21+55, DEL21+61, DEL21+64
>> IVM121	DEL21+50*, DEL21+52, DEL21+55, DEL21+60, DEL21+64
>> IVM13	DEL21+37*, DEL21+38, DEL21+43
IVM41	SETUPAR+6*, SETUPAR+8!
IVM411	SETUPAR+6*, SETUPAR+7, SETUPAR+8!
>> IVMAR1(	SETUPAR+7*
>> IVMDEP	DEL22+15, DEL22+16, DEL22+17, DEL21+15, DEL21+16, DEL21+17
IVMDONE	EN+13~, EN+14*, EN1+11
IVMDOT	EN+13~, EN1+3*, EN1+9, EN1+10, DELETE~, DELETE+4
IVMERR	EN+13~, EN1+8, DEL21+27, DEL21+30, DEL21+39, DEL21+53*
IVMLINK	EN+13~, EN1+6*, EN1+7, EN1+8, EN1+9
IVMMTIEN	EN~, EN1+1, EN1+6, EN1+10, DELETE~, DELETE+4, DEL21+27, DEL21+50
IVMNODE0	EN+13~, EN1+1*, EN1+2, EN1+3, EN1+4, EN1+5
IVMTOT	EN+13~, EN1+5*, EN1+7, EN1+8
>> IVMTYPE	DELTYPE+18, DELTYPE+20
>> IVMVAMCA	DEL21+55, DEL21+59, DEL21+62
MTDATE	DELTYPE~, DELTYPE+5, DELTYPE+8
MTNODE	DELTYPE+7~, DELTYPE+10*, DELTYPE+11, DELTYPE+12, DELTYPE+15, DELTYPE+16, DELTYPE+20
RET	DELTYPE+7~, DELTYPE+18, DELTYPE+19, DELTYPE+20
TYPE	DELTYPE~, DELTYPE+6, DELTYPE+10, DELTYPE+15
YEAR	DELTYPE+7~, DELTYPE+8*, DELTYPE+10, DELTYPE+12, DELTYPE+19

Customize PDF page

Package: Registration

Routine: DG53296D

Call Graph Total: 6

Caller Graph Total: 1