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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: EASECU

Package: Enrollment Application System

Routine: EASECU


Information

EASECU ;ALB/PHH,LBD,AMA - LTC Co-Pay Test Utilities ; 22 AUG 2001

Source Information

Source file <EASECU.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Kernel 1 $$FMDIFF^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Enrollment Application System 8 EASEC10E  EASECA  EASECCAL  EASECE  EASECEXP  EASECPC  EASECSCU  EASECV  
Registration 2 DGMTU3  DGRPD  
Clinical Reminders 1 PXRMOBJ  
VA Point of Service 1 VPSRPC26  

Entry Points

Name Comments DBIA/ICR reference
LST(DFN,DGDT,DGMTYPT) ;Last LTC Co-Pay test for a patient
; Input -- DFN Patient IEN
; DGDT Date/Time (Optional- default today@2359)
; DGMTYPT Type of Test (Optional - if not defined
; LTC Co-Pay will be assumed)
; Output -- LTC Co-Pay Test IEN^Date of Test
; ^Status Name^Status Code^Source of Test
  • ICR #4499
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #4503
    • Status: Active
    • Usage: Controlled Subscription
    MTS(DGMTS) ;LTC Co-Pay test status -- default current
    ; Input -- DGMTS LTC Co-Pay Test Status IEN
    ; Output -- Status Name^Status Code
    EXMPT(DFN) ;Check if veteran is exempt from LTC co-payments:
    ; If the veteran has a compensable SC disability, OR
    ; If the veteran is a single, NSC pensioner not in receipt of A&A
    ; and HB benefits
    ; Input -- DFN Patient IEN
    ; Output -- 0 = veteran not exempt
    ; 1 = veteran has compensable SC disability
    ; 2 = veteran is single NSC pensioner (no A&A, HB)
    EXMPTQ
    DIS(DFN) ;Display patient's current LTC Copay Test status and test date
    ; Input -- DFN IEN of Patient file
    ; Output -- None
  • ICR #5331
    • Status: Withdrawn
    • Usage: Controlled Subscription
  • ICR #6771
    • Status: Active
    • Usage: Private
    FORM(DGMTI) ; Return the version of the 10-10EC form used to complete
    ; the LTC Copay Test passed in DGMTI
    ; Input: DGMTI - LTC Copay Test (IEN file #408.31)
    ; Output: 0 = Original format
    ; 1 = Revised format
    DISDT(DFN,EASADM) ;Display patient's LTC Copay Test status for a given LTC Admission Date
    ; Input -- DFN - IEN of Patient file
    ; EASADM - LTC Admission Date
    ; Output -- None

    External References

    Name Field # of Occurrence
    $$FMDIFF^XLFDT DIS+11, DISDT+12

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"LTC Copayment Status: ",DGMTS," Last Test: "
    • Line Location: DIS+7
    Function Call: WRITE
    • Prompt: Y
    • Line Location: DIS+7
    Function Call: WRITE
    • Prompt: " **NEW TEST REQUIRED**"
    • Line Location: DIS+14
    Function Call: WRITE
    • Prompt: !,"Patient INELIGIBLE to Receive LTC Services -- Did Not Agree to Pay Copayments"
    • Line Location: DIS+15
    Function Call: WRITE
    • Prompt: !,"LTC Copayment Status: ",DGMTS," Last Test: "
    • Line Location: DISDT+8
    Function Call: WRITE
    • Prompt: Y
    • Line Location: DISDT+8
    Function Call: WRITE
    • Prompt: " **NEW TEST REQUIRED**"
    • Line Location: DISDT+15
    Function Call: WRITE
    • Prompt: !,"Patient INELIGIBLE to Receive LTC Services -- Did Not Agree to Pay Copayments"
    • Line Location: DISDT+16

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" DIS+7, DISDT+8
    ^DG(408.32 - [#408.32] MTS+4
    ^DGMT(408.31 - [#408.31] LST+9, LST+10, LST+11, DIS+13, DIS+15, FORM+6, DISDT+14, DISDT+16
    ^DIC(11 - [#11] EXMPT+19
    ^DIC(8 - [#8] EXMPT+13
    ^DPT - [#2] EXMPT+13, EXMPT+14, EXMPT+15, EXMPT+17, EXMPT+19, EXMPT+22, DIS+12, DISDT+13

    Label References

    Name Line Occurrences
    $$LST DIS+5, DISDT+6
    $$MTS LST+11
    EXMPTQ EXMPT+14, EXMPT+15, EXMPT+17, EXMPT+20, EXMPT+22, EXMPT+24

    Naked Globals

    Name Field # of Occurrence
    ^(0 LST+11

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DFN LST~, LST+9, LST+10, EXMPT~, EXMPT+13, EXMPT+14, EXMPT+15, EXMPT+17, EXMPT+19, EXMPT+22
    , DIS~, DIS+4, DIS+5, DIS+12, DISDT~, DISDT+5, DISDT+6, DISDT+13
    DGDT LST~, LST+8
    DGIDT LST+7~, LST+8*, LST+9*, LST+10
    DGMTDT DIS+3~, DIS+6*, DIS+7, DIS+11, DISDT+4~, DISDT+7*, DISDT+8, DISDT+12
    DGMTFL1 LST+7~, LST+9, LST+10, LST+11*
    DGMTI LST+7~, LST+10*, LST+11, DIS+3~, DIS+6*, DIS+13, DIS+15, FORM~, FORM+5, FORM+6
    , DISDT+4~, DISDT+7*, DISDT+14, DISDT+16
    DGMTS MTS~, MTS+4, DIS+3~, DIS+6*, DIS+7, DISDT+4~, DISDT+7*, DISDT+8
    DGMTYPT LST~, LST+7*, LST+9, LST+10
    DGNOD LST+7~, LST+11*
    DGX DIS+3~, DIS+5*, DIS+6, DISDT+4~, DISDT+6*, DISDT+7
    DT LST+8, DIS+11, DISDT+12
    EASADM DISDT~, DISDT+5, DISDT+6
    ELG EXMPT+8~, EXMPT+13*, EXMPT+14, EXMPT+15
    U EXMPT+13, EXMPT+14, EXMPT+15, EXMPT+17, EXMPT+19, EXMPT+22, EXMPT+24, DIS+6, DIS+12, DIS+13
    , DIS+15, FORM+6, DISDT+7, DISDT+13, DISDT+14, DISDT+16
    X EXMPT+8~, EXMPT+13*, EXMPT+19*, EXMPT+20, EXMPT+22*, EXMPT+24
    Y LST+7~, LST+11*, LST+12, MTS+3~, MTS+4*, MTS+5, EXMPT+8~, EXMPT+9*, EXMPT+14*, EXMPT+15*
    , EXMPT+25*, EXMPTQ, DIS+7*, DISDT+8*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All