INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
HELP-PROMPT: Type a Number between 1 and 9999999999, 0 Decimal Digits.
DESCRIPTION: This is a number used to look at either the USER file or the WARD LOCATION file, depending on the value of the TYPE OF LABEL field. If type of label is '1', the package will use this value to look in the WARD LOCATION
file. If the type of label is '2', the package will use this value to look in the NEW PERSON file.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER