source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMEXAM.m@ 1736

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

initial load of WorldVistAEHR

File size: 2.5 KB
RevLine 
[613]1PXRMEXAM ; SLC/PKR - Handle examination findings. ;08/31/2004
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;
4 ;=============================================================
5EVALFI(DFN,DEFARR,ENODE,FIEVAL) ;Evaluate examination findings.
6 D EVALFI^PXRMINDX(DFN,.DEFARR,ENODE,.FIEVAL)
7 Q
8 ;
9 ;=============================================================
10EVALPL(FINDPA,ENODE,TERMARR,PLIST) ;Evaluate examination term findings
11 ;for patient lists.
12 D EVALPL^PXRMINDL(.FINDPA,ENODE,.TERMARR,PLIST)
13 Q
14 ;
15 ;=============================================================
16EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) ;Evaluate examanation terms.
17 D EVALTERM^PXRMINDX(DFN,.FINDPA,ENODE,.TERMARR,.TFIEVAL)
18 Q
19 ;
20 ;=============================================================
21GETDATA(DAS,FIEVT) ;Return data, for a specified V Exam entry.
22 ;DBIA #4250.
23 D VXAM^PXPXRM(DAS,.FIEVT)
24 Q
25 ;
26 ;=============================================================
27MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the MHV output.
28 N EM,FIEN,IND,JND,NAME,NOUT,PNAME,RESULT,TEMP,TEXTOUT,VDATE
29 S FIEN=$P(IFIEVAL("FINDING"),";",1)
30 S TEMP=^AUTTEXAM(FIEN,0)
31 S PNAME=$P(TEMP,U,1)
32 S NAME=$$INSCHR^PXRMEXLC(INDENT," ")_"Exam: "_PNAME_" = "
33 S IND=0
34 F S IND=+$O(IFIEVAL(IND)) Q:IND=0 D
35 . S RESULT=$G(IFIEVAL(IND,"RESULT"))
36 . I RESULT'="" S RESULT=$$EXTERNAL^DILFD(9000010.13,.04,"",RESULT,.EM)
37 . S VDATE=IFIEVAL(IND,"DATE")
38 . S TEMP=NAME_RESULT_" ("_$$EDATE^PXRMDATE(VDATE)_")"
39 . D FORMATS^PXRMTEXT(INDENT+2,PXRMRM,TEMP,.NOUT,.TEXTOUT)
40 . F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
41 S NLINES=NLINES+1,TEXT(NLINES)=""
42 Q
43 ;
44 ;=============================================================
45OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the clinical
46 ;maintenance output.
47 N EM,FIEN,IND,JND,NOUT,PNAME,RESULT,TEMP,TEXTOUT,VDATE
48 S FIEN=$P(IFIEVAL("FINDING"),";",1)
49 S PNAME=$P(^AUTTEXAM(FIEN,0),U,1)
50 S NLINES=NLINES+1
51 S TEXT(NLINES)=$$INSCHR^PXRMEXLC(INDENT," ")_"Exam: "_PNAME
52 S IND=0
53 F S IND=+$O(IFIEVAL(IND)) Q:IND=0 D
54 . S VDATE=IFIEVAL(IND,"DATE")
55 . S TEMP=$$EDATE^PXRMDATE(VDATE)
56 . S RESULT=$G(IFIEVAL(IND,"RESULT"))
57 . I RESULT'="" D
58 .. S TEMP=TEMP_" result - "
59 .. S TEMP=TEMP_$$EXTERNAL^DILFD(9000010.13,.04,"",RESULT,.EM)
60 . D FORMATS^PXRMTEXT(INDENT+2,PXRMRM,TEMP,.NOUT,.TEXTOUT)
61 . F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
62 . I IFIEVAL(IND,"COMMENTS")'="" D
63 .. S TEMP="Comments: "_IFIEVAL(IND,"COMMENTS")
64 .. D FORMATS^PXRMTEXT(INDENT+3,PXRMRM,TEMP,.NOUT,.TEXTOUT)
65 .. F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
66 S NLINES=NLINES+1,TEXT(NLINES)=""
67 Q
68 ;
Note: See TracBrowser for help on using the repository browser.