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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ICDTLB6C

Package: DRG Grouper

Routine: ICDTLB6C


Information

ICDTLB6C ;ALB/EG/MRY/KUM - GROUPER UTILITY FUNCTIONS FY 2007;9/29/03 2:47pm

Source Information

Source file <ICDTLB6C.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
DRG Grouper 7 DODRG^ICDDRG0  EN1^ICDDRG5  $$CODEBA^ICDEX  DRG115^ICDTLB2C  DRG401^ICDTLB5C  DRG412^ICDTLB61  DRG553^ICDTLB6C  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
DRG Grouper 3 ICDTLB1C  ICDTLB2C  ICDTLB6C  

Entry Points

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
; ICD*18*30 DRG551 is higher in surgical hierarchy
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^ICDTLB2C
DRG548
DRG549 ; called from DRG106^ICDTLB2C
DRG550
DRG551 ; called from DRG115^ICDTLB2C
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
DRG560
DRG561
DRG562
DRG563
DRG564
DRG565
DRG566
DRG567
DRG568
DRG569
DRG570
DRG571
DRG572
DRG573
DRG574
DRG575
DRG576
DRG577
DRG578
DRG579
MCV ; checks to see if case qualifies as an MCV (major cardiovascular complications or complex conditions)

External References

Name Field # of Occurrence
DODRG^ICDDRG0 DRG475
EN1^ICDDRG5 DRG443
$$CODEBA^ICDEX DRG408+1, DRG408+2, DRG408+5, DRG408+6, DRG408+7
DRG115^ICDTLB2C DRG535+11
DRG401^ICDTLB5C DRG539
DRG412^ICDTLB61 DRG412+2
DRG553^ICDTLB6C DRG478+1

Label References

Name Line Occurrences
DRG404 DRG405
DRG406 DRG407
DRG408 DRG406+3, DRG412+1
DRG412 DRG408+9
DRG478 DRG479
DRG496 DRG497DRG498
DRG501 DRG502DRG503
DRG516 DRG517DRG518DRG526DRG527DRG558
DRG519 DRG520
DRG521 DRG522DRG523
DRG531 DRG532
DRG533 DRG534
DRG535 DRG515DRG536
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 DRG403DRG404DRG416DRG417DRG419DRG420DRG421DRG422DRG444DRG445
DRG446DRG447DRG448DRG449DRG450DRG451
>> ICDCC DRG403DRG404DRG406+2, DRG408+8, DRG413DRG414DRG419DRG420DRG434DRG435
DRG436DRG437DRG442DRG443DRG444DRG445DRG446DRG449DRG450DRG451
DRG452DRG453DRG454DRG455DRG463DRG464DRG478DRG493+1, DRG494+1, DRG496
DRG499DRG500DRG501+2, DRG501+3, DRG519DRG521DRG531DRG533DRG537DRG539+1
>> ICDCC3 DRG443
>> ICDDX(1 DRG408DRG408+1, DRG408+2, DRG408+4, DRG408+5, DRG408+6, DRG408+7, DRG423DRG559+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 DRG408DRG408+4, DRG408+8, DRG408+9, DRG412+1
>> ICDOR DRG403DRG404DRG411DRG416DRG417DRG418DRG419DRG420DRG421DRG422
DRG423DRG424DRG425DRG426DRG427DRG428DRG429DRG430DRG431DRG432
DRG434DRG435DRG436DRG437DRG462DRG463DRG464DRG465DRG466DRG467
DRG471DRG475DRG478DRG496DRG514+8, DRG519DRG521DRG535+10, DRG543
>> ICDORNI DRG403DRG404DRG406+1, DRG406+3, DRG411
>> ICDPD DRG403DRG404DRG406+2, DRG408+8, DRG434DRG435DRG436DRG437DRG496+1, DRG501+1
DRG535+10, DRG539DRG539+1, DRG543MCV+4
>> ICDPDRG DRG475
>> ICDPDRG(0 DRG475
>> ICDRG DRG403*, DRG404*, DRG406+2*, DRG408DRG408+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*, DRG539DRG539+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, DRG434DRG435DRG436DRG437DRG465DRG466MCV+4
MCV+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Label References |  Local Variables  | All