Sub-Field: 68.01

Parent File	Name	Number	Package
ACCESSION(#68)	DATE	68.01	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y,DINUM=Y K:Y<1 X,DINUM` LAST EDITED: `AUG 17, 1984` DESCRIPTION: `The date of the accession.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	ACCESSION NUMBER	1;0	POINTER Multiple #68.02	68.02 DESCRIPTION: `The numeric part of the accession.`
2	*CURRENT INITIALS	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<2) X` LAST EDITED: `JUL 19, 1993` HELP-PROMPT: `ANSWER MUST BE 2-6 CHARACTERS IN LENGTH` DESCRIPTION: `Will be deleted in future versions.`
3	CURRENT ACCESSION NUMBER	2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-8 CHARACTERS IN LENGTH` DESCRIPTION: `The last used accession number.`
4	*CURRENT IDENTITY	2;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>19!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-19 CHARACTERS IN LENGTH` DESCRIPTION: `No longer used. Will be deleted in later versions. 1/89.`
5	CURRENT VERIFY ACC #	2;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999` DESCRIPTION: `The last verified accession number.`
6	BULL ALGORITHM CONTROL DATA	3;0	POINTER Multiple #68.07	68.07 DESCRIPTION: `Data is stored here for use in Bull's algorithm.`
7	MULTI-RULE VA QC	4;0	POINTER Multiple #68.11	68.11 DESCRIPTION: `Quality control comparisons based on Westergard's suggested use of the Multi-rule Shewhart determinations are stored under this multiple.`