Last change
on this file since 1608 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
653 bytes
|
Line | |
---|
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.