#!/usr/bin/mumps

      s i=$zsqlite("pragma","journal_mode=off")
      s i=$zsqlite("pragma","synchronous=off")

      w "pragma journal_mode=off;",!
      w "pragma synchronous=off;",!

      set date=^date
      set time=^time

      write "drop table if exists probtab;",!
      write "create table probtab (icd_code int, diagnosis varchar(100)); ",!

      open 1:"ICDTab.txt,old"
      use 1
      for  do
      . use 1
      . read a
      . i '$t break
      . use 5
      . write "insert into probtab values ( ",$p(a," ",1),", '"
      . write $p(a," ",2),"' );",!
      close 1
