Last change
on this file since 1535 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
546 bytes
|
Line | |
---|
1 | ICD1830G ;;BAY/JAT - FY 2007 UPDATE;
|
---|
2 | ;;18.0;DRG Grouper;**30**;Oct 13,2000;Build 5
|
---|
3 | ;
|
---|
4 | D CC
|
---|
5 | Q
|
---|
6 | CC ; 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
|
---|
17 | CCID ;
|
---|
18 | ;;799.02^
|
---|
19 | ;;EXIT
|
---|
Note:
See
TracBrowser
for help on using the repository browser.