Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXRMXBSY

PXRMXBSY.m

Go to the documentation of this file.
  1. PXRMXBSY ; SLC/PJH,PKR - Let the user know the computer is busy. ;02/11/2009
  1. ;;2.0;CLINICAL REMINDERS;**4,12**;Feb 04, 2005;Build 73
  1. ;
  1. ;=======================================================
  1. ERROR ;Print Error message
  1. I $D(^XTMP(PXRMXTMP,"ERROR"))>0 D
  1. . W !!,"WARNING - REMINDER EVALUATION ERRORS; RESULTS MAY BE INCORRECT!"
  1. . N ERRNAME S ERRNAME=""
  1. . F S ERRNAME=$O(^XTMP(PXRMXTMP,"ERROR",ERRNAME)) Q:ERRNAME="" D
  1. .. W !,"Reminder: "_ERRNAME_" had a total of "_$G(^XTMP(PXRMXTMP,"ERROR",ERRNAME))_" evaluation errors."
  1. ;
  1. ;Print Could not be determine message
  1. I $D(^XTMP(PXRMXTMP,"CNBD"))>0 D
  1. . W !!,"WARNING - REMINDER STATUS COULD NOT BE DETERMINED; RESULTS MAY BE INCORRECT!"
  1. . N ERRNAME S ERRNAME=""
  1. . F S ERRNAME=$O(^XTMP(PXRMXTMP,"CNBD",ERRNAME)) Q:ERRNAME="" D
  1. .. W !,"Reminder: "_ERRNAME_" had a total of "_$G(^XTMP(PXRMXTMP,"CNBD",ERRNAME))_" CNBD errors."
  1. Q
  1. ;
  1. ;=======================================================
  1. NOTIFY(TEXT,SPINCNT) ;
  1. I '$D(ZTQUEUED) D SPIN(TEXT,.SPINCNT)
  1. I $D(ZTQUEUED) D TASKMSG(TEXT,SPINCNT)
  1. Q
  1. ;
  1. ;=======================================================
  1. SPIN(TEXT,SPINCNT) ;Move the spinner.
  1. N QUAD
  1. I SPINCNT=0 W !!,TEXT," "
  1. S SPINCNT=SPINCNT+1
  1. S QUAD=SPINCNT#8
  1. I QUAD=1 W @IOBS,"|"
  1. I QUAD=3 W @IOBS,"/"
  1. I QUAD=5 W @IOBS,"-"
  1. I QUAD=7 W @IOBS,"\"
  1. Q
  1. ;
  1. ;=======================================================
  1. TASKMSG(TEXT,SPINCNT) ;
  1. I SPINCNT=0 S ZTSTOP=$$S^%ZTLOAD(TEXT)
  1. Q
  1. ;