Routine: DGMTU21

Package	Total	Call Graph
Registration	4	$$LYR^DGMTSCU1 $$MTS^DGMTU GETREL^DGMTU11 $$IAI^DGMTU3
VA FileMan	1	FILE^DIE

Package	Total	Caller Graph
Registration	28	DG53358D DGDEP DGDEP2 DGDEP3 DGENELA4 DGMTA DGMTP DGMTSC1 DGMTSC2 DGMTSC2V DGMTSC31 DGMTSC4 DGMTSC4V DGMTSCU2 DGMTSCU3 DGMTU2 DGMTUTL1 DGMTV DGOVBC2 DGRP9 DGRPC2 DGRPEIS2 DGRPU VADPT4 VAFCA04 VAFCADT2 VAFCMSG3 VAFMON
Enrollment Application System	4	EASEZPVI EASPTRN5 EASUM7 EASUM9
Income Verification Match	4	IVMCMD IVMPTRN5 IVMPTRN8 IVMUM7
Scheduling	2	SCDXMSG1 SDPPMT1
Patient Data Exchange	1	VAQDBIM1

Entry Points

Name	Comments	DBIA/ICR reference
ALL(DFN,DGTYPE,DGDT,DGRTY,DGMT)	;Select patient relation, individual annual ; income and income relation arrays of internal ; entry numbers ; Input -- DFN Patient file IEN ; DGTYPE Type of Relation which can ; contain: ; V for veteran ; S for spouse ; C for dependent children ; or ; D for all dependents ; DGDT Date/Time ; DGRTY Type of Array to Return ; which can contain: ; I for Ind Annual Income ; P for Patient Relation ; R for Income Relation ; (Optional - default IPR) ; DGMT IFN of Means Test (optional) ; Output -- DGREL Patient Relation IEN Array ; DGINC Individual Annual Income IEN Array ; DGINR Income Relation IEN Array ; DGDEP Number of Dependents	ICR #762 Status: Other Usage: Controlled Subscription
ALLQ
SET	;Set individual annual income and income relation arrays
GET	;Look-up individual annual income and income relation IEN
UPDTTSTS(DFN,IY)	;Update all tests for IY of converted IAI rec's ; INPUT: DFN - Patient file IEN ; IY - Income Year FM format (ex: 306 for 2006) ; ; OUTPUT: RESULT ; 1 - Converted records ; 0 - Did not convert records ;
LSTNP(DFN,DGDT,DGMTYPT)	;Last MT/CP/LTC4 test for a patient regardless of Primary status ; Input -- DFN Patient IEN ; DGDT Date/Time (Optional- default today@2359) ; DGMTYPT Type of Test (Optional - if not defined ; Means Test will be assumed) ; Output -- Annual Means Test IEN^Date of Test ; ^Status Name^Status Code^Source of Test

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.22 - [#408.22]	GET+2
^DGMT(408.31 - [#408.31]	GET+1, UPDTTSTS+13, UPDTTSTS+14, UPDTTSTS+16, LSTNP+9, LSTNP+10, LSTNP+11

Name	Line Occurrences
GET	SET+3, SET+7
SET	ALL+27

Name	Field # of Occurrence
^(0	LSTNP+11

Name	Field # of Occurrence
DFN	ALL~, ALL+26, UPDTTSTS~, UPDTTSTS+14, UPDTTSTS+16, LSTNP~, LSTNP+9, LSTNP+10, LSTNP+11
DGCNT	ALL+24~, SET+1~, SET+2*, SET+3, SET+4, SET+5
DGDT	ALL~, ALL+25, LSTNP~, LSTNP+8
>> DGERR	UPDTTSTS+19*, UPDTTSTS+20
DGIDT	LSTNP+7~, LSTNP+8, LSTNP+9, LSTNP+10
DGINC	ALL+23!
DGINC(	SET+4, SET+8
DGINI	SET+1~, SET+4, SET+8, GET+1*, GET+2
DGINR	ALL+23!
DGINR(	SET+5, SET+9
DGIRI	SET+1~, SET+5, SET+9, GET+2*
DGLY	ALL+24~, ALL+25*, ALL+26, GET+1
DGMT	ALL~, ALL+26, GET+1
DGMT2	UPDTTSTS+8~
DGMT2(	UPDTTSTS+18*
DGMTFL1	LSTNP+7~, LSTNP+9, LSTNP+10, LSTNP+11*
DGMTI	LSTNP+7~, LSTNP+10*, LSTNP+11
DGMTYPT	LSTNP~, LSTNP+7*, LSTNP+9, LSTNP+10, LSTNP+11
DGNOD	LSTNP+7~, LSTNP+11*
DGPRI	SET+1~, SET+3, SET+7, GET+1
DGPRTY	ALL+24~, ALL+27*, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, SET+8, SET+9
DGREL	ALL+23!, ALL+28!
DGREL(	ALL+27, SET+2, SET+3, SET+7
DGRTY	ALL~, ALL+25*, ALL+28, SET+4, SET+5, SET+8, SET+9
DGTYPE	ALL~, ALL+26
DT	LSTNP+8
IRIEN	UPDTTSTS+8~, UPDTTSTS+12, UPDTTSTS+16, UPDTTSTS+18
IY	UPDTTSTS~, UPDTTSTS+15
RESULT	UPDTTSTS+8~, UPDTTSTS+9, UPDTTSTS+21, UPDTTSTS+22
TESTDT	UPDTTSTS+8~, UPDTTSTS+11, UPDTTSTS+14, UPDTTSTS+15, UPDTTSTS+16
TYPE	UPDTTSTS+8~, UPDTTSTS+10*, UPDTTSTS+13, UPDTTSTS+14, UPDTTSTS+16
Y	LSTNP+7~, LSTNP+11*, LSTNP+12