Add Oracle package T4SQL.ENGINE

Author: AbelCheng

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/3-Views/03-VW_FOREIGN_KEY_COLUMNS.sql

@@ -0,0 +1,38 @@
+CREATE OR REPLACE VIEW T4SQL.VW_FOREIGN_KEY_COLUMNS AS
+SELECT
+	CR.OWNER,
+	CR.TABLE_NAME,
+	CR.CONSTRAINT_NAME,
+	FC.COLUMN_NAME		AS FOREIGN_KEY_COLUMN,
+	CF.NULLABLE			AS FOREIGN_KEY_NULLABLE,
+	FC.POSITION,
+	PC.OWNER			AS REFERENCED_SCHEMA,
+	PC.TABLE_NAME		AS REFERENCED_TABLE,
+	PC.COLUMN_NAME		AS REFERENCED_COLUMN,
+	CP.NULLABLE			AS REFERENCED_NULLABLE
+FROM
+	ALL_TAB_COLUMNS		CP,
+	ALL_CONS_COLUMNS	PC,
+	ALL_TAB_COLUMNS		CF,
+	ALL_CONS_COLUMNS	FC,
+	ALL_CONSTRAINTS		CR
+WHERE
+		CP.COLUMN_NAME		= PC.COLUMN_NAME
+	AND	CP.TABLE_NAME		= PC.TABLE_NAME
+	AND	CP.OWNER			= PC.OWNER
+	AND	PC.POSITION			= FC.POSITION
+	AND	PC.CONSTRAINT_NAME	= CR.R_CONSTRAINT_NAME
+	AND	PC.OWNER			= CR.R_OWNER
+	AND	CF.COLUMN_NAME		= FC.COLUMN_NAME
+	AND	CF.TABLE_NAME		= FC.TABLE_NAME
+	AND	CF.OWNER			= FC.OWNER
+	AND	FC.CONSTRAINT_NAME	= CR.CONSTRAINT_NAME
+	AND	FC.OWNER			= CR.OWNER
+	AND	CR.CONSTRAINT_TYPE	= 'R'
+ORDER BY
+	CR.OWNER,
+	CR.TABLE_NAME,
+	CR.CONSTRAINT_NAME,
+	FC.POSITION
+
+WITH READ ONLY;

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/4-Packages/02-ENGINE.pck

@@ -68,6 +68,49 @@ PROCEDURE REGISTER_TEMPLATE_SPEC
 );
 
 
+PROCEDURE LIST_COLUMN
+(
+	inTable_Name	VARCHAR2,
+	RC1				OUT SYS_REFCURSOR
+);
+
+
+PROCEDURE GET_FOREIGN_KEY
+(
+	inTable_Name			VARCHAR2,
+	outTable_Schema		OUT	VARCHAR2,
+	outTable_Name		OUT	VARCHAR2,
+	outQualified_Name	OUT	VARCHAR2,
+	RC1					OUT SYS_REFCURSOR
+);
+
+
+PROCEDURE LIST_WORKSPACE
+(
+	RC1		OUT SYS_REFCURSOR
+);
+
+
+PROCEDURE LIST_WORKITEM
+(
+	inWorkitem_Table	VARCHAR2,
+	RC1					OUT SYS_REFCURSOR
+);
+
+
+PROCEDURE LIST_WORKING_PROPERTY
+(
+	inProperty_Table	VARCHAR2,
+	RC1					OUT SYS_REFCURSOR
+);
+
+
+PROCEDURE LIST_DEFAULT_PROPERTY
+(
+	RC1		OUT SYS_REFCURSOR
+);
+
+
 PROCEDURE LOG_SYS_ERROR
 (
 	inReference		NVARCHAR2,
@@ -276,6 +319,147 @@ BEGIN
 END REGISTER_TEMPLATE_SPEC;
 
 
+PROCEDURE LIST_COLUMN
+(
+	inTable_Name	VARCHAR2,
+	RC1				OUT SYS_REFCURSOR
+)	AS
+	tSchema_Name	VARCHAR2(30)	:= T4SQL.META.PARSENAME(inTable_Name, 2);
+	tTable_Name		VARCHAR2(30)	:= T4SQL.META.PARSENAME(inTable_Name, 1);
+BEGIN
+	OPEN RC1 FOR
+	SELECT
+		COLUMN_NAME,
+		DECODE(NULLABLE, 'Y', 'True', 'False')		AS IS_NULLABLE
+	FROM
+		ALL_TAB_COLUMNS
+	WHERE
+			TABLE_NAME	= tTable_Name
+		AND	OWNER		= tSchema_Name
+	ORDER BY
+		COLUMN_ID;
+
+END LIST_COLUMN;
+
+
+PROCEDURE GET_FOREIGN_KEY
+(
+	inTable_Name			VARCHAR2,
+	outTable_Schema		OUT	VARCHAR2,
+	outTable_Name		OUT	VARCHAR2,
+	outQualified_Name	OUT	VARCHAR2,
+	RC1					OUT SYS_REFCURSOR
+)	AS
+BEGIN
+	outTable_Schema		:= T4SQL.META.PARSENAME(inTable_Name, 2);
+	outTable_Name		:= T4SQL.META.PARSENAME(inTable_Name, 1);
+	outQualified_Name	:= outTable_Schema || '.' || outTable_Name;
+
+	OPEN RC1 FOR
+	SELECT
+		CONSTRAINT_NAME,
+		FOREIGN_KEY_COLUMN,
+		DECODE(FOREIGN_KEY_NULLABLE, 'Y', 'True', 'False')		AS FOREIGN_KEY_NULLABLE,
+		REFERENCED_SCHEMA || '.' || REFERENCED_TABLE			AS REFERENCED_TABLE,
+		REFERENCED_COLUMN,
+		DECODE(REFERENCED_NULLABLE, 'Y', 'True', 'False')		AS REFERENCED_NULLABLE
+	FROM
+		T4SQL.VW_FOREIGN_KEY_COLUMNS
+	WHERE
+			TABLE_NAME	= outTable_Name
+		AND	OWNER		= outTable_Schema;
+
+END GET_FOREIGN_KEY;
+
+
+PROCEDURE LIST_WORKSPACE
+(
+	RC1		OUT SYS_REFCURSOR
+)	AS
+BEGIN
+	OPEN RC1 FOR
+	SELECT
+		WORKITEM_TABLE_NAME,
+		PROPERTY_TABLE_NAME
+	FROM
+		T4SQL.WORKSPACE_ENTRY
+	ORDER BY
+		WORKSPACE_ID;
+
+END LIST_WORKSPACE;
+
+
+PROCEDURE LIST_WORKITEM
+(
+	inWorkitem_Table	VARCHAR2,
+	RC1					OUT SYS_REFCURSOR
+)	AS
+	tSQL				VARCHAR2(512);
+BEGIN
+	tSQL	:= 'SELECT
+	I.WORKITEM_NAME,
+	C.FULL_NAME		AS TEMPLATE_NAME
+FROM
+	T4SQL.TEMPLATE_CLASS	C,
+	' || inWorkitem_Table || '	I
+WHERE
+		C.FULL_NAME		= I.TEMPLATE_NAME
+	AND	C.IS_ACTIVE		= 1
+	AND	I.START_BUILD	= 1
+ORDER BY
+	I.BUILD_ORDER
+';
+
+	OPEN RC1 FOR tSQL;
+END LIST_WORKITEM;
+
+
+PROCEDURE LIST_WORKING_PROPERTY
+(
+	inProperty_Table	VARCHAR2,
+	RC1					OUT SYS_REFCURSOR
+)	AS
+	tSQL				VARCHAR2(512);
+BEGIN
+	tSQL	:= 'SELECT
+	WORKITEM_NAME,
+	PROPERTY_NAME,
+	STRING_VALUE,
+	LINK_STATE
+FROM
+	' || inProperty_Table || '
+ORDER BY
+	WORKITEM_NAME,
+	PROPERTY_NAME
+';
+
+	OPEN RC1 FOR tSQL;
+END LIST_WORKING_PROPERTY;
+
+
+PROCEDURE LIST_DEFAULT_PROPERTY
+(
+	RC1		OUT SYS_REFCURSOR
+)	AS
+BEGIN
+	OPEN RC1 FOR
+	SELECT
+		D.CLASS_NAME,
+		D.PROPERTY_NAME,
+		D.DEFAULT_VALUE,
+		D.LINK_STATE
+	FROM
+		T4SQL.TEMPLATE_SPEC		D,
+		T4SQL.TEMPLATE_CLASS	C
+	WHERE
+			D.CLASS_NAME	= C.FULL_NAME
+		AND	C.IS_ACTIVE		= 'Y'
+	ORDER BY
+		D.PROPERTY_ORDER;
+
+END LIST_DEFAULT_PROPERTY;
+
+
 PROCEDURE LOG_SYS_ERROR
 (
 	inReference		NVARCHAR2,

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/5-Triggers/02-TRG_WORKSPACE_ENTRY_DEL.trg

@@ -1,4 +1,4 @@
-CREATE OR REPLACE TRIGGER TRG_WORKSPACE_ENTRY_DEL
+CREATE OR REPLACE TRIGGER T4SQL.TRG_WORKSPACE_ENTRY_DEL
 BEFORE DELETE ON T4SQL.WORKSPACE_ENTRY
 FOR EACH ROW
 BEGIN

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/5-Triggers/03-TRG_WORKSPACE_ENTRY_INS.trg

@@ -1,4 +1,4 @@
-CREATE OR REPLACE TRIGGER TRG_WORKSPACE_ENTRY_INS
+CREATE OR REPLACE TRIGGER T4SQL.TRG_WORKSPACE_ENTRY_INS
 BEFORE INSERT OR UPDATE ON T4SQL.WORKSPACE_ENTRY
 FOR EACH ROW
 DECLARE

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/T4SQLDB.modelproj

@@ -57,6 +57,9 @@
     <Content Include="Scripts\3-Views\02-VW_ORDINAL_NUMBER_EXPANSION.sql">
       <SubType>Content</SubType>
     </Content>
+    <Content Include="Scripts\3-Views\03-VW_FOREIGN_KEY_COLUMNS.sql">
+      <SubType>Content</SubType>
+    </Content>
     <Content Include="Scripts\4-Packages\01-META.pck">
       <SubType>Content</SubType>
     </Content>