Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BPXRMEA

BPXRMEA.m

Go to the documentation of this file. 
  1. BPXRMEA ; IHS/MSC/MGH - Handle V Measurement findings. ;08-Nov-2013 12:59;DU
  1.  ;;2.0;CLINICAL REMINDERS;**1001**;Feb 04, 2005;Build 21
  1.  ;
  1.  ;=============================================================
  1. EVALFI(DFN,DEFARR,ENODE,FIEVAL) ;Evaluate V measurement findings.
  1.  D EVALFI^PXRMINDX(DFN,.DEFARR,ENODE,.FIEVAL)
  1.  Q
  1.  ;
  1.  ;=============================================================
  1. EVALPL(FINDPA,ENODE,TERMARR,PLIST) ;Evaluate V measurement findings
  1.  ;for patient lists.
  1.  D EVALPL^PXRMINDL(.FINDPA,ENODE,.TERMARR,PLIST)
  1.  Q
  1.  ;
  1.  ;=============================================================
  1. EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) ;Evaluate V measurement terms.
  1.  D EVALTERM^PXRMINDX(DFN,.FINDPA,ENODE,.TERMARR,.TFIEVAL)
  1.  Q
  1.  ;
  1.  ;=============================================================
  1. GETDATA(DAS,FIEVT) ;Return data, for a specified V measurement entry.
  1.  N MEADATA,EM,IND,STOP
  1.  D VMEA^BPXRMPX(.MEADATA,DAS,"I")
  1.  I $P(MEADATA(1),U,1)=-1 D  Q
  1.  . S ^TMP("PXRMXMZ",$J,1,0)="Found V MEASURMENT entry "_DAS_" in the index, but not in the V measurement file"
  1.  . D SEND^PXRMMSG("Bad entry in MeasurementASSOC PROBLEM index.")
  1.  Q:$D(MEADATA(11))>10
  1.  S FIEVT("TYPE")=$$EXTERNAL^DILFD(9999999.07,.03,"",MEADATA(3),.EM)
  1.  S TEMP=$S(+MEADATA(5)'=0:^SC(MEADATA(5),0),1:"")
  1.  S FIEVT("HOSPITAL LOCATION")=$P(TEMP,U,1)
  1.  S FIEVT("LOCATION TYPE")=$P(TEMP,U,3)
  1.  S STOP=$P(TEMP,U,7)
  1.  I +MEADATA(6) D
  1.  .S FIEVT("ENTERED BY")=$P(^VA(200,MEADATA(6),0),U,1)
  1.  S (FIEVT("RATE"),FIEVT("VALUE"))=$P(MEADATA(7),U,1)
  1.  S IND=0
  1.  ;Load the external form of the qualifiers.
  1.  F  S IND=$O(MEADATA(12,IND)) Q:IND=""  D
  1.  . S TEMP=$P(MEADATA(12,IND),U,1)
  1.  .I TEMP'="" S FIEVT("QUALIFIER",IND)=$P($G(^GMRD(120.52,+TEMP,0)),U,1)
  1.  I STOP'="" S FIEVT("STOP CODE")=$P(^DIC(40.7,STOP,0),U,1,2)
  1.  E  S FIEVT("STOP CODE")=""
  1.  Q
  1.  ;
  1.  ;=============================================================
  1. MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the MHV output.
  1.  N EM,FIEN,IND,JND,NAME,NOUT,PNAME,RESULT,TEMP,TEXTOUT,VDATE
  1.  S FIEN=$P(IFIEVAL("FINDING"),";",1)
  1.  S TEMP=^AUTTMSR(FIEN,0)
  1.  S PNAME=$P(TEMP,U,1)
  1.  S NAME=$$INSCHR^PXRMEXLC(INDENT," ")_"Vital: "_PNAME_" = "
  1.  S IND=0
  1.  F  S IND=+$O(IFIEVAL(IND)) Q:IND=0  D
  1.  . S RESULT=$G(IFIEVAL(IND,"VALUE"))
  1.  . ;I RESULT'="" S RESULT=$$EXTERNAL^DILFD(9000010.01,.04,"",RESULT,.EM)
  1.  . S VDATE=IFIEVAL(IND,"DATE")
  1.  . S TEMP=NAME_RESULT_" ("_$$EDATE^PXRMDATE(VDATE)_")"
  1.  . D FORMATS^PXRMTEXT(INDENT+2,PXRMRM,TEMP,.NOUT,.TEXTOUT)
  1.  . F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
  1.  S NLINES=NLINES+1,TEXT(NLINES)=""
  1.  Q
  1.  ;
  1.  ;=============================================================
  1. OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the clinical
  1.  ;maintenance output.
  1.  N EM,FIEN,IND,JND,NOUT,PNAME,RESULT,TEMP,TEXTOUT,VDATE
  1.  S FIEN=$P(IFIEVAL("FINDING"),";",1)
  1.  S PNAME=$P(^AUTTMSR(FIEN,0),U,1)
  1.  S NLINES=NLINES+1
  1.  S TEXT(NLINES)=$$INSCHR^PXRMEXLC(INDENT," ")_"Vital: "_PNAME
  1.  S IND=0
  1.  F  S IND=+$O(IFIEVAL(IND)) Q:IND=0  D
  1.  . S VDATE=IFIEVAL(IND,"DATE")
  1.  . S TEMP=$$EDATE^PXRMDATE(VDATE)
  1.  . S RESULT=$G(IFIEVAL(IND,"VALUE"))
  1.  . I RESULT'="" D
  1.  .. S TEMP=TEMP_" result - "_RESULT
  1.  .. ;S TEMP=TEMP_$$EXTERNAL^DILFD(9000010.01,.04,"",RESULT,.EM)
  1.  . D FORMATS^PXRMTEXT(INDENT+2,PXRMRM,TEMP,.NOUT,.TEXTOUT)
  1.  . F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
  1.  . ;I IFIEVAL(IND,"COMMENTS")'="" D
  1.  . ;S TEMP="Comments: "_IFIEVAL(IND,"COMMENTS")
  1.  . ;D FORMATS^PXRMTEXT(INDENT+3,PXRMRM,TEMP,.NOUT,.TEXTOUT)
  1.  . ;F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
  1.  S NLINES=NLINES+1,TEXT(NLINES)=""
  1.  Q
  1.  ;
  1. SEVALFI(FILENUM,SNODE,DFN,ITEM,NGET,SDIR,BDT,EDT,NFOUND,FLIST) ;Find data