ICD1824G ;;ALB/JAT - FY 2007 UPDATE; 7/27/05 14:50
 ;;18.0;DRG Grouper;**24**;Oct 13,2000;Build 5
 ;
 Q
 ;
GI ; update diagnoses with new identifier
 ; g = major gastrointestinal condition
 ; DRG 567 and 569
 N LINE,X,ICDDIAG,ENTRY,IDENT,DA,DIE,DR,DUPE
 F LINE=1:1 S X=$T(DXID+LINE) S ICDDIAG=$P(X,";;",2) Q:ICDDIAG="EXIT"  D
 .S ENTRY=+$O(^ICD9("BA",$P(ICDDIAG,U)_" ",0)) I ENTRY D
 ..; check for any dupe (there are some in MNTVBB)
 ..S DUPE=+$O(^ICD9("BA",$P(ICDDIAG,U)_" ",ENTRY)) I DUPE Q
 ..S IDENT=$P($G(^ICD9(ENTRY,0)),U,2)
 ..; check if already done in case patch is being re-installed
 ..I IDENT["g" Q
 ..S IDENT=IDENT_"g"
 ..S DA=ENTRY,DIE="^ICD9("
 ..S DR="2///^S X=IDENT"
 ..D ^DIE
 Q
DXID ;
 ;;008.41^
 ;;008.42^
 ;;008.43^
 ;;008.45^
 ;;008.46^
 ;;008.49^
 ;;014.04^
 ;;098.86^
 ;;456.0^
 ;;456.20^
 ;;530.21^
 ;;530.4^
 ;;530.7^
 ;;530.84^
 ;;531.00^
 ;;531.21^
 ;;531.40^
 ;;531.41^
 ;;531.50^
 ;;531.60^
 ;;531.91^
 ;;532.00^
 ;;532.10^
 ;;532.11^
 ;;532.20^
 ;;532.31^
 ;;532.40^
 ;;532.41^
 ;;532.50^
 ;;532.60^
 ;;533.00^
 ;;533.10^
 ;;533.21^
 ;;533.40^
 ;;533.41^
 ;;533.50^
 ;;533.51^
 ;;533.60^
 ;;533.91^
 ;;534.00^
 ;;534.40^
 ;;534.41^
 ;;534.50^
 ;;534.51^
 ;;534.91^
 ;;535.01^
 ;;535.11^
 ;;535.21^
 ;;535.31^
 ;;535.41^
 ;;535.51^
 ;;535.61^
 ;;537.3^
 ;;537.83^
 ;;540.0^
 ;;540.1^
 ;;550.00^
 ;;550.01^
 ;;550.02^
 ;;551.00^
 ;;551.1^
 ;;551.20^
 ;;551.21^
 ;;551.29^
 ;;551.3^
 ;;551.8^
 ;;551.9^
 ;;557.0^
 ;;557.1^
 ;;557.9^
 ;;560.0^
 ;;560.2^
 ;;560.31^
 ;;560.81^
 ;;560.89^
 ;;560.9^
 ;;562.02^
 ;;562.03^
 ;;562.12^
 ;;562.13^
 ;;564.7^
 ;;567.0^
 ;;567.1^
 ;;567.21^
 ;;567.22^
 ;;567.23^
 ;;567.29^
 ;;567.31^
 ;;567.38^
 ;;567.39^
 ;;567.81^
 ;;567.9^
 ;;568.81^
 ;;569.5^
 ;;569.83^
 ;;569.85^
 ;;578.0^
 ;;750.3^
 ;;863.30^
 ;;863.31^
 ;;863.39^
 ;;863.50^
 ;;863.51^
 ;;863.52^
 ;;863.53^
 ;;863.54^
 ;;863.55^
 ;;863.59^
 ;;863.90^
 ;;863.95^
 ;;863.99^
 ;;868.13^
 ;;947.3^
 ;;EXIT
 Q