Routine: YTEXT

Information

YTEXT ;SLC/TGA-TEXT I/O FOR STAFF REMARKS ; 7/6/89 13:55 ;03/11/94 14:26

Source file <YTEXT.m>

Name	Comments	DBIA/ICR reference
1	;
2	;
3	;
I	;
D	;
DR	;
LU	;
A	;
E	;
E0	;
E1	; ; commented out lines represent electronic signature on ; comments added to MH insturments the file structure is present to ; support this but the EP does not want it in place at this time 5.0, 1992
E2	;
E3	;
OUT	;
END	;
LU1	;
DAT(X)	;
CK	;
DEL	;
S	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,"Staff Comments - Tests and Interviews" Line Location: YTEXT+5
Function Call: WRITE	Prompt: !!,"No completed instruments found" Line Location: 2+2
Function Call: WRITE	Prompt: !!?10,"--- Previous Instruments ---",! Line Location: 2+3
Function Call: WRITE	Prompt: ?45,B+K,?50,$P(A1(B+K),U) Line Location: 3+1
Function Call: WRITE	Prompt: ?57,$$DAT(YSDT) Line Location: 3+1
Function Call: WRITE	Prompt: !! Line Location: I+2
Function Call: READ	Formatting: !! Prompt: "Shall I display the results now? N// " Variable: A Timeout: DTIME Line Location: D+1
Function Call: WRITE	Prompt: !,"Answer 'Yes' or 'No'" Line Location: D+1
Function Call: READ	Variable: A Timeout: DTIME Line Location: A+2
Function Call: WRITE	Prompt: !!,"Type 'E'" Line Location: A+4
Function Call: WRITE	Prompt: " or 'P'" Condition for execution: YSP1 Line Location: A+4
Function Call: WRITE	Prompt: " or 'S'" Condition for execution: YSP2 Line Location: A+4
Function Call: READ	Formatting: ! Prompt: "Do you wish to review comment prior to filing? N// " Variable: A Timeout: DTIME Line Location: E1+5
Function Call: READ	Formatting: !! Prompt: "File this comment now? Y// " Variable: A Timeout: DTIME Line Location: E3+1
Function Call: WRITE	Prompt: !!,"Comment filed" Line Location: E3+4
Function Call: WRITE	Prompt: !!,"No comment filed" Line Location: DEL+1

FileNo	Call Tags
^YTD(601.2 - [#601.2]	Classic Fileman Calls