|
Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
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.
