source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMDNVA.m@ 724

Last change on this file since 724 was 623, checked in by George Lilly, 15 years ago

revised back to 6/30/08 version

File size: 2.0 KB
Line 
1PXRMDNVA ; SLC/PKR - Handle non-VA med findings. ;05/24/2006
2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
3 ;
4 ;===============================================
5GETDATA(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 ;===============================================
14EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) ;Evaluate terms.
15 D EVALTERM^PXRMINDX(DFN,.FINDPA,ENODE,.TERMARR,.TFIEVAL)
16 Q
17 ;
18 ;====================================================
19MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the MHV output.
20 N JND,NOUT,TEMP,TEXTOUT
21 S TEMP="Non-VA med: "_IFIEVAL("ORDERABLE ITEM")_" = "
22 S TEMP=TEMP_"("_$$EDATE^PXRMDATE(IFIEVAL("START DATE"))
23 S TEMP=TEMP_" - "_$$EDATE^PXRMDATE(IFIEVAL("STOP DATE"))_")"
24 D FORMATS^PXRMTEXT(INDENT+2,PXRMRM,TEMP,.NOUT,.TEXTOUT)
25 F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
26 Q
27 ;
28 ;===============================================
29OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the clinical
30 ;maintenance output.
31 N DATE,JND,NOUT,TEMP,TEXTOUT
32 S NLINES=NLINES+1
33 S TEXT(NLINES)=$$INSCHR^PXRMEXLC(INDENT," ")_"Non-VA med: "_IFIEVAL("ORDERABLE ITEM")
34 S DATE=IFIEVAL("START DATE")
35 S TEMP="Start Date: "_$$EDATE^PXRMDATE(DATE)
36 S DATE=IFIEVAL("DISCONTINUED DATE")
37 S DATE=$S(DATE="":"NONE",1:$$EDATE^PXRMDATE(DATE))
38 S TEMP=TEMP_" Discontinued Date: "_DATE
39 I $D(IFIEVAL("DURATION")) S TEMP=TEMP_" Duration: "_IFIEVAL("DURATION")_" D"
40 S TEMP=TEMP_" Status: "_IFIEVAL("STATUS")_"\\"
41 S TEMP=TEMP_"Dosage Form: "_IFIEVAL("DOSAGE FORM")
42 S TEMP=TEMP_" Dosage: "_IFIEVAL("DOSAGE")
43 S TEMP=TEMP_" Medication Route: "_IFIEVAL("MEDICATION ROUTE")
44 D FORMATS^PXRMTEXT(INDENT+1,PXRMRM,TEMP,.NOUT,.TEXTOUT)
45 F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
46 S NLINES=NLINES+1,TEXT(NLINES)=""
47 Q
48 ;
Note: See TracBrowser for help on using the repository browser.