ICD1820P.m

ICD1820P   ;;ALB/JAT - 2006 FY DRG GROUPER UPDATE; 7/27/05 14:50

 ;;18.0;DRG Grouper;**20**;Oct 13,2000

 ;       

 ; fix Remedy tickets

 D REMEDY^ICD1820E

 ; add new DRGs

 D ADDDRG^ICD1820A

 ; update operation/procedure codes

 D PRO^ICD1820A

 ; update diagnosis codes

 D DIAG^ICD1820C

 ; DRG reclassification changes

 D DRGRECL^ICD1820D

 S ^DD(80.2,0,"VRRV")="20^3051001"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ICD1820P   390     printed  Sep 23, 2025@19:24:07                                                                                                                                                                                                     Page 2

ICD1820P  ;;ALB/JAT - 2006 FY DRG GROUPER UPDATE; 7/27/05 14:50

 +1       ;;18.0;DRG Grouper;**20**;Oct 13,2000

 +2       ;       

 +3       ; fix Remedy tickets

 +4        DO REMEDY^ICD1820E

 +5       ; add new DRGs

 +6        DO ADDDRG^ICD1820A

 +7       ; update operation/procedure codes

 +8        DO PRO^ICD1820A

 +9       ; update diagnosis codes

 +10       DO DIAG^ICD1820C

 +11      ; DRG reclassification changes

 +12       DO DRGRECL^ICD1820D

 +13       SET ^DD(80.2,0,"VRRV")="20^3051001"

 +14       QUIT