| 1 | PXRMLAB ; SLC/PKR - Handle laboratory test findings. ;03/02/2006
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
|
|---|
| 3 | ;
|
|---|
| 4 | ;=============================================
|
|---|
| 5 | EVALFI(DFN,DEFARR,ENODE,FIEVAL) ;Evaluate lab findings.
|
|---|
| 6 | D EVALFI^PXRMINDX(DFN,.DEFARR,ENODE,.FIEVAL)
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | ;=============================================
|
|---|
| 10 | EVALPL(FINDPA,ENODE,TERMARR,PLIST) ;Evaluate lab term findings
|
|---|
| 11 | ;for patient lists.
|
|---|
| 12 | D EVALPL^PXRMINDL(.FINDPA,ENODE,.TERMARR,PLIST)
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | ;=============================================
|
|---|
| 16 | EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) ;Evaluate lab terms.
|
|---|
| 17 | D EVALTERM^PXRMINDX(DFN,.FINDPA,ENODE,.TERMARR,.TFIEVAL)
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | ;=============================================
|
|---|
| 21 | GETDATA(DASP,FIEVT) ;Return Lab data. The first piece of DASP is the item.
|
|---|
| 22 | N DAS,DATA,ITEM
|
|---|
| 23 | ;DBIA #4245
|
|---|
| 24 | S ITEM=$P(DASP,"~",1)
|
|---|
| 25 | S DAS=$P(DASP,"~",2)
|
|---|
| 26 | D LRPXRM^LRPXAPI(.DATA,DAS,ITEM)
|
|---|
| 27 | S FIEVT("DATA")=DATA
|
|---|
| 28 | S FIEVT("TEST NAME")=$P(DATA,U,2)
|
|---|
| 29 | I DAS["CH" S FIEVT("VALUE")=$P(DATA,U,3),FIEVT("FLAG")=$P(DATA,U,4)
|
|---|
| 30 | E S (FIEVT("VALUE"),FIEVT("FLAG"))=""
|
|---|
| 31 | I $D(DATA("SPECIMEN")) S FIEVT("SPECIMEN")=$P(DATA("SPECIMEN"),U,2)
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | ;=============================================
|
|---|
| 35 | MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the MHV output.
|
|---|
| 36 | N DATE,FLAG,IND,JND,NAME,NOUT,TEXTOUT,TEST,VALUE
|
|---|
| 37 | S TEST=IFIEVAL("TEST NAME")
|
|---|
| 38 | S NAME="Laboratory test: "_TEST_" = "
|
|---|
| 39 | S IND=0
|
|---|
| 40 | F S IND=+$O(IFIEVAL(IND)) Q:IND=0 D
|
|---|
| 41 | . S VALUE=$G(IFIEVAL(IND,"VALUE"))
|
|---|
| 42 | . S FLAG=$G(IFIEVAL(IND,"FLAG"))
|
|---|
| 43 | . I FLAG'="" S VALUE=VALUE_FLAG
|
|---|
| 44 | . S DATE=IFIEVAL(IND,"DATE")
|
|---|
| 45 | . S TEMP=NAME_VALUE_" ("_$$EDATE^PXRMDATE(DATE)_")"
|
|---|
| 46 | . D FORMATS^PXRMTEXT(INDENT+2,PXRMRM,TEMP,.NOUT,.TEXTOUT)
|
|---|
| 47 | . F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
|
|---|
| 48 | . S NLINES=NLINES+1,TEXT(NLINES)=""
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
| 51 | ;=============================================
|
|---|
| 52 | OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the clinical
|
|---|
| 53 | ;maintenance output.
|
|---|
| 54 | N DATE,FLAG,IND,JND,NOUT,TEMP,TEXTOUT,TEST,VALUE
|
|---|
| 55 | S TEST=IFIEVAL("TEST NAME")
|
|---|
| 56 | S TEMP="Laboratory test: "_TEST
|
|---|
| 57 | I $D(IFIEVAL("SPECIMEN")) S TEMP=TEMP_"; specimen: "_IFIEVAL("SPECIMEN")
|
|---|
| 58 | S NLINES=NLINES+1
|
|---|
| 59 | S TEXT(NLINES)=$$INSCHR^PXRMEXLC(INDENT," ")_TEMP
|
|---|
| 60 | S IND=0
|
|---|
| 61 | F S IND=+$O(IFIEVAL(IND)) Q:IND=0 D
|
|---|
| 62 | . S DATE=IFIEVAL(IND,"DATE")
|
|---|
| 63 | . S TEMP=$$EDATE^PXRMDATE(DATE)
|
|---|
| 64 | . S VALUE=$G(IFIEVAL(IND,"VALUE"))
|
|---|
| 65 | . S FLAG=$G(IFIEVAL(IND,"FLAG"))
|
|---|
| 66 | . I VALUE'="" S TEMP=TEMP_" value - "_VALUE
|
|---|
| 67 | . I FLAG'="" S TEMP=TEMP_" "_FLAG
|
|---|
| 68 | . D FORMATS^PXRMTEXT(INDENT+2,PXRMRM,TEMP,.NOUT,.TEXTOUT)
|
|---|
| 69 | . F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
|
|---|
| 70 | S NLINES=NLINES+1,TEXT(NLINES)=""
|
|---|
| 71 | Q
|
|---|
| 72 | ;
|
|---|
