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

Info | Desc | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^DIC(42.3

Package: Registration

Global: ^DIC(42.3

Information

FileMan FileNo	FileMan Filename	Package
42.3	*TRANSFER TYPE	Registration

Description

This file contains the acceptable types of transfer as used when moving a patient within the medical facility. Each transfer type, with the exception of INTERWARD, must have an associated movement type otherwise it will be treated as an interward for G&L and statistical purposes. The data in this file will be incorporated into the FACILITY MOVEMENT file in a future release.

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 3

Fields, Total: 11

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 19, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999`
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `ANSWER MUST BE 3-40 CHARACTERS IN LENGTH` CROSS-REFERENCE: `42.3^B` 1)= S ^DIC(42.3,"B",$E(X,1,30),DA)="" 2)= K ^DIC(42.3,"B",$E(X,1,30),DA)
.03	ACTIVE	0;3	SET	**********************REQUIRED FIELD********************** '0' FOR NO; '1' FOR YES; HELP-PROMPT: `Enter '0' if this transfer type is not to be used, '1' if it is to be used.`
.04	ASK TREATING SPECIALTY	0;4	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `SEP 16, 1984` HELP-PROMPT: `If an inpatient is transferred and a Treating Specialty will apply, then enter 'Y'. If Treating Specialty does not apply, as in an absence, then enter 'N'.`
.05	FOLLOW ADMISSION?	0;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 17, 1985` HELP-PROMPT: `Can this transfer type follow an admission?`
.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)=3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 09, 1985` HELP-PROMPT: `Enter the standard movement type to consider this transfer otherwise it will be considered as an interward transfer` SCREEN: `S DIC("S")="I $P(^(0),U,2)=3"` EXPLANATION: `Only transfer movements` CROSS-REFERENCE: `42.3^AM` 1)= S ^DIC(42.3,"AM",$E(X,1,30),DA)="" 2)= K ^DIC(42.3,"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)=2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 02, 1990` HELP-PROMPT: `Enter pointer to MAS MOVEMENT TYPE file.` DESCRIPTION: `With version 5.0, there will be a new, expanded list of movement types allowable. All existing movement types will be moved to the new file, but, in addition, there will be several new movement types. If you would like` to take advantage of any of these new types, enter your choice here and, during the conversion, this new movement type will be utilized. This will save considerable time during the conversion process itself if entered beforehand. Should you decide to leave this field blank, the existing movement type will remain with version 5.0. SCREEN: `S DIC("S")="I $P(^(0),""^"",2)=2"` EXPLANATION: `Only transfer movement types selectable.`
.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 abbreviated name to appear on outputs.`
.1	DEFAULT TRANSFER TO FOLLOW	0;10	POINTER TO *TRANSFER TYPE FILE (#42.3)	*TRANSFER TYPE(#42.3) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3),'$D(^DIC(42.3,+Y,1,DA,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 07, 1986` HELP-PROMPT: `Enter transfer type that will be prompted as the default to follow this transfer` SCREEN: `S DIC("S")="I $P(^(0),U,3),'$D(^DIC(42.3,+Y,1,DA,0))"` EXPLANATION: `Only for transfers that do not specify this one in its tranfers that cannot preceed field`
1	TRANSFERS THAT CANNOT PRECEED	1;0	POINTER Multiple #42.31	42.31 DESCRIPTION: The transfer type that cannot preceed this transfer type
1412	*LOSS/NONLOSS/GAIN	NL;1	SET	'L' FOR LOSS; 'G' FOR GAIN; 'N' FOR NONLOSS; 'B' FOR BOTH;

Found Entries, Total: 6

Info | Desc | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | All