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

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

@@ -1 @@
-PXRMOUTC ; SLC/PKR - Clinical Maintenance output. ;07/06/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMOUTC ; SLC/PKR - Clinical Maintenance output. ;10/07/2005
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;================================================
 CM(DEFARR,PXRMPDEM,PCLOGIC,RESLOGIC,RESDATE,FIEVAL) ;Prepare the 
  ;clinical maintenance output.
- N IND,JND,FIDATA,FINDING,FLIST,FTYPE
+ N IND,FIDATA,FINDING,FLIST,FTYPE
  N HDR,NHDR,IFIEVAL,LIST,NFLINES,NTXT,NUM
  N TEMP,TEXT
@@ -37 +37 @@
  .. 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
  ..;If the finding is false all we need to do is process the not found
@@ -88 +82 @@
  I FTYPE="PXRMD(811.4," D OUTPUT^PXRMCF(INDENT,.IFIEVAL,.NLINES,.TEXT) Q
  I FTYPE="RAMIS(71," D OUTPUT^PXRMRAD(INDENT,.IFIEVAL,.NLINES,.TEXT) Q
- I FTYPE="YTT(601.71," D OUTPUT^PXRMMH(INDENT,.IFIEVAL,.NLINES,.TEXT) Q
+ I FTYPE="YTT(601," D OUTPUT^PXRMMH(INDENT,.IFIEVAL,.NLINES,.TEXT) Q
  Q
  ;