#!/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;",!

      open 1:"dates,old"
      use 1
      set date=1
      for  do
      . read a
      . i '$t break
      . s ^dates(date)=a
      . set date=date+1
      set date=date-1
      close 1
      set ^date=date

      open 1:"time,old"
      use 1
      set time=1
      for  do
      . read a
      . i '$t break
      . s ^time(time)=a
      . set time=time+1
      set time=time-1
      close 1
      set ^time=time

      set names=1
      open 1:"names,old"
      use 1
      for  do
      . read a
      . i '$t break
      . s ^names(names)=a
      . set names=names+1
      set names=names-1
      close 1
      set ^names=names

      open 1:"ICDTab.txt,old"
      use 1
      set icd=1
      for  do
      . read a
      . i '$t break
      . s ^icd(icd)=a
      . s icd=icd+1
      set icd=icd-1
      close 1
      set ^icd=icd

      open 1:"labnames,old"
      use 1
      set labs=1
      for  do
      . read a
      . i '$t break
      . s ^labs(labs)=a
      . s labs=labs+1
      set labs=labs-1
      close 1
      set ^labs=labs


