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

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

@@ -1 @@
-PXRMPTTR ;SLC/PKR - Routines for term print templates ;06/01/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMPTTR ;SLC/PKR - Routines for term print templates ;01/30/2006
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;
  ;====================================================
@@ -88 +88 @@
  . D SFDISP(FIND0,1,14,"Condition:",RJC,PAD)
  . D SFDISP(FIND0,2,15,"Condition Case Sensitive:",RJC,PAD)
- . D SFDISP(FIND0,3,18,"Use Status/Cond in Search:",RJC,PAD)
+ . D SFDISP(FIND0,3,18,"Use Cond in Finding Search:",RJC,PAD)
  . I $G(^PXRMD(811.5,D0,20,FINDING,15))'="" D
  .. S CFP=$$RJ^XLFSTR("Computed Finding Parameter:",RJC,PAD)
@@ -103 +103 @@
  . S TEXT=$$RJ^XLFSTR(TITLE,RJC,PAD)
  . S TEXT=TEXT_"  "_$$EXTERNAL^DILFD(811.52,FLDNUM,"",FIELD,"")
- . I FLDNUM=13 S TEXT=TEXT_" - "_$$SPECIAL^PXRMPTDF(FIND0,FIELD)
  . W !,TEXT
  Q