LEXU2 ;ISL/KER - Miscellaneous Lexicon Utilities ;12/19/2014
Source file <LEXU2.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
CSDATA(CODE,CSYS,CDT,ARY) | ; Get Information about a Code
|
|
LEX | ; Lexicon
|
|
ICDDX | ; ICD DX CS array
|
|
ICDOP | ; ICD OP CS array
|
|
CPTCPC | ; CPT-4/HCPCS
|
|
CS | ; CS Segment if CS is NULL
|
|
LX | ; Lexicon Segment
|
|
MODS | ; CPT Modifiers
|
|
MS(X,CDT,LEXS) | ; Modifier Strings
|
|
CODSAB(X,Y) | ; Is Code valid for SAB
|
|
TM(X,Y) | ; Trim Character Y - Default " "
|
Name | Field # of Occurrence |
---|---|
$$ICDD^ICDEX | ICDDX+14, ICDOP+14 |
$$ICDDX^ICDEX | ICDDX+2 |
$$ICDOP^ICDEX | ICDOP+2 |
$$MOR^ICDEX | ICDOP+12 |
MD^ICDEX | ICDDX+5, ICDOP+4 |
$$CPT^ICPTCOD | CPTCPC+2 |
$$CPTD^ICPTCOD | CPTCPC+5 |
MODA^ICPTMOD | MS+1 |
$$STATCHK^LEXSRC2 | LEX+1 |
$$CSYS^LEXU | CSDATA+98, CSDATA+99, CODSAB+1 |
VDT^LEXU3 | CSDATA+102 |
$$SYSC^LEXU4 | CSDATA+98 |
$$DT^XLFDT | MODS+1, MS+1 |
$$TITLE^XLFSTR | LEX+22 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ICPT - [#81] | MODS+2, MODS+3 |
^LEX(757.01 - [#757.01] | LEX+6, LEX+17, LEX+19, LEX+21, LEX+27, LEX+28 |
^LEX(757.02 - [#757.02] | CSDATA+96, LEX+1, LEX+3, CODSAB+4, CODSAB+5 |
^LEX(757.03 - [#757.03] | CODSAB+2, CODSAB+3 |
^LEX(757.1 - [#757.1] | LEX+8, LEX+9 |
^LEX(757.11 - [#757.11] | LEX+11 |
^LEX(757.12 - [#757.12] | LEX+12 |
^TMP("ICPTD" | CPTCPC+4!, CPTCPC+6, CPTCPC+7!, CPTCPC+9, CPTCPC+10, CPTCPC+11! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARY | CSDATA~, MODS+4! |
ARY("LEX" | CSDATA+107, LEX+4*, LEX+5*, LEX+6*, LEX+13, LEX+14*, LEX+15*, LEX+16*, LEX+21*, LEX+23* , LEX+26, LEX+27*, LEX+28*, LEX+29*, LX+1*, LX+2*, LX+3*, LX+4*, LX+5*, LX+6* , LX+7, LX+8*, LX+9*, LX+10*, LX+11, LX+12*, LX+13*, LX+14*, LX+15*, LX+16* , LX+17* |
ARY("SYS" | CSDATA+107, ICDDX+3*, ICDDX+4*, ICDDX+9*, ICDDX+10*, ICDDX+11*, ICDDX+12*, ICDDX+13*, ICDDX+16*, ICDOP+3* , ICDOP+8*, ICDOP+9*, ICDOP+10*, ICDOP+11*, ICDOP+13*, ICDOP+17*, CPTCPC+3*, CPTCPC+4*, CPTCPC+10*, CS+2* , CS+3*, CS+4*, CS+5*, CS+6*, CS+7, CS+8*, CS+9*, CS+10*, CS+11*, CS+12* , CS+13*, CS+14*, CS+15*, CS+16*, CS+17*, CS+18, CS+19*, CS+20*, CS+22!*, CS+24!* , CS+25!*, CS+26!*, CS+28!*, CS+29!*, CS+30!*, CS+31!*, CS+32!*, CS+33*, CS+34* |
CDT | CSDATA~, CSDATA+102, MS~, MS+1 |
COD | CODSAB+1~*, CODSAB+4 |
CODE | CSDATA~, CSDATA+95, MODS+1~, MODS+3*, MODS+4 |
CSYS | CSDATA~, CSDATA+97 |
IEN | MODS+1~, MODS+2*, MODS+3 |
LEN | MODS+1~ |
LEX | MS+1~ |
LEX("A" | MS+2 |
LEX0 | LEX+18~, LEX+19* |
LEX1 | LEX+18~, LEX+19* |
LEXC | LEX+9~, LEX+10*, LEX+11, LEX+14, ICDDX+1~, ICDDX+15~*, ICDDX+16*, ICDOP+1~, ICDOP+16~*, ICDOP+17* , CPTCPC+1~, CPTCPC+9~*, CPTCPC+10*, CS+1~, CS+7*, CS+8*, CS+9, CS+10, CS+18*, CS+19* , CS+20, LX+1~, LX+7*, LX+8*, LX+9, LX+11*, LX+12*, LX+13, LX+14, LX+15 , LX+16 |
LEXCE | LEX+9~, LEX+11*, LEX+15 |
LEXCT | MS+1~, MS+2*, MS+3*, MS+4, MS+6* |
LEXDAT | ICDDX+1~, ICDDX+2*, ICDDX+3, ICDDX+4, ICDDX+12, ICDDX+13, ICDOP+1~, ICDOP+2*, ICDOP+3, ICDOP+11 , CPTCPC+1~, CPTCPC+2*, CPTCPC+3, CPTCPC+4 |
LEXDD | ICDDX+1~, ICDDX+14!, ICDOP+1~, ICDOP+14!, CPTCPC+1~ |
LEXDD( | ICDDX+15, ICDDX+16, ICDOP+16, ICDOP+17 |
LEXDRG | ICDDX+1~, ICDDX+8~*, ICDDX+10, ICDOP+1~, ICDOP+7~*, ICDOP+9, CPTCPC+1~ |
LEXDT | MS+1~* |
LEXE | LEX+21~*, LEX+22 |
LEXEFF | CSDATA+94~, LEX+2*, LEX+4, LEX+5 |
LEXEIEN | CSDATA+94~, LEX+3*, LEX+6, LEX+25 |
LEXF | LEX+18~, LEX+19*, LEX+20 |
LEXFLG | LEX+7~, LEX+17*, LEX+20*, LEX+29 |
LEXFY | ICDDX+1~, ICDDX+6*, ICDDX+7, ICDDX+8, ICDOP+1~, ICDOP+5*, ICDOP+6, ICDOP+7, CPTCPC+1~ |
LEXH | LEX+21~, LEX+22*, LEX+23 |
LEXI | LEX+9~, LEX+13*, LEX+14, LEX+15, LEX+26~*, LEX+27, ICDDX+1~, ICDDX+9*, ICDDX+10, ICDDX+11 , ICDDX+15~*, ICDDX+16, ICDOP+1~, ICDOP+8*, ICDOP+9, ICDOP+10, ICDOP+16~*, ICDOP+17, CPTCPC+1~, CPTCPC+9~* , CPTCPC+10, CS+1~, CS+7*, CS+18*, LX+1~, LX+7*, LX+11*, MS+5~*, MS+6, MS+8~* |
LEXLEXI | ICDDX+1~, ICDDX+8~, ICDOP+1~, ICDOP+7~, CPTCPC+1~ |
LEXM | MS+1~, MS+2*, MS+3 |
LEXMC | LEX+7~, LEX+17*, LEX+24*, LEX+28 |
LEXMD | ICDDX+1~, ICDDX+5, ICDOP+1~, ICDOP+4, CPTCPC+1~ |
LEXMD( | ICDDX+6, ICDDX+7, ICDDX+8, ICDOP+5, ICDOP+6, ICDOP+7 |
LEXMDC | ICDDX+1~, ICDDX+7*, ICDDX+8, ICDDX+9, ICDOP+1~, ICDOP+6*, ICDOP+7, ICDOP+8, CPTCPC+1~ |
LEXMIEN | CSDATA+94~, LEX+3*, LEX+8, LEX+17 |
LEXMOD | MS+1~, MS+2*, MS+3*, MS+6*, MS+7, MS+8 |
LEXMOR | ICDOP+1~, ICDOP+12*, ICDOP+13, CPTCPC+1~ |
LEXN | LEX+9~*, LEX+10 |
LEXNDC | ICDDX+7~, ICDOP+6~ |
LEXOK | CSDATA+94~ |
LEXOUT | ICDDX+1~, ICDDX+14*, ICDOP+1~, ICDOP+14*, ICDOP+15, CPTCPC+1~, CPTCPC+5*, CPTCPC+6, CPTCPC+7, CPTCPC+8 |
LEXS | MS~, MS+1! |
LEXS( | MS+6*, MS+8* |
LEXS(" " | MS+5, MS+8 |
LEXSAB | CSDATA+94~, CSDATA+97*, CSDATA+98, CSDATA+99*, CSDATA+100, CSDATA+101, LEX+1 |
LEXSCK | CSDATA+94~, LEX+1*, LEX+2 |
LEXSDO | ICDDX+1~, ICDDX+2*, ICDDX+3, ICDDX+5, ICDOP+1~, ICDOP+2*, ICDOP+3, ICDOP+4, ICDOP+12, CPTCPC+1~ , CPTCPC+2*, CPTCPC+3 |
LEXSIEN | CSDATA+94~, LEX+2*, LEX+3, LEX+4, LEX+5 |
LEXSM | LEX+7~, LEX+8*, LEX+9 |
LEXSO | CSDATA+94~, CSDATA+95*, CSDATA+96, CSDATA+98, CSDATA+101, LEX+1, ICDDX+2, ICDDX+14, ICDOP+2, ICDOP+14 , CPTCPC+2, CPTCPC+5, MS+1~* |
LEXSRC | CSDATA+94~, CSDATA+98*, CSDATA+99, CSDATA+103, CSDATA+104, CSDATA+105, ICDDX+2, ICDDX+14, ICDOP+2, ICDOP+14 , CS+1*, CS+21, CS+23, CS+27 |
LEXSTA | CSDATA+94~, LEX+2*, LEX+4, LEX+5 |
LEXT | LEX+9~, LEX+10*, LEX+12, LEX+14, LEX+18~, LEX+19*, LEX+20, LEX+24, LEX+25 |
LEXTE | LEX+9~, LEX+12*, LEX+15 |
LEXTIEN | LEX+7~, LEX+17*, LEX+19, LEX+21, LEX+24, LEX+25, LEX+27 |
LEXVDT | CSDATA+94~, CSDATA+102*, LEX+1, ICDDX+2, ICDDX+5, ICDDX+14, ICDOP+2, ICDOP+4, ICDOP+14, CPTCPC+2 , CPTCPC+5 |
MAX | MODS+1~* |
OK | CODSAB+1~, CODSAB+3*, CODSAB+5*, CODSAB+6 |
OUT | MODS+1~* |
SAB | CODSAB+1~*, CODSAB+2*, CODSAB+3 |
SIEN | CODSAB+1~, CODSAB+4*, CODSAB+5 |
SRC | CODSAB+1~, CODSAB+3*, CODSAB+5 |
STR | MODS+1~ |
TD | MODS+1~*, MODS+4 |
X | MS~, MS+1, CODSAB~, CODSAB+1, CODSAB+6*, CODSAB+7, TM~, TM+1*, TM+2*, TM+3* , TM+4 |
Y | CODSAB~, CODSAB+1, TM~, TM+1*, TM+2, TM+3 |