Lab Result Entry System

commit pn pr gs =

do io (do d <- getDate

putRecord (PN pn)

(pr{labs=updateLabs (labs pr) gs d}))

mainPage "Database updated"

Föregående bild

Nästa bild

Tillbaka till första bilden

Visa grafisk version