Sub-Field: 9001005.31101

Parent File	Name	Number	Package
PCC DATA TRANS RECORD DEF(#9001005.3)	ITEMS	9001005.31101	Patient Care Component

Details

Field #	Name	Loc	Type	Details
.01	PIECE	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 11, 1996` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` CROSS-REFERENCE: `9001005.31101^B` 1)= S ^APCPREC(DA(1),11,"B",$E(X,1,30),DA)="" 2)= K ^APCPREC(DA(1),11,"B",$E(X,1,30),DA)
.02	ITEM	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `DEC 02, 1998` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `9001005.31101^C` 1)= S ^APCPREC(DA(1),11,"C",$E(X,1,30),DA)="" 2)= K ^APCPREC(DA(1),11,"C",$E(X,1,30),DA)
.03	ORYX/GRPA	0;3	SET	'1' FOR YES; LAST EDITED: `APR 09, 2002` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits`
.04	END COLUMN	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 11, 1996` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`
1	VALUE (X)	1;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `APR 11, 1996` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @