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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRRBUSY 792 printed Nov 22, 2024@17:40:36 Page 2
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
