ICD1826P.m

ICD1826P ;;ALB/JAT - 2007 FY DRG GROUPER UPDATE; 7/27/05 14:50

 ;;18.0;DRG Grouper;**26**;Oct 13,2000;Build 7

 ;

 ; fix latest tickets

 Q

 ;

REMEDY ;

 D BMES^XPDUTL("...Repairing Remedy ticket...")

 ; HD169542

 ; kill 80.171 record

 N DA,DIK

 S DA(1)=2750

 S DA=1

 S DIK="^ICD0("_DA(1)_",""2"","

 D ^DIK

 Q

ICD1826P  ;;ALB/JAT - 2007 FY DRG GROUPER UPDATE; 7/27/05 14:50

 +1       ;;18.0;DRG Grouper;**26**;Oct 13,2000;Build 7

 +2       ;

 +3       ; fix latest tickets

 +4        QUIT 

 +5       ;

REMEDY    ;

 +1        DO BMES^XPDUTL("...Repairing Remedy ticket...")

 +2       ; HD169542

 +3       ; kill 80.171 record

 +4        NEW DA,DIK

 +5        SET DA(1)=2750

 +6        SET DA=1

 +7        SET DIK="^ICD0("_DA(1)_",""2"","

 +8        DO ^DIK

 +9        QUIT 

 +10