ICD1882P.m

ICD1882P ;ALB/JDG - YEARLY DRG UPDATE;8/9/2010

 ;;18.0;DRG Grouper;**82**;Oct 20, 2000;Build 21

 ;

 ;This routine will kick off Routines needed for 

 ;FY 2016 updates to the DRG Grouper.

 ;

 Q

 ;

EN ; start update

 D PRE^ICD1882A ;

 Q

EN2 ; continue update

 D INACTDRG^ICD1882O ;inactivate DRGs

 D DRG^ICD1882X ;changes for DRGS

 ; ********************************************************************************

 ; *****routines ICD1872F-K contain the DRG info needed for the Grouper update*****

 ; ********************************************************************************

 D POST^ICD1882A ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ICD1882P   622     printed  Apr 09, 2024@20:52:19                                                                                                                                                                                                     Page 2

ICD1882P  ;ALB/JDG - YEARLY DRG UPDATE;8/9/2010

 +1       ;;18.0;DRG Grouper;**82**;Oct 20, 2000;Build 21

 +2       ;

 +3       ;This routine will kick off Routines needed for 

 +4       ;FY 2016 updates to the DRG Grouper.

 +5       ;

 +6        QUIT 

 +7       ;

EN        ; start update

 +1       ;

           DO PRE^ICD1882A

 +2        QUIT 

EN2       ; continue update

 +1       ;inactivate DRGs

           DO INACTDRG^ICD1882O

 +2       ;changes for DRGS

           DO DRG^ICD1882X

 +3       ; ********************************************************************************

 +4       ; *****routines ICD1872F-K contain the DRG info needed for the Grouper update*****

 +5       ; ********************************************************************************

 +6       ;

           DO POST^ICD1882A

 +7        QUIT