©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
ICDEXD5 ;SLC/KER - ICD Extractor - DRG APIs (cont) ;04/21/2014
Source file <ICDEXD5.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 1 | ($$DRGN,$$DTBR,$$EFM,$$FY,$$MSG,PAR)^ICDEX |
| Kernel | 1 | ($$DT,$$NOW)^XLFDT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DRGC(IEN) | ; DRG Code
|
|
| DRGQ | ; DRG Quit on Error
|
|
| DRGN(CODE) | ; Return the IEN of DRG
|
|
| DRGW(IEN) | ; DRG Weighted Work Unit (WWU)
|
|
| SPIN(X) | ; Paired Spinal Fusion Codes (EN1^ICDDRG8)
|
|
| DRGD(CODE,OUTARR,CDT) | ; returns CPT description in array
|
|
| DRG(CODE,CDT) | ||
| DRGDQ | ; DRG Description Quit
|
|
| CARD(X) | ; Implants/Insertion Cardio Device (EN1^ICDDRG5)
|
|
| DRGDES(IEN,CDT,ARY,LEN) | ; Returns DRG Description in Array
|
|
| TM(X) | ; Trim Spaces
|
|
| VLTDR(IEN,CDT,ARY) | ; Versioned Description - Long Text
|
|
| GETDATE(IEN) | ; Calculate Effective Date from the PTF
; |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(45.86 - [#45.86] | GETDATE+23 |
| ^DGPT - [#45] | GETDATE+21, GETDATE+22, GETDATE+24, GETDATE+25, GETDATE+26 |
| ^ICD - [#80.2] | DRG+48, DRG+49, DRG+52, DRG+54, DRG+60, DRG+61, DRGDES+19, DRGDES+21, DRGDES+22, DRGDES+23 , DRGDES+24, DRGD+38, VLTDR+13, VLTDR+15, VLTDR+19, VLTDR+20, VLTDR+21, VLTDR+22, VLTDR+23, VLTDR+24 , VLTDR+25, VLTDR+26, DRGC+12, DRGC+13, DRGW+12, DRGW+13 |
| ^ICD("ADS" | VLTDR+16, VLTDR+18 |
| ^ICD("B" | DRGN+15 |
| ^TMP("DRGD" | DRGD+36! |
| Name | Line Occurrences |
|---|---|
| $$TM | DRGDES+24, DRGD+41 |
| DRGDQ | DRGDES+19, DRGD+31, DRGD+38 |
| DRGQ | DRG+45, DRG+48 |
| VLTDR | DRGD+40 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DRG+52 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARR | DRGD+30~, DRGD+41*, DRGD+42* |
| ARY | DRGDES~, DRGDES+17!, DRGDES+26, VLTDR~, VLTDR+25! |
| ARY( | DRGDES+25*, VLTDR+20*, VLTDR+24*, VLTDR+26* |
| ARY(" " | DRGDES+25, DRGDES+27 |
| ARY(0 | DRGDES+25*, DRGDES+26, DRGDES+27*, DRGDES+28, VLTDR+17, VLTDR+20*, VLTDR+21, VLTDR+24*, VLTDR+26* |
| CDT | DRG~, DRG+44*, DRG+46*, DRG+51, DRG+54, DRG+60, DRGDES~, DRGDES+20, DRGD~, DRGD+39* , DRGD+40, DRGD+42, VLTDR~, VLTDR+14 |
| COD | DRGN+15~*, DRGN+16 |
| CODE | DRG~, DRG+45, DRG+47*, DRG+48, DRG+49, DRG+52, DRG+54, DRG+60, DRG+61, DRG+63 , DRGD~, DRGD+31, DRGD+37*, DRGD+43, DRGN~, DRGN+14, DRGN+15 |
| CTV | DRGD+30~, DRGD+40 |
| CTV( | DRGD+40, DRGD+41 |
| D0 | DRG+43~, DRG+49*, DRG+53, DRG+57, DRG+62, DRG+63 |
| D1 | DRG+43~, DRG+54* |
| DCS | DRG+43~, DRG+54*, DRG+63 |
| DCSINF | DRG+43~, DRG+54*, DRG+57*, DRG+62, DRG+63 |
| DFY | DRG+43~, DRG+52* |
| DFYINF | DRG+43~, DRG+52*, DRG+53*, DRG+62, DRG+63 |
| DMC1 | DRG+43~, DRG+60*, DRG+61*, DRG+63 |
| DT | DRG+44 |
| END | DRGD+30~, DRGD+35* |
| FYDT | DRG+43~, DRG+51*, DRG+52 |
| FYMD | DRG+43~ |
| I | DRGD+30~, DRGD+37*, DRGD+40*, DRGD+41 |
| ICD0 | VLTDR+12~, VLTDR+15* |
| ICDA | SPIN+1~*, SPIN+2*, SPIN+4 |
| ICDB | SPIN+1~*, SPIN+3*, SPIN+4 |
| ICDC | DRGDES+24~, DRGDES+25*, VLTDR+12~, VLTDR+15*, VLTDR+16, VLTDR+18 |
| ICDD | DRGDES+16~, DRGDES+20*, DRGDES+21, VLTDR+12~, VLTDR+19*, VLTDR+20, VLTDR+23*, VLTDR+24, VLTDR+25*, VLTDR+26 |
| ICDE | GETDATE+20~, GETDATE+22, GETDATE+23*, GETDATE+24*, GETDATE+25*, GETDATE+26*, GETDATE+27*, GETDATE+28, VLTDR+12~ |
| ICDED | DRGDES+16~, DRGDES+21*, DRGDES+22 |
| ICDFY | DRG+43~, DRG+60*, DRG+61 |
| ICDI | DRGDES+16~, DRGDES+18*, DRGDES+24, GETDATE+20~, GETDATE+21*, GETDATE+22, GETDATE+24, GETDATE+25, GETDATE+26, VLTDR+12~ , VLTDR+13*, VLTDR+15, VLTDR+18, VLTDR+19, VLTDR+20, VLTDR+21, VLTDR+22, VLTDR+23, VLTDR+24, VLTDR+25 , VLTDR+26 |
| ICDID | DRGDES+16~, DRGDES+22*, DRGDES+23, DRGDES+24 |
| ICDIMP | DRG+43~ |
| ICDL | DRGDES+16~, DRGDES+17*, DRGDES+26 |
| ICDN | DRGDES+16~, DRGDES+23*, DRGDES+24 |
| >> ICDOP( | CARD+3, CARD+7, CARD+9, CARD+11, CARD+12, SPIN+2, SPIN+3 |
| >> ICDOP(" 00.50 | " , CARD+1 |
| >> ICDOP(" 00.52 | " , CARD+1 |
| >> ICDOP(" 00.53 | " , CARD+1, CARD+10 |
| >> ICDOP(" 37.70 | " , CARD+2 |
| >> ICDOP(" 37.71 | " , CARD+2 |
| >> ICDOP(" 37.72 | " , CARD+4 |
| >> ICDOP(" 37.73 | " , CARD+2 |
| >> ICDOP(" 37.74 | " , CARD+6 |
| >> ICDOP(" 37.76 | " , CARD+8 |
| >> ICDOP(" 37.80 | " , CARD+5 |
| >> ICDOP(" 37.83 | " , CARD+5 |
| ICDP | GETDATE+20~, GETDATE+22*, GETDATE+23 |
| ICDSTD | VLTDR+12~, VLTDR+16*, VLTDR+17, VLTDR+18, VLTDR+21*, VLTDR+22 |
| ICDSTI | VLTDR+12~, VLTDR+18*, VLTDR+19, VLTDR+20, VLTDR+22*, VLTDR+23, VLTDR+24 |
| ICDT | DRGDES+16~, DRGDES+24*, DRGDES+25, GETDATE+20~*, GETDATE+21, GETDATE+27, VLTDR+12~, VLTDR+19*, VLTDR+20*, VLTDR+23* , VLTDR+24*, VLTDR+25*, VLTDR+26* |
| ICDTXT | VLTDR+12~ |
| ICDVDT | VLTDR+12~, VLTDR+14*, VLTDR+16 |
| IEN | DRGDES~, DRGDES+18, DRGDES+19, DRGDES+21, DRGDES+22, DRGDES+23, DRGD+30~, DRGD+37*, DRGD+38, DRGD+40 , GETDATE~, GETDATE+21, VLTDR~, VLTDR+13, DRGC~, DRGC+12*, DRGC+13, DRGW~, DRGW+12*, DRGW+13 |
| LEN | DRGDES~, DRGDES+17 |
| N | DRGDES+16~, DRGDES+19*, DRGD+30~, DRGD+31*, DRGD+37*, DRGD+38*, DRGD+40*, DRGD+41*, DRGD+42*, DRGD+43* , DRGDQ+1 |
| OUTARR | DRGD~, DRGD+32*, DRGD+33*, DRGD+34*, DRGD+35*, DRGD+36, DRGD+41, DRGD+42 |
| SO | CARD+1~, CARD+3~*, CARD+7~*, CARD+9~*, CARD+11~*, CARD+12~*, SPIN+2*, SPIN+3* |
| SP | SPIN+1~ |
| STR | DRG+43~, DRG+45*, DRG+48*, DRG+62*, DRG+63*, DRGQ+1 |
| U | DRG+53, DRG+57, DRG+61, DRG+62, DRG+63, GETDATE+22, GETDATE+23, GETDATE+24, GETDATE+25, GETDATE+26 |
| X | TM~, TM+1*, TM+2*, TM+3*, TM+4, CARD~, CARD+1*, CARD+2, CARD+3*, CARD+4 , CARD+5*, CARD+6, CARD+7*, CARD+8, CARD+9*, CARD+11*, CARD+12*, CARD+13, SPIN~, SPIN+1* , SPIN+4*, SPIN+5 |