Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PRCPUYN

Package: IFCAP

Routine: PRCPUYN


Information

PRCPUYN ;WISC/RFJ-yes,no reader ;29 Dec 93

Source Information

Source file <PRCPUYN.m>

Entry Points

Name Comments DBIA/ICR reference
YN(%) ; yes, no reader
; %=default answer [1=yes,2=no];
; XP=prompt array [none,1,2,3...];
; XH=help array [none,1,2,3...]
HELP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,XP(I)
  • Line Location: YN+7
Function Call: WRITE
  • Prompt: "? ",$P("YES// ^NO// ^<YES/NO> ","^",%)
  • Line Location: YN+8
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: YN+9
Function Call: WRITE
  • Prompt: " <<timeout>>"
  • Line Location: YN+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>73
  • Line Location: YN+13
Function Call: WRITE
  • Prompt: $P(" (YES)^ (NO)","^",X)
  • Line Location: YN+13
Function Call: WRITE
  • Prompt: !,"You must enter a 'Yes' or a 'No', or you may enter an '^' to Quit",!!
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,XH(I)
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+2
Info |  Source |  Entry Points |  Interaction Calls