From 434b521ddb70287b55d1dc8f5e24f18aeaa01fdc Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Thu, 20 Nov 2025 11:35:24 +0100
Subject: Add latest nutrient measurement/target hash retrieval function.

---
 models/nutrient-target.rkt | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'models/nutrient-target.rkt')

diff --git a/models/nutrient-target.rkt b/models/nutrient-target.rkt
index b9ca2d1..261fce0 100644
--- a/models/nutrient-target.rkt
+++ b/models/nutrient-target.rkt
@@ -142,6 +142,21 @@
                              #:desc
                              #:limit 1)))
 
+(define (get-latest-nutrient-target-hash)
+  (for/hash ([(n-id n-name n-formula residual-rows)
+              (in-query (current-conn)
+                                    (select n.id
+                                            n.canonical_name
+                                            n.formula
+                                            nt.effective_on
+                                            nv.value_ppm
+                                            #:from (TableExpr:AST ,joined)
+                                            #:order-by nt.effective_on
+                                            #:desc)
+                                    #:group '(#(0 1 2)))])
+    ;; residual-rows is a non-empty list of vectors: #(effective_on value_ppm)
+    (match-define (vector _effective-on value-ppm) (first residual-rows))
+    (values (nutrient n-id n-name n-formula) value-ppm)))
 
 ;; UPDATE
 
-- 
cgit v1.2.3