source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCPUYN.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 840 bytes
RevLine 
[613]1PRCPUYN ;WISC/RFJ-yes,no reader ;29 Dec 93
2 ;;5.1;IFCAP;**108**;Oct 20, 2000;Build 10
3 ;Per VHA Directive 2004-038, this routine should not be modified.
4 Q
5 ;
6 ;
7YN(%) ; yes, no reader
8 ; %=default answer [1=yes,2=no];
9 ; XP=prompt array [none,1,2,3...];
10 ; XH=help array [none,1,2,3...]
11 N I,X
12 I '$G(%) S %=3
13 F D Q:$D(X)
14 . W:$D(XP) !,XP F I=1:1 Q:'$D(XP(I)) W !,XP(I)
15 . W "? ",$P("YES// ^NO// ^<YES/NO> ","^",%)
16 . R X:$S($D(DTIME):DTIME,1:300) E W " <<timeout>>" S X=0 Q
17 . I X["^" S X=0 Q
18 . S:X="" X=% S X=$TR($E(X),"yYnN","1122"),X=+X
19 . I X'=1,X'=2 D HELP K X Q
20 . W:$X>73 ! W $P(" (YES)^ (NO)","^",X)
21 K XH,XP
22 Q X
23 ;
24HELP I '$D(XH) W !,"You must enter a 'Yes' or a 'No', or you may enter an '^' to Quit",!! Q
25 W:$L($G(XH)) !,XH F I=1:1 Q:'$D(XH(I)) W !,XH(I)
26 W !
27 Q
Note: See TracBrowser for help on using the repository browser.