| [613] | 1 | DVBCTPST ;ALB/GTS-POST INIT CORRECT EXAM NAME SPELLING ; 5/24/95 14:30
|
|---|
| 2 | ;;2.7;AMIE;**1**;Apr 10, 1995
|
|---|
| 3 | EN I '$D(IOF) D HOME^%ZIS
|
|---|
| 4 | N VAR
|
|---|
| 5 | S VAR(1,0)="1,5,0,2:2,0^AMIE Exam spelling correction"
|
|---|
| 6 | D WR^DVBAUTL4("VAR")
|
|---|
| 7 | ;
|
|---|
| 8 | ;** Get the Exam's IEN
|
|---|
| 9 | S DVBAIEN=$O(^DVB(396.6,"B","PYELITIS, NEPHROLITHIAIS, ETC.",""))
|
|---|
| 10 | I DVBAIEN'="" DO ;**Correct the spelling
|
|---|
| 11 | .S DA=DVBAIEN,DIE="^DVB(396.6,"
|
|---|
| 12 | .S DR=".01///PYELITIS, NEPHROLITHIASIS, ETC."
|
|---|
| 13 | .D ^DIE
|
|---|
| 14 | .K DA,DIE,DR
|
|---|
| 15 | .S VAR(1,0)="0,5,0,2,0^'PYELITIS, NEPHROLITHIAIS, ETC.' corrected."
|
|---|
| 16 | .S VAR(2,0)="0,7,0,1:2,0^It is now spelled 'PYELITIS, NEPHROLITHIASIS, ETC.'"
|
|---|
| 17 | .D WR^DVBAUTL4("VAR")
|
|---|
| 18 | I DVBAIEN="" DO ;**Spelling NOT corrected
|
|---|
| 19 | .S VAR(1,0)="0,5,0,2,0^'PYELITIS, NEPHROLITHIAIS, ETC.' NOT corrected."
|
|---|
| 20 | .S VAR(2,0)="0,7,0,1:2,0^Check this exam in the AMIE EXAM FILE (396.6)"
|
|---|
| 21 | .D WR^DVBAUTL4("VAR")
|
|---|
| 22 | K VAR,DVBAIEN,X
|
|---|
| 23 | Q
|
|---|
