PXRMOBJ ;SLC/JVS - PXRM OBJECT AND GUI EVAL FOR GEC ;7/14/05 07:34
Source file <PXRMOBJ.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| STAT(DFN) | ;Status Object
|
|
| UP() | ;
|
|
| DEM(DFN) | ;
|
|
| GET | ; Get data from file
|
|
| 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 | ||
| EXIT | ;
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GETS^DIQ |
