function GetHospitalDirector: string;
begin
with kskdm.fcds do
begin
close;
data := HOSxP_GetDataset('select hospitaldirector as hn from stockconfig');
// open;
if recordcount > 0 then
result := fieldbyname('hn').asstring
else
result := '';
close;
end;
end;