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

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

@@ -1 @@
-PXRMXGPR ; SLC/PJH - Reminder Due print calls ;11/16/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMXGPR ; SLC/PJH - Reminder Due print calls ;01/09/2006
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;
  ;Called from PXRMXPR
@@ -174 +174 @@
  ;
  ;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 !
@@ -181 +181 @@
  W:$D(IOF)&(PAGE>0) @IOF
  S PAGE=PAGE+1,FIRST=0
- I $E(IOST,1,2)="C-",IO=IO(0) W @IOF
+ I $E(IOST)="C",IO=IO(0) W @IOF
  E  W !
  N TEMP,TEXTLEN