©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ICDEXA3 ;SLC/KER - ICD Extractor - APIs/Utilities (cont) ;04/21/2014
Source file <ICDEXA3.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | ($$DT,$$FMTE)^XLFDT $$UP^XLFSTR |
| DRG Grouper | 1 | ($$CODEABA,$$CODEBA,$$DTBR,$$IMP,$$ROOT,$$SYS)^ICDEX |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CS(FILE,FMT,CDT) | ; Select Coding System (lookup)
|
|
| FIT(FILE,FMT) | ; File Input Transform
|
|
| CSH | ; Select Coding System Help
|
|
| DP(X) | ; Select Diagnosis or Procedure
|
|
| OD(FILE,WORD,SYS,REV) | ; Replace $Order on "D" Index
; ; Input: ; ; FILE File Number ; WORD Word, can be null or a 2 piece string ; containing Word and IEN where the word ; is stored ; SYS Coding System (internal) ; Acceptable values can be found on the ASYS ; Index and includes: ; ; File 80 ; 1 ICD-9-CM ; 30 ICD-10-CM ; ; File 80.1 ; 2 ICD-9 Proc ; 31 ICD-10-PCS ; ; REV Reverse $Order if set to 1 ; ; Output: ; ; 2 Piece "^" delimited string ; ; 1 WORD Next or Previous word in D Index ; 2 IEN Internal Entry Number where WORD is found ; ; Retire IA 5388, 5404 ; |
|
| OBA(FILE,CODE,SYS,REV) | ; Replace $Order for "ABA" and "BA" indexes
|
|
| FI(X) | ; Select ICD File
|
|
| FIH | ; File Help
|
|
| TRIM(X,Y) | ; Trim Character
|
|
| DLM(FILE,IEN,FIELD,CDT) | ; Date Last Modified
|
|
| DPH | ; File Help
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ICDS - [#80.4] | CS+36, CS+37, CS+45, CS+46, DP+13 |
| ^ICDS("F" | CS+35, CS+44, DP+12 |
| Name | Line Occurrences |
|---|---|
| $$FI | CS+30 |
| $$FIT | CS+30, FI+15, FI+25 |
| $$TRIM | FI+16, DP+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CDT | DLM~, DLM+51, CS~, CS+29 |
| CODE | OBA~, OBA+29 |
| DIR | CS+27~, FI+14~, DP+10~ |
| DIR("?" | CS+57*, FI+23*, DP+23* |
| DIR("??" | CS+57*, FI+23*, DP+23* |
| DIR("A" | CS+51*, CS+52*, CS+56*, CS+57*, FI+16*, FI+17*, FI+18*, FI+19*, FI+20*, FI+21* , DP+15*, DP+16*, DP+17*, DP+18*, DP+19*, DP+20*, DP+21* |
| DIR("PRE" | CS+57*, FI+23*, DP+23* |
| DIR(0 | CS+50*, FI+22*, DP+22* |
| DIROUT | CS+27~, CS+58, FI+14~, FI+24, DP+10~, DP+24 |
| DIRUT | CS+27~, FI+14~, DP+10~ |
| DTOUT | CS+27~, CS+58, FI+14~, FI+24, DP+10~, DP+24 |
| DUOUT | CS+27~, CS+58, FI+14~, FI+24, DP+10~, DP+24 |
| FIELD | DLM~, DLM+50 |
| FILE | OBA~, OBA+30, OD~, OD+33, DLM~, DLM+45, CS~, CS+30, FIT~, FIT+15 |
| FMT | CS~, CS+49, FIT~, FIT+15 |
| ICCD | DP+10~ |
| ICD0 | DLM+43~, DLM+55~, DLM+62*, DLM+63, DLM+74*, DLM+75, CS+27~, FI+15*, DP+11* |
| ICD1 | OBA+36~, OBA+37*, OBA+39, OBA+42~, OBA+43*, OBA+45, OBA+51~, OBA+52*, OBA+54, OBA+57~ , OBA+58*, OBA+60, CS+27~, CS+54~*, CS+55, FI+14~, DP+10~ |
| ICD2 | OBA+36~, OBA+38*, OBA+39, OBA+42~, OBA+44*, OBA+45, OBA+51~, OBA+53*, OBA+54, OBA+57~ , OBA+59*, OBA+60, CS+27~, CS+54~*, CS+55, FI+14~, DP+10~ |
| ICDA | DLM+43~, DLM+55~, DLM+56!, DLM+64!, CS+27~, CS+33!, FI+14~, DP+10~ |
| ICDA( | DLM+63*, CS+42*, CS+47*, CS+53, CS+54, CS+58 |
| ICDA(" " | DLM+64, CS+49 |
| ICDA(0 | CS+33*, CS+42*, CS+43, CS+47*, CS+48 |
| ICDA(1 | CS+48, CS+50 |
| ICDAA | CS+35~ |
| ICDAA( | CS+38*, CS+40, CS+41 |
| ICDAA(" " | CS+39 |
| ICDC | OBA+28~, OBA+29*, OBA+37, OBA+40*, OBA+43, OBA+52, OBA+55*, OBA+58, DLM+43~, DLM+47* , DLM+48, DLM+52, CS+27~, CS+35*, CS+42*, CS+44*, CS+47*, CS+53*, CS+56*, CS+57* , FI+14~, DP+10~ |
| ICDCS | DP+10~, DP+11* |
| ICDD | OBA+28~, OBA+32*, OBA+35, OBA+40, OBA+41, OBA+50, OBA+55, OBA+56, OD+31~, OD+35* , OD+38, OD+44, OD+58, OD+64, DLM+43~, DLM+51*, DLM+52*, DLM+53, DLM+60, DLM+69 , DLM+70, CS+27~, CS+29*, CS+34, CS+37, CS+43, DP+11*, DP+14 |
| ICDDIR | CS+27~, CS+30*, FI+16*, FI+17!, DP+15*, DP+17! |
| ICDE | DLM+43~, DLM+55~, DLM+60*, DLM+61, DLM+69*, DLM+70, DLM+71, CS+27~, CS+35~, CS+36* , CS+38, CS+39*, CS+40, CS+41, CS+42, CS+45*, CS+47, FI+14~, DP+10~ |
| ICDF | OBA+28~, OBA+30*, OBA+32, OD+31~, OD+33*, OD+35, DLM+43~, DLM+45*, DLM+46, DLM+57 , DLM+65, DLM+66, CS+28~, CS+30*, CS+31, CS+32, CS+35, CS+44, CS+51, FI+14~ , DP+10~, FIT+15~*, FIT+16, FIT+17, FIT+18 |
| ICDG | OBA+28~, OD+31~ |
| ICDH | DLM+43~, DLM+55~, DLM+61*, DLM+62, DLM+71*, DLM+72, DLM+74 |
| ICDI | OBA+28~, OBA+34~, OBA+46*, OBA+47, OBA+49~, OBA+61*, OBA+62, OD+31~, OD+37~, OD+57~ , DLM+43~, DLM+44*, DLM+47, DLM+49, DLM+60, DLM+61, DLM+62, DLM+68, DLM+69, DLM+71 , DLM+74, CS+28~, CS+35~*, CS+36, CS+37, CS+38, CS+40*, CS+41, CS+42, CS+44* , CS+45, CS+46, CS+47, CS+53*, CS+54, FI+14~, DP+10~, DP+12*, DP+13 |
| ICDID | OBA+28~ |
| ICDIMP | CS+28~, CS+29*, DP+10~, DP+11* |
| ICDL | DLM+43~, DLM+50*, DLM+54, DLM+55~, DLM+64*, DLM+65, DLM+66, DLM+67, DLM+68, DLM+75* , DLM+76 |
| ICDM | CS+28~, CS+49*, CS+50, CS+52, CSH+1, CSH+2, FI+14~, DP+10~ |
| ICDN | OBA+28~, OBA+34~, OBA+39*, OBA+45*, OBA+46, OBA+47, OBA+49~, OBA+54*, OBA+60*, OBA+61 , OBA+62, OD+31~, OD+37~, OD+41*, OD+42, OD+43, OD+48*, OD+49, OD+50, OD+51 , OD+53*, OD+54, OD+55, OD+57~, OD+61*, OD+62, OD+63, OD+68*, OD+69, OD+70 , OD+71, OD+73*, OD+74, OD+75, DLM+43~, DLM+55~, DLM+59*, DLM+60, DLM+61, DLM+62 , DLM+65*, DLM+66*, DLM+67, DLM+68, DLM+69, DLM+71, DLM+74 |
| ICDNI | OD+37~, OD+39*, OD+40, OD+41*, OD+42*, OD+43, OD+46*, OD+47, OD+50*, OD+51 , OD+52*, OD+54*, OD+55, OD+57~, OD+59*, OD+60, OD+61*, OD+62*, OD+63, OD+66* , OD+67, OD+70*, OD+71, OD+72*, OD+74*, OD+75 |
| ICDNS | DLM+43~, DLM+55~, DLM+56*, DLM+57*, DLM+58, DLM+59 |
| ICDO | OBA+28~, OBA+33, OBA+47*, OBA+48, OBA+62*, OD+31~, OD+36, OD+40*, OD+43*, OD+47* , OD+49*, OD+51*, OD+55*, OD+56, OD+60*, OD+63*, OD+67*, OD+69*, OD+71*, OD+75* , DLM+43~, DLM+54, DLM+56*, DLM+64*, DLM+73*, DLM+76*, DLM+77, CS+28~, FI+15*, FI+25* , FI+26, DP+25, FIT+15~, FIT+16*, FIT+17*, FIT+18*, FIT+19*, FIT+20 |
| ICDP | DLM+43~, DLM+55~, DLM+58*, DLM+59 |
| ICDR | OBA+28~, OBA+32*, OBA+37, OBA+38, OBA+43, OBA+44, OBA+46, OBA+52, OBA+53, OBA+58 , OBA+59, OBA+61, OD+31~, OD+35*, OD+39, OD+41, OD+42, OD+46, OD+48, OD+50 , OD+53, OD+54, OD+59, OD+61, OD+62, OD+66, OD+68, OD+70, OD+73, OD+74 , DLM+43~, DLM+46*, DLM+47, DLM+49, DLM+60, DLM+61, DLM+62, DLM+68, DLM+69, DLM+71 , DLM+74, CS+28~, CS+32*, FI+14~, DP+10~ |
| ICDS | OBA+28~, OBA+29*, OBA+31*, OBA+33, OBA+37, OBA+38, OBA+43, OBA+44, OBA+46, OBA+48 , OD+31~, OD+33*, OD+34*, OD+36, OD+39, OD+41, OD+42, OD+46, OD+48, OD+50 , OD+53, OD+54, OD+56, OD+59, OD+61, OD+62, OD+66, OD+68, OD+70, OD+73 , OD+74, CS+35~, CS+41*, CS+42, DP+13~*, DP+14 |
| ICDSD | DP+13~*, DP+14 |
| ICDT | CS+28~, CS+54~, CS+55*, CS+56, FI+14~, DP+10~, FIT+15~*, FIT+16, FIT+19 |
| ICDTMP | CS+28~, CS+37*, CS+38, CS+46* |
| ICDTY | DP+10~, DP+11*, DP+14*, DP+15*, DP+19, DP+20 |
| ICDU | OBA+28~, OBA+29*, OBA+38, OBA+44, OBA+53, OBA+59 |
| ICDV | CS+28~ |
| ICDW | OD+31~, OD+32*, OD+39, OD+40, OD+41, OD+45, OD+46, OD+47, OD+48, OD+52* , OD+53, OD+59, OD+60, OD+61, OD+65, OD+66, OD+67, OD+68, OD+72*, OD+73 |
| ICDWI | OD+31~, OD+32*, OD+39, OD+46, OD+52*, OD+54, OD+59, OD+66, OD+72*, OD+74 |
| ICDX | OBA+28~, OBA+34~*, OBA+37, OBA+38, OBA+43, OBA+44, OBA+49~*, OBA+52, OBA+53, OBA+58 , OBA+59, OD+31~, OD+37~*, OD+39, OD+41, OD+42, OD+46, OD+48, OD+50, OD+53 , OD+54, OD+57~*, OD+59, OD+61, OD+62, OD+66, OD+68, OD+70, OD+73, OD+74 , CS+28~, CS+49*, CS+55 |
| IEN | DLM~, DLM+44 |
| REV | OBA~, OBA+32, OD~, OD+35 |
| SYS | OBA~, OBA+29, OD~, OD+33 |
| WORD | OD~, OD+32 |
| X | CS+28~, FI~, FI+15*, FI+24, FI+25*, FI+26*, FI+27, DP~, DP+11, DP+24 , DP+25*, DP+26, TRIM~, TRIM+1*, TRIM+2*, TRIM+3*, TRIM+4 |
| Y | CS+28~, CS+58, FI+14~, FI+25, DP+10~, TRIM~, TRIM+1*, TRIM+2, TRIM+3 |