Routine: PRCFYN

Information

PRCFYN ;WISC@ALTOONA/CTB-UTILITY YES/NO READER AND WAIT ;10 Sep 89 3:08 PM [11/13/98 4:19pm]

Source file <PRCFYN.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,%A(%I) Line Location: YN+4
Function Call: WRITE	Prompt: "? ",$P("YES// ^NO// ^<YES/NO> ",U,%S) Line Location: YN+6
Function Call: READ	Variable: %Y Timeout: $S($D(DTIME):DTIME,1:300) Line Location: RX+0
Function Call: WRITE	Prompt: $C(7) Line Location: RX+0
Function Call: WRITE	Prompt: ! Condition for execution: $X>73 Line Location: RX+3
Function Call: WRITE	Prompt: $P(" (YES)^ (NO)",U,%) Line Location: RX+3
Function Call: WRITE	Prompt: $C(7) Condition for execution: '%&(%Y'["?") Line Location: Q1+0
Function Call: WRITE	Prompt: !,"You must enter a 'Yes' or a 'No', or you may enter an '^' to Quit",! Line Location: Q1+0
Function Call: WRITE	Prompt: !,%B(%I) Line Location: C+0
Function Call: WRITE	Prompt: ! Line Location: C+1
Function Call: WRITE	Prompt: !,"..." Line Location: WAIT+1
Function Call: WRITE	Prompt: $P("Whoops,^Hmmm,^Excuse me,^Sorry,^Alright already!^OK! OK!^Alright, I'm tired.","^",$R(7)+1)," " Line Location: WAIT+2
Function Call: WRITE	Prompt: $P($T(LIST+$R(8)),";",3)_"..." Line Location: WAIT+3