Routine: DGMTSCU4

Package	Total	Call Graph
Registration	2	$$AMT^DGMTSCU1 DEP^DGMTSCU2
Kernel	1	$$FMTE^XLFDT
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Registration	4	DGMTSC1 DGMTXE DGMTXX11 DGMTXX12

Entry Points

Name	Comments	DBIA/ICR reference
AGME101(DGP1)	;force recalculate gross upon FM change to adjusted ; in: dgp1:~DGVINI = veteran income test ien ; out: queued task ; called from AGME101 x-ref of 408.21/1.01
YEAR(DGMTDT)	;get MAPR year from means test date
MEDEXP(DGGRS,DGADJ,DGYR,DGDEP)	; ; in: DGGRS = gross medical expense, default is 0 ; DGADJ = adjusted medical expense, default is 0 ; DGYR = rate table year ; DGDEP = # of dependents ; out: if gross >0, adjusted medical expense ; if adjusted > 0, gross medical expense (back-compute) ; else 0
ND(DGP1,DGP2,DGP3)	;return # of deps for a test ; in: dgp1:DFN = patient ien ; dgp2:DGMTDT = means test date ; dgp3:DGVIRI = veteran income relation ien ; out: DGND = # of dependents for a test
GROSS(DGP1,DGP2,DGP3,DGP4)	;derive gross med exp from adj med exp ; in: dgp1:DGVINI = veteran income test ien ; dgp2:DGDFN = patient ien ; dgp3:DGMTDT = means test date ; dgp4:DGVIRI = veteran income relation ien ; out: gross medical expense reset if necessary
GRSADJ(DGP1,DGP2,DGP3,DGP4)	;write adjusted medical expense
ADJUST(DGP1,DGP2,DGP3,DGP4)	;derive adjust med exp from gross med exp ; in: dgp1:DGVINI = veteran income test ien ; dgp2:DGDFN = patient ien ; dgp3:DGMTDT = means test date ; dgp4:DGVIRI = veteran income relation ien ; out: adjusted medical expense or -1 if not set

External References

Name	Field # of Occurrence
$$AMT^DGMTSCU1	GRSADJ+6
DEP^DGMTSCU2	ND+10
$$FMTE^XLFDT	YEAR+1
$$GET^XPAR	MEDEXP+19, MEDEXP+23, MEDEXP+24, MEDEXP+27

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.21 - [#408.21]	ADJUST+12, ADJUST+15, ADJUST+17, GROSS+12, GROSS+13, GROSS+14, GROSS+21, AGME101+7, AGME101+8*

Label References

Name	Line Occurrences
$$ADJUST	GRSADJ+5
$$MEDEXP	ADJUST+16, GROSS+19, GROSS+20
$$ND	ADJUST+13, GROSS+17
$$YEAR	ADJUST+14, GROSS+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	ND+5~, ND+6*, ND+9
DGADD	MEDEXP+8~, MEDEXP+25, MEDEXP+27, MEDEXP+28*, MEDEXP+31
DGADJ	MEDEXP~, MEDEXP+12, MEDEXP+13, MEDEXP+37, MEDEXP+38, GRSADJ+4~, GRSADJ+5, GRSADJ+6, GRSADJ+7, ADJUST+6~ , ADJUST+16, ADJUST+17, ADJUST+18, GROSS+6~, GROSS+14*, GROSS+15, GROSS+16, GROSS+19, GROSS+20
DGDC	ND+5~
DGDEP	MEDEXP~, MEDEXP+16*, MEDEXP+23, MEDEXP+24, MEDEXP+26, MEDEXP+28
DGDFN	ADJUST+6~, ADJUST+8, ADJUST+11, ADJUST+13, GROSS+6~, GROSS+8, GROSS+11, GROSS+17
DGGRS	MEDEXP~, MEDEXP+11, MEDEXP+12, MEDEXP+13, MEDEXP+32, MEDEXP+33, ADJUST+6~, ADJUST+15, ADJUST+16, GROSS+6~ , GROSS+13, GROSS+15, GROSS+19, GROSS+20, GROSS+21
DGMAP	MEDEXP+8~, MEDEXP+23, MEDEXP+24, MEDEXP+31
DGMTDT	ND+5~, ND+7, ND+9, ADJUST+6~, ADJUST+9, ADJUST+11, ADJUST+13, ADJUST+14, GROSS+6~, GROSS+9* , GROSS+11, GROSS+17, GROSS+18, YEAR~, YEAR+1
DGNC	ND+5~
DGND	ND+5~, ND+11, ADJUST+6~, ADJUST+13, ADJUST+16, GROSS+6~, GROSS+17, GROSS+19, GROSS+20
DGP1	ND~, ND+6, GRSADJ~, GRSADJ+5, ADJUST~, ADJUST+7, GROSS~, GROSS+7, AGME101~, AGME101+5
DGP2	ND~, ND+7, GRSADJ~, GRSADJ+5, ADJUST~, ADJUST+8, GROSS~, GROSS+8
DGP3	ND~, ND+8, GRSADJ~, GRSADJ+5, ADJUST~, ADJUST+9, GROSS~, GROSS+9
DGP4	GRSADJ~, GRSADJ+5, ADJUST~, ADJUST+10, GROSS~, GROSS+10
DGPER	MEDEXP+8~, MEDEXP+19*, MEDEXP+20, MEDEXP+31
DGRTN	MEDEXP+8~, MEDEXP+10, MEDEXP+13, MEDEXP+15, MEDEXP+20, MEDEXP+31, MEDEXP+33, MEDEXP+34, MEDEXP+38, MEDEXP+39 , MEDEXP+42
DGSP	ND+5~
DGVINI	ADJUST+6~, ADJUST+7, ADJUST+11, ADJUST+12, ADJUST+15, ADJUST+17, GROSS+6~, GROSS+7, GROSS+11, GROSS+12 , GROSS+13, GROSS+14, GROSS+21, AGME101+4~, AGME101+5*, AGME101+6, AGME101+7, AGME101+8
DGVIR0	ND+5~
DGVIRI	ND+5~, ND+8, ND+9, ADJUST+6~, ADJUST+10, ADJUST+11, ADJUST+13, GROSS+6~, GROSS+10*, GROSS+11 , GROSS+17
DGYR	MEDEXP~, MEDEXP+14, MEDEXP+15, MEDEXP+19, MEDEXP+23, MEDEXP+24, MEDEXP+27, ADJUST+6~, ADJUST+14, ADJUST+16 , GROSS+6~, GROSS+18*, GROSS+19, GROSS+20
U	ADJUST+15, ADJUST+17, GROSS+13, GROSS+14, GROSS+21, AGME101+8

Customize PDF page

Package: Registration

Routine: DGMTSCU4

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: