Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: EASECMT

Package: Enrollment Application System

Routine: EASECMT


Information

EASECMT ;ALB/LBD,BDB - Means Test for LTC Co-Pay exemption ; 27 DEC 2001

Source Information

Source file <EASECMT.m>

Call Graph

Call Graph

Call Graph Total: 22

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 5

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)
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)
MT1
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
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)
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)
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,
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)

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All