Sub-Field: 9002140.04

Parent File	Name	Number	Package
DPS IBM RECORD CONTROL(#9002140)	NODES	9002140.04	IBM DDPS Record Consolidation

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NODE ID	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<2) X` LAST EDITED: `DEC 22, 1988` HELP-PROMPT: `ANSWER MUST BE 2-3 CHARACTERS IN LENGTH` CROSS-REFERENCE: `9002140.04^B` 1)= S ^AIBCVTC(DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^AIBCVTC(DA(1),1,"B",$E(X,1,30),DA)
1	NODE ORDER	0;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 1 and 10, 0 Decimal Digits` CROSS-REFERENCE: `9002140.04^C` 1)= S ^AIBCVTC(DA(1),1,"C",$E(X,1,30),DA)="" 2)= K ^AIBCVTC(DA(1),1,"C",$E(X,1,30),DA)
2	FIELDS	1;0	Multiple #9002140.42	9002140.42

NODE ID

0;1

FREE TEXT

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9002140.04^B

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

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

NODE ORDER

0;2

NUMBER

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9002140.04^C

1)= S ^AIBCVTC(DA(1),1,"C",$E(X,1,30),DA)=""

2)= K ^AIBCVTC(DA(1),1,"C",$E(X,1,30),DA)

2 FIELDS 1;0 Multiple #9002140.42 9002140.42