PXRMRCPT ; SLC/PKR - Code to handle radiology CPT data. ;12/19/2012
Source file <PXRMRCPT.m>
| Package | Total | Call Graph |
|---|---|---|
| Clinical Reminders | 6 | $$EDATE^PXRMDATE NOINDEX^PXRMERRH $$INSCHR^PXRMEXLC GPLIST^PXRMINDL FIEVAL^PXRMINDX FORMAT^PXRMTEXT |
| DRG Grouper | 1 | $$CPT^ICPTCOD |
| Lexicon Utility | 1 | ($$CSDATA,$$CSYS)^LEXU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GPLIST(TAXARR,PFINDPA,PLIST) | ;Build a patient list for radiology procedures
|
|
| OUTPUT(INDENT,OCCLIST,IFIEVAL,NLINES,TEXT) | ;Produce the clinical
|
|
| FPDAT(DFN,TAXARR,NOCC,BDT,EDT,STATUSA,FLIST) | ;Find radiology procedures for a
|
|
| MHVOUT(INDENT,OCCLIST,IFIEVAL,NLINES,TEXT) | ;Produce the MHV output.
|
| Name | Field # of Occurrence |
|---|---|
| $$CPT^ICPTCOD | FPDAT+23 |
| $$CSDATA^LEXU | MHVOUT+12, OUTPUT+18 |
| $$CSYS^LEXU | MHVOUT+8, OUTPUT+14 |
| $$EDATE^PXRMDATE | MHVOUT+15, OUTPUT+19 |
| NOINDEX^PXRMERRH | FPDAT+6, GPLIST+6 |
| $$INSCHR^PXRMEXLC | OUTPUT+8 |
| GPLIST^PXRMINDL | GPLIST+16 |
| FIEVAL^PXRMINDX | FPDAT+20 |
| FORMAT^PXRMTEXT | MHVOUT+16, OUTPUT+23 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PXD(811.2 - [#811.2] | OUTPUT+6 |
| ^PXRMINDX(70 | FPDAT+5, FPDAT+7, FPDAT+18, GPLIST+5, GPLIST+13 |
| ^RAMIS(71 - [#71] | FPDAT+17, GPLIST+12 |
| ^TMP($J | GPLIST+15!, GPLIST+19, GPLIST+21, GPLIST+22, GPLIST+26*, GPLIST+27! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BDT | FPDAT~, FPDAT+8 |
| CDATA | MHVOUT+1~, MHVOUT+10!, MHVOUT+12, OUTPUT+2~, OUTPUT+16!, OUTPUT+18 |
| CDATA("LEX" | MHVOUT+15, OUTPUT+20 |
| CODE | FPDAT+2~, FPDAT+23*, FPDAT+27, MHVOUT+1~, MHVOUT+5*, MHVOUT+12, OUTPUT+2~, OUTPUT+11*, OUTPUT+18, OUTPUT+20 |
| CODESYS | MHVOUT+6*, MHVOUT+8, MHVOUT+12, OUTPUT+2~, OUTPUT+12*, OUTPUT+14, OUTPUT+18, OUTPUT+20 |
| CODESYSN | OUTPUT+2~ |
| CODESYSN( | MHVOUT+8*, OUTPUT+14*, OUTPUT+20 |
| CPT4P | FPDAT+2~, FPDAT+13*, FPDAT+14*, FPDAT+17, FPDAT+23, GPLIST+2~, GPLIST+8*, GPLIST+9*, GPLIST+12, GPLIST+14* , GPLIST+26 |
| DAS | GPLIST+2~, GPLIST+23*, GPLIST+26 |
| DATE | FPDAT+2~, FPDAT+34*, FPDAT+35*, FPDAT+37, FPDAT+39, GPLIST+2~, GPLIST+24*, GPLIST+26, MHVOUT+1~, MHVOUT+9* , MHVOUT+12, MHVOUT+13*, MHVOUT+15, OUTPUT+2~, OUTPUT+15*, OUTPUT+18, OUTPUT+19 |
| DFN | FPDAT~, FPDAT+7, FPDAT+18, FPDAT+20, GPLIST+2~, GPLIST+18*, GPLIST+19*, GPLIST+21, GPLIST+22, GPLIST+26 |
| EDT | FPDAT~, FPDAT+9 |
| FIEVT | FPDAT+2~, FPDAT+19!, FPDAT+20, FPDAT+21 |
| FIEVT( | FPDAT+25, FPDAT+27 |
| FLIST | FPDAT~ |
| FLIST( | FPDAT+39* |
| ICPTP | MHVOUT+1~ |
| IFIEVAL | MHVOUT~, OUTPUT~ |
| IFIEVAL( | MHVOUT+5, MHVOUT+6, MHVOUT+9, MHVOUT+13, MHVOUT+14, OUTPUT+11, OUTPUT+12, OUTPUT+15, OUTPUT+19, OUTPUT+21 , OUTPUT+22 |
| IFIEVAL("FINDING" | OUTPUT+4 |
| IND | FPDAT+2~, FPDAT+12*, FPDAT+24*, FPDAT+25*, FPDAT+27, FPDAT+36*, FPDAT+37*, FPDAT+39, MHVOUT+1~, MHVOUT+3* , MHVOUT+4*, MHVOUT+5, MHVOUT+6, MHVOUT+9, MHVOUT+13, MHVOUT+14, OUTPUT+2~, OUTPUT+9*, OUTPUT+10*, OUTPUT+11 , OUTPUT+12, OUTPUT+15, OUTPUT+19, OUTPUT+21, OUTPUT+22 |
| INDENT | MHVOUT~, MHVOUT+16, OUTPUT~, OUTPUT+8, OUTPUT+23 |
| JND | MHVOUT+1~, MHVOUT+17*, OUTPUT+2~, OUTPUT+24* |
| NAME | MHVOUT+1~, MHVOUT+2*, MHVOUT+14 |
| NFOUND | FPDAT+2~, FPDAT+13*, FPDAT+26*, FPDAT+27, FPDAT+28, FPDAT+33*, FPDAT+35, FPDAT+37, FPDAT+38*, FPDAT+39 , GPLIST+2~, GPLIST+20*, GPLIST+21*, GPLIST+22 |
| >> NGET | FPDAT+28 |
| NLINES | MHVOUT~, MHVOUT+17*, MHVOUT+18*, OUTPUT~, OUTPUT+7*, OUTPUT+8, OUTPUT+24*, OUTPUT+25* |
| NOCC | FPDAT~, FPDAT+10, FPDAT+11, FPDAT+32 |
| NOCCABS | FPDAT+2~, FPDAT+32*, FPDAT+35, FPDAT+37 |
| NOUT | MHVOUT+1~, MHVOUT+16, MHVOUT+17, OUTPUT+2~, OUTPUT+23, OUTPUT+24 |
| OCCLIST | MHVOUT~, OUTPUT~ |
| OCCLIST( | MHVOUT+4, OUTPUT+10 |
| PFINDPA | FPDAT+2~, FPDAT+20, GPLIST~, GPLIST+16 |
| PFINDPA(0 | FPDAT+8*, FPDAT+9*, FPDAT+10* |
| PFINDPA(5 | FPDAT+12* |
| PLIST | GPLIST~, GPLIST+26 |
| >> PXRMRM | MHVOUT+16, OUTPUT+23 |
| RADIEN | FPDAT+3~, FPDAT+15*, FPDAT+17*, FPDAT+18, FPDAT+20, FPDAT+27, GPLIST+3~, GPLIST+10*, GPLIST+12*, GPLIST+13 , GPLIST+14, GPLIST+16, GPLIST+21, GPLIST+22 |
| RESULT | MHVOUT+1~, MHVOUT+12*, OUTPUT+2~, OUTPUT+18* |
| SDIR | FPDAT+3~, FPDAT+11*, FPDAT+29, FPDAT+35 |
| STATUSA | FPDAT~ |
| STATUSA( | FPDAT+12 |
| STATUSA(0 | FPDAT+12 |
| TAXARR | FPDAT~, GPLIST~ |
| TAXARR("AE" | FPDAT+14, GPLIST+9, GPLIST+14 |
| TAXARR("APDS" | FPDAT+4, GPLIST+4 |
| TAXARR("IEN" | FPDAT+6, GPLIST+6 |
| TAXIEN | OUTPUT+3~, OUTPUT+5*, OUTPUT+6 |
| TDATE | FPDAT+3~, FPDAT+29*, FPDAT+30 |
| TE | FPDAT+3~ |
| TEMP | GPLIST+3~, GPLIST+22*, GPLIST+23, GPLIST+24, GPLIST+25, OUTPUT+3~, OUTPUT+4*, OUTPUT+5, OUTPUT+6*, OUTPUT+8 |
| TEXT | MHVOUT~, OUTPUT~ |
| TEXT( | MHVOUT+17*, MHVOUT+18*, OUTPUT+8*, OUTPUT+24*, OUTPUT+25* |
| TEXTIN | MHVOUT+1~, MHVOUT+16, OUTPUT+3~, OUTPUT+23 |
| TEXTIN(1 | MHVOUT+14*, OUTPUT+19* |
| TEXTIN(2 | MHVOUT+15*, OUTPUT+20* |
| TEXTIN(3 | OUTPUT+21* |
| TEXTIN(4 | OUTPUT+22* |
| TEXTOUT | MHVOUT+1~, MHVOUT+16, OUTPUT+3~, OUTPUT+23 |
| TEXTOUT( | MHVOUT+17, OUTPUT+24 |
| TF | FPDAT+3~, GPLIST+3~, GPLIST+17*, GPLIST+19, GPLIST+21, GPLIST+22, GPLIST+26 |
| TIND | FPDAT+3~, FPDAT+29*, FPDAT+30 |
| TLIST | FPDAT+3~, GPLIST+3~, GPLIST+7*, GPLIST+15, GPLIST+16, GPLIST+19, GPLIST+21, GPLIST+22, GPLIST+27 |
| TLIST( | FPDAT+27*, FPDAT+29, FPDAT+30!, FPDAT+35, FPDAT+37, FPDAT+39 |
| TLIST("" | FPDAT+29 |
| U | FPDAT+8, FPDAT+9, FPDAT+10, FPDAT+23, FPDAT+27, GPLIST+23, GPLIST+24, GPLIST+25, GPLIST+26, MHVOUT+8 , MHVOUT+15, OUTPUT+6, OUTPUT+14, OUTPUT+20 |
| VALUE | GPLIST+3~, GPLIST+25*, GPLIST+26 |