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

PXRMSKIN.m

Go to the documentation of this file. 
  1. PXRMSKIN ; SLC/PKR - Handle skin test findings. ;29-Feb-2012 09:25;DU
  1.  ;;2.0;CLINICAL REMINDERS;**1001**;Feb 04, 2005;Build 21
  1.  ;IHS/MSC/MGH Patch 1001 wrap lookup with $G
  1.  ;
  1.  ;====================================================
  1. EVALFI(DFN,DEFARR,ENODE,FIEVAL) ;Evaluate skin test findings.
  1.  D EVALFI^PXRMINDX(DFN,.DEFARR,ENODE,.FIEVAL)
  1.  Q
  1.  ;
  1.  ;====================================================
  1. EVALPL(FINDPA,ENODE,TERMARR,PLIST) ;Evaluate skin test 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 skin test terms.
  1.  D EVALTERM^PXRMINDX(DFN,.FINDPA,ENODE,.TERMARR,.TFIEVAL)
  1.  Q
  1.  ;
  1.  ;====================================================
  1. GETDATA(DAS,FIEVT) ;Return data for a specified V Skin Test entry.
  1.  ;DBIA #4250
  1.  D VSKIN^PXPXRM(DAS,.FIEVT)
  1.  Q
  1.  ;
  1.  ;====================================================
  1. MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the MHV output.
  1.  N EM,FIEN,IND,JND,NAME,NOUT,PNAME,READING,RESULTS,TEMP,TEXTOUT,VDATE
  1.  S FIEN=$P(IFIEVAL("FINDING"),";",1)
  1.  ;IHS/MSC/MGH Patch 1001 wrap with $G
  1.  S PNAME=$P($G(^AUTTSK(FIEN,0)),U,1)
  1.  S NAME="Skin Test: "_PNAME
  1.  S IND=0
  1.  F  S IND=+$O(IFIEVAL(IND)) Q:IND=0  D
  1.  . S RESULTS=$G(IFIEVAL(IND,"RESULTS"))
  1.  . I $L(RESULTS)>0 S RESULTS=" "_$$EXTERNAL^DILFD(9000010.12,.04,"",RESULTS,.EM)
  1.  . S READING=$G(IFIEVAL(IND,"READING"))
  1.  . I READING'="" S READING=" reading "_$$EXTERNAL^DILFD(9000010.12,.05,"",READING,.EM)
  1.  . S VDATE=IFIEVAL(IND,"DATE")
  1.  . S TEMP=NAME_RESULTS_READING_" ("_$$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,READING,RESULTS,TEMP,TEXTOUT,VDATE
  1.  S FIEN=$P(IFIEVAL("FINDING"),";",1)
  1.  ;IHS/MSC/MGH patch 1001 wrap with $G
  1.  S PNAME=$P($G(^AUTTSK(FIEN,0)),U,1)
  1.  S NLINES=NLINES+1
  1.  S TEXT(NLINES)=$$INSCHR^PXRMEXLC(INDENT," ")_"Skin Test: "_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 RESULTS=$G(IFIEVAL(IND,"RESULTS"))
  1.  . S READING=$G(IFIEVAL(IND,"READING"))
  1.  . I RESULTS'="" D
  1.  .. S TEMP=TEMP_" results - "
  1.  .. S TEMP=TEMP_$$EXTERNAL^DILFD(9000010.12,.04,"",RESULTS,.EM)
  1.  . I READING'="" D
  1.  .. S TEMP=TEMP_" reading - "
  1.  .. S TEMP=TEMP_$$EXTERNAL^DILFD(9000010.12,.05,"",READING,.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.  ;