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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: EASECSCC

Package: Enrollment Application System

Routine: EASECSCC


Information

EASECSCC ;ALB/LBD,HM - LTC Co-Pay Test Screen Completion ;13 AUG 2001 ; 3/20/03 2:24pm

Source Information

Source file <EASECSCC.m>

Entry Points

Name Comments DBIA/ICR reference
EN
UPD
Q
COM ;Check if user wants to complete the LTC co-pay test
REF ;Check if patient declines to provide income information
REFQ
CHK ;Check if LTC copay test can be completed
; For LTC III (EAS*1*34) removed check if expenses greater than income
STA ;Ask test status
AGREE ;Ask if vet agrees to pay co-payment
PRT ;Print Extended Care Services test (1010EC)
PRTQ
EXMPT(DFN,DGMTI,EX) ; Veteran is exempt from LTC co-payments
; Complete LTC co-pay test in Annual Means Test file (#408.31)
; Input -- DFN Patient IEN
; DGMTI Annual Means Test IEN
; EX Copay exemption code
; 1 = SC compensable disability
; 2 = NSC, single, receiving VA pension (no A&A, HB)
; or
; Income (last year) is below single pension threshold
; 12 = Income (current year) is below single pension threshold
; 14 = Veteran Awarded Medal of Honor - EAS*1.0*174 HM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?3,*7,"LTC copay test cannot be completed."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !?3,"...The LTC copay test has been completed with a status of ",DGSTA,"..."
  • Line Location: UPD+1
Function Call: WRITE
  • Prompt: !?3,"Marital section must be completed."
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !?3,"Married is 'YES'. An active spouse for this LTC copay test does not exist."
  • Line Location: CHK+7
Function Call: WRITE
  • Prompt: !?3,"An active spouse exists for this LTC copay test. Married should be 'YES'."
  • Line Location: CHK+8
Function Call: WRITE
  • Prompt: !?3,"Dependent Children section must be completed."
  • Line Location: CHK+9
Function Call: WRITE
  • Prompt: !?3,"Dependent Children is 'YES'. No active children exist."
  • Line Location: CHK+10
Function Call: WRITE
  • Prompt: !?3,"Active children exist. Dependent Children should be 'YES'."
  • Line Location: CHK+11
Function Call: WRITE
  • Prompt: !?3,"Patient has more than one spouse for this LTC copay test."
  • Line Location: CHK+18
Function Call: WRITE
  • Prompt: !!,"Veteran is Awarded Medal of Honor - Add a New LTC Copayment Test to update status"
  • Line Location: STA+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXMPT+13
Function Call: WRITE
  • Prompt: "="
  • Line Location: EXMPT+13
Function Call: WRITE
  • Prompt: !!,?10,"Veteran is EXEMPT from Long Term Care copayments."
  • Line Location: EXMPT+14
Function Call: WRITE
  • Prompt: !,?10,"Reason for Exemption: ",$P($G(^EAS(714.1,EX,0)),U)
  • Line Location: EXMPT+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXMPT+16
Function Call: WRITE
  • Prompt: "="
  • Line Location: EXMPT+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXMPT+17
Function Call: WRITE
  • Prompt: !,"ERROR: COULD NOT UPDATE LTC COPAY TEST",!!
  • Line Location: EXMPT+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGMT(408.31 - [#408.31] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call