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

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

@@ -1 @@
-PXRMPTDF ; SLC/PKR/PJH - Reminder Inquiry print template routines. ;06/07/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMPTDF ; SLC/PKR/PJH - Reminder Inquiry print template routines. ;01/30/2006
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;
  ;================================================
@@ -81 +81 @@
  .D SFDISP(FIND0,1,14,"Condition:",RJC,PAD,FILENUM)
  .D SFDISP(FIND0,2,15,"Condition Case Sensitive:",RJC,PAD,FILENUM)
- .D SFDISP(FIND0,3,18,"Use Status/Cond in Search:",RJC,PAD,FILENUM)
+ .D SFDISP(FIND0,3,18,"Use Cond in Finding Search:",RJC,PAD,FILENUM)
  .I $G(^PXD(811.9,D0,20,FINDING,15))'="" D 
  ..S X=$$RJ^XLFSTR("Computed Finding Parameter:",RJC,PAD)
@@ -173 +173 @@
  .D SFDISP(TERM3,1,14,"Condition:",RJT,PAD,TERMNUM,1)
  .D SFDISP(TERM3,2,15,"Condition Case Sensitive:",RJT,PAD,TERMNUM)
- .D SFDISP(TERM3,3,18,"Use Status/Cond in Search:",RJT,PAD,TERMNUM)
+ .D SFDISP(TERM3,3,18,"Use Cond in Finding Search:",RJT,PAD,TERMNUM)
  .I $G(^PXRMD(811.5,IEN1,20,TERMS,15))'="" D 
  ..S X=$$RJ^XLFSTR("Computed Finding Parameter:",RJT,PAD)
@@ -215 +215 @@
  .S X=$$RJ^XLFSTR(TITLE,RJC,PAD)
  .S X=X_" "_$$EXTERNAL^DILFD(FILENUM,FLDNUM,"",FIELD,"")
- .I FLDNUM=13 S X=X_" - "_$$SPECIAL(FIND0,FIELD)
- .D ^DIWP
- Q
- ;
- ;================================================
-SPECIAL(FIND0,FIELD) ;Special output for certain fields.
- N FINDING,GLOBAL,IEN
- S FINDING=$P(FIND0,U,1)
- S IEN=$P(FINDING,";",1)
- S GLOBAL=$P(FINDING,";",2)
- I GLOBAL="YTT(601.71," Q $$SCNAME^PXRMMH(IEN,FIELD)
- Q ""
+ .D ^DIWP
+ Q
  ;
  ;================================================