Changeset 636 for FOIAVistA/tag/r/DRG_GROUPER-ICD--ICPT/ICDDRG8.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/DRG_GROUPER-ICD--ICPT/ICDDRG8.m
r628 r636 1 1 ICDDRG8 ;ALB/GRR/EG - FIX SURGERY HIERARCHY ; 7/18/01 10:40am 2 ;;18.0;DRG Grouper;**1,2,10,20,24 ,31**;Oct 20, 2000;Build 72 ;;18.0;DRG Grouper;**1,2,10,20,24**;Oct 20, 2000;Build 5 3 3 Q:$O(ICDODRG(0))'>0 K ICDJ,ICDJJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:ICDJ'>0 S ICDJJ(ICDJ)="" D 4 .I ICDDATE<3051001 D F Q 5 .E I ICDDATE<3061001 D FY2006 Q 6 .E I ICDDATE<3071001 D FY2007 Q 7 .E D FY2008 4 .I ICDDATE<3051001 D F 5 .E I ICDDATE<3061001 D FY2006 6 .E D FY2007 8 7 END S ICDJ=$O(ICDJ(0)) Q:ICDJ'>0 S ICDJ=ICDJ(ICDJ) K ICDODRG S ICDODRG(ICDJ)="" Q 9 8 F I ICDJ=471 S ICDJ(1)=ICDJ Q … … 111 110 I ICDJ=234 S ICDJ(37)=ICDJ Q 112 111 Q 113 FY2008 ;114 I ICDJ=455 S ICDJ(1)=ICDJ Q115 I ICDJ=458 S ICDJ(2)=ICDJ Q116 I ICDJ=460 S ICDJ(3)=ICDJ Q117 I ICDJ=462 S ICDJ(4)=ICDJ Q118 I ICDJ=465 S ICDJ(5)=ICDJ Q119 I ICDJ=468 S ICDJ(6)=ICDJ Q120 I ICDJ=470 S ICDJ(7)=ICDJ Q121 I ICDJ=473 S ICDJ(8)=ICDJ Q122 I ICDJ=476 S ICDJ(9)=ICDJ Q123 I ICDJ=479 S ICDJ(10)=ICDJ Q124 I ICDJ=482 S ICDJ(11)=ICDJ Q125 I ICDJ=484 S ICDJ(12)=ICDJ Q126 I ICDJ=487 S ICDJ(13)=ICDJ Q127 I ICDJ=489 S ICDJ(14)=ICDJ Q128 I ICDJ=491 S ICDJ(15)=ICDJ Q129 I ICDJ=494 S ICDJ(16)=ICDJ Q130 I ICDJ=497 S ICDJ(17)=ICDJ Q131 I ICDJ=499 S ICDJ(18)=ICDJ Q132 I ICDJ=502 S ICDJ(19)=ICDJ Q133 I ICDJ=505 S ICDJ(20)=ICDJ Q134 I ICDJ=506 S ICDJ(21)=ICDJ Q135 I ICDJ=508 S ICDJ(22)=ICDJ Q136 I ICDJ=509 S ICDJ(23)=ICDJ Q137 I ICDJ=512 S ICDJ(24)=ICDJ Q138 I ICDJ=514 S ICDJ(25)=ICDJ Q139 I ICDJ=517 S ICDJ(26)=ICDJ Q140 Q141 112 EN1 ; paired spinal fusion codes 142 113 S ICDCC3=0
Note:
See TracChangeset
for help on using the changeset viewer.