- ICD1824P ;;ALB/JAT - 2007 FY DRG GROUPER UPDATE; 7/27/05 14:50
- ;;18.0;DRG Grouper;**24**;Oct 13,2000;Build 7
- ;
- 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
- ICD1824P ;;ALB/JAT - 2007 FY DRG GROUPER UPDATE; 7/27/05 14:50
- +1 ;;18.0;DRG Grouper;**24**;Oct 13,2000;Build 7
- +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