source: WorldVistAEHR/trunk/r/DRG_GROUPER-ICD--ICPT/ICD1824G.m@ 808

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

initial load of WorldVistAEHR
File size: 1.9 KB
RevLine 
[613]1ICD1824G ;;ALB/JAT - FY 2007 UPDATE; 7/27/05 14:50
2 ;;18.0;DRG Grouper;**24**;Oct 13,2000;Build 5
3 ;
4 Q
5 ;
6GI ; update diagnoses with new identifier
7 ; g = major gastrointestinal condition
8 ; DRG 567 and 569
9 N LINE,X,ICDDIAG,ENTRY,IDENT,DA,DIE,DR,DUPE
10 F LINE=1:1 S X=$T(DXID+LINE) S ICDDIAG=$P(X,";;",2) Q:ICDDIAG="EXIT" D
11 .S ENTRY=+$O(^ICD9("BA",$P(ICDDIAG,U)_" ",0)) I ENTRY D
12 ..; check for any dupe (there are some in MNTVBB)
13 ..S DUPE=+$O(^ICD9("BA",$P(ICDDIAG,U)_" ",ENTRY)) I DUPE Q
14 ..S IDENT=$P($G(^ICD9(ENTRY,0)),U,2)
15 ..; check if already done in case patch is being re-installed
16 ..I IDENT["g" Q
17 ..S IDENT=IDENT_"g"
18 ..S DA=ENTRY,DIE="^ICD9("
19 ..S DR="2///^S X=IDENT"
20 ..D ^DIE
21 Q
22DXID ;
23 ;;008.41^
24 ;;008.42^
25 ;;008.43^
26 ;;008.45^
27 ;;008.46^
28 ;;008.49^
29 ;;014.04^
30 ;;098.86^
31 ;;456.0^
32 ;;456.20^
33 ;;530.21^
34 ;;530.4^
35 ;;530.7^
36 ;;530.84^
37 ;;531.00^
38 ;;531.21^
39 ;;531.40^
40 ;;531.41^
41 ;;531.50^
42 ;;531.60^
43 ;;531.91^
44 ;;532.00^
45 ;;532.10^
46 ;;532.11^
47 ;;532.20^
48 ;;532.31^
49 ;;532.40^
50 ;;532.41^
51 ;;532.50^
52 ;;532.60^
53 ;;533.00^
54 ;;533.10^
55 ;;533.21^
56 ;;533.40^
57 ;;533.41^
58 ;;533.50^
59 ;;533.51^
60 ;;533.60^
61 ;;533.91^
62 ;;534.00^
63 ;;534.40^
64 ;;534.41^
65 ;;534.50^
66 ;;534.51^
67 ;;534.91^
68 ;;535.01^
69 ;;535.11^
70 ;;535.21^
71 ;;535.31^
72 ;;535.41^
73 ;;535.51^
74 ;;535.61^
75 ;;537.3^
76 ;;537.83^
77 ;;540.0^
78 ;;540.1^
79 ;;550.00^
80 ;;550.01^
81 ;;550.02^
82 ;;551.00^
83 ;;551.1^
84 ;;551.20^
85 ;;551.21^
86 ;;551.29^
87 ;;551.3^
88 ;;551.8^
89 ;;551.9^
90 ;;557.0^
91 ;;557.1^
92 ;;557.9^
93 ;;560.0^
94 ;;560.2^
95 ;;560.31^
96 ;;560.81^
97 ;;560.89^
98 ;;560.9^
99 ;;562.02^
100 ;;562.03^
101 ;;562.12^
102 ;;562.13^
103 ;;564.7^
104 ;;567.0^
105 ;;567.1^
106 ;;567.21^
107 ;;567.22^
108 ;;567.23^
109 ;;567.29^
110 ;;567.31^
111 ;;567.38^
112 ;;567.39^
113 ;;567.81^
114 ;;567.9^
115 ;;568.81^
116 ;;569.5^
117 ;;569.83^
118 ;;569.85^
119 ;;578.0^
120 ;;750.3^
121 ;;863.30^
122 ;;863.31^
123 ;;863.39^
124 ;;863.50^
125 ;;863.51^
126 ;;863.52^
127 ;;863.53^
128 ;;863.54^
129 ;;863.55^
130 ;;863.59^
131 ;;863.90^
132 ;;863.95^
133 ;;863.99^
134 ;;868.13^
135 ;;947.3^
136 ;;EXIT
137 Q
Note: See TracBrowser for help on using the repository browser.