27 lines
1.0 KiB
Mathematica
27 lines
1.0 KiB
Mathematica
MCPRE05 ;HIRMFO/DAD-CLEAN UP DATA IN INDICATION FILE (#694.1) ;4/26/96 14:49
|
|
;;2.3;Medicine;;09/13/1996
|
|
;
|
|
N MCDATA,MCORSPEL,MCLOOP,MCTXT,MCD0,DIE,DA,DR
|
|
S MCDATA(1)=""
|
|
S MCDATA(2)="Correcting misspellings in the Indication file (#694.1)."
|
|
D MES^XPDUTL(.MCDATA)
|
|
;
|
|
S MCORSPEL=$P($T(CORRECT+1),";",3)
|
|
F MCLOOP=1:1 S MCTXT=$P($T(MISP+MCLOOP),";",3) Q:MCTXT="" D
|
|
. S MCD0=0
|
|
. F S MCD0=$O(^MCAR(694.1,"B",MCTXT,MCD0)) Q:MCD0'>0 D
|
|
.. I $P($G(^MCAR(694.1,MCD0,0)),U)'=MCTXT Q
|
|
.. S DIE="^MCAR(694.1,",DA=MCD0,DR=".01///"_MCORSPEL
|
|
.. D ^DIE
|
|
.. Q
|
|
. Q
|
|
Q
|
|
CORRECT ;Correct spelling
|
|
;;ASSESS PROGRESSION OR STATUS OF KNOWN HEMATOLOGIC DISEASE OR DISORDER
|
|
MISP ;Known misspelling
|
|
;;ASSES PROGRESSION OF STATUS OF KNOW HEMATOLOGIC DISEASE OR
|
|
;;ASSES PROGRESSION OF STATUS OF KNOW HEMATOLOGIC DISEASE OR DISORDER
|
|
;;ASSES PROGRESSION OR STATUS OF KNOW HEMATOLOGIC DISEASE OR DISORDER
|
|
;;ASSESS PROGRESSION OR STATUS OF KNOW HEMATOLOGIC DISEASE OR DISORDER
|
|
;;ASSESS PROGRESSION OR STATUS OF HEMATOLOGIC DISEASE OR DISORDER
|