ICD18126P ;ALB/RFS - REPLACE VERBIAGE IN THE DISABILITY CONDITION(#31) FILE ; 06/23/2025
;;18.0;DRG GROUPER;**126**;Aug 13, 1993;Build 2
;Per VA Directive 6402, this routine should not be modified.
;
Q
;
EN ; ENTRY POINT
N DGDA,DGDX
F DGDA=0:0 S DGDA=+$O(^DIC(31,DGDA)) Q:DGDA=0 S DGDX=$P(^DIC(31,DGDA,0),U,3) D
.I DGDX=8104 D
..S DIE="^DIC(31,",DA=DGDA,DR=".01///PARAMYOCLONUS MULTIPLEX"
..D ^DIE
..K DIE,DA,DR
..S DIE="^DIC(31,",DA=DGDA,DR="10///PARAMYOCLONUS MULTIPLEX (CONVULSIVE STATE, MYOCLONIC TYPE)"
..D ^DIE
..K DIE,DA,DR
..D BMES^XPDUTL("Verbiage for Dx 8104 "_DGDA_" in the DISABILITY CONDITION(#31) file has been updated.")
..Q
.Q
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD18126P 688 printed Sep 23, 2025@19:24:04 Page 2
ICD18126P ;ALB/RFS - REPLACE VERBIAGE IN THE DISABILITY CONDITION(#31) FILE ; 06/23/2025
+1 ;;18.0;DRG GROUPER;**126**;Aug 13, 1993;Build 2
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 QUIT
+5 ;
EN ; ENTRY POINT
+1 NEW DGDA,DGDX
+2 FOR DGDA=0:0
SET DGDA=+$ORDER(^DIC(31,DGDA))
if DGDA=0
QUIT
SET DGDX=$PIECE(^DIC(31,DGDA,0),U,3)
Begin DoDot:1
+3 IF DGDX=8104
Begin DoDot:2
+4 SET DIE="^DIC(31,"
SET DA=DGDA
SET DR=".01///PARAMYOCLONUS MULTIPLEX"
+5 DO ^DIE
+6 KILL DIE,DA,DR
+7 SET DIE="^DIC(31,"
SET DA=DGDA
SET DR="10///PARAMYOCLONUS MULTIPLEX (CONVULSIVE STATE, MYOCLONIC TYPE)"
+8 DO ^DIE
+9 KILL DIE,DA,DR
+10 DO BMES^XPDUTL("Verbiage for Dx 8104 "_DGDA_" in the DISABILITY CONDITION(#31) file has been updated.")
+11 QUIT
End DoDot:2
+12 QUIT
End DoDot:1
+13 QUIT
+14 ;
