source: FOIAVistA/trunk/r/DRG_GROUPER-ICD--ICPT/ICD1826P.m@ 677

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

initial load of FOIAVistA 6/30/08 version

File size: 333 bytes
Line 
1ICD1826P ;;ALB/JAT - 2007 FY DRG GROUPER UPDATE; 7/27/05 14:50
2 ;;18.0;DRG Grouper;**26**;Oct 13,2000;Build 1
3 ;
4 ; fix latest tickets
5 Q
6 ;
7REMEDY ;
8 D BMES^XPDUTL("...Repairing Remedy ticket...")
9 ; HD169542
10 ; kill 80.171 record
11 N DA,DIK
12 S DA(1)=2750
13 S DA=1
14 S DIK="^ICD0("_DA(1)_",""2"","
15 D ^DIK
16 Q
17
Note: See TracBrowser for help on using the repository browser.