Changeset 636 for FOIAVistA/tag/r/DRG_GROUPER-ICD--ICPT/ICDDRG17.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/ICDDRG17.m
r628 r636 1 1 ICDDRG17 ;ALB/EG - FIX SURGERY HIERARCHY ; 10/9/03 11:41am 2 ;;18.0;DRG Grouper;**10,31**;Oct 20, 2000;Build 7 3 Q:$O(ICDODRG(0))'>0 K ICDJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:ICDJ'>0 D 4 . I ICDDATE<3071001 D F Q 5 . E D FY2008 2 ;;18.0;DRG Grouper;**10**;Oct 20, 2000;Build 1 3 Q:$O(ICDODRG(0))'>0 K ICDJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:ICDJ'>0 D F 6 4 END S ICDJ=$O(ICDJ(0)) Q:ICDJ'>0 S ICDJ=ICDJ(ICDJ) K ICDODRG S ICDODRG(ICDJ)="" K ICDJ Q 7 5 F I ICDJ=539 S ICDJ(1)=ICDJ Q … … 24 22 I ICDJ=414 S ICDJ(18)=ICDJ Q 25 23 Q 26 FY2008 ;27 I ICDJ=822 S ICDJ(1)=ICDJ Q28 I ICDJ=825 S ICDJ(2)=ICDJ Q29 I ICDJ=828 S ICDJ(3)=ICDJ Q30 I ICDJ=830 S ICDJ(4)=ICDJ31 Q
Note:
See TracChangeset
for help on using the changeset viewer.