EASECMT ;ALB/LBD,BDB - Means Test for LTC Co-Pay exemption ; 27 DEC 2001
Source file <EASECMT.m>
| 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) |
|
| 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) |
|
| 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 |
|
| MT1 | ||
| 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) |
|
| 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) |
|
| 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) |
|
| 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,
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DGMT(408.22 - [#408.22] | Classic Fileman Calls |
| ^DGMT(408.31 - [#408.31] | Classic Fileman Calls |
