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: ^AUTTGL

Package: Utility Tables

Global: ^AUTTGL

Information

FileMan FileNo	FileMan Filename	Package
9999999.79	GEOGRAPHICAL LOCATION	Utility Tables

Description

Changes to this data dictionary should be coordinated thru the IHS DBA. Contains the geographical information data from FIPS and DHHS publications required by the CIS.

Directly Accessed By Routines, Total: 7

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 2

Fields, Total: 7

Field #	Name	Loc	Type	Details
.01	GEOGRAPHICAL LOCATION	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `MAR 03, 1991` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9999999.79^B` 1)= S ^AUTTGL("B",$E(X,1,30),DA)="" 2)= K ^AUTTGL("B",$E(X,1,30),DA)
.02	COUNTY CODE	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3) X` LAST EDITED: `FEB 28, 1991` HELP-PROMPT: `Answer must be 3 characters in length.` CROSS-REFERENCE: `9999999.79^C` 1)= S ^AUTTGL("C",$E(X,1,30),DA)="" 2)= K ^AUTTGL("C",$E(X,1,30),DA)
.03	CITY CODE	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5) X` LAST EDITED: `NOV 12, 1991` HELP-PROMPT: `Answer must be 5 characters in length.` CROSS-REFERENCE: `9999999.79^D` 1)= S ^AUTTGL("D",$E(X,1,30),DA)="" 2)= K ^AUTTGL("D",$E(X,1,30),DA)
.04	CONGRESSIONAL DISTRICT	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X),'($L(X)=3) K X I $D(X),'(X?3N) K X W:'$D(ZTQUEUED) !!,"ALL CHARACTERS MUST BE NUMERIC. USE '099' FOR MULTIPLE CONGRESSIONAL DISTRICTS."` LAST EDITED: `MAY 19, 1993` HELP-PROMPT: `Answer must be 3 characters in length. Use '099' to indicate multiple congressional districts.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9999999.79^E` 1)= S ^AUTTGL("E",$E(X,1,30),DA)="" 2)= K ^AUTTGL("E",$E(X,1,30),DA)
.05	COUNTY	0;5	POINTER TO COUNTY FILE (#9999999.23)	COUNTY(#9999999.23) LAST EDITED: `FEB 28, 1991` CROSS-REFERENCE: `^^TRIGGER^9999999.79^.06` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTGL(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9999999.79,.05,1,1,1.1) X ^DD(9999999.79,.05,1,1,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(^AUTTGL(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9999999.79,DIG=.06 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(^AUTTGL(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9999999.79,.05,1,1,2.1) X ^DD(9999999.79,.05,1,1,2.4) 2.1)= S X=DIV X ^DD(9999999.79,.05,1,1,59.2) S Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0) 2.4)= S DIH=$S($D(^AUTTGL(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9999999.79,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUTTGL(D0,0)):^(0),1:""),D0=$P(Y(1),U,5) S:'$D(^AUTTCTY(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTCTY(D0,0)):^(0),1:"") CREATE VALUE)= #.05:INTERNAL(#.02) DELETE VALUE)= #.05:INTERNAL(#.02) FIELD)= #.06
.06	STATE	0;6	POINTER TO STATE FILE (#5)	**********************REQUIRED FIELD********************** STATE(#5) LAST EDITED: `NOV 12, 1991` NOTES: `TRIGGERED by the COUNTY field of the GEOGRAPHICAL LOCATION File`
.07	LABOR SURPLUS AREA	0;7	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `FEB 28, 1991`

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