Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMXQUE.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• CLINICAL_REMINDERS-PXRM/PXRMXQUE.m (modified) (3 diffs)

FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMXQUE.m

@@ -1 @@
-PXRMXQUE ; SLC/PJH - Reminder reports general queuing routine.;03/23/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMXQUE ; SLC/PJH - Reminder reports general queuing routine.;02/24/2006
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;
- ;Determine whether the report should be queued.
+        ;Determine whether the report should be queued.
 JOB ;
  N %ZIS S %ZIS="Q"
@@ -42 +42 @@
  Q $G(ZTSK)
  ;
-DEVICE(RTN,DESC,SAVE,%ZIS,RETZTSK) ;
- ;Pass RETZTSK as number such as 1 if you want to get ZTSK.
- N ZTSK
+DEVICE(ZTRTN,ZTDESC,ZTSAVE,%ZIS,ZTSK) ;
  W !
- D EN^XUTMDEVQ(RTN,DESC,.SAVE,.%ZIS,RETZTSK)
- I $D(ZTSK) W !!,DESC," has been queued, task number "_ZTSK H 2
- Q $G(ZTSK)
+ D EN^XUTMDEVQ(ZTRTN,ZTDESC,.ZTSAVE,.%ZIS,.ZTSK)
+ I $D(ZTSK)>1 W !!,ZTDESC," has been queued, task number "_$G(ZTSK) H 2
+ I $G(ZTSK)="" S ZTSK=0
+ Q ZTSK
  ;
  ;=======================================================================
@@ -138 +137 @@
  S ZTSAVE("PXRMDPAT")=""
  I +$G(PXRMIDOD)>0 S ZTSAVE("PXRMIDOD")=""
- S ZTSAVE("PXRMPML")=""
  Q