| 1 | PRCFAUTL ;WISC@ALTOONA/CTB-UTILITY ROUTINE FOR PRCFA ;10 Sep 89/3:08 PM
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | YN ;
|
|---|
| 5 | K DTOUT S U="^" S:'$D(%)#2 %=3 S %S=%
|
|---|
| 6 | W:$D(%A) !,%A
|
|---|
| 7 | F %I=1:1 Q:'$D(%A(%I)) W !,%A(%I)
|
|---|
| 8 | W "? ",$P("YES// ^NO// ^(YES/NO) ",U,%)
|
|---|
| 9 | RX R %Y:$S($D(DTIME):DTIME,1:300) E S DTOUT=1,%Y=U W $C(7)
|
|---|
| 10 | S:%Y]""!'% %=$A(%Y),%=$S(%=89:1,%=121:1,%=78:2,%=110:2,%=94:-1,1:0)
|
|---|
| 11 | I '%,%Y'?."?" W $C(7),"??",!?4,"ANSWER 'YES' OR 'NO' ('^' TO QUIT): " G RX
|
|---|
| 12 | W:$X>73 ! W $P(" (YES)^ (NO)",U,%)
|
|---|
| 13 | G:%'=0 Q I $D(%B),%B]"" W !!,%B D C G:'$D(%A) Q S %=%S G YN
|
|---|
| 14 | I $D(%B),%B="" W !,"You may enter a 'Yes', or a 'No', or you may enter an '^' to Quit.",!! S %=%S G YN
|
|---|
| 15 | I $D(%A),'$D(%B) S %=%S G YN
|
|---|
| 16 | Q K %Y,%A,%B,%S,%I Q
|
|---|
| 17 | Q
|
|---|
| 18 | C F %I=1:1 Q:'$D(%B(%I)) W !,%B(%I)
|
|---|
| 19 | W ! Q
|
|---|
| 20 | ;
|
|---|
| 21 | WAIT ;
|
|---|
| 22 | W !,"..."
|
|---|
| 23 | W $P("WHOOPS^HMMM^EXCUSE ME^SORRY","^",$R(4)+1),", "
|
|---|
| 24 | W $P($T(LIST+$R(6)),";",3)_"..."
|
|---|
| 25 | LIST ;;THIS MAY TAKE A FEW MOMENTS
|
|---|
| 26 | ;;LET ME PUT YOU ON 'HOLD' FOR A SECOND
|
|---|
| 27 | ;;HOLD ON
|
|---|
| 28 | ;;JUST A MOMENT PLEASE
|
|---|
| 29 | ;;I'M WORKING AS FAST AS I CAN
|
|---|
| 30 | ;;LET ME THINK ABOUT THAT A MOMENT
|
|---|
