source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBCTPST.m@ 1259

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

initial load of WorldVistAEHR

File size: 857 bytes
Line 
1DVBCTPST ;ALB/GTS-POST INIT CORRECT EXAM NAME SPELLING ; 5/24/95 14:30
2 ;;2.7;AMIE;**1**;Apr 10, 1995
3EN 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
Note: See TracBrowser for help on using the repository browser.