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

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

@@ -1 @@
-PXRMXTD ; SLC/PJH - Reminder Reports Template Display ;11/16/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMXTD ; SLC/PJH - Reminder Reports Template Display ;11/03/2005
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ; 
  ; Called from PXRMXT/PXRMXTF
@@ -24 +24 @@
  .I $E(PXRMLCSC,2)'="A" W ! D ARRS
  I DONE Q
- W !?PSTART,"Print Locations without Patients:",?32,$S($G(PXRMPML)=0:"NO",1:"YES")
  S IC="" F  S IC=$O(PXRMRCAT(IC)) Q:IC=""  D  Q:DONE
  .W !,?PSTART W:IC=1 "Category:"
@@ -95 +94 @@
  ;form feed to new page
  ;---------------------
-PAGE I ($E(IOST,1,2)="C-")&(IO=IO(0))&(PAGE>0) D
+PAGE I ($E(IOST)="C")&(IO=IO(0))&(PAGE>0) D
  .S DIR(0)="E"
  .W !