source: WorldVistAEHR/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVYN.m@ 789

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1ABSVYN ;VAMC ALTOONA/CTB - UTILITY YES/NO READER AND WAIT ;6/7/94 8:40 AM
2V ;;4.0;VOLUNTARY TIMEKEEPING;;JULY 6, 1994
3YN ;
4 K DTOUT S U="^" S:'$D(%)#2 %=3 S ABSVXS=% I %=3 S %=""
5 W:$D(ABSVXA) !,ABSVXA
6 S ABSVXI=0 F S ABSVXI=$O(ABSVXA(ABSVXI)) Q:+ABSVXI=0 W !,ABSVXA(ABSVXI)
7 W "? ",$P("YES// ^NO// ^<YES/NO> ",U,ABSVXS)
8RX R ABSVXY:$S($D(DTIME):DTIME,1:600) E S DTOUT=1,ABSVXY=U W *7
9 S:ABSVXY]""!'% %=$A(ABSVXY),%=$S(%=89:1,%=121:1,%=78:2,%=110:2,%=94:-1,1:0)
10 I '%,ABSVXY'["?" G Q1
11 W:$X>73 ! W $P(" (YES)^ (NO)",U,%)
12 G:%'=0 Q I $D(ABSVXB),ABSVXB]"" W !!,ABSVXB D C G:'$D(ABSVXA) Q S %=ABSVXS G YN
13 I $D(ABSVXB),ABSVXB="" G Q1
14 I $D(ABSVXA),'$D(ABSVXB) S %=ABSVXS G YN
15Q K ABSVXY,ABSVXA,ABSVXB,ABSVXS,ABSVXI Q
16Q1 W:'%&(ABSVXY'["?") *7 W !,"You must enter a 'Yes' or a 'No', or you may enter an '^' to Quit",! S %=ABSVXS G YN
17 Q
18C S ABSVXI=0 F S ABSVXI=$O(ABSVXB(ABSVXI)) Q:'ABSVXI W !,ABSVXB(ABSVXI)
19 W ! Q
20WAIT ;
21 W !,"..."
22 W $P("Whoops,^Hmmm,^Excuse me,^Sorry,^Alright already!^OK! OK!^Alright, so I'm a little tired.","^",$R(7)+1)," "
23 W $P($T(LIST+$R(8)),";",3)_"..."
24LIST ;;This may take a few moments
25 ;;Let me put you on 'HOLD' for a second
26 ;;Please hold on
27 ;;Just a moment, please
28 ;;I'm working as fast as I can
29 ;;Let me think about this for a moment
30 ;;I'm just having one of those days...
31 ;;Is it lunchtime yet?...
32 ;
Note: See TracBrowser for help on using the repository browser.