Sub-Field: 68.21

Parent File	Name	Number	Package
LOAD/WORK LIST(#68.2)	RUN or TRAY NUMBER	68.21	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	RUN or TRAY NUMBER	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99` DESCRIPTION: `Cannot be altered except by programmer.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	DATE	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` DESCRIPTION: `The date part of the run number.`
3	TECH.	0;3	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^XUSEC(""LRLAB"",Y))" D ^DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `SEP 23, 2004` DESCRIPTION: `Points to the USER file that have the 'LRLAB' security key assigned.` SCREEN: `S DIC("S")="I $D(^XUSEC(""LRLAB"",Y))"` EXPLANATION: `ONLY USER GROUP LAB`
4	ACCESSION AREA	0;4	POINTER TO ACCESSION FILE (#68)	**********************REQUIRED FIELD********************** ACCESSION(#68) INPUT TRANSFORM: `S DIC("S")="I '$L($P(^(0),U,17))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 06, 1992` SCREEN: `S DIC("S")="I '$L($P(^(0),U,17))"` EXPLANATION: `You can not select an accession area designated Work Area.`
10	SEQUENCE or CUP NUMBER	1;0	POINTER Multiple #68.22	68.22 DESCRIPTION: `Where the data is stored in the LAH global.`
21	DOWNLOAD PARAMETERS	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<1) X` LAST EDITED: `AUG 12, 1987` HELP-PROMPT: `This is loaded by the download build routine.`