- 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
- 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
-
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD1826P 350 printed Mar 13, 2025@20:52:53 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
