| 1 | PXRMDNVA ; SLC/PKR - Handle non-VA med findings. ;03/14/2007
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
|
|---|
| 3 | ;
|
|---|
| 4 | ;===============================================
|
|---|
| 5 | GETDATA(DAS,FIEVT) ;Return data for an non-VA med finding.
|
|---|
| 6 | ;DBIA #3793
|
|---|
| 7 | D NVA^PSOPXRM1(DAS,.FIEVT)
|
|---|
| 8 | S FIEVT("VALUE")=FIEVT("STATUS")
|
|---|
| 9 | I $G(FIEVT("START DATE"))="" S FIEVT("START DATE")=FIEVT("DOCUMENTED DATE")
|
|---|
| 10 | S FIEVT("DURATION")=$$DURATION^PXRMDATE(FIEVT("START DATE"),FIEVT("DISCONTINUED DATE"))
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | ;===============================================
|
|---|
| 14 | EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) ;Evaluate terms.
|
|---|
| 15 | D EVALTERM^PXRMINDX(DFN,.FINDPA,ENODE,.TERMARR,.TFIEVAL)
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | ;====================================================
|
|---|
| 19 | MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the MHV output.
|
|---|
| 20 | N DATE,JND,NOUT,TEMP,TEXTOUT
|
|---|
| 21 | S TEMP="Non-VA med: "_IFIEVAL("ORDERABLE ITEM")_" = "
|
|---|
| 22 | S TEMP=TEMP_"("_$$EDATE^PXRMDATE(IFIEVAL("START DATE"))
|
|---|
| 23 | S DATE=IFIEVAL("DISCONTINUED DATE")
|
|---|
| 24 | S DATE=$S(DATE="":"NONE",1:$$EDATE^PXRMDATE(DATE))
|
|---|
| 25 | D FORMATS^PXRMTEXT(INDENT+2,PXRMRM,TEMP,.NOUT,.TEXTOUT)
|
|---|
| 26 | F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | ;===============================================
|
|---|
| 30 | OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the clinical
|
|---|
| 31 | ;maintenance output.
|
|---|
| 32 | N DATE,JND,NOUT,TEMP,TEXTOUT
|
|---|
| 33 | S NLINES=NLINES+1
|
|---|
| 34 | S TEXT(NLINES)=$$INSCHR^PXRMEXLC(INDENT," ")_"Non-VA med: "_IFIEVAL("ORDERABLE ITEM")
|
|---|
| 35 | S DATE=IFIEVAL("START DATE")
|
|---|
| 36 | S TEMP="Start Date: "_$$EDATE^PXRMDATE(DATE)
|
|---|
| 37 | S DATE=IFIEVAL("DISCONTINUED DATE")
|
|---|
| 38 | S DATE=$S(DATE="":"NONE",1:$$EDATE^PXRMDATE(DATE))
|
|---|
| 39 | S TEMP=TEMP_" Discontinued Date: "_DATE
|
|---|
| 40 | I $D(IFIEVAL("DURATION")) S TEMP=TEMP_" Duration: "_IFIEVAL("DURATION")_" D"
|
|---|
| 41 | S TEMP=TEMP_" Status: "_IFIEVAL("STATUS")_"\\"
|
|---|
| 42 | S TEMP=TEMP_"Dosage Form: "_IFIEVAL("DOSAGE FORM")
|
|---|
| 43 | S TEMP=TEMP_" Dosage: "_IFIEVAL("DOSAGE")
|
|---|
| 44 | S TEMP=TEMP_" Medication Route: "_IFIEVAL("MEDICATION ROUTE")
|
|---|
| 45 | D FORMATS^PXRMTEXT(INDENT+1,PXRMRM,TEMP,.NOUT,.TEXTOUT)
|
|---|
| 46 | F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
|
|---|
| 47 | S NLINES=NLINES+1,TEXT(NLINES)=""
|
|---|
| 48 | Q
|
|---|
| 49 | ;
|
|---|
