PXRRBUSY.m

PXRRBUSY ;ISL/PKR - For long interactive reports let the user know the computer is busy. ;9/18/96

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**3**;Aug 12, 1996

 ;Based on initial spinner developed by JVS.

 ;=======================================================================

INIT(SPINCNT) ;Initialize the busy display components.

 S SPINCNT=0

 Q

 ;

 ;=======================================================================

DONE(DTEXT) ;Write out the done message.

 W @IOBS,DTEXT,!

 Q

 ;

 ;=======================================================================

SPIN(SPINTEXT,SPINCNT) ;Move the spinner.

 N QUAD

 I SPINCNT=0 W !!,SPINTEXT,"  "

 S SPINCNT=SPINCNT+1

 S QUAD=SPINCNT#8

 I QUAD=1 W @IOBS,"|"

 I QUAD=3 W @IOBS,"/"

 I QUAD=5 W @IOBS,"-"

 I QUAD=7 W @IOBS,"\"

 Q

PXRRBUSY  ;ISL/PKR - For long interactive reports let the user know the computer is busy. ;9/18/96

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**3**;Aug 12, 1996

 +2       ;Based on initial spinner developed by JVS.

 +3       ;=======================================================================

INIT(SPINCNT) ;Initialize the busy display components.

 +1        SET SPINCNT=0

 +2        QUIT 

 +3       ;

 +4       ;=======================================================================

DONE(DTEXT) ;Write out the done message.

 +1        WRITE @IOBS,DTEXT,!

 +2        QUIT 

 +3       ;

 +4       ;=======================================================================

SPIN(SPINTEXT,SPINCNT) ;Move the spinner.

 +1        NEW QUAD

 +2        IF SPINCNT=0

               WRITE !!,SPINTEXT,"  "

 +3        SET SPINCNT=SPINCNT+1

 +4        SET QUAD=SPINCNT#8

 +5        IF QUAD=1

               WRITE @IOBS,"|"

 +6        IF QUAD=3

               WRITE @IOBS,"/"

 +7        IF QUAD=5

               WRITE @IOBS,"-"

 +8        IF QUAD=7

               WRITE @IOBS,"\"

 +9        QUIT