| [613] | 1 | ABSVYN ;VAMC ALTOONA/CTB - UTILITY YES/NO READER AND WAIT ;6/7/94 8:40 AM
|
|---|
| 2 | V ;;4.0;VOLUNTARY TIMEKEEPING;;JULY 6, 1994
|
|---|
| 3 | YN ;
|
|---|
| 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)
|
|---|
| 8 | RX 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
|
|---|
| 15 | Q K ABSVXY,ABSVXA,ABSVXB,ABSVXS,ABSVXI Q
|
|---|
| 16 | Q1 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
|
|---|
| 18 | C S ABSVXI=0 F S ABSVXI=$O(ABSVXB(ABSVXI)) Q:'ABSVXI W !,ABSVXB(ABSVXI)
|
|---|
| 19 | W ! Q
|
|---|
| 20 | WAIT ;
|
|---|
| 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)_"..."
|
|---|
| 24 | LIST ;;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 | ;
|
|---|
