INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X I $P(^PS(50.073,DA(1),0),"^",4) K X W *7,!?5,"NO EDITING AFTER QUESTIONNAIRE HAS BEEN ANSWERED"
LAST EDITED: AUG 28, 1990
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits. ENTER THE NUMBER YOU WANT DISPLAYED TO THE LEFT OF THE QUESTION.
DESCRIPTION:
The question number for the Question Text.
DELETE TEST: 1,0)= I $D(^PS(50.0731,"Q",DA(1)))
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER