©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PXRMRAD ; SLC/PKR - Handle radiology findings. ;08/04/2008
Source file <PXRMRAD.m>
| Package | Total | Call Graph |
|---|---|---|
| Clinical Reminders | 4 | $$EDATE^PXRMDATE EVALPL^PXRMINDL (EVALFI,EVALTERM)^PXRMINDX FORMATS^PXRMTEXT |
| DRG Grouper | 1 | $$CPT^ICPTCOD |
| Radiology Nuclear Medicine | 1 | EN1^RAPXRM |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) | ;Produce the MHV output.
|
|
| GETDATA(DAS,FIEVT) | ;Return data for a RAD/NUC MED PATIENT entry.
|
|
| EVALFI(DFN,DEFARR,ENODE,FIEVAL) | ;Evaluate radiology findings.
|
|
| EVALPL(FINDPA,ENODE,TERMARR,PLIST) | ;Evaluate radiology term findings
|
|
| EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) | ;Evaluate radiology terms.
|
|
| OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) | ;Produce the clinical
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RAMIS(71 - [#71] | MHVOUT+4, OUTPUT+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CODE | MHVOUT+1~, MHVOUT+8*, OUTPUT+2~, OUTPUT+9*, OUTPUT+11 |
| CPT | MHVOUT+1~, MHVOUT+6*, MHVOUT+7, OUTPUT+2~, OUTPUT+7*, OUTPUT+8 |
| CPTDATA | MHVOUT+1~, MHVOUT+7*, MHVOUT+8, MHVOUT+9, OUTPUT+2~, OUTPUT+8*, OUTPUT+9, OUTPUT+10 |
| D0 | MHVOUT+1~, MHVOUT+4*, MHVOUT+5, MHVOUT+6, OUTPUT+2~, OUTPUT+5*, OUTPUT+6, OUTPUT+7 |
| DAS | GETDATA~, GETDATA+2 |
| DEFARR | EVALFI~, EVALFI+1 |
| DFN | EVALFI~, EVALFI+1, EVALTERM~, EVALTERM+1 |
| ENODE | EVALFI~, EVALFI+1, EVALPL~, EVALPL+2, EVALTERM~, EVALTERM+1 |
| FIEVAL | EVALFI~, EVALFI+1 |
| FIEVT | GETDATA~, GETDATA+2 |
| FIEVT("EXAM S | TATUS" , GETDATA+3 |
| FIEVT("STATUS" | GETDATA+3* |
| FIEVT("VALUE" | GETDATA+3* |
| FINDPA | EVALPL~, EVALPL+2, EVALTERM~, EVALTERM+1 |
| IFIEVAL | MHVOUT~, OUTPUT~ |
| IFIEVAL( | MHVOUT+12, MHVOUT+13, OUTPUT+15, OUTPUT+16, OUTPUT+17, OUTPUT+18 |
| IFIEVAL("FINDING" | MHVOUT+2, OUTPUT+3 |
| IND | MHVOUT+1~, MHVOUT+11*, MHVOUT+12*, MHVOUT+13, OUTPUT+2~, OUTPUT+14*, OUTPUT+15*, OUTPUT+16, OUTPUT+17, OUTPUT+18 |
| INDENT | MHVOUT~, MHVOUT+14, OUTPUT~, OUTPUT+12, OUTPUT+19 |
| JND | MHVOUT+1~, MHVOUT+15*, OUTPUT+2~, OUTPUT+13*, OUTPUT+20* |
| NAME | MHVOUT+1~, MHVOUT+5*, MHVOUT+10*, MHVOUT+13, OUTPUT+2~, OUTPUT+6*, OUTPUT+11 |
| NLINES | MHVOUT~, MHVOUT+15*, MHVOUT+16*, OUTPUT~, OUTPUT+13*, OUTPUT+20*, OUTPUT+21* |
| NOUT | MHVOUT+1~, MHVOUT+14, MHVOUT+15, OUTPUT+2~, OUTPUT+12, OUTPUT+13, OUTPUT+19, OUTPUT+20 |
| PLIST | EVALPL~, EVALPL+2 |
| >> PXRMRM | MHVOUT+14, OUTPUT+12, OUTPUT+19 |
| RADPROC | MHVOUT+1~, MHVOUT+2*, MHVOUT+4, OUTPUT+2~, OUTPUT+3*, OUTPUT+5 |
| SNAME | MHVOUT+1~, MHVOUT+9*, MHVOUT+10, OUTPUT+2~, OUTPUT+10*, OUTPUT+11 |
| TEMP | MHVOUT+1~, MHVOUT+13*, MHVOUT+14, OUTPUT+2~, OUTPUT+11*, OUTPUT+12, OUTPUT+16*, OUTPUT+17*, OUTPUT+18*, OUTPUT+19 |
| TERMARR | EVALPL~, EVALPL+2, EVALTERM~, EVALTERM+1 |
| TEXT | MHVOUT~, OUTPUT~ |
| TEXT( | MHVOUT+15*, MHVOUT+16*, OUTPUT+13*, OUTPUT+20*, OUTPUT+21* |
| TEXTOUT | MHVOUT+1~, MHVOUT+14, OUTPUT+2~, OUTPUT+12, OUTPUT+19 |
| TEXTOUT( | MHVOUT+15, OUTPUT+13, OUTPUT+20 |
| TFIEVAL | EVALTERM~, EVALTERM+1 |
| U | MHVOUT+5, MHVOUT+6, MHVOUT+8, MHVOUT+9, OUTPUT+6, OUTPUT+7, OUTPUT+9, OUTPUT+10 |