EASAILK ;ALB/BRM - ADDRESS INDEXING APIS ; 11/13/02 4:28pm
Source file <EASAILK.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Enrollment Application System | 1 | EASGTLKP |
| Income Verification Match | 1 | IVMCME5 |
| Registration | 1 | DGMTSCU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETFIPS(DFN,INCYR,AIGMT) | ;get the appropriate FIPS code and address for GMT
|
|
| PATIENT(DFN,AIGMT,INCYR) | ;find patient's address in the Patient (#2) file
|
|
| PRIMMT(DFN,AIGMT,INCYR) | ;find Primary MT location address
|
|
| STATADDR(STATION,AIGMT,INCYR) | ;get the VAMC station address
|
|
| MSACHK(ZIP) | ; check and return MSA code if it exists for a Zip Code
|
|
| GMTCHK(YEAR,FIPS,MSA) | ;check for valid GMT Threshold
|
|
| MSAZERO(YEAR,FIPS,MSA) | ;MSA for this zip code appears to be zero. Can we
; determine a GMT Threshold? |
|
| FIPS(ZIP,INCYR) | ; look-up the 5-digit FIPS County code for the entered zip
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GETS^DIQ |
| ^DGMT(408.31 - [#408.31] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^EAS(712.5 - [#712.5] | GMTCHK+17, GMTCHK+18, GMTCHK+19, MSAZERO+18, MSAZERO+19, MSAZERO+20, MSAZERO+23, MSAZERO+24, MSAZERO+27, MSAZERO+28 , MSAZERO+29 |
| ^EAS(712.6 - [#712.6] | MSACHK+2, MSACHK+3 |
| Name | Line Occurrences |
|---|---|
| $$GMTCHK | PATIENT+14, STATADDR+14, FIPS+18 |
| $$MSACHK | PATIENT+12, STATADDR+12, FIPS+17 |
| $$MSAZERO | GMTCHK+16, GMTCHK+20 |
| PATIENT | GETFIPS+44 |
| PRIMMT | GETFIPS+46 |
| STATADDR | PRIMMT+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AIGMT | GETFIPS~, GETFIPS+44, GETFIPS+46, PATIENT~, PRIMMT~, PRIMMT+11, STATADDR~ |
| AIGMT( | GETFIPS+39* |
| AIGMT("CITY" | PATIENT+22*, STATADDR+22* |
| AIGMT("COUNTY" | PATIENT+25*, STATADDR+25* |
| AIGMT("FIPS" | PATIENT+18*, STATADDR+18* |
| AIGMT("GMTIEN" | PATIENT+27*, STATADDR+28* |
| AIGMT("INCYR" | PATIENT+17*, STATADDR+17* |
| AIGMT("MSA" | PATIENT+26*, STATADDR+27* |
| AIGMT("SITE" | STATADDR+26* |
| AIGMT("SOURCE" | GETFIPS+44, PATIENT+28*, STATADDR+29* |
| AIGMT("ST1" | PATIENT+19*, STATADDR+19* |
| AIGMT("ST2" | PATIENT+20*, STATADDR+20* |
| AIGMT("ST3" | PATIENT+21*, STATADDR+21* |
| AIGMT("STATE" | PATIENT+23*, STATADDR+23* |
| AIGMT("ZIP" | PATIENT+24*, STATADDR+24* |
| DFN | GETFIPS~, GETFIPS+40, GETFIPS+44, GETFIPS+46, PATIENT~, PATIENT+1, PRIMMT~, PRIMMT+2 |
| ERR | PRIMMT+1~, PRIMMT+5 |
| FIPS | STATADDR+2~, GMTCHK~, GMTCHK+13, GMTCHK+16, GMTCHK+18, GMTCHK+19, GMTCHK+20, MSAZERO~, MSAZERO+15, MSAZERO+18 , MSAZERO+19, MSAZERO+20, MSAZERO+23, MSAZERO+24, MSAZERO+27, MSAZERO+28, MSAZERO+29, FIPS+11~, FIPS+16*, FIPS+18 , FIPS+19 |
| GMTIEN | PATIENT+2~, PATIENT+14*, PATIENT+15, PATIENT+27, STATADDR+2~, STATADDR+14*, STATADDR+15, STATADDR+28, GMTCHK+20*, GMTCHK+21 , MSAZERO+14*, MSAZERO+15, MSAZERO+18, MSAZERO+20*, MSAZERO+23, MSAZERO+24*, MSAZERO+28, MSAZERO+29*, MSAZERO+31, FIPS+11~ , FIPS+18*, FIPS+19 |
| IEN4 | STATADDR+2~, STATADDR+3*, STATADDR+4 |
| IEN5 | STATADDR+2~ |
| IENS | STATADDR+2~, STATADDR+4*, STATADDR+5, STATADDR+6, STATADDR+8, STATADDR+12, STATADDR+19, STATADDR+20, STATADDR+22, STATADDR+24 |
| INCYR | GETFIPS~, GETFIPS+41*, GETFIPS+42*, GETFIPS+44, GETFIPS+46, PATIENT~, PATIENT+14, PATIENT+17, PRIMMT~, PRIMMT+11 , STATADDR~, STATADDR+14, STATADDR+17, FIPS~, FIPS+13, FIPS+18 |
| MSA | PATIENT+2~, PATIENT+12*, PATIENT+14, PATIENT+26, STATADDR+2~, STATADDR+12*, STATADDR+14, STATADDR+27, GMTCHK~, GMTCHK+14* , GMTCHK+16, GMTCHK+19, GMTCHK+20, MSAZERO~, MSAZERO+23, MSAZERO+24, MSAZERO+30*, FIPS+11~, FIPS+17*, FIPS+18 , FIPS+19 |
| MTDATA | PRIMMT+1~ |
| MTDATA( | PRIMMT+6, PRIMMT+8 |
| MTIEN | PRIMMT+1~, PRIMMT+2*, PRIMMT+3, PRIMMT+4, PRIMMT+6, PRIMMT+8 |
| MTSRC | PRIMMT+1~, PRIMMT+6*, PRIMMT+7 |
| SITEADDR | STATADDR+2~ |
| SITEADDR(4 | STATADDR+6, STATADDR+8, STATADDR+12, STATADDR+19, STATADDR+20, STATADDR+22, STATADDR+24 |
| STATION | PRIMMT+1~, PRIMMT+8*, PRIMMT+9, PRIMMT+11, STATADDR~, STATADDR+1, STATADDR+3, STATADDR+26 |
| STFIPS | STATADDR+2~ |
| TMPGMT | MSAZERO+13~, MSAZERO+14* |
| TMPMSA | MSAZERO+13~, MSAZERO+14*, MSAZERO+27*, MSAZERO+28, MSAZERO+29, MSAZERO+30 |
| VAPA | PATIENT+2~ |
| VAPA("P" | PATIENT+4* |
| VAPA(1 | PATIENT+19 |
| VAPA(2 | PATIENT+20 |
| VAPA(3 | PATIENT+21 |
| VAPA(4 | PATIENT+22 |
| VAPA(5 | PATIENT+23 |
| VAPA(6 | PATIENT+6, PATIENT+8, PATIENT+12, PATIENT+24 |
| X | GETFIPS+37~, GETFIPS+39* |
| YEAR | GMTCHK~, GMTCHK+15*, GMTCHK+16, GMTCHK+17, GMTCHK+18, GMTCHK+19, GMTCHK+20, MSAZERO~, MSAZERO+15, MSAZERO+18 , MSAZERO+19, MSAZERO+20, MSAZERO+23, MSAZERO+24, MSAZERO+27, MSAZERO+28, MSAZERO+29 |
| ZIP | STATADDR+2~, MSACHK~, MSACHK+1, MSACHK+2, MSACHK+3, FIPS~, FIPS+12, FIPS+14, FIPS+17 |
| ZIPDAT | PATIENT+2~, PATIENT+8, PRIMMT+1~, STATADDR+2~, STATADDR+8, FIPS+11~, FIPS+14 |
| ZIPDAT("COUNTY" | PATIENT+25, STATADDR+25 |
| ZIPDAT("ERROR" | PATIENT+10, STATADDR+10, FIPS+15 |
| ZIPDAT("FIPS | CODE" , PATIENT+14, PATIENT+18, STATADDR+14, STATADDR+18, FIPS+16 |
| ZIPDAT("STATE | POINTER" , STATADDR+23 |
| ZIPDAT("STATE" | STATADDR+23 |