ICD1861P ;ALB/JDG - YEARLY DRG UPDATE;8/9/2010 ; 10/5/11 3:21pm
;;18.0;DRG Grouper;**61**;Oct 20, 2000;Build 18
;
;This routine will kick off Routines needed for
;updates to the DRG Grouper.
;Depending on the type of updates needed.
;
Q
EN ; Start Update
D ICDDX^ICD1861L ;Updates to existing diagnosis code identifiers
D ICDPX^ICD1861L ;Updates to existing procedure code identifiers
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD1861P 411 printed Oct 16, 2024@17:49:45 Page 2
ICD1861P ;ALB/JDG - YEARLY DRG UPDATE;8/9/2010 ; 10/5/11 3:21pm
+1 ;;18.0;DRG Grouper;**61**;Oct 20, 2000;Build 18
+2 ;
+3 ;This routine will kick off Routines needed for
+4 ;updates to the DRG Grouper.
+5 ;Depending on the type of updates needed.
+6 ;
+7 QUIT
EN ; Start Update
+1 ;Updates to existing diagnosis code identifiers
DO ICDDX^ICD1861L
+2 ;Updates to existing procedure code identifiers
DO ICDPX^ICD1861L
+3 QUIT
