ICDEXD5 ;SLC/KER - ICD Extractor - DRG APIs (cont) ;12/19/2014
Source file <ICDEXD5.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 |
Package | Total | Caller Graph |
---|---|---|
DRG Grouper | 1 | ICDEX |
Name | Comments | DBIA/ICR reference |
---|---|---|
DRG(CODE,CDT) | ||
DRGQ | ; DRG Quit on Error
|
|
DRGDES(IEN,CDT,ARY,LEN) | ; Returns DRG Description in Array
|
|
DRGD(CODE,OUTARR,CDT) | ; returns CPT description in array
|
|
DRGDQ | ; DRG Description Quit
|
|
GETDATE(IEN) | ; Calculate Effective Date from the PTF
; |
|
VLTDR(IEN,CDT,ARY) | ; Versioned Description - Long Text
|
|
TM(X) | ; Trim Spaces
|
|
CARD(X) | ; Implants/Insertion Cardio Device (EN1^ICDDRG5)
|
|
SPIN(X) | ; Paired Spinal Fusion Codes (EN1^ICDDRG8)
|
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 |
^ICD("ADS" | VLTDR+16, VLTDR+18 |
^TMP("DRGD" | DRGD+36! |
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 |
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 |
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 | TM+4~ |
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 |
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+5, 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 |