3:17 PM  4-APR-96
AUM v 96.1 Patch 6.  SCB Changes 04Apr96 Banyan.  Restore 5 routines and DO ^AUM6106.
A9AUM6
A9AUM6 ; IHS/ADC/GTH - STANDARD TABLE UPDATES, 04APR96 BANYAN, RPI ; [ 04/04/96  3:16 PM ]
 ;;96.1;TABLE MAINTENANCE;**6**;OCT 26,1995
 ;
 D START^AUM6106
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,$E("...........",1,11-$L(X)),"<poof'd>"
 Q
DEL ;     
 ;;A9AUM5
 ;;AUM6106
 ;;AUM61061
 ;;AUM6106A
 ;;AUM6106M

AUM6106
AUM6106 ; IHS/ADC/GTH - STANDARD TABLE UPDATES, 04APR96 BANYAN ; [ 04/04/96   3:01 PM ]
 ;;96.1;TABLE MAINTENANCE;**6**;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^AUM6106(""Q2"")"
 D ^DIR
 KILL 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 AUM6106
 S X=+Y
 D H^%DTC
 S ZTDTH=%H_","_%T
 S ZTRTN="START^AUM6106",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
 KILL ^TMP("AUM6106",$J)
 D START^AUM61061
 S XMSUB=$P($P($T(+1),";",2)," ",4,99),XMDUZ=$S($G(DUZ):DUZ,1:.5),XMTEXT="^TMP(""AUM6106"",$J,",XMY(1)="",XMY(DUZ)=""
 D ^XMD
 KILL ^TMP("AUM6106",$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^A9AUM6
 Q
 ;
INTRO ;
 ;;This updates standard tables according to the changes specified in
 ;;the Banyan message time stamped 04Apr96@10:44:23 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
 ;

AUM61061
AUM61061 ; IHS/ADC/GTH - STANDARD TABLE UPDATES, 04APR96 BANYAN ; [ 04/04/96  3:07 PM ]
 ;;96.1;TABLE MAINTENANCE;**6**;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,LOCNEW,DASH,LOCMOD,DASH,LOCINACT,DASH,COMMNEW,DASH,COMMMOD,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(@%^AUM6106M) 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("AUM6106",$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^AUM6106A) Q:$P(L,";",3)="END"  D ADDAREA
 Q
 ;
ADDAREA ; PROGRAMMER NOTE:  This s/r is required for every patch.
 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
 KILL DLAYGO
 Q
 ;
 ; -----------------------------------------------------
 ;
ADDCNTY ; PROGRAMMER NOTE:  This s/r is required for every patch.
 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
 ;
 ; -----------------------------------------------------
 ;
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^AUM6106A) Q:$P(L,";",3)="END"  D ADDSU
 Q
 ;
ADDSU ; PROGRAMMER NOTE:  This s/r is required for every patch.
 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
 KILL DLAYGO
 Q
 ;
SUMOD ;
 D RSLT("Service Unit Code Changes, Section VIII-B")
 D RSLT($J("",15)_"AA SU NAME")
 D RSLT($J("",15)_"-- -- ----")
 F T=1:2 S L=$T(SUMOD+T^AUM6106A) Q:$P(L,";",3)="END"  S L("TO")=$T(SUMOD+T+1^AUM6106A) D
 . S L=$P(L,U,2,99),A=$P(L,U),S=$P(L,U,2),N=$P(L,U,3)
 . S P=$O(^AUTTSU("C",A_S,0))
 . S L=$P(L("TO"),U,2,99),A=$P(L,U),S=$P(L,U,2),N=$P(L,U,3)
 . I 'P S P=$O(^AUTTSU("C",A_S,0)) I 'P S L=";;"_L D ADDSU Q
 . S L=A_" "_S_" "_N
 . S P("A")=$$IEN("^AUTTAREA(",A)
 . Q:'P("A")
 . S DIE="^AUTTSU(",DA=P,DR=".01///"_N_";.02////"_P("A")_";.03///"_S
 . D DIE
 . I $D(Y) D RSLT(E(0)_E_" : EDIT SERVICE UNIT FAILED => "_L) Q
 . D MODOK
 .Q
 ;
 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^AUM6106A) 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
 KILL DINUM,DLAYGO
 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
 KILL DINUM,DLAYGO
 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^AUM6106A) Q:$P(L,";",3)="END"  S L("TO")=$T(LOCMOD+T+1^AUM6106A) 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("AUM6106A")_" patients marked for export because of the Location Code changes.")
 ;
 Q
 ;
 ; -----------------------------------------------------
 ;
LOCINACT ;
 D RSLT("Inactivated Location Codes, Section VIII-C")
 D RSLT($J("",20)_"AA SU FA NAME")
 D RSLT($J("",20)_"-- -- -- ----")
 F T=1:1 S L=$T(LOCINACT+T^AUM6106A) Q:$P(L,";",3)="END"  D
 . 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_" "_P
 . S %=A_S_F,%=$O(^AUTTLOC("C",%,0))
 . I '% D RSLT($J("",5)_"ASUFAC "_A_S_F_" not found (OK).") Q
 . S DIE="^AUTTLOC(",DA=%,DR=".27////"_DT
 . D DIE
 . I $D(Y) D RSLT($J("",5)_E(0)_"EDIT INACTIVE DATE FAILED => "_L) I 1
 . E  D RSLT($J("",5)_"INACTIVATED => "_L)
 .Q
 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^AUM6106A) 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^AUM61061("^AUTTCTY(",S_O)
 Q:'P("O")
 S P("A")=$$IEN^AUM61061("^AUTTAREA(",A)
 Q:'P("A")
 S P("V")=$$IEN^AUM61061("^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
 KILL DLAYGO
 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^AUM6106A) Q:$P(L,";",3)="END"  S L("TO")=$T(COMMMOD+T+1^AUM6106A) 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^AUM61061("^AUTTCTY(",S_O)
 . Q:'P("O")
 . S P("A")=$$IEN^AUM61061("^AUTTAREA(",A)
 . Q:'P("A")
 . S P("V")=$$IEN^AUM61061("^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("AUM6106A")_" patients marked for export because of the Community Code changes.")
 Q
 ;
 ; -----------------------------------------------------
 ;

AUM6106A
AUM6106A ; IHS/ADC/GTH - STANDARD TABLE UPDATES DATA A, 04APR96 BANYAN ; [ 04/04/96  2:03 PM ]
 ;;96.1;TABLE MAINTENANCE;**6**;OCT 26,1995
 ;
 ;IHS STANDARD CODE BOOK MODIFICATIONS - MARCH 1996 4/2/96
 ;
LOCNEW ;;A.  NEW LOCATION CODES (SECTION VIII-C): AREA^S.U.^FAC.^NAME^PSEUDO
 ;;66^36^10^FEATHER RIVER INDIAN HEALTH^LBQ
 ;;END
 ;
LOCMOD ;;B.  LOCATION CODE CHANGES (SECTION VIII-C): AREA^S.U.^FAC.^NAME^PSEUDO
 ;;FROM^30^32^01^BARROW HOSPITAL^ABA
 ;;  TO^35^32^01^BARROW HOSPITAL^ABZ
 ;;FROM^66^15^11^YUBA CITY HEALTH CLINIC^LOI
 ;;  TO^66^36^30^YUBA CITY HEALTH STATION^LBR
 ;;FROM^66^15^30^GREENVILLE^LFB
 ;;  TO^66^35^10^GREENVILLE RANCHERIA TRB HLTH^LBO
 ;;FROM^66^15^33^RED BLUFF CLINIC^LOG
 ;;  TO^66^35^33^RED BLUFF CLINIC^LBP
 ;;END
 ;
LOCINACT ;;C.  INACTIVATED LOCATION CODES (SECTION VIII-C): AREA^S.U.^FAC.^NAME
 ;;66^15^10^OROVILLE
 ;;END
 ;
COMMNEW ;;D.  NEW COMMUNITY CODES (SECTION V-C): STATE^CNTY^COMM^NAME^AREA^S.U.
 ;;04^13^303^CORDES JUNCTION^60^66
 ;;06^01^022^OAKLAND^66^00
 ;;26^05^270^EASTPORT^18^23
 ;;26^24^271^CARP LAKE^18^23
 ;;26^24^272^CONWAY^18^23
 ;;26^43^273^BALDWIN^18^23
 ;;26^43^274^BRANCH EAST (LAKE CO)^18^23
 ;;26^43^275^CHASE^18^23
 ;;26^43^276^IDLEWILD^18^23
 ;;26^43^277^IRONS^18^23
 ;;26^43^278^LUTHER^18^23
 ;;26^51^279^EASTLAKE^18^23
 ;;26^51^280^FILER CITY^18^23
 ;;26^51^281^STRONACH^18^23
 ;;26^51^282^WELLSTON^18^23
 ;;26^53^283^BRANCH WEST (MASON CO)^18^23
 ;;26^53^284^CUSTER^18^23
 ;;26^53^285^FOUNTAIN^18^23
 ;;26^53^286^LUDINGTON^18^23
 ;;26^53^287^WALHALLA^18^23
 ;;26^83^288^BOON^18^23
 ;;26^83^289^HARRIETTA^18^23
 ;;26^83^290^HOXEYVILLE^18^23
 ;;26^83^291^MANTON^18^23
 ;;27^45^022^ARGYLE^11^32
 ;;30^34^010^LIVINGSTON^40^00
 ;;30^56^100^BALLANTINE^40^42
 ;;38^02^100^PILLSBURY^10^00
 ;;38^02^101^VALLEY CITY^10^00
 ;;38^03^100^BRINSMADE^10^13
 ;;38^03^101^ESMOND^10^13
 ;;38^09^102^HUNTER^10^00
 ;;38^14^102^NEW ROCKFORD^10^13
 ;;38^32^103^ANETA^10^13
 ;;38^32^104^PEKIN^10^13
 ;;38^32^105^DAHLEN^10^13
 ;;38^36^106^STARKWEATHER^10^13
 ;;38^36^107^WEBSTER^10^13
 ;;38^36^108^CHURCHES FERRY^10^13
 ;;38^46^103^SHARON^10^00
 ;;38^47^104^JAMESTOWN^10^00
 ;;38^47^105^MEDINA^10^00
 ;;38^49^106^MAYVILLE^10^00
 ;;38^49^107^PORTLAND^10^00
 ;;38^50^108^ARDOCH^10^00
 ;;46^34^100^HIGHMORE^10^14
 ;;46^44^109^EUREKA^10^00
 ;;55^13^100^MIDDLETON^18^22
 ;;END
 ;
COMMMOD ;;E.  COMMUNITY CODE CHANGES (SECTION V-C): STATE^CNTY^COMM^NAME^AREA^S.U.
 ;;FROM^06^04^100^BANGOR^66^15
 ;;  TO^06^04^100^BANGOR^66^36
 ;;FROM^06^04^101^BIGGS^66^15
 ;;  TO^06^04^101^BIGGS^66^36
 ;;FROM^06^04^103^FEATHER FALLS^66^15
 ;;  TO^06^04^103^FEATHER FALLS^66^36
 ;;FROM^06^04^104^FORBESTOWN^66^15
 ;;  TO^06^04^104^FORBESTOWN^66^36
 ;;FROM^06^04^105^GRIDLEY^66^15
 ;;  TO^06^04^105^GRIDLEY^66^36
 ;;FROM^06^04^106^MAGALIA^66^15
 ;;  TO^06^04^106^MAGALIA^66^36
 ;;FROM^06^04^107^PALERMO^66^15
 ;;  TO^06^04^107^PALERMO^66^36
 ;;FROM^06^04^108^PARADISE^66^15
 ;;  TO^06^04^108^PARADISE^66^36
 ;;FROM^06^04^109^RICHVALE^66^15
 ;;  TO^06^04^109^RICHVALE^66^36
 ;;FROM^06^04^200^BERRY CREEK^66^15
 ;;  TO^06^04^200^BERRY CREEK^66^36
 ;;FROM^06^04^212^MOORETOWN RANCH^66^15
 ;;  TO^06^04^212^MOORETOWN RANCH^66^36
 ;;FROM^06^04^316^BERRY CRK RN^66^15
 ;;  TO^06^04^316^BERRY CRK RN^66^36
 ;;FROM^06^04^318^ENTERPRISE RANCH^66^15
 ;;  TO^06^04^318^ENTERPRISE RANCH^66^36
 ;;FROM^06^04^479^OROVILLE^66^15
 ;;  TO^06^04^479^OROVILLE^66^36
 ;;FROM^06^04^823^BUTTE COUNTY^66^15
 ;;  TO^06^04^823^BUTTE COUNTY^66^36
 ;;FROM^06^32^116^CANYON DAM^66^15
 ;;  TO^06^32^116^CANYON DAM^66^35
 ;;FROM^06^32^117^CHESTER^66^15
 ;;  TO^06^32^117^CHESTER^66^35
 ;;FROM^06^32^118^CRESCENT MILLS^66^15
 ;;  TO^06^32^118^CRESCENT MILLS^66^35
 ;;FROM^06^32^119^PORTOLA^66^15
 ;;  TO^06^32^119^PORTOLA^66^35
 ;;FROM^06^32^120^TAYLORSVILLE^66^15
 ;;  TO^06^32^120^TAYLORSVILLE^66^35
 ;;FROM^06^32^350^GREENVILLE^66^15
 ;;  TO^06^32^350^GREENVILLE^66^35
 ;;FROM^06^32^426^GREENVILLE RANCH^66^15
 ;;  TO^06^32^426^GREENVILLE RANCH^66^35
 ;;FROM^06^32^490^QUINCY^66^15
 ;;  TO^06^32^490^QUINCY^66^35
 ;;FROM^06^32^826^PLUMAS COUNT^66^15
 ;;  TO^06^32^826^PLUMAS COUNT^66^35
 ;;FROM^06^51^121^LIVE OAK^66^15
 ;;  TO^06^51^121^LIVE OAK^66^36
 ;;FROM^06^51^122^MERIDIAN^66^15
 ;;  TO^06^51^122^MERIDIAN^66^36
 ;;FROM^06^51^123^SUTTER^66^15
 ;;  TO^06^51^123^SUTTER^66^36
 ;;FROM^06^51^528^YUBA CITY^66^15
 ;;  TO^06^51^528^YUBA CITY^66^36
 ;;FROM^06^51^827^SUTTER COUNTY^66^15
 ;;  TO^06^51^827^SUTTER COUNTY^66^36
 ;;FROM^06^52^124^CORNING^66^15
 ;;  TO^06^52^124^CORNING^66^35
 ;;FROM^06^52^125^GERBER^66^15
 ;;  TO^06^52^125^GERBER^66^35
 ;;FROM^06^52^494^RED BLUFF^66^15
 ;;  TO^06^52^494^RED BLUFF^66^35
 ;;FROM^06^57^129^BROOKS^66^15
 ;;  TO^06^57^129^BROOKS^66^10
 ;;FROM^06^57^130^DUNNIGAN^66^15
 ;;  TO^06^57^130^DUNNIGAN^66^10
 ;;FROM^06^57^131^ESPARTO^66^15
 ;;  TO^06^57^131^ESPARTO^66^10
 ;;FROM^06^57^132^WEST SACRAMENTO^66^15
 ;;  TO^06^57^132^WEST SACRAMENTO^66^10
 ;;FROM^06^57^133^WINTERS^66^15
 ;;  TO^06^57^133^WINTERS^66^10
 ;;FROM^06^57^314^DAVIS^66^15
 ;;  TO^06^57^314^DAVIS^66^10
 ;;FROM^06^57^319^TOWN OF RUMSEY^66^15
 ;;  TO^06^57^319^TOWN OF RUMSEY^66^10
 ;;FROM^06^57^521^RUMSEY RNCH^66^15
 ;;  TO^06^57^521^RUMSEY RNCH^66^10
 ;;FROM^06^57^526^WOODLAND^66^15
 ;;  TO^06^57^526^WOODLAND^66^10
 ;;FROM^06^57^829^YOLO COUNTY^66^15
 ;;  TO^06^57^829^YOLO COUNTY^66^10
 ;;FROM^06^58^134^BEALE, AFB^66^15
 ;;  TO^06^58^134^BEALE, AFB^66^36
 ;;FROM^06^58^135^BROWNSVALLEY^66^15
 ;;  TO^06^58^135^BROWNSVALLEY^66^36
 ;;FROM^06^58^136^BROWNSVILLE^66^15
 ;;  TO^06^58^136^BROWNSVILLE^66^36
 ;;FROM^06^58^138^CHALLENGE^66^15
 ;;  TO^06^58^138^CHALLENGE^66^36
 ;;FROM^06^58^139^DOBBINS^66^15
 ;;  TO^06^58^139^DOBBINS^66^36
 ;;FROM^06^58^140^OLIVEHURST^66^15
 ;;  TO^06^58^140^OLIVEHURST^66^36
 ;;FROM^06^58^141^OREGON HOUSE^66^15
 ;;  TO^06^58^141^OREGON HOUSE^66^36
 ;;FROM^06^58^142^WHEATLAND^66^15
 ;;  TO^06^58^142^WHEATLAND^66^36
 ;;FROM^06^58^216^STRAWBERRY VALLEY^66^15
 ;;  TO^06^58^216^STRAWBERRY VALLEY^66^36
 ;;FROM^06^58^315^MARYSVILLE^66^15
 ;;  TO^06^58^315^MARYSVILLE^66^36
 ;;FROM^06^58^830^YUBA COUNTY^66^15
 ;;  TO^06^58^830^YUBA COUNTY^66^36
 ;;FROM^26^01^073^MIKADO^11^00
 ;;  TO^26^01^073^MIKADO^18^23
 ;;FROM^26^01^405^SPRUCE^11^00
 ;;  TO^26^01^405^SPRUCE^18^23
 ;;FROM^26^01^463^HARRISVILLE^11^00
 ;;  TO^26^01^463^HARRISVILLE^18^23
 ;;FROM^26^03^400^ALLEGAN^11^00
 ;;  TO^26^03^400^ALLEGAN^18^23
 ;;FROM^26^11^050^WATERVLIET^11^00
 ;;  TO^26^11^050^WATERVLIET^18^23
 ;;FROM^26^11^209^COLOMA^11^00
 ;;  TO^26^11^209^COLOMA^18^23
 ;;FROM^26^14^051^DOWAGIAC^11^00
 ;;  TO^26^14^051^DOWAGIAC^18^23
 ;;FROM^26^16^002^CHEBOYGAN^11^00
 ;;  TO^26^16^292^CHEBOYGAN^18^23
 ;;FROM^26^16^052^MACKINAW CITY^11^00
 ;;  TO^26^16^052^MACKINAW CITY^18^23
 ;;FROM^26^16^053^WOLVERINE^11^00
 ;;  TO^26^16^053^WOLVERINE^18^23
 ;;FROM^26^20^054^GRAYLING^11^00
 ;;  TO^26^20^054^GRAYLING^18^23
 ;;FROM^26^24^004^BRUTUS^11^00
 ;;  TO^26^24^293^BRUTUS^18^23
 ;;FROM^26^24^005^HARBOR SPRINGS^11^00
 ;;  TO^26^24^294^HARBOR SPRINGS^18^23
 ;;FROM^26^24^006^LEVERING^11^00
 ;;  TO^26^24^295^LEVERING^18^23
 ;;FROM^26^24^007^PELLSTON^11^00
 ;;  TO^26^24^296^PELLSTON^18^23
 ;;FROM^26^24^008^PETOSKEY^11^00
 ;;  TO^26^24^297^PETOSKEY^18^23
 ;;FROM^26^24^028^CROSS VILLAGE^11^00
 ;;  TO^26^24^028^CROSS VILLAGE^18^23
 ;;FROM^26^24^029^ODEN^11^00
 ;;  TO^26^24^029^ODEN^18^23
 ;;FROM^26^24^056^ALANSON^11^00
 ;;  TO^26^24^056^ALANSON^18^23
 ;;FROM^26^35^058^HALE^11^00
 ;;  TO^26^35^058^HALE^18^23
 ;;FROM^26^35^077^OSCODA^11^00
 ;;  TO^26^35^077^OSCODA^18^23
 ;;FROM^26^35^410^EAST TAWAS^11^00
 ;;  TO^26^35^410^EAST TAWAS^18^23
 ;;FROM^26^35^415^TAWAS CITY^11^00
 ;;  TO^26^35^415^TAWAS CITY^18^23
 ;;FROM^26^53^232^SCOTTVILLE^11^00
 ;;  TO^26^53^232^SCOTTVILLE^18^23
 ;;FROM^26^53^470^FREE SOIL^11^00
 ;;  TO^26^53^470^FREE SOIL^18^23
 ;;FROM^26^60^472^ATLANTA^11^00
 ;;  TO^26^60^472^ATLANTA^18^23
 ;;FROM^26^65^430^ROSE CITY^11^00
 ;;  TO^26^65^430^ROSE CITY^18^23
 ;;FROM^26^65^480^WEST BRANCH^11^00
 ;;  TO^26^65^480^WEST BRANCH^18^23
 ;;FROM^26^68^065^MIO^11^00
 ;;  TO^26^68^065^MIO^18^23
 ;;FROM^26^68^084^COMINS^11^00
 ;;  TO^26^68^084^COMINS^18^23
 ;;FROM^26^68^244^FAIRVIEW^11^00
 ;;  TO^26^68^244^FAIRVIEW^18^23
 ;;FROM^26^69^066^GAYLORD^11^00
 ;;  TO^26^69^066^GAYLORD^18^23
 ;;FROM^26^69^067^JOHANNESBURG^11^00
 ;;  TO^26^69^067^JOHANNESBURG^18^23
 ;;FROM^26^72^247^HOUGHTON LAKE^11^00
 ;;  TO^26^72^247^HOUGHTON LAKE^18^23
 ;;FROM^26^72^248^PRUDENVILLE^11^00
 ;;  TO^26^72^248^PRUDENVILLE^18^23
 ;;FROM^26^72^249^ST. HELEN^11^00
 ;;  TO^26^72^249^ST. HELEN^18^23
 ;;FROM^26^72^716^ROSCOMMON^11^00
 ;;  TO^26^72^716^ROSCOMMON^18^23
 ;;FROM^26^80^478^MATTAWAN^11^00
 ;;  TO^26^80^478^MATTAWAN^18^23
 ;;FROM^26^83^071^BUCKLEY^11^00
 ;;  TO^26^83^071^BUCKLEY^18^23
 ;;FROM^26^83^259^CADILLAC^11^00
 ;;  TO^26^83^259^CADILLAC^18^23
 ;;FROM^26^83^262^MESICK^11^00
 ;;  TO^26^83^262^MESICK^18^23
 ;;END
 ;

AUM6106M
AUM6106M ; IHS/ADC/GTH - BACKGROUND VALUES FOR STANDARD TABLE UPDATES, 04APR96 BANYAN ; [ 04/04/96  2:57 PM ]
 ;;96.1;TABLE MAINTENANCE;**6**;OCT 26,1995
 ;
AREA ; CODE^NAME^PREFIX/REGION^CAN PREFIX
10 ;;10^ABERDEEN^C^J45
11 ;;11^BEMIDJI^D^J46
18 ;;18^BEMIDJI NON-IHS^D^J46
30 ;;30^ALASKA^A^J59
35 ;;35^ALASKA TRIBE/638^A^J59
40 ;;40^BILLINGS^B^J47
60 ;;60^PHOENIX^X^J40
66 ;;66^CALIFORNIA TRIBE/638^L^J41
 ;
SU ; AREA^SU^NAME
1000 ;;10^00^NON SERVICE UNIT
1013 ;;10^13^FT TOTTEN
1014 ;;10^14^CROW CREEK
1132 ;;11^32^RED LAKE
1822 ;;18^22^CENTRAL WISCONSIN
1823 ;;18^23^EASTERN MICHIGAN
3532 ;;35^32^BARROW
4000 ;;40^00^NON SERVICE UNIT
4042 ;;40^42^CROW
6066 ;;60^66^PHOENIX
6600 ;;66^00^NON SERVICE UNIT
6610 ;;66^10^CHAPA-DE INDIAN HEALTH PROJECT
6635 ;;66^35^GREENVILLE
6636 ;;66^36^BERRY CREEK/MOORETOWN
 ;
COUNTY ; STATE^COUNTY^NAME
0413 ;;04^13^YAVAPAI
0601 ;;06^01^ALAMEDA
0604 ;;06^04^BUTTE
0632 ;;06^32^PLUMAS
0651 ;;06^51^SUTTER
0652 ;;06^52^TEHAMA
0657 ;;06^57^YOLO
0658 ;;06^58^YUBA
2601 ;;26^01^ALCONA
2603 ;;26^03^ALLEGAN
2605 ;;26^05^ANTRIM
2611 ;;26^11^BERRIEN
2614 ;;26^14^CASS
2616 ;;26^16^CHEBOYGAN
2620 ;;26^20^CRAWFORD
2624 ;;26^24^EMMET
2635 ;;26^35^IOSCO
2643 ;;26^43^LAKE
2651 ;;26^51^MANISTEE
2653 ;;26^53^MASON
2660 ;;26^60^MONTGOMERY
2665 ;;26^65^OGENAW
2668 ;;26^68^OSCODA
2669 ;;26^69^OTSEGO
2672 ;;26^72^ROSCOMMON
2680 ;;26^80^VAN BUREN
2683 ;;26^83^WEXFORD
2745 ;;27^45^MARSHALL
3034 ;;30^34^PARK
3056 ;;30^56^YELLOWSTONE
3802 ;;38^02^BARNES
3803 ;;38^03^BENSON
3809 ;;38^09^CASS
3814 ;;38^14^EDDY
3832 ;;38^32^NELSON
3836 ;;38^36^RAMSEY
3846 ;;38^46^STEELE
3847 ;;38^47^STUTSMAN
3849 ;;38^49^TRAILL
3850 ;;38^50^WALSH
4634 ;;46^34^HYDE
4644 ;;46^44^MCPHERSON
5513 ;;55^13^DANE
 ;