ICDTLB6A ;ALB/EG/MRY/KUM - GROUPER UTILITY FUNCTIONS FY 2005;9/29/03 2:47pm
Source file <ICDTLB6A.m>
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 |