Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMLPHS.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/PXRMLPHS.m (modified) (3 diffs)

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

@@ -1 @@
-PXRMLPHS ; SLC/PJH,PKR - Run Health Summaries from Patient List ;03/26/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMLPHS ; SLC/PJH,PKR - Run Health Summaries from Patient List ;08/08/2005
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ; 
  ;External Ref DBIA #398
@@ -60 +60 @@
  ;
 QUE(HSIEN,PLNODE) ;Determine whether the report should be queued.
- N PXRMQUE,%ZIS,ZTDESC,ZTRTN,ZTSK,ZTSAVE
+ N PXRMQUE,RETZTSK,%ZIS,ZTDESC,ZTRTN,ZTSK,ZTSAVE
  S %ZIS="M"
  S ZTDESC="Patient List Health Summaries - print"
@@ -66 +66 @@
  S ZTSAVE("HSIEN")=""
  S ZTSAVE("PLNODE")=""
- S PXRMQUE=$$DEVICE^PXRMXQUE(ZTRTN,ZTDESC,.ZTSAVE,.%ZIS,1)
+ S RETZTSK=1
+ S PXRMQUE=$$DEVICE^PXRMXQUE(ZTRTN,ZTDESC,.ZTSAVE,.%ZIS,.RETZTSK)
  S VALMBCK="R"
  Q