- PRPFYN ;ALTOONA/CTB YES/NO ROUTINE FOR PATIENT FUNDS ;2/24/97 5:12 PM
- V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
- YN ;
- K DTOUT S U="^" S:'$D(%)#2 %=3 S %S=% I %=3 S %=""
- W:$D(%A) !,%A
- F %I=1:1 Q:'$D(%A(%I)) W !,%A(%I)
- W "? ",$P("YES// ^NO// ^<YES/NO> ",U,%S)
- RX R %Y:$S($D(DTIME):DTIME,1:99999) E S DTOUT=1,%Y=U W *7
- S:%Y]""!'% %=$A(%Y),%=$S(%=89:1,%=121:1,%=78:2,%=110:2,%=94:-1,1:0)
- I '%,%Y'["?" G Q1
- W:$X>73 ! W $P(" (YES)^ (NO)",U,%)
- G:%'=0 Q I $D(%B),%B]"" W !!,%B D C G:'$D(%A) Q S %=%S G YN
- I $D(%B),%B="" G Q1
- I $D(%A),'$D(%B) S %=%S G YN
- Q K %Y,%A,%B,%S,%I Q
- Q1 W:'%&(%Y'["?") *7 W !,"You must enter a 'Yes' or a 'No', or you may enter an '^' to Quit",!! S %=%S G YN
- Q
- C F %I=1:1 Q:'$D(%B(%I)) W !,%B(%I)
- W ! Q
- WAIT ;
- Q:$E($G(IOST),1,2)'="C-"
- W !,"..."
- W $P("Whoops^Hmmm^Excuse me^Sorry","^",$R(4)+1),", "
- W $P($T(LIST+$R(6)),";",3)_"..."
- QUIT
- LIST ;;This may take a few moments
- ;;Let me put you on 'HOLD' for a second
- ;;Hold on
- ;;Just a moment, please
- ;;I'm working as fast as I can
- ;;Let me think about this for a moment
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRPFYN 1094 printed Jan 18, 2025@03:03:19 Page 2
- PRPFYN ;ALTOONA/CTB YES/NO ROUTINE FOR PATIENT FUNDS ;2/24/97 5:12 PM
- V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
- YN ;
- +1 KILL DTOUT
- SET U="^"
- if '$DATA(%)#2
- SET %=3
- SET %S=%
- IF %=3
- SET %=""
- +2 if $DATA(%A)
- WRITE !,%A
- +3 FOR %I=1:1
- if '$DATA(%A(%I))
- QUIT
- WRITE !,%A(%I)
- +4 WRITE "? ",$PIECE("YES// ^NO// ^<YES/NO> ",U,%S)
- RX READ %Y:$SELECT($DATA(DTIME):DTIME,1:99999)
- IF '$TEST
- SET DTOUT=1
- SET %Y=U
- WRITE *7
- +1 if %Y]""!'%
- SET %=$ASCII(%Y)
- SET %=$SELECT(%=89:1,%=121:1,%=78:2,%=110:2,%=94:-1,1:0)
- +2 IF '%
- IF %Y'["?"
- GOTO Q1
- +3 if $X>73
- WRITE !
- WRITE $PIECE(" (YES)^ (NO)",U,%)
- +4 if %'=0
- GOTO Q
- IF $DATA(%B)
- IF %B]""
- WRITE !!,%B
- DO C
- if '$DATA(%A)
- GOTO Q
- SET %=%S
- GOTO YN
- +5 IF $DATA(%B)
- IF %B=""
- GOTO Q1
- +6 IF $DATA(%A)
- IF '$DATA(%B)
- SET %=%S
- GOTO YN
- Q KILL %Y,%A,%B,%S,%I
- QUIT
- Q1 if '%&(%Y'["?")
- WRITE *7
- WRITE !,"You must enter a 'Yes' or a 'No', or you may enter an '^' to Quit",!!
- SET %=%S
- GOTO YN
- +1 QUIT
- C FOR %I=1:1
- if '$DATA(%B(%I))
- QUIT
- WRITE !,%B(%I)
- +1 WRITE !
- QUIT
- WAIT ;
- +1 if $EXTRACT($GET(IOST),1,2)'="C-"
- QUIT
- +2 WRITE !,"..."
- +3 WRITE $PIECE("Whoops^Hmmm^Excuse me^Sorry","^",$RANDOM(4)+1),", "
- +4 WRITE $PIECE($TEXT(LIST+$RANDOM(6)),";",3)_"..."
- +5 QUIT
- LIST ;;This may take a few moments
- +1 ;;Let me put you on 'HOLD' for a second
- +2 ;;Hold on
- +3 ;;Just a moment, please
- +4 ;;I'm working as fast as I can
- +5 ;;Let me think about this for a moment
- +6 ;