source: FOIAVistA/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMRAD.m@ 1470

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

initial load of FOIAVistA 6/30/08 version

File size: 2.4 KB
Line 
1PXRMRAD ; SLC/PKR - Handle radiology findings. ;10/21/2005
2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
3 ;
4 ;=================================================
5EVALFI(DFN,DEFARR,ENODE,FIEVAL) ;Evaluate radiology findings.
6 D EVALFI^PXRMINDX(DFN,.DEFARR,ENODE,.FIEVAL)
7 Q
8 ;
9 ;=================================================
10EVALPL(FINDPA,ENODE,TERMARR,PLIST) ;Evaluate radiology 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 radiology terms.
17 D EVALTERM^PXRMINDX(DFN,.FINDPA,ENODE,.TERMARR,.TFIEVAL)
18 Q
19 ;
20 ;=================================================
21GETDATA(DAS,FIEVT) ;Return data for a RAD/NUC MED PATIENT entry.
22 ;DBIA #3731
23 D EN1^RAPXRM(DAS,.FIEVT)
24 S (FIEVT("STATUS"),FIEVT("VALUE"))=FIEVT("EXAM STATUS")
25 Q
26 ;
27 ;=================================================
28MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the MHV output.
29 N CPT,CPTDATA,CODE,D0,IND,JND,NAME,NOUT,RADPROC,SNAME,TEMP,TEXTOUT
30 S RADPROC=$P(IFIEVAL("FINDING"),";",1)
31 ;DBIA #118-B
32 S D0=^RAMIS(71,RADPROC,0)
33 S NAME=$P(D0,U,1)
34 S CPT=$P(D0,U,9)
35 S CPTDATA=$$CPT^ICPTCOD(CPT)
36 S CODE=$P(CPTDATA,U,2)
37 S SNAME=$P(CPTDATA,U,3)
38 S NAME="Radiology Procedure = "_SNAME
39 S IND=0
40 F S IND=+$O(IFIEVAL(IND)) Q:IND=0 D
41 . S TEMP=NAME_" ("_$$EDATE^PXRMDATE(IFIEVAL(IND,"DATE"))_")"
42 . D FORMATS^PXRMTEXT(INDENT+2,PXRMRM,TEMP,.NOUT,.TEXTOUT)
43 . F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
44 S NLINES=NLINES+1,TEXT(NLINES)=""
45 Q
46 ;
47 ;=================================================
48OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the clinical
49 ;maintenance output.
50 N CPT,CPTDATA,CODE,D0,IND,JND,NAME,NOUT,RADPROC,SNAME,TEMP,TEXTOUT
51 S RADPROC=$P(IFIEVAL("FINDING"),";",1)
52 ;DBIA #118-B
53 S D0=^RAMIS(71,RADPROC,0)
54 S NAME=$P(D0,U,1)
55 S CPT=$P(D0,U,9)
56 S CPTDATA=$$CPT^ICPTCOD(CPT)
57 S CODE=$P(CPTDATA,U,2)
58 S SNAME=$P(CPTDATA,U,3)
59 S TEMP="Radiology Procedure: "_CODE_" ("_NAME_") - "_SNAME
60 D FORMATS^PXRMTEXT(INDENT+1,PXRMRM,TEMP,.NOUT,.TEXTOUT)
61 F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
62 S IND=0
63 F S IND=+$O(IFIEVAL(IND)) Q:IND=0 D
64 . S TEMP=$$EDATE^PXRMDATE(IFIEVAL(IND,"DATE"))
65 . S TEMP=TEMP_" Status: "_IFIEVAL(IND,"STATUS")
66 . D FORMATS^PXRMTEXT(INDENT+2,PXRMRM,TEMP,.NOUT,.TEXTOUT)
67 . F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
68 S NLINES=NLINES+1,TEXT(NLINES)=""
69 Q
70 ;
Note: See TracBrowser for help on using the repository browser.