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 |