AUM9115M.m

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       ;