| 1 | ICDTBL9 ;ALB/EG/MRY - GROUPER UTILITY FUNCTIONS ; 11/9/07 1:02pm
|
|---|
| 2 | ;;18.0;DRG Grouper;**31**;Oct 20, 2000;Build 7
|
|---|
| 3 | DRG901 ;
|
|---|
| 4 | DRG902 ;
|
|---|
| 5 | DRG903 S ICDRG=$S(ICDMCC=2:901,ICDMCC=1:902,1:903) Q
|
|---|
| 6 | DRG904 ;
|
|---|
| 7 | DRG905 S ICDRG=$S(ICDMCC>0:904,1:905) Q
|
|---|
| 8 | DRG906 S ICDRG=906 Q
|
|---|
| 9 | DRG907 ;
|
|---|
| 10 | DRG908 ;
|
|---|
| 11 | DRG909 S ICDRG=$S(ICDMCC=2:907,ICDMCC=1:908,1:909) Q
|
|---|
| 12 | DRG913 ;
|
|---|
| 13 | DRG914 S ICDRG=$S(ICDMCC=2:913,1:914) Q
|
|---|
| 14 | DRG915 ;
|
|---|
| 15 | DRG916 S ICDRG=$S(ICDMCC=2:915,1:916) Q
|
|---|
| 16 | DRG917 ;
|
|---|
| 17 | DRG918 S ICDRG=$S(ICDMCC=2:917,1:918) Q
|
|---|
| 18 | DRG919 ;
|
|---|
| 19 | DRG920 ;
|
|---|
| 20 | DRG921 S ICDRG=$S(ICDMCC=2:919,ICDMCC=1:920,1:921) Q
|
|---|
| 21 | DRG922 ;
|
|---|
| 22 | DRG923 S ICDRG=$S(ICDMCC=2:922,1:923) Q
|
|---|
| 23 | DRG927 S ICDRG=927 Q
|
|---|
| 24 | DRG928 ;
|
|---|
| 25 | DRG929 S ICDRG=$S(ICDMCC>0:928,1:929) Q
|
|---|
| 26 | DRG933 S ICDRG=933 Q
|
|---|
| 27 | DRG934 S ICDRG=934 Q
|
|---|
| 28 | DRG935 S ICDRG=935 Q
|
|---|
| 29 | DRG939 ;
|
|---|
| 30 | DRG940 ;
|
|---|
| 31 | DRG941 I ICDOR["O" S ICDRG=$S(ICDMCC=2:939,ICDMCC=1:940,1:941) Q
|
|---|
| 32 | Q
|
|---|
| 33 | DRG945 ;
|
|---|
| 34 | DRG946 S ICDRG=$S(ICDMCC>0:945,1:946) D DRG941 Q
|
|---|
| 35 | DRG947 ;
|
|---|
| 36 | DRG948 S ICDRG=$S(ICDMCC=2:947,1:948) D DRG941 Q
|
|---|
| 37 | DRG949 ;
|
|---|
| 38 | DRG950 S ICDRG=$S(ICDMCC>0:949,1:950) D DRG941 Q
|
|---|
| 39 | DRG951 S ICDRG=951 D DRG941 Q
|
|---|
| 40 | DRG955 S ICDRG=955 Q
|
|---|
| 41 | DRG956 S ICDRG=956 Q
|
|---|
| 42 | DRG957 ;
|
|---|
| 43 | DRG958 ;
|
|---|
| 44 | DRG959 S ICDRG=$S(ICDMCC=2:957,ICDMCC=1:958,1:959) Q
|
|---|
| 45 | DRG963 ;
|
|---|
| 46 | DRG964 ;
|
|---|
| 47 | DRG965 S ICDRG=$S(ICDMCC=2:963,ICDMCC=1:964,1:965) Q
|
|---|
| 48 | DRG969 ;
|
|---|
| 49 | DRG970 S ICDRG=$S(ICDMCC=2:969,1:970) Q
|
|---|
| 50 | DRG974 ;
|
|---|
| 51 | DRG975 ;
|
|---|
| 52 | DRG976 S ICDRG=$S(ICDMCC=2:974,ICDMCC=1:975,1:976) Q
|
|---|
| 53 | DRG977 S ICDRG=977 Q
|
|---|
| 54 | DRG981 ;
|
|---|
| 55 | DRG982 ;
|
|---|
| 56 | DRG983 S ICDRG=$S(ICDMCC=2:981,ICDMCC=1:982,1:983) Q
|
|---|
| 57 | DRG984 ;
|
|---|
| 58 | DRG985 ;
|
|---|
| 59 | DRG986 S ICDRG=$S(ICDMCC=2:984,ICDMCC=1:985,1:986) Q
|
|---|
| 60 | DRG987 ;
|
|---|
| 61 | DRG988 ;
|
|---|
| 62 | DRG989 S ICDRG=$S(ICDMCC=2:987,ICDMCC=1:988,1:989) Q
|
|---|
| 63 | DRG998 S ICDRG=998 Q
|
|---|
| 64 | DRG999 S ICDRG=999 Q
|
|---|
| 65 | Q
|
|---|
