Sub-Field: 64.61

Information

Parent File	Name	Number	Package
64.06	DATE	64.61	Lab Service

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="EP" D ^%DT S X=Y K:Y<1 X S:$D(X) X=$E(X,1,5)_"00"` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `64.61^B` 1)= S ^LAB(64.05,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^LAB(64.05,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
1	Hrs.	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>500)!(X<0)!(X?.E1"."3N.N) X` HELP-PROMPT: `Type a Number between 0 and 500, 2 Decimal Digits`

DATE

0;1

DATE

CROSS-REFERENCE: 64.61^B

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

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

Hrs.

0;2

NUMBER