| 1 | PXRMXBSY ; 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 | ;=======================================================================
|
|---|
| 5 | INIT(SPINCNT) ;Initialize the busy display components.
|
|---|
| 6 | S SPINCNT=0
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | ;=======================================================================
|
|---|
| 10 | DONE(DTEXT) ;Write out the done message.
|
|---|
| 11 | W @IOBS,DTEXT,!
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | ;======================================================================
|
|---|
| 15 | ERROR ;
|
|---|
| 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 | ;=======================================================================
|
|---|
| 31 | SPIN(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
|
|---|
