source: FOIAVistA/trunk/r/DRG_GROUPER-ICD--ICPT/ICD1824P.m@ 811

Last change on this file since 811 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 511 bytes
Line 
1ICD1824P ;;ALB/JAT - 2007 FY DRG GROUPER UPDATE; 7/27/05 14:50
2 ;;18.0;DRG Grouper;**24**;Oct 13,2000;Build 5
3 ;
4 Q
5 ;
6EN ;
7 ; add/update/inactivate DRG code file 80.2
8 D ADDDRG^ICD1824A
9 ; update operation/procedure code file 80.1
10 D PRO^ICD1824A
11 ; update diagnosis code file 80
12 D DIAG^ICD1824C
13 ; do DRG reclassification changes
14 D DIAG^ICD1824N
15 D GI^ICD1824G
16 D PRO^ICD1824O
17 D ID^ICD1824O
18 S ^DD(80,0,"VRRV")="24^3061001"
19 S ^DD(80.1,0,"VRRV")="24^3061001"
20 S ^DD(80.2,0,"VRRV")="24^3061001"
21 Q
Note: See TracBrowser for help on using the repository browser.