source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXRRBUSY.m@ 1608

Last change on this file since 1608 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 768 bytes
RevLine 
[613]1PXRRBUSY ;ISL/PKR - For long interactive reports let the user know the computer is busy. ;9/18/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**3**;Aug 12, 1996
3 ;Based on initial spinner developed by JVS.
4 ;=======================================================================
5INIT(SPINCNT) ;Initialize the busy display components.
6 S SPINCNT=0
7 Q
8 ;
9 ;=======================================================================
10DONE(DTEXT) ;Write out the done message.
11 W @IOBS,DTEXT,!
12 Q
13 ;
14 ;=======================================================================
15SPIN(SPINTEXT,SPINCNT) ;Move the spinner.
16 N QUAD
17 I SPINCNT=0 W !!,SPINTEXT," "
18 S SPINCNT=SPINCNT+1
19 S QUAD=SPINCNT#8
20 I QUAD=1 W @IOBS,"|"
21 I QUAD=3 W @IOBS,"/"
22 I QUAD=5 W @IOBS,"-"
23 I QUAD=7 W @IOBS,"\"
24 Q
Note: See TracBrowser for help on using the repository browser.