PXRMOBJ ;SLC/JVS - PXRM OBJECT AND GUI EVAL FOR GEC ;7/14/05 07:34
Source file <PXRMOBJ.m>
| Package | Total | Call Graph |
|---|---|---|
| Clinical Reminders | 1 | STATUS^PXRMOBJX |
| Enrollment Application System | 1 | $$LST^EASECU |
| Kernel | 1 | $$FMTE^XLFDT |
| VA Fileman | 1 | GETS^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UP() | ;
|
|
| DEM(DFN) | ;
|
|
| GET | ; Get data from file
|
|
| STAT(DFN) | ;Status Object
|
|
| EXMPTQ | ||
| EXIT | ;
|
|
| 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) |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(11 - [#11] | EXMPT+20 |
| ^DIC(8 - [#8] | EXMPT+13 |
| ^DPT - [#2] | EXMPT+13, EXMPT+14, EXMPT+15, EXMPT+18, EXMPT+20, EXMPT+23 |
| ^TMP("PXRMGECOBJ" | EXIT+1! |
| ^TMP("PXRMOBJ" | DEM+5!, DEM+7*, DEM+8*, DEM+9*, DEM+10*, DEM+11*, DEM+12*, DEM+13*, DEM+14*, DEM+15* , DEM+16*, DEM+17*, DEM+18*, DEM+20*, DEM+22*, DEM+23* |
| ^TMP("PXRMOBJSTATUS" | STAT+4!, STAT+8*, STAT+9* |
| Name | Line Occurrences |
|---|---|
| $$EXMPT | GET+39 |
| $$UP | STAT+8, STAT+9 |
| EXIT | DEM+26 |
| EXMPTQ | EXMPT+14, EXMPT+16, EXMPT+18, EXMPT+21, EXMPT+23, EXMPT+25 |
| GET | DEM+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARY | DEM+2~, GET+7*, GET+9, GET+10, GET+11, GET+12, GET+13, GET+14, GET+15, GET+16 , GET+17, GET+18, GET+19, GET+20, GET+21, GET+22, GET+23, GET+24, GET+25, GET+26 , GET+27, GET+28, GET+29, GET+30, GET+31 |
| CMARRAY | STAT+1~, STAT+5*, STAT+10, DEM+6*, DEM+27 |
| CNT | STAT+1~, STAT+2*, UP+1*, UP+2 |
| DATA | DEM+3~ |
| DATA("AGE" | DEM+9, GET+9* |
| DATA("AMOUNTAA" | GET+10*, GET+35 |
| DATA("AMOUNTGI" | GET+11*, GET+35 |
| DATA("AMOUNTHO" | GET+12*, GET+35 |
| DATA("AMOUNTOR" | GET+14* |
| DATA("AMOUNTOT" | GET+13*, GET+35 |
| DATA("AMOUNTSS" | GET+15*, GET+35 |
| DATA("AMOUNTVA" | GET+16*, GET+35 |
| DATA("CITY" | DEM+14, GET+17* |
| DATA("DOB" | DEM+9, GET+18* |
| DATA("MARSTAT" | DEM+10, GET+19* |
| DATA("NAME" | DEM+8, GET+20* |
| DATA("PHONER" | DEM+15, GET+21* |
| DATA("PHONEW" | DEM+16, GET+22* |
| DATA("SERCON" | DEM+17, GET+23* |
| DATA("SEX" | DEM+8, GET+24* |
| DATA("STATE" | DEM+14, GET+25* |
| DATA("STATUS | DATE" , DEM+19, DEM+20, GET+38*, GET+48* |
| DATA("STATUS" | DEM+18, GET+38*, GET+40*, GET+41*, GET+47* |
| DATA("STRAD1" | DEM+11, GET+26* |
| DATA("STRAD2" | DEM+12, GET+27* |
| DATA("STRAD3" | DEM+13, GET+28* |
| DATA("SUM" | GET+35*, GET+36* |
| DATA("TOTAL" | GET+29* |
| DATA("WHY" | DEM+21, DEM+22, GET+42*, GET+43* |
| DATA("ZIP" | GET+30*, GET+34 |
| DATA("ZIP4" | GET+31*, GET+33 |
| DFN | STAT~, STAT+3, DEM~, DEM+1, GET+5, GET+7, GET+39, GET+45, EXMPT~, EXMPT+13 , EXMPT+14, EXMPT+15, EXMPT+18, EXMPT+20, EXMPT+23 |
| DFN2 | GET+1~, GET+7*, GET+9, GET+10, GET+11, GET+12, GET+13, GET+14, GET+15, GET+16 , GET+17, GET+18, GET+19, GET+20, GET+21, GET+22, GET+23, GET+24, GET+25, GET+26 , GET+27, GET+28, GET+29, GET+30, GET+31 |
| ELG | EXMPT+8~, EXMPT+13*, EXMPT+14, EXMPT+15 |
| FIELDS | GET+1~, GET+4*, GET+5 |
| I | STAT+1~, STAT+6*, STAT+7, STAT+8 |
| K | STAT+1~, STAT+7*, STAT+8 |
| MISSING | STAT+1~, STAT+3 |
| STAT | GET+1~, GET+39*, GET+40, GET+41, GET+42, GET+43 |
| STATUS | STAT+1~, STAT+3, GET+1~, GET+45*, GET+46, GET+47, GET+48 |
| STATUS( | STAT+6, STAT+7, STAT+8 |
| U | EXMPT+13, EXMPT+14, EXMPT+15, EXMPT+18, EXMPT+20, EXMPT+23, EXMPT+25 |
| X | DEM+2~, EXMPT+8~, EXMPT+13*, EXMPT+20*, EXMPT+21, EXMPT+23*, EXMPT+25 |
| Y | EXMPT+8~, EXMPT+9*, EXMPT+14*, EXMPT+15*, EXMPT+26*, EXMPTQ |
| ZIP | DEM+3~, DEM+14, GET+32*, GET+33*, GET+34* |