chore: change md printing of valueset

halcwb · Jun 1, 2024 · b3f20a9 · b3f20a9
1 parent b01f15d
commit b3f20a9
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/src/Informedica.GenSolver.Lib/Variable.fs b/src/Informedica.GenSolver.Lib/Variable.fs
@@ -1154,12 +1154,12 @@ module Variable =
                 let count =
                     ValueUnit.getValue >> Array.length
 
-                if vu |> count <= 10 then
+                if vu |> count <= 3 then
                     $"""{vu |> ValueUnit.toDelimitedString prec}"""
                 else
-                    let first3 = vu |> ValueUnit.takeFirst 3
-                    let last3 = vu |> ValueUnit.takeLast 3
-                    $"{first3 |> ValueUnit.toDelimitedString prec} .. {last3 |> ValueUnit.toDelimitedString prec}"
+                    let first1 = vu |> ValueUnit.takeFirst 1
+                    let last1 = vu |> ValueUnit.takeLast 1
+                    $"{first1 |> ValueUnit.toDelimitedString prec} .. {last1 |> ValueUnit.toDelimitedString prec}"
 
 
 

diff --git a/src/Shared/Domain.fs b/src/Shared/Domain.fs
@@ -751,7 +751,7 @@ module Patient =
 
 
             (Some "BSA:") |> italic
-            pat |> calcBSA |> Option.map (fun x -> $" {x} m2")
+            pat |> calcBSA |> Option.map (fun x -> $"{x} m2") |> bold
 
             if pat |> getAgeInDays |> Option.map (fun ds -> ds < 365.) |> Option.defaultValue false then
                 (Some $", {Terms.``Patient GA Age`` |> getTerm}:") |> italic
@@ -761,7 +761,7 @@ module Patient =
                 |> Option.orElse ("" |> Some)
 
             if pat.RenalFunction |> Option.isSome then
-                Some "Nierfunctie" |> italic
+                Some "Nierfunctie:" |> italic
                 pat.RenalFunction 
                 |> Option.map RenalFunction.renalToOption
                 |> bold