From 7cf7120e95696b23188d433d5c613d0271f88684 Mon Sep 17 00:00:00 2001
From: Peter Feij <peter.feij@aareon.nl>
Date: Mon, 26 Jan 2015 11:19:09 +0000
Subject: [PATCH] FSN#31260 bookkeeping van fac>adm stage 1

svn path=/Database/trunk/; revision=23948
---
 ADM/ADM_PAC.SRC  | 43 +++++++++++++++++++++++++++++++++++++++++++
 _UP/epilogue.inc |  4 ++--
 _UP/recreate.inc |  2 +-
 3 files changed, 46 insertions(+), 3 deletions(-)

diff --git a/ADM/ADM_PAC.SRC b/ADM/ADM_PAC.SRC
index 9baca4c6..7484cf9b 100644
--- a/ADM/ADM_PAC.SRC
+++ b/ADM/ADM_PAC.SRC
@@ -9,6 +9,8 @@ AS
    PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER);
    PROCEDURE trydrop (n IN VARCHAR2);
    PROCEDURE tryalter (n IN VARCHAR2);
+   PROCEDURE registerversion (pmaj IN NUMBER, pmin IN NUMBER, ppatch IN VARCHAR2, pschema IN VARCHAR2, plang IN VARCHAR2);
+   FUNCTION getdbversion RETURN VARCHAR2;
 END adm;
 /
 
@@ -142,6 +144,47 @@ AS
           END IF;
    END;
 
+   -- formerly in FAC-package
+   PROCEDURE registerversion (pmaj IN NUMBER, pmin IN NUMBER, ppatch IN VARCHAR2, pschema IN VARCHAR2, plang IN VARCHAR2)
+   AS
+       verstring fac_module.fac_module_version%TYPE;
+       revisionnr fac_version.fac_version_schema%TYPE;
+     BEGIN
+       IF pmaj IS NOT NULL AND pmin IS NOT NULL AND ppatch IS NOT NULL
+       THEN
+          verstring := TO_CHAR (pmaj) || '.' || TO_CHAR (pmin) || '.' || TO_CHAR (ppatch);
+          UPDATE   fac_module
+             SET   fac_module_version = verstring;
+
+          UPDATE   fac_version
+             SET   fac_version_major = pmaj,
+                   fac_version_minor = pmin,
+                   fac_version_patch = ppatch,
+                   fac_version_schema = pschema,
+                   fac_version_date = SYSDATE;
+
+          UPDATE   fac_message
+             SET   fac_message_text = 'FACILITOR ' || verstring || 'DB' || TO_CHAR(pschema)
+           WHERE   fac_message_code = 'FAC_M002';
+       END IF;
+
+       IF plang IS NOT NULL
+       THEN
+          UPDATE   fac_version
+             SET   fac_version_lang = plang;
+       END IF;
+    END;
+
+    FUNCTION getdbversion RETURN VARCHAR2
+    AS
+       verstring VARCHAR2(100);
+    BEGIN
+       SELECT 'DB'||fac_version_schema||'/'||fac_version_cust||fac_version_custnr||'-'||COALESCE(fac_version_otap,'P*')
+         INTO verstring
+         FROM fac_version;
+      RETURN verstring;
+    END;
+
 END adm;
 /
 
diff --git a/_UP/epilogue.inc b/_UP/epilogue.inc
index ddd78be1..6fdcf60f 100644
--- a/_UP/epilogue.inc
+++ b/_UP/epilogue.inc
@@ -36,11 +36,11 @@ SELECT 'OR'||'A-'||'DB'||_DBV_STRING||' Warning: ' || object_type || ' ' || obje
 SET ECHO OFF
 SET FEEDBACK OFF
 PROMPT ======================================================================
-SELECT 'Schema FACILITOR@' || USER || ' is now ' || fac.getdbversion() FROM DUAL;
+SELECT 'Schema FACILITOR@' || USER || ' is now ' || adm.getdbversion() FROM DUAL;
 PROMPT
 PROMPT Your schema upgrade is ready. Please check the logfile for errors.
 PROMPT If in doubt please contact: FACILITOR Helpdesk +31 53 4800 700
-PROMPT Copyright (c) 1992-2014 Facilitor bv, the Netherlands. All rights reserved.
+PROMPT Copyright (c) 1992-2015 Facilitor bv, the Netherlands. All rights reserved.
 SET DEFINE ON
 PROMPT Logfile of this upgrade is: &fcltlogfile
 SPOOL OFF
diff --git a/_UP/recreate.inc b/_UP/recreate.inc
index 536d567a..c4c5c767 100644
--- a/_UP/recreate.inc
+++ b/_UP/recreate.inc
@@ -65,7 +65,7 @@
 /* SETTINGS's */
 #include "fac\fac_set.src"
 
-BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV_STRING, NULL); END;
+BEGIN adm.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV_STRING, NULL); END;
 /
 /* now compile all views, triggers etc acc to the latest state */
 BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;