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