12:00 PM  8-FEB-96
AUM v 96.1, Patch 4, SCB Updates from 07Feb96 Banyan.  Restore 6 routines and DO ^AUM6104.
A9AUM4
A9AUM4 ; IHS/ADC/GTH - STANDARD TABLE UPDATES, 07FEB96 BANYAN, RPI ; [ 02/08/96  11:59 AM ]
 ;;96.1;TABLE MAINTENANCE;**4**;OCT 26,1995
 ;
 D START^AUM6104
INTERACT ;EP - Delete routines from interactive call.
 Q:'$L($G(^%ZOSF("DEL")))
 NEW AUM,X
 F AUM=1:1 S X=$P($T(DEL+AUM),";",3) Q:X=""  X ^%ZOSF("DEL") I '$D(ZTQUEUED) W !,X," (poof'd)"
 Q
DEL ;     
 ;;A9AUM3
 ;;AUM6104
 ;;AUM61041
 ;;AUM6104A
 ;;AUM6104B
 ;;AUM6104M

AUM6104
AUM6104 ; IHS/ADC/GTH - STANDARD TABLE UPDATES, 07FEB96 BANYAN ; [ 02/08/96  10:32 AM ]
 ;;96.1;TABLE MAINTENANCE;**4**;OCT 26,1995
 ;
 I '$G(DUZ) W !,"DUZ UNDEFINED OR ZERO.",! Q
 D HOME^%ZIS,DT^DICRW,HELP("INTRO")
 S (DIR(0),DIR("B"))="Y"
 S DIR("A")="Do you want to queue the update to TaskMan"
 S DIR("??")="^D HELP^AUM6104(""Q2"")"
 D ^DIR
 K DIR
 I $D(DIRUT) D HELP("Q2") Q
 G START:'Y
QUE ;
 S %DT="AERSX",%DT("A")="Requested Start Time: ",%DT("B")="T@2015",%DT(0)="NOW"
 D ^%DT
 I Y<1 W !,"QUEUE INFORMATION MISSING - NOT QUEUED" D Q2 G AUM6104
 S X=+Y
 D H^%DTC
 S ZTDTH=%H_","_%T
 S ZTRTN="START^AUM6104",ZTIO="",ZTDESC=$P($P($T(+1),";",2)," ",4,99)
 D ^%ZTLOAD,HOME^%ZIS
 I $D(ZTSK) W !!,"QUEUED TO TASK ",ZTSK,!!,"A mail message with the results will be sent to your MailMan 'IN' basket.",!
 E  W !!,*7,"QUEUE UNSUCCESSFUL.  RESTART UTILITY."
 Q
 ;
START ;EP - From Taskman
 ;
 NEW XMSUB,XMDUZ,XMTEXT,XMY
 K ^TMP("AUM SCB",$J)
 D START^AUM61041
 S XMSUB=$P($P($T(+1),";",2)," ",4,99),XMDUZ=$S($G(DUZ):DUZ,1:.5),XMTEXT="^TMP(""AUM SCB"",$J,",XMY(1)="",XMY(DUZ)=""
 D ^XMD
 K ^TMP("AUM SCB",$J)
 I $D(ZTQUEUED) S ZTREQ="@" Q
 W !!,"The results are in your MailMan 'IN' basket.",!
 I $L($T(DIR^XBDIR)),$$DIR^XBDIR("Y","Want me to delete the routines in this patch","Y") G INTERACT^A9AUM4
 Q
 ;
INTRO ;
 ;;This updates standard tables according to the changes specified in
 ;;the Banyan message time stamped 07Feb96@15:48:29 MST. Please consult
 ;;that message, and the mail message produced by this update.
 ;;
 ;;###
 ;
Q2 ;
 ;;Answer "Y" if you want to queue this standard table update to TaskMan.
 ;;Answer "N" if you want to run this update interactively.
 ;;
 ;;If you run interactively, results will be displayed on your screen,
 ;;as well as in the mail message sent to you and user 1.  If you queue
 ;;to TaskMan, please read the mail message for results of this update.
 ;;###
 ;
HELP(L) ;EP - Display text at label L.
 W !
 F %=1:1 W !?4,$P($T(@L+%),";",3) Q:$P($T(@L+%+1),";",3)="###"
 Q
 ;

AUM61041
AUM61041 ; IHS/ADC/GTH - STANDARD TABLE UPDATES, 07FEB96 BANYAN ; [ 02/08/96  11:53 AM ]
 ;;96.1;TABLE MAINTENANCE;**4**;OCT 26,1995
 ;
 Q
 ;
START ;EP
 ;
 NEW A,C,DIC,DIE,DLAYGO,DR,E,L,N,O,P,R,S,T
 ;
 S E(0)="ERROR : ",E(1)="NOT ADDED : "
 D RSLT($J("",15)_"IHS STANDARD CODE BOOK MODIFICATIONS - JAN 1996")
 D DASH,SUNEW,DASH,LOCNEW,DASH,LOCMOD,DASH,COMMNEW,DASH,COMMMOD,DASH,TRIBNEW,DASH
 ;
 Q
 ;
 ; -----------------------------------------------------
 ;
ADDOK D RSLT($J("",5)_"Added : "_L) Q
ADDFAIL D RSLT($J("",5)_E(0)_"ADD FAILED => "_L) Q
DASH D RSLT(""),RSLT($$REPEAT^XLFSTR("-",$S($G(IOM):IOM-10,1:70))),RSLT("") Q
DIE NEW A,C,E,L,N,O,P,R,S,T
 LOCK +(@(DIE_DA_")")):10 E  D RSLT($J("",5)_E(0)_"Entry '"_DIE_DA_"' IS LOCKED.  NOTIFY PROGRAMMER.") S Y=1 Q
 D ^DIE LOCK -(@(DIE_DA_")")) K DA,DIE,DR Q
IEN(X,%,Y) ;
 S Y=$O(@(X_"""C"",%,0)"))
 I 'Y S Y=$T(@%^AUM6104M) I Y NEW Z S Z=E D  S:Y<0 Y="" S E=Z
 . NEW A,C,L,N,O,P,R,S,V,%
 . S L=Y
 . I X["AREA" NEW X S E=E_" (Add Area) " D ADDAREA Q
 . I X["SU" NEW X S E=E_" (Add SU) " D ADDSU Q
 . I X["CTY" NEW X S E=E_" (Add County) " D ADDCNTY Q
 .Q
 D:'Y RSLT($J("",5)_E(0)_$P(@(X_"0)"),U)_" DOES NOT EXIST => "_%)
 Q +Y
DIK NEW A,C,E,L,N,O,P,R,S,T D ^DIK K DIK Q
FILE NEW A,C,E,L,N,O,P,R,S,T K DD,DO S DIC(0)="L" D FILE^DICN K DIC Q
MODOK D RSLT($J("",5)_"Changed : "_L) Q
RSLT(%) S ^(0)=$G(^TMP("AUM SCB",$J,0))+1,^(^(0))=% W:'$D(ZTQUEUED) !,% Q
ZEROTH(A,B,C,D,E,F,G,H,I,J,K) ; Return 0th node.  A is file #, rest fields.
 I '$G(A) Q -1
 I '$G(B) Q -1
 F %=67:1:75 Q:'$G(@($C(%)))  S A=+$P(^DD(A,B,0),U,2),B=@($C(%))
 I 'A!('B) Q -1
 I '$D(^DD(A,B,0)) Q -1
 Q U_$P(^DD(A,B,0),U,2)
 ;
 ; -----------------------------------------------------
AREANEW ;
 D RSLT("New Area Codes")
 F T=1:1 S L=$T(AREANEW+T^AUM6104A) Q:$P(L,";",3)="END"  D ADDAREA
 Q
 ;
ADDAREA ;
 S L=$P(L,";;",2),A=$P(L,U),N=$P(L,U,2),R=$P(L,U,3),C=$P(L,U,4),L=A_" "_N_" "_R_" "_C
 I $D(^AUTTAREA("B",N)) D RSLT($J("",5)_E(1)_"NAME EXISTS => "_N) Q
 I $D(^AUTTAREA("C",A)) D RSLT($J("",5)_E(1)_"CODE EXISTS => "_A) Q
 S DLAYGO=9999999.21,DIC="^AUTTAREA(",X=N,DIC("DR")=".02///"_A_";.03///"_R_";.04///"_C
 D FILE,ADDFAIL:Y<0,ADDOK:Y>0
 Q
 ;
 ; -----------------------------------------------------
SUNEW ;
 D RSLT("New Service Unit Codes, Section VIII-B")
 D RSLT($J("",13)_"AA SU NAME")
 D RSLT($J("",13)_"-- -- ----")
 F T=1:1 S L=$T(SUNEW+T^AUM6104A) Q:$P(L,";",3)="END"  D ADDSU
 Q
 ;
ADDSU ;
 S L=$P(L,";;",2),A=$P(L,U),S=$P(L,U,2),N=$P(L,U,3),L=A_" "_S_" "_N
 I $D(^AUTTSU("C",A_S)) D RSLT($J("",5)_E(1)_"ASU EXISTS => "_A_S) Q
 S P=$$IEN("^AUTTAREA(",A)
 Q:'P
 S DLAYGO=9999999.22,DIC="^AUTTSU(",X=N,DIC("DR")=".02////"_P_";.03///"_S
 D FILE,ADDFAIL:Y<0,ADDOK:Y>0
 Q
 ;
 ; -----------------------------------------------------
LOCNEW ;
 D RSLT("New Location Codes, Section VIII-C")
 D RSLT($J("",13)_"AA SU FA NAME"_$J("",28)_"PSEUDO")
 D RSLT($J("",13)_"-- -- -- ----"_$J("",28)_"------")
 F T=1:1 S L=$T(LOCNEW+T^AUM6104A) Q:$P(L,";",3)="END"  D ADDLOC
 Q
 ;
ADDLOC ;
 S L=$P(L,";;",2),A=$P(L,U),S=$P(L,U,2),F=$P(L,U,3),N=$P(L,U,4),P=$P(L,U,5)
 S L=A_" "_S_" "_F_" "_N_$J("",32-$L(N))_P
 S %=A_S_F,%=$O(^AUTTLOC("C",%,0))
 I % D RSLT($J("",5)_E(1)_"ASUFAC EXISTS => "_A_S_F) D  Q
 . I $P($G(^AUTTLOC(%,0)),U,21) S DIE="^AUTTLOC(",DA=%,DR=".27///@" D DIE D:$D(Y) RSLT($J("",5)_E(0)_"DELETE INACTIVE DATE FAILED => "_L) D:'$D(Y) RSLT($J("",5)_"INACTIVE DATE DELETED => "_L)
 . S %=$O(^AUTTLOC("C",A_S_F,0)),%=$P(^AUTTLOC(%,0),U)
 . I %,$D(^DIC(4,%,0)),N'=$P(^DIC(4,%,0),U) S DIE="^DIC(4,",DA=%,DR=".01///"_N D DIE D:$D(Y) RSLT($J("",5)_E(0)_"EDIT INSTITUTION FAILED => "_L) D:'$D(Y) RSLT($J("",5)_"INSTITUTION NAME UPDATED => "_L)
 . S %=$O(^AUTTLOC("C",A_S_F,0))
 . I P'=$P($G(^AUTTLOC(%,1)),U,2) S DIE="^AUTTLOC(",DA=%,DR=".31///"_P D DIE D:$D(Y) RSLT($J("",5)_E(0)_"EDIT PSEUDO PREFIX FAILED => "_L) D:'$D(Y) RSLT($J("",5)_"PSEUDO PREFIX UPDATED => "_L)
 .Q
 S P("A")=$$IEN("^AUTTAREA(",A)
 Q:'P("A")
 S P("S")=$$IEN("^AUTTSU(",A_S)
 Q:'P("S")
 F DINUM=+$P(^DIC(4,0),U,3):1 Q:'$D(^DIC(4,DINUM))&('$D(^AUTTLOC(DINUM)))  I DINUM>99999 D RSLT($J("",5)_E(0)_"DINUM FOR LOC/INSTITUTION TOO BIG. NOTIFY ISC.") Q
 Q:DINUM>99999
 S DLAYGO=4,DIC="^DIC(4,",X=N
 D FILE
 I Y<0 D RSLT($J("",5)_E(0)_"^DIC(4 ADD FAILED => "_L) Q
 S DINUM=+Y,DLAYGO=9999999.06,DIC="^AUTTLOC(",X=DINUM,DIC("DR")=".04////"_P("A")_";.05////"_P("S")_";.07///"_F_";.31///"_P
 D FILE,ADDFAIL:Y<0,ADDOK:Y>0
 Q
 ;
LOCMOD ;
 D RSLT("Location Code Changes, Section VIII-C")
 D RSLT($J("",15)_"AA SU FA NAME"_$J("",28)_"PSEUDO")
 D RSLT($J("",15)_"-- -- -- ----"_$J("",28)_"------")
 F T=1:2 S L=$T(LOCMOD+T^AUM6104A) Q:$P(L,";",3)="END"  S L("TO")=$T(LOCMOD+T+1^AUM6104A) D
 . S L=$P(L,U,2,99),A=$P(L,U),S=$P(L,U,2),F=$P(L,U,3)
 . S P=$O(^AUTTLOC("C",A_S_F,0))
 . S L=$P(L("TO"),U,2,99),A=$P(L,U),S=$P(L,U,2),F=$P(L,U,3),N=$P(L,U,4)
 . I 'P S P=$O(^AUTTLOC("C",A_S_F,0)) I 'P S L=";;"_L D ADDLOC Q
 . S L=A_" "_S_" "_F_" "_N_$J("",32-$L(N))_$P(L("TO"),U,6)
 . S P("A")=$$IEN("^AUTTAREA(",A)
 . Q:'P("A")
 . S P("S")=$$IEN("^AUTTSU(",A_S)
 . Q:'P("S")
 . S DIE="^AUTTLOC(",DA=P,DR=".04////"_P("A")_";.05////"_P("S")_";.07///"_F_";.31///"_$P(L("TO"),U,6)
 . D DIE
 . I $D(Y) D RSLT($J("",5)_E(0)_"EDIT LOCATION FAILED => "_L) Q
 . S DIE="^DIC(4,",DA=$P(^AUTTLOC(P,0),U),DR=".01///"_N
 . D DIE
 . I $D(Y) D RSLT($J("",5)_E(0)_"EDIT INSTITUTION FAILED => "_L) Q
 . D MODOK
 .Q
 D DASH,RSLT($$LOCMOD^AUMXPORT("AUM6104A")_" patients marked for export because of the Location Code changes.")
 ;
 Q
 ;
 ; -----------------------------------------------------
 ;
ADDCNTY ;
 S L=$P(L,";;",2),S=$P(L,U),C=$P(L,U,2),N=$P(L,U,3),L=S_" "_C_" "_N
 I $D(^AUTTCTY("C",S_C)) D RSLT($J("",5)_E(1)_"CODE EXISTS => "_S_C) Q
 S P("S")=$$IEN("^DIC(5,",S)
 Q:'P("S")
 S DIC="^AUTTCTY(",X=N,DIC("DR")=".02////"_P("S")_";.03///"_C
 D FILE,ADDFAIL:Y<0,ADDOK:Y>0
 Q
 ;
 ; -----------------------------------------------------
 ;
COMMNEW ;
 D RSLT("New Community Codes, Section V-C")
 D RSLT($J("",13)_"ST CT COM NAME"_$J("",28)_"AA SU")
 D RSLT($J("",13)_"-- -- --- ----"_$J("",28)_"-- --")
 F T=1:1 S L=$T(COMMNEW+T^AUM6104A) Q:$P(L,";",3)="END"  D ADDCOMM
 Q
 ;
ADDCOMM ;
 S L=$P(L,";;",2),S=$P(L,U),O=$P(L,U,2),C=$P(L,U,3),N=$P(L,U,4),A=$P(L,U,5),V=$P(L,U,6),L=S_" "_O_" "_C_" "_N_$J("",32-$L(N))_A_" "_V
 I $D(^AUTTCOM("C",S_O_C)) D RSLT($J("",5)_E(1)_"STCTYCOM CODE EXISTS => "_S_O_C) Q
 S P("O")=$$IEN^AUM61041("^AUTTCTY(",S_O)
 Q:'P("O")
 S P("A")=$$IEN^AUM61041("^AUTTAREA(",A)
 Q:'P("A")
 S P("V")=$$IEN^AUM61041("^AUTTSU(",A_V)
 Q:'P("V")
 S DLAYGO=9999999.05,DIC="^AUTTCOM(",X=N,DIC("DR")=".02////"_P("O")_";.05////"_P("V")_";.06////"_P("A")_";.07///"_C
 D FILE,ADDFAIL:Y<0,ADDOK:Y>0
 Q
 ;
COMMMOD ;
 D RSLT("Community Code Changes, Section V-C")
 D RSLT($J("",15)_"ST CT COM NAME"_$J("",28)_"AA SU")
 D RSLT($J("",15)_"-- -- --- ----"_$J("",28)_"-- --")
 F T=1:2 S L=$T(COMMMOD+T^AUM6104B) Q:$P(L,";",3)="END"  S L("TO")=$T(COMMMOD+T+1^AUM6104B) D
 . S L=$P(L,U,2,99),S=$P(L,U),O=$P(L,U,2),C=$P(L,U,3)
 . S P=$O(^AUTTCOM("C",S_O_C,0))
 . S L=$P(L("TO"),U,2,99),S=$P(L,U),O=$P(L,U,2),C=$P(L,U,3),N=$P(L,U,4),A=$P(L,U,5),V=$P(L,U,6)
 . I 'P S P=$O(^AUTTCOM("C",S_O_C,0)) I 'P S L=";;"_L D ADDCOMM Q
 . S L=S_" "_O_" "_C_" "_N_$J("",32-$L(N))_A_" "_V
 . S P("O")=$$IEN^AUM61041("^AUTTCTY(",S_O)
 . Q:'P("O")
 . S P("A")=$$IEN^AUM61041("^AUTTAREA(",A)
 . Q:'P("A")
 . S P("V")=$$IEN^AUM61041("^AUTTSU(",A_V)
 . Q:'P("V")
 . S DIE="^AUTTCOM(",DA=P,DR=".01///"_N_";.02////"_P("O")_";.05////"_P("V")_";.06////"_P("A")_";.07///"_C
 . D DIE
 . I $D(Y) D RSLT($J("",5)_E(0)_"CHANGE FAILED => "_L) Q
 . D MODOK
 .Q
 ;
 D DASH,RSLT($$COMMMOD^AUMXPORT("AUM6104B")_" patients marked for export because of the Community Code changes.")
 Q
 ;
 ; -----------------------------------------------------
 ;
TRIBNEW ;
 D RSLT("New Tribe Codes, Section XVIII")
 D RSLT($J("",13)_"CODE NAME")
 D RSLT($J("",13)_"---- ----")
 F T=1:1 S L=$T(TRIBNEW+T^AUM6104A) Q:$P(L,";",3)="END"  D ADDTRIB
 Q
 ;
ADDTRIB ;
 S L=$P(L,";;",2),C=$P(L,U),N=$P(L,U,2),L=C_"  "_N
 I $D(^AUTTTRI("C",C)) D RSLT($J("",5)_E(1)_" : TRIBE CODE EXISTS => "_C) Q
 S DLAYGO=9999999.03,DIC="^AUTTTRI(",X=N,DIC("DR")=".02///"_C
 D FILE,ADDFAIL:Y<0,ADDOK:Y>0
 Q
 ;
 ;

AUM6104A
AUM6104A ; IHS/ADC/GTH - STANDARD TABLE UPDATES DATA A, 07FEB96 BANYAN ; [ 02/08/96  10:14 AM ]
 ;;96.1;TABLE MAINTENANCE;**4**;OCT 26,1995
 ;
SUNEW ;;A.  NEW SERVICE UNIT CODE (SECTION VIII-B): AREA^S.U.^NAME
 ;;70^86^SOUTHERN OREGON
 ;;END
 ;
LOCNEW ;;B.  NEW LOCATION CODES (SECTION VIII-C): AREA^S.U.^FAC.^NAME^PSEUDO
 ;;66^22^33^GUIDIVILLE INDIAN RANCHERIA^LBF
 ;;END
 ;
LOCMOD ;;C.  LOCATION CODE CHANGES (SECTION VIII-C): AREA^S.U.^FAC.^NAME^PSEUDO
 ;;FROM^25^21^66^URB IND HLTH & HUMAN SVCS, INC^QJV
 ;;  TO^25^21^66^FIRST NATIONS COMM HLTH SOURCE^QJV
 ;;FROM^10^19^01^BELCOURT HOSP^CKA
 ;;  TO^10^19^01^QUENTIN M BURDICK MEM HLTH FAC^CKA
 ;;FROM^60^63^01^OWYHEE HOSPITAL^XEA
 ;;  TO^65^63^01^OWYHEE HOSPITAL^XEX
 ;;FROM^60^63^50^DUCKWATER^XEU
 ;;  TO^65^63^50^DUCKWATER^XEV
 ;;FROM^60^63^56^ELY^XEG
 ;;  TO^65^63^56^ELY^XEW
 ;;FROM^65^66^22^GILA CROSSING TRIB ALCOL PROG^XTX
 ;;  TO^65^67^67^GILA CROSSING TRIB ALCOL PROG^XEZ
 ;;FROM^65^66^30^GILA CROSSING TRIBAL^XCY
 ;;  TO^65^67^31^GILA CROSSING TRIBAL^XEY
 ;;END
 ;
COMMNEW ;;D.  NEW COMMUNITY CODES (SECTION V-C): STATE^CNTY^COMM^NAME^AREA^S.U.
 ;;02^15^100^CORNER BAY^30^32
 ;;END
 ;
TRIBNEW ;;F.  NEW TRIBE CODES (SECTION XVIII): CODE^NAME
 ;;227^JENA BAND OF CHOCTAW INDIANS
 ;;END
 ;

AUM6104B
AUM6104B ; IHS/ADC/GTH - STANDARD TABLE UPDATES DATA B, 07FEB96 BANYAN ; [ 02/08/96  10:13 AM ]
 ;;96.1;TABLE MAINTENANCE;**4**;OCT 26,1995
 ;
COMMMOD ;;E.  COMMUNITY CODE CHANGES (SECTION V-C): STATE^CNTY^COMM^NAME^AREA^S.U.
 ;;FROM^02^14^100^NORTON SOUND^30^39
 ;;  TO^02^14^902^NORTON SOUND^30^39
 ;;FROM^41^06^025^ALLEGANY^70^82
 ;;  TO^41^06^025^ALLEGANY^70^86
 ;;FROM^41^06^026^BUNKER HILL^70^82
 ;;  TO^41^06^026^BUNKER HILL^70^86
 ;;FROM^41^06^027^COQUILLE PNT^70^82
 ;;  TO^41^06^027^COQUILLE PNT^70^86
 ;;FROM^41^06^028^DELLWOOD^70^82
 ;;  TO^41^06^028^DELLWOOD^70^86
 ;;FROM^41^06^029^DORA^70^82
 ;;  TO^41^06^029^DORA^70^86
 ;;FROM^41^06^030^EASTSIDE^70^82
 ;;  TO^41^06^030^EASTSIDE^70^86
 ;;FROM^41^06^031^GLASGOW^70^82
 ;;  TO^41^06^031^GLASGOW^70^86
 ;;FROM^41^06^032^HAUSER^70^82
 ;;  TO^41^06^032^HAUSER^70^86
 ;;FROM^41^06^033^LARGO^70^82
 ;;  TO^41^06^033^LARGO^70^86
 ;;FROM^41^06^034^MCKINLEY^70^82
 ;;  TO^41^06^034^MCKINLEY^70^86
 ;;FROM^41^06^035^MILLIGTON^70^82
 ;;  TO^41^06^035^MILLIGTON^70^86
 ;;FROM^41^06^036^NORTH LAKE^70^82
 ;;  TO^41^06^036^NORTH LAKE^70^86
 ;;FROM^41^06^037^NORWAY^70^82
 ;;  TO^41^06^037^NORWAY^70^86
 ;;FROM^41^06^038^RIVERTON^70^82
 ;;  TO^41^06^038^RIVERTON^70^86
 ;;FROM^41^06^039^SITKUM^70^82
 ;;  TO^41^06^039^SITKUM^70^86
 ;;FROM^41^06^040^SUMNER^70^82
 ;;  TO^41^06^040^SUMNER^70^86
 ;;FROM^41^06^168^BANDON^70^82
 ;;  TO^41^06^168^BANDON^70^86
 ;;FROM^41^06^169^BRIDGE^70^82
 ;;  TO^41^06^169^BRIDGE^70^86
 ;;FROM^41^06^178^BROADBENT^70^82
 ;;  TO^41^06^178^BROADBENT^70^86
 ;;FROM^41^06^179^COOS BAY^70^82
 ;;  TO^41^06^179^COOS BAY^70^86
 ;;FROM^41^06^189^COQUILLE^70^82
 ;;  TO^41^06^189^COQUILLE^70^86
 ;;FROM^41^06^191^LAKESIDE^70^82
 ;;  TO^41^06^191^LAKESIDE^70^86
 ;;FROM^41^06^192^MYRTLE POINT^70^82
 ;;  TO^41^06^192^MYRTLE POINT^70^86
 ;;FROM^41^06^193^NORTH BEND^70^82
 ;;  TO^41^06^193^NORTH BEND^70^86
 ;;FROM^41^06^194^POWERS^70^82
 ;;  TO^41^06^194^POWERS^70^86
 ;;FROM^41^06^195^REMOTE^70^82
 ;;  TO^41^06^195^REMOTE^70^86
 ;;FROM^41^06^560^FAIRVIEW^70^82
 ;;  TO^41^06^560^FAIRVIEW^70^86
 ;;FROM^41^06^561^FIVEMILE PNT^70^82
 ;;  TO^41^06^561^FIVEMILE PNT^70^86
 ;;FROM^41^06^562^FOUR MILE^70^82
 ;;  TO^41^06^562^FOUR MILE^70^86
 ;;FROM^41^06^563^GAYLORD^70^82
 ;;  TO^41^06^563^GAYLORD^70^86
 ;;FROM^41^06^619^ARAGO^70^82
 ;;  TO^41^06^619^ARAGO^70^86
 ;;FROM^41^06^623^BANCROFT^70^82
 ;;  TO^41^06^623^BANCROFT^70^86
 ;;FROM^41^06^624^CHARLESTON^70^82
 ;;  TO^41^06^624^CHARLESTON^70^86
 ;;FROM^41^06^627^COALEDO^70^82
 ;;  TO^41^06^627^COALEDO^70^86
 ;;FROM^41^06^628^GRAVELFORD^70^82
 ;;  TO^41^06^628^GRAVELFORD^70^86
 ;;FROM^41^06^629^PROSPER^70^82
 ;;  TO^41^06^629^PROSPER^70^86
 ;;FROM^41^08^041^CAPE BLANCO^70^82
 ;;  TO^41^08^041^CAPE BLANCO^70^86
 ;;FROM^41^08^042^CAPE FERRELO^70^82
 ;;  TO^41^08^042^CAPE FERRELO^70^86
 ;;FROM^41^08^043^CAPE SEBASTAIN^70^82
 ;;  TO^41^08^043^CAPE SEBASTIAN^70^86
 ;;FROM^41^08^044^CROOK POINT^70^82
 ;;  TO^41^08^044^CROOK POINT^70^86
 ;;FROM^41^08^198^AGNESS^70^82
 ;;  TO^41^08^198^AGNESS^70^86
 ;;FROM^41^08^199^BROOKINGS^70^82
 ;;  TO^41^08^199^BROOKINGS^70^86
 ;;FROM^41^08^204^CARPENTERVILLE^70^82
 ;;  TO^41^08^204^CARPENTERVILLE^70^86
 ;;FROM^41^08^205^DENMARK^70^82
 ;;  TO^41^08^205^DENMARK^70^86
 ;;FROM^41^08^208^GOLD BEACH^70^82
 ;;  TO^41^08^208^GOLD BEACH^70^86
 ;;FROM^41^08^209^HARBOR^70^82
 ;;  TO^41^08^209^HARBOR^70^86
 ;;FROM^41^08^211^LANGLOIS^70^82
 ;;  TO^41^08^211^LANGLOIS^70^86
 ;;FROM^41^08^212^PISTOL RIVER^70^82
 ;;  TO^41^08^212^PISTOL RIVER^70^86
 ;;FROM^41^08^213^PORT ORFORD^70^82
 ;;  TO^41^08^213^PORT ORFORD^70^86
 ;;FROM^41^08^214^WEDDERBURN^70^82
 ;;  TO^41^08^214^WEDDERBURN^70^86
 ;;FROM^41^08^579^HARMS BEACH^70^82
 ;;  TO^41^08^579^HARMS BEACH^70^86
 ;;FROM^41^08^582^ILLAHE^70^82
 ;;  TO^41^08^582^ILLAHE^70^86
 ;;FROM^41^08^583^MARIAL^70^82
 ;;  TO^41^08^583^MARIAL^70^86
 ;;FROM^41^08^584^OPHIR^70^82
 ;;  TO^41^08^584^OPHIR^70^86
 ;;FROM^41^08^585^SIXES^70^82
 ;;  TO^41^08^585^SIXES^70^86
 ;;FROM^41^08^586^THE HEADS^70^82
 ;;  TO^41^08^586^THE HEADS^70^86
 ;;FROM^41^09^217^BEND^70^82
 ;;  TO^41^09^217^BEND^70^86
 ;;FROM^41^09^218^REDMOND^70^82
 ;;  TO^41^09^218^REDMOND^70^86
 ;;FROM^41^09^631^ALFALFA^70^82
 ;;  TO^41^09^631^ALFALFA^70^86
 ;;FROM^41^09^632^BROTHERS^70^82
 ;;  TO^41^09^632^BROTHERS^70^86
 ;;FROM^41^09^633^CLINE FALLS^70^82
 ;;  TO^41^09^633^CLINE FALLS^70^86
 ;;FROM^41^09^634^DESCHUTES^70^82
 ;;  TO^41^09^634^DESCHUTES^70^86
 ;;FROM^41^09^635^HARPER^70^82
 ;;  TO^41^09^635^HARPER^70^86
 ;;FROM^41^09^636^LAPINE^70^82
 ;;  TO^41^09^636^LAPINE^70^86
 ;;FROM^41^09^637^LOWER BR.^70^82
 ;;  TO^41^09^637^LOWER BR.^70^86
 ;;FROM^41^09^638^MILLICAN^70^82
 ;;  TO^41^09^638^MILLICAN^70^86
 ;;FROM^41^09^639^PILOT BUTTE^70^82
 ;;  TO^41^09^639^PILOT BUTTE^70^86
 ;;FROM^41^09^646^PRINEVILLE J^70^82
 ;;  TO^41^09^646^PRINEVILLE J^70^86
 ;;FROM^41^09^647^SAWYER^70^82
 ;;  TO^41^09^647^SAWYER^70^86
 ;;FROM^41^09^648^SISTERS^70^82
 ;;  TO^41^09^648^SISTERS^70^86
 ;;FROM^41^09^649^TERREBONNE^70^82
 ;;  TO^41^09^649^TERREBONNE^70^86
 ;;FROM^41^09^650^TUMALO^70^82
 ;;  TO^41^09^650^TUMALO^70^86
 ;;FROM^41^09^651^TUMALO FALLS^70^82
 ;;  TO^41^09^651^TUMALO FALLS^70^86
 ;;FROM^41^10^002^PEEL^70^82
 ;;  TO^41^10^002^PEEL^70^86
 ;;FROM^41^10^003^BUCK FORK^70^82
 ;;  TO^41^10^003^BUCK FORK^70^86
 ;;FROM^41^10^004^LOOKINGGLASS^70^82
 ;;  TO^41^10^004^LOOKINGGLASS^70^86
 ;;FROM^41^10^005^DIXONVILLE^70^82
 ;;  TO^41^10^005^DIXONVILLE^70^86
 ;;FROM^41^10^006^MELROSE^70^82
 ;;  TO^41^10^006^MELROSE^70^86
 ;;FROM^41^10^007^RESTON^70^82
 ;;  TO^41^10^007^RESTON^70^86
 ;;FROM^41^10^008^TYEE^70^82
 ;;  TO^41^10^008^TYEE^70^86
 ;;FROM^41^10^009^MILLWOOD^70^82
 ;;  TO^41^10^009^MILLWOOD^70^86
 ;;FROM^41^10^045^ROSEBURG^70^82
 ;;  TO^41^10^045^ROSEBURG^70^86
 ;;FROM^41^10^046^TOKETEE^70^82
 ;;  TO^41^10^046^TOKETEE^70^86
 ;;FROM^41^10^047^WINCHESTER^70^82
 ;;  TO^41^10^047^WINCHESTER^70^86
 ;;FROM^41^10^048^WINCHESTER BAY^70^82
 ;;  TO^41^10^048^WINCHESTER BAY^70^86
 ;;FROM^41^10^216^REEDSPORT^70^82
 ;;  TO^41^10^216^REEDSPORT^70^86
 ;;FROM^41^10^219^ANLAUF^70^82
 ;;  TO^41^10^219^ANLAUF^70^86
 ;;FROM^41^10^230^AZALEA^70^82
 ;;  TO^41^10^230^AZALEA^70^86
 ;;FROM^41^10^231^BROCK^70^82
 ;;  TO^41^10^231^BROCK^70^86
 ;;FROM^41^10^232^CAMAS^70^82
 ;;  TO^41^10^232^CAMAS^70^86
 ;;FROM^41^10^233^CANYONVILLE^70^82
 ;;  TO^41^10^233^CANYONVILLE^70^86
 ;;FROM^41^10^234^DAYS CREEK^70^82
 ;;  TO^41^10^234^DAYS CREEK^70^86
 ;;FROM^41^10^235^DIAMOND LAKE^70^82
 ;;  TO^41^10^235^DIAMOND LAKE^70^86
 ;;FROM^41^10^236^DILLARD^70^82
 ;;  TO^41^10^236^DILLARD^70^86
 ;;FROM^41^10^237^DRAIN^70^82
 ;;  TO^41^10^237^DRAIN^70^86
 ;;FROM^41^10^277^TIER^70^82
 ;;  TO^41^10^277^TIER^70^86
 ;;FROM^41^10^296^UMPQUA^70^82
 ;;  TO^41^10^296^UMPQUA^70^86
 ;;FROM^41^10^297^WILBUR^70^82
 ;;  TO^41^10^297^WILBUR^70^86
 ;;FROM^41^10^304^WINSTON^70^82
 ;;  TO^41^10^304^WINSTON^70^86
 ;;FROM^41^10^305^YONCALLA^70^82
 ;;  TO^41^10^305^YONCALLA^70^86
 ;;FROM^41^10^652^BOSWELL^70^82
 ;;  TO^41^10^652^BOSWELL^70^86
 ;;FROM^41^10^653^CAMAS VALLEY^70^82
 ;;  TO^41^10^653^CAMAS VALLEY^70^86
 ;;FROM^41^10^654^CLEARWATER^70^82
 ;;  TO^41^10^654^CLEARWATER^70^86
 ;;FROM^41^10^655^CLEVELAND^70^82
 ;;  TO^41^10^655^CLEVELAND^70^86
 ;;FROM^41^15^049^BUTTE FALLS^70^82
 ;;  TO^41^15^049^BUTTE FALLS^70^86
 ;;FROM^41^15^050^EAGLE POINT^70^82
 ;;  TO^41^15^050^EAGLE POINT^70^86
 ;;FROM^41^15^306^ASHLAND^70^82
 ;;  TO^41^15^306^ASHLAND^70^86
 ;;FROM^41^15^308^CENTRAL POINT^70^82
 ;;  TO^41^15^308^CENTRAL POINT^70^86
 ;;FROM^41^15^324^GOLD HILL^70^82
 ;;  TO^41^15^324^GOLD HILL^70^86
 ;;FROM^41^15^327^JACKSONVILLE^70^82
 ;;  TO^41^15^327^JACKSONVILLE^70^86
 ;;FROM^41^15^328^MEDFORD^70^82
 ;;  TO^41^15^328^MEDFORD^70^86
 ;;FROM^41^15^329^PHOENIX^70^82
 ;;  TO^41^15^329^PHOENIX^70^86
 ;;FROM^41^15^331^PROSPECT^70^82
 ;;  TO^41^15^331^PROSPECT^70^86
 ;;FROM^41^15^332^ROGUE RIVER^70^82
 ;;  TO^41^15^332^ROGUE RIVER^70^86
 ;;FROM^41^15^333^TALENT^70^82
 ;;  TO^41^15^333^TALENT^70^86
 ;;FROM^41^15^334^TRAIL^70^82
 ;;  TO^41^15^334^TRAIL^70^86
 ;;FROM^41^15^335^UNION CREEK^70^82
 ;;  TO^41^15^335^UNION CREEK^70^86
 ;;FROM^41^15^338^WHITE CITY^70^82
 ;;  TO^41^15^338^WHITE CITY^70^86
 ;;FROM^41^15^656^PINEHURST^70^82
 ;;  TO^41^15^656^PINEHURST^70^86
 ;;FROM^41^15^657^PLACER^70^82
 ;;  TO^41^15^657^PLACER^70^86
 ;;FROM^41^15^658^PROVOLT^70^82
 ;;  TO^41^15^658^PROVOLT^70^86
 ;;FROM^41^15^659^RAND^70^82
 ;;  TO^41^15^659^RAND^70^86
 ;;FROM^41^15^668^ROGUE ELK^70^82
 ;;  TO^41^15^668^ROGUE ELK^70^86
 ;;FROM^41^15^669^RUCH^70^82
 ;;  TO^41^15^669^RUCH^70^86
 ;;FROM^41^15^670^SAMS VALLEY^70^82
 ;;  TO^41^15^670^SAMS VALLEY^70^86
 ;;FROM^41^15^671^SHADEY COVE^70^82
 ;;  TO^41^15^671^SHADEY COVE^70^86
 ;;FROM^41^15^672^SISKIYOU^70^82
 ;;  TO^41^15^672^SISKIYOU^70^86
 ;;FROM^41^15^673^STEINMAN^70^82
 ;;  TO^41^15^673^STEINMAN^70^86
 ;;FROM^41^15^674^TAKILMA^70^82
 ;;  TO^41^15^674^TAKILMA^70^86
 ;;FROM^41^15^675^WILLIAMS^70^82
 ;;  TO^41^15^675^WILLIAMS^70^86
 ;;FROM^41^15^676^WIMER^70^82
 ;;  TO^41^15^676^WIMER^70^86
 ;;FROM^41^15^679^WONDER^70^82
 ;;  TO^41^15^679^WONDER^70^86
 ;;FROM^41^15^875^APPLEGATE^70^82
 ;;  TO^41^15^875^APPLEGATE^70^86
 ;;FROM^41^17^339^CAVE JUNCTON^70^82
 ;;  TO^41^17^339^CAVE JUNCTON^70^86
 ;;FROM^41^17^347^GRANTS PASS^70^82
 ;;  TO^41^17^347^GRANTS PASS^70^86
 ;;FROM^41^17^348^O BRIEN^70^82
 ;;  TO^41^17^348^O BRIEN^70^86
 ;;FROM^41^17^349^SELMA^70^82
 ;;  TO^41^17^349^SELMA^70^86
 ;;FROM^41^17^353^SUNNY VALLEY^70^82
 ;;  TO^41^17^353^SUNNY VALLEY^70^86
 ;;FROM^41^17^354^WILDERVILLE^70^82
 ;;  TO^41^17^354^WILDERVILLE^70^86
 ;;FROM^41^17^355^WOLF CREEK^70^82
 ;;  TO^41^17^355^WOLF CREEK^70^86
 ;;FROM^41^20^060^GOSHEN^70^82
 ;;  TO^41^20^060^GOSHEN^70^86
 ;;FROM^41^20^061^COTTAGE GROVE^70^82
 ;;  TO^41^20^061^COTTAGE GROVE^70^86
 ;;FROM^41^20^062^CRESWELL^70^82
 ;;  TO^41^20^062^CRESWELL^70^86
 ;;FROM^41^20^089^SAGINAW^70^82
 ;;  TO^41^20^089^SAGINAW^70^86
 ;;FROM^41^20^270^EUGENE^70^82
 ;;  TO^41^20^270^EUGENE^70^86
 ;;FROM^41^20^749^WALKER^70^82
 ;;  TO^41^20^749^WALKER^70^86
 ;;END
 ;

AUM6104M
AUM6104M ; IHS/ADC/GTH - BACKGROUND VALUES FOR STANDARD TABLE UPDATES, 07FEB96 BANYAN ; [ 02/08/96  9:27 AM ]
 ;;96.1;TABLE MAINTENANCE;**4**;OCT 26,1995
 ;
AREA ; CODE^NAME^PREFIX/REGION^CAN PREFIX
10 ;;10^ABERDEEN^C^J45
25 ;;25^ALBUQUERQUE TRIBE/638^Q^J53
30 ;;30^ALASKA^A^J59
60 ;;60^PHOENIX^X^J40
65 ;;65^PHOENIX TRIBE/638^X^J40
66 ;;66^CALIFORNIA TRIBE/638^L^J41
70 ;;70^PORTLAND^P^J64
 ;
SU ; AREA^SU^NAME
1019 ;;10^19^TURTLE MOUNT
2521 ;;25^21^ALBUQUERQUE
3032 ;;30^32^BARROW
3039 ;;30^39^NORTON SOUND
6063 ;;60^63^OWYHEE
6563 ;;65^63^OWYHEE
6566 ;;65^66^PHOENIX
6567 ;;65^67^SACATON
6622 ;;66^22^CONSOLD THC
7082 ;;70^82^WESTERN OREGON
 ;
COUNTY ; STATE^COUNTY^NAME
0214 ;;02^14^NOME
0215 ;;02^15^NORTH SLOPE BOROUGH
4106 ;;41^06^COOS
4108 ;;41^08^CURRY
4109 ;;41^09^DESCHUTES
4110 ;;41^10^DOUGLAS
4115 ;;41^15^JACKSON
4117 ;;41^17^JOSEPHINE
4120 ;;41^20^LANE
 ;