ICD18122 ;ALB/RFS - REPLACE VERBIAGE IN THE DISABILITY CONDITION(#31) FILE ; 01/06/2025
;;18.0;DRG GROUPER;**122**;Aug 13, 1993;Build 4
;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=8045 D
..S DIE="^DIC(31,",DA=DGDA,DR=".01///RESIDUALS OF TRAUMATIC BRAIN INJURY (TBI)"
..D ^DIE
..K DIE,DA,DR
..D BMES^XPDUTL("Verbiage for Dx 8045 "_DGDA_" in the DISABILITY CONDITION(#31) file has been updated.")
..Q
.Q
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD18122 580 printed Aug 26, 2025@22:03:48 Page 2
ICD18122 ;ALB/RFS - REPLACE VERBIAGE IN THE DISABILITY CONDITION(#31) FILE ; 01/06/2025
+1 ;;18.0;DRG GROUPER;**122**;Aug 13, 1993;Build 4
+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=8045
Begin DoDot:2
+4 SET DIE="^DIC(31,"
SET DA=DGDA
SET DR=".01///RESIDUALS OF TRAUMATIC BRAIN INJURY (TBI)"
+5 DO ^DIE
+6 KILL DIE,DA,DR
+7 DO BMES^XPDUTL("Verbiage for Dx 8045 "_DGDA_" in the DISABILITY CONDITION(#31) file has been updated.")
+8 QUIT
End DoDot:2
+9 QUIT
End DoDot:1
+10 QUIT
+11 ;
