- 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 Feb 18, 2025@23:56:52 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
