Routine: PRCFAUTL

Information

PRCFAUTL ;WISC@ALTOONA/CTB-UTILITY ROUTINE FOR PRCFA ;10 Sep 89/3:08 PM

Name	Line Occurrences
Function Call: WRITE	Prompt: !,%A(%I) Line Location: YN+3
Function Call: WRITE	Prompt: "? ",$P("YES// ^NO// ^(YES/NO) ",U,%) Line Location: YN+4
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: $C(7),"??",!?4,"ANSWER 'YES' OR 'NO' ('^' TO QUIT): " Line Location: RX+2
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: !,"You may enter a 'Yes', or a 'No', or you may enter an '^' to Quit.",!! Line Location: RX+5
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","^",$R(4)+1),", " Line Location: WAIT+2
Function Call: WRITE	Prompt: $P($T(LIST+$R(6)),";",3)_"..." Line Location: WAIT+3