ICD1869P ;ALB/JDG - YEARLY DRG UPDATE;8/9/2010 ; 10/5/11 3:21pm
;;18.0;DRG Grouper;**69**;Oct 20, 2000;Build 4
;
;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 ICDUPDDX^ICD1869L ;Updates to existing diagnosis codes
D ICDUPDPX^ICD1869L ;Updates to existing procedure code identifiers
D ICDECUP1^ICD1869L ;Updates PTF EXPANDED CODE (#45.89) file
D ICDECUP2^ICD1869L ;Updates PTF EXPANDED CODE (#45.89) file
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD1869P 530 printed Dec 13, 2024@01:49:07 Page 2
ICD1869P ;ALB/JDG - YEARLY DRG UPDATE;8/9/2010 ; 10/5/11 3:21pm
+1 ;;18.0;DRG Grouper;**69**;Oct 20, 2000;Build 4
+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 codes
DO ICDUPDDX^ICD1869L
+2 ;Updates to existing procedure code identifiers
DO ICDUPDPX^ICD1869L
+3 ;Updates PTF EXPANDED CODE (#45.89) file
DO ICDECUP1^ICD1869L
+4 ;Updates PTF EXPANDED CODE (#45.89) file
DO ICDECUP2^ICD1869L
+5 QUIT
