Sub-Field: 9002037.12

Information

Parent File	Name	Number	Package
9002037.01	VOUCHERS	9002037.12	Supply

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	VOUCHER SERIAL NUMBER	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<10)!'(X?2N.1"-".2N.1"-".4N) X` LAST EDITED: `FEB 09, 1998` HELP-PROMPT: `Answer must be 10 characters in length.` CROSS-REFERENCE: `9002037.12^B` 1)= S ^ASUMC(DA(2),1,DA(1),2,"B",$E(X,1,30),DA)="" 2)= K ^ASUMC(DA(2),1,DA(1),2,"B",$E(X,1,30),DA)
1	ACCOUNT	1;0	POINTER Multiple #9002037.121	9002037.121

VOUCHER SERIAL NUMBER

0;1

FREE TEXT

CROSS-REFERENCE: 9002037.12^B

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

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

1 ACCOUNT 1;0 POINTER Multiple #9002037.121 9002037.121