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 |