Last change
on this file since 907 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
546 bytes
|
Rev | Line | |
---|
[628] | 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.