| [613] | 1 | MCPRE05 ;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
|
|---|
| 19 | CORRECT ;Correct spelling
|
|---|
| 20 | ;;ASSESS PROGRESSION OR STATUS OF KNOWN HEMATOLOGIC DISEASE OR DISORDER
|
|---|
| 21 | MISP ;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
|
|---|
