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 | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | External References | Global Variables Directly Accessed | Local Variables | All

Print Page as PDF

Global: ^DIC(42.1

Package: Registration

Global: ^DIC(42.1

Information

FileMan FileNo	FileMan Filename	Package
42.1	*ADMISSION TYPE	Registration

Description

This file holds a list of Admission types which are used when setting ADT Parameters and admitting a patient. When initializing your ADT system it is important that you review these admission types and determine which types are to be used by your facility by setting the ACTIVE field to '0' if not used at your facility or '1' if used. The information in this file is planned to be incorporated into the FACILITY MOVEMENT file in a future release.

Directly Accessed By Routines, Total: 5

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 2

Fields, Total: 6

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `42.1^B` 1)= S ^DIC(42.1,"B",$E(X,1,30),DA)="" 2)= K ^DIC(42.1,"B",$E(X,1,30),DA)
.03	ACTIVE	0;3	SET	'0' FOR NO; '1' FOR YES; HELP-PROMPT: `Enter '0' if you do not want to use this admission type, '1' if you do want to use it.`
.06	MOVEMENT TYPE	0;6	POINTER TO MOVEMENT TYPE FILE (#43.9)	MOVEMENT TYPE(#43.9) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 09, 1985` SCREEN: `S DIC("S")="I $P(^(0),U,2)=1"` EXPLANATION: `Only admission types` CROSS-REFERENCE: `42.1^AM` 1)= S ^DIC(42.1,"AM",$E(X,1,30),DA)="" 2)= K ^DIC(42.1,"AM",$E(X,1,30),DA)
.07	POINT TO MAS MOVEMENT TYPE	0;7	POINTER TO MAS MOVEMENT TYPE FILE (#405.2)	MAS MOVEMENT TYPE(#405.2) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),""^"",2)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 03, 1990` HELP-PROMPT: `Enter from the list of new movement types allowable by MAS.` DESCRIPTION: `This field is being provided prior to version 5.0 to allow entry of the new MAS MOVEMENT TYPE file pointer. Prior to version 5.0, the MOVEMENT TYPE (as defined in field .06 of this file) was a pointer to file 43.9 (the` MOVEMENT TYPE file). It will now be a pointer to file 405.2 (the MAS MOVEMENT TYPE file). There are several additional entries in this new file, so you may wish to consider changing your present movement type pointer for version 5.0. Do not change the pointer in the .06 field. No changes should be made prior to version 5.0. However, upon installation of version 5.0, if you would like to utilize one of the new movement types, enter that type here. If there is nothing entered in this field, the conversion process will assume that you would like to leave the admission type unchanged. For example, AMBULATORY CARE (OPT-AC) is a new admission type. If you have a local admission type of OPT-AC, you may wish to point to this new admission type rather than the one you had previously chosen. SCREEN: `S DIC("S")="I $P(^(0),""^"",2)=1"` EXPLANATION: `Only admission movement types allowed`
.08	PRINT NAME	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `AUG 02, 1990` HELP-PROMPT: `Answer must be 3-20 characters in length. Enter the abbreviated form of this admission type you would like to see appear on outputs.` DESCRIPTION: `Enter an abbreviated name for this movement type. It will appear on extended patient inquiry, extended bed control, and other options. If nothing is entered here, an extract of the first 20 characters of the full name` will appear on these outputs which may not properly reflect the uniqueness of a movement.
9999999.01	IHS CODE	9999999;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1)!'(X?1N) X` LAST EDITED: `MAY 07, 1987` HELP-PROMPT: `ANSWER MUST BE 1 NUMERIC CHARACTER IN LENGTH` CROSS-REFERENCE: `42.1^CIHS` 1)= S ^DIC(42.1,"CIHS",$E(X,1,30),DA)="" 2)= K ^DIC(42.1,"CIHS",$E(X,1,30),DA)

Found Entries, Total: 5

External References

Global Variables Directly Accessed

Local Variables

Info | Desc | Directly Accessed By Routines | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | External References | Global Variables Directly Accessed | Local Variables | All