ICDTLB6B ;ALB/EG/MRY/KUM - GROUPER UTILITY FUNCTIONS FY 2006;9/29/03 2:47pm
Source file <ICDTLB6B.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 | 4 | ICDDRG0 ICDTLB1B ICDTLB2B ICDTLB6B |
Name | Comments | DBIA/ICR reference |
---|---|---|
DRG403 | ||
DRG404 | ||
DRG405 | ||
DRG406 | ;
|
|
DRG407 | ||
DRG408 | ||
DRG411 | ||
DRG412 | ;S ICDRG=$S(ICDOR["O"!(ICDORNI["O"):408,ICDOR["N"&($D(ICDPDRG(412))):412,$D(ICDPDRG(411)):411,ICDCC:413,1:414)
|
|
DRG413 | ||
DRG414 | ||
DRG416 | ||
DRG417 | ||
DRG418 | ||
DRG419 | ||
DRG420 | ||
DRG421 | ||
DRG422 | ||
DRG423 | ||
DRG424 | ||
DRG425 | ||
DRG426 | ||
DRG427 | ||
DRG428 | ||
DRG429 | ||
DRG430 | ||
DRG431 | ||
DRG432 | ||
DRG434 | ||
DRG435 | ||
DRG436 | ||
DRG437 | ||
DRG439 | ||
DRG442 | ||
DRG443 | ||
DRG444 | ||
DRG445 | ||
DRG446 | ||
DRG447 | ||
DRG448 | ||
DRG449 | ||
DRG450 | ||
DRG451 | ||
DRG452 | ||
DRG453 | ||
DRG454 | ||
DRG455 | ||
DRG462 | ||
DRG463 | ||
DRG464 | ||
DRG465 | ||
DRG466 | ||
DRG467 | ||
DRG471 | ||
DRG475 | ||
DRG478 | ||
DRG479 | ||
DRG493 | ;I (ICDI-1)=1,'ICDCC S ICDCC=$S($D(^ICD9("ACC",ICDDX(1),ICDDX(1))):1,1:0)
|
|
DRG494 | ;I (ICD-1),'ICDCC S ICDCC=$S($D(^ICD9("ACC",ICDDX(1),ICDDX(1))):1,1:0)
|
|
DRG495 | ||
DRG496 | ||
DRG497 | ||
DRG498 | ||
DRG499 | ||
DRG500 | ||
DRG501 | ||
DRG502 | ||
DRG503 | ||
DRG514 | ; Replaced with DRG535
|
|
DRG515 | ||
DRG516 | ; DRG 516,517,526 and 527 replaced by DRG 555-558 respectively
|
|
DRG517 | ||
DRG518 | ||
DRG519 | ||
DRG520 | ||
DRG521 | ||
DRG522 | ||
DRG523 | ||
DRG526 | ||
DRG527 | ||
DRG531 | ||
DRG532 | ||
DRG533 | ||
DRG534 | ||
DRG535 | ||
DRG536 | ||
DRG537 | ||
DRG538 | ||
DRG539 | ||
DRG540 | ||
DRG543 | ||
DRG544 | ||
DRG545 | ||
DRG546 | ||
DRG547 | ; called from DRG106^ICDTLB2B
|
|
DRG548 | ||
DRG549 | ; called from DRG106^ICDTLB2B
|
|
DRG550 | ||
DRG551 | ; called from DRG115^ICDTLB2B
|
|
DRG552 | ||
DRG553 | ; called from DRG478
|
|
DRG554 | ||
DRG555 | ; called from DRG516
|
|
DRG556 | ; called from DRG516
|
|
DRG557 | ; called from DRG516
|
|
DRG558 | ||
DRG559 | ;I DGDX(1)["433.01"!(DGDX(1)["433.11")!(DGDX(1)["433.21")!(DGDX(1)["433.31")!(DGDX(1)["433.81")!(DGDX(1)["433.91")!(DGDX(1)["434.01")!(DGDX(1)["434.11")!(DGDX(1)["434.91") S ICDRG=559
|
|
MCV | ; checks to see if case qualifies as an MCV (major cardiovascular complications or complex conditions)
|
Name | Line Occurrences |
---|---|
DRG404 | DRG405 |
DRG406 | DRG407 |
DRG408 | DRG406+3, DRG412+1 |
DRG412 | DRG408+9 |
DRG478 | DRG479 |
DRG496 | DRG497, DRG498 |
DRG501 | DRG502, DRG503 |
DRG516 | DRG517, DRG518, DRG526, DRG527, DRG558 |
DRG519 | DRG520 |
DRG521 | DRG522, DRG523 |
DRG531 | DRG532 |
DRG533 | DRG534 |
DRG535 | DRG515, DRG536 |
DRG537 | DRG538 |
DRG539 | DRG540 |
DRG547 | DRG548 |
DRG549 | DRG550 |
DRG553 | DRG554 |
DRG555 | DRG516+2 |
DRG556 | DRG516+3 |
DRG557 | DRG516+4 |
MCV | DRG547+1, DRG549+1, DRG551+1, DRG553+1, DRG555+1, DRG556+1, DRG557+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> AGE | DRG403, DRG404, DRG416, DRG417, DRG419, DRG420, DRG421, DRG422, DRG444, DRG445 , DRG446, DRG447, DRG448, DRG449, DRG450, DRG451 |
>> ICDCC | DRG403, DRG404, DRG406+2, DRG408+8, DRG413, DRG414, DRG419, DRG420, DRG434, DRG435 , DRG436, DRG437, DRG442, DRG443, DRG444, DRG445, DRG446, DRG449, DRG450, DRG451 , DRG452, DRG453, DRG454, DRG455, DRG463, DRG464, DRG478, DRG493+1, DRG494+1, DRG496 , DRG499, DRG500, DRG501+2, DRG501+3, DRG519, DRG521, DRG531, DRG533, DRG537, DRG539+1 |
>> ICDCC3 | DRG443 |
>> ICDDX(1 | DRG408, DRG408+1, DRG408+2, DRG408+4, DRG408+5, DRG408+6, DRG408+7, DRG559+1, MCV+7, MCV+10 |
>> ICDDXT("411.1" | MCV+11 |
>> ICDDXT("411.81" | MCV+11 |
>> ICDDXT("426.0" | MCV+8 |
>> ICDDXT("426.53" | MCV+8 |
>> ICDDXT("426.54" | MCV+8 |
>> ICDDXT("737.40" | DRG496+2 |
>> ICDDXT("737.41" | DRG496+2 |
>> ICDDXT("737.42" | DRG496+2 |
>> ICDDXT("737.43" | DRG496+2 |
ICDE1 | DRG514+1~, DRG514+2*, DRG514+5, DRG514+6, DRG535~, DRG535+1*, DRG535+6, DRG535+7 |
ICDE2 | DRG514+1~, DRG514+3*, DRG514+5, DRG514+6, DRG535~, DRG535+2*, DRG535+6, DRG535+7 |
ICDE3 | DRG535~, DRG535+3*, DRG535+6, DRG535+7 |
>> ICDMAJ | DRG539 |
>> ICDMCV | DRG547+2, DRG549+2, DRG551+2, DRG553+2, DRG555+2, DRG556+2, DRG557+2, MCV+1*, MCV+4*, MCV+5* |
>> ICDMCV1 | DRG547+2, DRG549+2, DRG553+2, DRG555+2, DRG556+2, DRG557+2, MCV+1*, MCV+7*, MCV+8* |
>> ICDMCV2 | DRG551+2, MCV+1*, MCV+10*, MCV+11* |
>> ICDODRG(440 | DRG439 |
>> ICDOP(" 00.10 | " , DRG543 |
>> ICDOP(" 00.51 | " , DRG535+6, DRG535+7 |
>> ICDOP(" 00.52 | " , DRG535+3 |
>> ICDOP(" 00.54 | " , DRG535+1, DRG535+2, DRG535+3 |
>> ICDOP(" 36.06 | " , DRG516+3 |
>> ICDOP(" 36.07 | " , DRG516+4 |
>> ICDOP(" 37.26 | " , DRG535+9 |
>> ICDOP(" 37.94 | " , DRG514+5, DRG514+6, DRG535+6, DRG535+7 |
>> ICDOP(" 37.95 | " , DRG514+2, DRG535+1 |
>> ICDOP(" 37.96 | " , DRG514+2, DRG535+1 |
>> ICDOP(" 37.97 | " , DRG514+3, DRG535+2 |
>> ICDOP(" 37.98 | " , DRG514+3, DRG535+2 |
>> ICDOP(" 92.27 | " , DRG516+3 |
>> ICDOPCT | DRG408, DRG408+4, DRG408+8, DRG408+9, DRG412+1 |
>> ICDOR | DRG403, DRG404, DRG411, DRG416, DRG417, DRG418, DRG419, DRG420, DRG421, DRG422 , DRG423, DRG424, DRG425, DRG426, DRG427, DRG428, DRG429, DRG430, DRG431, DRG432 , DRG434, DRG435, DRG436, DRG437, DRG462, DRG463, DRG464, DRG465, DRG466, DRG467 , DRG471, DRG475, DRG478, DRG496, DRG514+8, DRG519, DRG521, DRG535+9, DRG543 |
>> ICDORNI | DRG403, DRG404, DRG406+1, DRG406+3, DRG411 |
>> ICDPD | DRG403, DRG404, DRG406+2, DRG408+8, DRG434, DRG435, DRG436, DRG437, DRG496+1, DRG501+1 , DRG535+9, DRG539, DRG539+1, DRG543, MCV+4 |
>> ICDPDRG | DRG475 |
>> ICDPDRG(0 | DRG475 |
>> ICDRG | DRG403*, DRG404*, DRG406+2*, DRG408, DRG408+1*, DRG408+2*, DRG408+4, DRG408+5*, DRG408+6*, DRG408+7* , DRG408+8*, DRG411*, DRG413*, DRG414*, DRG416*, DRG417*, DRG418*, DRG419*, DRG420*, DRG421* , DRG422*, DRG423*, DRG424*, DRG425*, DRG426*, DRG427*, DRG428*, DRG429*, DRG430*, DRG431* , DRG432*, DRG434*, DRG435*, DRG436*, DRG437*, DRG439*, DRG442*, DRG443*, DRG444*, DRG445* , DRG446*, DRG447*, DRG448*, DRG449*, DRG450*, DRG451*, DRG452*, DRG453*, DRG454*, DRG455* , DRG462*, DRG463*, DRG464*, DRG465*, DRG466*, DRG467*, DRG471*, DRG475*, DRG478*, DRG478+1 , DRG493+1*, DRG494+1*, DRG496*, DRG496+1*, DRG496+2*, DRG499*, DRG500*, DRG501+2*, DRG501+3*, DRG501+4* , DRG514+4*, DRG514+5*, DRG514+6*, DRG514+8*, DRG516+1*, DRG519*, DRG521*, DRG531*, DRG533*, DRG535+5* , DRG535+6*, DRG535+7*, DRG535+9*, DRG535+10, DRG537*, DRG539, DRG539+1*, DRG543*, DRG547+2*, DRG549+2* , DRG551+2*, DRG553+2*, DRG555+2*, DRG556+2*, DRG557+2*, DRG557+3*, DRG559+1* |
>> ICDRTC | DRG403*, DRG404*, DRG416*, DRG417*, DRG419*, DRG420*, DRG421*, DRG422*, DRG444*, DRG445* , DRG446*, DRG447*, DRG448*, DRG449*, DRG450*, DRG451* |
>> ICDSD | DRG408+5, DRG408+6, DRG408+7, DRG434, DRG435, DRG436, DRG437, DRG465, DRG466, MCV+4 , MCV+5 |