169 похожих чатов

Вот как на Ф выглядит запрос к БД. Из прода: let

getTherapyProgram (dbFactory: unit -> CoreDb) programId =
async {
use db = dbFactory()
let! programRow =
query {
for p in db.TherapyPrograms do
where (p.Id = programId)
groupJoin pr in db.ReceptionProtocols
on (p.Id =? pr.TherapyProgramId) into res
for pr in res.DefaultIfEmpty() do
select {|
ProgramId = p.Id
PatientId = p.PatientId
ProtocolId = Nullable pr.Id
State = p.State
DiagnosisId = p.DiagnosisId
DiagnosisKind = p.DiagnosisKind
AttachedToId = p.AttachedDoctorId
SignedDate = p.SigningTime
|}
} |> Query.tryHeadAsync

let! itemsRows = db.ProgramItemDetails programId
|> Query.toListAsync
let items =
itemsRows
|> List.groupBy (fun p -> {| ItemId = p.ItemId; ServiceId = p.ServiceId; Count = p.Count; Provided = p.Provided; HasSatellites = p.HasSatellites; |})
|> List.map (fun (k, det) ->
let details =
det
|> List.map (fun p ->
let protocol: Program.Protocol option =
if p.ProtocolId.HasValue && p.Signed.HasValue && p.Signed.Value then
let pr: Program.Protocol = {
ProtocolId = p.ProtocolId.Value
IsSigned = p.Signed.Value
SignDate = p.SignDate |> Option.ofNullable
}
Some (pr)
else
None
{
//ProtocolId = p.ProtocolId |> Option.ofNullable
Protocol = protocol
IsProvided = p.IsProvided
AtDate = p.AtDate |> Option.ofNullable
ByDoctor = p.ByDoctor |> Option.ofNullable
HasAttachments = p.HasFiles

})
|> List.filter (fun p -> p.AtDate.IsSome)
|> List.sortByDescending (fun p -> p.AtDate)

let head = {
ItemId = k.ItemId
ServiceId = k.ServiceId
Count = k.Count
Provided = k.Provided


//ProtocolId = details.Head.ProtocolId
Protocol = details |> List.map (fun p -> p.Protocol) |> List.choose id |> List.tryHead

1 ответов

19 просмотров

выглядит как несколько запросов) но вообще норм)

Похожие вопросы

Обсуждают сегодня

Господа, а что сейчас вообще с рынком труда на делфи происходит? Какова ситуация?
Rꙮman Yankꙮvsky
29
А вообще, что может смущать в самой Julia - бы сказал, что нет единого стандартного подхода по многим моментам, поэтому многое выглядит как "хаки" и произвол. Короче говоря, с...
Viktor G.
2
30500 за редактор? )
Владимир
47
а через ESC-код ?
Alexey Kulakov
29
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
14
Добрый день! Скажите пожалуйста, а какие программы вы бы рекомендовали написать для того, чтобы научиться управлять памятью? Можно написать динамический массив, можно связный ...
Филипп
7
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
Ребят в СИ можно реализовать ООП?
Николай
33
https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_h_common.erl#L174 https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_olp.erl#L76 15 лет назад...
Maksim Lapshin
20
Карта сайта