5:21 PM  11-AUG-95
AUM v 95.1, SCB updates from 11Aug95 Banyan.  Restore routines and DO ^AUM9508.
A9AUM7
A9AUM7 ; IHS/ADC/GTH - STANDARD TABLE UPDATES, 11AUG95 BANYAN, RPI ; [ 08/11/95  5:20 PM ]
 ;;95.1;TABLE MAINTENANCE;**7**;NOV 1, 1994
 ;
 D START^AUM9508
 ;
 Q:'$L($G(^%ZOSF("DEL")))
 NEW X
 F %=1:1 S X=$P($T(DEL+%),";",3) Q:X=""  X ^%ZOSF("DEL")
 Q
DEL ;     
 ;;A9AUM6
 ;;AUM9508
 ;;AUM95081
 ;;AUM9508A
 ;;AUM9508B
 ;;AUM9508M

AUM9508
AUM9508 ; IHS/ADC/GTH - STANDARD TABLE UPDATES, 11AUG95 BANYAN ; [ 08/11/95  4:56 PM ]
 ;;95.1;TABLE MAINTENANCE;**7**;NOV 1, 1994
 ;
 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 utility to TaskMan"
 S DIR("??")="^D HELP^AUM9508(""Q2"")"
 D ^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 AUM9508
 S X=+Y
 D H^%DTC
 S ZTDTH=%H_","_%T
 S ZTRTN="START^AUM9508",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^AUM95081
 S (XMSUB,XMDUZ)=$P($P($T(+1),";",2)," ",4,99),XMTEXT="^TMP(""AUM SCB"",$J,",XMY(1)="",XMY(DUZ)="" D ^XMD
 K ^TMP("AUM SCB",$J)
 I $D(ZTQUEUED) S ZTREQ="@"
 E  W !!,"The results are in your MailMan 'IN' basket.",!
 Q
 ;
INTRO ;
 ;;This patch updates standard tables according to the changes
 ;;specified in the Banyan message time stamped 11Aug95@14:57:11 MDT,
 ;;Please consult that message, and the mail message produced by this
 ;;utility.
 ;;###
 ;
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 patch.
 ;;###
 ;
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
 ;

AUM95081
AUM95081 ; IHS/ADC/GTH - STANDARD TABLE UPDATES (1), 11AUG95 BANYAN ; [ 08/11/95  4:53 PM ]
 ;;95.1;TABLE MAINTENANCE;**7**;NOV 1, 1994
 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 LOCNEW,CNTYNEW,COMMNEW
 ;
 Q
 ;
ADDOK D RSLT(E_", Added : "_L) Q
ADDFAIL D RSLT(E(0)_E_" : ADD FAILED => "_L) Q
DIE NEW A,C,E,L,N,O,P,R,S,T
 LOCK +(@(DIE_DA_")")):10 E  D RSLT(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) ;EP
 S Y=$O(@(X_"""C"",%,0)"))
 I 'Y S Y=$T(@%^AUM9508M) 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(E(0)_E_" : "_$P(@(X_"0)"),U)_" DOES NOT EXIST => "_%)
 Q +Y
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(E_", Changed : "_L) Q
RSLT(%) S ^(0)=$G(^TMP("AUM SCB",$J,0))+1,^(^(0))=% W:'$D(ZTQUEUED) !,% Q
 ;
AREANEW ;
 S E="New Area Codes"
 F T=1:1 S L=$T(AREANEW+T^AUM9508A) 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(E(1)_E_" : NAME EXISTS => "_N) Q
 I $D(^AUTTAREA("C",A)) D RSLT(E(1)_E_" : CODE EXISTS => "_A) Q
 S DLAYGO=9999999.21,DIC="^AUTTAREA(",X=N,DIC("DR")=".02///"_A_";.03///"_R_";.04///"_C D FILE
 D ADDFAIL:Y<0,ADDOK:Y>0
 Q
 ;
SUNEW ;
 S E="New Service Unit Codes"
 F T=1:1 S L=$T(SUNEW+T^AUM9508A) 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(E(1)_E_" : 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
 D ADDFAIL:Y<0,ADDOK:Y>0
 Q
 ;
LOCNEW ;
 S E="New Location Codes"
 F T=1:1 S L=$T(LOCNEW+T^AUM9508A) 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_"  "_P
 S %=A_S_F,%=$O(^AUTTLOC("C",%,0))
 I % D RSLT(E(1)_E_" : 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(E(1)_E_" : DELETE INACTIVE DATE FAILED => "_L) D:'$D(Y) RSLT(E_" : 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(E(0)_E_" : EDIT INSTITUTION FAILED => "_L) D:'$D(Y) RSLT(E_" : 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(E(0)_E_" : EDIT PSEUDO PREFIX FAILED => "_L) D:'$D(Y) RSLT(E_" : 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(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(E(0)_E_" : ^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
 D ADDFAIL:Y<0,ADDOK:Y>0
 Q
 ;
CNTYNEW ;
 S E="New County Codes"
 F T=1:1 S L=$T(CNTYNEW+T^AUM9508B) Q:$P(L,";",3)="END"  D ADDCNTY
 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(E(1)_E_" : 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
 D ADDFAIL:Y<0,ADDOK:Y>0
 Q
 ;
COMMNEW ;
 S E="New Community Codes"
 F T=1:1 S L=$T(COMMNEW+T^AUM9508B) 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_" "_A_" "_V
 I $D(^AUTTCOM("C",S_O_C)) D RSLT(E(1)_E_" : STCTYCOM CODE EXISTS => "_S_O_C) Q
 S P("O")=$$IEN^AUM95081("^AUTTCTY(",S_O) Q:'P("O")
 S P("A")=$$IEN^AUM95081("^AUTTAREA(",A) Q:'P("A")
 S P("V")=$$IEN^AUM95081("^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
 D ADDFAIL:Y<0,ADDOK:Y>0
 Q
 ;

AUM9508A
AUM9508A ; IHS/ADC/GTH - STANDARD TABLE UPDATES DATA A, 11AUG95 BANYAN ; [ 08/11/95  4:52 PM ]
 ;;95.1;TABLE MAINTENANCE;**7**;NOV 1, 1994
 ;
 ;  If you do not want new entries made in your area, remove the line.
 ;
 ;  If you don't want the modifications performed in your area, remove
 ;    BOTH the FROM line and the TO line.
 ;
LOCNEW ; A. NEW LOCATION CODES (SECTION VIII-C): AREA^S.U.^FAC.^NAME^PSEUDO
 ;;64^80^77^AMBULANCE^LXA
 ;;64^80^79^SCHOOL, UNSP^LXB
 ;;64^80^82^CHS HOSPITAL^LXC
 ;;64^80^86^OFFICE^LXD
 ;;64^80^88^CHS PHYSICIAN OFFICE^LXE
 ;;64^80^89^HOME^LXF
 ;;64^80^92^NURSING HOME^LXG
 ;;64^80^97^CHS OTHER^LXH
 ;;64^80^98^OTHER^LXI
 ;;64^80^99^UNDESIG LOCS^LXJ
 ;;64^81^77^AMBULANCE^LXK
 ;;64^81^79^SCHOOL, UNSP^LXL
 ;;64^81^82^CHS HOSPITAL^LXM
 ;;64^81^86^OFFICE^LXN
 ;;64^81^88^CHS PHYSICIAN OFFICE^LXO
 ;;64^81^89^HOME^LXP
 ;;64^81^92^NURSING HOME^LXQ
 ;;64^81^97^CHS OTHER^LXR
 ;;64^81^98^OTHER^LXS
 ;;64^81^99^UNDESIG LOCS^LXT
 ;;64^82^77^AMBULANCE^LXU
 ;;64^82^79^SCHOOL, UNSP^LXV
 ;;64^82^82^CHS HOSPITAL^LXW
 ;;64^82^86^OFFICE^LXX
 ;;64^82^88^CHS PHYSICIAN OFFICE^LXY
 ;;64^82^89^HOME^LXZ
 ;;64^82^92^NURSING HOME^LYA
 ;;64^82^97^CHS OTHER^LYB
 ;;64^82^98^OTHER^LYC
 ;;64^82^99^UNDESIG LOCS^LYD
 ;;64^83^77^AMBULANCE^LYE
 ;;64^83^79^SCHOOL, UNSP^LYF
 ;;64^83^82^CHS HOSPITAL^LYG
 ;;64^83^86^OFFICE^LYH
 ;;64^83^88^CHS PHYSICIAN OFFICE^LYI
 ;;64^83^89^HOME^LYJ
 ;;64^83^92^NURSING HOME^LYK
 ;;64^83^97^CHS OTHER^LYL
 ;;64^83^98^OTHER^LYM
 ;;64^83^99^UNDESIG LOCS^LYN
 ;;64^84^77^AMBULANCE^LYO
 ;;64^84^79^SCHOOL, UNSP^LYP
 ;;64^84^82^CHS HOSPITAL^LYQ
 ;;64^84^86^OFFICE^LYR
 ;;64^84^88^CHS PHYSICIAN OFFICE^LYS
 ;;64^84^89^HOME^LYT
 ;;64^84^92^NURSING HOME^LYU
 ;;64^84^97^CHS OTHER^LYV
 ;;64^84^98^OTHER^LYW
 ;;64^84^99^UNDESIG LOCS^LYX
 ;;64^85^77^AMBULANCE^LYY
 ;;64^85^79^SCHOOL, UNSP^LYZ
 ;;64^85^82^CHS HOSPITAL^LZA
 ;;64^85^86^OFFICE^LZB
 ;;64^85^88^CHS PHYSICIAN OFFICE^LZC
 ;;64^85^89^HOME^LZD
 ;;64^85^92^NURSING HOME^LZE
 ;;64^85^97^CHS OTHER^LZF
 ;;64^85^98^OTHER^LZG
 ;;64^85^99^UNDESIG LOCS^LZH
 ;;64^86^77^AMBULANCE^LZI
 ;;64^86^79^SCHOOL, UNSP^LZJ
 ;;64^86^82^CHS HOSPITAL^LZK
 ;;64^86^86^OFFICE^LZL
 ;;64^86^88^CHS PHYSICIAN OFFICE^LZM
 ;;64^86^89^HOME^LZN
 ;;64^86^92^NURSING HOME^LZO
 ;;64^86^97^CHS OTHER^LZP
 ;;64^86^98^OTHER^LZQ
 ;;64^86^99^UNDESIG LOCS^LZR
 ;;64^87^77^AMBULANCE^LZS
 ;;64^87^79^SCHOOL, UNSP^LZT
 ;;64^87^82^CHS HOSPITAL^LZU
 ;;64^87^86^OFFICE^LZV
 ;;64^87^88^CHS PHYSICIAN OFFICE^LZW
 ;;64^87^89^HOME^LZX
 ;;64^87^92^NURSING HOME^LZY
 ;;64^87^97^CHS OTHER^LZZ
 ;;64^87^98^OTHER^LVB
 ;;64^87^99^UNDESIG LOCS^LVC
 ;;66^10^77^AMBULANCE^LVE
 ;;66^10^79^SCHOOL, UNSP^LVF
 ;;66^10^82^CHS HOSPITAL^LVG
 ;;66^10^86^OFFICE^LVH
 ;;66^10^88^CHS PHYSICIAN OFFICE^LVI
 ;;66^10^89^HOME^LVJ
 ;;66^10^92^NURSING HOME^LVK
 ;;66^10^97^CHS OTHER^LVL
 ;;66^10^98^OTHER^LVM
 ;;66^10^99^UNDESIG LOCS^LVN
 ;;66^11^77^AMBULANCE^LVO
 ;;66^11^79^SCHOOL, UNSP^LVP
 ;;66^11^82^CHS HOSPITAL^LVQ
 ;;66^11^86^OFFICE^LVR
 ;;66^11^88^CHS PHYSICIAN OFFICE^LVS
 ;;66^11^89^HOME^LVT
 ;;66^11^92^NURSING HOME^LVU
 ;;66^11^97^CHS OTHER^LVV
 ;;66^11^98^OTHER^LVW
 ;;66^11^99^UNDESIG LOCS^LVX
 ;;66^12^77^AMBULANCE^LVY
 ;;66^12^79^SCHOOL, UNSP^LVZ
 ;;66^12^82^CHS HOSPITAL^LUB
 ;;66^12^86^OFFICE^LUC
 ;;66^12^88^CHS PHYSICIAN OFFICE^LUD
 ;;66^12^89^HOME^LUE
 ;;66^12^92^NURSING HOME^LUF
 ;;66^12^97^CHS OTHER^LUG
 ;;66^12^98^OTHER^LUH
 ;;66^12^99^UNDESIG LOCS^LUI
 ;;66^13^77^AMBULANCE^LUJ
 ;;66^13^79^SCHOOL, UNSP^LUK
 ;;66^13^82^CHS HOSPITAL^LUL
 ;;66^13^86^OFFICE^LUM
 ;;66^13^88^CHS PHYSICIAN OFFICE^LUN
 ;;66^13^89^HOME^LUO
 ;;66^13^92^NURSING HOME^LUP
 ;;66^13^97^CHS OTHER^LUQ
 ;;66^13^98^OTHER^LUR
 ;;66^13^99^UNDESIG LOCS^LUS
 ;;66^14^77^AMBULANCE^LUT
 ;;66^14^79^SCHOOL, UNSP^LUU
 ;;66^14^82^CHS HOSPITAL^LUV
 ;;66^14^86^OFFICE^LUW
 ;;66^14^88^CHS PHYSICIAN OFFICE^LUX
 ;;66^14^89^HOME^LUY
 ;;66^14^92^NURSING HOME^LUZ
 ;;66^14^97^CHS OTHER^LTE
 ;;66^14^98^OTHER^LTF
 ;;66^14^99^UNDESIG LOCS^LTG
 ;;66^15^77^AMBULANCE^LTH
 ;;66^15^79^SCHOOL, UNSP^LTI
 ;;66^15^82^CHS HOSPITAL^LTJ
 ;;66^15^86^OFFICE^LTK
 ;;66^15^88^CHS PHYSICIAN OFFICE^LTL
 ;;66^15^89^HOME^LTM
 ;;66^15^92^NURSING HOME^LTN
 ;;66^15^97^CHS OTHER^LTO
 ;;66^15^98^OTHER^LTP
 ;;66^15^99^UNDESIG LOCS^LTQ
 ;;66^16^77^AMBULANCE^LTR
 ;;66^16^79^SCHOOL, UNSP^LTS
 ;;66^16^82^CHS HOSPITAL^LTT
 ;;66^16^86^OFFICE^LTU
 ;;66^16^88^CHS PHYSICIAN OFFICE^LTV
 ;;66^16^89^HOME^LTW
 ;;66^16^92^NURSING HOME^LTX
 ;;66^16^97^CHS OTHER^LTY
 ;;66^16^98^OTHER^LTZ
 ;;66^16^99^UNDESIG LOCS^LSB
 ;;66^17^77^AMBULANCE^LSC
 ;;66^17^79^SCHOOL, UNSP^LSD
 ;;66^17^82^CHS HOSPITAL^LSE
 ;;66^17^86^OFFICE^LSF
 ;;66^17^88^CHS PHYSICIAN OFFICE^LSG
 ;;66^17^89^HOME^LSH
 ;;66^17^92^NURSING HOME^LSI
 ;;66^17^97^CHS OTHER^LSJ
 ;;66^17^98^OTHER^LSK
 ;;66^17^99^UNDESIG LOCS^LSL
 ;;66^18^77^AMBULANCE^LSM
 ;;66^18^79^SCHOOL, UNSP^LSN
 ;;66^18^82^CHS HOSPITAL^LSO
 ;;66^18^86^OFFICE^LSP
 ;;66^18^88^CHS PHYSICIAN OFFICE^LSQ
 ;;66^18^89^HOME^LSR
 ;;66^18^92^NURSING HOME^LSS
 ;;66^18^97^CHS OTHER^LST
 ;;66^18^98^OTHER^LSU
 ;;66^18^99^UNDESIG LOCS^LSV
 ;;66^19^77^AMBULANCE^LSW
 ;;66^19^79^SCHOOL, UNSP^LSX
 ;;66^19^82^CHS HOSPITAL^LSY
 ;;66^19^86^OFFICE^LSZ
 ;;66^19^88^CHS PHYSICIAN OFFICE^LRB
 ;;66^19^89^HOME^LRC
 ;;66^19^92^NURSING HOME^LRD
 ;;66^19^97^CHS OTHER^LRE
 ;;66^19^98^OTHER^LRF
 ;;66^19^99^UNDESIG LOCS^LRG
 ;;66^20^77^AMBULANCE^LRH
 ;;66^20^79^SCHOOL, UNSP^LRI
 ;;66^20^82^CHS HOSPITAL^LRJ
 ;;66^20^86^OFFICE^LRK
 ;;66^20^88^CHS PHYSICIAN OFFICE^LRL
 ;;66^20^89^HOME^LRM
 ;;66^20^92^NURSING HOME^LRN
 ;;66^20^97^CHS OTHER^LRO
 ;;66^20^98^OTHER^LRP
 ;;66^20^99^UNDESIG LOCS^LRQ
 ;;66^21^77^AMBULANCE^LRR
 ;;66^21^79^SCHOOL, UNSP^LRS
 ;;66^21^82^CHS HOSPITAL^LRT
 ;;66^21^86^OFFICE^LRU
 ;;66^21^88^CHS PHYSICIAN OFFICE^LRV
 ;;66^21^89^HOME^LRW
 ;;66^21^92^NURSING HOME^LRX
 ;;66^21^97^CHS OTHER^LRY
 ;;66^21^98^OTHER^LRZ
 ;;66^21^99^UNDESIG LOCS^LQD
 ;;66^22^77^AMBULANCE^LQE
 ;;66^22^79^SCHOOL, UNSP^LQF
 ;;66^22^82^CHS HOSPITAL^LQG
 ;;66^22^86^OFFICE^LQH
 ;;66^22^88^CHS PHYSICIAN OFFICE^LQI
 ;;66^22^89^HOME^LQJ
 ;;66^22^92^NURSING HOME^LQK
 ;;66^22^97^CHS OTHER^LQL
 ;;66^22^98^OTHER^LQM
 ;;66^22^99^UNDESIG LOCS^LQN
 ;;66^23^77^AMBULANCE^LQO
 ;;66^23^79^SCHOOL, UNSP^LQQ
 ;;66^23^82^CHS HOSPITAL^LQR
 ;;66^23^86^OFFICE^LQS
 ;;66^23^88^CHS PHYSICIAN OFFICE^LQT
 ;;66^23^89^HOME^LQU
 ;;66^23^92^NURSING HOME^LQV
 ;;66^23^97^CHS OTHER^LQW
 ;;66^23^98^OTHER^LQX
 ;;66^23^99^UNDESIG LOCS^LQY
 ;;66^24^77^AMBULANCE^LQZ
 ;;66^24^79^SCHOOL, UNSP^LPE
 ;;66^24^82^CHS HOSPITAL^LPF
 ;;66^24^86^OFFICE^LPG
 ;;66^24^88^CHS PHYSICIAN OFFICE^LPH
 ;;66^24^89^HOME^LPI
 ;;66^24^92^NURSING HOME^LPJ
 ;;66^24^97^CHS OTHER^LPK
 ;;66^24^98^OTHER^LPL
 ;;66^24^99^UNDESIG LOCS^LPM
 ;;66^25^77^AMBULANCE^LPN
 ;;66^25^79^SCHOOL, UNSP^LPO
 ;;66^25^82^CHS HOSPITAL^LPP
 ;;66^25^86^OFFICE^LPQ
 ;;66^25^88^CHS PHYSICIAN OFFICE^LPR
 ;;66^25^89^HOME^LPS
 ;;66^25^92^NURSING HOME^LPT
 ;;66^25^97^CHS OTHER^LPU
 ;;66^25^98^OTHER^LPV
 ;;66^25^99^UNDESIG LOCS^LPW
 ;;66^26^77^AMBULANCE^LPX
 ;;66^26^86^OFFICE^LPY
 ;;66^26^88^CHS PHYSICIAN OFFICE^LPZ
 ;;66^26^92^NURSING HOME^LLQ
 ;;66^26^97^CHS OTHER^LLR
 ;;66^26^98^OTHER^LLS
 ;;66^26^99^UNDESIG LOCS^LLT
 ;;66^27^77^AMBULANCE^LLU
 ;;66^27^79^SCHOOL, UNSP^LLV
 ;;66^27^82^CHS HOSPITAL^LLW
 ;;66^27^86^OFFICE^LOJ
 ;;66^27^88^CHS PHYSICIAN OFFICE^LOK
 ;;66^27^89^HOME^LOL
 ;;66^27^92^NURSING HOME^LOM
 ;;66^27^97^CHS OTHER^LON
 ;;66^27^98^OTHER^LOO
 ;;66^27^99^UNDESIG LOCS^LOP
 ;;66^28^77^AMBULANCE^LOQ
 ;;66^28^79^SCHOOL, UNSP^LOR
 ;;66^28^82^CHS HOSPITAL^LOS
 ;;66^28^86^OFFICE^LOT
 ;;66^28^88^CHS PHYSICIAN OFFICE^LOU
 ;;66^28^89^HOME^LOV
 ;;66^28^92^NURSING HOME^LOW
 ;;66^28^97^CHS OTHER^LOX
 ;;66^28^98^OTHER^LOY
 ;;66^28^99^UNDESIG LOCS^LOZ
 ;;66^29^77^AMBULANCE^LND
 ;;66^29^79^SCHOOL, UNSP^LNE
 ;;66^29^82^CHS HOSPITAL^LNF
 ;;66^29^86^OFFICE^LNG
 ;;66^29^88^CHS PHYSICIAN OFFICE^LNH
 ;;66^29^89^HOME^LNI
 ;;66^29^92^NURSING HOME^LNJ
 ;;66^29^97^CHS OTHER^LNK
 ;;66^29^98^OTHER^LNL
 ;;66^29^99^UNDESIG LOCS^LNM
 ;;66^30^77^AMBULANCE^LNN
 ;;66^30^79^SCHOOL, UNSP^LNO
 ;;66^30^82^CHS HOSPITAL^LNP
 ;;66^30^86^OFFICE^LNQ
 ;;66^30^88^CHS PHYSICIAN OFFICE^LNR
 ;;66^30^89^HOME^LNS
 ;;66^30^92^NURSING HOME^LNT
 ;;66^30^97^CHS OTHER^LNU
 ;;66^30^98^OTHER^LNV
 ;;66^30^99^UNDESIG LOCS^LNW
 ;;66^32^77^AMBULANCE^LNX
 ;;66^32^79^SCHOOL, UNSP^LNY
 ;;66^32^82^CHS HOSPITAL^LNZ
 ;;66^32^86^OFFICE^LMJ
 ;;66^32^88^CHS PHYSICIAN OFFICE^LMK
 ;;66^32^89^HOME^LML
 ;;66^32^92^NURSING HOME^LMM
 ;;66^32^97^CHS OTHER^LMN
 ;;66^32^98^OTHER^LMO
 ;;66^32^99^UNDESIG LOCS^LMP
 ;;66^33^77^AMBULANCE^LMQ
 ;;66^33^79^SCHOOL, UNSP^LMR
 ;;66^33^82^CHS HOSPITAL^LMS
 ;;66^33^86^OFFICE^LMT
 ;;66^33^88^CHS PHYSICIAN OFFICE^LMU
 ;;66^33^89^HOME^LMV
 ;;66^33^92^NURSING HOME^LMW
 ;;66^33^97^CHS OTHER^LMX
 ;;66^33^98^OTHER^LMY
 ;;66^33^99^UNDESIG LOCS^LMZ
 ;;66^34^77^AMBULANCE^LLG
 ;;66^34^79^SCHOOL, UNSP^LLH
 ;;66^34^82^CHS HOSPITAL^LLI
 ;;66^34^86^OFFICE^LLJ
 ;;66^34^88^CHS PHYSICIAN OFFICE^LLK
 ;;66^34^89^HOME^LLL
 ;;66^34^92^NURSING HOME^LLM
 ;;66^34^97^CHS OTHER^LLN
 ;;66^34^98^OTHER^LLO
 ;;66^34^99^UNDESIG LOCS^LLP
 ;;END
 ;

AUM9508B
AUM9508B ; IHS/ADC/GTH - STANDARD TABLE UPDATES DATA B, 11AUG95 BANYAN ; [ 08/11/95  4:51 PM ]
 ;;95.1;TABLE MAINTENANCE;**7**;NOV 1, 1994
 ;
 ;  If you do not want new entries made in your area, remove the line.
 ;
 ;  If you don't want the modifications performed in your area, remove
 ;    BOTH the FROM line and the TO line.
 ;
CNTYNEW ; B.  NEW COUNTY CODES (SECTION V-B): STATE^CNTY^NAME
 ;;18^01^ADAMS
 ;;18^02^ALLEN
 ;;18^03^BARTHOLOMEW
 ;;18^04^BENTON
 ;;18^05^BLACKFORD
 ;;18^06^BOONE
 ;;18^07^BROWN
 ;;18^08^CARROLL
 ;;18^09^CASS
 ;;18^10^CLARK
 ;;18^11^CLAY
 ;;18^12^CLINTON
 ;;18^13^CRAWFORD
 ;;18^14^DAVIESS
 ;;18^15^DEARBORN
 ;;18^16^DECATUR
 ;;18^17^DE KALB
 ;;18^18^DELAWARE
 ;;18^19^DUBOIS
 ;;18^20^ELKHART
 ;;18^21^FAYETTE
 ;;18^22^FLOYD
 ;;18^23^FOUNTAIN
 ;;18^24^FRANKLIN
 ;;18^25^FULTON
 ;;18^26^GIBSON
 ;;18^27^GRANT
 ;;18^28^GREENE
 ;;18^29^HAMILTON
 ;;18^30^HANCOCK
 ;;18^31^HARRISON
 ;;18^32^HENDRICKS
 ;;18^33^HENRY
 ;;18^34^HOWARD
 ;;18^35^HUNTINGTON
 ;;18^36^JACKSON
 ;;18^37^JASPER
 ;;18^38^JAY
 ;;18^39^JEFFERSON
 ;;18^40^JENNINGS
 ;;18^41^JOHNSON
 ;;18^42^KNOX
 ;;18^43^KOSCIUSKO
 ;;18^44^LAGRANGE
 ;;18^45^LAKE
 ;;18^46^LA PORTE
 ;;18^47^LAWRENCE
 ;;18^48^MADISON
 ;;18^49^MARION
 ;;18^50^MARSHALL
 ;;18^51^MARTIN
 ;;18^52^MIAMI
 ;;18^53^MONROE
 ;;18^54^MONTGOMERY
 ;;18^55^MORGAN
 ;;18^56^NEWTON
 ;;18^57^NOBLE
 ;;18^58^OHIO
 ;;18^59^ORANGE
 ;;18^60^OWEN
 ;;18^61^PARKE
 ;;18^62^PERRY
 ;;18^63^PIKE
 ;;18^64^PORTER
 ;;18^65^POSEY
 ;;18^66^PULASKI
 ;;18^67^PUTNAM
 ;;18^68^RANDOLPH
 ;;18^69^RIPLEY
 ;;18^70^RUSH
 ;;18^71^ST JOSEPH
 ;;18^72^SCOTT
 ;;18^73^SHELBY
 ;;18^74^SPENCER
 ;;18^75^STARKE
 ;;18^76^STEUBEN
 ;;18^77^SULLIVAN
 ;;18^78^SWITZERLAND
 ;;18^79^TIPPECANOE
 ;;18^80^TIPTON
 ;;18^81^UNION
 ;;18^82^VANDERBURGH
 ;;18^83^VERMILLION
 ;;18^84^VIGO
 ;;18^85^WABASH
 ;;18^86^WARREN
 ;;18^87^WARRICK
 ;;18^88^WASHINGTON
 ;;18^89^WAYNE
 ;;18^90^WELLS
 ;;18^91^WHITE
 ;;18^92^WHITLEY
 ;;END
 ;
COMMNEW ;;C.  NEW COMMUNITY CODES (SECTION V-C): STATE^CNTY^COMM^NAME^AREA^S.U.
 ;;26^27^100^MARENISCO^18^34
 ;;26^27^101^RAMSAY^18^34
 ;;26^31^102^KENTON^18^34
 ;;26^36^100^AMASA^11^00
 ;;26^36^101^CRYSTAL FALLS^11^00
 ;;26^36^102^STAMBAUGH^11^00
 ;;26^66^103^BERGLAND^18^34
 ;;26^66^104^BRUCE CROSSING^18^34
 ;;26^66^105^EWEN^18^34
 ;;26^66^106^TROUT CREEK^18^34
 ;;26^66^107^WHITE PINE^18^34
 ;;55^64^100^CONOVER^18^28
 ;;END
 ;

AUM9508M
AUM9508M ; IHS/ADC/GTH - BACKGROUND VALUES FOR STANDARD TABLE UPDATES, 11AUG95 BANYAN ; [ 08/11/95  4:49 PM ]
 ;;95.1;TABLE MAINTENANCE;**7**;NOV 1, 1994
 ;
AREA ; CODE^NAME^PREFIX/REGION^CAN PREFIX
11 ;;11^BEMIDJI^D^J46
18 ;;18^BEMIDJI NON-IHS^D^J46
64 ;;64^CALIFORNIA URBAN^L^J41
66 ;;66^CALIFORNIA TRIBE/638^L^J41
 ;
SU ; AREA^SU^NAME
1100 ;;11^00^NON SERVICE UNIT
1828 ;;18^28^NICOLET
1834 ;;18^34^WEST MICHIGAN
6480 ;;64^80^AMERICAN IND FREE CLINIC
6481 ;;64^81^SAN DIEGO A.I.H.C.
6482 ;;64^82^I.H.C. SANTA CLARA VAL
6483 ;;64^83^SACRAMENTO URBAN IND CENT
6484 ;;64^84^URBAN IND HLTH BD
6485 ;;64^85^CENTRAL VAL URB IND PROG
6486 ;;64^86^AMER IND HLTH COUN CENT CAL
6487 ;;64^87^SANTA BARBARA URB IND HLTH
6610 ;;66^10^CHAPA-DE INDIAN HEALTH PROJECT
6611 ;;66^11^CENTRAL VALLEY
6612 ;;66^12^HUPA HEALTH ASSOCIATION
6613 ;;66^13^KARUK TRB HP
6614 ;;66^14^MODOC IHP
6615 ;;66^15^NORTH VALLEY
6616 ;;66^16^INDIAN HLH C
6617 ;;66^17^PIT RIVER HEALTH SERVICES
6618 ;;66^18^RIVERSIDE SB
6619 ;;66^19^REDDING RANCHERIA IND. HEALTH
6620 ;;66^20^SONOMA CTY H
6621 ;;66^21^SOUTHERN IHC
6622 ;;66^22^CONSOLD THC
6623 ;;66^23^TOIYABE
6624 ;;66^24^TULE RIVER
6625 ;;66^25^TUOLUMNE
6626 ;;66^26^UIHS-TSURAI
6627 ;;66^27^ROUND VALLEY
6628 ;;66^28^SANTA YNEZ
6629 ;;66^29^LAKE COUNTY
6630 ;;66^30^LASSEN COUNTY
6632 ;;66^32^SYCUAN MEDICAL CENTER
6633 ;;66^33^WARNER MOUNTAIN IND HLTH SVS
6634 ;;66^34^SHINGLE SPRINGS TRIB HLTH PROG
 ;
COUNTY ; STATE^COUNTY^NAME
2627 ;;26^27^GOGEBIC
2631 ;;26^31^HOUGHTON
2636 ;;26^36^IRON
2666 ;;26^66^ONTONAGON
5564 ;;55^64^VILAS
 ;