ICD1824P.m

ICD1824P   ;;ALB/JAT - 2007 FY DRG GROUPER UPDATE; 7/27/05 14:50

 ;;18.0;DRG Grouper;**24**;Oct 13,2000;Build 5

 ;       

 Q

 ;

EN ;

 ; add/update/inactivate DRG code file 80.2

 D ADDDRG^ICD1824A

 ; update operation/procedure code file 80.1

 D PRO^ICD1824A

 ; update diagnosis code file 80

 D DIAG^ICD1824C

 ; do DRG reclassification changes

 D DIAG^ICD1824N

 D GI^ICD1824G

 D PRO^ICD1824O

 D ID^ICD1824O

 S ^DD(80,0,"VRRV")="24^3061001"

 S ^DD(80.1,0,"VRRV")="24^3061001"

 S ^DD(80.2,0,"VRRV")="24^3061001"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ICD1824P   532     printed  Oct 16, 2024@17:48:54                                                                                                                                                                                                     Page 2

ICD1824P  ;;ALB/JAT - 2007 FY DRG GROUPER UPDATE; 7/27/05 14:50

 +1       ;;18.0;DRG Grouper;**24**;Oct 13,2000;Build 5

 +2       ;       

 +3        QUIT 

 +4       ;

EN        ;

 +1       ; add/update/inactivate DRG code file 80.2

 +2        DO ADDDRG^ICD1824A

 +3       ; update operation/procedure code file 80.1

 +4        DO PRO^ICD1824A

 +5       ; update diagnosis code file 80

 +6        DO DIAG^ICD1824C

 +7       ; do DRG reclassification changes

 +8        DO DIAG^ICD1824N

 +9        DO GI^ICD1824G

 +10       DO PRO^ICD1824O

 +11       DO ID^ICD1824O

 +12       SET ^DD(80,0,"VRRV")="24^3061001"

 +13       SET ^DD(80.1,0,"VRRV")="24^3061001"

 +14       SET ^DD(80.2,0,"VRRV")="24^3061001"

 +15       QUIT