- ICD1850P ;ALB/MJB - YEARLY DRG UPDATE;8/9/2010
- ;;18.0;DRG Grouper;**50**;Oct 13, 2000;Build 8
- ;
- ;This routine will kick off Routines needed for
- ;updates to the DRG Grouper.
- ;Depending on the year and type of updates needed, not
- ;all of the routines will be needed.
- ;
- Q
- EN ; START UPDATE
- D DRG^ICD1850A ;CHANGES FOR DRGS
- ; ICD1850F-K CONTAIN THE DRG INFO NEEDED FOR THE GROUPER UPDATE
- D DIAG^ICD1850B ; UPDATES FOR NEW DIAGNOSIS CODES
- D PRO^ICD1850C ; UPDATES FOR NEW PROCEDURE CODES
- ;D DIAG^ICD1850D ; UPDATES TO EXISTING DIAGNOSIS CODES IF ANY
- ;D PRO^ICD1850E ; UPDATES TO EXISTING PROCEDURE CODES IF ANY
- ;D ADDID^ICD1850L ; UPDATES IDENTIFIER FIELD FOR DIAGNOSIS CODES
- D INACTDRG^ICD1850O ; INACTIVATE DRGS
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD1850P 749 printed Feb 18, 2025@23:15:17 Page 2
- ICD1850P ;ALB/MJB - YEARLY DRG UPDATE;8/9/2010
- +1 ;;18.0;DRG Grouper;**50**;Oct 13, 2000;Build 8
- +2 ;
- +3 ;This routine will kick off Routines needed for
- +4 ;updates to the DRG Grouper.
- +5 ;Depending on the year and type of updates needed, not
- +6 ;all of the routines will be needed.
- +7 ;
- +8 QUIT
- EN ; START UPDATE
- +1 ;CHANGES FOR DRGS
- DO DRG^ICD1850A
- +2 ; ICD1850F-K CONTAIN THE DRG INFO NEEDED FOR THE GROUPER UPDATE
- +3 ; UPDATES FOR NEW DIAGNOSIS CODES
- DO DIAG^ICD1850B
- +4 ; UPDATES FOR NEW PROCEDURE CODES
- DO PRO^ICD1850C
- +5 ;D DIAG^ICD1850D ; UPDATES TO EXISTING DIAGNOSIS CODES IF ANY
- +6 ;D PRO^ICD1850E ; UPDATES TO EXISTING PROCEDURE CODES IF ANY
- +7 ;D ADDID^ICD1850L ; UPDATES IDENTIFIER FIELD FOR DIAGNOSIS CODES
- +8 ; INACTIVATE DRGS
- DO INACTDRG^ICD1850O
- +9 QUIT