PXRMIMM ; SLC/PKR - Handle immunization findings. ;29-Feb-2012 09:25;DU
;;2.0;CLINICAL REMINDERS;**1001**;Feb 04, 2005;Build 21
;IHS/MSC/MGH Patch 1001 wrap lookup with $G
;
;=======================================================
EVALFI(DFN,DEFARR,ENODE,FIEVAL) ;Evaluate immunization findings.
D EVALFI^PXRMINDX(DFN,.DEFARR,ENODE,.FIEVAL)
Q
;
;=======================================================
EVALPL(FINDPA,ENODE,TERMARR,PLIST) ;Evaluate immunization term findings
;for patient lists.
D EVALPL^PXRMINDL(.FINDPA,ENODE,.TERMARR,PLIST)
Q
;
;=======================================================
EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) ;Evaluate immunization terms.
D EVALTERM^PXRMINDX(DFN,.FINDPA,ENODE,.TERMARR,.TFIEVAL)
Q
;
;=======================================================
GETDATA(DAS,FIEVT) ;Return data, for a specified V Immunization entry.
;DBIA #4250
D VIMM^PXPXRM(DAS,.FIEVT)
Q
;
;=======================================================
MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the clinical
;maintenance output.
N EM,FIEN,IND,JND,NAME,NOUT,PNAME,REACTION,SERIES,TEMP,TEXTOUT,VDATE
S FIEN=$P(IFIEVAL("FINDING"),";",1)
;IHS/MSC/MGH Patch 1001 wrap with $G
S PNAME=$P($G(^AUTTIMM(FIEN,0)),U,1)
S NAME="Immunization: "_PNAME_" = "
S IND=0
F S IND=+$O(IFIEVAL(IND)) Q:IND=0 D
. S SERIES=$G(IFIEVAL(IND,"SERIES"))
. I SERIES'="" S SERIES=$$EXTERNAL^DILFD(9000010.11,.04,"",SERIES,.EM)
. I $G(IFIEVAL(IND,"CONTRAINDICATED")) S SERIES=SERIES_"; - CONTRAINDICATED"
. S VDATE=IFIEVAL(IND,"DATE")
. S TEMP=NAME_SERIES_" ("_$$EDATE^PXRMDATE(VDATE)_")"
. D FORMATS^PXRMTEXT(INDENT+2,PXRMRM,TEMP,.NOUT,.TEXTOUT)
. F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
S NLINES=NLINES+1,TEXT(NLINES)=""
Q
;
;=======================================================
OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the clinical
;maintenance output.
N EM,FIEN,IND,JND,NOUT,PNAME,REACTION,SERIES,TEMP,TEXTOUT,VDATE
S FIEN=$P(IFIEVAL("FINDING"),";",1)
;IHS/MSC/MGH Patch 1001 Wrap with $G
S PNAME=$P($G(^AUTTIMM(FIEN,0)),U,1)
S NLINES=NLINES+1
S TEXT(NLINES)=$$INSCHR^PXRMEXLC(INDENT," ")_"Immunization: "_PNAME
S IND=0
F S IND=+$O(IFIEVAL(IND)) Q:IND=0 D
. S VDATE=IFIEVAL(IND,"DATE")
. S TEMP=$$EDATE^PXRMDATE(VDATE)
. S REACTION=$G(IFIEVAL(IND,"REACTION"))
. S SERIES=$G(IFIEVAL(IND,"SERIES"))
. I SERIES'="" D
.. S TEMP=TEMP_" series - "
.. S TEMP=TEMP_$$EXTERNAL^DILFD(9000010.11,.04,"",SERIES,.EM)
. I REACTION'="" D
.. S TEMP=TEMP_" reaction - "
.. S TEMP=TEMP_$$EXTERNAL^DILFD(9000010.11,.06,"",REACTION,.EM)
. I $G(IFIEVAL(IND,"CONTRAINDICATED")) S TEMP=TEMP_"; - CONTRAINDICATED"
. D FORMATS^PXRMTEXT(INDENT+2,PXRMRM,TEMP,.NOUT,.TEXTOUT)
. F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
. I IFIEVAL(IND,"COMMENTS")'="" D
.. S TEMP="Comments: "_IFIEVAL(IND,"COMMENTS")
.. D FORMATS^PXRMTEXT(INDENT+3,PXRMRM,TEMP,.NOUT,.TEXTOUT)
.. F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
S NLINES=NLINES+1,TEXT(NLINES)=""
Q
;
PXRMIMM ; SLC/PKR - Handle immunization findings. ;29-Feb-2012 09:25;DU
+1 ;;2.0;CLINICAL REMINDERS;**1001**;Feb 04, 2005;Build 21
+2 ;IHS/MSC/MGH Patch 1001 wrap lookup with $G
+3 ;
+4 ;=======================================================
EVALFI(DFN,DEFARR,ENODE,FIEVAL) ;Evaluate immunization findings.
+1 DO EVALFI^PXRMINDX(DFN,.DEFARR,ENODE,.FIEVAL)
+2 QUIT
+3 ;
+4 ;=======================================================
EVALPL(FINDPA,ENODE,TERMARR,PLIST) ;Evaluate immunization term findings
+1 ;for patient lists.
+2 DO EVALPL^PXRMINDL(.FINDPA,ENODE,.TERMARR,PLIST)
+3 QUIT
+4 ;
+5 ;=======================================================
EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) ;Evaluate immunization terms.
+1 DO EVALTERM^PXRMINDX(DFN,.FINDPA,ENODE,.TERMARR,.TFIEVAL)
+2 QUIT
+3 ;
+4 ;=======================================================
GETDATA(DAS,FIEVT) ;Return data, for a specified V Immunization entry.
+1 ;DBIA #4250
+2 DO VIMM^PXPXRM(DAS,.FIEVT)
+3 QUIT
+4 ;
+5 ;=======================================================
MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the clinical
+1 ;maintenance output.
+2 NEW EM,FIEN,IND,JND,NAME,NOUT,PNAME,REACTION,SERIES,TEMP,TEXTOUT,VDATE
+3 SET FIEN=$PIECE(IFIEVAL("FINDING"),";",1)
+4 ;IHS/MSC/MGH Patch 1001 wrap with $G
+5 SET PNAME=$PIECE($GET(^AUTTIMM(FIEN,0)),U,1)
+6 SET NAME="Immunization: "_PNAME_" = "
+7 SET IND=0
+8 FOR
SET IND=+$ORDER(IFIEVAL(IND))
IF IND=0
QUIT
Begin DoDot:1
+9 SET SERIES=$GET(IFIEVAL(IND,"SERIES"))
+10 IF SERIES'=""
SET SERIES=$$EXTERNAL^DILFD(9000010.11,.04,"",SERIES,.EM)
+11 IF $GET(IFIEVAL(IND,"CONTRAINDICATED"))
SET SERIES=SERIES_"; - CONTRAINDICATED"
+12 SET VDATE=IFIEVAL(IND,"DATE")
+13 SET TEMP=NAME_SERIES_" ("_$$EDATE^PXRMDATE(VDATE)_")"
+14 DO FORMATS^PXRMTEXT(INDENT+2,PXRMRM,TEMP,.NOUT,.TEXTOUT)
+15 FOR JND=1:1:NOUT
SET NLINES=NLINES+1
SET TEXT(NLINES)=TEXTOUT(JND)
End DoDot:1
+16 SET NLINES=NLINES+1
SET TEXT(NLINES)=""
+17 QUIT
+18 ;
+19 ;=======================================================
OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the clinical
+1 ;maintenance output.
+2 NEW EM,FIEN,IND,JND,NOUT,PNAME,REACTION,SERIES,TEMP,TEXTOUT,VDATE
+3 SET FIEN=$PIECE(IFIEVAL("FINDING"),";",1)
+4 ;IHS/MSC/MGH Patch 1001 Wrap with $G
+5 SET PNAME=$PIECE($GET(^AUTTIMM(FIEN,0)),U,1)
+6 SET NLINES=NLINES+1
+7 SET TEXT(NLINES)=$$INSCHR^PXRMEXLC(INDENT," ")_"Immunization: "_PNAME
+8 SET IND=0
+9 FOR
SET IND=+$ORDER(IFIEVAL(IND))
IF IND=0
QUIT
Begin DoDot:1
+10 SET VDATE=IFIEVAL(IND,"DATE")
+11 SET TEMP=$$EDATE^PXRMDATE(VDATE)
+12 SET REACTION=$GET(IFIEVAL(IND,"REACTION"))
+13 SET SERIES=$GET(IFIEVAL(IND,"SERIES"))
+14 IF SERIES'=""
Begin DoDot:2
+15 SET TEMP=TEMP_" series - "
+16 SET TEMP=TEMP_$$EXTERNAL^DILFD(9000010.11,.04,"",SERIES,.EM)
End DoDot:2
+17 IF REACTION'=""
Begin DoDot:2
+18 SET TEMP=TEMP_" reaction - "
+19 SET TEMP=TEMP_$$EXTERNAL^DILFD(9000010.11,.06,"",REACTION,.EM)
End DoDot:2
+20 IF $GET(IFIEVAL(IND,"CONTRAINDICATED"))
SET TEMP=TEMP_"; - CONTRAINDICATED"
+21 DO FORMATS^PXRMTEXT(INDENT+2,PXRMRM,TEMP,.NOUT,.TEXTOUT)
+22 FOR JND=1:1:NOUT
SET NLINES=NLINES+1
SET TEXT(NLINES)=TEXTOUT(JND)
+23 IF IFIEVAL(IND,"COMMENTS")'=""
Begin DoDot:2
+24 SET TEMP="Comments: "_IFIEVAL(IND,"COMMENTS")
+25 DO FORMATS^PXRMTEXT(INDENT+3,PXRMRM,TEMP,.NOUT,.TEXTOUT)
+26 FOR JND=1:1:NOUT
SET NLINES=NLINES+1
SET TEXT(NLINES)=TEXTOUT(JND)
End DoDot:2
End DoDot:1
+27 SET NLINES=NLINES+1
SET TEXT(NLINES)=""
+28 QUIT
+29 ;
