PRPFYN.m

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 ---PRPFYN   1094     printed  Dec 13, 2024@02:02:08                                                                                                                                                                                                      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       ;