Global: ^DIC(43.9

FileMan FileNo	FileMan Filename	Package
43.9	MOVEMENT TYPE	Registration

Package	Total	FileMan Files
Registration	3	ADMISSION TYPE(#42.1)[.06] DISCHARGE TYPE(#42.2)[.06] *TRANSFER TYPE(#42.3)[.06]

Fields, Total: 5

Field #	Name	Loc	Type	Details
.001	ENTRY NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 19, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 100`
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` CROSS-REFERENCE: `43.9^B` 1)= S ^DIC(43.9,"B",$E(X,1,30),DA)="" 2)= K ^DIC(43.9,"B",$E(X,1,30),DA)
.02	TRANSACTION	0;2	SET	'1' FOR ADMISSION; '2' FOR DISCHARGE; '3' FOR TRANSFER; LAST EDITED: `JUN 28, 1985` HELP-PROMPT: `Enter transaction type this movement type applies to.`
1	DESCRIPTION	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<4) X` LAST EDITED: `JUL 03, 1985` HELP-PROMPT: `ANSWER MUST BE 4-245 CHARACTERS IN LENGTH`
9	TRANSFERS THAT CANNOT PRECEED	9;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>132!($L(X)<1) X` OUTPUT TRANSFORM: `S %=$S(Y="":"",Y:"CAN FOLLOW ONLY",1:"CANNOT FOLLOW") X "F %A=2:1 S %B=$P(Y,U,%A) Q:'%B S %=%_"" ""_$P(^DIC(43.9,%B,0),U,1)" S Y=%` LAST EDITED: `AUG 14, 1985` HELP-PROMPT: `ANSWER MUST BE 1-132 CHARACTERS IN LENGTH`