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

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

@@ -1 @@
-PXRMEXPR ; SLC/PKR/PJH - Routines to create packed reminder definitions. ;12/12/2006
- ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
+PXRMEXPR ; SLC/PKR/PJH - Routines to create packed reminder definitions. ;02/25/2004
+ ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
  ;===============================================================
 ADDFILE(FLIST,ROOT,FILENAME) ;Add a file to the list of finding files.
@@ -29 +29 @@
  D GETSPON(811.9,RIEN,.SPONLIST)
  ;If there is a dialog add it.
- ;S DIEN=+$P($G(^PXD(811.9,RIEN,51)),U,1)
- ;I DIEN>0 D GETSPON(801.41,DIEN,.SPONLIST)
+ S DIEN=+$P($G(^PXD(811.9,RIEN,51)),U,1)
+ I DIEN>0 D GETSPON(801.41,DIEN,.SPONLIST)
  ;Go through the finding list to find additional sponsors.
  S IND=""
@@ -122 +122 @@
  ;Save the source information
  I +RTP'>0 Q
- K ^TMP(TMPIND,$J),^TMP("PXRMEXCS",$J)
+ K ^TMP(TMPIND,$J)
  D PUTSRC(RTP,TMPIND)
  ;
@@ -152 +152 @@
  ;If a dialog exists for this reminder add it and its findings to the
  ;list. Also collect any embedded TIU objects or templates
- D DIALOG^PXRMEXDG(RIEN,.DLGLIST,.FINDLIST,.OBJLIST,.TEMLIST,.SPONLIST)
+ D DIALOG^PXRMEXDG(RIEN,.DLGLIST,.FINDLIST,.OBJLIST,.TEMLIST)
  ;
  ;If there were education topics make sure subtopics are included.
@@ -226 +226 @@
  S LOC=$$SITE^VASITE
  S ^TMP(TMPIND,$J,"SRC","REMINDER")=$P(RTP,U,2)
+ ;S ^TMP(TMPIND,$J,"SRC","USER")=$P(^VA(200,DUZ,0),U,1)
  S ^TMP(TMPIND,$J,"SRC","USER")=$$GET1^DIQ(200,DUZ,.01)
  S ^TMP(TMPIND,$J,"SRC","SITE")=$P(LOC,U,2)