source: FOIAVistA/trunk/r/DRG_GROUPER-ICD--ICPT/ICDTBL9.m@ 1470

Last change on this file since 1470 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

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