Routine: PRPFYN

Information

PRPFYN ;ALTOONA/CTB YES/NO ROUTINE FOR PATIENT FUNDS ;2/24/97 5:12 PM

Source file <PRPFYN.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,%A(%I) Line Location: YN+3
Function Call: WRITE	Prompt: "? ",$P("YES// ^NO// ^<YES/NO> ",U,%S) Line Location: YN+4
Function Call: READ	Variable: %Y Timeout: $S($D(DTIME):DTIME,1:99999) Line Location: RX+0
Function Call: WRITE	Prompt: *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: *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+2
Function Call: WRITE	Prompt: $P("Whoops^Hmmm^Excuse me^Sorry","^",$R(4)+1),", " Line Location: WAIT+3
Function Call: WRITE	Prompt: $P($T(LIST+$R(6)),";",3)_"..." Line Location: WAIT+4