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 |