EASAILK ;ALB/BRM - ADDRESS INDEXING APIS ; 11/13/02 4:28pm
Source file <EASAILK.m>
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 |