2:23 PM  6-FEB-97
AUM97.1 Patch 2, SCB Changes 05Feb97 Banyan.  Restore 5 routines and DO ^AUM7102.
A9AUM2
A9AUM2 ; IHS/ADC/GTH - STANDARD TABLE UPDATES, 05FEB97 BANYAN, RPI ; [ 02/06/97   2:22 PM ]
 ;;97.1;TABLE MAINTENANCE;**2**;DEC 10,1996
 ;
 D START^AUM7102
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 ;     
 ;;A9AUM1
 ;;AUM7102
 ;;AUM71021
 ;;AUM7102A
 ;;AUM7102M

AUM7102
AUM7102 ; IHS/ADC/GTH - STANDARD TABLE UPDATES, 05FEB97 BANYAN ; [ 02/06/97   2:22 PM ]
 ;;97.1;TABLE MAINTENANCE;**2**;DEC 10,1996
 ;
 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^AUM7102(""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 AUM7102
 S X=+Y
 D H^%DTC
 S ZTDTH=%H_","_%T
 S ZTRTN="START^AUM7102",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("AUM7102",$J)
 D START^AUM71021
 S XMSUB=$P($P($T(+1),";",2)," ",4,99),XMDUZ=$S($G(DUZ):DUZ,1:.5),XMTEXT="^TMP(""AUM7102"",$J,",XMY(1)="",XMY(DUZ)=""
 D ^XMD
 KILL ^TMP("AUM7102",$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^A9AUM2
 Q
 ;
INTRO ;
 ;;This updates standard tables according to the changes specified in
 ;;the Banyan message time stamped 05Feb97@09:17:43 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
 ;

AUM71021
AUM71021 ; IHS/ADC/GTH - STANDARD TABLE UPDATES, 05FEB97 BANYAN ; [ 02/06/97   2:22 PM ]
 ;;97.1;TABLE MAINTENANCE;**2**;DEC 10,1996
 ;
 Q
 ;
START ;EP
 ;
 NEW A,C,DIC,DIE,DLAYGO,DR,E,L,M,N,O,P,R,S,T
 ;
 S E(0)="ERROR : ",E(1)="NOT ADDED : "
 D RSLT($J("",5)_$P($T(UPDATE^AUM7102A),";",3))
 D DASH,SUNEW,DASH,LOCNEW,DASH,LOCMOD,DASH,LOCINACT,DASH,COMMNEW,DASH,COMMMOD,DASH,RESNEW,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,M,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(@%^AUM7102M) I Y NEW Z S Z=E D  S:Y<0 Y="" S E=Z
 . NEW A,C,L,M,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,M,N,O,P,R,S,T D ^DIK KILL DIK Q
FILE NEW A,C,E,L,M,N,O,P,R,S,T K DD,DO S DIC(0)="L" D FILE^DICN KILL DIC Q
MODOK D RSLT($J("",5)_"Changed : "_L) Q
RSLT(%) S ^(0)=$G(^TMP("AUM7102",$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)
 ;
 ; -----------------------------------------------------
 ;
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 ;
 S E="New Service Unit Codes, Section VIII-B"
 D RSLT(E)
 D RSLT($J("",13)_"AA SU NAME")
 D RSLT($J("",13)_"-- -- ----")
 F T=1:1 S L=$T(SUNEW+T^AUM7102A) 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
 ;
 ; -----------------------------------------------------
 ;
LOCNEW ;
 S E="New Location Codes, Section VIII-C"
 D RSLT(E)
 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^AUM7102A) 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 ;
 S E="Location Code Changes, Section VIII-C"
 D RSLT(E)
 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^AUM7102A) Q:$P(L,";",3)="END"  S L("TO")=$T(LOCMOD+T+1^AUM7102A) 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("AUM7102A")_" patients marked for export because of the Location Code changes.")
 ;
 Q
 ;
 ; -----------------------------------------------------
 ;
LOCINACT ;
 S E="Inactivated Location Codes, Section VIII-C"
 D RSLT(E)
 D RSLT($J("",20)_"AA SU FA NAME")
 D RSLT($J("",20)_"-- -- -- ----")
 F T=1:1 S L=$T(LOCINACT+T^AUM7102A) 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 ;
 S E="New Community Codes, Section V-C"
 D RSLT(E)
 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^AUM7102A) 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^AUM71021("^AUTTCTY(",S_O)
 Q:'P("O")
 S P("A")=$$IEN^AUM71021("^AUTTAREA(",A)
 Q:'P("A")
 S P("V")=$$IEN^AUM71021("^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 ;
 S E="Community Code Changes, Section V-C"
 D RSLT(E)
 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^AUM7102A) Q:$P(L,";",3)="END"  S L("TO")=$T(COMMMOD+T+1^AUM7102A) 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^AUM71021("^AUTTCTY(",S_O)
 . Q:'P("O")
 . S P("A")=$$IEN^AUM71021("^AUTTAREA(",A)
 . Q:'P("A")
 . S P("V")=$$IEN^AUM71021("^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("AUM7102A")_" patients marked for export because of the Community Code changes.")
 Q
 ;
 ; -----------------------------------------------------
 ;
RESNEW ;
 S E="New Reservation Codes, Section XIV"
 D RSLT(E)
 D RSLT($J("",12)_"CODE NAME"_$J("",26)_"AREA1 AREA2 STATE")
 D RSLT($J("",12)_"---- ----"_$J("",26)_"----- ----- -----")
 F T=1:1 S L=$T(RESNEW+T^AUM7102A) Q:$P(L,";",3)="END"  D ADDRES
 Q
 ;
ADDRES ;
 S L=$P(L,";;",2),C=$P(L,U),N=$P(L,U,2),A=$P(L,U,3),O=$P(L,U,4),S=$P(L,U,5),L=C_" "_$E(N_$J("",30),1,30)_" "_A_"    "_$E(O_"  ",1,2)_"    "_S
 I $D(^AUTTRES("C",C)) D RSLT($J("",5)_E(1)_"RESERVATION CODE EXISTS => "_C) Q
 S P("A1")=$$IEN("^AUTTAREA(",A)
 Q:'P("A1")
 I O S P("A2")=$$IEN("^AUTTAREA(",O) Q:'P("A2")
 S P("S")=$$IEN("^DIC(5,",S)
 Q:'P("S")
 S DLAYGO=9999999.47,DIC="^AUTTRES(",X=N,DIC("DR")=".02///"_C_";.03////"_P("S")_";.04////"_P("A1")
 I O,$G(P("A2")) S DIC("DR")=DIC("DR")_";.05////"_P("A2")
 D FILE,ADDFAIL:Y<0,ADDOK:Y>0
 KILL DLAYGO
 Q
 ;
 ; -----------------------------------------------------
 ;

AUM7102A
AUM7102A ; IHS/ADC/GTH - STANDARD TABLE UPDATES DATA A, 05FEB97 BANYAN ; [ 02/06/97   2:22 PM ]
 ;;97.1;TABLE MAINTENANCE;**2**;DEC 10,1996
 ;
UPDATE ;;IHS STANDARD CODE BOOK MODIFICATIONS - JAN 1997  02/03/97
 ;
SUNEW ;;A. NEW SERVICE UNIT CODES (SECTION VIII-B): AREA^S.U.^NAME
 ;;58^81^MOHEGAN - AWAITING CHSDA
 ;;58^82^JENA BAND - AWAITING CHSDA
 ;;64^50^L.A. AMER IND HLTH PROJ
 ;;END
 ;
LOCNEW ;;B. NEW FACILITY CODES (SECTION VIII-C): AREA^S.U.^FAC.^NAME^PSEUDO
 ;;58^81^80^MOHEGAN TRIBE^UVA
 ;;58^82^80^JENA BAND^UVB
 ;;END
 ;
LOCMOD ;;C. FACILITY CODE CHANGES (SECTION VIII-C): AREA^S.U.^FAC.^NAME^PSEUDO
 ;;FROM^60^63^60^ELKO IHS AD/AP^XSB
 ;;  TO^60^63^60^ELKO IHS A/C^XSB
 ;;FROM^60^69^65^FALLON IHS AD/AP^XSF
 ;;  TO^60^69^65^FALLON IHS A/C^XSF
 ;;FROM^64^80^60^AMERICAN INDIAN INVOLVEMENT^LAD
 ;;  TO^64^50^60^UNITED AMER IND INVOLVEMENT^LBM
 ;;FROM^65^61^61^PITU TRIBE AD/AP^XSK
 ;;  TO^65^61^61^PITU TRIBE^XSK
 ;;FROM^65^61^62^UTE TRIBE AD/AP^XSL
 ;;  TO^65^61^62^UTE TRIBE^XSL
 ;;FROM^65^62^64^HOPI TRIBE AD/AP^XSM
 ;;  TO^65^62^64^HOPI TRIBE^XSM
 ;;FROM^65^62^65^KAIBAB PAIUTE TRIBE AD/AP^XSN
 ;;  TO^65^62^65^KAIBAB PAIUTE TRIBE ALC PROG^XSN
 ;;FROM^65^63^60^ELKO TRIBE AD/AP^XSR
 ;;  TO^65^63^60^ELKO TRIBE ALC PROG^XSR
 ;;FROM^65^63^61^BATTLE MOUNTAIN TRIBE AD/AP^XSO
 ;;  TO^65^63^61^BATTLE MOUNTAIN TRIBE^XSO
 ;;FROM^65^63^62^DUCK VALLEY TRIBE AD/AP^XSP
 ;;  TO^65^63^62^DUCK VALLEY TRIBE^XSP
 ;;FROM^65^63^63^DUCKWATER TRIBE AD/AP^XSQ
 ;;  TO^65^63^63^DUCKWATER TRIBE^XSQ
 ;;FROM^65^63^64^ELY TRIBE AD/AP^XSS
 ;;  TO^65^63^64^ELY TRIBE^XSS
 ;;FROM^65^63^65^GOSHUTE TRIBE AD/AP^XST
 ;;  TO^65^63^65^GOSHUTE TRIBE^XST
 ;;FROM^65^63^66^TE-MOAK TRIBE AD/AP^XSU
 ;;  TO^65^63^66^TE-MOAK TRIBE^XSU
 ;;FROM^65^64^61^CHEMEHUEVI TRIBE AD/AP^XSV
 ;;  TO^65^64^61^CHEMEHUEVI TRIBE^XSV
 ;;FROM^65^64^62^CRIT TRIBE AD/AP^XSW
 ;;  TO^65^64^62^CRIT TRIBE^XSW
 ;;FROM^65^64^63^FORT MOJAVE TRIBE AD/AP^XSX
 ;;  TO^65^64^63^FORT MOJAVE TRIBE^XSX
 ;;FROM^65^64^64^HUALAPAI TRIBE AD/AP^XSY
 ;;  TO^65^64^64^HUALAPAI TRIBE^XSY
 ;;FROM^65^66^31^SALT RIVER TRIBE AD/AP^XTB
 ;;  TO^65^66^31^SALT RIVER TRIBE^XTB
 ;;FROM^65^66^63^FORT MCDOWELL TRIBE AD/AP^XSZ
 ;;  TO^65^66^63^FORT MCDOWELL HS^XSZ
 ;;FROM^65^66^84^YAVAPAI APACHE TRIBE AD/AP^XTF
 ;;  TO^65^66^84^YAVAPAI APACHE TRIBE^XTF
 ;;FROM^65^66^87^TOHONO O'ODHAM SAN LUCY AD/AP^XTC
 ;;  TO^65^66^87^TOHONO O'ODHAM - SAN LUCY^XTC
 ;;FROM^65^66^90^TONTO APACHE TRIBE AD/AP^XTD
 ;;  TO^65^66^90^TONTO APACHE TRIBE^XTD
 ;;FROM^65^67^67^GILA CROSSING TRIBE AD/AP^XEZ
 ;;  TO^65^67^67^GILA CROSSING TRIB ALCOL PRG^XEZ
 ;;FROM^65^67^78^GRIC TRIBE AD/AP^XTZ
 ;;  TO^65^67^78^GRIC TRIBE^XTZ
 ;;FROM^65^68^80^SAN CARLOS TRIBE AD/AP^XTG
 ;;  TO^65^68^80^SAN CARLOS TRIBE^XTG
 ;;FROM^65^69^19^RENO/SPARKS AD/AP^XQC
 ;;  TO^65^69^19^RENO/SPARKS^XQC
 ;;FROM^65^69^65^FALLON TRIBE AD/AP^XTH
 ;;  TO^65^69^65^FALLON TRIBE ALC PROG^XTH
 ;;FROM^65^69^66^LAS VEGAS TRIBE AD/AP^XTI
 ;;  TO^65^69^66^LAS VEGAS TRIBE ALC PROG^XTI
 ;;FROM^65^69^67^LOVELOCK TRIBE AD/AP^XTJ
 ;;  TO^65^69^67^LOVELOCK TRIBE^XTJ
 ;;FROM^65^69^68^PYRAMID LAKE TRIBE AD/AP^XTK
 ;;  TO^65^69^68^PYRAMID LAKE TRIBE ALC PROG^XTK
 ;;FROM^65^69^69^WALKER RIVER TRIBE AD/AP^XTQ
 ;;  TO^65^69^69^WALKER RIVER TRIBE ALC PROG^XTQ
 ;;FROM^65^69^70^WASHOE TRIBE AD/AP^XTR
 ;;  TO^65^69^70^WASHOE TRIBE ALC PROG^XTR
 ;;FROM^65^69^71^YERINGTON TRIBE AD/AP^XTS
 ;;  TO^65^69^71^YERINGTON TRIBE ALC PROG^XTS
 ;;FROM^65^69^72^YOMBA TRIBE AD/AP^XTT
 ;;  TO^65^69^72^YOMBA TRIBE^XTT
 ;;FROM^65^71^79^WHITERIVER TRIBAL AD/AP^XFU
 ;;  TO^65^71^79^WHITERIVER TRIBAL GUIDANCE CT^XFU
 ;;FROM^65^72^62^COCOPAH TRIBE AD/AP^XTM
 ;;  TO^65^72^62^COCOPAH TRIBE^XTM
 ;;FROM^65^72^63^QUECHAN TRIBE AD/AP^XTN
 ;;  TO^65^72^63^QUECHAN TRIBE^XTN
 ;;FROM^67^61^63^IAC & RHP URB SALT LAKE AD/AP^XTO
 ;;  TO^67^61^63^IAC & RHP URBAN (SALT LAKE)^XTO
 ;;FROM^67^66^86^INDIAN COMM HLTH SRV INC AD/AP^XTY
 ;;  TO^67^66^86^NATIVE AMERICAN COMM HLTH CTR^XTY
 ;;FROM^69^66^60^INDIAN REHAB, INC. - AD/AP^XTV
 ;;  TO^69^66^60^INDIAN REHABILITATION, INC.^XTV
 ;;END
 ;
LOCINACT ;;D. INACTIVATED FACILITY CODES (SECTION VIII-C): AREA^S.U.^FAC.^NAME
 ;;60^66^63^FORT MCDOWELL HS
 ;;END
 ;
COMMNEW ;;E. NEW COMMUNITY CODES (SECTION V-C): STATE^CNTY^COMM^NAME^AREA^S.U.
 ;;06^19^200^ALHAMBRA^64^50
 ;;06^19^201^ALTADENA^64^50
 ;;06^19^202^ARLETA^64^50
 ;;06^19^203^ATWATER VILLAGE^64^50
 ;;06^19^204^ARCADIA^64^50
 ;;06^19^205^AZUSA^64^50
 ;;06^19^206^BALDWIN PARK^64^50
 ;;06^19^207^BASSETT^64^50
 ;;06^19^208^BELVEDERE^64^50
 ;;06^19^209^BRADBURY^64^50
 ;;06^19^210^BOYLE HEIGHTS^64^50
 ;;06^19^211^CANOGA PARK^64^50
 ;;06^19^212^CHATSWORTH^64^50
 ;;06^19^213^CHARTER OAK^64^50
 ;;06^19^214^CITY TERRACE^64^50
 ;;06^19^215^COMMERCE^64^50
 ;;06^19^216^COVINA^64^50
 ;;06^19^217^CULVER CITY^64^50
 ;;06^19^218^DOMINGUEZ^64^50
 ;;06^19^219^EAGLE ROCK^64^50
 ;;06^19^220^EAST LOS ANGELES^64^50
 ;;06^19^221^EL SERENO^64^50
 ;;06^19^222^ENCINO^64^50
 ;;06^19^223^ECHO PARK^64^50
 ;;06^19^224^FLORENCE^64^50
 ;;06^19^225^FOX HILLS^64^50
 ;;06^19^226^GLASSELL PARK^64^50
 ;;06^19^227^GLENDORA^64^50
 ;;06^19^228^HACIENDA HEIGHTS^64^50
 ;;06^19^229^HARBOR CITY^64^50
 ;;06^19^230^HERMOSA BEACH^64^50
 ;;06^19^231^HIGHLAND PARK^64^50
 ;;06^19^232^HOLLYDALE^64^50
 ;;06^19^233^HOLLYWOOD^64^50
 ;;06^19^234^INDUSTRY^64^50
 ;;06^19^235^IRWINDALE^64^50
 ;;06^19^236^LA PUENTE^64^50
 ;;06^19^237^LAWNDALE^64^50
 ;;06^19^238^LENNOX^64^50
 ;;06^19^239^LINCOLN HEIGHTS^64^50
 ;;06^19^240^LOMITA^64^50
 ;;06^19^241^LOS FELIZ^64^50
 ;;06^19^242^MARINA DEL REY^64^50
 ;;06^19^243^MAYWOOD^64^50
 ;;06^19^244^MONTEBELLO^64^50
 ;;06^19^245^MONTEREY PARK^64^50
 ;;06^19^246^MONROVIA^64^50
 ;;06^19^247^NAPLES^64^50
 ;;06^19^248^NORTH HILLS^64^50
 ;;06^19^249^NORTH LONG BEACH^64^50
 ;;06^19^250^NORTHRIDGE^64^50
 ;;06^19^251^OCEAN PARK^64^50
 ;;06^19^252^PACOIMA^64^50
 ;;06^19^253^PALMS^64^50
 ;;06^19^254^PLAYA DEL REY^64^50
 ;;06^19^255^RANCHO PARK^64^50
 ;;06^19^256^RESEDA^64^50
 ;;06^19^257^ROSEMEAD^64^50
 ;;06^19^258^ROWLAND HEIGHTS^64^50
 ;;06^19^259^SAN FERNANDO^64^50
 ;;06^19^260^SAN GABRIEL^64^50
 ;;06^19^261^SANTA MONICA^64^50
 ;;06^19^262^SAWTELLE^64^50
 ;;06^19^263^SHERMAN OAKS^64^50
 ;;06^19^264^SIGNAL HILL^64^50
 ;;06^19^265^SILVER LAKE^64^50
 ;;06^19^266^SOUTH EL MONTE^64^50
 ;;06^19^267^SOUTH SAN GABRIEL^64^50
 ;;06^19^268^SUNLAND^64^50
 ;;06^19^269^SUN VALLEY^64^50
 ;;06^19^270^SYLMAR^64^50
 ;;06^19^271^TARZANA^64^50
 ;;06^19^272^TEMPLE CITY^64^50
 ;;06^19^273^TUJUNGA^64^50
 ;;06^19^274^VAN NUYS^64^50
 ;;06^19^275^VALINDA^64^50
 ;;06^19^276^VENICE^64^50
 ;;06^19^277^VERNON^64^50
 ;;06^19^278^WALNUT^64^50
 ;;06^19^279^WATTS^64^50
 ;;06^19^280^WEST ADAMS^64^50
 ;;06^19^281^WESTCHESTER^64^50
 ;;06^19^282^WEST HOLLYWOOD^64^50
 ;;06^19^283^WOODLAND HILLS^64^50
 ;;27^40^305^MONTGOMERY^11^00
 ;;END
 ;
COMMMOD ;;F.  COMMUNITY CODE CHANGES (SECTION V-C): STATE^CNTY^COMM^NAME^AREA^S.U.
 ;;FROM^06^19^100^NORTH HOLLYWOOD^64^80
 ;;  TO^06^19^100^NORTH HOLLLYWOOD^64^50
 ;;FROM^06^19^101^INGLEWOOD^64^80
 ;;  TO^06^19^101^INGLEWOOD^64^50
 ;;FROM^06^19^102^GLENDALE^64^80
 ;;  TO^06^19^102^GLENDALE^64^50
 ;;FROM^06^19^103^HUNTINGTON PARK^64^80
 ;;  TO^06^19^103^HUNTINGTON PARK^64^50
 ;;FROM^06^19^104^HAWAIIAN GARDENS^64^80
 ;;  TO^06^19^104^HAWAIIAN GARDENS^64^50
 ;;FROM^06^19^105^NORWALK^64^80
 ;;  TO^06^19^105^NORWALK^64^50
 ;;FROM^06^19^106^SOUTH GATE^64^80
 ;;  TO^06^19^106^SOUTH GATE^64^50
 ;;FROM^06^19^107^CERRITOS^64^80
 ;;  TO^06^19^107^CERRITOS^64^50
 ;;FROM^06^19^109^BELL GARDEN^64^80
 ;;  TO^06^19^109^BELL GARDEN^64^50
 ;;FROM^06^19^110^WHITTIER^64^80
 ;;  TO^06^19^110^WHITTIER^64^50
 ;;FROM^06^19^111^WILMINGTON^64^80
 ;;  TO^06^19^111^WILMINGTON^64^50
 ;;FROM^06^19^112^PARAMOUNT^64^80
 ;;  TO^06^19^112^PARAMOUNT^64^50
 ;;FROM^06^19^113^BELL^64^80
 ;;  TO^06^19^113^BELL^64^50
 ;;FROM^06^19^114^BURBANK^64^80
 ;;  TO^06^19^114^BURBANK^64^50
 ;;FROM^06^19^115^ARTESIA^64^80
 ;;  TO^06^19^115^ARTESIA^64^50
 ;;FROM^06^19^116^LYNWOOD^64^80
 ;;  TO^06^19^116^LYNWOOD^64^50
 ;;FROM^06^19^117^WEST COVINA^64^80
 ;;  TO^06^19^117^WEST COVINA^64^50
 ;;FROM^06^19^118^CARSON^64^80
 ;;  TO^06^19^118^CARSON^64^50
 ;;FROM^06^19^119^DOWNEY^64^80
 ;;  TO^06^19^119^DOWNEY^64^50
 ;;FROM^06^19^120^LA MIRADA^64^80
 ;;  TO^06^19^120^LA MIRADA^64^50
 ;;FROM^06^19^121^CUDAHY^64^80
 ;;  TO^06^19^121^CUDAHY^64^50
 ;;FROM^06^19^122^COMPTON^64^80
 ;;  TO^06^19^122^COMPTON^64^50
 ;;FROM^06^19^123^REDONDO BEACH^64^80
 ;;  TO^06^19^123^REDONDO BEACH^64^50
 ;;FROM^06^19^124^POMONA^64^80
 ;;  TO^06^19^124^POMONA^64^50
 ;;FROM^06^19^125^SAN PEDRO^64^80
 ;;  TO^06^19^125^SAN PEDRO^64^50
 ;;FROM^06^19^126^TORRANCE^64^80
 ;;  TO^06^19^126^TORRANCE^64^50
 ;;FROM^06^19^127^LAKEWOOD^64^80
 ;;  TO^06^19^127^LAKEWOOD^64^50
 ;;FROM^06^19^128^GARDENA^64^80
 ;;  TO^06^19^128^GARDENA^64^50
 ;;FROM^06^19^136^BELLFLOWER^64^80
 ;;  TO^06^19^136^BELLFLOWER^64^50
 ;;FROM^06^19^701^BEACH AREA^64^00
 ;;  TO^06^19^701^BEACH AREA^64^50
 ;;FROM^06^19^702^LONG BEACH^64^00
 ;;  TO^06^19^702^LONG BEACH^64^50
 ;;FROM^06^19^703^LOS ANGELES^64^00
 ;;  TO^06^19^703^LOS ANGELES^64^50
 ;;FROM^06^19^704^PASADENA^64^00
 ;;  TO^06^19^704^PASADENA^64^50
 ;;FROM^06^19^705^VALLEY AREA^64^00
 ;;  TO^06^19^705^VALLEY AREA^64^50
 ;;END
 ;
RESNEW ;;G.  NEW RESERVATION CODE (SECTION XIV): CODE^NAME^AREA1^AREA2^STATE
 ;;320^JENA BAND OF CHOCTAWS^58^^22
 ;;END
 ;

AUM7102M
AUM7102M ; IHS/ADC/GTH - BACKGROUND VALUES FOR STANDARD TABLE UPDATES, 05FEB97 BANYAN ; [ 02/06/97   2:22 PM ]
 ;;97.1;TABLE MAINTENANCE;**2**;DEC 10,1996
 ;
AREA ; CODE^NAME^PREFIX/REGION^CAN PREFIX
11 ;;11^BEMIDJI^D^J46
58 ;;58^NASHVILLE NON-IHS^U^J51
60 ;;60^PHOENIX^X^J40
64 ;;64^CALIFORNIA URBAN^L^J41
65 ;;65^PHOENIX TRIBE/638^X^J40
67 ;;67^PHOENIX URBAN^X^J40
69 ;;69^PHOENIX NON-IHS^X^J40
 ;
SU ; AREA^SU^NAME
1100 ;;11^00^NON SERVICE UNIT
6063 ;;60^63^OWYHEE
6069 ;;60^69^SCHURZ
6561 ;;65^61^UINTAH-OURAY
6562 ;;65^62^KEAMS CANYON
6563 ;;65^63^OWYHEE
6564 ;;65^64^COLORADO RIVER
6566 ;;65^66^PHOENIX
6567 ;;65^67^SACATON
6568 ;;65^68^SAN CARLOS
6569 ;;65^69^SCHURZ
6571 ;;65^71^WHITERIVER
6572 ;;65^72^FT. YUMA
6761 ;;67^61^UINTAH-OURAY
6766 ;;67^66^PHOENIX
6966 ;;69^66^PHOENIX
 ;
COUNTY ; STATE^COUNTY^NAME
0619 ;;06^19^LOS ANGELES
2740 ;;27^40^LE SUEUR
 ;