Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ICDTLB6C

Package: DRG Grouper

Routine: ICDTLB6C


Information

ICDTLB6C ;ALB/EG/MRY - GROUPER UTILITY FUNCTIONS FY 2007; 9/29/03 2:47pm ; 6/28/05 4:06pm

Source Information

Source file <ICDTLB6C.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
DRG Grouper 6 DODRG^ICDDRG0  EN1^ICDDRG5  DRG115^ICDTLB2C  DRG401^ICDTLB5C  DRG412^ICDTLB61  DRG553^ICDTLB6C  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
DRG Grouper 3 ICDTLB1C  ICDTLB2C  ICDTLB6C  

Entry Points

Name Comments DBIA/ICR reference
DRG575
DRG574
DRG577
DRG576
DRG571
DRG570
DRG573
DRG572
DRG579
DRG578
DRG443
DRG442
DRG445
DRG444
DRG447
DRG446
DRG449
DRG448
DRG540
DRG543
DRG544
DRG545
DRG546
DRG547 ; called from DRG106^ICDTLB2C
DRG548
DRG549 ; called from DRG106^ICDTLB2C
DRG478
DRG479
DRG475
DRG471
DRG496
DRG497
DRG494 ;I (ICD-1),'ICDCC S ICDCC=$S($D(^ICD9("ACC",ICDDX(1),ICDDX(1))):1,1:0)
DRG495
DRG493 ;I (ICDI-1)=1,'ICDCC S ICDCC=$S($D(^ICD9("ACC",ICDDX(1),ICDDX(1))):1,1:0)
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
DRG558
DRG557 ; called from DRG516
DRG556 ; called from DRG516
DRG555 ; called from DRG516
DRG554
DRG553 ; called from DRG478
DRG552
DRG498
DRG499
DRG463
DRG462
DRG467
DRG466
DRG465
DRG464
DRG522
DRG523
DRG520
DRG521
DRG526
DRG527
DRG418
DRG419
DRG416
DRG417
DRG414
DRG412 ;S ICDRG=$S(ICDOR["O"!(ICDORNI["O"):408,ICDOR["N"&($D(ICDPDRG(412))):412,$D(ICDPDRG(411)):411,ICDCC:413,1:414)
DRG413
DRG411
DRG539
DRG538
DRG531
DRG533
DRG532
DRG535
DRG534
DRG537
DRG536
DRG408
DRG405
DRG404
DRG407
DRG406 ;
DRG403
DRG551 ; called from DRG115^ICDTLB2C
DRG550
DRG439
DRG430
DRG431
DRG432
DRG434
DRG435
DRG436
DRG437
DRG427
DRG426
DRG425
DRG424
DRG423
DRG422
DRG421
DRG420
DRG429
DRG428
DRG500
DRG501
DRG502
DRG503
DRG566
DRG567
DRG564
DRG565
DRG562
DRG563
DRG560
DRG561
DRG568
DRG569
DRG452
DRG453
DRG450
DRG451
DRG454
DRG455
DRG517
DRG516 ; DRG 516,517,526 and 527 replaced by DRG 555-558 respectively
; ICD*18*30 DRG551 is higher in surgical hierarchy
DRG515
DRG514 ; Replaced with DRG535
MCV ; checks to see if case qualifies as an MCV (major cardiovascular complications or complex conditions)
DRG519
DRG518

External References

Name Field # of Occurrence
DODRG^ICDDRG0 DRG475
EN1^ICDDRG5 DRG443
DRG115^ICDTLB2C DRG535+11
DRG401^ICDTLB5C DRG539
DRG412^ICDTLB61 DRG412+2
DRG553^ICDTLB6C DRG478+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD9("AB" DRG408+1, DRG408+2, DRG408+5, DRG408+6, DRG408+7

Label References

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+4
DRG556 DRG516+5
DRG557 DRG516+6
MCV DRG547+1, DRG549+1, DRG551+1, DRG553+1, DRG555+1, DRG556+1, DRG557+1

Local Variables

Legend:

>> 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, DRG423, 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+7, DRG535+8
ICDE2 DRG514+1~, DRG514+3*, DRG514+5, DRG514+6, DRG535~, DRG535+2*, DRG535+7, DRG535+8
ICDE3 DRG535~, DRG535+3*, DRG535+7, DRG535+8
ICDE4 DRG535~, DRG535+5*, DRG535+7, DRG535+8
>> 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+7, DRG535+8
>> ICDOP(" 00.52 " , DRG535+3
>> ICDOP(" 00.54 " , DRG535+1, DRG535+2, DRG535+3, DRG535+5
>> ICDOP(" 00.61 " , DRG533
>> ICDOP(" 00.63 " , DRG533
>> ICDOP(" 02.93 " , DRG543
>> ICDOP(" 36.06 " , DRG516+5
>> ICDOP(" 36.07 " , DRG516+6
>> ICDOP(" 37.26 " , DRG535+10
>> ICDOP(" 37.74 " , DRG535+5
>> ICDOP(" 37.94 " , DRG514+5, DRG514+6, DRG535+7, DRG535+8
>> ICDOP(" 37.95 " , DRG514+2, DRG535+1
>> ICDOP(" 37.96 " , DRG514+2, DRG535+1, DRG535+5
>> ICDOP(" 37.97 " , DRG514+3, DRG535+2
>> ICDOP(" 37.98 " , DRG514+3, DRG535+2, DRG535+5
>> ICDOP(" 86.95 " , DRG543
>> ICDOP(" 92.27 " , DRG516+5
>> ICDOP(" 96.72 " , DRG416
>> 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+10, 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+10, 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+2, DRG516+3*, DRG519*, DRG521*, DRG531*, DRG533*
, DRG535+6*, DRG535+7*, DRG535+8*, DRG535+10*, DRG535+11, 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All