Sub-Field: 9002031.244

Parent File	Name	Number	Package
9002031.02	EXPIRATION DATE	9002031.244	Supply

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	EXPIRATION DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 27, 1997` HELP-PROMPT: `Enter expiration date of item` CROSS-REFERENCE: `9002031.244^B` 1)= S ^ASUMS(DA(2),1,DA(1),4,"B",$E(X,1,30),DA)="" 2)= K ^ASUMS(DA(2),1,DA(1),4,"B",$E(X,1,30),DA)
.02	EXPIRATION QUANTITY	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 27, 1997` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits`

EXPIRATION DATE

0;1

DATE

CROSS-REFERENCE: 9002031.244^B

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

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

EXPIRATION QUANTITY

0;2

NUMBER