Sub-Field: 405.9003

Parent File	Name	Number	Package
MAS V5 CONVERSION [TEMPORARY](#405.9)	ROOM (OLD)	405.9003	Registration

Details

Field #	Name	Loc	Type	Details
.01	ROOM (OLD)	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `APR 03, 1990` HELP-PROMPT: `Answer must be 1-9 characters in length.` CROSS-REFERENCE: `405.9003^B` 1)= S ^DG5(DA(1),"RE","B",$E(X,1,30),DA)="" 2)= K ^DG5(DA(1),"RE","B",$E(X,1,30),DA)
2	BED (OLD)	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1) X` LAST EDITED: `APR 03, 1990` HELP-PROMPT: `Answer must be 1-2 characters in length.`
3	WARD (OLD)	0;3	POINTER TO WARD LOCATION FILE (#42)	WARD LOCATION(#42) LAST EDITED: `APR 04, 1990` CROSS-REFERENCE: `405.9003^R^MUMPS` 1)= S ^DG5(DA(1),"RE","R",X,$P(^DG5(DA(1),"RE",DA,0),U,1)_"-"_$P(^(0),U,2),+$P(^(0),U,4))="" 2)= K ^DG5(DA(1),"RE","R",X,$P(^DG5(DA(1),"RE",DA,0),U,1)_"-"_$P(^(0),U,2),+$P(^(0),U,4))
4	ROOM-BED (NEW)	0;4	POINTER TO ROOM-BED FILE (#405.4)	ROOM-BED(#405.4) LAST EDITED: `APR 16, 1990`