Global: ^AUTTCOM

FileMan FileNo	FileMan Filename	Package
9999999.05	COMMUNITY	Utility Tables

Package	Total	Routines
Diabetes Registry	55	BDMD01 BDMD01E BDMD11 BDMD11E BDMD20 BDMD21 BDMD31 BDMD41 BDMD41E BDMD51 BDMD51E BDMD61 BDMD61E BDMD71 BDMD71E BDMD81 BDMD81E BDMD91 BDMD91E BDMD99 BDMDA1 BDMDA1E BDMDB1 BDMDB1E BDMDC1 BDMDC1E BDMDD1 BDMDD1E BDMDE1 BDMDE1E BDMDF1 BDMDF1E BDMDG1 BDMDG1E BDMDG1Y BDMGTB BDMP01 BDMP11 BDMP41 BDMP51 BDMP61 BDMP71 BDMP81 BDMP91 BDMPA1 BDMPB1 BDMPC1 BDMPD1 BDMPE1 BDMPF1 BDMPG1 BDMRMC BDMRML BDMVRL2 BDMVRL4
Patient Care Component Reports	39	APCL8A1 APCLACC2 APCLBP APCLCH1 APCLCH11 APCLCH2 APCLCH21 APCLCH2P APCLD20 APCLD21 APCLD31 APCLD51 APCLD51E APCLD61 APCLD61E APCLD71 APCLD71E APCLD81 APCLD81E APCLD99 APCLDOD1 APCLDV1P APCLEL1 APCLHCT2 APCLHH1 APCLIPC2 APCLM2 APCLP51 APCLP61 APCLP71 APCLP81 APCLPCT2 APCLPIF1 APCLPIF2 APCLPSU1 APCLSILU APCLTAX1 APCLTAXE APCLV1
IHS GPRA Information System	15	BGP7DGPU BGP7DH BGP7DL BGP7PDL BGP7PDLH BGP7UTL BGP8DGPU BGP8DH BGP8DL BGP8PCD BGP8PCH BGP8PDL BGP8PDLH BGP8UTL BGPGTXU
IHS Patient Registration	14	AG2B AGACXREF AGBIC2B AGBIC2C AGCARD AGFACE AGMCDP AGMCDPC AGMCDPCM AGMCDPN AGSAMPG AGTX1 AGTX2 AGTXALL
Mental Health Social Services	12	AMHBHRP2 AMHEXD2 AMHEYC1 AMHGDGP AMHLEFPP AMHLEGP AMHLRDSP AMHRLKUP AMHRLP3 AMHRLU2 AMHRPSU1 AMHRPTST
Contract Health Management Information System	11	ACHSC6C ACHSDNS ACHSMD0 ACHSRELG ACHSTX3 ACHSTX33 ACHSTX5 ACHSTX55 ACHSTX7 ACHSTX77 ACHSUDF
IHS RPMS CHR System	7	BCHDCOMM BCHDL1 BCHDLA1 BCHDLN1 BCHEXD21 ^BCHR BCHRPTST
Computerized Public Health Activity Data	4	BNIG BNIGT BNIGU BNITAXE
Immunization Tracking	4	BIUTL11 BIUTL6 BIUTLFIX PREVIOUS COMMUNITY
Tracking Procedure Workflow	4	BTPWPDSP BTPWPEVF BTPWPEVT BTPWPLND
Women's Health	4	BWRPPCD BWRPSCR BWUTL1 BWUTL7
Data Warehouse Export System	3	BDWA1 BDWDWPX BDWRDR21
IHS Changes To ADT	3	^ADGDS ADGCRB2 ADGF
IHS Patient	3	AUPNPAT3 AUPNPCTR AUPNXFRC
Patient Care Component	3	APCDEMDI APCDRRQ APCHTAXE
Taxonomy	3	ATXBULL ATXGU ATXTAXE
iCare	3	BQIGPRA5 BQINIGH1 BQIPLCTX
IHS Dental System	2	ADEFPC ADELW
M Transfer	2	BMXADE1 BMXUTL1
Patient Chart	2	BPCBHRP2 BPCPC1
Patient Registration GUI	2	AGGPTUPD AGGUTB
Phoenix Devel Center	2	AZXRCHS1 AZXROBL1
Table Maintenance	2	AUMSCBA AUMUPD3
Aberdeen GPRA Report	1	CIMGAGPR
Alcohol Chemical Dependency	1	ACDFLAT2
Asthma Tracking System	1	BATBLG
Emergency Room	1	AMEROUT3
IHS Changes To Pharmacy	1	APSGFUNC
IHS Changes To Scheduling	1	ASDUT
IHS Designated Provider	1	BDPCOMA
Local Area Programs	1	AZHRDEM1
PCC New Encounter Form	1	VENPCC1A
Patient Care Component Data Transmission	1	APCPDR21
Portland Private Insurance package	1	AZP3RP
Third Party Billing	1	ABMDF1E

Package	Total	Routines
Diabetes Registry	53	BDMD01 BDMD01E BDMD11 BDMD11E BDMD20 BDMD21 BDMD31 BDMD41 BDMD41E BDMD51 BDMD51E BDMD61 BDMD61E BDMD71 BDMD71E BDMD81 BDMD81E BDMD91 BDMD91E BDMD99 BDMDA1 BDMDA1E BDMDB1 BDMDB1E BDMDC1 BDMDC1E BDMDD1 BDMDD1E BDMDE1 BDMDE1E BDMDF1 BDMDF1E BDMDG1 BDMDG1E BDMDG1Y BDMP01 BDMP11 BDMP41 BDMP51 BDMP61 BDMP71 BDMP81 BDMP91 BDMPA1 BDMPB1 BDMPC1 BDMPD1 BDMPE1 BDMPF1 BDMPG1 BDMRMC BDMRML BDMVRL6
Patient Care Component Reports	31	APCLBP APCLCH1 APCLCH2 APCLD20 APCLD21 APCLD31 APCLD51 APCLD51E APCLD61 APCLD61E APCLD71 APCLD71E APCLD81 APCLD81E APCLD99 APCLDOD1 APCLDV1 APCLEL1 APCLHH1 APCLM2 APCLP51 APCLP61 APCLP71 APCLP81 APCLPIF1 APCLPIF2 APCLPSU1 APCLPVC APCLSMU APCLSMU2 APCLSRT1
Table Maintenance	23	AUM41011 AUM41031 AUM61021 AUM91151 AUM93042 AUM93052 AUM93062 AUM93072 AUM93082 AUM93102 AUM93122 AUM94022 AUM94032 AUM94052 AUM94062 AUM94072 AUM94082 AUM94122 AUM95032 AUMPR914 AUMUPD2 AUMUPD3 AUMUPDT
Mental Health Social Services	6	AMHCDBL AMHEXD2 AMHLEAR AMHLEGP AMHRLP3 AMHRPSU1
IHS Changes To ADT	5	BDGF2 BDGILD1 BDGILD5 BDGPI BDGPI1
IHS GPRA Information System	5	BGP7DGPU BGP7DL BGP8DGPU BGP8DL BGP8PCD
iCare	4	BQICASUI BQIDCAH BQIDCMYC BQIULPT
IHS Patient Registration	2	AG2B AGBIC2B
Patient Registration GUI	2	AGGUL2 AGGWTRIG
Phoenix Devel Center	2	AZXRCHS1 AZXROBL1
Women's Health	2	BWRPPCD BWRPSCR
Asthma Tracking System	1	BATBLG
Case Management System	1	ACMSRT1
IHS Designated Provider	1	BDPCOMA
IHS Mods To Text Integration Utilities	1	BTIULO
Third Party Billing	1	ABMPTPOP

Package	Total	FileMan Files
Mental Health Social Services	4	MHSS GROUP(#9002011.67)[.06] MHSS SUICIDE FORMS(#9002011.65)[.07] MHSS RECORD(#9002011)[.05] MHSS SITE PARAMETERS(#9002013)[.06, .21, .29, 1802, 1804]
Computerized Public Health Activity Data	3	BNI GROUP RECORD DEFINITION(#90510.5)[.16] BNI CPHAD ACTIVITY RECORDS(#90510)[.16] BNI CPHAD SITE PARAMETERS(#90512.01)[#90512.11101(.01)]
Contract Health Management Information System	2	CHS ALTERNATE RESOURCES(#9002072.1)[2] CHS SERVICE DELIVERY AREA(#9002073.3)[#9002073.32(.01)]
IHS Dental System	2	ADE GENERIC RECORD(#9002002.23)[1] DENTAL WATER SYSTEM(#9002004)[4]
IHS RPMS CHR System	2	CHR RECORD(#90002)[1106] CHR NON REGISTERED PATIENTS(#90002.11)[.06]
Utility Tables	2	COMMON ACCOUNTING NUMBER(#9999999.57)[.12] RPMS RESERVATION(#9999999.47)[.08]
Commitment Register	1	ARMS CAN(#9002186.5)[.12]
IHS Changes To ADT	1	CERTIFICATE OF LIVE BIRTH(#9009014)[17, 23]
IHS Changes To Lab	1	NEWBORN REGISTER(#9002081.1)[#9002081.61(.03)]
IHS Patient	1	PATIENT(#9000001)[1117, #9000001.51(.03)]
Immunization Tracking	1	BI SITE PARAMETER(#9002084.02)[#9002084.04(.01)]
Portland Private Insurance package	1	AZP PRV INS FACILITY(#2001060)[.03]
Tracking Procedure Workflow	1	CM EVENT TRACKING(#90620)[.16]
iCare	1	ICARE COMMUNITY ALERTS(#90507.6)[.01]

Package	Total	FileMan Files
Utility Tables	5	AREA(#9999999.21)[.06] COUNTY(#9999999.23)[.02] DISTRICT(#9999999.29)[.04] LOCATION(#9999999.06)[.15, .16, .17] SERVICE UNIT(#9999999.22)[.05]
Kernel	1	STATE(#5)[.03]

Fields, Total: 22

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: This field holds the name of this community. DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9999999.05^B` 1)= S ^AUTTCOM("B",$E(X,1,30),DA)="" 2)= K ^AUTTCOM("B",$E(X,1,30),DA)
.02	COUNTY	0;2	POINTER TO COUNTY FILE (#9999999.23)	**********************REQUIRED FIELD********************** COUNTY(#9999999.23) LAST EDITED: `AUG 04, 1989` HELP-PROMPT: `In what COUNTY is this COMMUNITY located?` DESCRIPTION: Enter the unique county in which this community is located. Remember there may be different states that have counties that are named the same. Be sure to select the county in the correct state. CROSS-REFERENCE: `^^TRIGGER^9999999.05^.08` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") S X=$P(Y(1),U,8) S DIU=X K Y X ^DD(9999999.05,.02,1,1,1.1) X ^DD(9999999.05,.02,1,1,1.4) 1.1)= S X=DIV X $P(^DD(9999999.05,.12993,0),U,5,99) S Y(1)=X S X=Y(1) 1.4)= S DIH=$S($D(^AUTTCOM(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.05,DIG=.08 D ^DICR:$O(^DD(DIH, DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") S X=$P(Y(1),U,8) S DIU=X K Y S X=DIV S X="" X ^DD(9999999.05,.02,1,1,2.4) 2.4)= S DIH=$S($D(^AUTTCOM(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.05,DIG=.08 D ^DICR:$O(^DD(DIH, DIG,1,0))>0 CREATE VALUE)= STCOCOMM CODE DELETE VALUE)= @ FIELD)= STCTYCOM INDEX CROSS-REFERENCE: `^^TRIGGER^9999999.05^.03` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9999999.05,.02,1,2,1.1) X ^DD(9999999.05,.02,1,2,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTCTY(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTCTY(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^AUTTCOM(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.05,DIG=.03 D ^DICR:$O(^DD(DIH, DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(9999999.05,.02,1,2,2.4) 2.4)= S DIH=$S($D(^AUTTCOM(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.05,DIG=.03 D ^DICR:$O(^DD(DIH, DIG,1,0))>0 CREATE VALUE)= COUNTY:INTERNAL(#.02) DELETE VALUE)= @ FIELD)= STATE
.03	STATE	0;3	POINTER TO STATE FILE (#5)	**********************REQUIRED FIELD********************** STATE(#5) LAST EDITED: `OCT 30, 1986` HELP-PROMPT: `THIS FIELD IS TRIGGERED. DO NOT EDIT.` WRITE AUTHORITY: ^ UNEDITABLE NOTES: `TRIGGERED by the COUNTY field of the COMMUNITY File` CROSS-REFERENCE: `^^TRIGGER^9999999.05^.08` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") S X=$P(Y(1),U,8) S DIU=X K Y X ^DD(9999999.05,.03,1,1,1.1) X ^DD(9999999.05,.03,1,1,1.4) 1.1)= S X=DIV X $P(^DD(9999999.05,.12993,0),U,5,99) S Y(1)=X S X=Y(1) 1.4)= S DIH=$S($D(^AUTTCOM(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.05,DIG=.08 D ^DICR:$O(^DD(DIH, DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") S X=$P(Y(1),U,8) S DIU=X K Y S X=DIV S X="" X ^DD(9999999.05,.03,1,1,2.4) 2.4)= S DIH=$S($D(^AUTTCOM(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.05,DIG=.08 D ^DICR:$O(^DD(DIH, DIG,1,0))>0 CREATE VALUE)= STCOCOMM CODE DELETE VALUE)= @ FIELD)= STCTYCOM INDEX
.04	DISTRICT	0;4	POINTER TO DISTRICT FILE (#9999999.29)	DISTRICT(#9999999.29) HELP-PROMPT: `In what DISTRICT is this COMMUNITY located?` DESCRIPTION: Enter the district in which this community is located. The district must already be entered locally into the DISTRICT file. The district can be used to further sort communities.
.05	SERVICE UNIT	0;5	POINTER TO SERVICE UNIT FILE (#9999999.22)	SERVICE UNIT(#9999999.22) LAST EDITED: `MAR 01, 1991` HELP-PROMPT: `What SERVICE UNIT serves this community?` DESCRIPTION: Enter the SERVICE UNIT in which this community is located.
.06	AREA	0;6	POINTER TO AREA FILE (#9999999.21)	AREA(#9999999.21) LAST EDITED: `MAR 01, 1991` HELP-PROMPT: `In what AREA is this community?` DESCRIPTION: Enter the AREA in which this community is located.
.07	CODE	0;7	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `NOV 16, 1990` HELP-PROMPT: `ANSWER MUST BE 3 NUMERIC CHARACTERS IN LENGTH` DESCRIPTION: CODE must be 3 numeric characters, and must not generate an AREA CODE_SU CODE_CODE that already exists. CROSS-REFERENCE: `^^TRIGGER^9999999.05^.08` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") S X=$P(Y(1),U,8) S DIU=X K Y X ^DD(9999999.05,.07,1,1,1.1) X ^DD(9999999.05,.07,1,1,1.4) 1.1)= S X=DIV X $P(^DD(9999999.05,.12993,0),U,5,99) S Y(1)=X S X=Y(1) 1.4)= S DIH=$S($D(^AUTTCOM(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.05,DIG=.08 D ^DICR:$O(^DD(DIH, DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") S X=$P(Y(1),U,8) S DIU=X K Y S X=DIV S X="" X ^DD(9999999.05,.07,1,1,2.4) 2.4)= S DIH=$S($D(^AUTTCOM(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.05,DIG=.08 D ^DICR:$O(^DD(DIH, DIG,1,0))>0 CREATE VALUE)= STCOCOMM CODE DELETE VALUE)= @ FIELD)= STCTYCOM INDEX
.08	STCTYCOM INDEX	0;8	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<7)!'(X?7N) X I $D(X),$D(^AUTTCOM("C",X)),'$D(^AUTTCOM("C",X,DA)) K X W:'$D(ZTQUEUED) " Already used! "` LAST EDITED: `MAY 19, 1993` HELP-PROMPT: `THIS FIELD IS TRIGGERED. DO NOT EDIT.` DESCRIPTION: This field is triggered by any change to the STATE, COUNTY, or CODE fields. The computed field .12993 is stuffed into this field. WRITE AUTHORITY: ^ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the COUNTY field of the COMMUNITY File TRIGGERED by the STATE field of the COMMUNITY File TRIGGERED by the CODE field of the COMMUNITY File CROSS-REFERENCE: `9999999.05^C` 1)= S ^AUTTCOM("C",$E(X,1,30),DA)="" 2)= K ^AUTTCOM("C",$E(X,1,30),DA)
.09	CHS DELIVERY AREA	0;9	SET	'1' FOR ON RESERVATION; '2' FOR INSIDE CHS DELIVERY AREA; '3' FOR OUTSIDE CHS DELIVERY AREA; HELP-PROMPT: `How does this community relate to a CHS delivery area?`
.11991	AREA CODE		COMPUTED	MUMPS CODE: `X ^DD(9999999.05,.11991,9.3) S X=$P(Y(9999999.05,.11991,101),U,2) S D0=Y(9999999.05,.11991,2)` 9.2 = S Y(9999999.05,.11991,2)=$S($D(D0):D0,1:""),Y(9999999.05,.11991,1)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") 9.3 = X ^DD(9999999.05,.11991,9.2) S D0=$P(Y(9999999.05,.11991,1),U,6) S:'$D(^AUTTAREA(+D0,0)) D0=-1 S Y(9999999.05,.11991,101)=$S($D(^AUTTAREA(D0,0)):^(0),1:"") ALGORITHM: `AREA:CODE` LAST EDITED: `JUL 31, 1985`
.11992	SU CODE		COMPUTED	MUMPS CODE: `X ^DD(9999999.05,.11992,9.3) S X=$P(Y(9999999.05,.11992,101),U,3) S D0=Y(9999999.05,.11992,2)` 9.2 = S Y(9999999.05,.11992,2)=$S($D(D0):D0,1:""),Y(9999999.05,.11992,1)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") 9.3 = X ^DD(9999999.05,.11992,9.2) S D0=$P(Y(9999999.05,.11992,1),U,5) S:'$D(^AUTTSU(+D0,0)) D0=-1 S Y(9999999.05,.11992,101)=$S($D(^AUTTSU(D0,0)):^(0),1:"") ALGORITHM: `SERVICE UNIT:CODE` LAST EDITED: `JUL 31, 1985`
.12991	ST CODE		COMPUTED	MUMPS CODE: `X ^DD(9999999.05,.12991,9.3) S X=$P(Y(9999999.05,.12991,101),U,3) S D0=Y(9999999.05,.12991,2)` 9.2 = S Y(9999999.05,.12991,2)=$S($D(D0):D0,1:""),Y(9999999.05,.12991,1)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") 9.3 = X ^DD(9999999.05,.12991,9.2) S D0=$P(Y(9999999.05,.12991,1),U,3) S:'$D(^DIC(5,+D0,0)) D0=-1 S Y(9999999.05,.12991,101)=$S($D(^DIC(5,D0,0)):^(0),1:"") ALGORITHM: `STATE:CODE` LAST EDITED: `JUL 31, 1985`
.12992	CTY CODE		COMPUTED	MUMPS CODE: `X ^DD(9999999.05,.12992,9.3) S X=$P(Y(9999999.05,.12992,101),U,3) S D0=Y(9999999.05,.12992,2)` 9.2 = S Y(9999999.05,.12992,2)=$S($D(D0):D0,1:""),Y(9999999.05,.12992,1)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") 9.3 = X ^DD(9999999.05,.12992,9.2) S D0=$P(Y(9999999.05,.12992,1),U,2) S:'$D(^AUTTCTY(+D0,0)) D0=-1 S Y(9999999.05,.12992,101)=$S($D(^AUTTCTY(D0,0)):^(0),1:"") ALGORITHM: `COUNTY:CODE` LAST EDITED: `JUL 31, 1985`
.12993	STCOCOMM CODE		COMPUTED	MUMPS CODE: `X ^DD(9999999.05,.12993,9.2) S Y(9999999.05,.12993,3)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") S X=Y(9999999.05,.12993,1)_Y(9999999.05,.12993,2)_$P(Y(9999999.05,.12993,3),U,7)` 9.2 = X $P(^DD(9999999.05,.12991,0),U,5,99) S Y(9999999.05,.12993,1)=X X $P(^DD(9999999.05,.12992,0),U,5,99) S Y(9999999.05,.12993,2)=X ALGORITHM: `ST CODE_CTY CODE_CODE`
.13991	DISTRICT CODE		COMPUTED	MUMPS CODE: `X ^DD(9999999.05,.13991,9.3) S X=$P(Y(9999999.05,.13991,101),U,2) S D0=Y(9999999.05,.13991,2)` 9.2 = S Y(9999999.05,.13991,2)=$S($D(D0):D0,1:""),Y(9999999.05,.13991,1)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") 9.3 = X ^DD(9999999.05,.13991,9.2) S D0=$P(Y(9999999.05,.13991,1),U,4) S:'$D(^AUTTDST(+D0,0)) D0=-1 S Y(9999999.05,.13991,101)=$S($D(^AUTTDST(D0,0)):^(0),1:"") ALGORITHM: `DISTRICT:CODE` LAST EDITED: `JUL 31, 1985`
.14	SHORT NAME	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-15 CHARACTERS IN LENGTH`
.15	LOCAL FACILITY	0;15	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `MAR 06, 1996` HELP-PROMPT: `Enter the facility most likely to be used by this Community.` DESCRIPTION: This is usually the facility that is closest to the Community.
.16	SECONDARY FACILITY	0;16	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `MAR 06, 1996` HELP-PROMPT: `Enter the 2nd most likely facility to be used by this Community.` DESCRIPTION: If members of this community could not use the Local Facility, what facility would they most likely use?
.17	TERTIARY FACILITY	0;17	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `MAR 06, 1996` HELP-PROMPT: `What is the 3rd most likely facility for this Community?` DESCRIPTION: If the LOCAL and SECONDARY facilities were not used, what facility would this community most likely use?
.18	INACTIVE DATE	88;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `AUG 10, 2009` HELP-PROMPT: `(No range limit on date)` TECHNICAL DESCR: This field is usually populated by AUM patches, reflecting updates to the IHS Standard Code Book.
1101	OTHER NAME	11;0	Multiple #9999999.0511	9999999.0511
8801	MNEMONIC	88;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X` LAST EDITED: `DEC 16, 1985` HELP-PROMPT: `ANSWER MUST BE 1-2 CHARACTERS IN LENGTH` DESCRIPTION: Enter a one or two character "identifier" which can be used to select this community during a lookup. CROSS-REFERENCE: `9999999.05^B^MNEMONIC` 1)= S ^AUTTCOM("B",$E(X,1,30),DA)=1 2)= K ^AUTTCOM("B",$E(X,1,30),DA)

Customize PDF page

Package: Utility Tables

Global: ^AUTTCOM

Information

Description

Directly Accessed By Routines, Total: 211

Accessed By FileMan Db Calls, Total: 140

Pointed To By FileMan Files, Total: 23

Pointer To FileMan Files, Total: 6

Fields, Total: 22