Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AUM9115M

AUM9115M.m

Go to the documentation of this file.
  1. AUM9115M ; IHS/RPMSDBA/GTH - BACKGROUND VALUES FOR STANDARD TABLE UPDATES, 2000JUL21 ; [ 07/27/2000 10:47 AM ]
  1. ;;99.1;TABLE MAINTENANCE;**15**;NOV 6,1998
  1. ;
  1. VAL(X,%,Y) ;EP - return background info.
  1. I X["AREA" Q $T(@%)
  1. S Y=0
  1. I X["SU" D Q Y
  1. . NEW C,T
  1. . F C=1:1 S T=$P($T(SU+C),";",3) Q:T="END" I $P(T,U,1,2)=($E(%,1,2)_U_$E(%,3,4)) S Y=1_";;"_T Q
  1. .Q
  1. I '(X["CTY") Q 0
  1. NEW C,T
  1. F C=1:1 S T=$P($T(COUNTY+C),";",3) Q:T="END" I $P(T,U,1,2)=($E(%,1,2)_U_$E(%,3,4)) S Y=1_";;"_T Q
  1. Q Y
  1. ;
  1. AREA ; CODE^NAME^PREFIX/REGION^CAN PREFIX
  1. 10 ;;10^ABERDEEN^C^J45
  1. 11 ;;11^BEMIDJI^D^J46
  1. 15 ;;15^ABERDEEN TRIBE/638^C^J45
  1. 18 ;;18^BEMIDJI NON-IHS^D^J46
  1. 20 ;;20^ALBUQUERQUE^Q^J53
  1. 58 ;;58^NASHVILLE NON-IHS^U^J51
  1. 60 ;;60^PHOENIX^X^J40
  1. 65 ;;65^PHOENIX TRIBE/638^X^J40
  1. ;;END
  1. ;
  1. SU ; AREA^SU^NAME
  1. 1000 ;;10^00^NON SERVICE UNIT
  1. 1015 ;;10^15^PINE RIDGE
  1. 1100 ;;11^00^NON SERVICE UNIT
  1. 1520 ;;15^20^WINNEBAGO
  1. 1533 ;;15^33^SAC AND FOX
  1. 1831 ;;18^31^NETT LAKE
  1. 2021 ;;20^21^ALBUQUERQUE
  1. 5800 ;;58^00^NON SERVICE UNIT
  1. 6062 ;;60^62^KEAMS CANYON
  1. 6066 ;;60^66^PHOENIX
  1. 6563 ;;65^63^OWYHEE
  1. 6566 ;;65^66^PHOENIX
  1. ;;END
  1. ;
  1. COUNTY ; STATE^COUNTY^NAME
  1. 1907 ;;19^07^BLACK HAWK
  1. 1908 ;;19^08^BOONE
  1. 1925 ;;19^25^DALLAS
  1. 1931 ;;19^31^DUBUQUE
  1. 1950 ;;19^50^JASPER
  1. 1957 ;;19^57^LINN
  1. 1962 ;;19^62^MAHASKA
  1. 1964 ;;19^64^MARSHALL
  1. 1977 ;;19^77^POLK
  1. 1979 ;;19^79^POWESHIEK
  1. 1982 ;;19^82^SCOTT
  1. 1986 ;;19^86^TAMA
  1. 1990 ;;19^90^WAPELLO
  1. 2670 ;;26^70^OTTAWA
  1. 2703 ;;27^03^BECKER
  1. 2731 ;;27^31^ITASCA
  1. 2736 ;;27^36^KOOCHICHING
  1. 2769 ;;27^69^ST LOUIS
  1. 3532 ;;35^32^VALENCIA
  1. 9699 ;;96^99^CANADA UNK
  1. ;;END
  1. ;