From e005fcd42633a5b1cb090d6b6a5d4b5419eec60d Mon Sep 17 00:00:00 2001
From: Paul Trowbridge <fleetside72@hotmail.com>
Date: Tue, 18 Dec 2018 23:40:27 -0500
Subject: [PATCH] rename

---
 .../source_maint/srce_overwrite_all.sql       | 81 +++++++++++++++++++
 .../interface/source_maint/srce_set_multi.sql | 41 ----------
 2 files changed, 81 insertions(+), 41 deletions(-)
 create mode 100644 database/interface/source_maint/srce_overwrite_all.sql
 delete mode 100644 database/interface/source_maint/srce_set_multi.sql

diff --git a/database/interface/source_maint/srce_overwrite_all.sql b/database/interface/source_maint/srce_overwrite_all.sql
new file mode 100644
index 0000000..4431906
--- /dev/null
+++ b/database/interface/source_maint/srce_overwrite_all.sql
@@ -0,0 +1,81 @@
+/*
+This function takes and array of definition object where "name" object is the primary key
+It will force the entire body of sources to match what is received
+*/
+DROP FUNCTION IF EXISTS tps.srce_overwrite_all(jsonb);
+CREATE FUNCTION tps.srce_overwrite_all(jsonb) RETURNS jsonb
+AS
+$f$
+DECLARE 
+    _message jsonb;
+    _MESSAGE_TEXT text;
+    _PG_EXCEPTION_DETAIL text;
+    _PG_EXCEPTION_HINT text;
+    _rebuild BOOLEAN;
+BEGIN
+
+    WITH
+    --retain the results of the update by srce
+    _set AS (
+    SELECT
+        j.rn rn
+        ,j.e->>'name' srce
+        ,j.e defn
+    FROM
+        jsonb_array_elements(_defn) WITH ORDINALITY j(e, rn) ON TRUE
+    )
+    --full join
+    ,_full AS (
+        SELECT
+            COALESCE(_srce.srce,_set.srce) srce
+            ,CASE COALESCE(_set.srce,'DELETE') WHEN 'DELETE' THEN 'DELETE' ELSE 'SET' END actn
+            ,COALESCE(_set.defn,_srce.defn) defn
+        FROM
+            l
+            FULL OUTER JOIN _set ON
+                _set.srce = _srce.srce
+    )
+    --call functions from list
+    ,_do AS (
+    SELECT 
+        f.srce
+        ,f.actn
+        ,COALESCE(setd.message, deld.message) message
+    FROM 
+        _full f
+        LEFT JOIN LATERAL tps.srce_set(defn) setd(message) ON f.actn = 'SET'
+        LEFT JOIN LATERAL tps.srce_delete(defn) deld(message) ON f.actn = 'DELETE'
+    )
+    --aggregate all the messages into one message
+    ----
+    ----    should look at rolling back the whole thing if one of the function returns a fail. stored proc could do this.
+    ----
+    SELECT
+        jsonb_agg(jsonb_build_object('source',srce,'status',message->>'status','message',message->>'message'))
+    INTO
+        _message
+    FROM
+        _do;
+
+    RETURN _message;
+
+    
+
+    EXCEPTION WHEN OTHERS THEN
+        GET STACKED DIAGNOSTICS 
+            _MESSAGE_TEXT = MESSAGE_TEXT,
+            _PG_EXCEPTION_DETAIL = PG_EXCEPTION_DETAIL,
+            _PG_EXCEPTION_HINT = PG_EXCEPTION_HINT;
+        _message:= 
+        ($$
+            {
+                "status":"fail",
+                "message":"error updating sources"
+            }
+        $$::jsonb)
+        ||jsonb_build_object('message_text',_MESSAGE_TEXT)
+        ||jsonb_build_object('pg_exception_detail',_PG_EXCEPTION_DETAIL);
+    RETURN _message;
+END;
+$f$
+LANGUAGE plpgsql
\ No newline at end of file
diff --git a/database/interface/source_maint/srce_set_multi.sql b/database/interface/source_maint/srce_set_multi.sql
deleted file mode 100644
index ff7b478..0000000
--- a/database/interface/source_maint/srce_set_multi.sql
+++ /dev/null
@@ -1,41 +0,0 @@
-/*
-This function takes and array of definition object where "name" object is the primary key
-It will force the entire body of sources to match what is received
-*/
-DROP FUNCTION IF EXISTS tps.srce_set(jsonb);
-CREATE FUNCTION tps.srce_set(_defn jsonb) RETURNS jsonb
-AS
-$f$
-DECLARE 
-    _message jsonb;
-    _MESSAGE_TEXT text;
-    _PG_EXCEPTION_DETAIL text;
-    _PG_EXCEPTION_HINT text;
-    _rebuild BOOLEAN;
-BEGIN
-
-    --do a lateral join and expand the array
-    --do another lateral join calling the single set function for each row and aggregating the result messages
-
-    RETURN _message;
-
-    
-
-    EXCEPTION WHEN OTHERS THEN
-        GET STACKED DIAGNOSTICS 
-            _MESSAGE_TEXT = MESSAGE_TEXT,
-            _PG_EXCEPTION_DETAIL = PG_EXCEPTION_DETAIL,
-            _PG_EXCEPTION_HINT = PG_EXCEPTION_HINT;
-        _message:= 
-        ($$
-            {
-                "status":"fail",
-                "message":"error importing data"
-            }
-        $$::jsonb)
-        ||jsonb_build_object('message_text',_MESSAGE_TEXT)
-        ||jsonb_build_object('pg_exception_detail',_PG_EXCEPTION_DETAIL);
-    RETURN _message;
-END;
-$f$
-LANGUAGE plpgsql
\ No newline at end of file