LEX10PR ;ISL/KER - ICD-10 Procedure Code ;04/21/2014
Source file <LEX10PR.m>
Package | Total | Call Graph |
---|---|---|
DRG Grouper | 1 | $$IMP^ICDEX |
Kernel | 1 | ($$DT,$$FMTE)^XLFDT |
Lexicon Utility | 1 | $$IMPDATE^LEXU |
VA Fileman | 1 | ^DIWP |
Name | Comments | DBIA/ICR reference |
---|---|---|
FIN(X,LEXVDT,ARY) | ; Fragment Info
|
|
PR(LEX,X) | ; Parse Array
|
|
IS(X) | ; Is a Root Code
|
|
NEXT(LEXC,LEXA,LEXD) | ; Next Allowable Character
|
|
TM(X,Y) | ; Trim Character Y - Default " "
|
|
NAM(X) | ; Name
|
|
INF(X) | ;
|
|
SN(X,EFF) | ; Short Name
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LEX(757.02 - [#757.02] | IS+3 |
^LEX(757.033 - [#757.033] | NAM+2, NAM+3, SN+3, SN+4, SN+5, FIN+34, FIN+38, FIN+39, FIN+40, FIN+44 , FIN+45, FIN+46, FIN+49, FIN+50, FIN+51, FIN+54, FIN+55, FIN+56, FIN+59, FIN+60 , FIN+61, FIN+62, INF+3 |
^UTILITY($J | PR+2!, PR+7, PR+8, PR+9! |
Name | Line Occurrences |
---|---|
$$FIN | INF+4 |
$$IS | NEXT+32 |
$$NAM | NEXT+34, NEXT+38, NEXT+41 |
$$SN | NAM+4 |
$$TM | NEXT+14, NEXT+28, FIN+62, PR+8 |
PR | INF+12, INF+17, INF+22, INF+26 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARY | FIN~, FIN+32!, INF+1~!, INF+4! |
ARY(0 | FIN+40*, FIN+41* |
ARY(1 | FIN+42*, FIN+43*, INF+7 |
ARY(2 | FIN+47*, FIN+48*, INF+10 |
ARY(3 | FIN+52*, FIN+53*, INF+15 |
ARY(4 | FIN+57*, FIN+58*, INF+20 |
ARY(5 | FIN+63*, INF+25, INF+26 |
C1 | INF+1~*, INF+5, INF+9, INF+12, INF+13, INF+14, INF+17, INF+18, INF+19, INF+22 , INF+23, INF+24, INF+26, INF+28, INF+29 |
C2 | INF+1~*, INF+6, INF+9 |
CDT | SN+1~*, SN+2*, SN+3, FIN+32~, FIN+36*, FIN+37*, FIN+38, FIN+44, FIN+49, FIN+54 , FIN+59, INF+1~, INF+2*, INF+4* |
DIW | PR+1~ |
DIWF | PR+1~, PR+4* |
DIWI | PR+1~ |
DIWL | PR+1~, PR+4* |
DIWR | PR+1~ |
DIWT | PR+1~ |
DIWTC | PR+1~ |
DIWX | PR+1~ |
DN | PR+1~ |
EFF | SN~, SN+1~, SN+3*, SN+4, FIN+32~, FIN+38*, FIN+39, FIN+44*, FIN+45, FIN+49* , FIN+50, FIN+54*, FIN+55, FIN+59*, FIN+60, INF+7*, INF+8, INF+9 |
ENT | FIN+32~, FIN+35* |
FRAG | INF+1~, INF+2*, INF+3, INF+5, INF+6 |
FRG | FIN+32~, FIN+35* |
HIS | SN+1~, SN+4*, SN+5 |
I | INF+12~, INF+14*, INF+17~, INF+19*, INF+22~, INF+24*, INF+29* |
IEN | SN+1~*, SN+3, SN+4, SN+5, FIN+32~, FIN+33*, FIN+34, FIN+38, FIN+39, FIN+40 , FIN+44, FIN+45, FIN+46, FIN+49, FIN+50, FIN+51, FIN+54, FIN+55, FIN+56, FIN+59 , FIN+60, FIN+61, FIN+62, INF+1~, INF+3*, INF+4 |
IMP | SN+1~, SN+2*, FIN+32~, FIN+36*, FIN+37, INF+1~, INF+2*, INF+4 |
INC | INF+25~*, INF+27*, INF+28 |
INI | INF+25~*, INF+26 |
INT | INF+26~ |
INT( | INF+29 |
INT(1 | INF+26*, INF+27, INF+28 |
LEX | PR~, PR+2, PR+3, PR+6!, PR+9* |
LEX( | PR+5, PR+8* |
LEX(" " | PR+3 |
LEX1 | NEXT+13~, NEXT+27~, NEXT+40*, NEXT+41 |
LEX2 | NEXT+13~, NEXT+27~ |
LEXA | NEXT~ |
LEXA( | NEXT+33, NEXT+35*, NEXT+38*, NEXT+42* |
LEXC | NEXT~, NEXT+14*, NEXT+15, NEXT+27~, NEXT+28*, NEXT+30, NEXT+31, NEXT+36, NAM+1~*, NAM+2 , NAM+3, IS+1~*, IS+2, IS+3, IS+4, PR+1~, PR+3*, PR+6*, PR+8*, PR+9 |
LEXCDT | NEXT+13~, NEXT+15*, NEXT+29, NAM+2 |
LEXCHK | NEXT+13~, NEXT+21*, NEXT+22, NEXT+30, NEXT+31, NEXT+36 |
LEXCHR | NEXT+13~, NEXT+31~*, NEXT+32, NEXT+33, NEXT+34, NEXT+35 |
LEXCIEN | NAM+1~, NAM+3*, NAM+4 |
LEXCT | NEXT+13~, NEXT+25*, NEXT+35*, NEXT+43 |
LEXD | NEXT~, NEXT+15, NEXT+27~, NEXT+29* |
LEXE | NEXT+13~, NEXT+27~ |
LEXEFF | NAM+1~, NAM+2*, NAM+3 |
LEXFUL | NEXT+31~, NEXT+32* |
LEXI | PR+1~, PR+4*, PR+5*, PR+6*, PR+7*, PR+8 |
LEXID | NEXT+13~, NEXT+14*, NEXT+23*, NEXT+32, NEXT+33, NEXT+34, NEXT+35, NEXT+38, NEXT+39, NEXT+40 , NEXT+41 |
LEXL | IS+1~*, IS+2, IS+3, IS+4, PR+1~, PR+2*, PR+4 |
LEXLEN | NEXT+13~, NEXT+15*, NEXT+16, NEXT+18, NEXT+20, NEXT+21, NEXT+23 |
LEXN | IS+1~, IS+3*, IS+4 |
LEXNAM | NEXT+14~, NEXT+34~*, NEXT+35, NEXT+38*, NEXT+41*, NEXT+42, NAM+1~, NAM+4* |
LEXNC | NEXT+13~, NEXT+25*, NEXT+26 |
LEXNN | NEXT+13~, NEXT+24*, NEXT+26*, NEXT+28, NEXT+29, NEXT+37*, NEXT+41~*, NEXT+42 |
LEXO | IS+1~, IS+2*, IS+3* |
LEXOR | NEXT+14~, NEXT+19*, NEXT+20*, NEXT+24, NEXT+36*, NEXT+37, IS+3 |
LEXPRE | NEXT+14~ |
LEXS | NEXT+14~, NEXT+27~ |
LEXSO | NEXT+14~*, NEXT+19, NEXT+20, NEXT+25, NEXT+30 |
LEXVDT | SN+1, FIN~, FIN+36, INF+2 |
N0 | FIN+32~, FIN+34*, FIN+35, FIN+40 |
NOD | FIN+32~, FIN+40*, FIN+42, FIN+46*, FIN+47, FIN+48, FIN+51*, FIN+52, FIN+53, FIN+56* , FIN+57, FIN+58, FIN+62*, FIN+63 |
NODC | FIN+32~, FIN+61*, FIN+63* |
NODI | FIN+32~, FIN+61*, FIN+62 |
REC | FIN+32~, FIN+39*, FIN+40, FIN+45*, FIN+46, FIN+50*, FIN+51, FIN+55*, FIN+56, FIN+60* , FIN+61, FIN+62 |
SAB | FIN+32~, FIN+35* |
SRC | FIN+32~, FIN+35*, FIN+36 |
>> STA | INF+7*, INF+8, INF+9 |
>> TMP | INF+7*, INF+10*, INF+11, INF+12, INF+15*, INF+16, INF+17, INF+20*, INF+21, INF+22 |
TXT | INF+12~, INF+17~, INF+22~ |
TXT( | INF+14, INF+19, INF+24 |
TXT(1 | INF+12*, INF+13, INF+17*, INF+18, INF+22*, INF+23 |
U | FIN+33*, FIN+35 |
X | NEXT+16, NEXT+17*, NAM~, NAM+1, NAM+4*, NAM+5, SN~, SN+1, SN+5*, SN+6 , IS~, IS+1, FIN~, FIN+33, INF~, INF+2, INF+4*, PR~, PR+2, PR+5* , TM~, TM+1*, TM+2*, TM+3*, TM+4 |
Y | TM~, TM+1*, TM+2, TM+3 |
Z | PR+1~ |