9:46 AM  4-MAY-95
AUM v 95.1 patch 5, SCB updates from 27Apr95 Banyan, 10 routines, D ^AUM9504.
A9AUM5
A9AUM5 ; IHS/ADC/GTH - STANDARD TABLE UPDATES, 27APR95 BANYAN, RPI ; [ 05/03/95  11:18 AM ]
 ;;95.1;TABLE MAINTENANCE;**5**;NOV 1, 1994
 ;
 D START^AUM9504
 ;
 Q:'$L($G(^%ZOSF("DEL")))
 NEW X
 F %=1:1 S X=$P($T(DEL+%),";",3) Q:X=""  X ^%ZOSF("DEL")
 Q
DEL ;     
 ;;A9AUM1
 ;;A9AUM2
 ;;A9AUM3
 ;;A9AUM4
 ;;AUM95032
 ;;AUM9504
 ;;AUM95041
 ;;AUM95042
 ;;AUM9504A
 ;;AUM9504M

AUM9504
AUM9504 ; IHS/ADC/GTH - STANDARD TABLE UPDATES, 27APR95 BANYAN ; [ 05/03/95  11:17 AM ]
 ;;95.1;TABLE MAINTENANCE;**5**;NOV 1, 1994
 ;
 I '$G(DUZ) W !,"DUZ UNDEFINED OR ZERO.",! Q
 D HOME^%ZIS,DT^DICRW,INTRO
 S (DIR(0),DIR("B"))="Y"
 S DIR("A")="Do you want to queue the utility to TaskMan"
 S DIR("??")="^D Q2^AUM9504"
 D ^DIR G Q2:$D(DIRUT),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",!!,"Okay...",! D Q2 Q
 S X=+Y D H^%DTC S ZTDTH=%H_","_%T
 S ZTRTN="START^AUM9504",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($J,"RSLT")
 D START^AUM95041,START^AUM95042
 S (XMSUB,XMDUZ)=$P($P($T(+1),";",2)," ",4,99),XMTEXT="^TMP($J,""RSLT"",",XMY(1)="",XMY(DUZ)="" D ^XMD
 K ^TMP($J,"RSLT")
 I $D(ZTQUEUED) S ZTREQ="@"
 E  W !!,"The results are in your MailMan 'IN' basket.",!
 Q
 ;
INTRO ;
 W ! F %=2:1:5 W ?5,$P($T(INTRO+%),";;",2),!
 ;;This patch updates standard tables according to the changes
 ;;specified in the Banyan message time stamped 27Apr95@11:19:57 MDT,
 ;;Please consult that message, and the mail message produced by this
 ;;utility.
 Q
Q2 ;EP - From DIR
 W ! F %=2:1:7 W ?5,$P($T(Q2+%),";;",2),!
 ;;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.
 Q

AUM95041
AUM95041 ; IHS/ADC/GTH - STANDARD TABLE UPDATES (1), 27APR95 BANYAN ; [ 05/03/95  11:17 AM ]
 ;;95.1;TABLE MAINTENANCE;**5**;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 SUNEW,LOCNEW,LOCMOD,LOCINACT
 ;
 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(@%^AUM9504M) 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($J,"RSLT",0))+1,^(^(0))=% W:'$D(ZTQUEUED) !,% Q
 ;
AREANEW ;
 S E="New Area Codes"
 F T=1:1 S L=$T(AREANEW+T^AUM9504A) 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^AUM9504A) 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^AUM9504A) 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
 ;
LOCMOD ;
 S E="Location Code Changes"
 F T=1:2 S L=$T(LOCMOD+T^AUM9504A) Q:$P(L,";",3)="END"  S L("TO")=$T(LOCMOD+T+1^AUM9504A) 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_"  "_$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(E(0)_E_" : 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(E(0)_E_" : EDIT INSTITUTION FAILED => "_L) Q
 .D MODOK
 .Q
 D RSLT($$LOCMOD^AUMXPORT("AUM9504A")_" patients marked for export because of the Location Code changes.")
 ;
 Q
 ;
LOCINACT ;
 S E="Inactivated Location Codes"
 F T=1:1 S L=$T(LOCINACT+T^AUM9504A) 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(E_" : ASUFAC "_A_S_F_" not found (OK).") Q
 . S DIE="^AUTTLOC(",DA=%,DR=".27////"_DT
 . D DIE
 . I $D(Y) D RSLT(E(1)_E_" : EDIT INACTIVE DATE FAILED => "_L) I 1
 . E  D RSLT(E_" : INACTIVATED => "_L)
 .Q
 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
 ;

AUM95042
AUM95042 ; IHS/ADC/GTH - STANDARD TABLE UPDATES (2), 27APR95 BANYAN ; [ 05/03/95  11:17 AM ]
 ;;95.1;TABLE MAINTENANCE;**5**;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 COMMNEW,COMMMOD,TRIBNEW
 Q
 ; ===   utility sub-routines   ====
 ;
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
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($J,"RSLT",0))+1,^(^(0))=% W:'$D(ZTQUEUED) !,% Q
 ;
 ; =================================
 ;
COMMNEW ;
 S E="New Community Codes"
 F T=1:1 S L=$T(COMMNEW+T^AUM9504B) Q:$P(L,";",3)="END"  D ADDCOMM
 F T=1:1 S L=$T(COMMNEW+T^AUM9504C) Q:$P(L,";",3)="END"  D ADDCOMM
 F T=1:1 S L=$T(COMMNEW+T^AUM9504D) 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^AUM95041("^AUTTCTY(",S_O) Q:'P("O")
 S P("A")=$$IEN^AUM95041("^AUTTAREA(",A) Q:'P("A")
 S P("V")=$$IEN^AUM95041("^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
 ;
COMMMOD ;
 S E="Community Code Changes"
 F T=1:2 S L=$T(COMMMOD+T^AUM9504A) Q:$P(L,";",3)="END"  S L("TO")=$T(COMMMOD+T+1^AUM9504A) 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_" "_A_" "_V
 . S P("O")=$$IEN^AUM95041("^AUTTCTY(",S_O) Q:'P("O")
 . S P("A")=$$IEN^AUM95041("^AUTTAREA(",A) Q:'P("A")
 . S P("V")=$$IEN^AUM95041("^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(E(0)_E_" : CHANGE FAILED => "_L) Q
 . D MODOK
 .Q
 ; D RSLT($$COMMMOD^AUMXPORT("AUM9504A")_" patients marked for export because of the Community Code changes.")
 ; The only changes in p5 are NAMES of communities, not any codes.
 Q
 ;
TRIBNEW ;
 S E="New Tribe Codes"
 F T=1:1 S L=$T(TRIBNEW+T^AUM9504A) 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(E(1)_E_" : TRIBE CODE EXISTS => "_C) Q
 S DLAYGO=9999999.03,DIC="^AUTTTRI(",X=N,DIC("DR")=".02///"_C
 D FILE
 D ADDFAIL:Y<0,ADDOK:Y>0
 Q
 ;

AUM9504A
AUM9504A ; IHS/ADC/GTH - STANDARD TABLE UPDATES DATA A, 27APR95 BANYAN ; [ 05/03/95  11:17 AM ]
 ;;95.1;TABLE MAINTENANCE;**5**;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.
 ;
SUNEW ;;A. NEW SERVICE UNIT CODES (SECTION VIII-B): AREA^S.U.^NAME
 ;;66^34^SHINGLE SPRINGS TRIB HLTH PROG
 ;;END
 ;;
LOCNEW ;;B. NEW LOCATION CODES (SECTION VIII-C): AREA^S.U.^FAC.^NAME^PSEUDO
 ;;45^43^31^RONAN HEALTH CLINIC^BMX
 ;;51^51^31^CHEROKEE CO HCLINIC^UAJ
 ;;64^83^61^SAN JOAQUIN COUNCIL^LOD
 ;;65^69^32^WASHOE TRAUMA FMLY HEALING CTR^XDZ
 ;;66^11^11^PRATHER CLINIC^LAR
 ;;66^11^60^KING'S VIEW CENTER^LOC
 ;;66^15^11^YUBA CITY HEALTH CLINIC^LOI
 ;;66^15^31^CHICO CLINIC^LOE
 ;;66^15^32^WILLIAMS CLINIC^LOF
 ;;66^15^33^RED BLUFF CLINIC^LOG
 ;;66^34^10^SHINGLE SPRINGS TRIB HLTH PROG^LOH
 ;;END
 ;;
LOCMOD ;;C. LOCATION CODE CHANGES (SECTION VIII-C): AREA^S.U.^FAC.^NAME^PSEUDO
 ;;FROM^18^23^10^KINCHELOE HEALTH CENTER^DJC
 ;;  TO^18^23^10^SSM TRIBAL HEALTH CENTER^DJC
 ;;FROM^18^28^52^POTAWATOMI HL^DOF
 ;;  TO^18^28^52^POTAWATOMI HLTH/WELLNESS CTR^DOF
 ;;FROM^40^43^10^ST. IGN'TS DC^BDA
 ;;  TO^45^43^10^ST. IGN'TS DC^BLV
 ;;FROM^40^43^77^AMBULANCE^BDW
 ;;  TO^45^43^77^AMBULANCE^BLG
 ;;FROM^40^43^82^CHS HOSPITAL^BDX
 ;;  TO^45^43^82^CHS HOSPITAL^BLH
 ;;FROM^40^43^86^CHS OTHER^BDY
 ;;  TO^45^43^86^CHS OTHER^BLI
 ;;FROM^40^43^88^CHS PHYSICIAN OFFICE^BDZ
 ;;  TO^45^43^88^CHS PHYSICIAN OFFICE^BLJ
 ;;FROM^40^43^92^NURSING HOME^BMA
 ;;  TO^45^43^92^NURSING HOME^BLK
 ;;FROM^40^43^95^HOME^BMB
 ;;  TO^45^43^95^HOME^BLL
 ;;FROM^40^43^96^SCHOOL^BMC
 ;;  TO^45^43^96^SCHOOL^BLM
 ;;FROM^40^43^97^OFFICE^BMD
 ;;  TO^45^43^97^OFFICE^BLN
 ;;FROM^40^43^99^UNDESIG LOCS^BDC
 ;;  TO^45^43^99^UNDESIG LOCS^BLO
 ;;FROM^40^48^77^AMBULANCE^BIF
 ;;  TO^45^48^77^AMBULANCE^BLP
 ;;FROM^40^48^82^CHS HOSPITAL^BIG
 ;;  TO^45^48^82^CHS HOSPITAL^BLQ
 ;;FROM^40^48^86^CHS OTHER^BIH
 ;;  TO^45^48^86^CHS OTHER^BLR
 ;;FROM^40^48^88^CHS PHYSICIAN OFFICE^BII
 ;;  TO^45^48^88^CHS PHYSICIAN OFFICE^BLS
 ;;FROM^40^48^92^NURSING HOME^BIJ
 ;;  TO^45^48^92^NURSING HOME^BLT
 ;;END
 ;;
LOCINACT ;;D. INACTIVATED LOCATION CODES (SECTION VIII-C): AREA^S.U.^FAC.^NAME^PSEUDO
 ;;66^10^50^SHINGLE SPRINGS RANCHERIA^LAC
 ;;80^86^12^MONTEZUMA CREEK HS^RAA
 ;;END
 ;;
COMMMOD ;;F. COMMUNITY CODE CHANGES (SECTION V-C): STATE^CNTY^COMM^NAME^AREA^S.U.
 ;;FROM^06^18^843^DOLYE^66^30
 ;;  TO^06^18^843^DOYLE^66^30
 ;;FROM^06^23^335^CAPELLA^66^22
 ;;  TO^06^23^335^CALPELLA^66^22
 ;;FROM^26^45^367^SUTTON'S BAY^18^23
 ;;  TO^26^45^367^SUTTONS BAY^18^23
 ;;FROM^40^01^116^CREASY^50^59
 ;;  TO^40^01^116^GREASY^50^59
 ;;FROM^40^18^267^BLUE JACKET^50^52
 ;;  TO^40^18^267^BLUEJACKET^50^52
 ;;FROM^40^51^678^KEEFETON^50^59
 ;;  TO^40^51^678^KEEFTON^50^59
 ;;END
TRIBNEW ;;G. NEW TRIBE CODES (SECTION XVIII): CODE^NAME
 ;;456^IONE BAND OF MIWOK INDIANS
 ;;457^UNITED AUBURN IND COMM, AUBURN RNCH, CA
 ;;458^PASKENTA BAND OF NOMLAKI INDIANS OF CA
 ;;END

AUM9504B
AUM9504B ; IHS/ADC/GTH - STANDARD TABLE UPDATES DATA B, 27APR95 BANYAN ; [ 05/03/95  11:17 AM ]
 ;;95.1;TABLE MAINTENANCE;**5**;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.
 ;
COMMNEW ;;E.  NEW COMMUNITY CODES (SECTION V-C): STATE^CNTY^COMM^NAME^AREA^S.U.
 ;;04^07^100^SUNLAKES^60^67
 ;;04^11^101^MOBILE^60^67
 ;;06^03^100^VOLCANO^66^25
 ;;06^05^101^WILSEYVILLE^66^25
 ;;06^05^102^BURSON^66^25
 ;;06^05^103^VALLECITO^66^25
 ;;06^05^104^SAN ANDREAS^66^25
 ;;06^05^105^ANGELS CAMP^66^25
 ;;06^05^106^VALLEY SPRINGS^66^25
 ;;06^05^107^COPPEROPOLIS^66^25
 ;;06^09^100^RESCUE^66^10
 ;;06^09^101^SOMERSET^66^10
 ;;06^09^102^GREENWOOD^66^10
 ;;06^09^103^GEORGETOWN^66^10
 ;;06^09^104^CAMINO^66^10
 ;;06^09^105^KELSEY^66^10
 ;;06^09^106^CAMERON PARK^66^10
 ;;06^09^107^GARDEN VALLEY^66^10
 ;;06^09^108^LOTUS^66^10
 ;;06^09^109^COLOMA^66^10
 ;;06^09^110^PILOT HILL^66^10
 ;;06^09^111^WEIMAR^66^10
 ;;06^10^100^TOLLHOUSE^66^11
 ;;06^10^101^PRATHER^66^11
 ;;06^10^102^CARUTHERS^66^11
 ;;06^10^103^KINGSBURG^66^11
 ;;06^10^104^FRIANT^66^11
 ;;06^10^105^KERMAN^66^11
 ;;06^10^106^REEDLEY^66^11
 ;;06^10^107^COALINGA^66^11
 ;;06^10^108^SANGER^66^11
 ;;06^10^109^ORANGE COVE^66^11
 ;;06^10^110^MIRAMONTE^66^11
 ;;06^10^111^RIVERDALE^66^11
 ;;06^10^112^PINEDALE^66^11
 ;;06^10^113^MENDOTA^66^11
 ;;06^10^114^SELMA^66^11
 ;;06^10^115^BIG CREEK^66^11
 ;;06^12^200^SCOTIA^66^26
 ;;06^12^201^KORBEL^66^26
 ;;06^12^202^HYDESVILLE^66^26
 ;;06^12^203^BAYSIDE^66^26
 ;;06^12^204^CUTTEN^66^26
 ;;06^12^205^BLOCKBURG^66^26
 ;;06^12^206^BRIDGEVILLE^66^26
 ;;06^12^207^REDCREST^66^26
 ;;06^12^208^CARLOTTA^66^26
 ;;06^14^200^OLANCHA^66^23
 ;;06^14^201^DARWIN^66^23
 ;;06^14^202^JUNE LAKE^66^23
 ;;06^16^116^LEMOORE^66^11
 ;;06^16^117^HANFORD^66^11
 ;;06^16^118^CORCORAN^66^11
 ;;06^16^119^ARMONA^66^11
 ;;06^17^100^GLENHAVEN^66^29
 ;;06^17^101^FINLEY^66^29
 ;;06^18^100^LITCHFIELD^66^30
 ;;06^18^101^STANDISH^66^30
 ;;06^18^102^TERMO^66^30
 ;;06^19^100^NORTH HOLLYWOOD^64^80
 ;;06^19^101^INGLEWOOD^64^80
 ;;06^19^102^GLENDALE^64^80
 ;;06^19^103^HUNTINGTON PARK^64^80
 ;;06^19^104^HAWAIIAN GARDENS^64^80
 ;;06^19^105^NORWALK^64^80
 ;;06^19^106^SOUTH GATE^64^80
 ;;06^19^107^CERRITOS^64^80
 ;;06^19^108^EL MONTE^64^80
 ;;06^19^109^BELL GARDEN^64^80
 ;;06^19^110^WHITTIER^64^80
 ;;06^19^111^WILMINGTON^64^80
 ;;06^19^112^PARAMOUNT^64^80
 ;;06^19^113^BELL^64^80
 ;;06^19^114^BURBANK^64^80
 ;;06^19^115^ARTESIA^64^80
 ;;06^19^116^LYNWOOD^64^80
 ;;06^19^117^WEST COVINA^64^80
 ;;06^19^118^CARSON^64^80
 ;;06^19^119^DOWNEY^64^80
 ;;06^19^120^LA MIRADA^64^80
 ;;06^19^121^CUDAHY^64^80
 ;;06^19^122^COMPTON^64^80
 ;;06^19^123^REDONDO BEACH^64^80
 ;;06^19^124^POMONA^64^80
 ;;06^19^125^SAN PEDRO^64^80
 ;;06^19^126^TORRANCE^64^80
 ;;06^19^127^LAKEWOOD^64^80
 ;;06^19^128^GARDENA^64^80
 ;;06^20^120^MADERA^66^11
 ;;06^20^121^O'NEALS^66^11
 ;;06^20^122^AHWAHNEE^66^11
 ;;06^20^123^CHOWCHILLA^66^11
 ;;06^20^124^OAKHURST^66^11
 ;;06^20^125^WISHON^66^11
 ;;06^22^108^CATHEYS VALLEY^66^25
 ;;06^22^109^MIDPINES^66^25
 ;;06^22^110^COULTERVILLE^66^25
 ;;06^23^100^BRANSCOMB^66^22
 ;;06^23^101^PHILO^66^22
 ;;06^23^102^TALMAGE^66^22
 ;;06^25^100^ADIN^66^17
 ;;06^29^112^CHICAGO PARK^66^10
 ;;06^30^129^BUENA PARK^64^80
 ;;06^30^130^SANTA ANA^64^80
 ;;06^30^131^ANAHEIM^64^80
 ;;06^30^132^COSTA MESA^64^80
 ;;06^30^133^GARDEN GROVE^64^80
 ;;06^30^134^HUNTINGTON BEACH^64^80
 ;;06^30^135^FULLERTON^64^80
 ;;06^31^113^ALTO^66^10
 ;;06^31^114^MEADOW VISTA^66^10
 ;;06^31^115^SHERIDAN^66^10
 ;;06^31^116^APPLEGATE^66^10
 ;;06^31^117^KINGS BEACH^66^10
 ;;06^33^100^NORCO^66^18
 ;;06^33^101^MORENO VALLEY^66^18
 ;;06^33^102^PALM SPRINGS^66^18
 ;;06^33^103^PALM DESERT^66^18
 ;;06^33^104^MOUNTAIN CENTER^66^18
 ;;06^33^105^MURRIETA^66^18
 ;;06^33^106^MIRA LOMA^66^18
 ;;06^33^107^PERRIS^66^18
 ;;06^33^108^DESERT HOT SPRINGS^66^18
 ;;06^33^109^HEMET^66^18
 ;;06^33^110^CATHEDRAL CITY^66^18
 ;;06^33^111^CHERRY VALLEY^66^18
 ;;06^33^112^BEAUMONT^66^18
 ;;06^33^113^THERMAL^66^18
 ;;06^33^114^TEMECULA^66^18
 ;;06^33^115^ROMOLAND^66^18
 ;;06^33^116^SUN CITY^66^18
 ;;06^33^117^HOMELAND^66^18
 ;;06^33^118^WILDOMAR^66^18
 ;;06^33^119^LAKE ELSINORE^66^18
 ;;06^33^120^RUBIDOUX^66^18
 ;;06^33^121^LAKEVIEW^66^18
 ;;06^33^122^AGUANGA^66^18
 ;;06^33^123^INDIO^66^18
 ;;06^33^124^LA QUINTA^66^18
 ;;06^33^125^CALIMESA^66^18
 ;;06^36^126^YERMO^66^18
 ;;06^36^127^YUCAIPA^66^18
 ;;06^36^128^RIALTO^66^18
 ;;06^36^129^UPLAND^66^18
 ;;06^36^130^RANCHO CUCAMONGA^66^18
 ;;06^36^131^RUNNING SPRINGS^66^18
 ;;06^36^132^REDLANDS^66^18
 ;;06^36^133^ADELANTO^66^18
 ;;06^36^134^LAKE ARROWHEAD^66^18
 ;;END
 ;

AUM9504C
AUM9504C ; IHS/ADC/GTH - STANDARD TABLE UPDATES DATA C, 27APR95 BANYAN ; [ 05/03/95  11:17 AM ]
 ;;95.1;TABLE MAINTENANCE;**5**;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.
 ;
COMMNEW ;;E. (continued)  NEW COMMUNITY CODES (SECTION V-C): STATE^CNTY^COMM^NAME^AREA^S.U.
 ;;06^36^135^YUCCA VALLEY^66^18
 ;;06^36^136^HIGHLAND^66^18
 ;;06^36^137^LOMA LINDA^66^18
 ;;06^36^138^JOSHUA TREE^66^18
 ;;06^36^139^HINKLEY^66^18
 ;;06^36^140^CHINO^66^18
 ;;06^36^141^HELEN DALE^66^18
 ;;06^36^142^MENTONE^66^18
 ;;06^36^143^CHINO HILLS^66^18
 ;;06^36^144^CRESTLINE^66^18
 ;;06^36^145^DAGGET^66^18
 ;;06^36^146^LUCERNE VALLEY^66^18
 ;;06^36^147^FONTANA^66^18
 ;;06^36^148^NUEVO^66^18
 ;;06^36^149^BLOOMINGTON^66^18
 ;;06^36^150^APPLE VALLEY^66^18
 ;;06^36^151^ONTARIO^66^18
 ;;06^36^152^MONTCLAIRE^66^18
 ;;06^36^153^BIG BEAR LAKE^66^18
 ;;06^36^154^BIG BEAR CITY^66^18
 ;;06^37^100^BONSALL^66^16
 ;;06^37^101^PAUMA VALLEY^66^16
 ;;06^37^102^CARLSBAD^66^16
 ;;06^37^103^CAMP PENDLETON^66^16
 ;;06^37^104^WARNER SPRINGS^66^16
 ;;06^45^101^BELLA VISTA^66^17
 ;;06^45^102^SUMMIT CITY^66^17
 ;;06^45^103^OLD STATION^66^17
 ;;06^45^104^CASSEL^66^17
 ;;06^45^105^PROJECT CITY^66^17
 ;;06^45^106^ROUND MOUNTAIN^66^17
 ;;06^47^100^CECILVILLE^66^13
 ;;06^47^101^CALLAHAN^66^13
 ;;06^47^102^TULELAKE^66^13
 ;;06^47^103^WEED^66^13
 ;;06^47^104^ETNA^66^13
 ;;06^47^105^SOMES BAR^66^13
 ;;06^47^106^SAWYERS BAR^66^13
 ;;06^47^107^HORSE CREEK^66^13
 ;;06^47^108^SCOTT BAR^66^13
 ;;06^47^109^SEIAD VALLEY^66^13
 ;;06^47^110^HAMBURG^66^13
 ;;06^47^111^GRENADA^66^13
 ;;06^47^112^GREENVIEW^66^13
 ;;06^47^113^MONTAGUE^66^13
 ;;06^47^114^HORNBROOK^66^13
 ;;06^49^100^MONTE RIO^66^20
 ;;06^49^101^BODEGA BAY^66^20
 ;;06^49^102^BOYES HOT SPRINGS^66^20
 ;;06^49^103^OCCIDENTAL^66^20
 ;;06^49^104^RIO NIDO^66^20
 ;;06^49^105^FULTON^66^20
 ;;06^49^106^PENNGROVE^66^20
 ;;06^49^107^GLEN ELLEN^66^20
 ;;06^49^108^CAZADERO^66^20
 ;;06^54^100^PIXLEY^66^24
 ;;06^54^101^POPLAR^66^24
 ;;06^54^102^SPRINGVILLE^66^24
 ;;06^55^111^SOULSBYVILLE^66^25
 ;;06^55^112^STANDARD^66^25
 ;;06^55^113^TWIN HARTE^66^25
 ;;06^55^114^MIWUK VILLAGE^66^25
 ;;06^55^115^LONG BARN^66^25
 ;;26^01^463^HARRISVILLE^11^00
 ;;26^05^200^RAPID CITY^18^23
 ;;26^06^150^OMER^18^23
 ;;26^15^201^BOYNE FALLS^18^23
 ;;26^19^464^EAGLE^11^00
 ;;26^26^465^RHODES^11^00
 ;;26^28^202^BUCKLEY^18^23
 ;;26^33^466^HASLETT^11^00
 ;;26^33^467^HOLT^11^00
 ;;26^34^468^IONIA^11^00
 ;;26^45^203^MAPLE CITY^18^23
 ;;26^49^151^BREVORT^18^23
 ;;26^50^469^SHELBY TOWNSHIP^11^00
 ;;26^53^470^FREE SOIL^11^00
 ;;26^54^471^MORLEY^11^00
 ;;26^60^472^ATLANTA^11^00
 ;;26^63^473^MILFORD^11^00
 ;;26^67^474^HERSEY^11^00
 ;;END
 ;

AUM9504D
AUM9504D ; IHS/ADC/GTH - STANDARD TABLE UPDATES DATA D, 27APR95 BANYAN ; [ 05/03/95  11:17 AM ]
 ;;95.1;TABLE MAINTENANCE;**5**;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.
 ;
COMMNEW ;;E. (continued)  NEW COMMUNITY CODES (SECTION V-C): STATE^CNTY^COMM^NAME^AREA^S.U.
 ;;26^73^475^BIRCH RUN^11^00
 ;;26^76^476^DECKER^11^00
 ;;26^78^477^DURAND^11^00
 ;;26^80^478^MATTAWAN^11^00
 ;;26^82^479^CANTON^11^00
 ;;27^02^372^ANDOVER^11^00
 ;;27^02^373^EAST BETHEL^11^00
 ;;27^02^374^SPRING LAKE PARK^11^00
 ;;27^02^375^ST. FRANCIS^11^00
 ;;27^02^376^HAM LAKE^11^00
 ;;27^05^377^FOLEY^11^00
 ;;27^06^378^ODESSA^11^00
 ;;27^10^379^YOUNG AMERICA^11^00
 ;;27^13^380^NORTH BRANCH^11^00
 ;;27^13^381^RUSH CITY^11^00
 ;;27^13^382^WYOMING^11^00
 ;;27^14^383^BARNSVILLE^11^00
 ;;27^14^384^FLOM^11^00
 ;;27^14^385^SABIN^11^00
 ;;27^16^120^HOVLAND^18^25
 ;;27^19^386^EAGEN^11^00
 ;;27^19^387^FARMINGTON^11^00
 ;;27^19^388^HASTINGS^11^00
 ;;27^19^389^INVER GROVE HEIGHTS^11^00
 ;;27^21^390^ALEXANDRIA^11^00
 ;;27^21^391^GARFIELD^11^00
 ;;27^25^100^CANNON FALLS^18^30
 ;;27^26^392^BARRETT^11^00
 ;;27^26^393^HERMAN^11^00
 ;;27^26^394^WENDELL^11^00
 ;;27^27^395^BROOKLYN CENTER^11^00
 ;;27^27^396^BROOKLYN PARK^11^00
 ;;27^27^397^MINNETONKA^11^00
 ;;27^27^398^NEW HOPE^11^00
 ;;27^27^399^PLYMOUTH^11^00
 ;;27^27^431^ST. LOUIS PARK^11^00
 ;;27^27^432^MOUND^11^00
 ;;27^30^433^ISANTI^11^00
 ;;27^31^200^COLERAINE^11^26
 ;;27^31^201^MARBLE^11^26
 ;;27^34^434^SPICER^11^00
 ;;27^38^435^BEAVER BAY^11^00
 ;;27^45^020^STEPHEN^11^32
 ;;27^45^021^WARREN^11^32
 ;;27^53^436^WORTHINGTON^11^00
 ;;27^54^120^BORUP^11^35
 ;;27^54^121^HENDRUM^11^35
 ;;27^54^122^SHELLY^11^35
 ;;27^56^437^BATTLE LAKE^11^00
 ;;27^56^438^DALTON^11^00
 ;;27^56^439^ELIZABETH^11^00
 ;;27^56^440^HENNING^11^00
 ;;27^56^441^NEW YORK MILLS^11^00
 ;;27^56^442^OTTERTAIL^11^00
 ;;27^56^443^RICHVILLE^11^00
 ;;27^56^444^VINING^11^00
 ;;27^60^123^BELTRAMI^11^35
 ;;27^60^124^CLIMAX^11^35
 ;;27^60^125^MENTOR^11^35
 ;;27^62^445^MAPLEWOOD^11^00
 ;;27^62^446^WHITE BEAR LAKE^11^00
 ;;27^63^447^PLUMMER^11^00
 ;;27^63^448^RED LAKE FALLS^11^00
 ;;27^65^101^BIRD ISLAND^18^30
 ;;27^65^102^HECTOR^18^30
 ;;27^66^449^FARIBAULT^11^00
 ;;27^68^100^SALOL^11^32
 ;;27^69^110^MCKINLEY^18^31
 ;;27^71^450^ELK RIVER^11^00
 ;;27^73^451^PAYNESVILLE^11^00
 ;;27^76^452^APPLETON^11^00
 ;;27^77^453^EAGLE BEND^11^00
 ;;27^77^454^OSAKIS^11^00
 ;;27^79^455^LAKE CITY^11^00
 ;;27^80^456^WADENA^11^00
 ;;27^82^457^COTTAGE GROVE^11^00
 ;;27^82^459^WOODBURY^11^00
 ;;27^83^460^MADELIA^11^00
 ;;27^86^461^MONTICELLO^11^00
 ;;27^86^462^ST. MICHAEL^11^00
 ;;40^01^200^BARON^50^59
 ;;40^01^201^HONEY HILL^50^59
 ;;40^18^203^RUSSELL^50^52
 ;;40^49^204^STRANGE^50^52
 ;;40^53^205^ELLIOTT^50^52
 ;;40^68^202^NICUT^50^59
 ;;40^72^206^NORTH TULSA^50^52
 ;;40^74^208^MANATOKA^50^52
 ;;END
 ;

AUM9504M
AUM9504M ; IHS/ADC/GTH - BACKGROUND VALUES FOR STANDARD TABLE UPDATES, 27APR95 BANYAN ; [ 05/03/95  11:17 AM ]
 ;;95.1;TABLE MAINTENANCE;**5**;NOV 1, 1994
 ;
AREA ; CODE^NAME^PREFIX/REGION^CAN PREFIX
11 ;;11^BEMIDJI^D^J46
18 ;;18^BEMIDJI NON-IHS^D^J46
45 ;;45^BILLINGS TRIBE/638^B^J47
50 ;;50^OKLAHOMA^O^J50
51 ;;51^NASHVILLE^U^J51
60 ;;60^PHOENIX^X^J40
64 ;;64^CALIFORNIA URBAN^L^J41
65 ;;65^PHOENIX TRIBE/638^X^J40
66 ;;66^CALIFORNIA TRIBE/638^L^J41
 ;;
SU ; AREA^SU^NAME
1100 ;;11^00^NON SERVICE UNIT
1126 ;;11^26^GREATER LEECH LAKE
1823 ;;18^23^EASTERN MICHIGAN
1825 ;;18^25^GRAND PORTAGE
1828 ;;18^28^NICOLET
1830 ;;18^30^MINNESOTA RIVER
1831 ;;18^31^NETT LAKE
1132 ;;11^32^RED LAKE
1135 ;;11^35^WHITE EARTH
4543 ;;45^43^FLATHEAD
4548 ;;45^48^ROCKY BOY'S
5052 ;;50^52^CLAREMORE
5059 ;;50^59^TAHLEQUAH
5151 ;;51^51^CHEROKEE
6067 ;;60^67^SACATON
6480 ;;64^80^AMERICAN IND FREE CLINIC
6483 ;;64^83^SACRAMENTO URBAN IND CENT
6569 ;;65^69^SCHURZ
6610 ;;66^10^CHAPA-DE INDIAN HEALTH PROJECT
6611 ;;66^11^CENTRAL VALLEY
6613 ;;66^13^KARUK TRB HP
6615 ;;66^15^NORTH VALLEY
6616 ;;66^16^INDIAN HLH C
6617 ;;66^17^PIT RIVER HEALTH SERVICES
6618 ;;66^18^RIVERSIDE SB
6620 ;;66^20^SONOMA CTY H
6622 ;;66^22^CONSOLD THC
6623 ;;66^23^TOIYABE
6624 ;;66^24^TULE RIVER
6625 ;;66^25^TUOLUMNE
6629 ;;66^29^LAKE COUNTY
6630 ;;66^30^LASSEN COUNTY
 ;;
COUNTY ; STATE^COUNTY^NAME
0407 ;;04^07^MARICOPA
0411 ;;04^11^PINAL
0603 ;;06^03^AMADOR
0605 ;;06^05^CALAVERAS
0609 ;;06^09^EL DORADO
0610 ;;06^10^FRESNO
0612 ;;06^12^HUMBOLDT
0614 ;;06^14^INYO
0616 ;;06^16^KINGS
0617 ;;06^17^LAKE
0618 ;;06^18^LASSEN
0619 ;;06^19^LOS ANGELES
0620 ;;06^20^MADERA
0622 ;;06^22^MARIPOSA
0623 ;;06^23^MENDOCINO
0625 ;;06^25^MODOC
0629 ;;06^29^NEVADA
0630 ;;06^30^ORANGE
0631 ;;06^31^PLACER
0633 ;;06^33^RIVERSIDE
0636 ;;06^36^S BERNARDINO
0637 ;;06^37^SAN DIEGO
0645 ;;06^45^SHASTA
0647 ;;06^47^SISKIYOU
0649 ;;06^49^SONOMA
0654 ;;06^54^TULARE
0655 ;;06^55^TUOLUMNE
2601 ;;26^01^ALCONA
2605 ;;26^05^ANTRIM
2606 ;;26^06^ARENAC
2615 ;;26^15^CHARLEVOIX
2619 ;;26^19^CLINTON
2626 ;;26^26^GLADWIN
2628 ;;26^28^GRAND TRAVERSE
2633 ;;26^33^INGHAM
2634 ;;26^34^IONIA
2645 ;;26^45^LEELANAU
2649 ;;26^49^MACKINAC
2650 ;;26^50^MACOMB
2653 ;;26^53^MASON
2654 ;;26^54^MECOSTA
2660 ;;26^60^MONTGOMERY
2663 ;;26^63^OAKLAND
2667 ;;26^67^OSCEOLA
2673 ;;26^73^SAGINAW
2676 ;;26^76^SANILAC
2678 ;;26^78^SHIAWASSEE
2680 ;;26^80^VAN BUREN
2682 ;;26^82^WAYNE
2702 ;;27^02^ANOKA
2705 ;;27^05^BENTON
2706 ;;27^06^BIG STONE
2710 ;;27^10^CARVER
2713 ;;27^13^CHISAGO
2714 ;;27^14^CLAY
2716 ;;27^16^COOK
2719 ;;27^19^DAKOTA
2721 ;;27^21^DOUGLAS
2725 ;;27^25^GOODHUE
2726 ;;27^26^GRANT
2730 ;;27^30^ISANTI
2731 ;;27^31^ITASCA
2734 ;;27^34^KANDIYOHI
2738 ;;27^38^LAKE
2745 ;;27^45^MARSHALL
2753 ;;27^53^NOBLES
2754 ;;27^54^NORMAN
2756 ;;27^56^OTTER TAIL
2760 ;;27^60^POLK
2762 ;;27^62^RAMSEY
2763 ;;27^63^RED LAKE
2765 ;;27^65^RENVILLE
2766 ;;27^66^RICE
2768 ;;27^68^ROSEAU
2769 ;;27^69^ST LOUIS
2771 ;;27^71^SHERBURNE
2773 ;;27^73^STEARNS
2776 ;;27^76^SWIFT
2777 ;;27^77^TODD
2779 ;;27^79^WABASHA
2780 ;;27^80^WADENA
2782 ;;27^82^WASHINGTON
2783 ;;27^83^WATONWAN
2786 ;;27^86^WRIGHT
4001 ;;40^01^ADAIR
4018 ;;40^18^CRAIG
4049 ;;40^49^MAYES
4051 ;;40^51^MUSKOGEE
4053 ;;40^53^NOWATA
4068 ;;40^68^SEQUOYAH
4072 ;;40^72^TULSA
4074 ;;40^74^WASHINGTON
 ;;

AUMXPORT
AUMXPORT ; IHS/ADC/GTH - MARK PT'S FOR REG EXPORT ; [ 05/04/95  9:44 AM ]
 ;;95.1;TABLE MAINTENANCE;**5**;NOV 1, 1994
 ;
 Q
 ;
 ; ----------------------------------------------------------------
 ;
SETUP ;
 D NOW^%DTC
 S N=%
 S W="W:'$D(ZTQUEUED) ""."""
 Q
 ;
 ; ----------------------------------------------------------------
 ;
 ;
COMMMOD(AUMRTN) ;EP - SET ^AGPATCH for Community Code Changes.
 ;
 ;  SET ^AGPATCH(NOW,DUZ(2),DFN)="" for a changed community.
 ;  The above was confirmed and agreed upon with the owner of
 ;  ^AGPATCH (Registration).
 ;
 NEW D,DFN,L,N,T,W
 ;
 ; D = Site DUZ(2).
 ; L = "TO" string, then the name of the community being changed.
 ; N = NOW
 ; T = Counter
 ; W = Write dot if not q'd.
 ;
 D SETUP
 ;
 F T=1:2 S L=$T(COMMMOD+T^@AUMRTN) Q:$P(L,";",3)="END"  X W S L=$P($T(COMMMOD+T+1^@AUMRTN),U,5),DFN=0 F  S DFN=$O(^AUPNPAT("AC",L,DFN)) Q:'DFN  X W S D=$O(^AUPNPAT(DFN,41,0)) X W I D S ^AGPATCH(N,D,DFN)=""
 G COUNT
 ; ----------------------------------------------------------------
 ;
LOCMOD(AUMRTN) ;EP - SET ^AGPATCH for Location Code Changes.
 ;
 NEW D,DFN,L,N,T,W
 ;
 D SETUP
 ;
 K ^TMP($J,"AUMXPORT")
 ;
 F T=1:2 S L=$T(LOCMOD+T^@AUMRTN) Q:$P(L,";",3)="END"  X W S L=$P($T(LOCMOD+T+1^@AUMRTN),U,2,4),L=$TR(L,"^",""),D=$O(^AUTTLOC("C",L,0)),DFN=0 I D S ^TMP($J,"AUMXPORT",D)=""
 ;
 S %="^AUPNPAT(""D"",0,0,0)"
 F  S %=$Q(@%) Q:'$L(%)  X:'((+$P(%,",",3))#1000) W I $D(^TMP($J,"AUMXPORT",+$P(%,",",4))) S ^AGPATCH(N,+$P(%,",",4),+$P(%,",",3))=""
 ;
 K ^TMP($J,"AUMXPORT")
 ;
 G COUNT
 ; ----------------------------------------------------------------
 ;
 ;
CLINMOD(AUMRTN) D SETUP G COUNT
 ; ----------------------------------------------------------------
CNTYMOD(AUMRTN) D SETUP G COUNT
 ; ----------------------------------------------------------------
RESMOD(AUMRTN) D SETUP G COUNT
 ; ----------------------------------------------------------------
TRIBMOD(AUMRTN) D SETUP G COUNT
 ; ----------------------------------------------------------------
 ;
COUNT ; Return the number of patients marked for export because of change.
 S (D,T)=0
 F  S D=$O(^AGPATCH(N,D)) Q:'D  X W S DFN=0 F  S DFN=$O(^AGPATCH(N,D,DFN)) Q:'DFN  X W S T=T+1
 Q T
 ;