Sub-Field: 9002140.42

Parent File	Name	Number	Package
9002140.04	FIELDS	9002140.42	IBM DDPS Record Consolidation

Details

Field #	Name	Loc	Type	Details
.01	FIELD NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` HELP-PROMPT: `ANSWER WITH NAME OF FIELD TO DISPLAY IN CASE OF EDIT ERROR` CROSS-REFERENCE: `9002140.42^B` 1)= S ^AIBCVTC(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^AIBCVTC(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
1	BEGINS IN RECORD POSITION	0;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 1000, 0 Decimal Digits` CROSS-REFERENCE: `9002140.42^C` 1)= S ^AIBCVTC(DA(2),1,DA(1),1,"C",$E(X,1,30),DA)="" 2)= K ^AIBCVTC(DA(2),1,DA(1),1,"C",$E(X,1,30),DA)
2	LENGTH	0;3	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>512)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 24, 1988` HELP-PROMPT: `Type a Number between 1 and 512, 0 Decimal Digits`
3	FILL LOGIC TYPE	0;4	SET	'B' FOR BLANKS; 'N' FOR ZERO/BLANK; 'Z' FOR ZEROES; 'S' FOR STRIP ICD9 .; LAST EDITED: `SEP 14, 1988` HELP-PROMPT: `ENTER CODE REPRESENTING LOGIC TO BE USED TO SET FIELD TO PROPER LENGTH`
4	FIELD EDIT CODE	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>189!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-189 CHARACTERS IN LENGTH`
5	EXCESS LENGTH LOGIC	0;6	SET	'A' FOR ABEND; 'R' FOR REJECT RECORD; 'B' FOR BLANK OUT; HELP-PROMPT: `ENTER METHOD OF HANDLING FIELD IF INPUT LENGTH LONGER THAN FIELD`