| [613] | 1 | PXRMRAD ; SLC/PKR - Handle radiology findings. ;10/21/2005
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
|
|---|
| 3 | ;
|
|---|
| 4 | ;=================================================
|
|---|
| 5 | EVALFI(DFN,DEFARR,ENODE,FIEVAL) ;Evaluate radiology findings.
|
|---|
| 6 | D EVALFI^PXRMINDX(DFN,.DEFARR,ENODE,.FIEVAL)
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | ;=================================================
|
|---|
| 10 | EVALPL(FINDPA,ENODE,TERMARR,PLIST) ;Evaluate radiology 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 radiology terms.
|
|---|
| 17 | D EVALTERM^PXRMINDX(DFN,.FINDPA,ENODE,.TERMARR,.TFIEVAL)
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | ;=================================================
|
|---|
| 21 | GETDATA(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 | ;=================================================
|
|---|
| 28 | MHVOUT(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 | ;=================================================
|
|---|
| 48 | OUTPUT(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 | ;
|
|---|
