source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMXBSY.m@ 1450

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1PXRMXBSY ; SLC/PJH - Let the user know the computer is busy. ;10/14/2005
2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
3 ;
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 ;======================================================================
15ERROR ;
16 ;Print Error message
17 I $D(^XTMP(PXRMXTMP,"ERROR"))>0 D
18 .W !!,"WARNING - REMINDER EVALUATION ERRORS; RESULTS MAY BE INCORRECT!"
19 .N ERRNAME S ERRNAME=""
20 .F S ERRNAME=$O(^XTMP(PXRMXTMP,"ERROR",ERRNAME)) Q:ERRNAME="" D
21 ..W !,"Reminder: "_ERRNAME_" had a total of "_$G(^XTMP(PXRMXTMP,"ERROR",ERRNAME))_" evaluation errors."
22 ;
23 ;Print Could not be determine message
24 I $D(^XTMP(PXRMXTMP,"CNBD"))>0 D
25 .W !!,"WARNING - REMINDER STATUS COULD NOT BE DETERMINED; RESULTS MAY BE INCORRECT!"
26 .N ERRNAME S ERRNAME=""
27 .F S ERRNAME=$O(^XTMP(PXRMXTMP,"CNBD",ERRNAME)) Q:ERRNAME="" D
28 ..W !,"Reminder: "_ERRNAME_" had a total of "_$G(^XTMP(PXRMXTMP,"CNBD",ERRNAME))_" CNBD errors."
29 Q
30 ;=======================================================================
31SPIN(SPINTEXT,SPINCNT) ;Move the spinner.
32 N QUAD
33 I SPINCNT=0 W !!,SPINTEXT," "
34 S SPINCNT=SPINCNT+1
35 S QUAD=SPINCNT#8
36 I QUAD=1 W @IOBS,"|"
37 I QUAD=3 W @IOBS,"/"
38 I QUAD=5 W @IOBS,"-"
39 I QUAD=7 W @IOBS,"\"
40 Q
Note: See TracBrowser for help on using the repository browser.