#!/usr/bin/mumps

	for i=1:1:1000 do
	. read a
	. if '$test break
	. s ptid=$p(a,"#",1)
	. s date=$p(a,"#",2)
	. s time=$p(a,"#",3)
	. s sys=$p(a,"#",4)
	. s dia=$p(a,"#",5)
	. s resp=$p(a,"#",6)
	. s temp=$p(a,"#",7)
	. set ^vitals(ptid,date,time,sys,dia,resp,temp)=""

