DVBCTPST.m

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 ---DVBCTPST   880     printed  Apr 09, 2024@20:53:43                                                                                                                                                                                                     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