Global: ^DG(406.41

Information

FileMan FileNo	FileMan Filename	Package
406.41	LODGING REASON	Registration

This file holds all site determined reasons why a patient may be lodged at a facility.

Package	Total	Routines
Registration	3	^DG(406.41 DGPMOLD1 DGPMV20

Package	Total	Routines
Registration	1	DGPMV35

Package	Total	FileMan Files
Registration	1	PATIENT MOVEMENT(#405)[30.01]

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` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: Enter the reason why a patient may be lodged. DELETE TEST: `.01,0)= I 1 W *7," You can not delete reasons for lodging!"` CROSS-REFERENCE: `406.41^B` 1)= S ^DG(406.41,"B",$E(X,1,30),DA)="" 2)= K ^DG(406.41,"B",$E(X,1,30),DA)
9999999.1	TYPE	IHS;1	SET	**********************REQUIRED FIELD********************** '0' FOR LODGER; '1' FOR OBSERVATION; '2' FOR UNESCORTED; LAST EDITED: `APR 16, 1993` HELP-PROMPT: `Menu driven values`

NAME

0;1

FREE TEXT

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

DESCRIPTION:

Enter the reason why a patient may be lodged.

CROSS-REFERENCE: 406.41^B

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

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

TYPE

IHS;1

SET

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

Name	Line Occurrences (* Changed, ! Killed)
^DG(406.41 - [#406.41]	.01(XREF 1S), .01(XREF 1K)

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K)