INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N)!$D(^LRO(68,DA(1),.5,DA,X)) X
LAST EDITED: JUL 20, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999999
DESCRIPTION:
The numeric part of the accession to be assigned for the indicated control, if the number is available and automatic accessioning of controls is tasked.
EXECUTABLE HELP: W " NUMBER MUST NOT BE A DUPLICATE"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER