Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: ICD1826P

ICD1826P.m

Go to the documentation of this file.

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

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

 ; fix latest tickets

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD1826P   350     printed  Apr 09, 2024@20:57:48                                                                                                                                                                                                     Page 2

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

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

 +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