Sub-Field: 9999999.1115

Parent File	Name	Number	Package
VENDOR(#9999999.11)	PREVIOUS EIN NO.	9999999.1115	Utility Tables

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PREVIOUS EIN NO.	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>2999999999)!(X<1000000000)!(X?.E1"."1N.N) X` LAST EDITED: `APR 01, 1995` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1000000000 AND 2999999999` CROSS-REFERENCE: `9999999.11^C-TOO` 1)= S ^AUTTVNDR("C",$E(X,1,30),DA(1),DA)="" 2)= K ^AUTTVNDR("C",$E(X,1,30),DA(1),DA)
.02	PREVIOUS EIN SUFFIX	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2) X` LAST EDITED: `APR 01, 1995` HELP-PROMPT: `ANSWER MUST BE 2 CHARACTERS IN LENGTH` CROSS-REFERENCE: `9999999.11^D-TOO^MUMPS` 1)= S ^AUTTVNDR("D",$P(^AUTTVNDR(DA(1),15,DA,0),U,1)_X,DA(1),DA)="" 2)= K ^AUTTVNDR("D",$P(^AUTTVNDR(DA(1),15,DA,0),U,1)_X,DA(1),DA)

PREVIOUS EIN NO.

0;1

NUMBER

CROSS-REFERENCE: 9999999.11^C-TOO

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

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

PREVIOUS EIN SUFFIX

0;2

FREE TEXT

CROSS-REFERENCE: 9999999.11^D-TOO^MUMPS

1)= S ^AUTTVNDR("D",$P(^AUTTVNDR(DA(1),15,DA,0),U,1)_X,DA(1),DA)=""

2)= K ^AUTTVNDR("D",$P(^AUTTVNDR(DA(1),15,DA,0),U,1)_X,DA(1),DA)