AUM4101M.m

AUM4101M ;TASSC/MFD - SCB UPDATE 10/31/2003 [ 11/13/2003  5:07 PM ]

 ;;04.1;TABLE MAINTENANCE;**1**;OCT 13,2003

 ;

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

58 ;;58^NASHVILLE NON-IHS^U^351

 ;;END

 ;

SU ; AREA^SU^NAME

1122 ;;11^22^CENTRAL WISCONSIN

1537 ;;15^37^NORTHERN PONCA

3531 ;;35^31^ANCHORAGE

3535 ;;35^35^KOTZEBUE

3536 ;;35^36^MT.EDGECUMBE

4750 ;;47^50^HELENA URBAN

4751 ;;47^51^MISSOULA URBAN

4752 ;;47^52^BILLINGS URBAN

4753 ;;47^53^BUTTE URBAN

5183 ;;51^83^MANLIUS

5558 ;;55^58^SHAWNEE

5563 ;;55^63^EAGLE PASS

5883 ;;58^83^ONONDAGA

6064 ;;60^64^COLORADO RIV

6072 ;;60^72^FT. YUMA

6482 ;;64^82^I.H.C. SANTA CLARA VAL

6484 ;;64^84^URBAN IND HLTH BD

6637 ;;66^37^COLUSA TRIBAL HEALTH

6638 ;;66^38^QUARTZ VALLEY IND RES CHS

6639 ;;66^39^TABLE MOUNTAIN IND RES CHS

7076 ;;70^76^YAKAMA

7571 ;;75^71^COLVILLE TRIBAL

7500 ;;75^00^NON-SVC.UNIT

8084 ;;80^84^GALLUP

 ;;END

 ;

COUNTY ; STATE^COUNTY^NAME

0620 ;;06^20^MADERA

0647 ;;06^47^SISKIYOU

1614 ;;16^14^CANYON

2329 ;;23^29^WASHINGTON

2613 ;;26^13^CALHOUN

3509 ;;35^09^GRANT

3810 ;;38^10^CAVALIER

3815 ;;38^15^EMMONS

4610 ;;46^10^CAMPBELL

4629 ;;46^29^HAND

4650 ;;46^50^MOODY

 ;;END

 ;

AUM4101M  ;TASSC/MFD - SCB UPDATE 10/31/2003 [ 11/13/2003  5:07 PM ]

 +1       ;;04.1;TABLE MAINTENANCE;**1**;OCT 13,2003

 +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      ;

 +12      ;

AREA      ; CODE^NAME^PREFIX/REGION^CAN PREFIX

58        ;;58^NASHVILLE NON-IHS^U^351

 +1       ;;END

 +2       ;

SU        ; AREA^SU^NAME

1122      ;;11^22^CENTRAL WISCONSIN

1537      ;;15^37^NORTHERN PONCA

3531      ;;35^31^ANCHORAGE

3535      ;;35^35^KOTZEBUE

3536      ;;35^36^MT.EDGECUMBE

4750      ;;47^50^HELENA URBAN

4751      ;;47^51^MISSOULA URBAN

4752      ;;47^52^BILLINGS URBAN

4753      ;;47^53^BUTTE URBAN

5183      ;;51^83^MANLIUS

5558      ;;55^58^SHAWNEE

5563      ;;55^63^EAGLE PASS

5883      ;;58^83^ONONDAGA

6064      ;;60^64^COLORADO RIV

6072      ;;60^72^FT. YUMA

6482      ;;64^82^I.H.C. SANTA CLARA VAL

6484      ;;64^84^URBAN IND HLTH BD

6637      ;;66^37^COLUSA TRIBAL HEALTH

6638      ;;66^38^QUARTZ VALLEY IND RES CHS

6639      ;;66^39^TABLE MOUNTAIN IND RES CHS

7076      ;;70^76^YAKAMA

7571      ;;75^71^COLVILLE TRIBAL

7500      ;;75^00^NON-SVC.UNIT

8084      ;;80^84^GALLUP

 +1       ;;END

 +2       ;

COUNTY    ; STATE^COUNTY^NAME

0620      ;;06^20^MADERA

0647      ;;06^47^SISKIYOU

1614      ;;16^14^CANYON

2329      ;;23^29^WASHINGTON

2613      ;;26^13^CALHOUN

3509      ;;35^09^GRANT

3810      ;;38^10^CAVALIER

3815      ;;38^15^EMMONS

4610      ;;46^10^CAMPBELL

4629      ;;46^29^HAND

4650      ;;46^50^MOODY

 +1       ;;END

 +2       ;