Global: ^AUTTASRC

Information

FileMan FileNo	FileMan Filename	Package
9999999.53	ADMISSION SOURCE	Utility Tables

DATA DICTIONARY: This is a standard RPMS data dictionary, maintained in the AUT package. Changes to this data dictionary must be submitted to the RPMS DBA. ENTRIES IN THIS FILE: ADMISSION SOURCE contains data on the subject from the UB92 definitions. Adds/edits to the data will be distributed through the RPMS DBA, using standard AUM updates. HISTORY: This file was created in June, 1999, at the request of ANMC, in need of using admission sources from the UB92. This information was previously in field 6102 of V HOSPITALIZATION, as type SET, but was unable to accommodate all the admission sources as a SET. Field 6102 in V HOSPITALIZATION was never used, so no data conversion was created. February, 2000 - Distributed in AUT*98.1*5, in support of the needs of AUPN and APCD. 14 entries were included.

Package	Total	Routines
IHS Changes To ADT	1	BDGF1
IHS GPRA Information System	1	BGPMUH01

Package	Total	Routines
IHS Changes To ADT	2	BDGAPI BDGAPI2

Package	Total	FileMan Files
IHS Patient	1	V HOSPITALIZATION(#9000010.02)[6102]
Registration	1	PATIENT MOVEMENT(#405)[9999999.06]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `AUG 30, 2006` HELP-PROMPT: `Answer must be 3-40 characters in length` CROSS-REFERENCE: `9999999.53^B` 1)= S ^AUTTASRC("B",$E(X,1,30),DA)="" 2)= K ^AUTTASRC("B",$E(X,1,30),DA)
.02	UB92 CODE	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `JUL 28, 1999` HELP-PROMPT: `Answer must be 1-3 characters in length.` CROSS-REFERENCE: `9999999.53^C` 1)= S ^AUTTASRC("C",$E(X,1,30),DA)="" 2)= K ^AUTTASRC("C",$E(X,1,30),DA) 3)= USED FOR LOOKUP
1	DESCRIPTION	1;0	WORD-PROCESSING #9999999.531

NAME

0;1

FREE TEXT

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

CROSS-REFERENCE: 9999999.53^B

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

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

UB92 CODE

0;2

FREE TEXT

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

CROSS-REFERENCE: 9999999.53^C

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

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

3)= USED FOR LOOKUP

1 DESCRIPTION 1;0 WORD-PROCESSING #9999999.531