- 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 Feb 18, 2025@23:15:29 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