Global: ^AUTTDST

FileMan FileNo	FileMan Filename	Package
9999999.29	DISTRICT	Utility Tables

FileMan FileNo

FileMan Filename

Package

9999999.29

DISTRICT

Changes to this data dictionary should be coordinated thru the IHS DBA. Communities are generally identified by AREA-SERVICE UNIT-COMMUNITY and/or STATE-COUNTY-COMMUNITY. Some Areas may want to include an additional grouping of communities in the COMMUNITY file. If so, a district pointer must be included in the COMMUNITY file which points to an entry in this file. This file contains the district name and a Two Digit code.

Package	Total	FileMan Files
Utility Tables	1	COMMUNITY(#9999999.05)[.04]

Package

Total

FileMan Files

Fields, Total: 2

Field # Name Loc Type Details

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: Enter the name of this district. DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9999999.29^B` 1)= S ^AUTTDST("B",$E(X,1,30),DA)="" 2)= K ^AUTTDST("B",$E(X,1,30),DA)
.02	CODE	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?2N) X I $D(X),$D(^AUTTDST("C",X)),'$D(^AUTTDST("C",X,DA)) K X W:'$D(ZTQUEUED) " Already used! "` LAST EDITED: `MAY 19, 1993` HELP-PROMPT: `ANSWER MUST BE 2 CHARACTERS IN LENGTH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9999999.29^C` 1)= S ^AUTTDST("C",$E(X,1,30),DA)="" 2)= K ^AUTTDST("C",$E(X,1,30),DA)

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9999999.29^B

1)= S ^AUTTDST("B",$E(X,1,30),DA)=""

2)= K ^AUTTDST("B",$E(X,1,30),DA)

CODE

0;2

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?2N) X I $D(X),$D(^AUTTDST("C",X)),'$D(^AUTTDST("C",X,DA)) K X W:'$D(ZTQUEUED) " Already used! "
LAST EDITED: MAY 19, 1993
HELP-PROMPT: ANSWER MUST BE 2 CHARACTERS IN LENGTH
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 9999999.29^C

1)= S ^AUTTDST("C",$E(X,1,30),DA)=""

2)= K ^AUTTDST("C",$E(X,1,30),DA)