Sub-Field: 9009080.018

Information

Parent File	Name	Number	Package
ER VISIT(#9009080)	HER TRANSFER FACILITY	9009080.018	Emergency Room

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X` LAST EDITED: `APR 06, 2000` HELP-PROMPT: `Answer must be 1-7 characters in length.` CROSS-REFERENCE: `9009080.018^B` 1)= S ^AMERVSIT(DA(1),18,"B",$E(X,1,30),DA)="" 2)= K ^AMERVSIT(DA(1),18,"B",$E(X,1,30),DA)
.02	ROLE	0;2	SET	'A' FOR TRANSFERRED FROM; 'B' FOR AUTHORIZED BY; 'C' FOR BYPASSED; 'D' FOR TRANSFERRED TO; LAST EDITED: `APR 06, 2000`

CODE

0;1

FREE TEXT

CROSS-REFERENCE: 9009080.018^B

1)= S ^AMERVSIT(DA(1),18,"B",$E(X,1,30),DA)=""

2)= K ^AMERVSIT(DA(1),18,"B",$E(X,1,30),DA)

ROLE

0;2

SET