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

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

@@ -1 @@
-PXRMOUTM ; SLC/PKR - MyHealtheVet output. ;07/06/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMOUTM ; SLC/PKR - MyHealtheVet output. ;10/12/2005
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;
  ;================================================
@@ -28 +28 @@
  I FTYPE="PXRMD(811.4," D MHVOUT^PXRMCF(INDENT,.IFIEVAL,.NLINES,.TEXT) Q
  I FTYPE="RAMIS(71," D MHVOUT^PXRMRAD(INDENT,.IFIEVAL,.NLINES,.TEXT) Q
- I FTYPE="YTT(601.71," D MHVOUT^PXRMMH(INDENT,.IFIEVAL,.NLINES,.TEXT) Q
+ I FTYPE="YTT(601," D MHVOUT^PXRMMH(INDENT,.IFIEVAL,.NLINES,.TEXT) Q
  Q
  ;
@@ -49 +49 @@
 MHVD(DEFARR,PXRMPDEM,PCLOGIC,RESLOGIC,RESDATE,FIEVAL,WEB) ;Prepare the 
  ;MyHealtheVet detailed output.
- N IND,JND,FIDATA,FINDING,FLIST,FTYPE
+ N IND,FIDATA,FINDING,FLIST,FTYPE
  N HDR,NHDR,IFIEVAL,LIST,NFLINES,NTXT,NUM
  N TEXT
@@ -75 +75 @@
  .. I '$D(FIDATA(FINDING)) Q
  .. K IFIEVAL
- .. ;I FIEVAL(FINDING) M IFIEVAL=FIEVAL(FINDING)
- .. ;E  S IFIEVAL=0
- .. I FIEVAL(FINDING) D
- ... M IFIEVAL=FIEVAL(FINDING)
- ...;Remove any false occurrences so they are not displayed.
- ... S JND=0
- ... F  S JND=+$O(IFIEVAL(JND)) Q:JND=0  K:'IFIEVAL(JND) IFIEVAL(JND)
+ .. I FIEVAL(FINDING) M IFIEVAL=FIEVAL(FINDING)
  .. E  S IFIEVAL=0
  ..;Output the found/not found text for the finding.