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

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

@@ -1 @@
-PXRMXD ; SLC/PJH - Reminder Due reports DRIVER ;11/27/2006
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMXD ; SLC/PJH - Reminder Due reports DRIVER ;06/20/2006
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;
 START ; Arrays and strings
@@ -17 +17 @@
  N DBDOWN,DBDUZ,DBERR,PXRMLIST,PXRMLIS1,Y
  N PLISTPUG
- N PXRMTPAT,PXRMDPAT,PXRMPML
+ N PXRMTPAT,PXRMDPAT
  ;
  S PXRMRT="PXRMX",PXRMTYP="X",PXRMFCMB="N",PXRMLCMB="N",PXRMTCMB="N"
@@ -153 +153 @@
  .D LIT,TOTALS^PXRMXSD(.PXRMTOT,LIT1,LIT2,LIT3)
  ;
-MLOC     ;Print Locations empty location at the end of the report
- W !
- S DIR(0)="Y",DIR("B")="YES",DIR("A")="Print locations with no patients"
- D ^DIR
- I Y="^^" G EXIT
- I Y=U G:PXRMREP="D" SSN G TOT
- S PXRMPML=Y
- ;
  ;Reminder Category/Individual Reminder Selection
 RCAT ;
  D RCAT^PXRMXSU(.PXRMRCAT,.PXRMREM) I $D(DTOUT) G EXIT
- ;I $D(DUOUT) G:PXRMREP="D" SSN G TOT
- I $D(DUOUT) G MLOC
+ I $D(DUOUT) G:PXRMREP="D" SSN G TOT
  ;
  ;Create combined reminder list