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

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

@@ -1 @@
-PXRMLCD ; SLC/PKR - Reminder Patient List Patients ;11/02/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMLCD ; SLC/PKR - Reminder Patient List Patients ;06/30/2005
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;
  ;Display list creation documentation.
@@ -12 +12 @@
  S IND="",PXRMDONE=0
  F  S IND=$O(VALMY(IND)) Q:(IND="")!(PXRMDONE)  D
- . S LISTIEN=^TMP("PXRMLPU",$J,"SEL",IND)
+ . S LISTIEN=^TMP("PXRMLPU",$J,"IDX",IND,IND)
  . D EN^PXRMLCD(LISTIEN)
  S VALMBCK="R"
@@ -40 +40 @@
  ;===========================================================
 HDR ; Header code
- S VALMHDR(1)="Documentation for creation of patient list:"
- S VALMHDR(2)=" "_$P(^PXRMXP(810.5,LISTIEN,0),U,1)
+ S VALMHDR(1)="Documentation for creation of patient list "_$P(^PXRMXP(810.5,LISTIEN,0),U,1)
  S VALMSG="+ Next Screen   - Prev Screen   ?? More Actions"
  Q