Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^AUTTCTY

Package: Utility Tables

Global: ^AUTTCTY

Information

FileMan FileNo	FileMan Filename	Package
9999999.23	COUNTY	Utility Tables

Description

Changes to this data dictionary should be coordinated thru the IHS DBA. Entries in this file reflect values in the IHS Standard Code Book, Section V-B, State - County. Additions or modifications should not be made locally. Monthly updates (if required) are provided by the IHS DBA thru the patch module.

Directly Accessed By Routines, Total: 29

Package	Total	Routines
IHS GPRA Information System	12	BGP0DNE BGP1DNE BGP2DNE BGP3DNE BGP7DNE BGP7DNE0 BGP7DNE1 BGP7DNE8 BGP7DNE9 BGP8DNE BGP8DNE1 BGP9DNE
IHS Patient Registration	7	AGBIC2B AGBIC2C AGFACE AGMCDP AGMCDPC AGMCDPCM AGMCDPN
Contract Health Management Information System	3	ACHSRELG ACHSSDA ACHSUDF
Table Maintenance	3	AUMSCBA AUMSCBT AUMUPD3
IHS HIV Management System	1	BKMVQCR
Patient Chart	1	BPCPC1
Third Party Billing	1	ABMDF1E
Utility Tables	1	AUTTFIPS

Accessed By FileMan Db Calls, Total: 29

Package	Total	Routines
Table Maintenance	27	AUM41011 AUM41031 AUM61021 AUM91102 AUM91112 AUM91151 AUM93041 AUM93051 AUM93061 AUM93071 AUM93081 AUM93101 AUM93121 AUM94021 AUM94031 AUM94051 AUM94061 AUM94071 AUM94081 AUM94121 AUM95031 AUMPR914 AUMSCBA AUMSCBT AUMUPD2 AUMUPD3 AUMUPDT
Patient Care Component Reports	2	APCLSMU APCLSMU2

Pointed To By FileMan Files, Total: 8

Package	Total	FileMan Files
Utility Tables	4	COMMON ACCOUNTING NUMBER(#9999999.57)[.08] COMMUNITY(#9999999.05)[.02] GEOGRAPHICAL LOCATION(#9999999.79)[.05] RPMS RESERVATION(#9999999.47)[.07]
Commitment Register	1	ARMS CAN(#9002186.5)[.08]
Contract Health Management Information System	1	CHS SERVICE DELIVERY AREA(#9002073.3)[#9002073.31(.01)]
IHS Medicaid Eligibility Download	1	BME MEDICAID COUNTY SCREEN(#90331)[.01]
Local Area Programs	1	AZA MEDICAID ELIGIBLE (COUNTY SCREEN)(#1180004)[.01]

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
Kernel	1	STATE(#5)[.02]

Fields, Total: 11

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` LAST EDITED: `OCT 07, 1994` HELP-PROMPT: `Answer must be 3-30 characters in length.` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9999999.23^B` 1)= S ^AUTTCTY("B",$E(X,1,30),DA)="" 2)= K ^AUTTCTY("B",$E(X,1,30),DA)
.02	STATE	0;2	POINTER TO STATE FILE (#5)	**********************REQUIRED FIELD********************** STATE(#5) CROSS-REFERENCE: `^^TRIGGER^9999999.23^.04` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTCTY(D0,0)):^(0),1:"") S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(9999999.23,.02,1,1,1.1) X ^DD(9999999.23,.02,1,1,1.4) 1.1)= S X=DIV X $P(^DD(9999999.23,.0299,0),U,5,99) S Y(1)=X S Y(2)=$S($D(^AUTTCTY(D0,0)):^(0),1:"") S X=Y(1)_$P(Y(2),U,3) 1.4)= S DIH=$S($D(^AUTTCTY(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.23,DIG=.04 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(^AUTTCTY(D0,0)):^(0),1:"") S X=$P(Y(1),U,4) S DIU=X K Y S X=DIV S X="" X ^DD(9999999.23,.02,1,1,2.4) 2.4)= S DIH=$S($D(^AUTTCTY(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.23,DIG=.04 D ^DICR:$O(^DD(DIH, DIG,1,0))>0 CREATE VALUE)= STATE CODE_CODE DELETE VALUE)= @ FIELD)= STCTY INDEX
.0299	STATE CODE		COMPUTED	MUMPS CODE: `X ^DD(9999999.23,.0299,9.3) S X=$P(Y(9999999.23,.0299,101),U,3) S D0=Y(9999999.23,.0299,2)` 9.2 = S Y(9999999.23,.0299,2)=$S($D(D0):D0,1:""),Y(9999999.23,.0299,1)=$S($D(^AUTTCTY(D0,0)):^(0),1:"") 9.3 = X ^DD(9999999.23,.0299,9.2) S D0=$P(Y(9999999.23,.0299,1),U,2) S:'$D(^DIC(5,+D0,0)) D0=-1 S Y(9999999.23,.0299,101)=$S($D(^DIC(5,D0,0)):^(0),1:"") ALGORITHM: `STATE:CODE` LAST EDITED: `JUL 31, 1985`
.03	CODE	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `APR 25, 2013` HELP-PROMPT: `ANSWER MUST BE 2 ALPHANUMERIC CHARACTERS IN LENGTH` DESCRIPTION: CODE must be two alphanumeric characters, and must not generate an AREA CODE_CODE that already exists. CROSS-REFERENCE: `^^TRIGGER^9999999.23^.04` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTCTY(D0,0)):^(0),1:"") S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(9999999.23,.03,1,1,1.1) X ^DD(9999999.23,.03,1,1,1.4) 1.1)= S X=DIV X $P(^DD(9999999.23,.0299,0),U,5,99) S Y(1)=X S X=Y(1)_DIV 1.4)= S DIH=$S($D(^AUTTCTY(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.23,DIG=.04 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(^AUTTCTY(D0,0)):^(0),1:"") S X=$P(Y(1),U,4) S DIU=X K Y S X=DIV S X="" X ^DD(9999999.23,.03,1,1,2.4) 2.4)= S DIH=$S($D(^AUTTCTY(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=9999999.23,DIG=.04 D ^DICR:$O(^DD(DIH, DIG,1,0))>0 CREATE VALUE)= STATE CODE_CODE DELETE VALUE)= @ FIELD)= STCTY INDEX
.0399	STCTY CODE		COMPUTED	MUMPS CODE: `X $P(^DD(9999999.23,.0299,0),U,5,99) S Y(9999999.23,.0399,1)=X S Y(9999999.23,.0399,2)=$S($D(^AUTTCTY(D0,0)):^(0),1:"") S X=Y(9999999.23,.0399,1)_$P(Y(9999999.23,.0399,2),U,3)` ALGORITHM: `STATE CODE_CODE` LAST EDITED: `JUL 31, 1985`
.04	STCTY INDEX	0;4	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4)!'(X?4N) X I $D(X),$D(^AUTTCTY("C",X)),'$D(^AUTTCTY("C",X,DA)) K X W:'$D(ZTQUEUED) " Already used! "` LAST EDITED: `MAY 19, 1993` HELP-PROMPT: `GENERATED` WRITE AUTHORITY: ^ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the STATE field of the COUNTY File TRIGGERED by the CODE field of the COUNTY File CROSS-REFERENCE: `9999999.23^C` 1)= S ^AUTTCTY("C",$E(X,1,30),DA)="" 2)= K ^AUTTCTY("C",$E(X,1,30),DA)
.05	HSDA INDICATOR	0;5	SET	'Y' FOR YES; LAST EDITED: `JUN 02, 1988` HELP-PROMPT: `ENTER "YES" IF THIS COUNTY IS WITHIN A HEALTH SERVICE DELIVERY AREA (HSDA)`
.06	FIPS CODE	0;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `MAR 04, 1992` HELP-PROMPT: `Answer must be 3 characters in length.`
.07	INCITS CODE	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `MAY 24, 2013` HELP-PROMPT: `Enter the three-digit INCITS code for this county.`
.08	INACTIVE DATE	0;8	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `APR 19, 2013` HELP-PROMPT: `Enter date this county was inactivated.` CROSS-REFERENCE: `^^TRIGGER^9999999.23^.09` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTCTY(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X="I" S DIH=$G(^AUTTCTY(DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=9999999.23,DIG=.09 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTCTY(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" S DIH=$G(^AUTTCTY(DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=9999999.23,DIG=.09 D ^DICR CREATE VALUE)= S X="I" DELETE VALUE)= @ FIELD)= INACTIVE FLAG
.09	INACTIVE FLAG	0;9	SET	'I' FOR INACTIVE; LAST EDITED: `MAY 17, 2013` DESCRIPTION: SERVES AS AN 'INACTIVE' FLAG TO DISPLAY AS AN IDENTIFIER FOR USE BY DATA ENTRY STAFF. WRITE AUTHORITY: ^ UNEDITABLE NOTES: `TRIGGERED by the INACTIVE DATE field of the COUNTY File`

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | All