DVBCTPST ;ALB/GTS-POST INIT CORRECT EXAM NAME SPELLING ; 5/24/95 14:30
;;2.7;AMIE;**1**;Apr 10, 1995
EN I '$D(IOF) D HOME^%ZIS
N VAR
S VAR(1,0)="1,5,0,2:2,0^AMIE Exam spelling correction"
D WR^DVBAUTL4("VAR")
;
;** Get the Exam's IEN
S DVBAIEN=$O(^DVB(396.6,"B","PYELITIS, NEPHROLITHIAIS, ETC.",""))
I DVBAIEN'="" DO ;**Correct the spelling
.S DA=DVBAIEN,DIE="^DVB(396.6,"
.S DR=".01///PYELITIS, NEPHROLITHIASIS, ETC."
.D ^DIE
.K DA,DIE,DR
.S VAR(1,0)="0,5,0,2,0^'PYELITIS, NEPHROLITHIAIS, ETC.' corrected."
.S VAR(2,0)="0,7,0,1:2,0^It is now spelled 'PYELITIS, NEPHROLITHIASIS, ETC.'"
.D WR^DVBAUTL4("VAR")
I DVBAIEN="" DO ;**Spelling NOT corrected
.S VAR(1,0)="0,5,0,2,0^'PYELITIS, NEPHROLITHIAIS, ETC.' NOT corrected."
.S VAR(2,0)="0,7,0,1:2,0^Check this exam in the AMIE EXAM FILE (396.6)"
.D WR^DVBAUTL4("VAR")
K VAR,DVBAIEN,X
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCTPST 880 printed Dec 13, 2024@01:48:58 Page 2
DVBCTPST ;ALB/GTS-POST INIT CORRECT EXAM NAME SPELLING ; 5/24/95 14:30
+1 ;;2.7;AMIE;**1**;Apr 10, 1995
EN IF '$DATA(IOF)
DO HOME^%ZIS
+1 NEW VAR
+2 SET VAR(1,0)="1,5,0,2:2,0^AMIE Exam spelling correction"
+3 DO WR^DVBAUTL4("VAR")
+4 ;
+5 ;** Get the Exam's IEN
+6 SET DVBAIEN=$ORDER(^DVB(396.6,"B","PYELITIS, NEPHROLITHIAIS, ETC.",""))
+7 ;**Correct the spelling
IF DVBAIEN'=""
Begin DoDot:1
+8 SET DA=DVBAIEN
SET DIE="^DVB(396.6,"
+9 SET DR=".01///PYELITIS, NEPHROLITHIASIS, ETC."
+10 DO ^DIE
+11 KILL DA,DIE,DR
+12 SET VAR(1,0)="0,5,0,2,0^'PYELITIS, NEPHROLITHIAIS, ETC.' corrected."
+13 SET VAR(2,0)="0,7,0,1:2,0^It is now spelled 'PYELITIS, NEPHROLITHIASIS, ETC.'"
+14 DO WR^DVBAUTL4("VAR")
End DoDot:1
+15 ;**Spelling NOT corrected
IF DVBAIEN=""
Begin DoDot:1
+16 SET VAR(1,0)="0,5,0,2,0^'PYELITIS, NEPHROLITHIAIS, ETC.' NOT corrected."
+17 SET VAR(2,0)="0,7,0,1:2,0^Check this exam in the AMIE EXAM FILE (396.6)"
+18 DO WR^DVBAUTL4("VAR")
End DoDot:1
+19 KILL VAR,DVBAIEN,X
+20 QUIT
