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

PXRMORDR.m

Go to the documentation of this file. 
  1. PXRMORDR ; SLC/PKR - Handle orderable item findings. ;07/14/2006
  1.  ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  1.  ;
  1.  ;=========================================================
  1. EVALFI(DFN,DEFARR,ENODE,FIEVAL) ;Evaluate orderable item findings.
  1.  D EVALFI^PXRMINDX(DFN,.DEFARR,ENODE,.FIEVAL)
  1.  Q
  1.  ;
  1.  ;=========================================================
  1. EVALPL(FINDPA,ENODE,TERMARR,PLIST) ;Evaluate orderable item term 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 orderable item terms.
  1.  D EVALTERM^PXRMINDX(DFN,.FINDPA,ENODE,.TERMARR,.TFIEVAL)
  1.  Q
  1.  ;
  1.  ;=========================================================
  1. GETDATA(DAS,FIEVT) ;Return data, for a specified order file entry.
  1.  N DA,DATA
  1.  S DA=$P(DAS,";",1)
  1.  ;DBIA #4498
  1.  D GETDATA^ORPXRM(DA,.DATA)
  1.  S (FIEVT("STATUS"),FIEVT("VALUE"))=$P(DATA("ORSTS"),U,2)
  1.  S FIEVT("ORDER")=DATA("ORORDER")
  1.  S FIEVT("RELEASE DATE")=DATA("ORREL")
  1.  S FIEVT("START DATE")=DATA("ORSTRT")
  1.  S FIEVT("STOP DATE")=DATA("ORSTOP")
  1.  S FIEVT("DURATION")=$$DURATION^PXRMDATE(FIEVT("START DATE"),FIEVT("STOP DATE"))
  1.  Q
  1.  ;
  1.  ;=========================================================
  1. MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the MHV output.
  1.  N DATE,IND,JND,NAME,NOUT,PNAME,TEMP,TEXTOUT
  1.  S PNAME=$P(IFIEVAL("ORDER"),U,2)
  1.  S NAME="Orderable Item: "_PNAME_" = "
  1.  S IND=0
  1.  F  S IND=+$O(IFIEVAL(IND)) Q:IND=0  D
  1.  . S TEMP=NAME_$$LOW^XLFSTR(IFIEVAL(IND,"STATUS"))
  1.  . S DATE=$G(IFIEVAL(IND,"START DATE"))
  1.  . S TEMP=TEMP_" ("_$$EDATE^PXRMDATE(DATE)
  1.  . S DATE=$G(IFIEVAL(IND,"STOP DATE"))
  1.  . I DATE'="" S TEMP=TEMP_" - "_$$EDATE^PXRMDATE(DATE)
  1.  . S TEMP=TEMP_")"
  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 DATE,IND,JND,NOUT,PNAME,TEMP,TEXTOUT
  1.  S PNAME=$P(IFIEVAL("ORDER"),U,2)
  1.  S NLINES=NLINES+1
  1.  S TEXT(NLINES)=$$INSCHR^PXRMEXLC(INDENT," ")_"Orderable Item: "_PNAME
  1.  S IND=0
  1.  F  S IND=+$O(IFIEVAL(IND)) Q:IND=0  D
  1.  . S DATE=IFIEVAL(IND,"DATE")
  1.  . S TEMP=$$EDATE^PXRMDATE(DATE)
  1.  . S TEMP=TEMP_" Status: "_$$LOW^XLFSTR(IFIEVAL(IND,"STATUS"))
  1.  . S DATE=$G(IFIEVAL(IND,"START DATE"))
  1.  . I DATE="" S DATE="missing"
  1.  . S TEMP=TEMP_", Start date: "_$$EDATE^PXRMDATE(DATE)
  1.  . S DATE=$G(IFIEVAL(IND,"STOP DATE"))
  1.  . I DATE="" S DATE="missing"
  1.  . S TEMP=TEMP_", Stop date: "_$$EDATE^PXRMDATE(DATE)
  1.  . I $D(IFIEVAL(IND,"DURATION")) S TEMP=TEMP_"  Duration: "_IFIEVAL(IND,"DURATION")_" D"
  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.  ;