|
Last change
on this file since 767 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
653 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | MCPRE06 ;HIRMFO/DAD-ICD CODE MULT CLEANUP IN MEDICAL DIAGNOSIS/ICD CODES FILE (#697.5 ;8/2/96 10:29
|
|---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
|---|
| 3 | ;
|
|---|
| 4 | N D0,D1,DIK,MCD0,MCD1,MCDATA
|
|---|
| 5 | S MCDATA(1)=""
|
|---|
| 6 | S MCDATA(2)="Cleaning up the data in the ICD Code multiple in"
|
|---|
| 7 | S MCDATA(3)="the Medical Diagnosis/ICD Codes file (#697.5)."
|
|---|
| 8 | D MES^XPDUTL(.MCDATA)
|
|---|
| 9 | ;
|
|---|
| 10 | S MCD0=0
|
|---|
| 11 | F S MCD0=$O(^MCAR(697.5,MCD0)) Q:MCD0'>0 D
|
|---|
| 12 | . S MCD1=0
|
|---|
| 13 | . F S MCD1=$O(^MCAR(697.5,MCD0,2,MCD1)) Q:MCD1'>0 D
|
|---|
| 14 | .. S MCDATA=$P($G(^MCAR(697.5,MCD0,2,MCD1,0)),U)
|
|---|
| 15 | .. I $S(MCDATA="":1,'$D(^ICD9(MCDATA,0)):1,1:0) D
|
|---|
| 16 | ... S DIK="^MCAR(697.5,"_MCD0_",2,",(D0,DA(1))=MCD0,(D1,DA)=MCD1
|
|---|
| 17 | ... D ^DIK
|
|---|
| 18 | ... Q
|
|---|
| 19 | .. Q
|
|---|
| 20 | . Q
|
|---|
| 21 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
