source: FOIAVistA/trunk/r/DRG_GROUPER-ICD--ICPT/ICD1830G.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: 546 bytes
Line 
1ICD1830G ;;BAY/JAT - FY 2007 UPDATE;
2 ;;18.0;DRG Grouper;**30**;Oct 13,2000;Build 5
3 ;
4 D CC
5 Q
6CC ; update complications/comorbidities field in diag file
7 N LINE,X,ICDDIAG,ENTRY,IDENT,DA,DIE,DR,DUPE
8 F LINE=1:1 S X=$T(CCID+LINE) S ICDDIAG=$P(X,";;",2) Q:ICDDIAG="EXIT" D
9 .S ENTRY=+$O(^ICD9("BA",$P(ICDDIAG,U)_" ",0)) I ENTRY D
10 ..; check for any dupe (there are some in MNTVBB)
11 ..S DUPE=+$O(^ICD9("BA",$P(ICDDIAG,U)_" ",ENTRY)) I DUPE Q
12 ..S IDENT=1
13 ..S DA=ENTRY,DIE="^ICD9("
14 ..S DR="70///^S X=IDENT"
15 ..D ^DIE
16 Q
17CCID ;
18 ;;799.02^
19 ;;EXIT
Note: See TracBrowser for help on using the repository browser.