Routine: EASECMT

Package	Total	Call Graph
Registration	16	$$UPD^DGENDBS ADD^DGMTA EN^DGMTAUD AFTER^DGMTEVT ($$GETCODE,$$GETNAME)^DGMTH (,DOM)^DGMTR COPYRX^DGMTR1 EN^DGMTSC PAR^DGMTSCU $$LYR^DGMTSCU1 DEP^DGMTSCU2 INC^DGMTSCU3 $$LST^DGMTU ($$VRCHKUP,GETIENS)^DGMTU2 ($$OLD,$$OLDMTPF)^DGMTU4 ($$LOCK,UNLOCK)^DGMTUTL
VA FileMan	4	FILE^DICN ^DIE ^DIK ^DIR
Income Verification Match	1	EN^IVMPMTE
Integrated Billing	1	$$THRES^IBARXEU1

Package	Total	Caller Graph
Enrollment Application System	3	EASECA EASECE EASECSCC
Registration	2	DGMTSC DGMTSCU2

Entry Points

Name	Comments	DBIA/ICR reference
EN	; This is the entry point for the routine that will find the ; financial test for a veteran that can be used to check if ; veteran's income is below the threshold and exempt from LTC ; co-payments. If a financial test is not on file for the veteran ; it can be added through this process. ; Input -- DFN = Patient IEN ; Output -- DGEXMPT = 1 (exempt from LTC co-payments) ; = 0 or "" (not exempt from LTC co-payments) ; DGOUT = 1 (user wants to exit from the process)
THRES(DFN,DGMTDT)	; Is veteran's income below the pension threshold ; Input - DFN = Patient IEN ; DGMTDT = Test date ; Output - = 1 (Below the threshold) ; = 0 (Above the threshold) ; = -1(Error)
MT(DFN,TYPE,ACT,DGMTI,DGCMPLT)	; Complete a means test or LTC co-pay exemption test ; Input - DFN = Patient IEN ; TYPE = Type of test (1=MT; 4=LTC4) ; ACT = Type of action (ADD or EDT) ; DGMTI = If EDT action, IEN of test to be edited ; Output - DGCMPLT = 1 (MT completed) ; = 0 (MT not completed) ; DGMTI = IEN of new test
MT1
LTC4(DGMT,DGEXMPT)	; Create or update LTC copay exemption test (type 4) by copying ; means test ; Input - DGMT = Annual Means Test IEN of test to be copied ; - DGEXMPT = LTC copayments exemption status (optional)
ASK(TYPE)	; Does user want to perform MT/LTC4 test now? ; Input - TYPE = Type of test, 1: MT; 4: LTC Copay Exemption ; Output - Y = 1 (YES) ; = 0 (NO)
GETLTC4(DFN,DGMTDT)	; Return last LTC co-pay exemption test (type 4), ; if less than a year old ; Input - DFN = Patient IEN ; DGMTDT (optional) = Date of test ; Output - Y = Annual Means Test IEN^Date of Test^Status Name^ ; Status Code^Source of Test ; = "" (no current LTC co-pay exemption test)
DEL	;Delete incomplete LTC Copay Exemption test (type 4) ; Input -- DGMTI LTC Copay Exemption test IEN
UPLTC3(DGMT4)	;If the status of a LTC Copay Exemption test (type 4) changes,

External References

Name	Field # of Occurrence
$$UPD^DGENDBS	LTC4+27, UPLTC3+17
ADD^DGMTA	MT+16
EN^DGMTAUD	LTC4+33
AFTER^DGMTEVT	LTC4+32
$$GETCODE^DGMTH	EN+27, EN+38, MT1+1
$$GETNAME^DGMTH	UPLTC3+7, UPLTC3+8
^DGMTR	EN+20
DOM^DGMTR	EN+26, EN+37
COPYRX^DGMTR1	EN+26, EN+37
EN^DGMTSC	MT+18
PAR^DGMTSCU	THRES+15
$$LYR^DGMTSCU1	THRES+15
DEP^DGMTSCU2	THRES+16
INC^DGMTSCU3	THRES+16
$$LST^DGMTU	EN+13, EN+31, GETLTC4+9
$$VRCHKUP^DGMTU2	LTC4+20
GETIENS^DGMTU2	THRES+13
$$OLD^DGMTU4	EN+32, GETLTC4+10
$$OLDMTPF^DGMTU4	EN+19
$$LOCK^DGMTUTL	MT+10
UNLOCK^DGMTUTL	MT1+4
FILE^DICN	LTC4+18
^DIE	DEL+8
^DIK	DEL+11
^DIR	ASK+9
$$THRES^IBARXEU1	THRES+10
EN^IVMPMTE	LTC4+34

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The income threshold check could not be completed due to an error." Line Location: EN+42
Function Call: WRITE	Prompt: !!,"The previous year's financial information is not on file for this veteran.",!,"A ",TST," is required." Line Location: ASK+6
Function Call: WRITE	Prompt: ! Line Location: ASK+9
Routine Call	DIE Line Location: DEL+8
Routine Call	DIR Line Location: ASK+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGMT(408.22 - [#408.22]	Classic Fileman Calls
^DGMT(408.31 - [#408.31]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(408.32 - [#408.32]	UPLTC3+15
^DGMT(408.22 - [#408.22]	DEL+5, DEL+7, DEL+8
^DGMT(408.31 - [#408.31]	EN+16, EN+27, EN+38, THRES+18, MT+13, MT1+1, LTC4+8, LTC4+9, LTC4+11, LTC4+13 , DEL+3, UPLTC3+5, UPLTC3+7, UPLTC3+8, UPLTC3+13
^DGPR(408.12 - [#408.12]	THRES+12

Label References

Name	Line Occurrences
$$ASK	EN+21, EN+34
$$GETLTC4	EN+11
$$THRES	EN+41, LTC4+23
DEL	MT1+3
LTC4	EN+16, EN+44
MT	EN+23, EN+35
MT1	MT+13, MT+16
UPLTC3	LTC4+30

Naked Globals

Name	Field # of Occurrence
^(	DEL+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	MT~, MT+11
DA	LTC4+5~, DEL+2~, DEL+8, DEL+10
DATA	LTC4+27, LTC4+28!, UPLTC3+3~, UPLTC3+17
DATA(	LTC4+21, LTC4+22, LTC4+24, LTC4+25, LTC4+26, UPLTC3+16
DFN	EN+11, EN+13, EN+23, EN+26, EN+31, EN+35, EN+37, EN+41, THRES~, THRES+12 , THRES+13, MT~, MT+10, MT1+4, LTC4+5~, LTC4+14*, LTC4+23, GETLTC4~, GETLTC4+8, GETLTC4+9
>> DGADDF	EN+20*
DGCMPLT	EN+9~, EN+23, EN+24, EN+35, EN+36, MT~, MT+8~, MT+9, MT+10, MT1+2 , MT1+3
DGCONVRT	LTC4+5~, LTC4+20*
DGCS	EN+9~, EN+13, EN+16, EN+19, EN+30, EN+31, EN+32
DGDC	THRES+6~
DGDEP	THRES+6~
DGDET	THRES+6~, THRES+19
DGDOM	EN+9~
DGDOM1	EN+9~, EN+26, EN+37
DGERR	THRES+6~
DGEXMPT	EN+11, EN+16, EN+27, EN+39, EN+41, EN+42, EN+44, LTC4~, LTC4+23, LTC4+24
DGIN0	THRES+6~
DGIN1	THRES+6~
DGIN2	THRES+6~
DGINI	THRES+6~, THRES+13, THRES+14
DGINT	THRES+6~, THRES+16, THRES+19
DGINTF	THRES+6~
DGIRI	THRES+6~, THRES+13, THRES+14
DGL	EN+9~, EN+13, EN+31
DGLY	THRES+8~, THRES+15*
DGMSGF	EN+9~, EN+20*
DGMT	LTC4~, LTC4+4, LTC4+8, LTC4+9, LTC4+11, LTC4+25
DGMT0	MT+8~, MT1+1, MT1+2, LTC4+5~, LTC4+8, LTC4+14, LTC4+17, LTC4+20, LTC4+22, LTC4+23
DGMT2	LTC4+5~, LTC4+9*, LTC4+25, LTC4+26
DGMT3	UPLTC3+3~, UPLTC3+5*, UPLTC3+8, UPLTC3+13, UPLTC3+17
DGMT4	UPLTC3~, UPLTC3+4, UPLTC3+5, UPLTC3+7
DGMTA	LTC4+6~
DGMTACT	EN+9~, EN+22, EN+23, MT+8~, MT+11, MT+13, MT+16, LTC4+6~, LTC4+12*, LTC4+13 , LTC4+16, LTC4+30
DGMTDT	EN+9~, EN+13, EN+16, EN+19, EN+22, EN+31, EN+32, EN+41, THRES~, THRES+10 , THRES+13, THRES+15, MT+13, GETLTC4~, GETLTC4+8, GETLTC4+9
DGMTI	EN+9~, EN+13, EN+16, EN+23, EN+26, EN+27, EN+31, EN+32, EN+35, EN+37 , EN+38, EN+44, THRES+18, MT~, MT+13, MT+16, MT1, MT1+1, LTC4+5~, LTC4+11* , LTC4+12, LTC4+13, LTC4+16, LTC4+18*, LTC4+27, LTC4+30, DEL+3, DEL+5, DEL+7, DEL+8 , DEL+10
DGMTINF	LTC4+6~, LTC4+32*
DGMTP	LTC4+6~, LTC4+13*
DGMTPAR	THRES+8~
DGMTROU	MT+8~, MT+17*
DGMTS3	UPLTC3+3~, UPLTC3+8*, UPLTC3+10, UPLTC3+13
DGMTS4	UPLTC3+3~, UPLTC3+7*, UPLTC3+10, UPLTC3+15, UPLTC3+16
DGMTYPT	EN+9~, EN+19, EN+20, EN+21, EN+22, EN+23, EN+25, EN+30, EN+33, EN+34 , EN+35, MT+8~, MT+11, LTC4+6~, LTC4+32
DGNC	THRES+7~
DGND	THRES+7~
DGNWT	THRES+7~
DGNWTF	THRES+7~
>> DGOUT	EN+19, EN+21, EN+24, EN+30, EN+34, EN+36, EN+42*
DGPRI	THRES+7~, THRES+12*, THRES+13
DGREQF	EN+9~, EN+20
DGS	UPLTC3+3~, UPLTC3+15*, UPLTC3+16
DGSP	THRES+7~
DGSTA	MT+8~, MT1+1*, MT1+2
DGTHRES	THRES+7~, THRES+10*, THRES+19
DGVINI	THRES+7~, THRES+14*
DGVIR0	THRES+7~
DGVIRI	THRES+7~, THRES+14*
DIC	LTC4+5~, LTC4+17*
DIC(0	LTC4+17*
DIE	DEL+2~, DEL+6*
DIK	LTC4+5~, LTC4+17, DEL+2~, DEL+10
DIR	ASK+4~
DIR("A"	ASK+7*
DIR("B"	ASK+8*
DIR(0	ASK+8*
DLAYGO	LTC4+5~, LTC4+17*
DR	DEL+2~, DEL+6*
DT	EN+22, EN+31, MT+13, LTC4+24, GETLTC4+8
ERROR	LTC4+27, LTC4+28!, UPLTC3+3~, UPLTC3+17
>> I	LTC4+22*
>> IR	DEL+8*
TST	ASK+4~, ASK+5*, ASK+6, ASK+7
TYPE	MT~, MT+11, MT+12, MT+16*, MT1+3, ASK~, ASK+5
TYPESAVE	MT+8~, MT+12*, MT+16
U	EN+11, EN+13, EN+16, EN+27, EN+31, EN+38, THRES+18, MT1+1, MT1+2, LTC4+8 , LTC4+14, LTC4+22, LTC4+23, LTC4+25, LTC4+26, GETLTC4+10, DEL+3, UPLTC3+7, UPLTC3+8, UPLTC3+13 , UPLTC3+15
V	DEL+2~, DEL+7*, DEL+8
X	LTC4+5~, LTC4+17*
Y	EN+9~, EN+11, EN+27, EN+38, EN+39, LTC4+18, ASK+10, GETLTC4+7~, GETLTC4+8, GETLTC4+9* , GETLTC4+10*, GETLTC4+11

Customize PDF page

Package: Enrollment Application System

Routine: EASECMT

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: