source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCPRE05.m@ 703

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1MCPRE05 ;HIRMFO/DAD-CLEAN UP DATA IN INDICATION FILE (#694.1) ;4/26/96 14:49
2 ;;2.3;Medicine;;09/13/1996
3 ;
4 N MCDATA,MCORSPEL,MCLOOP,MCTXT,MCD0,DIE,DA,DR
5 S MCDATA(1)=""
6 S MCDATA(2)="Correcting misspellings in the Indication file (#694.1)."
7 D MES^XPDUTL(.MCDATA)
8 ;
9 S MCORSPEL=$P($T(CORRECT+1),";",3)
10 F MCLOOP=1:1 S MCTXT=$P($T(MISP+MCLOOP),";",3) Q:MCTXT="" D
11 . S MCD0=0
12 . F S MCD0=$O(^MCAR(694.1,"B",MCTXT,MCD0)) Q:MCD0'>0 D
13 .. I $P($G(^MCAR(694.1,MCD0,0)),U)'=MCTXT Q
14 .. S DIE="^MCAR(694.1,",DA=MCD0,DR=".01///"_MCORSPEL
15 .. D ^DIE
16 .. Q
17 . Q
18 Q
19CORRECT ;Correct spelling
20 ;;ASSESS PROGRESSION OR STATUS OF KNOWN HEMATOLOGIC DISEASE OR DISORDER
21MISP ;Known misspelling
22 ;;ASSES PROGRESSION OF STATUS OF KNOW HEMATOLOGIC DISEASE OR
23 ;;ASSES PROGRESSION OF STATUS OF KNOW HEMATOLOGIC DISEASE OR DISORDER
24 ;;ASSES PROGRESSION OR STATUS OF KNOW HEMATOLOGIC DISEASE OR DISORDER
25 ;;ASSESS PROGRESSION OR STATUS OF KNOW HEMATOLOGIC DISEASE OR DISORDER
26 ;;ASSESS PROGRESSION OR STATUS OF HEMATOLOGIC DISEASE OR DISORDER
Note: See TracBrowser for help on using the repository browser.