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 |