Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.9 KB
|
Rev | Line | |
---|
[628] | 1 | ICD1824G ;;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 | ;
|
---|
| 6 | GI ; 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
|
---|
| 22 | DXID ;
|
---|
| 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.