Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ICDTBL5F

ICDTBL5F.m

Go to the documentation of this file.
  1. ICDTBL5F ;ALB/JDG - GROUPER UTILITY FUNCTIONS;08/09/2010
  1. ;;18.0;DRG Grouper;**72**;Oct 20, 2000;Build 4
  1. DRG500 ;
  1. DRG501 ;
  1. DRG502 S ICDRG=$S(ICDMCC=2:500,ICDMCC=1:501,1:502) Q
  1. DRG503 ;
  1. DRG504 ;
  1. DRG505 S ICDRG=$S(ICDMCC=2:503,ICDMCC=1:504,1:505) Q
  1. DRG506 I ICDOR["O2" D DRG513 Q
  1. S ICDRG=506 Q
  1. DRG507 ;
  1. DRG508 S ICDRG=$S(ICDMCC>0:507,1:508) Q
  1. DRG509 S ICDRG=509 Q
  1. DRG510 ;
  1. DRG511 ;
  1. DRG512 S ICDRG=$S(ICDMCC=2:510,ICDMCC=1:511,1:512) Q
  1. DRG513 ;
  1. DRG514 S ICDRG=$S(ICDMCC>0:513,1:514) Q
  1. DRG515 ;
  1. DRG516 ;
  1. DRG517 S ICDRG=$S(ICDMCC=2:515,ICDMCC=1:516,1:517) Q
  1. DRG533 ;
  1. DRG534 S ICDRG=$S(ICDMCC=2:533,1:534) Q
  1. DRG535 ;
  1. DRG536 S ICDRG=$S(ICDMCC=2:535,1:536) Q
  1. DRG537 ;
  1. DRG538 S ICDRG=$S(ICDMCC>0:537,1:538) Q
  1. DRG539 ;
  1. DRG540 ;
  1. DRG541 S ICDRG=$S(ICDMCC=2:539,ICDMCC=1:540,1:541) Q
  1. DRG542 ;
  1. DRG543 ;
  1. DRG544 S ICDRG=$S(ICDMCC=2:542,ICDMCC=1:543,1:544) Q
  1. DRG545 ;
  1. DRG546 ;
  1. DRG547 S ICDRG=$S(ICDMCC=2:545,ICDMCC=1:546,1:547) Q
  1. DRG548 ;
  1. DRG549 ;
  1. DRG550 S ICDRG=$S(ICDMCC=2:548,ICDMCC=1:549,1:550) Q
  1. DRG551 ;
  1. DRG552 S ICDRG=$S(ICDMCC=2:551,1:552) Q
  1. DRG553 ;
  1. DRG554 S ICDRG=$S(ICDMCC=2:553,1:554) Q
  1. DRG555 ;
  1. DRG556 S ICDRG=$S(ICDMCC=2:555,1:556) Q
  1. DRG557 ;
  1. DRG558 S ICDRG=$S(ICDMCC=2:557,1:558) Q
  1. DRG559 ;
  1. DRG560 ;
  1. DRG561 S ICDRG=$S(ICDMCC=2:559,ICDMCC=1:560,1:561) Q
  1. DRG562 ;
  1. DRG563 S ICDRG=$S(ICDMCC=2:562,1:563) Q
  1. DRG564 ;
  1. DRG565 ;
  1. DRG566 S ICDRG=$S(ICDMCC=2:564,ICDMCC=1:565,1:566) Q
  1. DRG570 ;
  1. DRG571 ;
  1. DRG572 S ICDRG=$S(ICDMCC=2:570,ICDMCC=1:571,1:572) Q
  1. DRG573 ;
  1. DRG574 ;
  1. DRG575 I ICDOR'["O" D DRG592 Q
  1. I ICDPD["U" S ICDRG=$S(ICDMCC=2:573,ICDMCC=1:574,1:575) Q
  1. DRG576 ;
  1. DRG577 ;
  1. DRG578 S ICDRG=$S(ICDMCC=2:576,ICDMCC=1:577,1:578) Q
  1. DRG579 ;
  1. DRG580 ;
  1. DRG581 S ICDRG=$S(ICDMCC=2:579,ICDMCC=1:580,1:581) Q
  1. DRG582 ;
  1. DRG583 I ICDPD["M"!(ICDSD["M") S ICDRG=$S(ICDMCC>0:582,1:583) Q
  1. E G DRG584
  1. DRG584 ;
  1. DRG585 I ICDOR["M"!(ICDOR["m") S ICDRG=$S(ICDMCC>0:584,1:585) Q
  1. E S ICDRG="" Q
  1. DRG592 ;
  1. DRG593 ;I ICDPD["U" S ICDRG=$S(ICDMCC>0:593,1:594) Q
  1. DRG594 S ICDRG=$S(ICDMCC=2:592,ICDMCC=1:593,1:594) Q
  1. DRG595 ;
  1. DRG596 S ICDRG=$S(ICDMCC=2:595,1:596) Q
  1. DRG597 ;
  1. DRG598 ;
  1. DRG599 I ICDPD["r" S ICDRG=$S(ICDMCC=2:597,ICDMCC=1:598,1:599) Q
  1. Q