Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: ICDTLB6A

Package: DRG Grouper

Routine: ICDTLB6A


Information

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

Source Information

Source file <ICDTLB6A.m>

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
DRG517
DRG518
DRG519
DRG520
DRG521
DRG522
DRG523
DRG526
DRG527
DRG531
DRG532
DRG533
DRG534
DRG535
DRG536
DRG537
DRG538
DRG539
DRG540
DRG543
Info |  Source |  Entry Points