EASECSCC ;ALB/LBD,HM - LTC Co-Pay Test Screen Completion ;13 AUG 2001 ; 3/20/03 2:24pm
Source file <EASECSCC.m>
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DGMT(408.31 - [#408.31] | Classic Fileman Calls |