From cff87f8c7e6adc5837bcb3d87cc2fa0de4bad706 Mon Sep 17 00:00:00 2001
From: mdsupport <399047+mdsupport@users.noreply.github.com>
Date: Mon, 10 Jan 2022 14:30:23 -0800
Subject: [PATCH] Initial commit

---
 .gitignore                                    |   9 +
 LICENSE                                       |  21 +++
 README.md                                     |   2 +
 composer.json                                 |  17 ++
 oemods/apps/README.md                         |  28 ++++
 oemods/apps/apps.0.0.sql                      |  13 ++
 ...face.login.login.php.shutdown_function.php |   1 +
 ...tabs.main_screen.php.shutdown_function.php |   1 +
 src/DevObj/DevDB.php                          | 141 ++++++++++++++++
 src/DevObj/DevFile.php                        | 149 +++++++++++++++++
 src/DevObj/DevObject.php                      | 144 ++++++++++++++++
 src/DevObj/devobject.create.polyfill.sql      | 158 ++++++++++++++++++
 src/DevObj/devobject.create.sql               |  39 +++++
 13 files changed, 723 insertions(+)
 create mode 100644 .gitignore
 create mode 100644 LICENSE
 create mode 100644 README.md
 create mode 100644 composer.json
 create mode 100644 oemods/apps/README.md
 create mode 100644 oemods/apps/apps.0.0.sql
 create mode 100644 oemods/apps/interface.login.login.php.shutdown_function.php
 create mode 100644 oemods/apps/interface.main.tabs.main_screen.php.shutdown_function.php
 create mode 100644 src/DevObj/DevDB.php
 create mode 100644 src/DevObj/DevFile.php
 create mode 100644 src/DevObj/DevObject.php
 create mode 100644 src/DevObj/devobject.create.polyfill.sql
 create mode 100644 src/DevObj/devobject.create.sql

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..12ad406
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,9 @@
+composer.phar
+/vendor/
+
+# Commit your application's lock file https://getcomposer.org/doc/01-basic-usage.md#commit-your-composer-lock-file-to-version-control
+# You may choose to ignore a library lock file http://getcomposer.org/doc/02-libraries.md#lock-file
+# composer.lock
+.settings/org.eclipse.wst.validation.prefs
+.project
+.buildpath
diff --git a/LICENSE b/LICENSE
new file mode 100644
index 0000000..9d15d15
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2022 mdsupport
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
diff --git a/README.md b/README.md
new file mode 100644
index 0000000..19b27e7
--- /dev/null
+++ b/README.md
@@ -0,0 +1,2 @@
+# mdpub
+Additions to OpenEMR 
diff --git a/composer.json b/composer.json
new file mode 100644
index 0000000..7e74ac7
--- /dev/null
+++ b/composer.json
@@ -0,0 +1,17 @@
+{
+    "name" : "mdsupport/mdpub",
+    "description" : "Changes to standard OpenEMR",
+    "keywords": ["openemr"],
+    "type": "library",
+    "license": "MIT",
+
+    "require" : {
+        "php" : ">=7.4"
+    },
+
+    "autoload" : {
+        "psr-4" : {
+            "Mdsupport\\Mdpub\\" : "src/"
+        }
+    }
+}
diff --git a/oemods/apps/README.md b/oemods/apps/README.md
new file mode 100644
index 0000000..2b19556
--- /dev/null
+++ b/oemods/apps/README.md
@@ -0,0 +1,28 @@
+#### Sample Modification - apps
+This sample code illustrates modification to standard application using php register_shutdown_function.
+
+##### Changes to standard code
+This project cannot include a patch for standard code. But globals.php should be modified to enable changes using DevObj using a sample fragment listed below :
+
+```
+// DevObj hook
+if (class_exists('Mdsupport\Mdpub\DevObj\DevFile')) {
+    $objFileScript = new Mdsupport\Mdpub\DevObj\DevFile();
+}
+```
+##### Setup
+Import apps.0.0.sql which sets up following :
+* DevFile entries in dev_obj table for 
+    - _ /interface/login/login.php _
+    - _ /interface/main/tabs/main_screen.php _
+    - _ /interface/main/calendar/index.php _
+    - _ /vendor/mdsupport/oemod/apps/interface.login.login.php.shutdown_function.php _
+    - _ /vendor/mdsupport/oemod/apps/interface.main.tabs.main_screen.php.shutdown_function.php _
+    
+    
+* Specify shutdown_function components in dev_component table as :
+    - _ /interface/login/login.php _  ** -> ** /vendor/mdsupport/oemod/apps/interface.login.login.php.shutdown_function.php
+    - _ /interface/main/tabs/main_screen.php _  ** -> **  _ /vendor/mdsupport/oemod/apps/interface.main.tabs.main_screen.php.shutdown_function.php _
+    
+    
+* Specify html_select component in dev_component for building apps select box.
diff --git a/oemods/apps/apps.0.0.sql b/oemods/apps/apps.0.0.sql
new file mode 100644
index 0000000..675ca77
--- /dev/null
+++ b/oemods/apps/apps.0.0.sql
@@ -0,0 +1,13 @@
+INSERT INTO `dev_obj`(`obj_type`,`obj_id`,`obj_desc`) VALUES
+ ('DevFile','/interface/login/login.php','EMR Login')
+,('DevFile','/interface/main/tabs/main_screen.php','EMR Main Screen')
+,('DevFile','/interface/main/calendar/index.php','EMR Calendar')
+,('DevFile','/vendor/mdsupport/oemods/apps/interface.login.login.php.shutdown_function.php','Login shutdown function for apps')
+,('DevFile','/vendor/mdsupport/oemods/apps/interface.main.tabs.main_screen.php.shutdown_function.php','Main screen shutdown function for apps')
+;
+
+INSERT INTO `dev_component` (`obj_type`,`obj_id`,`comp_obj_type`,`comp_obj_id`,`comp_type`,`comp_seq`,`comp_json`) VALUES
+ ('DevFile','/interface/login/login.php','DevFile','/vendor/mdsupport/oemods/apps/interface.login.login.php.shutdown_function.php','resource',0,JSON_OBJECT('type','shutdown_function','fn','inject_apps'))
+,('DevFile','/interface/main/tabs/main_screen.php','DevFile','/vendor/mdsupport/oemods/apps/interface.main.tabs.main_screen.php.shutdown_function.php','resource',0,JSON_OBJECT('type','shutdown_function','fn','set_iframe'))
+,('DevFile','/vendor/mdsupport/oemods/apps/interface.login.login.php.shutdown_function.php','DevFile','/interface/main/calendar/index.php','resource',1,JSON_OBJECT('type','html_select','id','strUuid','text','obj_desc'))
+;
diff --git a/oemods/apps/interface.login.login.php.shutdown_function.php b/oemods/apps/interface.login.login.php.shutdown_function.php
new file mode 100644
index 0000000..b3d9bbc
--- /dev/null
+++ b/oemods/apps/interface.login.login.php.shutdown_function.php
@@ -0,0 +1 @@
+<?php
diff --git a/oemods/apps/interface.main.tabs.main_screen.php.shutdown_function.php b/oemods/apps/interface.main.tabs.main_screen.php.shutdown_function.php
new file mode 100644
index 0000000..b3d9bbc
--- /dev/null
+++ b/oemods/apps/interface.main.tabs.main_screen.php.shutdown_function.php
@@ -0,0 +1 @@
+<?php
diff --git a/src/DevObj/DevDB.php b/src/DevObj/DevDB.php
new file mode 100644
index 0000000..c956410
--- /dev/null
+++ b/src/DevObj/DevDB.php
@@ -0,0 +1,141 @@
+<?php
+/**
+ * Core functionality to encapsulate database access for DevSQL objects.
+ *
+ * Copyright (C) 2015-2022 MD Support <mdsupport@users.sourceforge.net>
+*
+* @package   Mdpub
+* @author    MD Support <mdsupport@users.sourceforge.net>
+* @license https://github.com/openemr/openemr/blob/master/LICENSE GNU General Public License 3
+ */
+
+namespace Mdsupport\Mdpub\DevObj;
+
+class DevDB
+{
+    private $adb = null;
+
+    /**
+     * DevDB constructor caches EMR's connection object
+     * Constuctors do not permit returning a value. So results of $objInitActs will not be available directly.
+     * 
+     * @param object $objInitActs - Optional parameter calls method(s) saving additional method calls.
+     */
+    function __construct($objInitActs)
+    {
+        // Store properties
+        // TBD : Remove reliance on OpenEMR $GLOBALS 
+        $this->adb = $GLOBALS['adodb']['db'];
+
+        foreach ($objInitActs as $iniMethod => $iniMethodParams) {
+            if (method_exists($this, $iniMethod)) {
+                call_user_func_array($this[$iniMethod], $iniMethodParams);
+            }
+        }
+    }
+
+    private function getExecParams($aaValues, $sqlGlue="=?", $sqlSfx="=?")
+    {
+        if ((empty($aaValues)) || (!is_array($aaValues)) || (count($aaValues) == 0)) {
+            return [ 
+                'bind' => [],
+                'str' => '',
+                'params' => false
+            ];
+        }
+
+        $sqlFields = array_keys($aaValues);
+        $sql = [
+            'bind' => array_values($aaValues),
+            'str' => implode($sqlGlue,$sqlFields).$sqlSfx,
+            'params' => true
+        ];
+        return $sql;
+    }
+    // TBD - implement equivalent of sqlstatement, sqlquery
+    // Add - Use adodb standard way of create/update records for generic table
+
+    /**
+     * Execute a sql statement
+     * Optionally create a dev_obj record with specified keys
+     * 
+     * @param array $aaQuery - Assoc array as 
+     *                            sql => single execute statement,
+     *                           where => [assoc array of column values],
+     *                           bind => [array] for passthru binds,
+     *                           sfx => optional string to add after WHERE,
+     *                           return => 'array', 'assoc'
+     * @return - array(of values), object or return value provided by adodb for execute.
+     */
+    function execSql($aaExec)
+    {
+        if ( (!is_array($aaExec)) || (empty($aaExec['sql'])) ) return false;
+
+        if (array_key_exists('where', $aaExec)) {
+            $aaExec = array_merge($aaExec, $this->getExecParams($aaExec['where'], '=? AND ', '=?'));
+        } elseif (array_key_exists('bind', $aaExec)) {
+            $aaExec = array_merge($aaExec, [
+                'str' => '',
+                'params' => false,
+            ]);
+        }
+        // Define defaults to make sure nothing is undefined
+        $sqlFrag = [
+            ''
+        ];
+        // Construct sql to locate full record as SELECT * FROM tbl WHERE col=? AND col='
+        $sqStmt = sprintf(
+            '%s %s %s',
+            $aaExec['sql'],
+            ($sqlFrag['params'] ? 'WHERE '.$sqlFrag['str'] : ''),
+            $aaExec['sfx']
+        );
+
+        if (empty($aaExec['return'])) {
+            return $this->adb->execute($sqStmt, $sqlFrag['bind']);
+        } elseif ($aaExec['return'] == 'array') {
+            return $this->adb->getArray($sqStmt, $sqlFrag['bind']);
+        } elseif ($aaExec['return'] == 'assoc') {
+            return $this->adb->getAssoc($sqStmt, $sqlFrag['bind']);
+        }
+
+        return false;
+    }
+
+    /**
+     * Perform table update
+     * @param array $aaUpdate - Assoc array as tblName => [where => [assoc array of column values], set => [assoc array of column values]]
+     * @return boolean true if all updates were successful, false if transaction had to be rolled back.
+     */
+    function execUpdates($aaUpdate)
+    {
+        if (!is_array($aaUpdate)) return false;
+
+        $this->adb->beginTrans();
+        $transOk = true;
+        foreach ($aaUpdate as $tbl => $upSpecs) {
+            if ((!is_array($upSpecs))
+                || (empty($upSpecs['where'])) 
+                || (empty($upSpecs['set']))
+                || (!is_array($upSpecs['where']))
+                || (!is_array($upSpecs['set']))
+                || (!$transOk)
+            ) {
+                continue;
+            }
+            // Construct sql to locate full record as SELECT * FROM tbl WHERE col=? AND col=?'
+            $rsSel = $this->execSql([
+                'sql' => "SELECT * FROM $tbl",
+                'where' => $upSpecs['where'],
+            ]);
+            $sqlUpdate = $this->adb->getUpdateSql($rsSel, $upSpecs['set']);
+            // Helper function will filter out unchanged fields
+            if (strlen($sqlUpdate)) {
+                $transOk = $this->adb->execute($sqlUpdate);
+            }
+        }
+        // if $transOk is false, commitTrans should call rollbackTrans
+        $transOk = $this->adb->commitTrans($transOk);
+        return $transOk;
+    }
+}
diff --git a/src/DevObj/DevFile.php b/src/DevObj/DevFile.php
new file mode 100644
index 0000000..4265866
--- /dev/null
+++ b/src/DevObj/DevFile.php
@@ -0,0 +1,149 @@
+<?php
+/**
+ * Extend DevObjects functionality to Files.
+ *
+ * Copyright (C) 2015-2022 MD Support <mdsupport@users.sourceforge.net>
+*
+* @package   OpenEMR
+* @author    MD Support <mdsupport@users.sourceforge.net>
+* @license https://github.com/openemr/openemr/blob/master/LICENSE GNU General Public License 3
+ */
+
+namespace Mdsupport\Mdpub\DevObj;
+
+class DevFile extends DevObject
+{
+    private $ws = [];
+    
+    /**
+     * File object constructor
+     * @param string $strFile - Filename or URL
+     * @param string $context - Context to apply for the object
+     */
+    function __construct($strFile = null, $context = '', $insert = false)
+    {
+        // Store properties
+        $this->ws['obj_id'] = $strFile;
+        $this->ws['context'] = $context;
+
+        $strFile = $this->makeObjId($strFile);
+        // printf('%s will be constructed as %s.  ', $this->ws['obj_id'], $strFile);
+        parent::__construct(null, $strFile, 'DevFile', '', $insert);
+
+        // TBD - Confirm the object exists and is active in storage
+        // Remove functionality from zsfx.interface.globals.php
+
+        // printf('%s constructed as %s.  ', $strFile, print_r($rs, true));
+    }
+
+    /**
+     * Utility function to convert __FILE__ style input to string ready to be used as obj_id
+     * This includes converting paths in windows environment to unix
+     * @param string $str_file - Handles strings as full os file path, url 
+     * @return string ready for use as obj_id
+     */
+    private function makeObjId($str_file)
+    {
+        // Set default as a call to globals.php(level 0) by main script(level 1)
+        if (empty($str_file)) {
+            $call_stack = debug_backtrace(DEBUG_BACKTRACE_IGNORE_ARGS);
+            $str_file = $call_stack[count($call_stack)-1]['file'];
+        }
+        $ws = [];
+        $ws['osmount'] = dirname(__DIR__, 5);
+        $ws['urlpfx'] = str_replace(dirname(__DIR__, 6), '', $ws['osmount']);
+        $ws['urlpfx'] = str_replace(DIRECTORY_SEPARATOR, "/", $ws['urlpfx']);
+        $this->ws = array_merge($this->ws, $ws);
+        // Strip os or url to application root
+        foreach ($ws as $pfxtype => $pfx) {
+            $pfxlen = strlen($pfx);
+            if (substr($str_file, 0, $pfxlen) == $pfx) {
+                $str_file = substr($str_file, $pfxlen);
+            }
+        }
+        // Replace with PHP_OS_FAMILY == Windows in 7.2
+        if (stripos(PHP_OS, 'WIN') === 0) {
+            $str_file = str_replace(DIRECTORY_SEPARATOR, "/", $str_file);
+        }
+
+        return $str_file;
+    }
+
+    public function debug()
+    {
+        // Based on __FILE__, locate emr root
+        printf('%s will load %s', print_r($this->get(), true), print_r($this->load(), true));
+    }
+
+    /**
+     * Get effective URL for the object
+     * @return string - For file or empty object types, returns URL without webserver root.<br>
+     * Currently returns false for all other objects. 
+     */
+    public function getURL()
+    {
+        if (!($this->isActive())) return false;
+
+        $rs = $this->get();
+        $obj_id = $rs['obj_id'];
+        // Check if there is any 'redirect' mapping for this devobject
+        // TBD : Remove EMR sql function. getComponents returns full records as assoc array
+        $rs = sqlQuery(
+            'SELECT dt.* FROM dev_component dc
+            INNER JOIN dev_obj dt ON dc.comp_obj_id=dt.obj_id AND dc.comp_obj_version=dt.obj_version
+            WHERE dc.obj_id=? AND dc.obj_version=? AND dc.comp_type=? AND dt.active=?',
+            [$rs['obj_id'], $rs['obj_version'], 'redirect', 1]
+        );
+        if ($rs) {
+            $obj_id = $rs['obj_id'];
+        }
+        // ** Experimental : return original directory separator(?) **
+        return str_replace($rs['obj_id'], $obj_id, $this->ws['obj_id']);
+    }
+
+    /**
+     * Loads component scripts for the file
+     */
+    public function load($comp_type) {
+        $rs = $this->getComponents($comp_type);
+        if (!$rs) return false;
+
+        $retHtml = false;
+        // TBD : Remove EMR sql function. getComponents returns full records as assoc array
+        while ($recComp = sqlFetchArray($rs)) {
+            switch ($comp_type) {
+                case 'script':
+                    $retHtml .= sprintf(
+                        '<script src="%s%s" data-json=\'%s\'>',
+                        $GLOBALS['webroot'], $recComp['comp_obj_id'], $recComp['comp_json']
+                    );
+                break;
+
+                default:
+                    // For now return false : feature not implemented
+                    return false;
+                break;
+            }
+        }
+        return $retHtml;
+    }
+
+    /**
+     * Emits code to redirect to first component for the file
+     */
+    public function redirect()
+    {
+        // Get full records as assoc array from getComponents
+        $rs = $this->getComponents('redirect');
+        if (!$rs) return false;
+
+        $comp_obj_id = $rs[0]['comp_obj_id'];
+        $rs = $this->get();
+        $new_uri = str_replace($rs['obj_id'], $comp_obj_id, $_SERVER['REQUEST_URI']);
+        // error_log(sprintf('%s -> %s', $rs['obj_id'], $new_uri));
+        header( "Location:$new_uri" );
+
+        // This should not happen
+        return false;
+    }
+}
diff --git a/src/DevObj/DevObject.php b/src/DevObj/DevObject.php
new file mode 100644
index 0000000..b6072b0
--- /dev/null
+++ b/src/DevObj/DevObject.php
@@ -0,0 +1,144 @@
+<?php
+/**
+ * Core DevObjects functionality.
+ *
+ * Copyright (C) 2015-2022 MD Support <mdsupport@users.sourceforge.net>
+*
+* @package   OpenEMR
+* @author    MD Support <mdsupport@users.sourceforge.net>
+* @license https://github.com/openemr/openemr/blob/master/LICENSE GNU General Public License 3
+ */
+
+namespace Mdsupport\Mdpub\DevObj;
+
+class DevObject
+{
+    private $objDevDB;
+
+    private $strUuid = '';
+    private $rs = [];
+    private $rs_keys = [];
+    
+    /**
+     * Dev object constructor
+     * @param string $objUuid - Key to stored object
+     * @param string $context - Context to apply for the object 
+     */
+    function __construct($objUuid = null, $objId= '', $objType = '', $context = '', $insert = false)
+    {
+        // Establish connection
+        $this->objDevDB = new DevDB();
+
+        // Store properties
+        $this->strUuid = $objUuid;
+        $this->rs_keys['obj_id'] = $objId;
+        $this->rs_keys['obj_type'] = $objType;
+        $this->rs_keys['obj_version'] = $context;
+
+        if (!empty($objUuid)) {
+            $this->selectUuid();
+        } elseif (!empty($objId)) {
+            $this->select($insert);
+        }
+
+        // TBD - Confirm the object exists and is active in storage
+        // Remove functionality from zsfx.interface.globals.php
+    }
+
+    private function selectUuid()
+    {
+        $this->rs = $this->objDevDB->execSql([
+            'sql' => 'SELECT * FROM dev_obj WHERE uuid=UUID_TO_BIN(?, 1)',
+            'bind' => [$this->strUuid],
+            'return' => 'assoc'
+        ]);
+        if ($this->rs == false) return false;
+        foreach ($this->rs_keys as $rs_key => $rs_value) {
+            $this->rs_keys[$rs_key] = $this->rs[$rs_key];
+        }
+        return $this->rs;
+    }
+
+     /**
+     * Fetch first record using keys.  If requested, create new record with specified keys.
+     * 
+     * @param boolean $insert - Automatically create an inactive dev_obj record if not found
+     */
+    private function selectFirst($insert = false)
+    {
+        // Check if the record exists
+        $this->rs = $this->objDevDB->execSql([
+            'sql' => 'SELECT *,BIN_TO_UUID(uuid,1) strUuid FROM dev_obj',
+            'where' => $this->rs_keys,
+            'return' => 'assoc'
+        ]);
+        if (($this->rs == false) && ($insert)) {
+            $this->strUuid = $this->insert($this->rs_keys);
+            return $this->selectUuid();
+        }
+        return $this->rs;
+    }
+    protected function insert($aaDevObj) {
+        // Get recordset
+        $this->rs = $this->objDevDB->execSql([
+            'sql' => 'SELECT * FROM dev_obj',
+            'where' => $this->rs_keys,
+        ]);
+        $insSql = $this->objDevDB->getInsertSql($this->rs,$aaDevObj);
+        if (!empty($insSql)) {
+            $insOK = $this->objDevDB->execSql([
+                'sql' => $insSql
+            ]);
+        }
+        if (!$insOK) return $insOK;
+
+        foreach ($this->rs_keys as $keyCol => $value) {
+            $this->rs_keys[$keyCol] = $aaDevObj[$keyCol];
+        }
+        $this->rs = $this->selectFirst();
+        return $this->rs['strUuid'];
+    }
+
+    /**
+     * @return boolean active status of the object
+     */
+    protected function isActive()
+    {
+        return (isset($this->rs['active']) ? $this->rs['active'] : false);
+    }
+
+    /**
+     * Returns database record
+     */
+    protected function get() {
+        return $this->rs;
+    }
+
+    /**
+     * Get recordset containing all active components for the object
+     * 
+     * @param string comp_type - Optional filter for type of component required
+     * @return object recordset - component records
+     */
+    protected function getComponents($comp_type = null) {
+        if (!$this->isActive()) return false;
+
+        $sqlWhere = [];
+        foreach ($this->rs_keys as $dcKey => $dcValue) {
+            $sqlWhere["dc.$dcKey"] = $dcValue;
+        }
+        if (!empty($comp_type)) {
+            $sqlWhere['dc.comp_type'] = $comp_type;
+        }
+
+        $recComps = $this->objDevDB->execSql([
+            'sql' => 'SELECT dc.* FROM dev_component dc
+                      INNER JOIN dev_obj dt ON dc.comp_obj_id=dt.obj_id AND dc.comp_obj_version=dt.obj_version',
+            'where' => $sqlWhere,
+            'sfx' => 'ORDER BY dc.comp_seq',
+            'return' => 'assoc'
+        ]);
+
+        return ($recComps);
+    }
+}
diff --git a/src/DevObj/devobject.create.polyfill.sql b/src/DevObj/devobject.create.polyfill.sql
new file mode 100644
index 0000000..3235116
--- /dev/null
+++ b/src/DevObj/devobject.create.polyfill.sql
@@ -0,0 +1,158 @@
+DELIMITER $$
+
+DROP FUNCTION IF EXISTS BIN_TO_UUID$$
+CREATE FUNCTION BIN_TO_UUID(b BINARY(16), f BOOLEAN)
+RETURNS CHAR(36)
+DETERMINISTIC
+BEGIN
+   DECLARE hexStr CHAR(32);
+   SET hexStr = HEX(b);
+   RETURN LOWER(CONCAT(
+        IF(f,SUBSTR(hexStr, 9, 8),SUBSTR(hexStr, 1, 8)), '-',
+        IF(f,SUBSTR(hexStr, 5, 4),SUBSTR(hexStr, 9, 4)), '-',
+        IF(f,SUBSTR(hexStr, 1, 4),SUBSTR(hexStr, 13, 4)), '-',
+        SUBSTR(hexStr, 17, 4), '-',
+        SUBSTR(hexStr, 21)
+    ));
+END$$
+
+DROP FUNCTION IF EXISTS UUID_TO_BIN$$
+CREATE FUNCTION UUID_TO_BIN(uuid CHAR(36), f BOOLEAN)
+RETURNS BINARY(16)
+DETERMINISTIC
+BEGIN
+    RETURN UNHEX(CONCAT(
+        IF(f,SUBSTRING(uuid, 15, 4),SUBSTRING(uuid, 1, 8)),
+        SUBSTRING(uuid, 10, 4),
+        IF(f,SUBSTRING(uuid, 1, 8),SUBSTRING(uuid, 15, 4)),
+        SUBSTRING(uuid, 20, 4),
+        SUBSTRING(uuid, 25))
+    );
+END$$
+
+DROP PROCEDURE IF EXISTS `execStatement`$$
+CREATE PROCEDURE `execStatement`(IN textSql MEDIUMTEXT, IN tblName VARCHAR(64))
+BEGIN
+    SET @sql_statement = REPLACE(textSql, 'tblName', tblName);
+    PREPARE sql_exec FROM @sql_statement;
+    EXECUTE sql_exec;
+    DEALLOCATE PREPARE sql_exec;
+END$$
+
+DROP TABLE IF EXISTS `dev_obj`$$
+CREATE TABLE `dev_obj` (
+    `uuid` BINARY(16) DEFAULT NULL,
+    `obj_type` VARCHAR(10) NOT NULL,
+    `obj_id` VARCHAR(255) NOT NULL,
+    `obj_version` VARCHAR(10) NOT NULL DEFAULT '' COMMENT 'Reserved for future use',
+    `obj_desc` VARCHAR(255) NOT NULL,
+    `active` TINYINT DEFAULT '1' COMMENT '0 = inactive, 1 = active',
+    `obj_json` TEXT DEFAULT NULL COMMENT 'JSON data for the object',
+    PRIMARY KEY (`obj_type`, `obj_id`, `obj_version`) USING BTREE,
+    INDEX `uuid_dev_obj` (`uuid`) USING BTREE
+)
+COLLATE='utf8mb4_general_ci'
+ENGINE=InnoDB$$
+
+DROP TABLE IF EXISTS `dev_component`$$
+CREATE TABLE `dev_component` (
+    `uuid` BINARY(16) DEFAULT NULL,
+    `obj_type` VARCHAR(10) NOT NULL,
+    `obj_id` VARCHAR(255) NOT NULL,
+    `obj_version` VARCHAR(10) NOT NULL DEFAULT '',
+    `comp_obj_type` VARCHAR(10) NOT NULL,
+    `comp_obj_id` VARCHAR(255) NOT NULL,
+    `comp_obj_version` VARCHAR(10) NOT NULL DEFAULT '',
+    `comp_type` VARCHAR(10) NOT NULL,
+    `comp_seq` INT NOT NULL DEFAULT '0',
+    `comp_json` TEXT DEFAULT NULL COMMENT 'JSON data for the object-component use',
+    INDEX `ix_parent_obj` (`obj_type`, `obj_id`, `obj_version`) USING BTREE,
+    INDEX `ix_comp_obj` (`comp_obj_type`, `comp_obj_id`, `comp_obj_version`) USING BTREE
+)
+COLLATE='utf8mb4_general_ci'
+ENGINE=InnoDB$$
+
+DROP PROCEDURE IF EXISTS `modify_null_uuids`$$
+CREATE PROCEDURE `modify_null_uuids`()
+BEGIN
+    -- Declare variables needed later.
+    DECLARE uuidTable VARCHAR(64) DEFAULT NULL; -- Table requiring trigger
+
+    DECLARE sql_template MEDIUMTEXT;
+    DECLARE sql_statement MEDIUMTEXT DEFAULT '';
+
+    -- FETCH NEXT throws an exception at end which is caught by following handler.
+    DECLARE RowNotFound TINYINT DEFAULT FALSE;
+    -- Cursor to the list of tables requiring trigger
+    DECLARE currTableList
+     CURSOR FOR
+     SELECT isCol.TABLE_NAME
+       FROM information_schema.COLUMNS isCol
+       LEFT OUTER JOIN information_schema.TRIGGERS isTrig
+         ON isCol.TABLE_SCHEMA=isTrig.EVENT_OBJECT_SCHEMA
+        AND isCol.TABLE_NAME=isTrig.EVENT_OBJECT_TABLE
+      WHERE isCol.TABLE_SCHEMA=DATABASE()
+        AND isCol.COLUMN_NAME='uuid'
+        AND isCol.COLUMN_TYPE='binary(16)'
+        AND isCol.COLUMN_DEFAULT='NULL'
+        AND IFNULL(isTrig.TRIGGER_NAME,'') NOT LIKE 'autouuid_%'
+        AND isTrig.EVENT_OBJECT_SCHEMA IS NULL;
+    -- Define NOT FOUND exception handler
+    DECLARE CONTINUE HANDLER
+        FOR NOT FOUND
+        SET RowNotFound = TRUE;
+
+    -- Setup SQL statements to create trigger as JSON document
+    SET @sql_insert_devsql = "
+        INSERT INTO dev_obj(obj_type,obj_id,obj_version,obj_desc,active,obj_json)
+        VALUES('DevSQL','Trigger_autouuid_tblName','','UUID TRIGGER FOR tblName',1,JSON_OBJECT(
+        1, 'DROP TRIGGER IF EXISTS `autouuid_tblName`;',
+        2, 'CREATE TRIGGER `autouuid_tblName` BEFORE INSERT ON `tblName` FOR EACH ROW
+             BEGIN
+                 IF (NEW.uuid IS NULL) THEN
+                    SET NEW.uuid = UUID_TO_BIN(UUID(),1);
+               END IF;
+          END;
+          '
+    ));
+    ";
+    SET @sql_insert_devsql = REPLACE(@sql_insert_devsql, "\r\n", " ");
+
+    -- Main
+    OPEN currTableList;
+    -- read the values from the first row that is available in the cursor
+    FETCH FROM currTableList INTO uuidTable;
+
+    WHILE (NOT RowNotFound) DO
+      -- Store Trigger related statements as DevSQL
+      CALL execStatement(@sql_insert_devsql, uuidTable);
+      FETCH NEXT FROM currTableList INTO uuidTable;
+    END WHILE;
+    CLOSE currTableList;
+END$$
+
+CREATE TRIGGER `autouuid_dev_obj` BEFORE INSERT ON `dev_obj` FOR EACH ROW
+BEGIN
+    IF (NEW.uuid IS NULL) THEN
+        SET NEW.uuid = UUID_TO_BIN(UUID(),1);
+    END IF;
+END$$
+CREATE TRIGGER `autouuid_dev_component` BEFORE INSERT ON `dev_component` FOR EACH ROW
+BEGIN
+    IF (NEW.uuid IS NULL) THEN
+        SET NEW.uuid = UUID_TO_BIN(UUID(),1);
+    END IF;
+END$$
+
+CALL `modify_null_uuids`$$
+
+DELIMITER ;
+
+INSERT INTO `dev_obj` (`uuid`,`obj_type`,`obj_id`,`obj_desc`) VALUES
+(UUID_TO_BIN('57839667-8949-11eb-a45f-001320cfc753',1),'','DevObject','Root object'),
+(UUID_TO_BIN('90a8e2c7-8948-11eb-a45f-001320cfc753',1),'DevObject','DevScript','Script object')
+;
+INSERT INTO `dev_component` (`uuid`,`obj_type`,`obj_id`,`comp_obj_type`,`comp_obj_id`,`comp_type`,`comp_seq`) VALUES
+(UUID_TO_BIN('57b2f8aa-8949-11eb-a45f-001320cfc753',1),'','DevObject','DevObject','DevScript','php',0),
+(UUID_TO_BIN('57b30066-8949-11eb-a45f-001320cfc753',1),'','DevObject','DevObject','DevScript','js',0)
+;
\ No newline at end of file
diff --git a/src/DevObj/devobject.create.sql b/src/DevObj/devobject.create.sql
new file mode 100644
index 0000000..698395f
--- /dev/null
+++ b/src/DevObj/devobject.create.sql
@@ -0,0 +1,39 @@
+CREATE TABLE `dev_obj` (
+    `uuid` BINARY(16) DEFAULT (UUID_TO_BIN(UUID())),
+    `obj_type` VARCHAR(10) NOT NULL,
+    `obj_id` VARCHAR(255) NOT NULL,
+    `obj_version` VARCHAR(10) NOT NULL DEFAULT '' COMMENT 'Reserved for future use',
+    `obj_desc` VARCHAR(255) NOT NULL,
+    `active` TINYINT DEFAULT '1' COMMENT '0 = inactive, 1 = active',
+    `obj_json` TEXT DEFAULT NULL COMMENT 'JSON data for the object',
+    PRIMARY KEY (`obj_type`, `obj_id`, `obj_version`) USING BTREE,
+    INDEX `uuid_dev_obj` (`uuid`) USING BTREE
+)
+COLLATE='utf8mb4_general_ci'
+ENGINE=InnoDB
+;
+CREATE TABLE `dev_component` (
+    `uuid` BINARY(16) DEFAULT (UUID_TO_BIN(UUID())),
+    `obj_type` VARCHAR(10) NOT NULL,
+    `obj_id` VARCHAR(255) NOT NULL,
+    `obj_version` VARCHAR(10) NOT NULL DEFAULT '',
+    `comp_obj_type` VARCHAR(10) NOT NULL,
+    `comp_obj_id` VARCHAR(255) NOT NULL,
+    `comp_obj_version` VARCHAR(10) NOT NULL DEFAULT '',
+    `comp_type` VARCHAR(10) NOT NULL,
+    `comp_seq` INT NOT NULL DEFAULT '0',
+    `comp_json` TEXT DEFAULT NULL COMMENT 'JSON data for the object-component use',
+    INDEX `ix_parent_obj` (`obj_type`, `obj_id`, `obj_version`) USING BTREE,
+    INDEX `ix_comp_obj` (`comp_obj_type`, `comp_obj_id`, `comp_obj_version`) USING BTREE
+)
+COLLATE='utf8mb4_general_ci'
+ENGINE=InnoDB
+;
+INSERT INTO `dev_obj` (`uuid`,`obj_type`,`obj_id`,`obj_desc`) VALUES
+(UUID_TO_BIN('57839667-8949-11eb-a45f-001320cfc753',1),'','DevObject','Root object'),
+(UUID_TO_BIN('90a8e2c7-8948-11eb-a45f-001320cfc753',1),'DevObject','DevScript','Script object')
+;
+INSERT INTO `dev_component` (`uuid`,`obj_type`,`obj_id`,`comp_obj_type`,`comp_obj_id`,`comp_type`,`comp_seq`) VALUES
+(UUID_TO_BIN('57b2f8aa-8949-11eb-a45f-001320cfc753',1),'','DevObject','DevObject','DevScript','php',0),
+(UUID_TO_BIN('57b30066-8949-11eb-a45f-001320cfc753',1),'','DevObject','DevObject','DevScript','js',0)
+;