Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: EASECU

Package: Enrollment Application System

Routine: EASECU


Information

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

Source Information

Source file <EASECU.m>

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
    ; If the veteran is a Medal of Honor recipient - EAS*1.0*174 HM
    ; 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)
    ; 14 = veteran is Medal of Honor recipient - EAS*1.0*174 HM
    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

    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
    Info |  Source |  Entry Points |  Interaction Calls