@nsshunt/stsdatamanagement 1.18.196 → 1.18.198

package/db-scripts/builddb.sql

@@ -1092,51 +1092,225 @@ CREATE OR REPLACE FUNCTION public.create_stsentity_latest(
 	_dbactionuser character varying,
 	_resname character varying,
 	_entname character varying,
-	_entvalue character varying)
-    RETURNS SETOF stsentity 
-    LANGUAGE 'plpgsql'
+	_entvalue character varying
+)
+RETURNS SETOF stsentity
+LANGUAGE 'plpgsql'
+COST 100
+VOLATILE
+ROWS 1000
 
-    COST 100
-    VOLATILE 
-    ROWS 1000
-    
 AS $BODY$
-declare
-	resoid bigint;
+DECLARE
+	__now timestamp without time zone := now();
+
+	-- Current resource.
+	__resoid bigint;
+
+	-- Current entity, if one exists.
+	__entoid bigint;
+	__entvnum bigint;
+	__entdbaction smallint;
+
+	-- Version for the newly created entity.
+	__newvnum bigint;
+
+	-- Newly inserted entity.
 	__inserted_oid bigint;
-	_entvalue_jsonb JSONB;
+
+	-- Parsed JSON.
+	__entvalue_jsonb jsonb;
+
 BEGIN
-	begin
-		_entvalue_jsonb := _entvalue::jsonb;
-		exception
-			when others then
-        		raise exception 'Invalid JSON string: %', _entvalue;
-	end;
 
-	-- Ensure we get the current non-deleted resource.
-	resoid := (select oid from stsresource r where r.resname = _resname and r.validto is null and r.dbaction != 3);
-	if resoid is null then
- 		-- Exception Codes: https://www.postgresql.org/docs/10/errcodes-appendix.html
-	        RAISE 'resname and version not found or not current version (not deleted) within stsresource %', _resname USING ERRCODE = 'no_data_found';
-	end if;
-	if (select count(*) from stsentity e 
-		where e.resourceoid = resoid and e.entname = _entname and e.validto is null and e.dbaction != 3) > 0 then
-	    -- Exception Codes: https://www.postgresql.org/docs/10/errcodes-appendix.html
-	    -- RAISE EXCEPTION 'resname already exists within stsresource %', now();
-        RAISE 'Duplicate entname within stsresource: %', _resname USING ERRCODE = 'unique_violation';
-	else
-		insert into stsentity(resourceoid, entname, entvalue, entvalue_jsonb, vnum, dbaction, dbactionuser, validfrom)
-		values (resoid, _entname, _entvalue, _entvalue_jsonb, 1, 1, _dbactionuser, now())
-		returning oid into __inserted_oid;
+	-- -------------------------------------------------------------------------
+	-- Validate / parse entity JSON
+	-- -------------------------------------------------------------------------
+
+	BEGIN
+		__entvalue_jsonb := _entvalue::jsonb;
+
+	EXCEPTION
+		WHEN others THEN
+			RAISE EXCEPTION
+				'Invalid JSON string: %',
+				_entvalue;
+	END;
+
+	-- -------------------------------------------------------------------------
+	-- Resolve the current, non-deleted resource.
+	-- -------------------------------------------------------------------------
+
+	BEGIN
+		SELECT
+			r.oid
+		INTO STRICT
+			__resoid
+		FROM public.stsresource r
+		WHERE r.resname = _resname
+		  AND r.validto IS NULL
+		  AND r.dbaction != 3;
+
+	EXCEPTION
+
+		WHEN no_data_found THEN
+			RAISE
+				'Resource % not found, not current, or deleted',
+				_resname
+				USING ERRCODE = 'no_data_found';
+
+		WHEN too_many_rows THEN
+			RAISE
+				'Too many current stsresource records for resource %',
+				_resname
+				USING ERRCODE = 'cardinality_violation';
+
+	END;
+
+	-- -------------------------------------------------------------------------
+	-- Find the current entity.
+	--
+	-- IMPORTANT:
+	--
+	-- Do not exclude dbaction = 3.
+	--
+	-- A logically deleted entity is still the latest/current version while
+	-- validto IS NULL. If found, it must be closed before the entity can be
+	-- created again.
+	-- -------------------------------------------------------------------------
+
+	BEGIN
+		SELECT
+			e.oid,
+			e.vnum,
+			e.dbaction
+		INTO STRICT
+			__entoid,
+			__entvnum,
+			__entdbaction
+		FROM public.stsentity e
+		WHERE e.resourceoid = __resoid
+		  AND e.entname = _entname
+		  AND e.validto IS NULL;
+
+	EXCEPTION
+
+		WHEN no_data_found THEN
+			__entoid := NULL;
+			__entvnum := NULL;
+			__entdbaction := NULL;
+
+		WHEN too_many_rows THEN
+			RAISE
+				'Too many current stsentity records for entity % within resource %',
+				_entname,
+				_resname
+				USING ERRCODE = 'cardinality_violation';
+
+	END;
+
+	-- -------------------------------------------------------------------------
+	-- Current entity exists.
+	-- -------------------------------------------------------------------------
+
+	IF __entoid IS NOT NULL THEN
+
+		-- ---------------------------------------------------------------------
+		-- Current entity is active.
+		--
+		-- CREATE is not allowed.
+		-- ---------------------------------------------------------------------
+
+		IF __entdbaction != 3 THEN
+
+			RAISE
+				'Duplicate entname % within stsresource %',
+				_entname,
+				_resname
+				USING ERRCODE = 'unique_violation';
+
+		END IF;
+
+		-- ---------------------------------------------------------------------
+		-- Current entity is logically deleted.
+		--
+		-- Close the deleted version, then create the next version.
+		-- ---------------------------------------------------------------------
+
+		UPDATE public.stsentity
+		SET validto = __now
+		WHERE oid = __entoid;
+
+		__newvnum := __entvnum + 1;
+
+	ELSE
+
+		-- ---------------------------------------------------------------------
+		-- No current entity exists.
+		--
+		-- Normally this means the entity has never existed, so MAX(vnum)
+		-- will be NULL and the new version becomes 1.
+		--
+		-- Using MAX(vnum) also protects against historical data where versions
+		-- exist but there is unexpectedly no current validto IS NULL row.
+		-- ---------------------------------------------------------------------
+
+		SELECT
+			COALESCE(MAX(e.vnum), 0) + 1
+		INTO
+			__newvnum
+		FROM public.stsentity e
+		WHERE e.resourceoid = __resoid
+		  AND e.entname = _entname;
+
+	END IF;
+
+	-- -------------------------------------------------------------------------
+	-- Create new active entity version.
+	-- -------------------------------------------------------------------------
+
+	INSERT INTO public.stsentity(
+		resourceoid,
+		entname,
+		entvalue,
+		entvalue_jsonb,
+		vnum,
+		dbaction,
+		dbactionuser,
+		validfrom
+	)
+	VALUES (
+		__resoid,
+		_entname,
+		_entvalue,
+		__entvalue_jsonb,
+		__newvnum,
+		1,
+		_dbactionuser,
+		__now
+	)
+	RETURNING oid
+	INTO __inserted_oid;
+
+	-- -------------------------------------------------------------------------
+	-- Return newly created entity.
+	-- -------------------------------------------------------------------------
+
+	RETURN QUERY
+	SELECT *
+	FROM public.stsentity
+	WHERE oid = __inserted_oid;
 
-		return query
-		select * from stsentity where oid = __inserted_oid;
-    END IF;
 END;
 $BODY$;
 
-ALTER FUNCTION public.create_stsentity_latest(character varying, character varying, character varying, character varying)
-    OWNER TO postgres;
+ALTER FUNCTION public.create_stsentity_latest(
+	character varying,
+	character varying,
+	character varying,
+	character varying
+)
+OWNER TO postgres;
 
 
 

package/package.json

@@ -1,6 +1,6 @@
 {
     "name": "@nsshunt/stsdatamanagement",
-    "version": "1.18.196",
+    "version": "1.18.198",
     "description": "STS Data Management Modules, Utilities and Services",
     "type": "module",
     "main": "./dist/dbaccess.js",