Routine: YTCLERK1

Information

YTCLERK1 ;SLC/DJP-CONTINUATION OF ^YTCLERK; ;5/30/02 15:06

Name	Comments	DBIA/ICR reference
A31	;
QUE	;
ZAP	;
ZAP1
REMMPR	;
YSM	;clerk entered long form message
REN	; ; Administering the MMPI... ien#60
RESTART	; ; Called from RESTART and from YTCLERK ; 3/11/94 LJA
GOT	;

Name	Line Occurrences
Function Call: READ	Formatting: !!?3 Prompt: "Queue to print when test(s)/interview(s) completed? Y// " Variable: A Timeout: DTIME Line Location: A31+1
Function Call: WRITE	Prompt: !!?3,"Queing will send tests results to the selected printer as soon as it",!?3,"is available." Line Location: A31+3
Function Call: WRITE	Prompt: ! Line Location: QUE+1
Function Call: WRITE	Prompt: !,"IMPROPERLY DEFINED DEVICE!",$C(7) Line Location: QUE+2
Function Call: WRITE	Prompt: !,"YOU MUST QUEUE TO A PRINTER!",$C(7) Line Location: QUE+3
Function Call: WRITE	Prompt: !!,YSTESTN," DELETED!" Line Location: ZAP+1
Function Call: WRITE	Prompt: !!,"By entering ""Y"", the test will be deleted from the patient's file.",! Line Location: ZAP1+0
Function Call: WRITE	Prompt: !! Line Location: REMMPR+8
Function Call: WRITE	Prompt: !,$P($T(YSM+YSI),";;",2,99) Line Location: REMMPR+8
Function Call: WRITE	Prompt: !! Line Location: REMMPR+9
Function Call: WRITE	Prompt: !!,"If the short form (MMPR) is not used, the long form (MMPI) will be substituted.",! Line Location: REMMPR+16
Function Call: WRITE	Prompt: !,"Restart ",YSTESTN," now" Line Location: RESTART+6
Function Call: WRITE	Prompt: !,"Test will restart at question interrupted." Line Location: RESTART+7
Function Call: WRITE	Prompt: !!,YSTESTN," must be completed or deleted prior to administering another test." Line Location: RESTART+8
Function Call: WRITE	Prompt: !! Line Location: GOT+6