ник: ГлазастыйМышь
Занимался я годика 3-4 разработкой по данной тематике, что-то с метастазами связанное (и их лечением)
Какая цель программы: если назначил схему лечения (если она одна) пациенту, то при открытии выводилось что ему сегодня нужно делать?
если так, то можно по минимому.
Таблица пациентов:
IDпациента,ФИО, Рост, вес, Врач, схема лечения, дата начала схемы
Таблица схем:
IDсхемы,Название схемы
Таблица схема-препарат:
IDсхема-препарат,IDсхемы,ДеньОтНачала,Препарат, дозировкаBSA
тогда запросом получим кому чего сегодня делать
Select tP.ФИО, tS.Название схемы, tSP.Препарат, tSP.дозировкаBSA*BSA_calculation
From [Таблица пациентов] as tP, [Таблица схем] as tS, [Таблица схема-препарат] as tSP
Where tS.IDсхемы=tP.IDсхемы and tSP.IDсхемы=tP.IDсхемы and date()-tP.[дата начала схемы]=tSP.ДеньОтНачала
|
Формула расчета поверхности
Public Function BSA_calculation(var_height As Double, var_weight As Double) As Double
BSA_calculation = Sqr((var_height * var_weight) / 3600)
End Function
|
ЗЫ. Это набросано на коленке, но что-то в этом роде.