#!/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

      use 5
      write "drop table if exists vitals;",!
      write "create table vitals (ptid char(10), date_taken date, time_take time, systolic int, "
      write " diastolic int, pulse int, respiration int, temperature int ); ",!

      for k=1:1:20 do
      . set ptid=100000
      . for i=1:1:^ptcount(0) do
      .. set ptid=ptid+1000
      .. write "insert into vitals values ( '",ptid,"', "
      .. write "'",^dates($r(date)+1),"', "
      .. write "'",^time($r(time)+1),"', "
      .. write 50+$r(70),", "
      .. write 70+$r(150),", "
      .. write 50+$r(70),", "
      .. write 10+$r(20),", "
      .. write 96+$r(10),");",!

