source: FOIAVistA/trunk/r/MEDICINE-MC/MCPRE06.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 653 bytes
Line 
1MCPRE06 ;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.