WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/branches/dpurdie/database/Relman_export.sql

 --------------------------------------------------------
---  File created - Monday-October-29-2012
+--  File created - Monday-July-08-2013
+--  Removed TEST packages as these cause great confusion
 --------------------------------------------------------
 --------------------------------------------------------
---  DDL for Function ORA_SYSDATE
---------------------------------------------------------
-  CREATE OR REPLACE FUNCTION "ORA_SYSDATE"
-RETURN DATE
-IS
-/* ---------------------------------------------------------------------------
-    Version: 3.0.0
-   --------------------------------------------------------------------------- */
-BEGIN
-    RETURN TO_DATE( TO_CHAR( SYSDATE,'DD-MON-YYYY' ),'DD-MON-YYYY' );
-END ORA_SYSDATE;
-/
---------------------------------------------------------
---  DDL for Function GET_AUTOMATED_LABEL
---------------------------------------------------------
-  CREATE OR REPLACE FUNCTION "GET_AUTOMATED_LABEL" ( nPvId IN NUMBER ) RETURN VARCHAR2 IS
-/* ---------------------------------------------------------------------------
-    Version: 3.0.0
-   --------------------------------------------------------------------------- */
-	sPkgName VARCHAR2(4000);
-	sVext VARCHAR2(4000);
-BEGIN
-	-- Get package details
-	SELECT pkg.PKG_NAME, pv.V_EXT INTO sPkgName, sVext
-	  FROM PACKAGE_VERSIONS pv,
-	  	   PACKAGES pkg
-	 WHERE pv.PKG_ID = pkg.PKG_ID
-	   AND pv.PV_ID = nPvId;
-	-- Generate Label for automated build
-	RETURN UPPER( sPkgName ||'.'|| nPvId || sVext ||'.WIP' );
-END GET_AUTOMATED_LABEL;
-/
---------------------------------------------------------
 --  DDL for Function CAN_EDIT_PKG_IN_PROJECT
 --------------------------------------------------------
   CREATE OR REPLACE FUNCTION "CAN_EDIT_PKG_IN_PROJECT" ( nPvId IN NUMBER, nRtagId IN NUMBER ) RETURN NUMBER IS
 END CAN_EDIT_PKG_IN_PROJECT;
+/
 --------------------------------------------------------
---  DDL for Function GET_PV_FIRST_MODIFIED
+--  DDL for Function DT_ADDUSEROBJECT
 --------------------------------------------------------
-  CREATE OR REPLACE FUNCTION "GET_PV_FIRST_MODIFIED" (v_pv_id NUMBER) RETURN DATE IS
+  CREATE OR REPLACE FUNCTION "DT_ADDUSEROBJECT" RETURN NUMBER IS NEWOBJECTID NUMBER; BEGIN /* GET THE NEXT VALUE FROM THE SEQUENCE FOR THE OBJECT ID */ SELECT MICROSOFTSEQDTPROPERTIES.NEXTVAL INTO NEWOBJECTID FROM DUAL; /* ADD THE PARENT NODE FOR THE NEW OBJECT */ INSERT INTO MICROSOFTDTPROPERTIES ( ID, OBJECTID, PROPERTY ) VALUES ( NEWOBJECTID, NEWOBJECTID, 'DtgSchemaOBJECT' ); RETURN( NEWOBJECTID ); END DT_ADDUSEROBJECT;
+/
+--------------------------------------------------------
+--  DDL for Function GET_AUTOMATED_LABEL
+--------------------------------------------------------
+  CREATE OR REPLACE FUNCTION "GET_AUTOMATED_LABEL" ( nPvId IN NUMBER ) RETURN VARCHAR2 IS
+/* ---------------------------------------------------------------------------
-  ret DATE;
+    Version: 3.0.0
+   --------------------------------------------------------------------------- */
+	sPkgName VARCHAR2(4000);
+	sVext VARCHAR2(4000);
 BEGIN
-  SELECT q.modified_stamp
-    INTO ret
-    FROM (
-            SELECT level AS lvl, pvc.pv_id, pvc.modified_stamp, pvc.change_type
-              FROM package_versions pvc
-              START WITH pvc.pv_id = v_pv_id
-            CONNECT BY NOCYCLE pvc.pv_id = PRIOR pvc.last_pv_id
-          ) Q
-  WHERE q.change_type IS NOT NULL
-    AND rownum = 1
-  ORDER BY q.lvl;
-  RETURN ret;
+	-- Get package details
+	SELECT pkg.PKG_NAME, pv.V_EXT INTO sPkgName, sVext
+	  FROM PACKAGE_VERSIONS pv,
+	  	   PACKAGES pkg
+	 WHERE pv.PKG_ID = pkg.PKG_ID
+	   AND pv.PV_ID = nPvId;
+	-- Generate Label for automated build
+	RETURN UPPER( sPkgName ||'.'|| nPvId || sVext ||'.WIP' );
-END;
+END GET_AUTOMATED_LABEL;
+/
 --------------------------------------------------------
 --  DDL for Function GET_BUILD_NUMBER
 --------------------------------------------------------
         RETURN 0;
     END IF;
 END get_build_number;
+/
 --------------------------------------------------------
---  DDL for Function ORA_SYSDATETIME
---------------------------------------------------------
-  CREATE OR REPLACE FUNCTION "ORA_SYSDATETIME"
-RETURN DATE
-IS
-/* ---------------------------------------------------------------------------
-    Version: 3.0.0
-   --------------------------------------------------------------------------- */
-BEGIN
-    RETURN TO_DATE( TO_CHAR( SYSDATE,'DD-MON-YYYY HH24:MI:SS' ),'DD-MON-YYYY HH24:MI:SS' );
-END ORA_SYSDATETIME;
-/
---------------------------------------------------------
---  DDL for Function IS_VERSION_EXTENSION
+--  DDL for Function GET_PATCH_VERSION
 --------------------------------------------------------
-  CREATE OR REPLACE FUNCTION "IS_VERSION_EXTENSION" (SSV_EXT PACKAGE_VERSIONS.V_EXT%TYPE) RETURN BOOLEAN
+  CREATE OR REPLACE FUNCTION "GET_PATCH_VERSION" (s_version IN VARCHAR2) RETURN VARCHAR2
 IS
 /* ---------------------------------------------------------------------------
-    Version: 3.0.0
+    Version: 1.0.0
    --------------------------------------------------------------------------- */
 BEGIN
-    IF LENGTH ( TRIM (TRANSLATE (SSV_EXT, '.ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz',' ') ) ) > 0
+    IF is_number(s_version) AND LENGTH(s_version) > 3
     THEN
-        RETURN FALSE;
+        RETURN FLOOR(TO_NUMBER(s_version) / 1000);
     ELSE
-        RETURN TRUE;
+        RETURN s_version;
     END IF;
-END IS_VERSION_EXTENSION;
+END get_patch_version;
+/
 --------------------------------------------------------
---  DDL for Function IS_NUMBER
+--  DDL for Function GET_PV_FIRST_MODIFIED
 --------------------------------------------------------
-  CREATE OR REPLACE FUNCTION "IS_NUMBER" (p_val IN VARCHAR2) RETURN BOOLEAN
+  CREATE OR REPLACE FUNCTION "GET_PV_FIRST_MODIFIED" (v_pv_id NUMBER) RETURN DATE IS
-IS
-   temp_num NUMBER;
+  ret DATE;
-/* ---------------------------------------------------------------------------
-    Version: 1.0.0
-   --------------------------------------------------------------------------- */
 BEGIN
-   temp_num := TO_NUMBER(p_val);
+  SELECT q.modified_stamp
-   RETURN true;
+    INTO ret
+    FROM (
+            SELECT level AS lvl, pvc.pv_id, pvc.modified_stamp, pvc.change_type
+              FROM package_versions pvc
+              START WITH pvc.pv_id = v_pv_id
+            CONNECT BY NOCYCLE pvc.pv_id = PRIOR pvc.last_pv_id
+          ) Q
-EXCEPTION WHEN VALUE_ERROR THEN
+  WHERE q.change_type IS NOT NULL
+    AND rownum = 1
+  ORDER BY q.lvl;
-   RETURN false;
+  RETURN ret;
-END IS_NUMBER;
+END;
+/
 --------------------------------------------------------
---  DDL for Function GET_PATCH_VERSION
+--  DDL for Function GET_V_EXT
 --------------------------------------------------------
-  CREATE OR REPLACE FUNCTION "GET_PATCH_VERSION" (s_version IN VARCHAR2) RETURN VARCHAR2
+  CREATE OR REPLACE FUNCTION "GET_V_EXT" (SSpkg_version IN PACKAGE_VERSIONS.pkg_version%TYPE) RETURN VARCHAR2 IS
-IS
 /* ---------------------------------------------------------------------------
-    Version: 1.0.0
+    Version: 3.0.0
    --------------------------------------------------------------------------- */
+    SSV_EXT PACKAGE_VERSIONS.V_EXT%TYPE;
+    lastDot NUMBER;
 BEGIN
+    lastDot := INSTR (SSpkg_version, '.', -1);
-    IF is_number(s_version) AND LENGTH(s_version) > 3
+    IF ( lastDot > 0 ) AND ( lastDot != LENGTH(SSpkg_version) )
     THEN
+        -- YES dot separator found --
+        SSV_EXT := SUBSTR (SSpkg_version, lastDot, LENGTH(SSpkg_version)-lastDot+1);
-        RETURN FLOOR(TO_NUMBER(s_version) / 1000);
+        IF IS_VERSION_EXTENSION ( SSV_EXT )
+        THEN
+            RETURN SSV_EXT;
+        ELSE
+            RETURN NULL;
+        END IF;
     ELSE
+        -- NO dot separator found --
-        RETURN s_version;
+        RETURN NULL;
     END IF;
-END get_patch_version;
+END GET_V_EXT;
+/
 --------------------------------------------------------
---  DDL for Function IN_LIST_NUMBER2
+--  DDL for Function IN_LIST_NUMBER
 --------------------------------------------------------
-  CREATE OR REPLACE FUNCTION "IN_LIST_NUMBER2" ( sInList IN VARCHAR2 ) RETURN RELMGR_NUMBER_TAB_t IS
+  CREATE OR REPLACE FUNCTION "IN_LIST_NUMBER" ( sInList IN VARCHAR2 ) RETURN RELMGR_NUMBER_TAB_t IS
 /* ---------------------------------------------------------------------------
     Version: 3.0.0
    --------------------------------------------------------------------------- */
     sync_rtags		   RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
 	pos				   NUMBER;
-	in_list			   VARCHAR2(32767) := sInList || ',';
+	in_list			   VARCHAR2(4000) := sInList || ',';
 BEGIN
 	IF NOT sInList IS NULL
 	THEN
 	        in_list := SUBSTR ( in_list, pos+1 );
 		END LOOP;
 	END IF;
 	RETURN sync_rtags;
-END IN_LIST_NUMBER2;
+END IN_LIST_NUMBER;
-/
---------------------------------------------------------
---  DDL for Function DT_ADDUSEROBJECT
---------------------------------------------------------
-  CREATE OR REPLACE FUNCTION "DT_ADDUSEROBJECT" RETURN NUMBER IS NEWOBJECTID NUMBER; BEGIN /* GET THE NEXT VALUE FROM THE SEQUENCE FOR THE OBJECT ID */ SELECT MICROSOFTSEQDTPROPERTIES.NEXTVAL INTO NEWOBJECTID FROM DUAL; /* ADD THE PARENT NODE FOR THE NEW OBJECT */ INSERT INTO MICROSOFTDTPROPERTIES ( ID, OBJECTID, PROPERTY ) VALUES ( NEWOBJECTID, NEWOBJECTID, 'DtgSchemaOBJECT' ); RETURN( NEWOBJECTID ); END DT_ADDUSEROBJECT;
+/
 --------------------------------------------------------
---  DDL for Function IN_LIST_NUMBER
+--  DDL for Function IN_LIST_NUMBER2
 --------------------------------------------------------
-  CREATE OR REPLACE FUNCTION "IN_LIST_NUMBER" ( sInList IN VARCHAR2 ) RETURN RELMGR_NUMBER_TAB_t IS
+  CREATE OR REPLACE FUNCTION "IN_LIST_NUMBER2" ( sInList IN VARCHAR2 ) RETURN RELMGR_NUMBER_TAB_t IS
 /* ---------------------------------------------------------------------------
     Version: 3.0.0
    --------------------------------------------------------------------------- */
     sync_rtags		   RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
 	pos				   NUMBER;
-	in_list			   VARCHAR2(4000) := sInList || ',';
+	in_list			   VARCHAR2(32767) := sInList || ',';
 BEGIN
 	IF NOT sInList IS NULL
 	THEN
 	        in_list := SUBSTR ( in_list, pos+1 );
 		END LOOP;
 	END IF;
 	RETURN sync_rtags;
-END IN_LIST_NUMBER;
+END IN_LIST_NUMBER2;
-/
---------------------------------------------------------
---  DDL for Function RELEASE_MODE
---------------------------------------------------------
-  CREATE OR REPLACE FUNCTION "RELEASE_MODE" ( nRtagId IN NUMBER ) RETURN CHAR IS
-/* ---------------------------------------------------------------------------
-    Version: 3.0.0
-   --------------------------------------------------------------------------- */
-   returnValue CHAR(1);
-BEGIN
-    /*--------------- Business Rules Here -------------------*/
-	/*-------------------------------------------------------*/
-	-- Get release mode
-	SELECT rt.OFFICIAL INTO returnValue
-	  FROM RELEASE_TAGS rt
-	 WHERE rt.RTAG_ID = nRtagId;
-	RETURN returnValue;
-END RELEASE_MODE;
-/
---------------------------------------------------------
---  DDL for Function PERL_DBD_TESTFUNC
---------------------------------------------------------
-  CREATE OR REPLACE FUNCTION "PERL_DBD_TESTFUNC" (a in integer, b in integer) return integer is c integer; begin if b is null then c := 0; else c := b; end if; return a * c + 1; end;
-/
---------------------------------------------------------
---  DDL for Function GET_V_EXT
---------------------------------------------------------
-  CREATE OR REPLACE FUNCTION "GET_V_EXT" (SSpkg_version IN PACKAGE_VERSIONS.pkg_version%TYPE) RETURN VARCHAR2 IS
-/* ---------------------------------------------------------------------------
-    Version: 3.0.0
-   --------------------------------------------------------------------------- */
-    SSV_EXT PACKAGE_VERSIONS.V_EXT%TYPE;
-    lastDot NUMBER;
-BEGIN
-    lastDot := INSTR (SSpkg_version, '.', -1);
-    IF ( lastDot > 0 ) AND ( lastDot != LENGTH(SSpkg_version) )
-    THEN
-        -- YES dot separator found --
-        SSV_EXT := SUBSTR (SSpkg_version, lastDot, LENGTH(SSpkg_version)-lastDot+1);
-        IF IS_VERSION_EXTENSION ( SSV_EXT )
-        THEN
-            RETURN SSV_EXT;
-        ELSE
-            RETURN NULL;
-        END IF;
-    ELSE
-        -- NO dot separator found --
-        RETURN NULL;
-    END IF;
-END GET_V_EXT;
+/
 --------------------------------------------------------
 --  DDL for Function IN_LIST_VARCHAR2
 --------------------------------------------------------
 	RETURN cItemCollection;
 END IN_LIST_VARCHAR2;
+/
 --------------------------------------------------------
---  DDL for Package PK_PROJECT
+--  DDL for Function IS_NUMBER
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE "PK_PROJECT" IS
+  CREATE OR REPLACE FUNCTION "IS_NUMBER" (p_val IN VARCHAR2) RETURN BOOLEAN
+IS
-    TYPE typecur IS REF CURSOR;
+   temp_num NUMBER;
-    /*------------------------------------------------------------------------*/
+/* ---------------------------------------------------------------------------
-    PROCEDURE update_base_url (
-        nprojid   IN  projects.proj_id%TYPE,
-        sbaseurl  IN  VARCHAR2
+    Version: 1.0.0
-    );
-    /*------------------------------------------------------------------------*/
+   --------------------------------------------------------------------------- */
-    PROCEDURE update_project_config (
+BEGIN
-    nprojid   IN  projects.proj_id%TYPE,
+   temp_num := TO_NUMBER(p_val);
-    sbaseurl  IN  VARCHAR2,
+   RETURN true;
-    sjirakey  IN  VARCHAR2
+EXCEPTION WHEN VALUE_ERROR THEN
-    );
+   RETURN false;
-    /*------------------------------------------------------------------------*/
-    END pk_project;
+END IS_NUMBER;
+/
 --------------------------------------------------------
---  DDL for Package PK_PACKAGE
+--  DDL for Function IS_VERSION_EXTENSION
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE "PK_PACKAGE"
+  CREATE OR REPLACE FUNCTION "IS_VERSION_EXTENSION" (SSV_EXT PACKAGE_VERSIONS.V_EXT%TYPE) RETURN BOOLEAN
 IS
-/*
-------------------------------
+/* ---------------------------------------------------------------------------
-||  Last Modified:  Jeremy Tweddle
-||  Modified Date:  24/08/2007
+    Version: 3.0.0
-||
-------------------------------
+   --------------------------------------------------------------------------- */
-*/
-   TYPE typecur IS REF CURSOR;
-/*================================================================================================*/
-   PROCEDURE new_version (
-      nlastpvid                   IN       NUMBER,
-      snewpkgversion              IN       VARCHAR2 DEFAULT NULL,
-      cbuildtype                  IN       CHAR,
-      nsettopvid                  IN       NUMBER DEFAULT NULL,
-      nrtagid                     IN       NUMBER,
-      nuserid                     IN       NUMBER,
-      enumissues_state_imported   IN       NUMBER,
-      returnpvid                  OUT      NUMBER
-   );
-   PROCEDURE change_state (
-      pvid       IN   NUMBER,
-      newstate   IN   package_versions.dlocked%TYPE,
-      userid     IN   NUMBER
-   );
-   PROCEDURE new_patch (
+BEGIN
-      snewpatchversion   IN       package_versions.pkg_version%TYPE,
+    IF LENGTH ( TRIM (TRANSLATE (SSV_EXT, '.ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz',' ') ) ) > 0
-      nparentpvid        IN       NUMBER,
+    THEN
-      spatchidlist       IN       VARCHAR2,
+        RETURN FALSE;
-      nuserid            IN       NUMBER,
+    ELSE
-      returnpatchid      OUT      NUMBER
+        RETURN TRUE;
-   );
+    END IF;
-   PROCEDURE obsolete_patch (
+END IS_VERSION_EXTENSION;
+/
-      patchid            IN   NUMBER,
+--------------------------------------------------------
-      isobsolete         IN   CHAR,
+--  DDL for Function ORA_SYSDATE
-      obsoletecomments   IN   VARCHAR2,
+--------------------------------------------------------
-      userid             IN   NUMBER
-   );
-   PROCEDURE obsolete_patches (
+  CREATE OR REPLACE FUNCTION "ORA_SYSDATE"
-      spatchidlist       IN   VARCHAR2,
+RETURN DATE
+IS
-      isobsolete         IN   CHAR,
+/* ---------------------------------------------------------------------------
-      obsoletecomments   IN   VARCHAR2,
+    Version: 3.0.0
-      userid             IN   NUMBER
+   --------------------------------------------------------------------------- */
-   );
+BEGIN
+    RETURN TO_DATE( TO_CHAR( SYSDATE,'DD-MON-YYYY' ),'DD-MON-YYYY' );
-   PROCEDURE destroy_package (
+END ORA_SYSDATE;
+/
-      pvid               IN       NUMBER,
+--------------------------------------------------------
-      overridewarnings   IN       CHAR DEFAULT 'N',
+--  DDL for Function ORA_SYSDATETIME
-      problemstring      OUT      VARCHAR2
+--------------------------------------------------------
-   );
-   PROCEDURE add_process (
-      nprocid         IN   processes.proc_id%TYPE,
+  CREATE OR REPLACE FUNCTION "ORA_SYSDATETIME"
-      shealthtag      IN   processes.proc_name%TYPE,
+RETURN DATE
+IS
-      sprocdesc       IN   processes.proc_description%TYPE,
+/* ---------------------------------------------------------------------------
-      scmdinterface   IN   processes.run_as%TYPE,
+    Version: 3.0.0
-      spkgowner       IN   processes.pkg_owner%TYPE,
-      sisinterface    IN   processes.is_interface%TYPE,
-      npvid           IN   package_processes.pv_id%TYPE,
+   --------------------------------------------------------------------------- */
-      nuserid         IN   NUMBER
-   );
+BEGIN
-   PROCEDURE add_package_process (
+    RETURN TO_DATE( TO_CHAR( SYSDATE,'DD-MON-YYYY HH24:MI:SS' ),'DD-MON-YYYY HH24:MI:SS' );
-      nprocidlist   IN   VARCHAR2,
+END ORA_SYSDATETIME;
+/
-      npvid         IN   package_processes.pv_id%TYPE,
+--------------------------------------------------------
-      nuserid       IN   NUMBER
+--  DDL for Function PERL_DBD_TESTFUNC
-   );
+--------------------------------------------------------
-   PROCEDURE remove_process (
-      nprocid   IN   package_processes.proc_id%TYPE,
-      npvid     IN   package_processes.pv_id%TYPE,
-      nuserid   IN   NUMBER
-   );
-   PROCEDURE move_package (
-   	  npvid  			  IN package_versions.pv_id%TYPE,
-	  nrtagid 			  IN release_tags.rtag_id%TYPE,
-	  nnewrtagid 		  IN release_tags.rtag_id%TYPE,
-	  nuserid			  IN NUMBER
-   );
-   PROCEDURE modify_product_state (
-   	  npvid IN package_versions.pv_id%TYPE,
-	  nrtagid IN release_tags.rtag_id%TYPE,
-	  nstateid IN product_states.state_id%TYPE,
-	  nuserid IN NUMBER
-   );
-   PROCEDURE add_code_review_url (
-        npvid           IN    NUMBER,
-        nprojid         IN    NUMBER,
-        surl            IN    VARCHAR2,
-        sreason         IN    VARCHAR2,
-        ddateofreview   IN    DATE
-   );
-   PROCEDURE update_code_review_url (
-        ncrid           IN    NUMBER,
-        nprojid         IN    NUMBER,
-        surl            IN    VARCHAR2,
-        sreason         IN    VARCHAR2
-   );
-   PROCEDURE remove_code_review_url (
-        ncrid           IN    NUMBER
-   );
-/*================================================================================================*/
+  CREATE OR REPLACE FUNCTION "PERL_DBD_TESTFUNC" (a in integer, b in integer) return integer is c integer; begin if b is null then c := 0; else c := b; end if; return a * c + 1; end;
-END pk_package;
+/
 --------------------------------------------------------
---  DDL for Package RM_ISSUES
+--  DDL for Function RELEASE_MODE
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE "RM_ISSUES" AS
+  CREATE OR REPLACE FUNCTION "RELEASE_MODE" ( nRtagId IN NUMBER ) RETURN CHAR IS
+/* ---------------------------------------------------------------------------
-	TYPE T_Cur IS REF CURSOR;
+    Version: 3.0.0
+   --------------------------------------------------------------------------- */
-	FUNCTION VerIsGrtrThanOrEqlToStart( XXstart IN NUMBER, XX IN NUMBER, YYstart IN NUMBER, YY IN NUMBER, ZZstart IN NUMBER, ZZ IN NUMBER ) RETURN NUMBER;
-	FUNCTION VersionIsBetween( version IN VARCHAR2, version_start IN VARCHAR2, version_end IN VARCHAR ) RETURN NUMBER;
-	FUNCTION VerIsLessThanOrEqlToEnd( XXend IN NUMBER, XX IN NUMBER, YYend IN NUMBER, YY IN NUMBER, ZZend IN NUMBER, ZZ IN NUMBER ) RETURN NUMBER;
-	FUNCTION GetPkgId( pkgName IN VARCHAR2 ) RETURN NUMBER;
+   returnValue CHAR(1);
-	PROCEDURE AllIssues( vCursor OUT T_Cur, pkg_name IN VARCHAR2, version_start IN VARCHAR2, version_end IN VARCHAR2 );
-	PROCEDURE LoadIssuesTable( vCursor OUT T_Cur, pkg_name IN VARCHAR2, version_start IN VARCHAR2, version_end IN VARCHAR2 );
-	PROCEDURE InsertIssuesForDepends( pvID IN NUMBER, top_pkgID IN NUMBER, top_pkgName IN VARCHAR2, top_pvID IN NUMBER, top_pkgVer IN VARCHAR2 );
+BEGIN
+    /*--------------- Business Rules Here -------------------*/
+	/*-------------------------------------------------------*/
+	-- Get release mode
+	SELECT rt.OFFICIAL INTO returnValue
+	  FROM RELEASE_TAGS rt
+	 WHERE rt.RTAG_ID = nRtagId;
+	RETURN returnValue;
-END Rm_Issues;
+END RELEASE_MODE;
+/
 --------------------------------------------------------
 --  DDL for Package PK_APP_UTILS
 --------------------------------------------------------
 	/*================================================================================================*/
 END PK_APP_UTILS;
+/
 --------------------------------------------------------
---  DDL for Package PK_RMAPI_TEST
+--  DDL for Package PK_ARCHIVE
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE "PK_RMAPI_TEST"
+  CREATE OR REPLACE PACKAGE "PK_ARCHIVE"
 IS
-   TYPE typecur IS REF CURSOR;
-/*================================================================================================*/
-   FUNCTION package_dependencies (pkgname VARCHAR2, pkgversion VARCHAR2)
-      RETURN typecur;
+/*
-   FUNCTION wip_iteration_package (
-      projname        VARCHAR2,
+------------------------------
-      iterationname   VARCHAR2,
+||  Author:  Rupesh Solanki
-      pkgname         VARCHAR2
+||  Date:    26 October 2006
-   )
-      RETURN typecur;
+||  Version:   1.0
-/* This version is to be deprecated when auto_make_vcsrelease is used */
-   FUNCTION auto_make_release (
+------------------------------
-      rtagid                   IN   NUMBER,
-      pkgname                  IN   VARCHAR2,
-      vext                     IN   VARCHAR2,
-      newpkgversion            IN   VARCHAR2,
-      label                    IN   VARCHAR2,
-      dependenciesimportlist   IN   VARCHAR2,
-      isrippled                IN   NUMBER,
-      username                 IN   VARCHAR2
-   )
-      RETURN NUMBER;
+*/
-   FUNCTION auto_make_vcsrelease (
-      rtagid                   IN   NUMBER,
-      pkgname                  IN   VARCHAR2,
-      vext                     IN   VARCHAR2,
-      newpkgversion            IN   VARCHAR2,
-      vcstag                   IN   VARCHAR2,
-      dependenciesimportlist   IN   VARCHAR2,
-      isrippled                IN   NUMBER,
-      username                 IN   VARCHAR2
-   )
-      RETURN NUMBER;
+   /*================================================================================================*/
-   PROCEDURE import_dependencies (
+   PROCEDURE populate_packages_table;
-      pvid                     IN   NUMBER,
+   PROCEDURE populate_archive_data_table (
-      dependenciesimportlist   IN   VARCHAR2,
-      userid                   IN   NUMBER
+      nrtagid   IN   release_tags.rtag_id%TYPE
    );
-   FUNCTION return_last_package_version (pkgname IN VARCHAR2, rtagid IN NUMBER)
-      RETURN VARCHAR2;
-   FUNCTION return_wip (pkgname IN VARCHAR2, rtagid IN NUMBER)
-      RETURN VARCHAR2;
-   PROCEDURE update_dash_board (rtagid IN NUMBER);
-   FUNCTION exclude_from_build (
-      pvid          IN   NUMBER,
-      spkgversion   IN   VARCHAR2,
-      rtagid        IN   NUMBER,
-      username      IN   VARCHAR2
-   )
-      RETURN NUMBER;
-   FUNCTION exclude_indirect_from_build (
-      pvid          IN   NUMBER,
-      spkgversion   IN   VARCHAR2,
-      rtagid        IN   NUMBER,
-      username      IN   VARCHAR2,
-      rootpvid      IN   NUMBER,
-      rootcause     IN   VARCHAR2,
-      rootfile      IN   VARCHAR2
-   )
-      RETURN NUMBER;
-/*================================================================================================*/
-   PROCEDURE insert_abt_actionlog (rconid IN NUMBER, action IN VARCHAR2);
+   PROCEDURE migrate_pv_to_archive_SCHEMA (nrtagid IN release_tags.rtag_id%TYPE);
-   FUNCTION insert_package_metrics (
-      rtagid IN NUMBER,
-      pkgname IN VARCHAR2,
-      vext IN VARCHAR2,
-      metricstring IN VARCHAR2
-   )
-      RETURN NUMBER;
-   PROCEDURE update_release_metrics (rtagid IN NUMBER);
-   FUNCTION return_vcs_tag(pvid IN NUMBER) RETURN VARCHAR2;
-END pk_rmapi_test;
-/
---------------------------------------------------------
---  DDL for Package PK_RMAPI
---------------------------------------------------------
-  CREATE OR REPLACE PACKAGE "PK_RMAPI"
-IS
-   TYPE typecur IS REF CURSOR;
-   FUNCTION package_dependencies (pkgname VARCHAR2, pkgversion VARCHAR2)
-      RETURN typecur;
-   FUNCTION wip_iteration_package (
-      projname        VARCHAR2,
-      iterationname   VARCHAR2,
-      pkgname         VARCHAR2
-   )
-      RETURN typecur;
-   FUNCTION auto_make_vcsrelease (
-      rtagid                   IN   NUMBER,
-      pkgname                  IN   VARCHAR2,
-      vext                     IN   VARCHAR2,
-      newpkgversion            IN   VARCHAR2,
-      vcstag                   IN   VARCHAR2,
-      dependenciesimportlist   IN   VARCHAR2,
-      isrippled                IN   NUMBER,
-      username                 IN   VARCHAR2
-   )
-      RETURN NUMBER;
-   PROCEDURE import_dependencies (
+   PROCEDURE migrate_rtag_to_archive_schema (
-      pvid                     IN   NUMBER,
+      nrtagid   IN   release_tags.rtag_id%TYPE
-      dependenciesimportlist   IN   VARCHAR2,
-      userid                   IN   NUMBER
    );
-   FUNCTION return_last_package_version (pkgname IN VARCHAR2, rtagid IN NUMBER)
-      RETURN VARCHAR2;
-   FUNCTION return_wip (pkgname IN VARCHAR2, rtagid IN NUMBER)
-      RETURN VARCHAR2;
-   PROCEDURE update_dash_board (rtagid IN NUMBER);
+   PROCEDURE clean_up_archive_data_table (
-   FUNCTION exclude_from_build (
-      pvid          IN   NUMBER,
-      spkgversion   IN   VARCHAR2,
-      rtagid        IN   NUMBER,
-      username      IN   VARCHAR2
-   )
-      RETURN NUMBER;
-   FUNCTION exclude_indirect_from_build (
-      pvid          IN   NUMBER,
-      spkgversion   IN   VARCHAR2,
-      rtagid        IN   NUMBER,
+      nrtagid   IN   release_tags.rtag_id%TYPE
-      username      IN   VARCHAR2,
-      rootpvid      IN   NUMBER,
-      rootcause     IN   VARCHAR2,
-      rootfile      IN   VARCHAR2
-   )
-      RETURN NUMBER;
-   PROCEDURE insert_abt_actionlog (rconid IN NUMBER, action IN VARCHAR2);
-   FUNCTION insert_package_metrics (
-      rtagid IN NUMBER,
-      pkgname IN VARCHAR2,
-      vext IN VARCHAR2,
-      metricstring IN VARCHAR2
-   )
+   );
-      RETURN NUMBER;
-   PROCEDURE update_release_metrics (rtagid IN NUMBER);
-   FUNCTION return_vcs_tag(pvid IN NUMBER) RETURN VARCHAR2;
-   PROCEDURE update_vcs_details(ipv_id IN NUMBER, vcstag IN VARCHAR2, user_id IN NUMBER);
-   FUNCTION isSVN( pkgid IN NUMBER ) RETURN NUMBER;
-   FUNCTION isSVNbyName( pkgname IN VARCHAR2 ) RETURN NUMBER;
+   PROCEDURE write_action_log (
+      nuserid   IN   NUMBER,
+      nrtagid   IN   release_tags.rtag_id%TYPE
+   );
+/*================================================================================================*/
-END pk_rmapi;
+END pk_archive;
+/
 --------------------------------------------------------
 --  DDL for Package PK_BUILDAPI
 --------------------------------------------------------
       sdescription           IN   VARCHAR2
    );
 END pk_buildapi;
+/
 --------------------------------------------------------
---  DDL for Package PK_BUILDAPI_TEST
+--  DDL for Package PK_ENVIRONMENT
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE "PK_BUILDAPI_TEST" IS
+  CREATE OR REPLACE PACKAGE "PK_ENVIRONMENT" IS
 /*
 ------------------------------
-||  Last Modified:  S.Vukovic
+||  Last Modified:  G.Huddy
-||  Modified Date:  30/Mar/2005
+||  Modified Date:  28/May/2008
-||  Spec Version:   1.0
+||  Spec Version:   1.2
 ------------------------------
 */
-	/*================================================================================================*/
-	PROCEDURE Add_Product_Component ( nPvId IN NUMBER,
-								  sOsName IN VARCHAR2,
-								  sOrigFilePath IN VARCHAR2,
-								  sFileName IN VARCHAR2,
-								  sDestFilePath IN VARCHAR2,
-								  nByteSize IN NUMBER,
-								  sCRCcksum IN VARCHAR2 );
+	TYPE typeCur IS REF CURSOR;
-	PROCEDURE Remove_All_Product_Components ( nPvId IN NUMBER, sOsName IN VARCHAR2 );
-    /*================================================================================================*/
-	FUNCTION Get_OsId ( sOsName IN VARCHAR2 ) RETURN NUMBER;
-	/*================================================================================================*/
-	PROCEDURE Update_Build_Service ( sDatabaseServer IN VARCHAR2,
-			  					   	 sWebServer IN VARCHAR2,
-									 sMailServer IN VARCHAR2,
-									 sMailSender IN VARCHAR2);
-	/*================================================================================================*/
-	PROCEDURE ADD_GBE_MACHTYPE ( sGBEValue IN VARCHAR2 );
 	/*================================================================================================*/
+	FUNCTION SELECT_ENVIRONMENT_AREA ( cDlock IN PACKAGE_VERSIONS.DLOCKED%TYPE ) RETURN NUMBER;
+	FUNCTION GET_PACKAGE_AREA ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER;
+	FUNCTION GET_VIEW_LOCATION ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER;
+	PROCEDURE ADD_PACKAGE ( PvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
+	PROCEDURE ADD_PACKAGE_BULK ( PvIdList IN VARCHAR2, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
+	PROCEDURE REPLACE_PACKAGE ( newPvId IN NUMBER, oldPvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
+	FUNCTION REMOVE_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER, ForceRemove IN CHAR ) RETURN NUMBER;
+	PROCEDURE GET_ENVIRONMENT_ITEMS ( ViewType IN NUMBER, UserId IN NUMBER, RtagId IN NUMBER,  sViewIdShowList IN VARCHAR2, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
+	PROCEDURE GET_RELEASED_ITEMS ( ViewType IN NUMBER, UserId IN NUMBER, RtagId IN NUMBER,  sViewIdShowList IN VARCHAR2, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
+	PROCEDURE GET_PENDING_ITEMS ( ViewType IN NUMBER, UserId IN NUMBER, RtagId IN NUMBER,  sViewIdShowList IN VARCHAR2, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
+	PROCEDURE GET_WORK_IN_PROGRESS_ITEMS ( ViewType IN NUMBER, UserId IN NUMBER, RtagId IN NUMBER,  sViewIdShowList IN VARCHAR2, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
+	PROCEDURE GET_VIEW_CONTENT ( RtagId IN NUMBER, ViewId IN NUMBER, RecordSet OUT typeCur );
+	FUNCTION GET_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER;
+	PROCEDURE MAKE_RELEASE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
+	PROCEDURE MAKE_UNRELEASE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
+	PROCEDURE MAKE_PENDING ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
+	PROCEDURE MAKE_APPROVED ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
+	PROCEDURE MAKE_REJECT ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE REMOVE_GBE_MACHTYPE ( nGBE_ID IN NUMBER );
+	PROCEDURE APPROVE_MERGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
+	PROCEDURE CHANGE_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER, NewViewId IN NUMBER );
+	PROCEDURE FIND_PACKAGE ( sKeyword IN VARCHAR2, nRtagId IN NUMBER, nSearchArea IN NUMBER, RecordSet OUT typeCur );
+	PROCEDURE FIND_FILE ( sKeyword IN VARCHAR2, nRtagId IN NUMBER, nSearchArea IN NUMBER, nPageSize IN NUMBER, RecordSet OUT typeCur );
+	PROCEDURE AUTO_MAKE_RELEASE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER, VExt IN
+							 PACKAGE_VERSIONS.V_EXT%TYPE, SSV_EXT IN PACKAGE_VERSIONS.V_EXT%TYPE,
+							 CloneFromPvId IN NUMBER );
+	PROCEDURE GET_PRODRELEASE_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
+	PROCEDURE GET_INTEGRATION_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
+	PROCEDURE GET_TEST_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
+	PROCEDURE GET_DEPLOY_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
+	PROCEDURE GET_REJECT_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
 	/*================================================================================================*/
+END PK_ENVIRONMENT;
+/
+--------------------------------------------------------
+--  DDL for Package PK_LICENCING
+--------------------------------------------------------
-	PROCEDURE UPDATE_GBE_MACHTYPE ( nGBE_ID IN NUMBER, sGBEValue IN VARCHAR2 );
+  CREATE OR REPLACE PACKAGE "PK_LICENCING" IS
+/*
+------------------------------
+||  Last Modified:  G.Huddy
+||  Modified Date:  19/Aug/2008
+||  Spec Version:   1.0
+------------------------------
+*/
+   TYPE typeCur IS REF CURSOR;
-	/*================================================================================================*/
+    /*================================================================================================*/
-    PROCEDURE ADD_DAEMON ( sDaemonHostname IN VARCHAR2, nRtagId IN NUMBER, nGbeId IN NUMBER );
+   PROCEDURE ADD_LICENCE ( PvId IN NUMBER, licenceId IN NUMBER, UserId IN NUMBER );
+   PROCEDURE REMOVE_LICENCE ( PvId IN NUMBER, licenceId IN NUMBER, UserId IN NUMBER );
+   PROCEDURE CLONE_LICENCING( fromPvId IN NUMBER, toPvId IN NUMBER, UserId IN NUMBER );
+   FUNCTION  IS_LICENCED( PvId IN NUMBER, licenceId IN NUMBER) RETURN NUMBER;
+   PROCEDURE REMOVE_ALL_LICENCING( PvId IN NUMBER, UserId IN NUMBER );
-	/*================================================================================================*/
+   /*================================================================================================*/
-END PK_BUILDAPI_TEST;
+END PK_LICENCING;
+/
 --------------------------------------------------------
---  DDL for Package PK_PACKAGE_TEST
+--  DDL for Package PK_PACKAGE
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE "PK_PACKAGE_TEST"
+  CREATE OR REPLACE PACKAGE "PK_PACKAGE"
 IS
 /*
 ------------------------------
-||  Last Modified:  Rupesh Solanki
+||  Last Modified:  Jeremy Tweddle
-||  Modified Date:  18/05/2006
+||  Modified Date:  24/08/2007
 ||
 ------------------------------
 */
    TYPE typecur IS REF CURSOR;
 	  nrtagid 			  IN release_tags.rtag_id%TYPE,
 	  nnewrtagid 		  IN release_tags.rtag_id%TYPE,
 	  nuserid			  IN NUMBER
    );
-PROCEDURE modify_product_state (
+   PROCEDURE modify_product_state (
    	  npvid IN package_versions.pv_id%TYPE,
+	  nrtagid IN release_tags.rtag_id%TYPE,
 	  nstateid IN product_states.state_id%TYPE,
 	  nuserid IN NUMBER
    );
+   PROCEDURE add_code_review_url (
+        npvid           IN    NUMBER,
+        nprojid         IN    NUMBER,
+        surl            IN    VARCHAR2,
+        sreason         IN    VARCHAR2,
+        ddateofreview   IN    DATE
+   );
+   PROCEDURE update_code_review_url (
+        ncrid           IN    NUMBER,
+        nprojid         IN    NUMBER,
+        surl            IN    VARCHAR2,
+        sreason         IN    VARCHAR2
+   );
+   PROCEDURE remove_code_review_url (
+        ncrid           IN    NUMBER
+   );
 /*================================================================================================*/
-END pk_package_Test;
+END pk_package;
+/
 --------------------------------------------------------
 --  DDL for Package PK_PLANNED
 --------------------------------------------------------
 	/*================================================================================================*/
 END PK_PLANNED;
+/
 --------------------------------------------------------
---  DDL for Package PK_ENVIRONMENT_TEST
---------------------------------------------------------
-  CREATE OR REPLACE PACKAGE "PK_ENVIRONMENT_TEST" IS
-/*
-------------------------------
-||  Last Modified:  Rupesh Solanki
-||  Modified Date:  29/Jan/2007
-||  Spec Version:   1.1
-------------------------------
-*/
-	TYPE typeCur IS REF CURSOR;
-    /*================================================================================================*/
-	FUNCTION SELECT_ENVIRONMENT_AREA ( cDlock IN PACKAGE_VERSIONS.DLOCKED%TYPE ) RETURN NUMBER;
-	FUNCTION GET_PACKAGE_AREA ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER;
-	FUNCTION GET_VIEW_LOCATION ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER;
-	PROCEDURE ADD_PACKAGE ( PvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE ADD_PACKAGE_BULK ( PvIdList IN VARCHAR2, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE REPLACE_PACKAGE ( newPvId IN NUMBER, oldPvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	FUNCTION REMOVE_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER, ForceRemove IN CHAR ) RETURN NUMBER;
-	PROCEDURE GET_ENVIRONMENT_ITEMS ( ViewType IN NUMBER, UserId IN NUMBER, RtagId IN NUMBER,  sViewIdShowList IN VARCHAR2, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	PROCEDURE GET_RELEASED_ITEMS ( ViewType IN NUMBER, UserId IN NUMBER, RtagId IN NUMBER,  sViewIdShowList IN VARCHAR2, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	PROCEDURE GET_PENDING_ITEMS ( ViewType IN NUMBER, UserId IN NUMBER, RtagId IN NUMBER,  sViewIdShowList IN VARCHAR2, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	PROCEDURE GET_WORK_IN_PROGRESS_ITEMS ( ViewType IN NUMBER, UserId IN NUMBER, RtagId IN NUMBER,  sViewIdShowList IN VARCHAR2, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	PROCEDURE GET_VIEW_CONTENT ( RtagId IN NUMBER, ViewId IN NUMBER, RecordSet OUT typeCur );
-	FUNCTION GET_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER;
-	PROCEDURE MAKE_RELEASE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE MAKE_UNRELEASE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE MAKE_PENDING ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE MAKE_APPROVED ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE MAKE_REJECT ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE CHANGE_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER, NewViewId IN NUMBER );
-	PROCEDURE FIND_PACKAGE ( sKeyword IN VARCHAR2, nRtagId IN NUMBER, nSearchArea IN NUMBER, RecordSet OUT typeCur );
-	PROCEDURE FIND_FILE ( sKeyword IN VARCHAR2, nRtagId IN NUMBER, nSearchArea IN NUMBER, nPageSize IN NUMBER, RecordSet OUT typeCur );
-	PROCEDURE AUTO_MAKE_RELEASE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER, VExt IN
-			  			   	 PACKAGE_VERSIONS.V_EXT%TYPE, SSV_EXT IN PACKAGE_VERSIONS.V_EXT%TYPE,
-							 CloneFromPvId IN NUMBER );
-	PROCEDURE GET_PRODRELEASE_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	PROCEDURE GET_INTEGRATION_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	PROCEDURE GET_TEST_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	PROCEDURE GET_DEPLOY_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	PROCEDURE GET_REJECT_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	/*================================================================================================*/
-END PK_ENVIRONMENT_test;
-/
---------------------------------------------------------
---  DDL for Package PK_ENVIRONMENT
+--  DDL for Package PK_PROJECT
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE "PK_ENVIRONMENT" IS
+  CREATE OR REPLACE PACKAGE "PK_PROJECT" IS
-/*
-------------------------------
-||  Last Modified:  G.Huddy
-||  Modified Date:  28/May/2008
-||  Spec Version:   1.2
-------------------------------
-*/
-	TYPE typeCur IS REF CURSOR;
-	/*================================================================================================*/
-	FUNCTION SELECT_ENVIRONMENT_AREA ( cDlock IN PACKAGE_VERSIONS.DLOCKED%TYPE ) RETURN NUMBER;
-	FUNCTION GET_PACKAGE_AREA ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER;
-	FUNCTION GET_VIEW_LOCATION ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER;
-	PROCEDURE ADD_PACKAGE ( PvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE ADD_PACKAGE_BULK ( PvIdList IN VARCHAR2, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE REPLACE_PACKAGE ( newPvId IN NUMBER, oldPvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	FUNCTION REMOVE_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER, ForceRemove IN CHAR ) RETURN NUMBER;
-	PROCEDURE GET_ENVIRONMENT_ITEMS ( ViewType IN NUMBER, UserId IN NUMBER, RtagId IN NUMBER,  sViewIdShowList IN VARCHAR2, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	PROCEDURE GET_RELEASED_ITEMS ( ViewType IN NUMBER, UserId IN NUMBER, RtagId IN NUMBER,  sViewIdShowList IN VARCHAR2, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	PROCEDURE GET_PENDING_ITEMS ( ViewType IN NUMBER, UserId IN NUMBER, RtagId IN NUMBER,  sViewIdShowList IN VARCHAR2, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	PROCEDURE GET_WORK_IN_PROGRESS_ITEMS ( ViewType IN NUMBER, UserId IN NUMBER, RtagId IN NUMBER,  sViewIdShowList IN VARCHAR2, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	PROCEDURE GET_VIEW_CONTENT ( RtagId IN NUMBER, ViewId IN NUMBER, RecordSet OUT typeCur );
-	FUNCTION GET_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER;
-	PROCEDURE MAKE_RELEASE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE MAKE_UNRELEASE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE MAKE_PENDING ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE MAKE_APPROVED ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE MAKE_REJECT ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE APPROVE_MERGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE CHANGE_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER, NewViewId IN NUMBER );
-	PROCEDURE FIND_PACKAGE ( sKeyword IN VARCHAR2, nRtagId IN NUMBER, nSearchArea IN NUMBER, RecordSet OUT typeCur );
-	PROCEDURE FIND_FILE ( sKeyword IN VARCHAR2, nRtagId IN NUMBER, nSearchArea IN NUMBER, nPageSize IN NUMBER, RecordSet OUT typeCur );
-	PROCEDURE AUTO_MAKE_RELEASE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER, VExt IN
-							 PACKAGE_VERSIONS.V_EXT%TYPE, SSV_EXT IN PACKAGE_VERSIONS.V_EXT%TYPE,
-							 CloneFromPvId IN NUMBER );
-	PROCEDURE GET_PRODRELEASE_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	PROCEDURE GET_INTEGRATION_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	PROCEDURE GET_TEST_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
-	PROCEDURE GET_DEPLOY_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
+    TYPE typecur IS REF CURSOR;
+    /*------------------------------------------------------------------------*/
+    PROCEDURE update_base_url (
+        nprojid   IN  projects.proj_id%TYPE,
+        sbaseurl  IN  VARCHAR2
+    );
-	PROCEDURE GET_REJECT_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
+    /*------------------------------------------------------------------------*/
+    PROCEDURE update_project_config (
+    nprojid   IN  projects.proj_id%TYPE,
+    sbaseurl  IN  VARCHAR2,
+    sjirakey  IN  VARCHAR2
+    );
-	/*================================================================================================*/
+    /*------------------------------------------------------------------------*/
-END PK_ENVIRONMENT;
+    END pk_project;
+/
 --------------------------------------------------------
 --  DDL for Package PK_RELEASE
 --------------------------------------------------------
 	/*================================================================================================*/
 END PK_RELEASE;
+/
 --------------------------------------------------------
---  DDL for Package PK_WORK_IN_PROGRESS
+--  DDL for Package PK_RMAPI
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE "PK_WORK_IN_PROGRESS" IS
+  CREATE OR REPLACE PACKAGE "PK_RMAPI"
-/*
+IS
-------------------------------
-||  Last Modified:  S.Vukovic
-||  Modified Date:  2/May/2005
-||  Spec Version:   1.0
+   TYPE typecur IS REF CURSOR;
-------------------------------
-*/
+   FUNCTION package_dependencies (pkgname VARCHAR2, pkgversion VARCHAR2)
-	TYPE typeCur IS REF CURSOR;
+      RETURN typecur;
-    /*================================================================================================*/
+   FUNCTION wip_iteration_package (
-	PROCEDURE ADD_PACKAGE ( newPvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
+      projname        VARCHAR2,
-	PROCEDURE REMOVE_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
+      iterationname   VARCHAR2,
-	PROCEDURE REMOVE_PACKAGE_BULK ( PvIdList IN VARCHAR2, RtagId IN NUMBER, UserId IN NUMBER );
+      pkgname         VARCHAR2
+   )
+      RETURN typecur;
+   FUNCTION auto_make_vcsrelease (
-	FUNCTION GET_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER;
+      rtagid                   IN   NUMBER,
+      pkgname                  IN   VARCHAR2,
+      vext                     IN   VARCHAR2,
+      newpkgversion            IN   VARCHAR2,
-	PROCEDURE GET_VIEW_CONTENT ( RtagId IN NUMBER, ViewId IN NUMBER, RecordSet OUT typeCur );
+      vcstag                   IN   VARCHAR2,
+      dependenciesimportlist   IN   VARCHAR2,
-	PROCEDURE CHANGE_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER, NewViewId IN NUMBER );
+      isrippled                IN   NUMBER,
-	/*================================================================================================*/
+      username                 IN   VARCHAR2
+   )
+      RETURN NUMBER;
-END PK_WORK_IN_PROGRESS;
-/
---------------------------------------------------------
---  DDL for Package PK_LICENCING
---------------------------------------------------------
-  CREATE OR REPLACE PACKAGE "PK_LICENCING" IS
+   PROCEDURE import_dependencies (
-/*
-------------------------------
-||  Last Modified:  G.Huddy
+      pvid                     IN   NUMBER,
-||  Modified Date:  19/Aug/2008
+      dependenciesimportlist   IN   VARCHAR2,
-||  Spec Version:   1.0
+      userid                   IN   NUMBER
-------------------------------
-*/
+   );
+   FUNCTION return_last_package_version (pkgname IN VARCHAR2, rtagid IN NUMBER)
-   TYPE typeCur IS REF CURSOR;
+      RETURN VARCHAR2;
-    /*================================================================================================*/
-   PROCEDURE ADD_LICENCE ( PvId IN NUMBER, licenceId IN NUMBER, UserId IN NUMBER );
-   PROCEDURE REMOVE_LICENCE ( PvId IN NUMBER, licenceId IN NUMBER, UserId IN NUMBER );
-   PROCEDURE CLONE_LICENCING( fromPvId IN NUMBER, toPvId IN NUMBER, UserId IN NUMBER );
-   FUNCTION  IS_LICENCED( PvId IN NUMBER, licenceId IN NUMBER) RETURN NUMBER;
+   FUNCTION return_wip (pkgname IN VARCHAR2, rtagid IN NUMBER)
-   PROCEDURE REMOVE_ALL_LICENCING( PvId IN NUMBER, UserId IN NUMBER );
+      RETURN VARCHAR2;
-   /*================================================================================================*/
-END PK_LICENCING;
-/
---------------------------------------------------------
---  DDL for Package PK_ARCHIVE
+   PROCEDURE update_dash_board (rtagid IN NUMBER);
---------------------------------------------------------
-  CREATE OR REPLACE PACKAGE "PK_ARCHIVE"
+   FUNCTION exclude_from_build (
-IS
-/*
-------------------------------
+      pvid          IN   NUMBER,
-||  Author:  Rupesh Solanki
+      spkgversion   IN   VARCHAR2,
-||  Date:    26 October 2006
+      rtagid        IN   NUMBER,
-||  Version:   1.0
+      username      IN   VARCHAR2
-------------------------------
-*/
+   )
+      RETURN NUMBER;
-   /*================================================================================================*/
+   FUNCTION exclude_indirect_from_build (
-   PROCEDURE populate_packages_table;
+      pvid          IN   NUMBER,
+      spkgversion   IN   VARCHAR2,
+      rtagid        IN   NUMBER,
-   PROCEDURE populate_archive_data_table (
+      username      IN   VARCHAR2,
-      nrtagid   IN   release_tags.rtag_id%TYPE
+      rootpvid      IN   NUMBER,
+      rootcause     IN   VARCHAR2,
+      rootfile      IN   VARCHAR2
-   );
+   )
+      RETURN NUMBER;
-   PROCEDURE migrate_pv_to_archive_SCHEMA (nrtagid IN release_tags.rtag_id%TYPE);
+   PROCEDURE insert_abt_actionlog (rconid IN NUMBER, action IN VARCHAR2);
-   PROCEDURE migrate_rtag_to_archive_schema (
+   FUNCTION insert_package_metrics (
-      nrtagid   IN   release_tags.rtag_id%TYPE
+      rtagid IN NUMBER,
+      pkgname IN VARCHAR2,
+      vext IN VARCHAR2,
+      metricstring IN VARCHAR2
-   );
+   )
+      RETURN NUMBER;
-   PROCEDURE clean_up_archive_data_table (
-      nrtagid   IN   release_tags.rtag_id%TYPE
+   PROCEDURE update_release_metrics (rtagid IN NUMBER);
-   );
-   PROCEDURE write_action_log (
+   FUNCTION return_vcs_tag(pvid IN NUMBER) RETURN VARCHAR2;
-      nuserid   IN   NUMBER,
+   PROCEDURE update_vcs_details(ipv_id IN NUMBER, vcstag IN VARCHAR2, user_id IN NUMBER);
-      nrtagid   IN   release_tags.rtag_id%TYPE
+   FUNCTION isSVN( pkgid IN NUMBER ) RETURN NUMBER;
-   );
-/*================================================================================================*/
+   FUNCTION isSVNbyName( pkgname IN VARCHAR2 ) RETURN NUMBER;
-END pk_archive;
+END pk_rmapi;
+/
 --------------------------------------------------------
---  DDL for Package PK_RELEASE_TEST
+--  DDL for Package PK_WORK_IN_PROGRESS
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE "PK_RELEASE_TEST" IS
+  CREATE OR REPLACE PACKAGE "PK_WORK_IN_PROGRESS" IS
 /*
 ------------------------------
 ||  Last Modified:  S.Vukovic
-||  Modified Date:  12/Sep/2005
+||  Modified Date:  2/May/2005
-||  Body Version:   3.0
+||  Spec Version:   1.0
 ------------------------------
 */
 	TYPE typeCur IS REF CURSOR;
     /*================================================================================================*/
-	PROCEDURE New_Release ( sReleaseName IN VARCHAR2, sReleaseComments IN VARCHAR2, nProjId IN NUMBER, nSourceRtagId IN NUMBER, sIsBranched IN CHAR, nUserId IN NUMBER );
-	PROCEDURE Update_Release ( nRtagId IN NUMBER, sReleaseName IN VARCHAR2, sReleaseComments IN VARCHAR2, nParentRtagId IN NUMBER, nMASSRtagId IN NUMBER, nConfigSpecBranch IN VARCHAR2, nUserId IN NUMBER );
-	PROCEDURE MOVE_RELEASE ( sRtagIdList IN VARCHAR2, nProjId IN NUMBER, nUserId IN NUMBER  );
-	PROCEDURE Destroy_Release ( nRtagId IN NUMBER, nUserId IN NUMBER );
-	PROCEDURE Import_Release_Contents ( nSourceRtagId IN NUMBER, nTargetRtagId IN NUMBER, nUserId IN NUMBER );
-	PROCEDURE Clean_Release_Contents ( nRtagId IN NUMBER, nUserId IN NUMBER );
-	FUNCTION GET_PARENT_RTAG ( nRtagId IN NUMBER, nSourceRtagId IN NUMBER, cIsBranch IN CHAR ) RETURN NUMBER;
-	PROCEDURE UPDATE_DISPLAY_ORDER ( nProjId IN NUMBER );
-	PROCEDURE GET_VIEW_CONTENT ( RtagId IN NUMBER, ViewId IN NUMBER, RecordSet OUT typeCur );
 	PROCEDURE ADD_PACKAGE ( newPvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE REPLACE_PACKAGE ( newPvId IN NUMBER, oldPvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
 	PROCEDURE REMOVE_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
-	PROCEDURE REMOVE_MATCHING_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER );
+	PROCEDURE REMOVE_PACKAGE_BULK ( PvIdList IN VARCHAR2, RtagId IN NUMBER, UserId IN NUMBER );
 	FUNCTION GET_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER;
-	PROCEDURE RUN_POST_ACTIONS ( PvId IN NUMBER, RtagId IN NUMBER );
+	PROCEDURE GET_VIEW_CONTENT ( RtagId IN NUMBER, ViewId IN NUMBER, RecordSet OUT typeCur );
-	PROCEDURE RUN_POST_ACTIONS_BULK ( PvId IN NUMBER );
 	PROCEDURE CHANGE_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER, NewViewId IN NUMBER );
-	PROCEDURE ADD_RELEASE_REFERENCE ( nRtagId IN NUMBER, nRefRtagId IN NUMBER, ProblemString OUT VARCHAR2 );
-	PROCEDURE REMOVE_RELEASE_REFERENCE ( nRtagId IN NUMBER, nRefRtagId IN NUMBER );
-	PROCEDURE CAN_USER_WRITE_TO_RELEASE ( RtagId IN NUMBER, PvId IN NUMBER, Permission IN CHAR );
 	/*================================================================================================*/
-END PK_RELEASE_TEST;
+END PK_WORK_IN_PROGRESS;
+/
 --------------------------------------------------------
---  DDL for Package Body PK_PLANNED
+--  DDL for Package RM_ISSUES
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "PK_PLANNED" IS
+  CREATE OR REPLACE PACKAGE "RM_ISSUES" AS
-/*
-------------------------------
-||  Last Modified:  G.Huddy
-||  Modified Date:  05/Aug/2008
-||  Body Version:   1.2
-------------------------------
-*/
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE ADD_PACKAGE ( newPvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
-    oldPvId NUMBER;
-    ReleaseLocation VARCHAR2(4000);
-    IsPatch CHAR(1) := NULL;
-    sLocation VARCHAR2(4000) := NULL;
-    nRtagIdLocation NUMBER;
-BEGIN
-    /*--------------- Business Rules Here -------------------*/
-    /*-------------------------------------------------------*/
-    BEGIN
-        -- Check if Exists in "Work in progress" anywhere in the world, except "Closed mode" releases
-        SELECT proj.PROJ_NAME ||' > '|| rt.RTAG_NAME, rt.RTAG_ID  INTO sLocation, nRtagIdLocation
-          FROM PLANNED pl,
-               RELEASE_TAGS rt,
-               PROJECTS proj
-         WHERE pl.PV_ID = newPvId
-           AND pl.RTAG_ID = rt.RTAG_ID
-           AND rt.OFFICIAL != 'Y'
-           AND rt.PROJ_ID = proj.PROJ_ID;
-        EXCEPTION
-            WHEN NO_DATA_FOUND THEN
-                sLocation := NULL;
-    END;
-    IF (sLocation IS NULL) OR (nRtagIdLocation = RtagId) THEN
-        -- Add to "Pending" area
-        INSERT INTO PLANNED ( RTAG_ID, PV_ID, VIEW_ID, OPERATION )
-        VALUES( RtagId, newPvId, ViewId, 'R' );
-        /* LOG ACTION */
-        SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-          FROM PROJECTS proj,
-               RELEASE_TAGS rt
-         WHERE rt.PROJ_ID = proj.PROJ_ID
-           AND rt.RTAG_ID = RtagId;
-        Log_Action ( newPvId, 'add_to_planned', UserId, 'Location: '|| ReleaseLocation );
-    ELSE
-        RAISE_APPLICATION_ERROR (-20000, 'This version is already in Pending Area at '|| sLocation ||'.' );
-    END IF;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE REMOVE_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
-    ReleaseLocation VARCHAR2(4000);
-BEGIN
-    /*--------------- Business Rules Here -------------------*/
-    /*-------------------------------------------------------*/
-    -- Get release location for logging pusposes
-    SELECT proj.PROJ_NAME  ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-      FROM PROJECTS proj,
-           RELEASE_TAGS rt
-     WHERE rt.PROJ_ID = proj.PROJ_ID
-       AND rt.RTAG_ID = RtagId;
-    -- Delete from Work In Progress
-    DELETE
-      FROM PLANNED pl
-     WHERE pl.RTAG_ID = RtagId
-       AND pl.PV_ID = PvId;
-    Log_Action ( PvId, 'deleted_from_pending', UserId, 'Location: '|| ReleaseLocation );
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-FUNCTION GET_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER IS
-    ReturnValue NUMBER;
-BEGIN
-    SELECT pl.VIEW_ID INTO ReturnValue
-      FROM PLANNED pl
-     WHERE pl.RTAG_ID = RtagId
-       AND pl.PV_ID = PvId;
-    RETURN ReturnValue;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE GET_VIEW_CONTENT ( RtagId IN NUMBER, ViewId IN NUMBER, RecordSet OUT typeCur ) IS
-    IsBaseView CHAR(1);
-BEGIN
-    -- Check if the view is BASE VIEW
-    SELECT vi.BASE_VIEW INTO IsBaseView
-      FROM VIEWS vi
-     WHERE vi.VIEW_ID = ViewId;
-    IF (IsBaseView = 'Y') THEN
-        -- Get Base view content
-        OPEN RecordSet FOR
-        SELECT 0 AS PKG_STATE,
-               NULL AS DEPRECATED_STATE,
-               pv.pv_id,
-               pkg.pkg_name,
-               pv.pkg_version,
-               pv.dlocked,
-               pv.pv_description,
-               pv.BUILD_TYPE,
-               rel.operation
-          FROM PLANNED rel,
-               packages pkg,
-               package_versions pv
-         WHERE pv.pkg_id = pkg.pkg_id
-           AND rel.pv_id = pv.pv_id
-           AND rel.VIEW_ID = ViewId
-           AND rel.RTAG_ID = RtagId
-         ORDER BY UPPER(pkg.PKG_NAME);
-    ELSE
+	TYPE T_Cur IS REF CURSOR;
-        -- Get non base view content
-        OPEN RecordSet FOR
-        SELECT 0 AS PKG_STATE,
-               NULL AS DEPRECATED_STATE,
+	FUNCTION VerIsGrtrThanOrEqlToStart( XXstart IN NUMBER, XX IN NUMBER, YYstart IN NUMBER, YY IN NUMBER, ZZstart IN NUMBER, ZZ IN NUMBER ) RETURN NUMBER;
-               pv.pv_id,
-               pkg.pkg_name,
-               pv.pkg_version,
-               pv.dlocked,
-               pv.pv_description,
-               pv.BUILD_TYPE,
-               rel.operation
-          FROM PLANNED rel,
-               packages pkg,
-               package_versions pv,
-               VIEW_DEF vd
-         WHERE pv.pkg_id = pkg.pkg_id
+	FUNCTION VersionIsBetween( version IN VARCHAR2, version_start IN VARCHAR2, version_end IN VARCHAR ) RETURN NUMBER;
-           AND rel.pv_id = pv.pv_id
-           AND rel.RTAG_ID = RtagId
+	FUNCTION VerIsLessThanOrEqlToEnd( XXend IN NUMBER, XX IN NUMBER, YYend IN NUMBER, YY IN NUMBER, ZZend IN NUMBER, ZZ IN NUMBER ) RETURN NUMBER;
-           AND vd.VIEW_ID = ViewId
-           AND vd.PKG_ID = pv.PKG_ID
-         ORDER BY UPPER(pkg.PKG_NAME);
+	FUNCTION GetPkgId( pkgName IN VARCHAR2 ) RETURN NUMBER;
-    END IF;
+	PROCEDURE AllIssues( vCursor OUT T_Cur, pkg_name IN VARCHAR2, version_start IN VARCHAR2, version_end IN VARCHAR2 );
+	PROCEDURE LoadIssuesTable( vCursor OUT T_Cur, pkg_name IN VARCHAR2, version_start IN VARCHAR2, version_end IN VARCHAR2 );
+	PROCEDURE InsertIssuesForDepends( pvID IN NUMBER, top_pkgID IN NUMBER, top_pkgName IN VARCHAR2, top_pvID IN NUMBER, top_pkgVer IN VARCHAR2 );
+END Rm_Issues;
+/
+--------------------------------------------------------
+--  DDL for Package Body PK_APP_UTILS
+--------------------------------------------------------
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE CHANGE_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER, NewViewId IN NUMBER ) IS
+  CREATE OR REPLACE PACKAGE BODY "PK_APP_UTILS" IS
+/*
+------------------------------
+||  Last Modified:  S.Vukovic
+||  Modified Date:  26/Apr/2005
+||  Body Version:   1.0
+------------------------------
-BEGIN
+*/
-    UPDATE PLANNED pl SET
-    pl.VIEW_ID = NewViewId
-    WHERE pl.PV_ID = PvId
-      AND pl.RTAG_ID = RtagId;
-END;
 /*-------------------------------------------------------------------------------------------------------*/
--- DEVI-45275 This new function supports the ability to insert into the planned table, and existing
--- version of a package as part of a release-to-release merge operation carried out within release manager.
--- DEVI-49594 This function has subsequently been changed to allow a merge operation to cancel its
--- opposite operation, if the opposite already exists in the planned table. This supports user activity
--- via the Release Manager merge manager display
-PROCEDURE MERGE_PACKAGE ( newPvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER, mergeOperation IN CHAR ) IS
+PROCEDURE GET_CURRENT_PARAMETERS ( ProjId IN VARCHAR2, RtagId IN VARCHAR2, records OUT typeCur)   IS
-    ReleaseLocation VARCHAR2(4000);
-        entryExists NUMBER;
-        existingOperation CHAR;
 BEGIN
-    /*--------------- Business Rules Here -------------------*/
-    /*-------------------------------------------------------*/
-      -- Determine if the specified PV_ID already exists in the planned table....
-      SELECT COUNT (pl.pv_id) INTO entryExists
-      FROM PLANNED pl
-      WHERE pl.pv_id = newPvId
-      AND pl.rtag_id = RtagId
-      AND pl.view_id = ViewId;
+	IF (NOT RtagId IS NULL) THEN
-      -- If the specified PV_ID already exists in the planned table....
+		-- Case with RTAG_ID present
+		OPEN records FOR
+		SELECT rt.PROJ_ID,
-      IF entryExists = 1 THEN
+			   rt.RTAG_ID AS RTAG_ID
+		  FROM RELEASE_TAGS rt
+		 WHERE rt.RTAG_ID = TO_NUMBER(RtagId);
-         -- Get the operation for the existing entry
+	ELSIF (NOT ProjId IS NULL) THEN
-         SELECT pl.operation INTO existingOperation
+		-- Case with PROJ_ID present
-         FROM PLANNED pl
+		OPEN records FOR
-         WHERE pl.pv_id = newPvId
+		SELECT TO_NUMBER(ProjId) AS PROJ_ID,
-         AND pl.rtag_id = RtagId
+			   -1 AS RTAG_ID
-         AND pl.view_id = ViewId;
+		  FROM DUAL;
+	ELSE
-         -- Is the specified merge operation the opposite of the existing entry?
+		-- Case with none present
-         -- If it is not, then there is nothing to do, otherwise...
+		OPEN records FOR
-         -- NOTE: A = Add, S = Subtract
+		SELECT -1 AS PROJ_ID,
-         IF (mergeOperation = 'S' AND existingOperation = 'A')
+			   -1 AS RTAG_ID
-            OR (mergeOperation = 'A' AND existingOperation = 'S') THEN
+		  FROM DUAL;
-           -- It is the opposite, so effectively it cancels the existing entry
-           -- Remove the entry from the planned table
-           DELETE
+	END IF;
-            FROM PLANNED pl
-           WHERE pl.pv_id = newPvId
-             AND pl.rtag_id = RtagId
-             AND pl.view_id = ViewId;
-           -- Log action
-           SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-             FROM PROJECTS proj,
-                  RELEASE_TAGS rt
-            WHERE rt.PROJ_ID = proj.PROJ_ID
-              AND rt.RTAG_ID = RtagId;
-           Log_Action ( newPvId, 'deleted_from_pending', UserId, 'Location: '|| ReleaseLocation );
-         END IF;
-      ELSE
-         -- Add to Planned tabled
-         INSERT INTO PLANNED ( RTAG_ID, PV_ID, VIEW_ID, OPERATION )
-         VALUES( RtagId, newPvId, ViewId, mergeOperation );
-         -- Log Action
-         SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-          FROM PROJECTS proj,
-               RELEASE_TAGS rt
-         WHERE rt.PROJ_ID = proj.PROJ_ID
-         AND   rt.RTAG_ID = RtagId;
-         Log_Action ( newPvId, 'add_to_planned', UserId, 'Location: '|| ReleaseLocation );
-      END IF;
+   	--RETURN records;
 END;
 /*-------------------------------------------------------------------------------------------------------*/
-END PK_PLANNED;
+END PK_APP_UTILS;
+/
 --------------------------------------------------------
---  DDL for Package Body PK_RMAPI
+--  DDL for Package Body PK_ARCHIVE
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "PK_RMAPI"
+  CREATE OR REPLACE PACKAGE BODY "PK_ARCHIVE"
 IS
+/*
+------------------------------
+||  Author:  Rupesh Solanki
+||  Date:    26 October 2006
+||  Version:   1.0
+------------------------------
+*/
+/*---------------------------*/
+PROCEDURE populate_packages_table IS
-   /*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION package_dependencies (pkgname VARCHAR2, pkgversion VARCHAR2)
-      RETURN typecur
-   IS
-      npvid     NUMBER  := 0;
-      RECORDS   typecur;
-   BEGIN
+BEGIN
-      BEGIN
-         -- Get PV_ID --
-         SELECT pv.pv_id
-           INTO npvid
-           FROM PACKAGES pkg, package_versions pv
-          WHERE pv.pkg_id = pkg.pkg_id
-            AND pkg.pkg_name = pkgname
+		  INSERT INTO archive_manager.PACKAGES
-            AND pv.pkg_version = pkgversion;
-      EXCEPTION
-         WHEN NO_DATA_FOUND
-         THEN
-            raise_application_error (-20000, 'Package Not Found!');
-            --WHEN OTHERS THEN
-                  -- Consider logging the error and then re-raise
-            RAISE;
-      END;
-      -- Finally get package dependencies --
-      OPEN RECORDS FOR
-         SELECT dpv.pv_id, dpkg.pkg_name, dpv.pkg_version
-           FROM package_dependencies dep, PACKAGES dpkg, package_versions dpv
-          WHERE dep.pv_id = npvid
-            AND dpv.pkg_id = dpkg.pkg_id
-            AND dpv.pv_id = dep.dpv_id;
-      RETURN RECORDS;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION wip_iteration_package (
-      projname        VARCHAR2,
-      iterationname   VARCHAR2,
-      pkgname         VARCHAR2
-   )
+		  (
-      RETURN typecur
-   IS
-      nrtagid   NUMBER  := 0;
-      RECORDS   typecur;
-   BEGIN
-      BEGIN
-         -- Get latest rtag_id --
-         SELECT rt.rtag_id
-           INTO nrtagid
-           FROM projects proj, release_tags rt
+		  select * from packages where pkg_id not in
-          WHERE rt.proj_id = proj.proj_id
-            AND UPPER (proj.proj_name) = UPPER (projname)
+		  		  (select pkg_id from archive_manager.packages)
-            AND UPPER (rt.rtag_name) = UPPER (iterationname);
-         IF (nrtagid IS NULL)
-         THEN
-            raise_application_error (-20000,
-                                     'Work In Progress is Not Found!');
-         END IF;
-      EXCEPTION
-         WHEN NO_DATA_FOUND
-         THEN
-            raise_application_error (-20000,
-                                     'Work In Progress is Not Found!');
-            RAISE;
-      END;
+		  );
-      -- Finally get package dependencies --
+          INSERT INTO archive_manager.PROCESSES
-      OPEN RECORDS FOR
+          (
-         SELECT pv.pkg_version, pv.dlocked AS is_official, pv.pkg_label,
-                pv.src_path
-           FROM PACKAGES pkg, package_versions pv, work_in_progress wip
+          select * from processes where proc_id not in
-          WHERE pv.pkg_id = pkg.pkg_id
+            (select proc_id from archive_manager.processes)
-            AND wip.pv_id = pv.pv_id
+          );
-            AND wip.rtag_id = nrtagid
-            AND pkg.pkg_name = pkgname;
-      RETURN RECORDS;
-   END;
+END;
 /*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION auto_make_vcsrelease (
+   PROCEDURE populate_archive_data_table (
-      rtagid                   IN   NUMBER,
+      nrtagid   IN   release_tags.rtag_id%TYPE
-      pkgname                  IN   VARCHAR2,
-      vext                     IN   VARCHAR2,
-      newpkgversion            IN   VARCHAR2,
-      vcstag                   IN   VARCHAR2,
-      dependenciesimportlist   IN   VARCHAR2,
-      isrippled                IN   NUMBER,
-      username                 IN   VARCHAR2
+   )
-      RETURN NUMBER
    IS
-      pkgid                           NUMBER;
+/*
-      pvid                            NUMBER                        := 0;
+Reason: To populate the archive_data table with information regarding the
-      userid                          NUMBER;
-      dlocked                         VARCHAR2 (20)                 := NULL;
-      clonefrompvid                   NUMBER;
-      ssv_mm                          package_versions.v_mm%TYPE;
-      ssv_nmm                         package_versions.v_nmm%TYPE;
+         number of package versions that exist in other releases.
-      ssv_ext                         package_versions.v_ext%TYPE;
-      return_package_not_found        NUMBER                        := -1;
-      return_package_already_exists   NUMBER                        := -2;
-      return_not_approved             NUMBER                        := -3;
-      return_migrated_pkg             NUMBER                        := -4;
+*/
-      x_vcstypeid                     NUMBER;
+      numcount      NUMBER;
-      x_tag                           VARCHAR2(32);
-      x_label                         VARCHAR2(60);
+      numusedby     NUMBER;
-      x_srcpath                       VARCHAR2(2000);
-      p_srcpath                       VARCHAR2(2000);
+      numruntime    NUMBER;
-      -- Regular expression constituents
+      /* Get all the package versions in the release */
-      Token         VARCHAR2(16) := '([^:]+)';  -- a token is anything except a ':' character
-      Seperator     VARCHAR2(4)  := '::';       -- tokens will be seperated by '::'
-      BOL           VARCHAR2(4)  := '^';
+      CURSOR archive_cur
-      Anything      VARCHAR2(4)  := '.*';
-      ReplaceToken1 VARCHAR2(4)  := '\1';
+      IS
-      ReplaceToken2 VARCHAR2(4)  := '\2';
+         SELECT pv_id
-      ReplaceToken3 VARCHAR2(4)  := '\3';
+           FROM release_content
-      iprev_modifier_id               NUMBER;
+          WHERE rtag_id = nrtagid;
+      archive_rec   archive_cur%ROWTYPE;
    BEGIN
-      /*--------------- Business Rules Here -------------------*/
+/*--------------- Business Rules Here -------------------*/
-      IF (rtagid IS NULL)
-      THEN
-         raise_application_error (-20000, 'RtagId must be supplied.');
-      END IF;
-      IF (pkgname IS NULL)
-      THEN
-         raise_application_error (-20000, 'PkgName must be supplied.');
-      END IF;
-      IF (newpkgversion IS NULL)
-      THEN
-         raise_application_error (-20000, 'PkgVersion must be supplied.');
-      END IF;
-      IF (vcstag IS NULL)
-      THEN
-         raise_application_error (-20000, 'PkgVcsTag must be supplied.');
-      END IF;
-      IF (isrippled IS NULL) OR (isrippled < 0) OR (isrippled > 1)
-      THEN
-         raise_application_error
-            (-20000,
-             'IsRippled must be set to 1 (Is rippled build) or 0 (Is planned build).'
-            );
-      END IF;
-      IF (username IS NULL)
-      THEN
-         raise_application_error (-20000, 'UserName must be supplied.');
-      END IF;
-      -- Parse the PkgVcsTag
-      -- Sets up
-      --   x_tag, x_label, x_srcpath
-       BEGIN
-          -- Extract the first token - this will be the short tag name for the VCS (eg. 'CC', 'SVN', etc)
-          x_tag := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Anything, ReplaceToken1);
-          -- Decode the short tag
-          CASE x_tag
-             WHEN 'CC' THEN
-                -- extract the 2nd and 3rd tokens, those being the source path and label respectively
-                x_srcpath := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Anything, ReplaceToken2);
-                x_label   := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Token, ReplaceToken3);
-                -- NOTE: if reg-expr parsing/replacement fails, the x_... variable may receive the entire input string (vcstag), so
-                -- check for that error as well as the obvious zero-length string conditions.
-                IF LENGTH(x_srcpath) = 0 OR LENGTH(x_label) = 0 OR x_srcpath = vcstag OR x_label = vcstag THEN
-                   raise_application_error (-20000, 'VCS Tag contains insufficient or malformed data!');
-                END IF;
-                IF isSVNbyName(pkgname) > 0 THEN
-				    -- Don't allow migrated packages to be released from a CC label
-					return return_migrated_pkg;
-                END IF;
-             WHEN 'SVN' THEN
-                -- extract the 2nd token, that being the subversion tag
-                x_srcpath := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Anything, ReplaceToken2);
-                x_label   := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Token, ReplaceToken3);
-                -- NOTE: if reg-expr parsing/replacement fails, the x_... variable may receive the entire input string (vcstag), so
-                -- check for that error as well as the obvious zero-length string conditions.
-                IF LENGTH(x_srcpath) = 0 OR LENGTH(x_label) = 0 OR x_srcpath = vcstag OR x_label = vcstag THEN
-                   raise_application_error (-20000, 'VCS Tag contains insufficient or malformed data!');
-                END IF;
-             WHEN 'UC' THEN
-                -- nothing to extract, just assign defaults
-                x_srcpath := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Anything, ReplaceToken2);
-                x_label   := 'N/A';
-             ELSE
-                raise_application_error (-20000, 'Unrecognised VCS Tag!');
-          END CASE;
-       END;
-      -- Get the VCS_TYPE_ID for the version control system.
-      BEGIN
-         SELECT vt.vcs_type_id
-         INTO x_vcstypeid
-         FROM VCS_TYPE vt
-         WHERE vt.tag = x_tag;
-         EXCEPTION
-            WHEN NO_DATA_FOUND THEN
-               raise_application_error (-20000, 'Database is missing a version control system tag (' || x_tag || ')!' );
-      END;
-      -- Get user_id
-      BEGIN
-         SELECT usr.user_id
-           INTO userid
-           FROM users usr
-          WHERE UPPER (usr.user_name) = UPPER (username)
-            AND usr.is_disabled IS NULL;
-      EXCEPTION
-         WHEN NO_DATA_FOUND
-         THEN
-            raise_application_error (-20000,
-                                        'UserName '
-                                     || username
-                                     || ' is not valid or disabled.'
-                                    );
-      END;
 /*-------------------------------------------------------*/
+      OPEN archive_cur;
-      -- Create package if necessary
-      IF isrippled = 1
-      THEN
-         /* Ripple Build */
-         BEGIN
-            -- Make sure that package does not exist
-            SELECT pv.pv_id
-              INTO pvid
+      FETCH archive_cur
-              FROM package_versions pv, PACKAGES pkg
-             WHERE pv.pkg_id = pkg.pkg_id
-               AND pkg.pkg_name = pkgname
-               AND pv.pkg_version = newpkgversion;
-         EXCEPTION
-            WHEN NO_DATA_FOUND
-            THEN
-               pvid := 0;
+       INTO archive_rec;
-         END;
-         IF (pvid = 0)
-         THEN
-            -- Split current version in parts
-            split_version (newpkgversion, ssv_mm, ssv_nmm, ssv_ext);
-            BEGIN
-               -- Find package to be replaced with the ripple package
-               IF NVL (vext, '|LINK_A_NULL|') = NVL (ssv_ext, '|LINK_A_NULL|')
-               THEN
-                  SELECT pv.pv_id, pv.src_path
-                    INTO clonefrompvid, p_srcpath
-                    FROM PACKAGES pkg, package_versions pv,
-                         release_content rc
-                   WHERE rc.pv_id = pv.pv_id
-                     AND pv.pkg_id = pkg.pkg_id
-                     AND rc.rtag_id = rtagid
-                     AND pkg.pkg_name = pkgname
-                     AND NVL (pv.v_ext, '|LINK_A_NULL|') = NVL (ssv_ext, '|LINK_A_NULL|');
-               ELSE
-                  SELECT pv.pv_id, pv.src_path
-                    INTO clonefrompvid, p_srcpath
-                    FROM PACKAGES pkg, package_versions pv,
-                         release_content rc
-                   WHERE rc.pv_id = pv.pv_id
-                     AND pv.pkg_id = pkg.pkg_id
-                     AND rc.rtag_id = rtagid
-                     AND pkg.pkg_name = pkgname
-                     AND NVL (pv.v_ext, '|LINK_A_NULL|') = NVL (vext, '|LINK_A_NULL|');
-               END IF;
-            EXCEPTION
-               WHEN NO_DATA_FOUND
-               THEN
-                  raise_application_error
-                                        (-20000,
-                                            'Cannot get CloneFromPvId. VExt='
-                                         || vext
-                                         || ', RtagId='
-                                         || rtagid
-                                         || ', PkgName='
-                                         || pkgname
-                                         || ', SSV_EXT='
-                                         || ssv_ext
-                                        );
-            END;
-            IF NVL (vext, '|LINK_A_NULL|') = NVL (ssv_ext, '|LINK_A_NULL|')
-            THEN
-               -- Create package
-               seed_package_names_versions (pkgname,
-                                            newpkgversion,
-                                            userid,
-                                            pvid,
-                                            clonefrompvid
-                                           );
-            ELSE
-               -- Create package
-               seed_package_names_versions2 (pkgname,
-                                             newpkgversion,
-                                             userid,
-                                             pvid,
-                                             clonefrompvid
-                                            );
-            END IF;
-            -- Update Package reason for release
-            UPDATE package_versions pv
-               SET pv.comments = 'Rippled Build.',
-                   pv.build_type = 'Y'
-             WHERE pv.pv_id = pvid;
-         ELSE
-            -- Package already exists, it was built previously, and has just been re-built again probably due to the
-            -- fact that the archive was cleaned of the original build artifacts at some point, and those artifacts
-            -- are now needed once more. As such, we need to ensure that a new release note generation occurs so
-            -- reset the package_versions[pvid].release_notes_info field to enable that to happen.
-            UPDATE package_versions pv
-               SET pv.release_notes_info = null,
-                   pv.modified_stamp = ora_sysdatetime
-             WHERE pv.pv_id = pvid;
-            --DEVI-066151
-            log_action (pvid, 'package_rebuilt', userid, 'Package Re-built...');
+      WHILE archive_cur%FOUND
+      LOOP
-            RETURN return_package_already_exists;
+        /* How many packages depend on this package version? */
-         END IF;
+         SELECT COUNT (*)
+           INTO numusedby
+           FROM package_dependencies
+          WHERE dpv_id = archive_rec.pv_id;
-      ELSE
+        /* How many project releases use this package version?  */
+         SELECT COUNT (*)
+           INTO numcount
+           FROM release_content
-         /* Auto build from Pending area */
+          WHERE pv_id = archive_rec.pv_id;
-         -- Find package in pending area
-         BEGIN
-            SELECT pv.pv_id, pv.dlocked, pv.src_path
-              INTO pvid, dlocked, p_srcpath
-              FROM planned pl, package_versions pv, PACKAGES pkg
+        /* How many packages have this package version as runtime
-             WHERE pl.pv_id = pv.pv_id
-               AND pv.pkg_id = pkg.pkg_id
-               AND pl.rtag_id = rtagid
-               AND pkg.pkg_name = pkgname
-               AND pv.dlocked = 'A'
-               AND NVL (pv.v_ext, '|LINK_A_NULL|') = NVL (vext, '|LINK_A_NULL|')
-               AND rownum = 1
+        dependency? */
-             ORDER BY pv.modified_stamp;
-         EXCEPTION
+         SELECT COUNT (*)
-            WHEN NO_DATA_FOUND
+           INTO numruntime
-            THEN
+           FROM runtime_dependencies
-               pvid := 0;
+          WHERE rtd_id = archive_rec.pv_id;
-         END;
-         IF (pvid = 0)
-         THEN
-            -- Package does not exist in pending area, hence report it
+        /* Insert into the archive_data table if they are not runtime dependant
-            RETURN return_package_not_found;
+        and package dependant and they exist in that particular release only*/
-         ELSIF (dlocked != 'A')
+         IF numusedby = 0 AND numcount = 1 AND numruntime = 0
          THEN
-            -- Package is not approved for autobuild
+            INSERT INTO archive_data
-            RETURN return_not_approved;
+                        (rtag_id, pv_id
+                        )
+                 VALUES (nrtagid, archive_rec.pv_id
+                        );
          END IF;
-      END IF;
-      -- Ensure Source Path does not change
-      -- Do not expect the SVN development branch to change
-      -- From the previous package
-      IF ( x_tag = 'SVN' AND p_srcpath != x_srcpath )
-      THEN
-        raise_application_error (-20000, 'Source Path does not match (' || p_srcpath || ','|| x_srcpath || ')' );
-      END IF;
-      BEGIN
-         -- Import Dependencies
+         FETCH archive_cur
-         import_dependencies (pvid, dependenciesimportlist, userid);
-      END;
-      BEGIN
-         -- Split current version in parts
-         split_version (newpkgversion, ssv_mm, ssv_nmm, ssv_ext);
-         -- Update Package Details
-         UPDATE package_versions pv
-            SET pv.pkg_version = newpkgversion,
-                pv.v_ext = ssv_ext,
-                pv.v_mm = ssv_mm,
-                pv.v_nmm = ssv_nmm,
-                pv.src_path = x_srcpath,
-                pv.pkg_label = x_label,
-                pv.vcs_type_id = x_vcstypeid
-          WHERE pv.pv_id = pvid;
+          INTO archive_rec;
-      EXCEPTION
-         WHEN DUP_VAL_ON_INDEX
-         THEN
-            -- Package already exists, hence cannot be used for ripple build
-            RETURN return_package_already_exists;
-      END;
+      END LOOP;
-      -- Update the is_autobuildable
-      UPDATE package_versions
-         SET is_autobuildable = 'Y'
-       WHERE pv_id = pvid;
-      -- DEVI-063601
-      -- For planned builds the modifier_id shouldn't be set to buildadm.
-      -- To ensure this the modifier_id is obtained so it can be restored after
-      -- the function pk_environment.auto_make_release is called.
-      -- This function calls, change_state, which sets the modifier_id to the
-      -- specified userid, which for auto builds is buildadm.
-      SELECT pv.modifier_id INTO iprev_modifier_id
-      FROM package_versions pv WHERE pv.pv_id = pvid;
-      -- Now release package
-      pk_environment.auto_make_release (pvid,
-                                        rtagid,
-                                        userid,
-                                        vext,
-                                        ssv_ext,
-                                        clonefrompvid
-                                       );
-      -- DEVI-063601
-      -- if it is a planned build then restore the modifier_id to the previous modifier
-      UPDATE package_versions pv SET pv.modifier_id = iprev_modifier_id
-      WHERE pv.pv_id = pvid;
-      --Now clean the PLANNED_VERSIONS table
-      SELECT pkg_id
-        INTO pkgid
-        FROM PACKAGES
-       WHERE pkg_name = pkgname;
-      DELETE FROM planned_versions
-            WHERE pkg_id = pkgid AND pkg_version = newpkgversion;
-      RETURN pvid;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE import_dependencies (
+   PROCEDURE migrate_pv_to_archive_schema (
-      pvid                     IN   NUMBER,
+      nrtagid   IN   release_tags.rtag_id%TYPE
-      dependenciesimportlist   IN   VARCHAR2,
-      userid                   IN   NUMBER
+   )
    IS
-/*
-|| DependenciesImportList Format:
-|| "pkgA","1.0.0";"pkgB","2.0.0";
-||  OR 'pkgA','1.0.0';'pkgB','2.0.0';
-*/
-      TYPE tdictionary IS TABLE OF VARCHAR2 (4000)
-         INDEX BY VARCHAR2 (4000);
-      seperator         VARCHAR2 (2)           := '||';
-      pkgname           VARCHAR2 (4000);
-      pkgversion        VARCHAR2 (4000);
-      buildtype         VARCHAR2 (50);
-      pkgid             NUMBER;
-      vext              VARCHAR2 (4000);
-      dpvid             NUMBER;
-      slist             VARCHAR2 (4000);
-      cbuildtypes       tdictionary;
-      dependencyrow     NUMBER;
-      sdependency       VARCHAR2 (4000);
-      first_pos         VARCHAR2 (4000);
-      second_pos        VARCHAR2 (4000);
-      third_pos         VARCHAR2 (4000);
-      forth_pos         VARCHAR2 (4000);
-      citemcollection   relmgr_varchar2_tab_t  := relmgr_varchar2_tab_t ();
-      CURSOR curbuildtype
-      IS
-         SELECT dpv.pkg_id || seperator || dpv.v_ext AS pkgid_ext,
-                dep.build_type
-           FROM package_dependencies dep, package_versions dpv
-          WHERE dep.pv_id = pvid AND dep.dpv_id = dpv.pv_id;
-      recbuildtype      curbuildtype%ROWTYPE;
    BEGIN
-      slist := dependenciesimportlist;
-      -- Preformat String
-      IF NOT slist IS NULL
-      THEN
-         slist := REPLACE (slist, ' ');                      -- Remove spaces
-         slist := REPLACE (slist, UTL_TCP.crlf);
-         -- Remove new line and carriage-return characters
-         slist := REPLACE (slist, '''', '"');             -- Replace ' with "
-      END IF;
-      -- Get Current Dependencies
-      OPEN curbuildtype;
-      FETCH curbuildtype
-       INTO recbuildtype;
-      WHILE curbuildtype%FOUND
-      LOOP
-         cbuildtypes (recbuildtype.pkgid_ext) := recbuildtype.build_type;
-         FETCH curbuildtype
-          INTO recbuildtype;
-      END LOOP;
-      CLOSE curbuildtype;
-      -- Separate dependencies with ; separator
-      citemcollection := in_list_varchar2 (slist, ';');
-      BEGIN
-         -- Remove old dependencies
-         DELETE FROM package_dependencies dep
-               WHERE dep.pv_id = pvid;
-         -- Loop through dependencies
-         FOR dependencyrow IN 1 .. citemcollection.COUNT
-         LOOP
-            -- Extract pkg_name and pkg_version
-            sdependency := citemcollection (dependencyrow);
-            first_pos := INSTR (sdependency, '"', 1, 1);
-            second_pos := INSTR (sdependency, '"', 1, 2);
-            third_pos := INSTR (sdependency, '"', 1, 3);
-            forth_pos := INSTR (sdependency, '"', 1, 4);
-            pkgname :=
-               SUBSTR (sdependency,
-                       (first_pos + 1),
-                       (second_pos - first_pos - 1)
-                      );
-            pkgversion :=
-               SUBSTR (sdependency,
-                       (third_pos + 1),
-                       (forth_pos - third_pos - 1)
-                      );
-            -- Dependency must exits to be linked against
-            BEGIN
-               SELECT pv.pv_id, pv.pkg_id, pv.v_ext
-                 INTO dpvid, pkgid, vext
-                 FROM package_versions pv, PACKAGES pkg
-                WHERE pv.pkg_id = pkg.pkg_id
-                  AND pkg.pkg_name = pkgname
-                  AND pv.pkg_version = pkgversion;
-            EXCEPTION
-               WHEN NO_DATA_FOUND
-               THEN
-                  raise_application_error
-                                  (-20000,
-                                      'Dependency ['
-                                   || pkgname
-                                   || ' '
-                                   || pkgversion
-                                   || '] does not exist yet and cannot be used!'
-                                  );
-            END;
+      /* MIGRATION - PACKAGE_VERSIONS */
-            -- Get Build Type (i.e. BuildPackageArchive or LinkPackageArchive)
+      INSERT INTO archive_manager.package_versions
-            BEGIN
+         SELECT *
+           FROM package_versions
+          WHERE pv_id IN (SELECT pv_id
-               buildtype := cbuildtypes (pkgid || seperator || vext);
+                            FROM archive_data);
-               IF buildtype IS NULL
+      /* MIGRATION - PACKAGE_BUILD_ENV */
-               THEN
-                  -- Set build type to LinkPackageArchive by default
+      INSERT INTO archive_manager.package_build_env
-                  buildtype := 'L';
-               END IF;
-            EXCEPTION
+         SELECT *
-               WHEN NO_DATA_FOUND
+           FROM package_build_env
-               THEN
+          WHERE pv_id IN (SELECT pv_id
-                  buildtype := 'L';
+                            FROM archive_data);
-            END;
-            -- Insert Dependencies
+      /* PURGE DATA FROM PACKAGE_BUILD_ENV */
-            update_package_dependency (pvid,
+      DELETE FROM package_build_env
-                                       pkgname,
-                                       pkgversion,
-                                       buildtype,
-                                       userid,
+            WHERE pv_id IN (SELECT pv_id
-                                      );
+                              FROM archive_data);
-         END LOOP;
-      END;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION return_last_package_version (pkgname IN VARCHAR2, rtagid IN NUMBER)
-      RETURN VARCHAR2
+      /* MIGRATION - PACKAGE_BUILD_INFO */
-   IS
-      pkgversion   VARCHAR2 (4000);
+      INSERT INTO archive_manager.package_build_info
-   BEGIN
-      BEGIN
-         SELECT pv.pkg_version
+         SELECT *
-           INTO pkgversion
+           FROM package_build_info
-           FROM PACKAGES pkg, release_content rc, package_versions pv
-          WHERE pv.pv_id = rc.pv_id
+          WHERE pv_id IN (SELECT pv_id
-            AND pkg.pkg_id = pv.pkg_id
-            AND pkg.pkg_name = pkgname
-            AND rc.rtag_id = rtagid;
+                            FROM archive_data);
-         RETURN pkgversion;
+      /* PURGE DATA FROM PACKAGE_BUILD_info */
-      END;
+      DELETE FROM package_build_info
-   END;
+            WHERE pv_id IN (SELECT pv_id
+                              FROM archive_data);
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION return_wip (pkgname IN VARCHAR2, rtagid IN NUMBER)
-      RETURN VARCHAR2
+      /* MIGRATION - UNIT_TESTS  */
-   IS
-      pkgversion   VARCHAR2 (4000);
+      INSERT INTO archive_manager.unit_tests
-   BEGIN
-      BEGIN
-         SELECT pv.pkg_version
+         SELECT *
-           INTO pkgversion
+           FROM unit_tests
-           FROM PACKAGES pkg, work_in_progress wip, package_versions pv
-          WHERE pv.pv_id = wip.pv_id
+          WHERE pv_id IN (SELECT pv_id
-            AND pkg.pkg_id = pv.pkg_id
-            AND pkg.pkg_name = pkgname
-            AND wip.rtag_id = rtagid;
+                            FROM archive_data);
-         IF pkgversion IS NULL
-         THEN
-            SELECT pv.pkg_version
+      /* PURGE DATA FROM UNIT_TESTS*/
-              INTO pkgversion
+      DELETE FROM unit_tests
-              FROM PACKAGES pkg, planned pl, package_versions pv
-             WHERE pv.pv_id = pl.pv_id
+            WHERE pv_id IN (SELECT pv_id
-               AND pkg.pkg_id = pv.pkg_id
-               AND pkg.pkg_name = pkgname
-               AND pl.rtag_id = rtagid;
+                              FROM archive_data);
-         END IF;
-         RETURN pkgversion;
+      /* MIGRATION - PACKAGE_PROCESSES */
+      INSERT INTO archive_manager.package_processes
-      END;
+         SELECT *
+           FROM package_processes
-   END;
+          WHERE pv_id IN (SELECT pv_id
+                            FROM archive_data);
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE update_dash_board (rtagid IN NUMBER)
+      /* PURGE DATA FROM PACKAGE_PROCESSES*/
-   IS
-      projid       NUMBER;
-      projiddb     NUMBER;
-      total        NUMBER;
-      auto_total   NUMBER;
-      rtagiddb     NUMBER;
-   BEGIN
-      SELECT COUNT (*)
+      DELETE FROM package_processes
-        INTO total
-        FROM release_content rc, package_versions pv
+            WHERE pv_id IN (SELECT pv_id
-       WHERE pv.pv_id = rc.pv_id AND rc.rtag_id = rtagid;
+                              FROM archive_data);
-      SELECT COUNT (*)
+      /* MIGRATION - PACKAGE_DEPENDENCIES */
+      INSERT INTO archive_manager.package_dependencies
-        INTO auto_total
+         SELECT *
-        FROM release_content rc, package_versions pv
+           FROM package_dependencies
-       WHERE pv.pv_id = rc.pv_id
+          WHERE pv_id IN (SELECT pv_id
-         AND pv.is_autobuildable = 'Y'
-         AND rc.rtag_id = rtagid;
+                            FROM archive_data);
-      BEGIN
-         SELECT rtag_id
+      /* PURGE DATA FROM PACKAGE_DEPENDENCIES*/
-           INTO rtagiddb
+      DELETE FROM package_dependencies
-           FROM dash_board
+            WHERE pv_id IN (SELECT pv_id
-          WHERE rtag_id = rtagid;
+                              FROM archive_data);
-         SELECT proj_id
+      /* MIGRATION - CODE_REVIEWS */
-           INTO projiddb
+      INSERT INTO archive_manager.code_reviews
-           FROM dash_board
+         SELECT *
-          WHERE rtag_id = rtagid;
+           FROM code_reviews
-      EXCEPTION
-         WHEN NO_DATA_FOUND
+          WHERE pv_id IN (SELECT pv_id
-         THEN
-            rtagiddb := '';
+                            FROM archive_data);
-      END;
-      IF rtagiddb IS NULL
+      /* PURGE DATA FROM CODE_REVIEWS*/
-      THEN
-         SELECT proj_id
+      DELETE FROM code_reviews
-           INTO projid
+            WHERE pv_id IN (SELECT pv_id
-           FROM release_tags
+                              FROM archive_data);
-          WHERE rtag_id = rtagid;
-         INSERT INTO dash_board
-                     (proj_id, rtag_id, last_build_time, automated_packages,
-                      total_packages
+      /* MIGRATION - RUNTIME_DEPENDENCIES*/
-                     )
-              VALUES (projid, rtagid, ora_sysdatetime, auto_total,
+      INSERT INTO archive_manager.runtime_dependencies
-                      total
-                     );
-      ELSE
+         SELECT *
-         UPDATE dash_board
-            SET last_build_time = ora_sysdatetime,
+           FROM runtime_dependencies
-                automated_packages = auto_total,
-                total_packages = total
+          WHERE pv_id IN (SELECT pv_id
-          WHERE proj_id = projiddb AND rtag_id = rtagiddb;
+                            FROM archive_data);
-      END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION exclude_from_build (
-      pvid          IN   NUMBER,
+      /* PURGE DATA FROM RUNTIME_DEPENDENCIES*/
-      spkgversion   IN   VARCHAR2,
-      rtagid        IN   NUMBER,
+      DELETE FROM runtime_dependencies
-      username      IN   VARCHAR2
+            WHERE pv_id IN (SELECT pv_id
-   )
-      RETURN NUMBER
-   IS
-      userid              NUMBER;
-      outerrcode          NUMBER;
-      pkgid               NUMBER;
+                              FROM archive_data);
-      CURSOR dnr_duplicate_cur
+      /* MIGRATION - PACKAGE_DOCUMENTS */
-      IS
+      INSERT INTO archive_manager.package_documents
          SELECT *
-           FROM do_not_ripple
+           FROM package_documents
-          WHERE pv_id = pvid AND rtag_id = rtagid;
+          WHERE pv_id IN (SELECT pv_id
-      dnr_duplicate_rec   dnr_duplicate_cur%ROWTYPE;
+                            FROM archive_data);
-   BEGIN
-      outerrcode := -1;       -- Set default return error code to ERROR state
-      /*--------------- Business Rules Here -------------------*/
+      /* PURGE DATA FROM PACKAGE_DOCUMENTS*/
-      IF (rtagid IS NULL)
+      DELETE FROM package_documents
-      THEN
-         RETURN outerrcode;
+            WHERE pv_id IN (SELECT pv_id
---         raise_application_error (-20000, 'RtagId must be supplied.');
+                              FROM archive_data);
-      END IF;
-      IF (pvid IS NULL)
+      /* MIGRATION - PACKAGE_PATCHES */
+      INSERT INTO archive_manager.package_patches
-      THEN
+         SELECT *
-         RETURN outerrcode;
+           FROM package_patches
---         raise_application_error (-20000, 'PvId must be supplied.');
+          WHERE pv_id IN (SELECT pv_id
-      END IF;
+                            FROM archive_data);
-      IF (username IS NULL)
+      /* PURGE DATA FROM PACKAGE_PATCHES*/
-      THEN
+      DELETE FROM package_patches
-         RETURN outerrcode;
+            WHERE pv_id IN (SELECT pv_id
---         raise_application_error (-20000, 'UserName must be supplied.');
+                              FROM archive_data);
-      END IF;
-      -- Get user_id
+      /* MIGRATION - CQ_ISSUES */
-      BEGIN
-         SELECT usr.user_id
+      INSERT INTO archive_manager.cq_issues
-           INTO userid
+         SELECT *
-           FROM users usr
+           FROM cq_issues
-          WHERE UPPER (usr.user_name) = UPPER (username)
-            AND usr.is_disabled IS NULL;
+          WHERE pv_id IN (SELECT pv_id
-      EXCEPTION
-         WHEN NO_DATA_FOUND
-         THEN
-            RETURN outerrcode;
---            raise_application_error (-20000,
---                                        'UserName '
---                                     || username
---                                     || ' is not valid or disabled.'
---                                    );
+                            FROM archive_data);
-      END;
+      /* PURGE DATA FROM CQ_ISSUES*/
-      OPEN dnr_duplicate_cur;
+      DELETE FROM cq_issues
+            WHERE pv_id IN (SELECT pv_id
+                              FROM archive_data);
+      /* MIGRATION - ADDITIONAL_NOTES */
+      INSERT INTO archive_manager.additional_notes
+         SELECT *
-      FETCH dnr_duplicate_cur
+           FROM additional_notes
-       INTO dnr_duplicate_rec;
+          WHERE pv_id IN (SELECT pv_id
+                            FROM archive_data);
-      IF dnr_duplicate_cur%FOUND
+      /* PURGE DATA FROM ADDITIONAL_NOTES*/
-      THEN
+      DELETE FROM additional_notes
-         outerrcode := 0;
+            WHERE pv_id IN (SELECT pv_id
-      END IF;
+                              FROM archive_data);
-      IF dnr_duplicate_cur%NOTFOUND
+      /* MIGRATION - RELEASE_COMPONENTS */
+      INSERT INTO archive_manager.release_components
-      THEN
+         SELECT *
-         /* No duplicate recordset */
+           FROM release_components
-         unripple_package (pvid, rtagid, userid);
+          WHERE pv_id IN (SELECT pv_id
-         outerrcode := 0;                            -- Set return to SUCCESS
+                            FROM archive_data);
-      END IF;
+      /* PURGE DATA FROM RELEASE_COMPONENTS*/
-      CLOSE dnr_duplicate_cur;
+      DELETE FROM release_components
+            WHERE pv_id IN (SELECT pv_id
+                              FROM archive_data);
-      SELECT pkg_id
+      /* MIGRATION - IGNORE_WARNINGS */
+      INSERT INTO archive_manager.ignore_warnings
-        INTO pkgid
+         SELECT *
-        FROM package_versions
+           FROM ignore_warnings
-       WHERE pv_id = pvid;
+          WHERE pv_id IN (SELECT pv_id
+                            FROM archive_data);
+      /* PURGE DATA FROM IGNORE_WARNINGS*/
-      DELETE FROM planned_versions
+      DELETE FROM ignore_warnings
-            WHERE pkg_id = pkgid AND pkg_version = spkgversion;
+            WHERE pv_id IN (SELECT pv_id
+                              FROM archive_data);
+      /* PURGE DATA FROM WORK_IN_PROGRESS */
-      RETURN outerrcode;
+      DELETE FROM work_in_progress
-   END;
+            WHERE rtag_id = nrtagid;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION exclude_indirect_from_build (
-      pvid          IN   NUMBER,
-      spkgversion   IN   VARCHAR2,
-      rtagid        IN   NUMBER,
-      username      IN   VARCHAR2,
+      /* PURGE DATA FROM PLANNED */
-      rootpvid      IN   NUMBER,
-      rootcause     IN   VARCHAR2,
-      rootfile      IN   VARCHAR2
-   )
-      RETURN NUMBER
+      DELETE FROM planned
-   IS
-      userid              NUMBER;
-      outerrcode          NUMBER;
-      pkgid               NUMBER;
+            WHERE rtag_id = nrtagid;
-      CURSOR dnr_duplicate_cur
+      /* MIGRATION - JIRA_ISSUES */
-      IS
+      INSERT INTO archive_manager.jira_issues
          SELECT *
-           FROM do_not_ripple
+           FROM jira_issues
-          WHERE pv_id = pvid AND rtag_id = rtagid;
+          WHERE pv_id IN (SELECT pv_id
-      dnr_duplicate_rec   dnr_duplicate_cur%ROWTYPE;
+                            FROM archive_data);
-   BEGIN
-      outerrcode := -1;       -- Set default return error code to ERROR state
-      /*--------------- Business Rules Here -------------------*/
-      IF (rtagid IS NULL)
-      THEN
-         RETURN outerrcode;
---         raise_application_error (-20000, 'RtagId must be supplied.');
-      END IF;
-      IF (pvid IS NULL)
+      /* PURGE DATA FROM JIRA_ISSUES*/
-      THEN
+      DELETE FROM jira_issues
-         RETURN outerrcode;
+            WHERE pv_id IN (SELECT pv_id
---         raise_application_error (-20000, 'PvId must be supplied.');
+                              FROM archive_data);
-      END IF;
-      IF (username IS NULL)
+      /* MIGRATION - PRODUCT_COMPONENTS */
+      INSERT INTO archive_manager.product_components
-      THEN
+         SELECT *
-         RETURN outerrcode;
+           FROM product_components
---         raise_application_error (-20000, 'UserName must be supplied.');
+          WHERE pv_id IN (SELECT pv_id
-      END IF;
+                            FROM archive_data);
-      -- Get user_id
-      BEGIN
-         SELECT usr.user_id
-           INTO userid
-           FROM users usr
-          WHERE UPPER (usr.user_name) = UPPER (username)
-            AND usr.is_disabled IS NULL;
+      /* PURGE DATA FROM PRODUCT_COMPONENTS*/
-      EXCEPTION
-         WHEN NO_DATA_FOUND
-         THEN
-            RETURN outerrcode;
+      DELETE FROM product_components
---            raise_application_error (-20000,
+            WHERE pv_id IN (SELECT pv_id
---                                        'UserName '
---                                     || username
+                              FROM archive_data);
---                                     || ' is not valid or disabled.'
---                                    );
-      END;
-     /* No duplicate recordset */
+      /* MIGRATION - ACTION_LOG */
-     unripple_package_indirect (pvid, rtagid, userid, rootpvid, rootcause, rootfile);
+      INSERT INTO archive_manager.action_log
+         SELECT *
+           FROM action_log
+          WHERE pv_id IN (SELECT pv_id
-     outerrcode := 0;                            -- Set return to SUCCESS
+                            FROM archive_data);
-      SELECT pkg_id
+      /* PURGE DATA FROM ACTION_LOG*/
-        INTO pkgid
+      DELETE FROM action_log
-        FROM package_versions
+            WHERE pv_id IN (SELECT pv_id
-       WHERE pv_id = pvid;
+                              FROM archive_data);
-      DELETE FROM planned_versions
-            WHERE pkg_id = pkgid AND pkg_version = spkgversion;
-      RETURN outerrcode;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE insert_abt_actionlog (rconid IN NUMBER, action IN VARCHAR2)
-   IS
-   BEGIN
-      INSERT INTO abt_action_log
-                  (rcon_id, action_datetime, action
-                  )
-           VALUES (rconid, ora_sysdatetime, action
-                  );
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION insert_package_metrics (
+   PROCEDURE migrate_rtag_to_archive_schema (
-      rtagid                   IN   NUMBER,
+      nrtagid   IN   release_tags.rtag_id%TYPE
-      pkgname                  IN   VARCHAR2,
-      vext                     IN   VARCHAR2,
-      metricstring             IN   VARCHAR2
+   )
-      RETURN NUMBER
    IS
-      citemcollection          relmgr_varchar2_tab_t  := relmgr_varchar2_tab_t ();
-      lv_pvid                  NUMBER                 := 0;
+   BEGIN
-      rownumber                NUMBER;
+      /* MIGRATION - DO_NOT_RIPPLE */
-      rowcontent               VARCHAR2(4000);
+      INSERT INTO archive_manager.do_not_ripple
-      metricname               VARCHAR2(1000);
+         SELECT *
-      metricvalue              VARCHAR2(4000);
+           FROM do_not_ripple dnp
-      return_insert_error      NUMBER                 := -1;
-      return_insert_success    NUMBER                 := 0;
+          WHERE rtag_id = nrtagid;
-      /* Metrics */
-      lv_branches                 NUMBER;
-      lv_branchlist               VARCHAR2(4000);
-      lv_codefiles                NUMBER;
+      /* PURGE DATA FROM DO_NOT_RIPPLE */
-      lv_ignoredfiles             NUMBER;
-      lv_directories              NUMBER;
+      DELETE FROM do_not_ripple
-      lv_directorydepth           NUMBER;
+            WHERE rtag_id = nrtagid;
-      lv_totalfiles               NUMBER;
+      /* MIGRATION - ADVISORY_RIPPLES*/
-      lv_makefiles                NUMBER;
+      INSERT INTO archive_manager.advisory_ripples
-      lv_blanklines               NUMBER;
+         SELECT *
-      lv_codelines                NUMBER;
+           FROM advisory_ripple dnp
-      lv_commentlines             NUMBER;
+          WHERE rtag_id = nrtagid;
-   BEGIN
-      /*--------------- Business Rules Here -------------------*/
+      /* PURGE DATA FROM ADVISORY_RIPPLES*/
-      IF (rtagid IS NULL)
+      DELETE FROM advisory_ripple
-      THEN
-         RETURN return_insert_error;
+            WHERE rtag_id = nrtagid;
-      END IF;
-      IF (pkgname IS NULL)
+      /* MIGRATION - RELEASE_CONTENT */
+      INSERT INTO archive_manager.release_content
-      THEN
+         SELECT *
-         RETURN return_insert_error;
+           FROM release_content
-      END IF;
+          WHERE rtag_id = nrtagid;
-      IF (metricstring IS NULL)
+      /* PURGE DATA FROM RELEASE_CONTENT*/
-      THEN
+      DELETE FROM release_content
-         RETURN return_insert_error;
+            WHERE rtag_id = nrtagid;
-      END IF;
-      BEGIN
-         SELECT pv.pv_id
-           INTO lv_pvid
-           FROM package_versions pv, packages pkg, release_content rc
-          WHERE pv.pkg_id = pkg.pkg_id
-            AND rc.rtag_id = rtagid
-            AND pv.pv_id = rc.pv_id
+      /* MIGRATION - NOTIFICATION_HISTORY */
-            AND pkg.pkg_name = pkgname
+      INSERT INTO archive_manager.notification_history
-            AND NVL (pv.v_ext, '|LINK_A_NULL|') = NVL (vext, '|LINK_A_NULL|');
-      EXCEPTION
+         SELECT *
-           WHEN NO_DATA_FOUND
+           FROM notification_history
-           THEN
-                lv_pvid := 0;
+          WHERE rtag_id = nrtagid;
-      END;
+      /* PURGE DATA FROM NOTIFICATION_HISTORY*/
-      citemcollection := in_list_varchar2 (metricstring, ';');
+      DELETE FROM notification_history
+            WHERE rtag_id = nrtagid;
+      /* MIGRATION - BUILD_ORDER   */
-      FOR rownumber IN 1 .. citemcollection.COUNT
+      INSERT INTO archive_manager.build_order
-      LOOP
+         SELECT *
-         rowcontent := citemcollection(rownumber);
+           FROM build_order
-         metricvalue := SUBSTR(rowcontent, (INSTR(rowcontent, '=') + 1));
-         metricname := REGEXP_REPLACE(rowcontent, '=.*$', '');
+          WHERE rtag_id = nrtagid;
-         IF    metricname = 'ccbranch.count' THEN lv_branches := metricvalue;
-         ELSIF metricname = 'ccbranch.list' THEN lv_branchlist := metricvalue;
-         ELSIF metricname = 'code.files' THEN lv_codefiles := metricvalue;
+      /* PURGE DATA FROM BUILD_ORDER*/
-         ELSIF metricname = 'code.ignored' THEN lv_ignoredfiles := metricvalue;
-         ELSIF metricname = 'count.dir' THEN lv_directories := metricvalue;
-         ELSIF metricname = 'count.dirdepth' THEN lv_directorydepth := metricvalue;
-         ELSIF metricname = 'count.file' THEN lv_totalfiles := metricvalue;
-         ELSIF metricname = 'count.makefile' THEN lv_makefiles := metricvalue;
-         ELSIF metricname = 'lines.blank' THEN lv_blanklines := metricvalue;
-         ELSIF metricname = 'lines.code' THEN lv_codelines := metricvalue;
-         ELSIF metricname = 'lines.comment' THEN lv_commentlines := metricvalue;
-         END IF;
+      DELETE FROM build_order
-      END LOOP;
+            WHERE rtag_id = nrtagid;
-      IF (lv_pvid > 0)
+      /* MIGRATION - PROJECT_ACTION_LOG */
+      INSERT INTO archive_manager.project_action_log
-      THEN
+         SELECT *
-         -- Delete any existing entries for this package version to makes sure our data is untainted
-         DELETE FROM package_metrics pm
+           FROM project_action_log
-         WHERE pm.pv_id = lv_pvid;
+          WHERE rtag_id = nrtagid;
-         -- Insert the new data into the metrics table
+      /* PURGE DATA FROM PROJECT_ACTION_LOG */
-         INSERT INTO package_metrics
+      DELETE FROM project_action_log
-                     (pv_id, branches, branch_list, code_files, ignored_files, directories, directory_depth,
-                      total_files, makefiles, blank_lines, code_lines, comment_lines, created_stamp
-                     )
-              VALUES (lv_pvid, lv_branches, lv_branchlist, lv_codefiles, lv_ignoredfiles, lv_directories, lv_directorydepth,
-                      lv_totalfiles, lv_makefiles, lv_blanklines, lv_codelines, lv_commentlines, ora_sysdatetime
-                     );
+            WHERE rtag_id = nrtagid;
+      /* MIGRATION - DEPRECATED_PACKAGES */
+      INSERT INTO archive_manager.deprecated_packages
+         SELECT *
-         -- Now update the Release_Metrics Table
+           FROM deprecated_packages
-         update_release_metrics(rtagid);
+          WHERE rtag_id = nrtagid;
+      /* PURGE DATA FROM DEPRECATED_PACKAGES */
+      DELETE FROM deprecated_packages
-         RETURN return_insert_success;
+            WHERE rtag_id = nrtagid;
+      /* MIGRATION - RELEASE_TAGS */
+      INSERT INTO archive_manager.release_tags
-      ELSE
+         SELECT *
+           FROM release_tags
-         RETURN return_insert_error;
+          WHERE rtag_id = nrtagid;
+      /* PURGE DATA FROM PACKAGE_VERSIONS*/
+      DELETE FROM package_versions
+            WHERE pv_id IN (SELECT pv_id
+                              FROM archive_data);
-      END IF;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
+   PROCEDURE clean_up_archive_data_table (
-   PROCEDURE update_release_metrics (rtagid IN NUMBER)
+      nrtagid   IN   release_tags.rtag_id%TYPE
+   )
    IS
-      lv_totalpackages       NUMBER;
-      lv_autobuilt           NUMBER;
-      lv_linesofcode         NUMBER;
-      lv_unittested          NUMBER;
-      lv_autotested          NUMBER;
-      lv_numOfbranches       NUMBER;
-      lv_lastbuildtime       DATE;
    BEGIN
-      IF (rtagid > 0)
-      THEN
-         -- Get the total number of packages in this release and the number of
-         -- those that are autobuilt
-         SELECT COUNT (DISTINCT rc.pv_id),
-                COUNT (DISTINCT autobuilt_qry.pv_id)
-           INTO lv_totalpackages, lv_autobuilt
-           FROM release_content rc,
-                package_versions pv,
-                (
-                 SELECT rc.pv_id
-                   FROM release_content rc,
-                        package_versions pv
+      /* Cleaning Up The Archive_Data Table */
-                  WHERE pv.is_autobuildable = 'Y'
-                    AND pv.pv_id = rc.pv_id
-                    AND rc.rtag_id = rtagid
-                ) autobuilt_qry
-          WHERE pv.pv_id = rc.pv_id
-            AND rc.rtag_id = rtagid
-            AND autobuilt_qry.pv_id (+) = rc.pv_id;
-         -- Get the build time of the last package built in this release and the
-         -- total number of lines of code
-         SELECT MAX(pm.created_stamp),
-                SUM(pm.code_lines)
-           INTO lv_lastbuildtime, lv_linesofcode
-           FROM package_metrics pm, release_content rc
-          WHERE pm.pv_id = rc.pv_id
-            AND rc.rtag_id = rtagid;
-         -- Get the number of packages with unit tests in this release and the
-         -- number of those that are autotested
-         SELECT COUNT(DISTINCT ut.pv_id) INTO lv_unittested
-           FROM unit_tests ut,
+      DELETE FROM archive_data
-                release_content rc
-          WHERE ut.pv_id = rc.pv_id
-            AND rc.rtag_id = rtagid
-        AND ut.test_types_fk != 1;
-        SELECT COUNT(DISTINCT ut.pv_id) INTO lv_autotested
-          FROM unit_tests ut,
-               release_content rc
-         WHERE ut.pv_id = rc.pv_id
-           AND rc.rtag_id = rtagid
-           AND ut.test_types_fk = 7;
-         -- Count the number of unique branches in the packages in this release.
---         SELECT COUNT(DISTINCT branch) INTO lv_numOfbranches
---           FROM (
---                SELECT pv_id,
---                       regexp_substr(str, '[^,]+', 1, level) branch,
---                       level lv,
---                       lag(level, 1, 0) over (partition by pv_id order by level) lg
---                  FROM (
---                       SELECT pm.pv_id,
---                              ','||pm.branch_list str
---                         FROM package_metrics pm,
---                              release_content rc
---                        WHERE pm.pv_id = rc.pv_id
---                          AND rc.rtag_id = rtagid
---                       )
---                CONNECT BY regexp_substr(str, '[^,]+', 1, LEVEL) IS NOT NULL
---                )
---          WHERE lv != lg;
-         UPDATE release_metrics rm
-            SET rm.total_packages = lv_totalpackages,
-                rm.autobuilt = lv_autobuilt,
-                rm.lines_of_code = lv_linesofcode,
-                rm.unit_tested = lv_unittested,
-                rm.autotested = lv_autotested,
---                rm.branches = lv_numOfbranches,
-                rm.last_build_time = lv_lastbuildtime
-          WHERE rtag_id = rtagid;
+            WHERE rtag_id = nrtagid;
-         IF (SQL%ROWCOUNT = 0)
-         THEN
-            INSERT INTO release_metrics
-                        (rtag_id, total_packages, autobuilt, lines_of_code, unit_tested,
-                         autotested, last_build_time
-                        )
-                 VALUES (rtagid, lv_totalpackages, lv_autobuilt, lv_linesofcode, lv_unittested,
-                         lv_autotested, lv_lastbuildtime
-                        );
-         END IF;
---         IF (SQL%ROWCOUNT = 0)
---         THEN
---            INSERT INTO release_metrics
---                        (rtag_id, total_packages, autobuilt, lines_of_code, unit_tested,
---                         autotested, branches, last_build_time
---                        )
---                 VALUES (rtagid, lv_totalpackages, lv_autobuilt, lv_linesofcode, lv_unittested,
---                         lv_autotested, lv_numOfbranches, lv_lastbuildtime
---                        );
---         END IF;
---      ELSE
---         raise_application_error (-20000, 'RtagId must be supplied.');
-      END IF;
    END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION return_vcs_tag(pvid IN NUMBER) RETURN VARCHAR2
-   IS
-      vcstypeid    NUMBER;
-      vcstag       VARCHAR2(32);
-      label        VARCHAR2(60);
-      srcpath      VARCHAR2(2000);
-      vcstypeid_cc NUMBER;
-      vcstypeid_uc NUMBER;
-   BEGIN
-      -- Get the VCS_TYPE_ID for the ClearCase version control system. We do this so that we make no assumptions about
-      -- what the primary key value is for the ClearCase VCS entry.
-      BEGIN
-         SELECT vt.vcs_type_id
-         INTO vcstypeid_cc
-         FROM VCS_TYPE vt
-         WHERE vt.tag = 'CC';
-         EXCEPTION
-            WHEN NO_DATA_FOUND THEN
-               raise_application_error (-20000, 'Database is missing compulsory CC version control system tag!');
-      END;
-      -- Get the VCS_TYPE_ID for the Uncontrolled version control system. We do this so that we make no assumptions about
-      -- what the primary key value is for the Uncontrolled VCS entry.
-      BEGIN
-         SELECT vt.vcs_type_id
-         INTO vcstypeid_uc
-         FROM VCS_TYPE vt
-         WHERE vt.tag = 'UC';
-         EXCEPTION
-            WHEN NO_DATA_FOUND THEN
-               raise_application_error (-20000, 'Database is missing compulsory UC version control system tag!');
-      END;
-      -- Get the PKG_LABEL, SRC_PATH, VCS_TYPE_ID for the package version
-      -- As additional VCS types are introduced, we may have to extend what this SELECT statement returns
-      BEGIN
-         SELECT pv.pkg_label, pv.src_path,
-           (CASE WHEN pv.pkg_label = 'N/A' AND pv.vcs_type_id IS NULL THEN vcstypeid_uc
-                 WHEN pv.vcs_type_id IS NULL THEN vcstypeid_cc
-                 ELSE pv.vcs_type_id END) AS vcs_type_id
-         INTO label, srcpath, vcstypeid
-         FROM PACKAGE_VERSIONS pv
-         WHERE pv.pv_id = pvid;
-         EXCEPTION
-            WHEN NO_DATA_FOUND THEN
-               raise_application_error (-20000, 'Package Version Not Found!');
-      END;
-      -- Get the VCS TAG for the VCS_TYPE_ID.
-      BEGIN
-         SELECT vt.tag
-         INTO vcstag
-         FROM VCS_TYPE vt
-         WHERE vt.vcs_type_id = vcstypeid;
-         EXCEPTION
-            WHEN NO_DATA_FOUND THEN
-               raise_application_error (-20000, 'Could not get VCS Tag for the package version!');
-      END;
-      -- Return value depending upon which VCS Tag is being used.
-      -- As additional VCS types are introduced, we have to add additional WHEN clauses
-      CASE vcstag
-         WHEN 'CC' THEN
-            RETURN vcstag || '::' || srcpath || '::' || label;
-         WHEN 'SVN' THEN
-            RETURN vcstag || '::' || srcpath || '::' || label;
-         ELSE
-            RETURN vcstag || '::';
-      END CASE;
-   END;
 /*-------------------------------------------------------------------------------------------------------*/
-/*-------------------------------------------------------------------------------------------------------
-Name:        update_vcs_details
+   PROCEDURE write_action_log (
-Description: Updates the Version Control System (vcs) details specified in the vcstag
-             parameter for the specified package version.
-             The specified package vcstag is parsed and split into 3 fields:
-                vcs type, src path, label
+      nuserid   IN   NUMBER,
-             These fields are then stored for the specified pv_id in the package_versions, table.
-             An action is recorded in the action log and provides information for tracking and
-             for restoring the previous vcs settings if a recovery is required.
-Paramters:
-             ipv_id:     Package version identifier
+      nrtagid   IN   release_tags.rtag_id%TYPE
-             vcstag:     Full version control tag.
-                         Examples:
-                             "SVN::AUPERASVN01/DPG_SWBase/tools/trunk::daf_tools_25.1.7027.cr@1234"
-                            "CC::/DPG_SWBase/tools::daf_tools_25.1.7016.cr"
-             user_id:    Identifier of the user that is performing this function.
-*/
+   )
-PROCEDURE update_vcs_details(ipv_id IN NUMBER, vcstag IN VARCHAR2, user_id IN NUMBER)
    IS
-      ivcs_type_id   NUMBER;
-      svcs_type      VARCHAR2(128);
-      ssrc_path      VARCHAR2(512);
-      spkg_label     VARCHAR2(512);
-      spattern       VARCHAR2(64);
-      saction_desc   VARCHAR2(2048);
-      old_vcs_type   VARCHAR2(128);
-      old_src_path   VARCHAR2(512);
-      old_pkg_label  VARCHAR2(512);
-      old_pkg_vcstag VARCHAR2(1024);
-      i              NUMBER;
-      vcount         NUMBER;
-   BEGIN
-     -- Split vcs tag into fields: vcs type, src path, label
-     -- Fields are separated by '::'
-     -- e.g "CC::/DPG_SWBase/tools::daf_tools_25.1.7016.cr"
-     -- The below regular expression pattern has groups to achieve this.
-     spattern:= '^([^:]*)::([^:]*)(::(.*))?$';
-     --As Oracle 10g does not allow REGEXP_SUBSTR to return a group,
-     --REGEXP_REPLACE is used instead (Note: Oracle 11g has this enhancement).
-     SELECT REGEXP_REPLACE(vcstag,spattern, '\1') INTO svcs_type  FROM DUAL;
-     SELECT REGEXP_REPLACE(vcstag,spattern, '\2') INTO ssrc_path  FROM DUAL;
-     SELECT REGEXP_REPLACE(vcstag,spattern, '\4') INTO spkg_label FROM DUAL;
-     -- Validate vcs type
-     BEGIN
-       SELECT vc.vcs_type_id INTO ivcs_type_id FROM vcs_type vc WHERE UPPER(svcs_type) = UPPER(vc.tag);
-     EXCEPTION
-       WHEN NO_DATA_FOUND THEN
-         raise_application_error (-20000, 'Invalid vcs type: ' || '"' || svcs_type || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
-       --RAISE;
-     END;
-     -- If Clearcase
-     IF (ivcs_type_id = 2) THEN
-       -- Validate source path
-       IF NOT REGEXP_LIKE(ssrc_path,'^(\\|\/)[a-z]+[0-9a-z_\.\-\\\/ -]*$','i') THEN
-         raise_application_error (-20000, 'Invalid CC src path: ' || '"' || ssrc_path || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
-       END IF;
-       -- Validate label
-       -- For clearcase the label must be specified. For subversion it is not required.
-       IF NOT REGEXP_LIKE(spkg_label,'^[0-9a-z_\.\-]+$','i') THEN
-         raise_application_error (-20000, 'Invalid CC label:' || '"' || spkg_label || '"' || ' for package version:' || ipv_id || ', vcstag:' || '"' || vcstag || '"');
-       END IF;
-     -- if Subversion
-     ELSIF (ivcs_type_id = 23) THEN
-       -- general validity
-       -- Not as picky as the RM Data entry
-       IF NOT REGEXP_LIKE(ssrc_path,'^([0-9a-z_\.\-]+)(\/([0-9a-z_\.\-]+))+$','i') THEN
-         raise_application_error (-20000, 'Invalid SVN src path: ' || '"' || ssrc_path || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
-       END IF;
-       -- Validate Tag
-       -- May be a Peg or a Label
-       IF NOT REGEXP_LIKE(spkg_label,'^@?[0-9]+$','i') THEN
-           IF NOT REGEXP_LIKE(spkg_label,'^[0-9a-z_\.\-]+($|@[0-9]+)','i') THEN
-             raise_application_error (-20000, 'Invalid SVN tag:' || '"' || spkg_label || '"' || ' for package version:' || ipv_id || ', vcstag:' || '"' || vcstag || '"');
-           END IF;
-       END IF;
-        -- Check for suitable ending
-        IF NOT REGEXP_LIKE(ssrc_path,'(\/tags$)|(\/branches\/)|(\/trunk$)','i') THEN
-            raise_application_error (-20000, 'Must end in /trunk or /tags/ or /branches/.... Invalid SVN src path: ' || '"' || ssrc_path || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
-        END IF;
-       -- Check for combined use of tags, branches, trunk or repeats of each
-       -- Count occurrences of /tags or /branches/ or /trunk
-       vcount:=0;
-       i:=1;
-       WHILE i > 0 LOOP
-         i:=REGEXP_INSTR(ssrc_path,'(\/tags(\/|$))|(\/branches(\/|$))|(\/trunk(\/|$))',i,1,1,'i');
-         IF i > 0 THEN
-           -- if found then increment count
-           vcount:=vcount+1;
-           i:=i-1;  -- move index back to "/"
-         END IF;
-       END LOOP;
-       IF vcount = 0  THEN
-         raise_application_error (-20000, 'Must contain exactly one of the keywords /trunk, /tags, /branches/. Invalid SVN src path: ' || '"' || ssrc_path || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
-       END IF;
-       IF vcount > 1  THEN
-         raise_application_error (-20000, 'Combined use of /trunk, /tags, or /branches/. Invalid SVN src path: ' || '"' || ssrc_path || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
-       END IF;
-     END IF;
-     BEGIN
-       -- Get current vcs tag for specified package version
-       SELECT pv.src_path, pv.pkg_label, vc.tag as vcs_type
-       INTO old_src_path, old_pkg_label, old_vcs_type
-       FROM package_versions pv, vcs_type vc
-       WHERE pv.pv_id = ipv_id
-       AND pv.vcs_type_id = vc.vcs_type_id (+);
-     EXCEPTION
-       WHEN NO_DATA_FOUND THEN
-         raise_application_error (-20000, 'Package version not found: ' || ipv_id);
-     END;
-     old_pkg_vcstag:= old_vcs_type || '::' || old_src_path;
-     IF (old_pkg_label IS NOT NULL) THEN
-       old_pkg_vcstag:=old_pkg_vcstag || '::' || old_pkg_label;
-     END IF;
-     -- Create action description
-     -- This description will contain the old and new tags.
-     -- Its purpose is to provide information for tracking and for restoring previous vcs settings if a recovery is required.
-     -- An example of the action description is below:
-     --   OldTag:CC::/DPG_SWBase/tools::daf_tools_25.1.7016.cr NewTag:SVN::DPG_SWBase/tools/tags/daf_tools_25.1.7027.cr
-     saction_desc:='OldTag:' || old_pkg_vcstag || ' ' || 'NewTag:' || vcstag;
-     -- Store new vcs details
-     UPDATE package_versions SET
-       src_path = ssrc_path,
-       pkg_label = spkg_label,
-       vcs_type_id = ivcs_type_id
-     WHERE
-       pv_id = ipv_id;
-     -- Store action in action log so that we can back track and also restore vcs settings if required.
-     log_action (ipv_id,'VcsConversion',user_id,saction_desc);
-   END update_vcs_details;
-/*-------------------------------------------------------------------------------------------------------
-Name:        isSVN
-Description: Determine if any of the packages versions are controlled under SVN
-			 Intended to be used to prevent users from releasing a package
-			 that has been migrated to SVN
-Paramters:	pkgid:     Package ID
-Returns:	Number of versions under SVN version control
-*/
-FUNCTION isSVN( pkgid IN NUMBER )
-    RETURN NUMBER
-    IS
-    svncount   NUMBER  := 0;
-   BEGIN
-        SELECT COUNT(*) INTO svncount FROM PACKAGE_VERSIONS pv WHERE pv.PKG_ID = pkgid AND pv.VCS_TYPE_ID = 23;
-        RETURN (svncount);
-   END;
-/*-------------------------------------------------------------------------------------------------------
-Name:        isSVNbyName
-Description: Determine if any of the packages versions are controlled under SVN
-			 Intended to be used to prevent users from releasing a package
-			 that has been migrated to SVN
-Paramters:	pkgname:	Package Name
-Returns:	Number of versions under SVN version control
-*/
-FUNCTION isSVNbyName( pkgname IN VARCHAR2 )
-    RETURN NUMBER
-IS
-   svncount   NUMBER  := 0;
    BEGIN
+      /* Write Into Archive_Action_Log Table */
+      INSERT INTO archive_action_log
-        SELECT COUNT(*) INTO svncount FROM PACKAGE_VERSIONS pv, PACKAGES pkg WHERE pkg.pkg_name = pkgname AND pv.PKG_ID = pkg.pkg_id AND pv.VCS_TYPE_ID = 23;
+                  (user_id, date_time_stamp, rtag_id,
-        RETURN (svncount);
+                   description
-   END;
+                  )
+           VALUES (nuserid, ora_sysdatetime, nrtagid,
+                   'Release has been archived to the ARCHIVE_MANAGER schema'
+                  );
    END;
+/*-------------------------------------------------------------------------------------------------------*/
+END pk_archive;
+/
 --------------------------------------------------------
 --  DDL for Package Body PK_BUILDAPI
 --------------------------------------------------------
                                  );
    END;
 END pk_buildapi;
+/
 --------------------------------------------------------
---  DDL for Package Body PK_PACKAGE
+--  DDL for Package Body PK_ENVIRONMENT
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "PK_PACKAGE"
+  CREATE OR REPLACE PACKAGE BODY "PK_ENVIRONMENT"
 IS
    /*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE new_version (
-      nlastpvid                   IN       NUMBER,
-      snewpkgversion              IN       VARCHAR2 DEFAULT NULL,
+   FUNCTION select_environment_area (cdlock IN package_versions.dlocked%TYPE)
-      cbuildtype                  IN       CHAR,
-      nsettopvid                  IN       NUMBER DEFAULT NULL,
-      nrtagid                     IN       NUMBER,
-      nuserid                     IN       NUMBER,
-      enumissues_state_imported   IN       NUMBER,
-      returnpvid                  OUT      NUMBER
+     RETURN NUMBER
-   )
    IS
-      origpkg_id                  package_versions.pkg_id%TYPE;
-      origdlocked                 package_versions.dlocked%TYPE;
-      ssv_mm                      package_versions.v_mm%TYPE;
-      ssv_nmm                     package_versions.v_nmm%TYPE;
-      ssv_ext                     package_versions.v_ext%TYPE;
-      spackageversion             VARCHAR2 (4000);
-      nissuestypes                NUMBER;
-      nviewid                     NUMBER;
-      reccount                    NUMBER;
-      isreleased                  package_versions.dlocked%TYPE := 'N';
-      slabel                      VARCHAR2 (4000)               := NULL;
-      CURSOR package_versions_cur
-      IS
-         SELECT pv.pv_id, pv.is_patch, pv.dlocked
-           FROM package_versions pv
-          WHERE pv.pkg_version = snewpkgversion
-            AND pv.pkg_id IN (SELECT DISTINCT origpv.pkg_id
-                                         FROM package_versions origpv
-                                        WHERE origpv.pv_id = nlastpvid);
-      package_versions_rec package_versions_cur%ROWTYPE;
-      CURSOR clone_package_versions_cur
-      IS
-         SELECT DISTINCT pkg_id, dlocked
-                    FROM package_versions
-                   WHERE pv_id = nlastpvid;
-      clone_package_versions_rec clone_package_versions_cur%ROWTYPE;
    BEGIN
+      /*
+     || N - unlocked
-      spackageversion := snewpkgversion;
+     || Y - release and locked
+     || P - penging approval
+     || A - approved package ready for auto-build
+     */
+     IF cdlock = 'N' OR cdlock = 'R'
+     THEN
+       -- WORK IN PROGRESS --
+       RETURN 0;
+     ELSIF cdlock = 'P' OR cdlock = 'A'
+     THEN
+       -- PENDING --
+       RETURN 1;
-      IF nsettopvid IS NULL
+     ELSIF cdlock = 'Y'
-      THEN
+     THEN
+       -- RELEASED --
+       RETURN 2;
+     ELSE
+       -- NOT FOUND --
+       raise_application_error
+                   (-20000,
-         -- SetToPv_id is not supplied, hence proceed.
+                      'Cannot decide where to place package. [cDlock='
+                    || cdlock
+                    || ']'
+                   );
+     END IF;
+   END;
-         /* ---------------------------------------------------- */
+/*-------------------------------------------------------------------------------------------------------*/
-         /* Find id package_version exists                       */
+   FUNCTION get_package_area (pvid IN NUMBER, rtagid IN NUMBER)
-         /* ---------------------------------------------------- */
+     RETURN NUMBER
+   IS
-         OPEN package_versions_cur;
+     envtab   NUMBER         := -1;
+     CURSOR curarea
+     IS
+       SELECT 2 AS envtab
-         FETCH package_versions_cur
+         FROM release_content rc
+        WHERE rc.rtag_id = rtagid AND rc.pv_id = pvid
+       UNION
+       SELECT 0 AS envtab
-          INTO package_versions_rec;
+         FROM work_in_progress wip
+        WHERE wip.rtag_id = rtagid AND wip.pv_id = pvid
+       UNION
+       SELECT 1 AS envtab
+         FROM planned pl
+        WHERE pl.rtag_id = rtagid AND pl.pv_id = pvid;
-         IF package_versions_cur%NOTFOUND
+     recarea   curarea%ROWTYPE;
-         THEN
+   BEGIN
-            ---  Create brand new package ---
-            SELECT seq_pv_id.NEXTVAL
-              INTO returnpvid
-              FROM DUAL;
+     OPEN curarea;
-            -- Split Version to get extention + other
+     FETCH curarea
-            split_version (spackageversion, ssv_mm, ssv_nmm, ssv_ext);
+      INTO recarea;
-            -- Get previous package to clone from
+     IF curarea%FOUND
+     THEN
-            OPEN clone_package_versions_cur;
+       envtab := recarea.envtab;
+     END IF;
-            FETCH clone_package_versions_cur
-             INTO clone_package_versions_rec;
+     CLOSE curarea;
-            origpkg_id := clone_package_versions_rec.pkg_id;
+     RETURN envtab;
-            origdlocked := clone_package_versions_rec.dlocked;
+   END;
+/*-------------------------------------------------------------------------------------------------------*/
+   FUNCTION get_view_location (pvid IN NUMBER, rtagid IN NUMBER)
+     RETURN NUMBER
+   IS
-            CLOSE clone_package_versions_cur;
+     ispatch   package_versions.dlocked%TYPE;
+     viewid   NUMBER                    := -1;
+     CURSOR curview
+     IS
-            -- Automated built config
+       SELECT rc.base_view_id AS view_id
-            IF (cbuildtype = 'A')
+         FROM release_content rc
+        WHERE rc.rtag_id = rtagid AND rc.pv_id = pvid
-            THEN
+       UNION
+       SELECT wip.view_id AS view_id
+         FROM work_in_progress wip
-               spackageversion := '(' || returnpvid || ')' || ssv_ext;
+        WHERE wip.rtag_id = rtagid AND wip.pv_id = pvid
+       UNION
-               -- Make sure that version is still unique
+       SELECT pl.view_id AS view_id
-            END IF;
+         FROM planned pl
+        WHERE pl.rtag_id = rtagid AND pl.pv_id = pvid;
-            -- Clone Package Version Details --
+     recview   curview%ROWTYPE;
-            INSERT INTO package_versions(pv_id, pkg_id, pkg_version, dlocked, created_stamp,
-                                         creator_id, modified_stamp, modifier_id, v_mm, v_nmm,
-                                         v_ext, src_path, pv_description, pv_overview,
-                                         last_pv_id, owner_id, is_deployable,
-                                         is_build_env_required, build_type, bs_id, is_autobuildable, ripple_field)
-                 SELECT returnpvid AS pv_id, origpkg_id AS pkg_id,
+   BEGIN
-                        spackageversion AS pkg_version, 'N' AS dlocked,
-                        ora_sysdate AS created_stamp, nuserid AS creator_id,
-                        ora_sysdatetime AS modified_stamp,
+     -- Get dlock state
-                        nuserid AS modifier_id, ssv_mm AS v_mm,
-                        ssv_nmm AS v_nmm, ssv_ext AS v_ext, pv.src_path,
+     SELECT pv.is_patch
-                        pv.pv_description, pv.pv_overview,
+      INTO ispatch
-                        nlastpvid AS last_pv_id, pv.owner_id, pv.is_deployable,
-                        pv.is_build_env_required, cbuildtype, pv.bs_id, pv.is_autobuildable, pv.ripple_field
-                   FROM package_versions pv
+      FROM package_versions pv
-                  WHERE pv.pv_id = nlastpvid;
+      WHERE pv.pv_id = pvid;
-            -- Set Issues Type for cloning ---
+     -- Decide which view id should package go under.
-            IF origdlocked = 'Y'
+     IF (ispatch != 'Y') OR (ispatch IS NULL)
-            THEN
+     THEN
-               nissuestypes := enumissues_state_imported;
-            ELSE
-               nissuestypes := NULL;
+       -- Get VIEW ID of Package
-            END IF;
+       OPEN curview;
-            -- Update Label for automated built
-            IF (cbuildtype = 'A')
+       FETCH curview
-            THEN
+        INTO recview;
-               slabel := get_automated_label (returnpvid);
+       IF curview%FOUND
+       THEN
-               UPDATE package_versions pv
+         viewid := recview.view_id;
+       ELSE
-                  SET pv.pkg_label = slabel
+         raise_application_error
+            (-20000,
-                WHERE pv.pv_id = returnpvid;
+               'Cannot find view_id to proceed. [PvId='
+            || pvid
+            || ']. The current version may not exist in the release anymore.'
+            );
-            END IF;
+       END IF;
-            basic_clone (nlastpvid,
+       CLOSE curview;
-                         returnpvid,
+     ELSE
-                         nrtagid,
+       -- Get VIEW ID of Patch (view id of parent package)
-                         nuserid,
+       SELECT rc.base_view_id
-                         origpkg_id,
+         INTO viewid
-                         nissuestypes
+         FROM release_content rc, package_patches ppv
-                        );
+        WHERE rc.rtag_id = rtagid
-         ELSE
-            --- Package already exists, hence reuse ---
-            returnpvid := package_versions_rec.pv_id;
+         AND rc.pv_id = ppv.pv_id
-            isreleased := package_versions_rec.dlocked;
+         AND ppv.patch_id = pvid;
-         END IF;
+     END IF;
-         CLOSE package_versions_cur;
-      ELSE
+     RETURN viewid;
-         returnpvid := nsettopvid;
-      END IF;
+   END;
-   END new_version;
 /*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE change_state (
+   PROCEDURE add_package (
-      pvid       IN   NUMBER,
+     pvid    IN   NUMBER,
-      newstate   IN   package_versions.dlocked%TYPE,
+     viewid   IN   NUMBER,
+     rtagid   IN   NUMBER,
-      userid     IN   NUMBER
+     userid   IN   NUMBER
+   )
    IS
+     dlocked   package_versions.dlocked%TYPE;
+     envtab   NUMBER;
    BEGIN
-      -- Set package in Released mode
+     IF can_edit_pkg_in_project (pvid, rtagid) = 1
+     THEN
-      UPDATE package_versions pv
+       -- Get dlock state
-         SET pv.dlocked = newstate,
+       SELECT pv.dlocked
-             pv.modified_stamp = ora_sysdatetime,
+         INTO dlocked
-             pv.modifier_id = userid
+         FROM package_versions pv
-       WHERE pv.pv_id = pvid;
+        WHERE pv.pv_id = pvid;
+       -- Get which area should go under
+       envtab := select_environment_area (dlocked);
+       -- Log
+       log_action (pvid, 'action', userid, 'Start of Package Add...');
-      -- Log action --
+       -- Remove Package
-      IF newstate = 'Y'
+       IF envtab = 0
+       THEN
+         -- WORK IN PROGRESS --
+         pk_work_in_progress.add_package (pvid, viewid, rtagid, userid);
+       ELSIF envtab = 1
+       THEN
+         -- PENDING --
+         pk_planned.add_package (pvid, viewid, rtagid, userid);
+       ELSIF envtab = 2
-      THEN
+       THEN
          -- RELEASED --
-         log_action (pvid,
-                     'makeofficial',
-                     userid,
-                     'Package state change to: Released'
+         -- NOTE: this package will be replaced with matching package
-                    );
-      ELSIF newstate = 'N'
-      THEN
-         -- UNLOCKED --
-         log_action (pvid,
-                     'makeunofficial',
-                     userid,
-                     'Package state change to: Ulocked'
+         pk_release.add_package (pvid, viewid, rtagid, userid);
-                    );
-      ELSIF newstate = 'P'
-      THEN
-         -- PENDING APPROVAL --
+         -- Now do post Release Actions
-         log_action (pvid,
+         pk_release.run_post_actions (pvid, rtagid);
-                     'add_to_planned',
-                     userid,
-                     'Package state change to: Pending Approval'
-                    );
-      ELSIF newstate = 'R'
-      THEN
+       END IF;
-         -- REJECTED --
-         log_action (pvid,
-                     'reject_package',
-                     userid,
-                     'Package state change to: Rejected'
-                    );
-      ELSIF newstate = 'A'
-      THEN
-         -- APPROVED --
+       -- Log
-         log_action (pvid,
-                     'approve_package',
-                     userid,
-                     'Package state change to: Approved'
+       log_action (pvid, 'action', userid, 'End of Package Add...');
-                    );
-      END IF;
+     END IF;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE destroy_package (
+   PROCEDURE add_package_bulk (
+     pvidlist   IN   VARCHAR2,
-      pvid               IN       NUMBER,
+     viewid    IN   NUMBER,
-      overridewarnings   IN       CHAR DEFAULT 'N',
+     rtagid    IN   NUMBER,
-      problemstring      OUT      VARCHAR2
+     userid    IN   NUMBER
+   )
    IS
+     nidcollector   relmgr_number_tab_t         := relmgr_number_tab_t
+                                                        ();
-      LOCKED     CHAR;
+     dlocked      package_versions.dlocked%TYPE;
-      pkgid      NUMBER;
+     pvid         NUMBER;
-      ROWCOUNT   NUMBER;
+     envtab       NUMBER;
    BEGIN
-      /*
-      || This will destroy all package details from database.
-      || It will only be used to remove unwanted work in progress packages,
-      || or mestaken versions
-      */
-      /*--------------- Business Rules Here -------------------*/
+     /*--------------- Business Rules Here -------------------*/
-      problemstring := NULL;
+     IF (pvidlist IS NULL)
-      IF overridewarnings = 'N'
-      THEN
+     THEN
-         -- Package must not be official
-         SELECT pv.dlocked
-           INTO LOCKED
-           FROM package_versions pv
-          WHERE pv.pv_id = pvid;
-         IF LOCKED = 'Y'
-         THEN
-            problemstring :=
-                  problemstring
-               || '- Package is locked and released.'
-               || UTL_TCP.crlf;
-         END IF;
-         -- Cannot remove if used in BOMs
-         SELECT COUNT (osc.prod_id)
-           INTO ROWCOUNT
-           FROM deployment_manager.os_contents osc
-          WHERE osc.prod_id = pvid;
-         IF ROWCOUNT > 0
-         THEN
-            problemstring :=
-                  problemstring
-               || '- Package is part of Bill-Of-Material (BOM) in Deployment Manager.'
-               || UTL_TCP.crlf;
-         END IF;
-         -- Cannot remove if Referenced as build dependency
-         SELECT COUNT (dep.pv_id)
-           INTO ROWCOUNT
-           FROM package_dependencies dep
-          WHERE dep.dpv_id = pvid;
-         IF ROWCOUNT > 0
-         THEN
-            problemstring :=
-                  problemstring
-               || '- Package is referenced by other package as build dependency.'
-               || UTL_TCP.crlf;
-         END IF;
-         -- Cannot remove if Referenced as runtime dependency
-         SELECT COUNT (rd.pv_id)
-           INTO ROWCOUNT
-           FROM runtime_dependencies rd
+       raise_application_error (-20000,
-          WHERE rd.rtd_id = pvid;
-         IF ROWCOUNT > 0
-         THEN
-            problemstring :=
-                  problemstring
-               || '- Package is referenced by other package as runtime dependency.'
-               || UTL_TCP.crlf;
-         END IF;
-         -- Cannot remove if Referenced as patch
-         SELECT COUNT (pp.pv_id)
-           INTO ROWCOUNT
-           FROM package_patches pp
-          WHERE pp.patch_id = pvid;
-         IF ROWCOUNT > 0
-         THEN
-            problemstring :=
-                  problemstring
-               || '- Package is used as patch by other package.'
+                          'Please select at least one package.'
-               || UTL_TCP.crlf;
+                         );
-         END IF;
-      END IF;
+     END IF;
 /*-------------------------------------------------------*/
-      IF (problemstring IS NULL)
-      THEN
-         --- Remove From Work in Progress
-         DELETE FROM work_in_progress wip
-               WHERE wip.pv_id = pvid;
-         --- Remove From Pending
-         DELETE FROM planned pl
-               WHERE pl.pv_id = pvid;
-         --- Remove From Released area
-         DELETE FROM release_content rc
-               WHERE rc.pv_id = pvid;
-         ---Remove From Package Processes
-         DELETE FROM package_processes pp
-               WHERE pp.pv_id = pvid;
-         --- Remove Dependencies
-         DELETE FROM package_dependencies dep
-               WHERE dep.pv_id = pvid;
-         DELETE FROM package_dependencies dep
-               WHERE dep.dpv_id = pvid;
-         --- Remove Runtime dependencies
-         DELETE FROM runtime_dependencies rtd
-               WHERE rtd.pv_id = pvid;
-         DELETE FROM runtime_dependencies rtd
-               WHERE rtd.rtd_id = pvid;
-         --- Remove components
-         DELETE FROM product_components pc
-               WHERE pc.pv_id = pvid;
-         DELETE FROM release_components rc
-               WHERE rc.pv_id = pvid;
-         --- Remove From Notification History
-         DELETE FROM notification_history nh
-               WHERE nh.pv_id = pvid;
-         --- Remove From Ignore Warnings
-         DELETE FROM ignore_warnings iw
-               WHERE iw.pv_id = pvid;
-         --- Remove From Additional Notes
-         DELETE FROM additional_notes an
-               WHERE an.pv_id = pvid;
-         --- Remove From CQ Issues
-         DELETE FROM cq_issues cq
-               WHERE cq.pv_id = pvid;
-         --- Remove from Package Patches
-         DELETE FROM package_patches pp
-               WHERE pp.pv_id = pvid;
-         DELETE FROM package_patches pp
-               WHERE pp.patch_id = pvid;
-         --- Remove From Package Documents
-         DELETE FROM package_documents pd
-               WHERE pd.pv_id = pvid;
-         --- Remove from Code Review
-         DELETE FROM code_reviews cr
-               WHERE cr.pv_id = pvid;
-         --- Remove from Code Review URL
-         DELETE FROM code_review_url cru
-               WHERE cru.pv_id = pvid;
-         --- Remove from Unit Tests
-         DELETE FROM unit_tests ut
-               WHERE ut.pv_id = pvid;
-         --- Remove from Package BuildEnv
-         DELETE FROM package_build_env pbe
-               WHERE pbe.pv_id = pvid;
-         --- Remove from Package Build Info
-         DELETE FROM package_build_info pbi
-               WHERE pbi.pv_id = pvid;
-         --- Remove from Build Order
-         DELETE FROM build_order bo
-               WHERE bo.pv_id = pvid;
-         --- Remove from Licencing
-         PK_LICENCING.REMOVE_ALL_LICENCING( pvid, 0 );
-         --- Remove from Note Manager
-         DELETE FROM note_manager nm
-               WHERE nm.nid = pvid;
-         --- Remove from Action log
-         DELETE FROM action_log al
-               WHERE al.pv_id = pvid;
-         --- Remove from Do Not Ripple
-         DELETE FROM DO_NOT_RIPPLE dnr
-               WHERE dnr.PV_ID = pvid;
+     nidcollector := in_list_number (pvidlist);
-         --- Remove from Advisory Ripple
-         DELETE FROM ADVISORY_RIPPLE ar
-               WHERE ar.PV_ID = pvid;
-         --- Remove from Jira Issues
-         DELETE FROM JIRA_ISSUES jira
-               WHERE jira.PV_ID = pvid;
-         --- Remove from Package Metrics
-         DELETE FROM package_metrics pm
-              WHERE pm.pv_id = pvid;
-         -- Delete from Pegged Versions
-         DELETE FROM pegged_versions pegv
-              WHERE pegv.pv_id = pvid;
-         --- Finally Remove From Package Versions
-         --- Get Package name
-         SELECT pv.pkg_id
-           INTO pkgid
-           FROM package_versions pv
-          WHERE pv.pv_id = pvid;
-         DELETE FROM package_versions pv
-               WHERE pv.pv_id = pvid;
-         --- Remove package name if not used any more
-         SELECT COUNT (pv.pv_id)
-           INTO ROWCOUNT
-           FROM package_versions pv
-          WHERE pv.pkg_id = pkgid;
-         IF ROWCOUNT < 1
+     FOR i IN 1 .. nidcollector.COUNT
-         THEN
+     LOOP
-            DELETE FROM PACKAGES pkg
+       pvid := nidcollector (i);
-                  WHERE pkg.pkg_id = pkgid;
+       add_package (pvid, viewid, rtagid, userid);
-         END IF;
-      END IF;
+     END LOOP;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE new_patch (
+   PROCEDURE replace_package (
-      snewpatchversion   IN       package_versions.pkg_version%TYPE,
-      nparentpvid        IN       NUMBER,
+     newpvid  IN   NUMBER,
-      spatchidlist       IN       VARCHAR2,
+     oldpvid  IN   NUMBER,
-      nuserid            IN       NUMBER,
+     rtagid   IN   NUMBER,
-      returnpatchid      OUT      NUMBER
+     userid   IN   NUMBER
+   )
    IS
-      patchpv_id           NUMBER;
-      parpkg_id            NUMBER;
-      lastinstallorder     NUMBER;
-      ispatchdlocked       package_versions.dlocked%TYPE;
+     dlocked      package_versions.dlocked%TYPE;
-      ssv_mm               package_versions.v_mm%TYPE;
-      ssv_nmm              package_versions.v_nmm%TYPE;
-      ssv_ext              package_versions.v_ext%TYPE;
-      opatchdepcollector   relmgr_number_tab_t  := relmgr_number_tab_t ();
-      CURSOR parent_cur
+     viewid       NUMBER;
-      IS
-         SELECT pv.*, pkg.pkg_name
-           FROM package_versions pv, PACKAGES pkg
-          WHERE pv.pv_id = nparentpvid AND pv.pkg_id = pkg.pkg_id;
-      parent_rec parent_cur%ROWTYPE;
+     envtab       NUMBER;
-      CURSOR patch_cur
+     ROWCOUNT     NUMBER;
-      IS
-         SELECT pv.*, pg.pkg_name
-           FROM package_versions pv, PACKAGES pg
-          WHERE pv.pkg_id = parpkg_id
-            AND pv.pkg_version = snewpatchversion
-            AND pv.pkg_id = pg.pkg_id;
-      patch_rec  patch_cur%ROWTYPE;
+     creleasemode CHAR (1);
-      CURSOR releases_cur
+     npkgid       NUMBER;
-      IS
-         SELECT rc.pv_id
-           FROM release_content rc
-          WHERE rc.pv_id = patch_rec.pv_id;
-      releases_rec releases_cur%ROWTYPE;
    BEGIN
-      -- Get Last Install Order
-      SELECT COUNT (*)
-        INTO lastinstallorder
-        FROM package_patches pp
-       WHERE pp.pv_id = nparentpvid;
-      -- Get parent details
-      OPEN parent_cur;
-      FETCH parent_cur
-       INTO parent_rec;
-      parpkg_id := parent_rec.pkg_id;
+     /*--------------- Business Rules Here -------------------*/
-      -- Find if patch exists in database
+     -- Check if oldPvId exists. It could have been removed
-      OPEN patch_cur;
-      FETCH patch_cur
-       INTO patch_rec;
-      -- Parent must be official
-      IF parent_rec.dlocked = 'Y'
-      THEN
-         IF patch_cur%NOTFOUND
-         THEN
-            ispatchdlocked := 'N';
-            -- Create new patch version --
-            SELECT seq_pv_id.NEXTVAL
-              INTO patchpv_id
+     SELECT COUNT (pv.pv_id)
-              FROM DUAL;
+       INTO ROWCOUNT
-            split_version (snewpatchversion, ssv_mm, ssv_nmm, ssv_ext);
-            INSERT INTO package_versions
-                        (pv_id, pkg_id, pkg_version,
-                         dlocked, created_stamp, creator_id,
-                         modified_stamp, modifier_id, v_mm, v_nmm, v_ext,
-                         src_path,
-                         pv_description,
-                         owner_id, is_patch, last_pv_id, build_type, is_build_env_required, bs_id,
-                         is_autobuildable, ripple_field
-                        )
-                 VALUES (patchpv_id, parpkg_id, snewpatchversion,
-                         ispatchdlocked, ora_sysdate, nuserid,
-                         ora_sysdatetime, nuserid, ssv_mm, ssv_nmm, ssv_ext,
-                         parent_rec.src_path,
-                            'This is a patch to '
-                         || parent_rec.pkg_name
-                         || ' '
-                         || parent_rec.pkg_version,
-                         nuserid, 'Y', patchpv_id, 'M', 'N', 3, 'N', parent_rec.ripple_field
-                        );
-            INSERT INTO package_patches
-                        (pv_id, patch_id, install_order)
-                (SELECT nparentpvid AS pv_id, pv.pv_id AS patch_id,
-                        lastinstallorder + 1 AS install_order
-                   FROM package_versions pv
+       FROM package_versions pv
-                  WHERE pv.pv_id = patchpv_id AND pv.is_patch = 'Y');
-            /* LOG ACTION */
-            log_action (patchpv_id,
-                        'new_version',
-                        nuserid,
-                        'Patch version created: ' || snewpatchversion
-                       );
-            log_action (nparentpvid,
-                        'patch_add',
-                        nuserid,
-                        'New patch created and attached: ' || snewpatchversion
-                       );
-         ELSE
-            patchpv_id := patch_rec.pv_id;
-            ispatchdlocked := patch_rec.dlocked;
-            -- Find if pv_id exists in release content (i.e. it cannot be a patch)
-            OPEN releases_cur;
-            FETCH releases_cur
-             INTO releases_rec;
-            IF releases_cur%NOTFOUND
-            THEN
-               -- This pv_id is trully a patch, hence add Y to column IS_PATCH
-               UPDATE package_versions
-                  SET is_patch = 'Y'
-                WHERE pv_id = patchpv_id;
+      WHERE pv.pv_id = oldpvid;
-               INSERT INTO package_patches
-                           (pv_id, patch_id, install_order)
+/*-------------------------------------------------------*/
-                   (SELECT nparentpvid AS pv_id, pv.pv_id AS patch_id,
-                           lastinstallorder + 1 AS install_order
-                      FROM package_versions pv
-                     WHERE pv.pv_id = patchpv_id AND pv.is_patch = 'Y');
-            END IF;
-            CLOSE releases_cur;
+     /* This procedure is usually used by "History" option in Release Manager */
-            /* LOG ACTION */
+     -- Get dlock state
-            log_action (nparentpvid,
+     SELECT pv.dlocked
-                        'patch_add',
-                        nuserid,
+       INTO dlocked
-                           'Patch version was found and attached: '
-                        || snewpatchversion
+       FROM package_versions pv
-                       );
+      WHERE pv.pv_id = newpvid;
-         END IF;
-      END IF;
-      /* Create Patch Dependencies */
+     -- Get VIEW_ID ---
+     IF ROWCOUNT = 1
+     THEN
-      opatchdepcollector := in_list_number (spatchidlist);
+       viewid := get_view_location (oldpvid, rtagid);
+     ELSE
+       -- Set ViewID to default
+       viewid := 7;
+     END IF;
-      -- Make sure patch is unofficial before altering its dependencies
+     -- Get which area should go under
-      IF (opatchdepcollector.COUNT > 0) AND (ispatchdlocked = 'N')
+     envtab := select_environment_area (dlocked);
-      THEN
+     -- Log
-         -- Delete Existing Dependencies
-         DELETE FROM package_dependencies dep
+     log_action (oldpvid, 'action', userid, 'Start of Package Replace...');
-               WHERE dep.pv_id = patchpv_id;
-         -- Insert new dependencies
+     -- Replace package
-         INSERT INTO package_dependencies
-                     (pv_id, dpv_id, pkg_id, dpkg_id, build_type)
-              SELECT patchpv_id AS pv_id, pv.pv_id AS dpv_id,
-                     parpkg_id AS pkg_id, pv.pkg_id AS dpkg_id,
-                     'L' AS build_type
-                FROM package_versions pv
+     IF envtab = 0
-               WHERE pv.pv_id IN (
+     THEN
-                      SELECT *
+       -- WORK IN PROGRESS --
-                        FROM TABLE
-                                (CAST
-                                    (opatchdepcollector AS relmgr_number_tab_t)
-                                ));
-      END IF;
-      -- Return patch_id
+       -- Delete old package
-      returnpatchid := patchpv_id;
+       pk_work_in_progress.remove_package (oldpvid, rtagid, userid);
+       -- Add new package
+       pk_work_in_progress.add_package (newpvid, viewid, rtagid, userid);
-      CLOSE parent_cur;
+     ELSIF envtab = 1
+     THEN
+       -- PENDING --
-      CLOSE patch_cur;
-   EXCEPTION
-      WHEN DUP_VAL_ON_INDEX
+       -- Delete old package
-      THEN
-         raise_application_error (-20000,
-                                     'Patch version '
-                                  || snewpatchversion
-                                  || ' already exist.'
+       pk_planned.remove_package (oldpvid, rtagid, userid);
-                                 );
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE obsolete_patch (
+       -- Add new package
-      patchid            IN   NUMBER,
+       pk_planned.add_package (newpvid, viewid, rtagid, userid);
-      isobsolete         IN   CHAR,
+     ELSIF envtab = 2
-      obsoletecomments   IN   VARCHAR2,
-      userid             IN   NUMBER
-   )
-   IS
-   BEGIN
+     THEN
-      -- Update patch
+       -- RELEASED --
-      UPDATE package_versions pv
-         SET pv.is_obsolete = isobsolete,
-             pv.obsolete_comments = obsoletecomments
-       WHERE pv.pv_id = patchid;
-      /*
-      -- Update patch children
+       -- Delete old package
-      UPDATE PACKAGE_VERSIONS pv SET
-      pv.IS_OBSOLETE = IsObsolete,
-      pv.OBSOLETE_COMMENTS = ObsoleteComments
+       pk_release.remove_package (oldpvid, rtagid, userid);
-      WHERE pv.PV_ID IN (
+       -- Add new package
-                     SELECT DISTINCT dep.DPV_ID
-                       FROM PACKAGE_DEPENDENCIES dep
-                      WHERE dep.PV_ID = PatchId
+       pk_release.add_package (newpvid, viewid, rtagid, userid);
-                     );
+       -- update the pegging table
+       UPDATE PEGGED_VERSIONS SET pv_id = newpvid WHERE rtag_id = rtagid AND pv_id = oldpvid;
-      -- Update patch parent
+       -- update the advisory ripple table
-      UPDATE PACKAGE_VERSIONS pv SET
-      pv.IS_OBSOLETE = IsObsolete,
-      pv.OBSOLETE_COMMENTS = ObsoleteComments
-      WHERE pv.PV_ID IN (
-                     SELECT DISTINCT dep.PV_ID
-                       FROM PACKAGE_DEPENDENCIES dep
-                      WHERE dep.DPV_ID = PatchId
+       UPDATE ADVISORY_RIPPLE SET pv_id = newpvid WHERE rtag_id = rtagid AND pv_id = oldpvid;
-                     );
+       -- Now do post Release Actions
+       pk_release.run_post_actions (newpvid, rtagid);
-      */
+     END IF;
-      /* LOG ACTION */
-      IF isobsolete IS NOT NULL
-      THEN
-         log_action (patchid,
-                     'patch_obsolete',
-                     userid,
-                     'Obsolete patch. ' || obsoletecomments
-                    );
-      ELSE
+     -- Log
-         log_action (patchid,
-                     'patch_obsolete',
-                     userid,
-                     'Undo patch obsolete.'
+     log_action (oldpvid, 'action', userid, 'End of Package Replace...');
-                    );
-      END IF;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE obsolete_patches (
+   FUNCTION remove_package (
-      spatchidlist       IN   VARCHAR2,
+     pvid        IN   NUMBER,
-      isobsolete         IN   CHAR,
+     rtagid      IN   NUMBER,
-      obsoletecomments   IN   VARCHAR2,
+     userid      IN   NUMBER,
-      userid             IN   NUMBER
+     forceremove IN   CHAR
+   )
+     RETURN NUMBER
    IS
+     envtab      NUMBER;
+     isused      BOOLEAN;
+     recordcount   NUMBER;
    BEGIN
-      /*--------------- Business Rules Here -------------------*/
+/*--------------- Business Rules Here -------------------*/
-      IF spatchidlist IS NULL
-      THEN
-         raise_application_error (-20000,
-                                  'Please select one or more Patches.'
-                                 );
-      END IF;
 /*-------------------------------------------------------*/
-      -- Update patch
-      UPDATE package_versions pv
-         SET pv.is_obsolete = isobsolete,
-             pv.obsolete_comments = obsoletecomments
-       WHERE pv.pv_id IN (
-                SELECT *
-                  FROM THE
-                          (SELECT CAST
-                                     (in_list_number (spatchidlist) AS relmgr_number_tab_t
-                                     )
-                             FROM DUAL
-                          ));
-      /*
-      -- Update patch children
-      UPDATE PACKAGE_VERSIONS pv SET
-      pv.IS_OBSOLETE = IsObsolete,
-      pv.OBSOLETE_COMMENTS = ObsoleteComments
-      WHERE pv.PV_ID IN (
-                     SELECT DISTINCT dep.DPV_ID
-                       FROM PACKAGE_DEPENDENCIES dep
-                      WHERE dep.PV_ID = PatchId
-                     );
-      -- Update patch parent
+     -- Find location of package
-      UPDATE PACKAGE_VERSIONS pv SET
-      pv.IS_OBSOLETE = IsObsolete,
-      pv.OBSOLETE_COMMENTS = ObsoleteComments
-      WHERE pv.PV_ID IN (
-                     SELECT DISTINCT dep.PV_ID
-                       FROM PACKAGE_DEPENDENCIES dep
-                      WHERE dep.DPV_ID = PatchId
-                     );
-      */
-      /* LOG ACTION
-      IF IsObsolete IS NOT NULL THEN
-         Log_Action ( PatchId, 'patch_obsolete', UserId,
-                     'Obsolete patch. '|| ObsoleteComments );
-      ELSE
-         Log_Action ( PatchId, 'patch_obsolete', UserId,
-                     'Undo patch obsolete.' );
-      END IF;  */
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE add_process (
-      nprocid         IN   processes.proc_id%TYPE,
-      shealthtag      IN   processes.proc_name%TYPE,
-      sprocdesc       IN   processes.proc_description%TYPE,
-      scmdinterface   IN   processes.run_as%TYPE,
-      spkgowner       IN   processes.pkg_owner%TYPE,
-      sisinterface    IN   processes.is_interface%TYPE,
-      npvid           IN   package_processes.pv_id%TYPE,
+     envtab := get_package_area (pvid, rtagid);
-      nuserid         IN   NUMBER
-   )
-   IS
-      pkgname   VARCHAR2 (100);
-   BEGIN
-      INSERT INTO processes
-                  (proc_id, proc_name, proc_description, run_as, pkg_owner,
-                   is_interface
-                  )
-           VALUES (nprocid, shealthtag, sprocdesc, scmdinterface, spkgowner,
-                   sisinterface
-                  );
-      pk_package.add_package_process (nprocid, npvid, nuserid);
+     -- Remove Package
+     IF envtab = 0
-   END;
+     THEN
+       -- WORK IN PROGRESS --
+       -- Delete package
+       pk_work_in_progress.remove_package (pvid, rtagid, userid);
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE add_package_process (
-      nprocidlist   IN   VARCHAR2,
+       RETURN 0;
-      npvid         IN   package_processes.pv_id%TYPE,
-      nuserid       IN   NUMBER
+     ELSIF envtab = 1
-   )
+     THEN
-   IS
+       -- PENDING --
+       -- Delete package
-      processname   VARCHAR2 (4000);
+       pk_planned.remove_package (pvid, rtagid, userid);
-      CURSOR proc_cur
+       RETURN 0;
-      IS
-         SELECT prc.proc_id
+     ELSIF envtab = 2
-           FROM processes prc
-          WHERE prc.proc_id IN (
+     THEN
-                   SELECT *
+       -- RELEASED --
-                     FROM THE
-                             (SELECT CAST
-                                        (in_list_number (nprocidlist) AS relmgr_number_tab_t
-                                        )
-                                FROM DUAL
-                             ));
-      proc_rec  proc_cur%ROWTYPE;
+       -- Check if is used by other packages
-   BEGIN
-      OPEN proc_cur;
+       isused := TRUE;
+       IF forceremove = 'N'
-      FETCH proc_cur
+       THEN
+         SELECT COUNT (pv.pv_id)
-       INTO proc_rec;
+           INTO recordcount
+           FROM (SELECT dpv.pkg_id, dpv.v_ext
+                 FROM release_content rc,
+                     package_dependencies dep,
+                     package_versions dpv
+                WHERE rc.rtag_id = rtagid
+                  AND rc.pv_id = dep.pv_id
+                  AND dep.dpv_id = dpv.pv_id) rdep,
+               package_versions pv
+          WHERE pv.pkg_id = rdep.pkg_id
+            AND NVL (pv.v_ext, '|LINK_A_NULL|') =
+                                  NVL (rdep.v_ext, '|LINK_A_NULL|')
+            AND pv.pv_id = pvid;
-      WHILE proc_cur%FOUND
+         IF recordcount > 0
-      LOOP
+         THEN
-         INSERT INTO package_processes (proc_id, pv_id)
+            RETURN 1;               -- Return 1 as package being used
+         ELSE
-              VALUES (proc_rec.proc_id, npvid);
+            isused := FALSE;
+         END IF;
+       END IF;
-         SELECT prc.proc_name
+       IF forceremove = 'Y' OR NOT isused
-           INTO processname
+       THEN
-           FROM processes prc
+         -- Delete old package
-          WHERE prc.proc_id = proc_rec.proc_id;
+         pk_release.remove_package (pvid, rtagid, userid);
-         -- Log Action --
-         log_action (npvid,
-                     'process_add',
+         -- Delete old package's pegging info
-                     nuserid,
-                     'Added process with health tag ' || processname
+         DELETE FROM PEGGED_VERSIONS pegv WHERE pegv.RTAG_ID = rtagid AND pegv.PV_ID = pvid;
-                    );
-         FETCH proc_cur
+         -- Delete old package's advisory ripple info
-          INTO proc_rec;
+         DELETE FROM ADVISORY_RIPPLE avr WHERE avr.RTAG_ID = rtagid AND avr.PV_ID = pvid;
-      END LOOP;
+         -- Now do post Release Actions
+         pk_release.run_post_actions (pvid, rtagid);
-      CLOSE proc_cur;
+         RETURN 0;
+       END IF;
+     END IF;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE remove_process (
-      nprocid   IN   package_processes.proc_id%TYPE,
-      npvid     IN   package_processes.pv_id%TYPE,
-      nuserid   IN   NUMBER
-   )
-   IS
-      processname   VARCHAR2 (4000);
-   BEGIN
-      SELECT prc.proc_name
-        INTO processname
-        FROM processes prc
-       WHERE prc.proc_id = nprocid;
-      DELETE FROM package_processes
-            WHERE proc_id = nprocid AND pv_id = npvid;
+   -- DEVI-45275 added the return of the new "operation" column in the recordset.
-      -- Log Action --
+   PROCEDURE get_environment_items (
-      log_action (npvid,
+     viewtype         IN      NUMBER,
-                  'process_remove',
+     userid           IN      NUMBER,
-                  nuserid,
+     rtagid           IN      NUMBER,
-                  'Removed process with health tag ' || processname
+     sviewidshowlist  IN      VARCHAR2,
-                 );
+     ntruerecordcount OUT     NUMBER,
-   END;
+     recordset        OUT     typecur
-/*-------------------------------------------------------------------------------------------------------*/
-   /*
-   ** Author: Rupesh Solanki
-   ** Purpose: To move package versions from one release to another
-   ** Release: 4th September 2006
-   */
-   PROCEDURE move_package (
-      npvid        IN package_versions.pv_id%TYPE,
-      nrtagid      IN release_tags.rtag_id%TYPE,
-      nnewrtagid   IN release_tags.rtag_id%TYPE,
-      nuserid      IN NUMBER
-   )
-   IS
-      oldrtag_name VARCHAR2(4000);newrtag_name VARCHAR2(4000);
-   BEGIN
-      SELECT rtag_name into oldrtag_name
-      FROM RELEASE_TAGS
-      WHERE rtag_id = nrtagid;
-      SELECT rtag_name into newrtag_name
-      FROM RELEASE_TAGS
-      WHERE rtag_id = nnewrtagid;
-      /* Table Work In Progress*/
-      UPDATE WORK_IN_PROGRESS
-      SET RTAG_ID = nnewrtagid
-      WHERE RTAG_ID = nrtagid
-      AND PV_ID = npvid;
-      /* Table PLANNED*/
-      UPDATE PLANNED
-      SET RTAG_ID = nnewrtagid
-      WHERE RTAG_ID = nrtagid
-      AND PV_ID = npvid;
-      /* Table PEGGED_VERSIONS */
-      DELETE FROM PEGGED_VERSIONS pegv
-      WHERE pegv.RTAG_ID = nrtagid
-      AND pegv.PV_ID = npvid;
-      /* Table ADVISORY_RIPPLE*/
-      DELETE FROM ADVISORY_RIPPLE
-      WHERE RTAG_ID = nrtagid
-      AND PV_ID = npvid;
-      -- Log Action --
-      log_action (npvid,
-                  'move_package_version',
-                  nuserid,
-                  'Moved package version from ' || oldrtag_name || ' to ' || newrtag_name
-                 );
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   /*
-   ** Author: Rupesh Solanki
-   ** Purpose: To modify the product state from integration to test to deployment
-   ** Release: 25th January 2006
-   */
-   PROCEDURE modify_product_state (
-      npvid    IN package_versions.pv_id%TYPE,
-      nrtagid  IN release_tags.rtag_id%TYPE,
-      nstateid IN product_states.state_id%TYPE,
-      nuserid  IN NUMBER
-   ) IS
-      sStateName VARCHAR2(4000);
-      sRtagName VARCHAR2(4000);
-   BEGIN
-      UPDATE RELEASE_CONTENT
-      SET PRODUCT_STATE = nstateid
-      WHERE PV_ID = npvid
-      AND RTAG_ID = nrtagid;
-      SELECT STATE INTO sStateName
-      FROM PRODUCT_STATES
-      WHERE STATE_ID = nstateid;
-      SELECT RTAG_NAME into sRtagName
-      FROM RELEASE_TAGS
-      WHERE RTAG_ID = nrtagid;
-      -- Log Action --
-      log_action (npvid,
-                  'modify_product_state',
-                     nuserid,
-                     sStateName || ' in '|| sRtagName
-                  );
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   /*
-   ** Author: Jeremy Tweddle
-   ** Date: 24/Aug/2007
-   */
-   PROCEDURE add_code_review_url (
-      npvid           IN    NUMBER,
-      nprojid         IN    NUMBER,
-      surl            IN    VARCHAR2,
-      sreason         IN    VARCHAR2,
-      ddateofreview   IN    DATE
-   ) IS
-      ncrid NUMBER;
-   BEGIN
-      SELECT seq_cr_id.NEXTVAL INTO ncrid FROM DUAL;
-      INSERT INTO code_review_url ( cr_id, pv_id, proj_id, url, reason, date_of_review,
-                                    last_modified )
-      VALUES ( ncrid, npvid, nprojid, surl, sreason, ddateofreview, ora_sysdate );
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   /*
-   ** Author: Jeremy Tweddle
-   ** Date: 22/Aug/2007
-   */
-   PROCEDURE update_code_review_url (
-      ncrid           IN    NUMBER,
-      nprojid         IN    NUMBER,
-      surl            IN    VARCHAR2,
-      sreason         IN    VARCHAR2
-   ) IS
-   BEGIN
-      UPDATE code_review_url
-      SET url = surl,
-          proj_id = nprojid,
-          reason = sreason,
-          last_modified = ora_sysdate
-      WHERE cr_id = ncrid;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   /*
-   ** Author: Jeremy Tweddle
-   ** Date: 22/Aug/2007
-   */
-   PROCEDURE remove_code_review_url (
-      ncrid  IN    NUMBER
-   ) IS
-   BEGIN
-      DELETE FROM code_review_url
-      WHERE cr_id = ncrid;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-END pk_package;
-/
---------------------------------------------------------
---  DDL for Package Body PK_RMAPI_TEST
---------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "PK_RMAPI_TEST"
-IS
-   /*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION package_dependencies (pkgname VARCHAR2, pkgversion VARCHAR2)
-      RETURN typecur
-   IS
-      npvid     NUMBER  := 0;
-      RECORDS   typecur;
-   BEGIN
-      BEGIN
-         -- Get PV_ID --
-         SELECT pv.pv_id
-           INTO npvid
-           FROM PACKAGES pkg, package_versions pv
-          WHERE pv.pkg_id = pkg.pkg_id
-            AND pkg.pkg_name = pkgname
-            AND pv.pkg_version = pkgversion;
-      EXCEPTION
-         WHEN NO_DATA_FOUND
-         THEN
-            raise_application_error (-20000, 'Package Not Found!');
-            --WHEN OTHERS THEN
-                  -- Consider logging the error and then re-raise
-            RAISE;
-      END;
-      -- Finally get package dependencies --
-      OPEN RECORDS FOR
-         SELECT dpv.pv_id, dpkg.pkg_name, dpv.pkg_version
-           FROM package_dependencies dep, PACKAGES dpkg, package_versions dpv
-          WHERE dep.pv_id = npvid
-            AND dpv.pkg_id = dpkg.pkg_id
-            AND dpv.pv_id = dep.dpv_id;
-      RETURN RECORDS;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION wip_iteration_package (
-      projname        VARCHAR2,
-      iterationname   VARCHAR2,
-      pkgname         VARCHAR2
-   )
-      RETURN typecur
-   IS
-      nrtagid   NUMBER  := 0;
-      RECORDS   typecur;
-   BEGIN
-      BEGIN
-         -- Get latest rtag_id --
-         SELECT rt.rtag_id
-           INTO nrtagid
-           FROM projects proj, release_tags rt
-          WHERE rt.proj_id = proj.proj_id
-            AND UPPER (proj.proj_name) = UPPER (projname)
-            AND UPPER (rt.rtag_name) = UPPER (iterationname);
-         IF (nrtagid IS NULL)
-         THEN
-            raise_application_error (-20000,
-                                     'Work In Progress is Not Found!');
-         END IF;
-      EXCEPTION
-         WHEN NO_DATA_FOUND
-         THEN
-            raise_application_error (-20000,
-                                     'Work In Progress is Not Found!');
-            RAISE;
-      END;
-      -- Finally get package dependencies --
-      OPEN RECORDS FOR
-         SELECT pv.pkg_version, pv.dlocked AS is_official, pv.pkg_label,
-                pv.src_path
-           FROM PACKAGES pkg, package_versions pv, work_in_progress wip
-          WHERE pv.pkg_id = pkg.pkg_id
-            AND wip.pv_id = pv.pv_id
-            AND wip.rtag_id = nrtagid
-            AND pkg.pkg_name = pkgname;
-      RETURN RECORDS;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION auto_make_release (
-      rtagid                   IN   NUMBER,
-      pkgname                  IN   VARCHAR2,
-      vext                     IN   VARCHAR2,
-      newpkgversion            IN   VARCHAR2,
-      label                    IN   VARCHAR2,
-      dependenciesimportlist   IN   VARCHAR2,
-      isrippled                IN   NUMBER,
-      username                 IN   VARCHAR2
-   )
-      RETURN NUMBER
-   IS
-      pkgid                           NUMBER;
-      pvid                            NUMBER                        := 0;
-      userid                          NUMBER;
-      dlocked                         VARCHAR2 (20)                 := NULL;
-      clonefrompvid                   NUMBER;
-      ssv_mm                          package_versions.v_mm%TYPE;
-      ssv_nmm                         package_versions.v_nmm%TYPE;
-      ssv_ext                         package_versions.v_ext%TYPE;
-      return_package_not_found        NUMBER                        := -1;
-      return_package_already_exists   NUMBER                        := -2;
-      return_not_approved             NUMBER                        := -3;
-   BEGIN
-      /*--------------- Business Rules Here -------------------*/
-      IF (rtagid IS NULL)
-      THEN
-         raise_application_error (-20000, 'RtagId must be supplied.');
-      END IF;
-      IF (pkgname IS NULL)
-      THEN
-         raise_application_error (-20000, 'PkgName must be supplied.');
-      END IF;
-      IF (newpkgversion IS NULL)
-      THEN
-         raise_application_error (-20000, 'PkgVersion must be supplied.');
-      END IF;
-      IF (label IS NULL)
-      THEN
-         raise_application_error (-20000, 'Label must be supplied.');
-      END IF;
-      IF (isrippled IS NULL) OR (isrippled < 0) OR (isrippled > 1)
-      THEN
-         raise_application_error
-            (-20000,
-             'IsRippled must be set to 1 (Is rippled build) or 0 (Is planned build).'
-            );
-      END IF;
-      IF (username IS NULL)
-      THEN
-         raise_application_error (-20000, 'UserName must be supplied.');
-      END IF;
-      -- Get user_id
-      BEGIN
-         SELECT usr.user_id
-           INTO userid
-           FROM users usr
-          WHERE UPPER (usr.user_name) = UPPER (username)
-            AND usr.is_disabled IS NULL;
-      EXCEPTION
-         WHEN NO_DATA_FOUND
-         THEN
-            raise_application_error (-20000,
-                                        'UserName '
-                                     || username
-                                     || ' is not valid or disabled.'
-                                    );
-      END;
-/*-------------------------------------------------------*/
-      -- Create package if necessary
-      IF isrippled = 1
-      THEN
-         /* Ripple Build */
-         BEGIN
-            -- Make sure that package does not exist
-            SELECT pv.pv_id
-              INTO pvid
-              FROM package_versions pv, PACKAGES pkg
-             WHERE pv.pkg_id = pkg.pkg_id
-               AND pkg.pkg_name = pkgname
-               AND pv.pkg_version = newpkgversion;
-         EXCEPTION
-            WHEN NO_DATA_FOUND
-            THEN
-               pvid := 0;
-         END;
-         IF (pvid = 0)
-         THEN
-            -- Split current version in parts
-            split_version (newpkgversion, ssv_mm, ssv_nmm, ssv_ext);
-            BEGIN
-               -- Find package to be replaced with thie ripple package
-               IF NVL (vext, '|LINK_A_NULL|') = NVL (ssv_ext, '|LINK_A_NULL|')
-               THEN
-                  SELECT pv.pv_id
-                    INTO clonefrompvid
-                    FROM PACKAGES pkg, package_versions pv,
-                         release_content rc
-                   WHERE rc.pv_id = pv.pv_id
-                     AND pv.pkg_id = pkg.pkg_id
-                     AND rc.rtag_id = rtagid
-                     AND pkg.pkg_name = pkgname
-                     AND NVL (pv.v_ext, '|LINK_A_NULL|') = NVL (ssv_ext, '|LINK_A_NULL|');
-               ELSE
-                  SELECT pv.pv_id
-                    INTO clonefrompvid
-                    FROM PACKAGES pkg, package_versions pv,
-                         release_content rc
-                   WHERE rc.pv_id = pv.pv_id
-                     AND pv.pkg_id = pkg.pkg_id
-                     AND rc.rtag_id = rtagid
-                     AND pkg.pkg_name = pkgname
-                     AND NVL (pv.v_ext, '|LINK_A_NULL|') = NVL (vext, '|LINK_A_NULL|');
-               END IF;
-            EXCEPTION
-               WHEN NO_DATA_FOUND
-               THEN
-                  raise_application_error
-                                        (-20000,
-                                            'Cannot get CloneFromPvId. VExt='
-                                         || vext
-                                         || ', RtagId='
-                                         || rtagid
-                                         || ', PkgName='
-                                         || pkgname
-                                         || ', SSV_EXT='
-                                         || ssv_ext
-                                        );
-            END;
-            IF NVL (vext, '|LINK_A_NULL|') = NVL (ssv_ext, '|LINK_A_NULL|')
-            THEN
-               -- Create package
-               seed_package_names_versions (pkgname,
-                                            newpkgversion,
-                                            userid,
-                                            pvid,
-                                            clonefrompvid
-                                           );
-            ELSE
-               -- Create package
-               seed_package_names_versions2 (pkgname,
-                                             newpkgversion,
-                                             userid,
-                                             pvid,
-                                             clonefrompvid
-                                            );
-            END IF;
-            -- Update Package reason for release
-            UPDATE package_versions pv
-               SET pv.comments = 'Rippled Build.',
-                   pv.build_type = 'Y'
-             WHERE pv.pv_id = pvid;
-         ELSE
-            -- Package already exists, it was built previously, and has just been re-built again probably due to the
-            -- fact that the archive was cleaned of the original build artifacts at some point, and those artifacts
-            -- are now needed once more. As such, we need to ensure that a new release note generation occurs so
-            -- reset the package_versions[pvid].release_notes_info field to enable that to happen.
-            UPDATE package_versions pv
-               SET pv.release_notes_info = null,
-                   pv.modified_stamp = ora_sysdatetime
-             WHERE pv.pv_id = pvid;
-            RETURN return_package_already_exists;
-         END IF;
-      ELSE
-         /* Auto build from Pending area */
-         -- Find package in pending area
-         BEGIN
-            SELECT pv.pv_id, pv.dlocked
-              INTO pvid, dlocked
-              FROM planned pl, package_versions pv, PACKAGES pkg
-             WHERE pl.pv_id = pv.pv_id
-               AND pv.pkg_id = pkg.pkg_id
-               AND pl.rtag_id = rtagid
-               AND pkg.pkg_name = pkgname
-               AND pv.dlocked = 'A'
-               AND NVL (pv.v_ext, '|LINK_A_NULL|') = NVL (vext, '|LINK_A_NULL|')
-               AND rownum = 1
-             ORDER BY pv.modified_stamp;
-         EXCEPTION
-            WHEN NO_DATA_FOUND
-            THEN
-               pvid := 0;
-         END;
-         IF (pvid = 0)
-         THEN
-            -- Package does not exist in pending area, hence report it
-            RETURN return_package_not_found;
-         ELSIF (dlocked != 'A')
-         THEN
-            -- Package is not approved for autobuild
-            RETURN return_not_approved;
-         END IF;
-      END IF;
-      BEGIN
-         -- Import Dependencies
-         import_dependencies (pvid, dependenciesimportlist, userid);
-      END;
-      BEGIN
-         -- Split current version in parts
-         split_version (newpkgversion, ssv_mm, ssv_nmm, ssv_ext);
-         -- Update Package Details
-         UPDATE package_versions pv
-            SET pv.pkg_version = newpkgversion,
-                pv.v_ext = ssv_ext,
-                pv.v_mm = ssv_mm,
-                pv.v_nmm = ssv_nmm,
-                pv.pkg_label = label
-          WHERE pv.pv_id = pvid;
-      EXCEPTION
-         WHEN DUP_VAL_ON_INDEX
-         THEN
-            -- Package already exists, hence cannot be used for ripple build
-            RETURN return_package_already_exists;
-      END;
-      -- Update the is_autobuildable
-      UPDATE package_versions
-         SET is_autobuildable = 'Y'
-       WHERE pv_id = pvid;
-      -- Now release package
-      pk_environment.auto_make_release (pvid,
-                                        rtagid,
-                                        userid,
-                                        vext,
-                                        ssv_ext,
-                                        clonefrompvid
-                                       );
-      --Now clean the PLANNED_VERSIONS table
-      SELECT pkg_id
-        INTO pkgid
-        FROM PACKAGES
-       WHERE pkg_name = pkgname;
-      DELETE FROM planned_versions
-            WHERE pkg_id = pkgid AND pkg_version = newpkgversion;
-      RETURN pvid;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION auto_make_vcsrelease (
-      rtagid                   IN   NUMBER,
-      pkgname                  IN   VARCHAR2,
-      vext                     IN   VARCHAR2,
-      newpkgversion            IN   VARCHAR2,
-      vcstag             IN   VARCHAR2,
-      dependenciesimportlist   IN   VARCHAR2,
-      isrippled                IN   NUMBER,
-      username                 IN   VARCHAR2
-   )
-      RETURN NUMBER
-   IS
-      pkgid                           NUMBER;
-      pvid                            NUMBER                        := 0;
-      userid                          NUMBER;
-      dlocked                         VARCHAR2 (20)                 := NULL;
-      clonefrompvid                   NUMBER;
-      ssv_mm                          package_versions.v_mm%TYPE;
-      ssv_nmm                         package_versions.v_nmm%TYPE;
-      ssv_ext                         package_versions.v_ext%TYPE;
-      return_package_not_found        NUMBER                        := -1;
-      return_package_already_exists   NUMBER                        := -2;
-      return_not_approved             NUMBER                        := -3;
-      x_vcstypeid                     NUMBER;
-      x_tag                           VARCHAR2(32);
-      x_label                         VARCHAR2(60);
-      x_srcpath                       VARCHAR2(2000);
-      -- Regular expression constituents
-      Token         VARCHAR2(16) := '([^:]+)';  -- a token is anything except a ':' character
-      Seperator     VARCHAR2(4)  := '::';       -- tokens will be seperated by '::'
-      BOL           VARCHAR2(4)  := '^';
-      Anything      VARCHAR2(4)  := '.*';
-      ReplaceToken1 VARCHAR2(4)  := '\1';
-      ReplaceToken2 VARCHAR2(4)  := '\2';
-      ReplaceToken3 VARCHAR2(4)  := '\3';
-   BEGIN
-      /*--------------- Business Rules Here -------------------*/
-      IF (rtagid IS NULL)
-      THEN
-         raise_application_error (-20000, 'RtagId must be supplied.');
-      END IF;
-      IF (pkgname IS NULL)
-      THEN
-         raise_application_error (-20000, 'PkgName must be supplied.');
-      END IF;
-      IF (newpkgversion IS NULL)
-      THEN
-         raise_application_error (-20000, 'PkgVersion must be supplied.');
-      END IF;
-      IF (vcstag IS NULL)
-      THEN
-         raise_application_error (-20000, 'PkgVcsTag must be supplied.');
-      END IF;
-      IF (isrippled IS NULL) OR (isrippled < 0) OR (isrippled > 1)
-      THEN
-         raise_application_error
-            (-20000,
-             'IsRippled must be set to 1 (Is rippled build) or 0 (Is planned build).'
-            );
-      END IF;
-      IF (username IS NULL)
-      THEN
-         raise_application_error (-20000, 'UserName must be supplied.');
-      END IF;
-      -- Parse the PkgVcsTag
-      -- Sets up
-      --   x_tag, x_label, x_srcpath
-       BEGIN
-          -- Extract the first token - this will be the short tag name for the VCS (eg. 'CC', 'SVN', etc)
-          x_tag := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Anything, ReplaceToken1);
-          -- Decode the short tag
-          CASE x_tag
-             WHEN 'CC' THEN
-                -- extract the 2nd and 3rd tokens, those being the source path and label respectively
-                x_srcpath := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Anything, ReplaceToken2);
-                x_label   := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Token, ReplaceToken3);
-                -- NOTE: if reg-expr parsing/replacement fails, the x_... variable may receive the entire input string (vcstag), so
-                -- check for that error as well as the obvious zero-length string conditions.
-                IF LENGTH(x_srcpath) = 0 OR LENGTH(x_label) = 0 OR x_srcpath = vcstag OR x_label = vcstag THEN
-                   raise_application_error (-20000, 'VCS Tag contains insufficient or malformed data!');
-                END IF;
-             WHEN 'SVN' THEN
-                -- extract the 2nd token, that being the subversion tag
-                x_srcpath := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token, ReplaceToken2);
-                x_label   := 'N/A';
-                -- NOTE: if reg-expr parsing/replacement fails, the x_... variable may receive the entire input string (vcstag), so
-                -- check for that error as well as the obvious zero-length string conditions.
-                IF LENGTH(x_srcpath) = 0 OR x_srcpath = vcstag THEN
-                   raise_application_error (-20000, 'VCS Tag contains insufficient or malformed data!');
-                END IF;
-             WHEN 'UC' THEN
-                -- nothing to extract, just assign defaults
-                x_srcpath := '';
-                x_label   := 'N/A';
-             ELSE
-                raise_application_error (-20000, 'Unrecognised VCS Tag!');
-          END CASE;
-       END;
-      -- Get the VCS_TYPE_ID for the version control system.
-      BEGIN
-         SELECT vt.vcs_type_id
-         INTO x_vcstypeid
-         FROM VCS_TYPE vt
-         WHERE vt.tag = x_tag;
-         EXCEPTION
-            WHEN NO_DATA_FOUND THEN
-               raise_application_error (-20000, 'Database is missing a version control system tag (' || x_tag || ')!' );
-      END;
-      -- Get user_id
-      BEGIN
-         SELECT usr.user_id
-           INTO userid
-           FROM users usr
-          WHERE UPPER (usr.user_name) = UPPER (username)
-            AND usr.is_disabled IS NULL;
-      EXCEPTION
-         WHEN NO_DATA_FOUND
-         THEN
-            raise_application_error (-20000,
-                                        'UserName '
-                                     || username
-                                     || ' is not valid or disabled.'
-                                    );
-      END;
-/*-------------------------------------------------------*/
-      -- Create package if necessary
-      IF isrippled = 1
-      THEN
-         /* Ripple Build */
-         BEGIN
-            -- Make sure that package does not exist
-            SELECT pv.pv_id
-              INTO pvid
-              FROM package_versions pv, PACKAGES pkg
-             WHERE pv.pkg_id = pkg.pkg_id
-               AND pkg.pkg_name = pkgname
-               AND pv.pkg_version = newpkgversion;
-         EXCEPTION
-            WHEN NO_DATA_FOUND
-            THEN
-               pvid := 0;
-         END;
-         IF (pvid = 0)
-         THEN
-            -- Split current version in parts
-            split_version (newpkgversion, ssv_mm, ssv_nmm, ssv_ext);
-            BEGIN
-               -- Find package to be replaced with thie ripple package
-               IF NVL (vext, '|LINK_A_NULL|') = NVL (ssv_ext, '|LINK_A_NULL|')
-               THEN
-                  SELECT pv.pv_id
-                    INTO clonefrompvid
-                    FROM PACKAGES pkg, package_versions pv,
-                         release_content rc
-                   WHERE rc.pv_id = pv.pv_id
-                     AND pv.pkg_id = pkg.pkg_id
-                     AND rc.rtag_id = rtagid
-                     AND pkg.pkg_name = pkgname
-                     AND NVL (pv.v_ext, '|LINK_A_NULL|') = NVL (ssv_ext, '|LINK_A_NULL|');
-               ELSE
-                  SELECT pv.pv_id
-                    INTO clonefrompvid
-                    FROM PACKAGES pkg, package_versions pv,
-                         release_content rc
-                   WHERE rc.pv_id = pv.pv_id
-                     AND pv.pkg_id = pkg.pkg_id
-                     AND rc.rtag_id = rtagid
-                     AND pkg.pkg_name = pkgname
-                     AND NVL (pv.v_ext, '|LINK_A_NULL|') = NVL (vext, '|LINK_A_NULL|');
-               END IF;
-            EXCEPTION
-               WHEN NO_DATA_FOUND
-               THEN
-                  raise_application_error
-                                        (-20000,
-                                            'Cannot get CloneFromPvId. VExt='
-                                         || vext
-                                         || ', RtagId='
-                                         || rtagid
-                                         || ', PkgName='
-                                         || pkgname
-                                         || ', SSV_EXT='
-                                         || ssv_ext
-                                        );
-            END;
-            IF NVL (vext, '|LINK_A_NULL|') = NVL (ssv_ext, '|LINK_A_NULL|')
-            THEN
-               -- Create package
-               seed_package_names_versions (pkgname,
-                                            newpkgversion,
-                                            userid,
-                                            pvid,
-                                            clonefrompvid
-                                           );
-            ELSE
-               -- Create package
-               seed_package_names_versions2 (pkgname,
-                                             newpkgversion,
-                                             userid,
-                                             pvid,
-                                             clonefrompvid
-                                            );
-            END IF;
-            -- Update Package reason for release
-            UPDATE package_versions pv
-               SET pv.comments = 'Rippled Build.',
-                   pv.build_type = 'Y'
-             WHERE pv.pv_id = pvid;
-         ELSE
-            -- Package already exists, it was built previously, and has just been re-built again probably due to the
-            -- fact that the archive was cleaned of the original build artifacts at some point, and those artifacts
-            -- are now needed once more. As such, we need to ensure that a new release note generation occurs so
-            -- reset the package_versions[pvid].release_notes_info field to enable that to happen.
-            UPDATE package_versions pv
-               SET pv.release_notes_info = null,
-                   pv.modified_stamp = ora_sysdatetime
-             WHERE pv.pv_id = pvid;
-            RETURN return_package_already_exists;
-         END IF;
-      ELSE
-         /* Auto build from Pending area */
-         -- Find package in pending area
-         BEGIN
-            SELECT pv.pv_id, pv.dlocked
-              INTO pvid, dlocked
-              FROM planned pl, package_versions pv, PACKAGES pkg
-             WHERE pl.pv_id = pv.pv_id
-               AND pv.pkg_id = pkg.pkg_id
-               AND pl.rtag_id = rtagid
-               AND pkg.pkg_name = pkgname
-               AND pv.dlocked = 'A'
-               AND NVL (pv.v_ext, '|LINK_A_NULL|') = NVL (vext, '|LINK_A_NULL|')
-               AND rownum = 1
-             ORDER BY pv.modified_stamp;
-         EXCEPTION
-            WHEN NO_DATA_FOUND
-            THEN
-               pvid := 0;
-         END;
-         IF (pvid = 0)
-         THEN
-            -- Package does not exist in pending area, hence report it
-            RETURN return_package_not_found;
-         ELSIF (dlocked != 'A')
-         THEN
-            -- Package is not approved for autobuild
-            RETURN return_not_approved;
-         END IF;
-      END IF;
-      BEGIN
-         -- Import Dependencies
-         import_dependencies (pvid, dependenciesimportlist, userid);
-      END;
-      BEGIN
-         -- Split current version in parts
-         split_version (newpkgversion, ssv_mm, ssv_nmm, ssv_ext);
-         -- Update Package Details
-         UPDATE package_versions pv
-            SET pv.pkg_version = newpkgversion,
-                pv.v_ext = ssv_ext,
-                pv.v_mm = ssv_mm,
-                pv.v_nmm = ssv_nmm,
-                pv.src_path = x_srcpath,
-                pv.pkg_label = x_label,
-                pv.vcs_type_id = x_vcstypeid
-          WHERE pv.pv_id = pvid;
-      EXCEPTION
-         WHEN DUP_VAL_ON_INDEX
-         THEN
-            -- Package already exists, hence cannot be used for ripple build
-            RETURN return_package_already_exists;
-      END;
-      -- Update the is_autobuildable
-      UPDATE package_versions
-         SET is_autobuildable = 'Y'
-       WHERE pv_id = pvid;
-      -- Now release package
-      pk_environment.auto_make_release (pvid,
-                                        rtagid,
-                                        userid,
-                                        vext,
-                                        ssv_ext,
-                                        clonefrompvid
-                                       );
-      --Now clean the PLANNED_VERSIONS table
-      SELECT pkg_id
-        INTO pkgid
-        FROM PACKAGES
-       WHERE pkg_name = pkgname;
-      DELETE FROM planned_versions
-            WHERE pkg_id = pkgid AND pkg_version = newpkgversion;
-      RETURN pvid;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE import_dependencies (
-      pvid                     IN   NUMBER,
-      dependenciesimportlist   IN   VARCHAR2,
-      userid                   IN   NUMBER
-   )
-   IS
-/*
-|| DependenciesImportList Format:
-|| "pkgA","1.0.0";"pkgB","2.0.0";
-||  OR 'pkgA','1.0.0';'pkgB','2.0.0';
-*/
-      TYPE tdictionary IS TABLE OF VARCHAR2 (4000)
-         INDEX BY VARCHAR2 (4000);
-      seperator         VARCHAR2 (2)           := '||';
-      pkgname           VARCHAR2 (4000);
-      pkgversion        VARCHAR2 (4000);
-      buildtype         VARCHAR2 (50);
-      pkgid             NUMBER;
-      vext              VARCHAR2 (4000);
-      dpvid             NUMBER;
-      slist             VARCHAR2 (4000);
-      cbuildtypes       tdictionary;
-      dependencyrow     NUMBER;
-      sdependency       VARCHAR2 (4000);
-      first_pos         VARCHAR2 (4000);
-      second_pos        VARCHAR2 (4000);
-      third_pos         VARCHAR2 (4000);
-      forth_pos         VARCHAR2 (4000);
-      citemcollection   relmgr_varchar2_tab_t  := relmgr_varchar2_tab_t ();
-      CURSOR curbuildtype
-      IS
-         SELECT dpv.pkg_id || seperator || dpv.v_ext AS pkgid_ext,
-                dep.build_type
-           FROM package_dependencies dep, package_versions dpv
-          WHERE dep.pv_id = pvid AND dep.dpv_id = dpv.pv_id;
-      recbuildtype      curbuildtype%ROWTYPE;
-   BEGIN
-      slist := dependenciesimportlist;
-      -- Preformat String
-      IF NOT slist IS NULL
-      THEN
-         slist := REPLACE (slist, ' ');                      -- Remove spaces
-         slist := REPLACE (slist, UTL_TCP.crlf);
-         -- Remove new line and carriage-return characters
-         slist := REPLACE (slist, '''', '"');             -- Replace ' with "
-      END IF;
-      -- Get Current Dependencies
-      OPEN curbuildtype;
-      FETCH curbuildtype
-       INTO recbuildtype;
-      WHILE curbuildtype%FOUND
-      LOOP
-         cbuildtypes (recbuildtype.pkgid_ext) := recbuildtype.build_type;
-         FETCH curbuildtype
-          INTO recbuildtype;
-      END LOOP;
-      CLOSE curbuildtype;
-      -- Separate dependencies with ; separator
-      citemcollection := in_list_varchar2 (slist, ';');
-      BEGIN
-         -- Remove old dependencies
-         DELETE FROM package_dependencies dep
-               WHERE dep.pv_id = pvid;
-         -- Loop through dependencies
-         FOR dependencyrow IN 1 .. citemcollection.COUNT
-         LOOP
-            -- Extract pkg_name and pkg_version
-            sdependency := citemcollection (dependencyrow);
-            first_pos := INSTR (sdependency, '"', 1, 1);
-            second_pos := INSTR (sdependency, '"', 1, 2);
-            third_pos := INSTR (sdependency, '"', 1, 3);
-            forth_pos := INSTR (sdependency, '"', 1, 4);
-            pkgname :=
-               SUBSTR (sdependency,
-                       (first_pos + 1),
-                       (second_pos - first_pos - 1)
-                      );
-            pkgversion :=
-               SUBSTR (sdependency,
-                       (third_pos + 1),
-                       (forth_pos - third_pos - 1)
-                      );
-            -- Dependency must exits to be linked against
-            BEGIN
-               SELECT pv.pv_id, pv.pkg_id, pv.v_ext
-                 INTO dpvid, pkgid, vext
-                 FROM package_versions pv, PACKAGES pkg
-                WHERE pv.pkg_id = pkg.pkg_id
-                  AND pkg.pkg_name = pkgname
-                  AND pv.pkg_version = pkgversion;
-            EXCEPTION
-               WHEN NO_DATA_FOUND
-               THEN
-                  raise_application_error
-                                  (-20000,
-                                      'Dependency ['
-                                   || pkgname
-                                   || ' '
-                                   || pkgversion
-                                   || '] does not exist yet and cannot be used!'
-                                  );
-            END;
-            -- Get Build Type (i.e. BuildPackageArchive or LinkPackageArchive)
-            BEGIN
-               buildtype := cbuildtypes (pkgid || seperator || vext);
-               IF buildtype IS NULL
-               THEN
-                  -- Set build type to LinkPackageArchive by default
-                  buildtype := 'L';
-               END IF;
-            EXCEPTION
-               WHEN NO_DATA_FOUND
-               THEN
-                  buildtype := 'L';
-            END;
-            -- Insert Dependencies
-            update_package_dependency (pvid,
-                                       pkgname,
-                                       pkgversion,
-                                       buildtype,
-                                       userid,
-                                      );
-         END LOOP;
-      END;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION return_last_package_version (pkgname IN VARCHAR2, rtagid IN NUMBER)
-      RETURN VARCHAR2
-   IS
-      pkgversion   VARCHAR2 (4000);
-   BEGIN
-      BEGIN
-         SELECT pv.pkg_version
-           INTO pkgversion
-           FROM PACKAGES pkg, release_content rc, package_versions pv
-          WHERE pv.pv_id = rc.pv_id
-            AND pkg.pkg_id = pv.pkg_id
-            AND pkg.pkg_name = pkgname
-            AND rc.rtag_id = rtagid;
-         RETURN pkgversion;
-      END;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION return_wip (pkgname IN VARCHAR2, rtagid IN NUMBER)
-      RETURN VARCHAR2
-   IS
-      pkgversion   VARCHAR2 (4000);
-   BEGIN
-      BEGIN
-         SELECT pv.pkg_version
-           INTO pkgversion
-           FROM PACKAGES pkg, work_in_progress wip, package_versions pv
-          WHERE pv.pv_id = wip.pv_id
-            AND pkg.pkg_id = pv.pkg_id
-            AND pkg.pkg_name = pkgname
-            AND wip.rtag_id = rtagid;
-         IF pkgversion IS NULL
-         THEN
-            SELECT pv.pkg_version
-              INTO pkgversion
-              FROM PACKAGES pkg, planned pl, package_versions pv
-             WHERE pv.pv_id = pl.pv_id
-               AND pkg.pkg_id = pv.pkg_id
-               AND pkg.pkg_name = pkgname
-               AND pl.rtag_id = rtagid;
-         END IF;
-         RETURN pkgversion;
-      END;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE update_dash_board (rtagid IN NUMBER)
-   IS
-      projid       NUMBER;
-      projiddb     NUMBER;
-      total        NUMBER;
-      auto_total   NUMBER;
-      rtagiddb     NUMBER;
-   BEGIN
-      SELECT COUNT (*)
-        INTO total
-        FROM release_content rc, package_versions pv
-       WHERE pv.pv_id = rc.pv_id AND rc.rtag_id = rtagid;
-      SELECT COUNT (*)
-        INTO auto_total
-        FROM release_content rc, package_versions pv
-       WHERE pv.pv_id = rc.pv_id
-         AND pv.is_autobuildable = 'Y'
-         AND rc.rtag_id = rtagid;
-      BEGIN
-         SELECT rtag_id
-           INTO rtagiddb
-           FROM dash_board
-          WHERE rtag_id = rtagid;
-         SELECT proj_id
-           INTO projiddb
-           FROM dash_board
-          WHERE rtag_id = rtagid;
-      EXCEPTION
-         WHEN NO_DATA_FOUND
-         THEN
-            rtagiddb := '';
-      END;
-      IF rtagiddb IS NULL
-      THEN
-         SELECT proj_id
-           INTO projid
-           FROM release_tags
-          WHERE rtag_id = rtagid;
-         INSERT INTO dash_board
-                     (proj_id, rtag_id, last_build_time, automated_packages,
-                      total_packages
-                     )
-              VALUES (projid, rtagid, ora_sysdatetime, auto_total,
-                      total
-                     );
-      ELSE
-         UPDATE dash_board
-            SET last_build_time = ora_sysdatetime,
-                automated_packages = auto_total,
-                total_packages = total
-          WHERE proj_id = projiddb AND rtag_id = rtagiddb;
-      END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION exclude_from_build (
-      pvid          IN   NUMBER,
-      spkgversion   IN   VARCHAR2,
-      rtagid        IN   NUMBER,
-      username      IN   VARCHAR2
-   )
-      RETURN NUMBER
-   IS
-      userid              NUMBER;
-      outerrcode          NUMBER;
-      pkgid               NUMBER;
-      CURSOR dnr_duplicate_cur
-      IS
-         SELECT *
-           FROM do_not_ripple
-          WHERE pv_id = pvid AND rtag_id = rtagid;
-      dnr_duplicate_rec   dnr_duplicate_cur%ROWTYPE;
-   BEGIN
-      outerrcode := -1;       -- Set default return error code to ERROR state
-      /*--------------- Business Rules Here -------------------*/
-      IF (rtagid IS NULL)
-      THEN
-         RETURN outerrcode;
---         raise_application_error (-20000, 'RtagId must be supplied.');
-      END IF;
-      IF (pvid IS NULL)
-      THEN
-         RETURN outerrcode;
---         raise_application_error (-20000, 'PvId must be supplied.');
-      END IF;
-      IF (username IS NULL)
-      THEN
-         RETURN outerrcode;
---         raise_application_error (-20000, 'UserName must be supplied.');
-      END IF;
-      -- Get user_id
-      BEGIN
-         SELECT usr.user_id
-           INTO userid
-           FROM users usr
-          WHERE UPPER (usr.user_name) = UPPER (username)
-            AND usr.is_disabled IS NULL;
-      EXCEPTION
-         WHEN NO_DATA_FOUND
-         THEN
-            RETURN outerrcode;
---            raise_application_error (-20000,
---                                        'UserName '
---                                     || username
---                                     || ' is not valid or disabled.'
---                                    );
-      END;
-      OPEN dnr_duplicate_cur;
-      FETCH dnr_duplicate_cur
-       INTO dnr_duplicate_rec;
-      IF dnr_duplicate_cur%FOUND
-      THEN
-         outerrcode := 0;
-      END IF;
-      IF dnr_duplicate_cur%NOTFOUND
-      THEN
-         /* No duplicate recordset */
-         unripple_package (pvid, rtagid, userid);
-         outerrcode := 0;                            -- Set return to SUCCESS
-      END IF;
-      CLOSE dnr_duplicate_cur;
-      SELECT pkg_id
-        INTO pkgid
-        FROM package_versions
-       WHERE pv_id = pvid;
-      DELETE FROM planned_versions
-            WHERE pkg_id = pkgid AND pkg_version = spkgversion;
-      RETURN outerrcode;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION exclude_indirect_from_build (
-      pvid          IN   NUMBER,
-      spkgversion   IN   VARCHAR2,
-      rtagid        IN   NUMBER,
-      username      IN   VARCHAR2,
-      rootpvid      IN   NUMBER,
-      rootcause     IN   VARCHAR2,
-      rootfile      IN   VARCHAR2
-   )
-      RETURN NUMBER
-   IS
-      userid              NUMBER;
-      outerrcode          NUMBER;
-      pkgid               NUMBER;
-      CURSOR dnr_duplicate_cur
-      IS
-         SELECT *
-           FROM do_not_ripple
-          WHERE pv_id = pvid AND rtag_id = rtagid;
-      dnr_duplicate_rec   dnr_duplicate_cur%ROWTYPE;
-   BEGIN
-      outerrcode := -1;       -- Set default return error code to ERROR state
-      /*--------------- Business Rules Here -------------------*/
-      IF (rtagid IS NULL)
-      THEN
-         RETURN outerrcode;
---         raise_application_error (-20000, 'RtagId must be supplied.');
-      END IF;
-      IF (pvid IS NULL)
-      THEN
-         RETURN outerrcode;
---         raise_application_error (-20000, 'PvId must be supplied.');
-      END IF;
-      IF (username IS NULL)
-      THEN
-         RETURN outerrcode;
---         raise_application_error (-20000, 'UserName must be supplied.');
-      END IF;
-      -- Get user_id
-      BEGIN
-         SELECT usr.user_id
-           INTO userid
-           FROM users usr
-          WHERE UPPER (usr.user_name) = UPPER (username)
-            AND usr.is_disabled IS NULL;
-      EXCEPTION
-         WHEN NO_DATA_FOUND
-         THEN
-            RETURN outerrcode;
---            raise_application_error (-20000,
---                                        'UserName '
---                                     || username
---                                     || ' is not valid or disabled.'
---                                    );
-      END;
-     /* No duplicate recordset */
-     unripple_package_indirect (pvid, rtagid, userid, rootpvid, rootcause, rootfile);
-     outerrcode := 0;                            -- Set return to SUCCESS
-      SELECT pkg_id
-        INTO pkgid
-        FROM package_versions
-       WHERE pv_id = pvid;
-      DELETE FROM planned_versions
-            WHERE pkg_id = pkgid AND pkg_version = spkgversion;
-      RETURN outerrcode;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE insert_abt_actionlog (rconid IN NUMBER, action IN VARCHAR2)
-   IS
-   BEGIN
-      INSERT INTO abt_action_log
-                  (rcon_id, action_datetime, action
-                  )
-           VALUES (rconid, ora_sysdatetime, action
-                  );
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION insert_package_metrics (
-      rtagid                   IN   NUMBER,
-      pkgname                  IN   VARCHAR2,
-      vext                     IN   VARCHAR2,
-      metricstring             IN   VARCHAR2
-   )
-      RETURN NUMBER
-   IS
-      citemcollection          relmgr_varchar2_tab_t  := relmgr_varchar2_tab_t ();
-      lv_pvid                  NUMBER                 := 0;
-      rownumber                NUMBER;
-      rowcontent               VARCHAR2(4000);
-      metricname               VARCHAR2(1000);
-      metricvalue              VARCHAR2(4000);
-      return_insert_error      NUMBER                 := -1;
-      return_insert_success    NUMBER                 := 0;
-      /* Metrics */
-      lv_branches                 NUMBER;
-      lv_branchlist               VARCHAR2(4000);
-      lv_codefiles                NUMBER;
-      lv_ignoredfiles             NUMBER;
-      lv_directories              NUMBER;
-      lv_directorydepth           NUMBER;
-      lv_totalfiles               NUMBER;
-      lv_makefiles                NUMBER;
-      lv_blanklines               NUMBER;
-      lv_codelines                NUMBER;
-      lv_commentlines             NUMBER;
-   BEGIN
-      /*--------------- Business Rules Here -------------------*/
-      IF (rtagid IS NULL)
-      THEN
-         RETURN return_insert_error;
-      END IF;
-      IF (pkgname IS NULL)
-      THEN
-         RETURN return_insert_error;
-      END IF;
-      IF (metricstring IS NULL)
-      THEN
-         RETURN return_insert_error;
-      END IF;
-      BEGIN
-         SELECT pv.pv_id
-           INTO lv_pvid
-           FROM package_versions pv, packages pkg, release_content rc
-          WHERE pv.pkg_id = pkg.pkg_id
-            AND rc.rtag_id = rtagid
-            AND pv.pv_id = rc.pv_id
-            AND pkg.pkg_name = pkgname
-            AND NVL (pv.v_ext, '|LINK_A_NULL|') = NVL (vext, '|LINK_A_NULL|');
-      EXCEPTION
-           WHEN NO_DATA_FOUND
-           THEN
-                lv_pvid := 0;
-      END;
-      citemcollection := in_list_varchar2 (metricstring, ';');
-      FOR rownumber IN 1 .. citemcollection.COUNT
-      LOOP
-         rowcontent := citemcollection(rownumber);
-         metricvalue := SUBSTR(rowcontent, (INSTR(rowcontent, '=') + 1));
-         metricname := REGEXP_REPLACE(rowcontent, '=.*$', '');
-         IF    metricname = 'ccbranch.count' THEN lv_branches := metricvalue;
-         ELSIF metricname = 'ccbranch.list' THEN lv_branchlist := metricvalue;
-         ELSIF metricname = 'code.files' THEN lv_codefiles := metricvalue;
-         ELSIF metricname = 'code.ignored' THEN lv_ignoredfiles := metricvalue;
-         ELSIF metricname = 'count.dir' THEN lv_directories := metricvalue;
-         ELSIF metricname = 'count.dirdepth' THEN lv_directorydepth := metricvalue;
-         ELSIF metricname = 'count.file' THEN lv_totalfiles := metricvalue;
-         ELSIF metricname = 'count.makefile' THEN lv_makefiles := metricvalue;
-         ELSIF metricname = 'lines.blank' THEN lv_blanklines := metricvalue;
-         ELSIF metricname = 'lines.code' THEN lv_codelines := metricvalue;
-         ELSIF metricname = 'lines.comment' THEN lv_commentlines := metricvalue;
-         END IF;
-      END LOOP;
-      IF (lv_pvid > 0)
-      THEN
-         -- Delete any existing entries for this package version to makes sure our data is untainted
-         DELETE FROM package_metrics pm
-         WHERE pm.pv_id = lv_pvid;
-         -- Insert the new data into the metrics table
-         INSERT INTO package_metrics
-                     (pv_id, branches, branch_list, code_files, ignored_files, directories, directory_depth,
-                      total_files, makefiles, blank_lines, code_lines, comment_lines, created_stamp
-                     )
-              VALUES (lv_pvid, lv_branches, lv_branchlist, lv_codefiles, lv_ignoredfiles, lv_directories, lv_directorydepth,
-                      lv_totalfiles, lv_makefiles, lv_blanklines, lv_codelines, lv_commentlines, ora_sysdatetime
-                     );
-         -- Now update the Release_Metrics Table
-         update_release_metrics(rtagid);
-         RETURN return_insert_success;
-      ELSE
-         RETURN return_insert_error;
-      END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE update_release_metrics (rtagid IN NUMBER)
-   IS
-      lv_totalpackages       NUMBER;
-      lv_autobuilt           NUMBER;
-      lv_linesofcode         NUMBER;
-      lv_unittested          NUMBER;
-      lv_autotested          NUMBER;
-      lv_numOfbranches       NUMBER;
-      lv_lastbuildtime       DATE;
-   BEGIN
-      IF (rtagid > 0)
-      THEN
-         -- Get the total number of packages in this release and the number of
-         -- those that are autobuilt
-         SELECT COUNT (DISTINCT rc.pv_id),
-                COUNT (DISTINCT autobuilt_qry.pv_id)
-           INTO lv_totalpackages, lv_autobuilt
-           FROM release_content rc,
-                package_versions pv,
-                (
-                 SELECT rc.pv_id
-                   FROM release_content rc,
-                        package_versions pv
-                  WHERE pv.is_autobuildable = 'Y'
-                    AND pv.pv_id = rc.pv_id
-                    AND rc.rtag_id = rtagid
-                ) autobuilt_qry
-          WHERE pv.pv_id = rc.pv_id
-            AND rc.rtag_id = rtagid
-            AND autobuilt_qry.pv_id (+) = rc.pv_id;
-         -- Get the build time of the last package built in this release and the
-         -- total number of lines of code
-         SELECT MAX(pm.created_stamp),
-                SUM(pm.code_lines)
-           INTO lv_lastbuildtime, lv_linesofcode
-           FROM package_metrics pm, release_content rc
-          WHERE pm.pv_id = rc.pv_id
-            AND rc.rtag_id = rtagid;
-         -- Get the number of packages with unit tests in this release and the
-         -- number of those that are autotested
-         SELECT COUNT(DISTINCT ut.pv_id) INTO lv_unittested
-           FROM unit_tests ut,
-                release_content rc
-          WHERE ut.pv_id = rc.pv_id
-            AND rc.rtag_id = rtagid
-        AND ut.test_types_fk != 1;
-        SELECT COUNT(DISTINCT ut.pv_id) INTO lv_autotested
-          FROM unit_tests ut,
-               release_content rc
-         WHERE ut.pv_id = rc.pv_id
-           AND rc.rtag_id = rtagid
-           AND ut.test_types_fk = 7;
-         -- Count the number of unique branches in the packages in this release.
---         SELECT COUNT(DISTINCT branch) INTO lv_numOfbranches
---           FROM (
---                SELECT pv_id,
---                       regexp_substr(str, '[^,]+', 1, level) branch,
---                       level lv,
---                       lag(level, 1, 0) over (partition by pv_id order by level) lg
---                  FROM (
---                       SELECT pm.pv_id,
---                              ','||pm.branch_list str
---                         FROM package_metrics pm,
---                              release_content rc
---                        WHERE pm.pv_id = rc.pv_id
---                          AND rc.rtag_id = rtagid
---                       )
---                CONNECT BY regexp_substr(str, '[^,]+', 1, LEVEL) IS NOT NULL
---                )
---          WHERE lv != lg;
-         UPDATE release_metrics rm
-            SET rm.total_packages = lv_totalpackages,
-                rm.autobuilt = lv_autobuilt,
-                rm.lines_of_code = lv_linesofcode,
-                rm.unit_tested = lv_unittested,
-                rm.autotested = lv_autotested,
---                rm.branches = lv_numOfbranches,
-                rm.last_build_time = lv_lastbuildtime
-          WHERE rtag_id = rtagid;
-         IF (SQL%ROWCOUNT = 0)
-         THEN
-            INSERT INTO release_metrics
-                        (rtag_id, total_packages, autobuilt, lines_of_code, unit_tested,
-                         autotested, last_build_time
-                        )
-                 VALUES (rtagid, lv_totalpackages, lv_autobuilt, lv_linesofcode, lv_unittested,
-                         lv_autotested, lv_lastbuildtime
-                        );
-         END IF;
---         IF (SQL%ROWCOUNT = 0)
---         THEN
---            INSERT INTO release_metrics
---                        (rtag_id, total_packages, autobuilt, lines_of_code, unit_tested,
---                         autotested, branches, last_build_time
---                        )
---                 VALUES (rtagid, lv_totalpackages, lv_autobuilt, lv_linesofcode, lv_unittested,
---                         lv_autotested, lv_numOfbranches, lv_lastbuildtime
---                        );
---         END IF;
---      ELSE
---         raise_application_error (-20000, 'RtagId must be supplied.');
-      END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION return_vcs_tag(pvid IN NUMBER) RETURN VARCHAR2
-   IS
-      vcstypeid    NUMBER;
-      vcstag       VARCHAR2(32);
-      label        VARCHAR2(60);
-      srcpath      VARCHAR2(2000);
-      vcstypeid_cc NUMBER;
-      vcstypeid_uc NUMBER;
-   BEGIN
-      -- Get the VCS_TYPE_ID for the ClearCase version control system. We do this so that we make no assumptions about
-      -- what the primary key value is for the ClearCase VCS entry.
-      BEGIN
-         SELECT vt.vcs_type_id
-         INTO vcstypeid_cc
-         FROM VCS_TYPE vt
-         WHERE vt.tag = 'CC';
-         EXCEPTION
-            WHEN NO_DATA_FOUND THEN
-               raise_application_error (-20000, 'Database is missing compulsory CC version control system tag!');
-      END;
-      -- Get the VCS_TYPE_ID for the Uncontrolled version control system. We do this so that we make no assumptions about
-      -- what the primary key value is for the Uncontrolled VCS entry.
-      BEGIN
-         SELECT vt.vcs_type_id
-         INTO vcstypeid_uc
-         FROM VCS_TYPE vt
-         WHERE vt.tag = 'UC';
-         EXCEPTION
-            WHEN NO_DATA_FOUND THEN
-               raise_application_error (-20000, 'Database is missing compulsory UC version control system tag!');
-      END;
-      -- Get the PKG_LABEL, SRC_PATH, VCS_TYPE_ID for the package version
-      -- As additional VCS types are introduced, we may have to extend what this SELECT statement returns
-      BEGIN
-         SELECT pv.pkg_label, pv.src_path,
-           (CASE WHEN pv.pkg_label = 'N/A' AND pv.vcs_type_id IS NULL THEN vcstypeid_uc
-                 WHEN pv.vcs_type_id IS NULL THEN vcstypeid_cc
-                 ELSE pv.vcs_type_id END) AS vcs_type_id
-         INTO label, srcpath, vcstypeid
-         FROM PACKAGE_VERSIONS pv
-         WHERE pv.pv_id = pvid;
-         EXCEPTION
-            WHEN NO_DATA_FOUND THEN
-               raise_application_error (-20000, 'Package Version Not Found!');
-      END;
-      -- Get the VCS TAG for the VCS_TYPE_ID.
-      BEGIN
-         SELECT vt.tag
-         INTO vcstag
-         FROM VCS_TYPE vt
-         WHERE vt.vcs_type_id = vcstypeid;
-         EXCEPTION
-            WHEN NO_DATA_FOUND THEN
-               raise_application_error (-20000, 'Could not get VCS Tag for the package version!');
-      END;
-      -- Return value depending upon which VCS Tag is being used.
-      -- As additional VCS types are introduced, we have to add additional WHEN clauses
-      CASE vcstag
-         WHEN 'CC' THEN
-            RETURN vcstag || '::' || srcpath || '::' || label;
-         WHEN 'SVN' THEN
-            RETURN vcstag || '::' || srcpath;
-         ELSE
-            RETURN vcstag || '::';
-      END CASE;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-END pk_rmapi_test;
-/
---------------------------------------------------------
---  DDL for Package Body PK_LICENCING
---------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "PK_LICENCING" IS
-/*
-------------------------------
-||  Last Modified:  G.Huddy
-||  Modified Date:  19/Aug/2008
-||  Body Version:   1.0
-------------------------------
-*/
-   PROCEDURE ADD_LICENCE ( PvId IN NUMBER, licenceId IN NUMBER, UserId IN NUMBER ) IS
-   BEGIN
-      IF IS_LICENCED(PvId, licenceId) = 0 THEN
-         -- Add entry to licencing table
-         INSERT INTO licencing (pv_id, licence)
-         VALUES (PvId, licenceId);
-         -- log action
-         -- TODO
-      END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE REMOVE_LICENCE ( PvId IN NUMBER, licenceId IN NUMBER, UserId IN NUMBER ) IS
-   BEGIN
-      IF NOT IS_LICENCED(PvId, licenceId) = 0 THEN
-         -- Delete entry from licencing table
-         DELETE FROM licencing
-         WHERE pv_id = PvId
-         AND licence = licenceId;
-         -- log action
-         -- TODO
-      END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE CLONE_LICENCING( fromPvId IN NUMBER, toPvId IN NUMBER, UserId IN NUMBER ) IS
-      CURSOR licencing_cur
-      IS
-         SELECT *
-         FROM licencing
-         WHERE pv_id = fromPvId;
-      licencing_rec licencing_cur%ROWTYPE;
-   BEGIN
-      -- For each licence association that the Last PV_ID had, create a similar
-      -- arrangement for the new PV_ID
-      -- NOTE that any additional licencing associations the new PV_ID has that the old one
-      -- does not have, are retained. The assumption is that the user has made those and so we do not
-      -- have any right to destroy them without asking them.
-      OPEN licencing_cur;
-      FETCH licencing_cur
-      INTO licencing_rec;
-      WHILE licencing_cur%FOUND
-      LOOP
-         ADD_LICENCE ( toPvId, licencing_rec.licence, UserId );
-         FETCH licencing_cur
-         INTO licencing_rec;
-      END LOOP;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION IS_LICENCED( PvId IN NUMBER, licenceId IN NUMBER) RETURN NUMBER IS
-      found NUMBER;
-   BEGIN
-      SELECT COUNT(*) INTO found
-      FROM licencing
-      WHERE pv_id = PvId
-      AND licence = LicenceId;
-      RETURN found;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE REMOVE_ALL_LICENCING( PvId IN NUMBER, UserId IN NUMBER ) IS
-      CURSOR licencing_cur
-      IS
-         SELECT *
-         FROM licencing
-         WHERE pv_id = PvId;
-      licencing_rec licencing_cur%ROWTYPE;
-   BEGIN
-      -- For each licence association that the PV_ID had, remove it
-      OPEN licencing_cur;
-      FETCH licencing_cur
-      INTO licencing_rec;
-      WHILE licencing_cur%FOUND
-      LOOP
-         REMOVE_LICENCE ( PvId, licencing_rec.licence, UserId );
-         FETCH licencing_cur
-         INTO licencing_rec;
-      END LOOP;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-END PK_LICENCING;
-/
---------------------------------------------------------
---  DDL for Package Body RM_ISSUES
---------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "RM_ISSUES" AS
--- Private Implementation -----------------------------------------------------
-	FUNCTION VerIsGrtrThanOrEqlToStart( XXstart IN NUMBER, XX IN NUMBER, YYstart IN NUMBER, YY IN NUMBER, ZZstart IN NUMBER, ZZ IN NUMBER ) RETURN NUMBER
-	AS
-	BEGIN
-		-- start boundary case
-		IF ( XXstart < XX ) THEN
-			RETURN 1;
-		ELSIF ( XXstart = XX ) THEN
-			-- need to consider YY
-			IF ( YYstart < YY ) THEN
-				RETURN 1;
-			ELSIF ( YYstart = YY ) THEN
-					-- need to consider ZZ
-					IF ( ZZstart <= ZZ ) THEN
-						RETURN 1;
-					ELSE
-						RETURN 0;
-					END IF;
-			ELSE
-				RETURN 0;
-			END IF;
-		ELSE
-			RETURN 0;
-		END IF;
-	EXCEPTION
-		WHEN OTHERS THEN
-			RETURN -1;
-	END;
-	FUNCTION VerIsLessThanOrEqlToEnd( XXend IN NUMBER, XX IN NUMBER, YYend IN NUMBER, YY IN NUMBER, ZZend IN NUMBER, ZZ IN NUMBER ) RETURN NUMBER
-	AS
-	BEGIN
-		-- end boundary case
-		IF ( XX < XXend ) THEN
-			RETURN 1;
-		ELSIF ( XX = XXend ) THEN
-			-- need to consider YY
-			IF ( YY < YYend ) THEN
-				RETURN 1;
-			ELSIF ( YY = YYend ) THEN
-					-- need to consider ZZ
-					IF ( ZZ <= ZZend ) THEN
-						RETURN 1;
-					ELSE
-						RETURN 0;
-					END IF;
-			ELSE
-				RETURN 0;
-			END IF;
-		ELSE
-			RETURN 0;
-		END IF;
-	EXCEPTION
-		WHEN OTHERS THEN
-			RETURN -1;
-	END;
-	/*
-	-	version format:		XX.YY.ZZ.abc
-	*/
-	FUNCTION VersionIsBetween( version IN VARCHAR2, version_start IN VARCHAR2, version_end IN VARCHAR ) RETURN NUMBER
-	AS
-		XXstart		NUMBER	:=	0;
-		XXend		NUMBER	:=	0;
-		XX			NUMBER	:=	0;
-		YYstart		NUMBER	:=	0;
-		YYend		NUMBER	:=	0;
-		YY			NUMBER	:=	0;
-		ZZstart		NUMBER	:=	0;
-		ZZend		NUMBER	:=	0;
-		ZZ			NUMBER	:=	0;
-		first_dot	NUMBER	:=	0;
-		second_dot	NUMBER	:=	0;
-		third_dot	NUMBER	:=	0;
-		ProjExtstart	VARCHAR2(10);
-		ProjExtend		VARCHAR2(10);
-		ProjExt			VARCHAR2(10);
-	BEGIN
-		-- strip the version number
-		first_dot :=  INSTR(version_start, '.', 1, 1);
-		second_dot :=  INSTR(version_start, '.', 1, 2);
-		third_dot :=  INSTR(version_start, '.', 1, 3);
-		XXstart := TO_NUMBER( SUBSTR( version_start, 1, first_dot - 1 ) );
-		YYstart := TO_NUMBER( SUBSTR( version_start, first_dot + 1, second_dot - ( first_dot + 1 ) ) );
-		ZZstart := TO_NUMBER( SUBSTR( version_start, second_dot + 1, third_dot - ( second_dot + 1 ) ) );
-		ProjExtstart := SUBSTR( version_start, third_dot + 1, LENGTH(version_start) - third_dot );
-		first_dot :=  INSTR(version_end, '.', 1, 1);
-		second_dot :=  INSTR(version_end, '.', 1, 2);
-		third_dot :=  INSTR(version_end, '.', 1, 3);
-		XXend := TO_NUMBER( SUBSTR( version_end, 1, first_dot - 1 ) );
-		YYend := TO_NUMBER( SUBSTR( version_end, first_dot + 1, second_dot - ( first_dot + 1 ) ) );
-		ZZend := TO_NUMBER( SUBSTR( version_end, second_dot + 1, third_dot - ( second_dot + 1 ) ) );
-		ProjExtend := SUBSTR( version_end, third_dot + 1, LENGTH(version_end) - third_dot );
-		first_dot :=  INSTR(version, '.', 1, 1);
-		second_dot :=  INSTR(version, '.', 1, 2);
-		third_dot :=  INSTR(version, '.', 1, 3);
-		XX := TO_NUMBER( SUBSTR( version, 1, first_dot - 1 ) );
-		YY := TO_NUMBER( SUBSTR( version, first_dot + 1, second_dot - ( first_dot + 1 ) ) );
-		ZZ := TO_NUMBER( SUBSTR( version, second_dot + 1, third_dot - ( second_dot + 1 ) ) );
-		ProjExt := SUBSTR( version, third_dot + 1, LENGTH(version) - third_dot );
-		-- only include versions if all project extensions are the same
-		IF ( ProjExtstart = ProjExt AND ProjExt = ProjExtend ) THEN
-			IF ( VerIsGrtrThanOrEqlToStart( XXstart, XX, YYstart, YY, ZZstart, ZZ ) = 1 AND VerIsLessThanOrEqlToEnd( XXend, XX, YYend, YY, ZZend, ZZ ) = 1 ) THEN
-				RETURN 1;
-			ELSE
-				RETURN 0;
-			END IF;
-		ELSE
-			RETURN 0;
-		END IF;
-	EXCEPTION
-		WHEN OTHERS THEN
-			RETURN -1;
-	END;
-	FUNCTION GetPkgId( pkgName IN VARCHAR2 ) RETURN NUMBER
-	AS
-	    pkg_id NUMBER;
-	BEGIN
-		SELECT
-			p.PKG_ID
-		INTO
-			pkg_id
-		FROM
-			PACKAGES p
-		WHERE
-			p.PKG_NAME = pkgName;
-		RETURN pkg_id;
-	EXCEPTION
-	    WHEN OTHERS THEN
-			dbms_output.put_line('GetPkgId exception: ' || SQLERRM );
-			RETURN -1;
-	END;
--- Public Implementation ------------------------------------------------------
-	/*
-	-- Proc: AllIssues - Gets all issues for a package from dependent packages one level deep
-	--
-	-- INPUT PARAMETERS:
-	--
-	--		pkg_name  	-  	The name of the top level package to get issues for
-	--		version_start	-	The start version for the comparison
-	--		version_end	-	The end version for the comparison
-	*/
-	PROCEDURE AllIssues( vCursor OUT T_Cur, pkg_name IN VARCHAR2, version_start IN VARCHAR2, version_end IN VARCHAR2 )
-	AS
-		pkgId	NUMBER;
-	BEGIN
-		-- get pkg_id of the input package:
-		pkgId := GetPkgId( pkg_name );
-		OPEN vCursor FOR
-		SELECT
-			  pv.PKG_ID,
-			  pv.PKG_VERSION,
-			  pv.PV_ID,
-			  i_pkg.ISS_ID,
-			  ( SELECT pkg_name FROM PACKAGES WHERE pkg_id = pd.DPKG_ID ) AS DPV_NAME,
-			  pd.DPKG_ID,
-			  ( SELECT pkg_version FROM PACKAGE_VERSIONS WHERE pv_id = pd.DPV_ID ) AS DPV_VER,
-			  pd.DPV_ID,
-			  i_dpkg.ISS_ID AS ISSUE_ID
-		FROM
-			 PACKAGE_VERSIONS pv
-							  LEFT OUTER JOIN CQ_ISSUES i_pkg ON pv.PV_ID = i_pkg.PV_ID
-							  LEFT OUTER JOIN PACKAGE_DEPENDENCIES pd ON pv.PV_ID = pd.PV_ID
-							  LEFT OUTER JOIN CQ_ISSUES i_dpkg ON pd.DPV_ID = i_dpkg.PV_ID
-		WHERE
-   			 pv.PKG_ID = pkgId
-		AND
-			VersionIsBetween( pv.PKG_VERSION, version_start, version_end ) = 1
-		AND
-			 ( i_dpkg.ISS_ID IS NOT NULL OR i_pkg.ISS_ID IS NOT NULL )
-		ORDER BY
-			 pv.PKG_ID,
-			 pv.PV_ID,
-			 pd.DPKG_ID,
-			 pd.DPV_ID;
-	EXCEPTION
-		WHEN OTHERS THEN
-			dbms_output.put_line('AllIssues exception: ' || SQLERRM );
-	END;
-	-- NOTE: make RM_PACKAGE_ISSUES a temporary table when tested ok
-	/*
-	-- Proc: LoadIssuesTable
-	--
-	-- Populates Package_Issues table with details of issues from all dependent packages.
-	-- This will be for all package versions of the input pkg_name between the
-	-- version_start and version_end.
-	--
-	-- INPUT PARAMETERS:
-	--
-	--		pkg_name  	-  	The name of the top level package to get issues for
-	--		version_start	-	The start version for the comparison
-	--		version_end	-	The end version for the comparison
-	*/
-	PROCEDURE LoadIssuesTable( vCursor OUT T_Cur, pkg_name IN VARCHAR2, version_start IN VARCHAR2, version_end IN VARCHAR2 )
-	AS
-		pkgId	NUMBER;
-		CURSOR pack_vers_cur IS
-			SELECT
-				pv.PV_ID,
-				pv.PKG_VERSION,
-				pv.PKG_ID,
-				p.PKG_NAME
-			FROM
-				PACKAGE_VERSIONS pv
-					JOIN PACKAGES p ON pv.PKG_ID = p.PKG_ID
-			WHERE
-   				 pv.PKG_ID = pkgId
-			AND
-				VersionIsBetween( pv.PKG_VERSION, version_start, version_end ) = 1;
-	BEGIN
-		DELETE FROM RELEASE_MANAGER.RM_PKG_ISSUES; /*RM_PACKAGE_ISSUES replaced by RM_PKG_ISSUES*/
-		-- get the pkg_id we are finding issues for
-		pkgId := GetPkgId( pkg_name );
-		-- find all the top level packages we are dealing with and recursively process their issues and their dependent package issues.
-		FOR pack_ver_rec IN  pack_vers_cur
-		LOOP
-			InsertIssuesForDepends( pack_ver_rec.PV_ID, pack_ver_rec.PKG_ID, pack_ver_rec.PKG_NAME, pack_ver_rec.PV_ID, pack_ver_rec.PKG_VERSION );
-			COMMIT;
-		END LOOP;
-		-- The output cursor - shows the individual versions of the top level package then were reported on
-		OPEN vCursor FOR
-		SELECT DISTINCT ISS_ID, PKG_VERSION FROM RM_PKG_ISSUES WHERE ISS_ID IS NOT NULL; /*RM_PACKAGE_ISSUES replaced by RM_PKG_ISSUES*/
-/*removed
-		SELECT
-			PKG_VERSION
-		FROM
-			RELEASE_MANAGER.RM_PACKAGE_ISSUES;
-*/
-	EXCEPTION
-		WHEN OTHERS THEN
-			dbms_output.put_line('LoadIssuesTable exception: ' || SQLERRM );
-	END;
-	/*
-	-- Proc: InsertIssuesForDepends
-	--
-	-- Used by LoadIssuesTable to recursively find issues for all dependent packages
-	--
-	-- INPUT PARAMETERS:
-	--
-	--		pvID  		-  	The package version id of the package to get issues for
-	--		top_pkgID	-  	The package id of the top level package to get issues for - should be the same as pvID when called from LoadIssuesTable (different when called recursively)
-	--		top_pkgName -  	The package name of the top level package
-	--		top_pvID  	-  	The package version id of the top level package
-	--		top_pkgVer  -  	The package version description of the top level package
-	*/
-	PROCEDURE InsertIssuesForDepends( pvID IN NUMBER, top_pkgID IN NUMBER, top_pkgName IN VARCHAR2, top_pvID IN NUMBER, top_pkgVer IN VARCHAR2 )
-	AS
-		pkgId		NUMBER;
-		issCnt		NUMBER := 0;
-		pkgCheck	NUMBER := 0;
-		depCheck	NUMBER := 0;
-		dpkgName	VARCHAR(50);
-		dpkgVersion	VARCHAR(50);
-		CURSOR dep_packs_cur IS
-			SELECT
-				DPV_ID
-			FROM
-				PACKAGE_DEPENDENCIES
-			WHERE
-				PV_ID = pvID;
-	BEGIN
-		-- check to see if the package has been processed previously
-		SELECT
-			COUNT(*)
-		INTO
-			pkgCheck
-		FROM
-			RM_PKG_ISSUES /*RM_PACKAGE_ISSUES replaced by RM_PKG_ISSUES*/
-		WHERE
-			DPV_ID = pvID;
-		dbms_output.put_line('pkgCheck: ' || pkgCheck );
-		-- Package not already processed (no cyclic dependency) - process it
-		IF ( pkgCheck = 0 ) THEN
-			-- check to see if this package version has any issues assigned to it
-			SELECT
-				COUNT(*)
-			INTO
-				issCnt
-			FROM
-				CQ_ISSUES i
-			WHERE
-				i.PV_ID = pvID;
-			dbms_output.put_line('issCnt: ' || issCnt );
-			-- Always enter a marker row into the table even if there are no issues for the package.
-			-- This allows us to pick up any cyclic dependencies.
-			IF ( issCnt > 0 ) THEN
-				-- get issues and insert into RM_PACKAGE_ISSUES
-				/*RM_PACKAGE_ISSUES replaced by RM_PKG_ISSUES*/
-				INSERT INTO RM_PKG_ISSUES ( PKG_ID, PKG_NAME, PV_ID, PKG_VERSION, DPV_ID, DPKG_NAME, DPKG_VERSION, ISS_DB, ISS_ID )
-					SELECT DISTINCT
-						top_pkgID		AS PKG_ID,
-						top_pkgName		AS PKG_NAME,
-						top_pvID		AS PV_ID,
-						top_pkgVer		AS PKG_VERSION,
-						pv.PV_ID		AS DPV_ID,
-						p.PKG_NAME		AS DPKG_NAME,
-						pv.PKG_VERSION	AS DPKG_VERSION,
-						ci.ISS_DB,
-						ci.ISS_ID
-					FROM
-						PACKAGE_VERSIONS pv
-							JOIN PACKAGES p ON pv.PKG_ID = p.PKG_ID
-							JOIN CQ_ISSUES ci ON pv.PV_ID = ci.PV_ID
-					WHERE
-						pv.PV_ID = pvID;
-			ELSE
-				-- get the dpkg details - there will always be a row returned here
-				SELECT
-					p.PKG_NAME
-				INTO
-					dpkgName
-				FROM
-					PACKAGE_VERSIONS pv
-						JOIN PACKAGES p ON pv.PKG_ID = p.PKG_ID
-				WHERE
-	   				 pv.PV_ID = pvID;
-				SELECT
-					pv.PKG_VERSION
-				INTO
-					dpkgVersion
-				FROM
-					PACKAGE_VERSIONS pv
-				WHERE
-	   				 pv.PV_ID = pvID;
-				-- enter a marker row
-				/*RM_PACKAGE_ISSUES replaced by RM_PKG_ISSUES*/
-				INSERT INTO RM_PKG_ISSUES ( PKG_ID, PKG_NAME, PV_ID, PKG_VERSION, DPV_ID, DPKG_NAME, DPKG_VERSION, ISS_DB, ISS_ID )
-				VALUES (
-					top_pkgID,
-					top_pkgName,
-					top_pvID,
-					top_pkgVer,
-					pvID,
-					dpkgName,
-					dpkgVersion,
-					NULL,
-					NULL );
-			END IF;
-			-- If this package version has dependencies then recurse
-			SELECT
-				COUNT(*)
-			INTO
-				depCheck
-			FROM
-				PACKAGE_DEPENDENCIES
-			WHERE
-				PV_ID = pvID;
-			IF ( depCheck > 0 ) THEN
-				-- get dependencies and call this function recursively for each one
-				FOR dep_rec IN  dep_packs_cur
-				LOOP
-					InsertIssuesForDepends( dep_rec.DPV_ID, top_pkgID, top_pkgName, top_pvID, top_pkgVer );
-				END LOOP;
-			END IF;
-		END IF;
-	/*EXCEPTION
-		WHEN OTHERS THEN
-			no exception handling required
-	*/
-	END;
-END Rm_Issues;
-/
---------------------------------------------------------
---  DDL for Package Body PK_RELEASE_TEST
---------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "PK_RELEASE_TEST" IS
-/*
-------------------------------
-||  Last Modified:  S.Vukovic
-||  Modified Date:  12/Sep/2005
-||  Body Version:   3.0
-------------------------------
-*/
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE New_Release ( sReleaseName IN VARCHAR2, sReleaseComments IN VARCHAR2, nProjId IN NUMBER, nSourceRtagId IN NUMBER, sIsBranched IN CHAR, nUserId IN NUMBER ) IS
-RtagId NUMBER;
-ParentRtagId NUMBER;
-RecCount NUMBER := 0;
-BEGIN
-	/*--------------- Business Rules Here -------------------*/
-	-- Check for missing parameters
-	IF (sReleaseName IS NULL) OR (nUserId IS NULL)
-	THEN
-		RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! sReleaseName= '|| sReleaseName ||', nUserId='|| nUserId );
-	END IF;
-	-- Check for duplicate Release Names
-	SELECT COUNT(rt.RTAG_ID) INTO RecCount
-	  FROM RELEASE_TAGS rt
-	 WHERE UPPER( rt.RTAG_NAME ) = UPPER( sReleaseName )
-	   AND rt.PROJ_ID = nProjId;
-	IF (RecCount > 0) THEN
-		RAISE_APPLICATION_ERROR (-20000, 'Release Name '|| sReleaseName ||' is Already Used in this Project.');
-	END IF;
-	/*-------------------------------------------------------*/
-	-- Get rtag_id
-	SELECT SEQ_RTAG_ID.NEXTVAL INTO RtagId FROM DUAL;
-	-- Get Parent RtagId
-	ParentRtagId := GET_PARENT_RTAG ( RtagId, nSourceRtagId, sIsBranched );
-	-- Create new release
-	INSERT INTO RELEASE_TAGS ( RTAG_ID, RTAG_NAME, DESCRIPTION, CREATED_STAMP, CREATOR_ID,
-							   OFFICIAL, REBUILD_ENV, REBUILD_STAMP,
-							   PARENT_RTAG_ID, PROJ_ID )
-	VALUES ( RtagId,
-			 sReleaseName,
-			 sReleaseComments,
-			 ORA_SYSDATE,
-			 nUserId,
-			 'N',
-			 'N',
-,
-			 ParentRtagId,
-			 nProjId );
-	-- Update display Order
-	UPDATE_DISPLAY_ORDER ( nProjId );
-	/* Log Project Action */
-	Log_Project_Action ( nProjId, 'new_release', nUserId, sReleaseName, RtagId );
-	-- Import Release Contents
-	IF (NOT nSourceRtagId IS NULL) THEN
-		Import_Release_Contents ( nSourceRtagId, RtagId, nUserId );
-	END IF;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE UPDATE_DISPLAY_ORDER ( nProjId IN NUMBER ) IS
-BEGIN
-	/*--------------- Business Rules Here -------------------*/
-	/*-------------------------------------------------------*/
-	UPDATE RELEASE_TAGS urt SET
-	urt.DISPLAY_ORDER = (
-						SELECT qry.REC_NUM
-						  FROM (
-								SELECT rel.*, ROWNUM AS REC_NUM
-								  FROM (
-								  		SELECT rt.RTAG_ID,
-											   rt.DISPLAY_ORDER,
-										       DECODE( rt.PARENT_RTAG_ID,
-											   		   rt.RTAG_ID, 0, rt.PARENT_RTAG_ID ) AS PARENT_RTAG_ID
-										  FROM RELEASE_TAGS rt
-										 WHERE rt.PROJ_ID = nProjId
-								  		) rel
-								START WITH rel.PARENT_RTAG_ID = 0
-								CONNECT BY PRIOR rel.RTAG_ID = rel.PARENT_RTAG_ID
-								ORDER SIBLINGS BY rel.DISPLAY_ORDER
-								) qry
-					      WHERE qry.RTAG_ID = urt.RTAG_ID
-						)
-	WHERE urt.PROJ_ID = nProjId;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE MOVE_RELEASE ( sRtagIdList IN VARCHAR2, nProjId IN NUMBER, nUserId IN NUMBER  ) IS
-	nIdCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
-	SeqNum NUMBER;
-BEGIN
-	/*--------------- Business Rules Here -------------------*/
-	/*-------------------------------------------------------*/
-	nIdCollector := IN_LIST_NUMBER ( sRtagIdList );
-	-- Set start sequence number
-	SeqNum := 1;
-	FOR i IN 1..nIdCollector.COUNT
-	LOOP
-		-- Update new display order
-		UPDATE RELEASE_TAGS rt SET
-			rt.DISPLAY_ORDER = SeqNum
-		 WHERE rt.PROJ_ID = nProjId
-		   AND rt.RTAG_ID = nIdCollector(i);
-		SeqNum := SeqNum + 1;
-	END LOOP;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE Update_Release ( nRtagId IN NUMBER, sReleaseName IN VARCHAR2, sReleaseComments IN VARCHAR2, nParentRtagId IN NUMBER, nMASSRtagId IN NUMBER, nConfigSpecBranch IN VARCHAR2, nUserId IN NUMBER ) IS
-RecCount NUMBER := 0;
-ProjId NUMBER;
-BEGIN
-	/*--------------- Business Rules Here -------------------*/
-	-- Check for missing parameters
-	IF (sReleaseName IS NULL) OR (nUserId IS NULL) OR (nRtagId IS NULL)
-	THEN
-		RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! sReleaseName= '|| sReleaseName ||', nUserId='|| nUserId ||', nRtagId='|| nRtagId);
-	END IF;
-	-- Check for duplicate Release Names
-	SELECT rt.PROJ_ID INTO ProjId
-	  FROM RELEASE_TAGS rt
-	 WHERE rt.RTAG_ID = nRtagId;
-	SELECT COUNT(rt.RTAG_ID) INTO RecCount
-	  FROM RELEASE_TAGS rt
-	 WHERE UPPER( rt.RTAG_NAME ) = UPPER( sReleaseName )
-	   AND rt.RTAG_ID != nRtagId
-	   AND rt.PROJ_ID = ProjId;
-	IF (RecCount > 0) THEN
-		RAISE_APPLICATION_ERROR (-20000, 'Release Name '|| sReleaseName ||' is Already Used in this Project.');
-	END IF;
-	/*-------------------------------------------------------*/
-	-- Update release details
-	UPDATE RELEASE_TAGS rt SET
-	rt.RTAG_NAME = sReleaseName,
-	rt.DESCRIPTION = sReleaseComments,
-	rt.PARENT_RTAG_ID = nParentRtagId,
-	rt.ASSOC_MASS_REF = nMASSRtagId,
-	rt.CONFIG_SPEC_BRANCH = nConfigSpecBranch
-	WHERE rt.RTAG_ID = nRtagId;
-	-- Update display Order
-	UPDATE_DISPLAY_ORDER ( ProjId );
-	/* Log Project Action */
-	Log_Project_Action ( ProjId, 'update_release', nUserId, 'Release Name: <br>Release Comments:', nRtagId );
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE Destroy_Release ( nRtagId IN NUMBER, nUserId IN NUMBER ) IS
-	RecCount NUMBER := 0;
-	sReleaseId VARCHAR2(4000);
-	ProjId NUMBER;
-BEGIN
-	/*--------------- Business Rules Here -------------------*/
-	IF (nRtagId IS NULL)
-	THEN
-		RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! nRtagId= '|| nRtagId  );
-	END IF;
-	-- Check for any kids
-	SELECT COUNT( rt.RTAG_ID ) INTO RecCount
-	  FROM RELEASE_TAGS rt
-	 WHERE rt.PARENT_RTAG_ID = nRtagId
-	   AND rt.RTAG_ID != rt.PARENT_RTAG_ID;
-	IF (RecCount > 0) THEN
-		RAISE_APPLICATION_ERROR (-20000, 'Cannot destroy this release. You need to destroy its children releases first.'  );
-	END IF;
-	/*-------------------------------------------------------*/
-	-- Clear the release contents
-	Clean_Release_Contents ( nRtagId, nUserId );
-	/* Log Project Action */
-	SELECT rt.PROJ_ID, rt.RTAG_NAME ||'['|| rt.RTAG_VERSION ||'.'|| rt.RTAG_LIFE_CYCLE ||']' INTO ProjId, sReleaseId
-	  FROM RELEASE_TAGS rt
-	 WHERE rt.RTAG_ID = nRtagId;
-	Log_Project_Action ( ProjId, 'destroy_release', nUserId, sReleaseId, nRtagId );
-	-- Remove Release
-	DELETE
-	  FROM RELEASE_TAGS rt
-	 WHERE rt.RTAG_ID = nRtagId;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE Import_Release_Contents ( nSourceRtagId IN NUMBER, nTargetRtagId IN NUMBER, nUserId IN NUMBER  ) IS
-	sSourceLocation VARCHAR2(4000);
-	sTargetLocation VARCHAR2(4000);
-	ProjId NUMBER;
-	cReleaseMode CHAR(1);
-BEGIN
-	/*--------------- Business Rules Here -------------------*/
-	IF (nSourceRtagId IS NULL) OR (nTargetRtagId IS NULL)
-	THEN
-		RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! nSourceRtagId= '|| nSourceRtagId ||', nTargetRtagId='|| nTargetRtagId );
-	END IF;
-	IF (nSourceRtagId = nTargetRtagId) THEN
-		RAISE_APPLICATION_ERROR (-20000, 'Cannot import release contents from same release.' );
-	END IF;
-	-- Check if Target release is in OPEN mode
-	SELECT rt.OFFICIAL  INTO  cReleaseMode
-	  FROM RELEASE_TAGS rt
-	 WHERE rt.RTAG_ID = nTargetRtagId;
-	IF (cReleaseMode != 'N') THEN
-		RAISE_APPLICATION_ERROR (-20000, 'Release must be in OPEN mode to import the contents.' );
-	END IF;
-	/*-------------------------------------------------------*/
-	-- Clean target contents
-	Clean_Release_Contents ( nTargetRtagId, nUserId );
-	-- Import Released Area Contents
-	INSERT INTO RELEASE_CONTENT ( RTAG_ID, PV_ID, BASE_VIEW_ID, INSERT_STAMP, INSERTOR_ID, PKG_STATE )
-	SELECT nTargetRtagId AS RTAG_ID,
-		   rc.PV_ID,
-		   rc.BASE_VIEW_ID,
-		   rc.INSERT_STAMP,
-		   rc.INSERTOR_ID,
-		   rc.PKG_STATE
-	  FROM RELEASE_CONTENT rc
-	 WHERE rc.RTAG_ID = nSourceRtagId;
-	-- Import Ignore Warning states
-	INSERT INTO IGNORE_WARNINGS ( RTAG_ID, PV_ID, DPV_ID )
-	SELECT nTargetRtagId AS RTAG_ID,
-	       igw.PV_ID,
-	       igw.DPV_ID
-	  FROM IGNORE_WARNINGS igw
-	 WHERE igw.rtag_id = nSourceRtagId;
-	/* Log Project Action */
-	-- Get Source Location
-	SELECT pr.PROJ_NAME ||' > '|| rt.RTAG_NAME ||' ['|| rt.RTAG_VERSION ||'.'|| rt.RTAG_LIFE_CYCLE ||']'  INTO sSourceLocation
-	  FROM RELEASE_TAGS rt,
-	  	   PROJECTS pr
-	 WHERE rt.PROJ_ID = pr.PROJ_ID
-	   AND rt.RTAG_ID = nSourceRtagId;
-	-- Get Target Location
-	SELECT pr.PROJ_NAME ||' > '|| rt.RTAG_NAME ||' ['|| rt.RTAG_VERSION ||'.'|| rt.RTAG_LIFE_CYCLE ||']'  INTO sTargetLocation
-	  FROM RELEASE_TAGS rt,
-	  	   PROJECTS pr
-	 WHERE rt.PROJ_ID = pr.PROJ_ID
-	   AND rt.RTAG_ID = nTargetRtagId;
-	-- Get project id
-	SELECT rt.PROJ_ID  INTO  ProjId
-	  FROM RELEASE_TAGS rt
-	 WHERE rt.RTAG_ID = nTargetRtagId;
-	Log_Project_Action ( ProjId, 'import_release_contents', nUserId, 'SOURCE: '|| sSourceLocation ||'   TARGET: '|| sTargetLocation, nTargetRtagId );
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE Clean_Release_Contents ( nRtagId IN NUMBER, nUserId IN NUMBER ) IS
-	RecCount NUMBER;
-BEGIN
-	/*--------------- Business Rules Here -------------------*/
-	IF (nRtagId IS NULL)
-	THEN
-		RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! nRtagId= '|| nRtagId  );
-	END IF;
-	-- Check if other release references this release
-	SELECT COUNT( rl.RTAG_ID ) INTO RecCount
-	  FROM RELEASE_LINKS rl
-	 WHERE rl.REF_RTAG_ID = nRtagId;
-	IF (RecCount > 0) THEN
-		RAISE_APPLICATION_ERROR (-20000, 'This release is referenced by other release and cannot be destroyed.'  );
-	END IF;
-	/*-------------------------------------------------------*/
-	-- Delete Release links
-	DELETE
-	  FROM RELEASE_LINKS rl
-	 WHERE rl.RTAG_ID = nRtagId;
-	-- Delete ignore warning
-	DELETE
-	  FROM IGNORE_WARNINGS iw
-	 WHERE iw.RTAG_ID = nRtagId;
-	-- Delete Build Order cached calculations
-	DELETE
-	  FROM BUILD_ORDER bo
-	 WHERE bo.RTAG_ID = nRtagId;
-	-- Delete Notification History
-	DELETE
-	  FROM NOTIFICATION_HISTORY nh
-	 WHERE nh.RTAG_ID = nRtagId;
-	-- Delete Released Area Contents
-	DELETE
-	  FROM RELEASE_CONTENT rc
-	 WHERE rc.RTAG_ID = nRtagId;
-	-- Delete Work In Progress Area Contents
-	DELETE
-	  FROM WORK_IN_PROGRESS wip
-	 WHERE wip.RTAG_ID = nRtagId;
-	-- Delete Pending Area Contents
-	DELETE
-	  FROM PLANNED pl
-	 WHERE pl.RTAG_ID = nRtagId;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-FUNCTION GET_PARENT_RTAG ( nRtagId IN NUMBER, nSourceRtagId IN NUMBER, cIsBranch IN CHAR )  RETURN NUMBER IS
-	nSourceParentRtagId NUMBER;
-BEGIN
-	/*--------------- Business Rules Here -------------------*/
-	IF (nRtagId IS NULL) OR (cIsBranch IS NULL)
-	THEN
-		RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! nRtagId= '|| nRtagId ||', cIsBranch= '|| cIsBranch );
-	END IF;
-	/*-------------------------------------------------------*/
-	IF ( nSourceRtagId IS NULL ) THEN
-		-- Create new on main branch
-		RETURN nRtagId;
-	ELSE
-		-- Create from source rtag_id
-		-- Find parent of Source RtagId
-		SELECT rt.PARENT_RTAG_ID INTO nSourceParentRtagId
-		  FROM RELEASE_TAGS rt
-		 WHERE rt.RTAG_ID = nSourceRtagId;
-		IF (UPPER(cIsBranch) = 'Y') THEN
-			RETURN nSourceRtagId;
-		ELSE
-			IF (nSourceRtagId = nSourceParentRtagId) THEN
-				RETURN nRtagId;
-			ELSE
-				RETURN nSourceParentRtagId;
-			END IF;
-		END IF;
-	END IF;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
--- PROCEDURE Get_Next_Version ( nSourceRtagId IN NUMBER,
--- 							 sNextVersion OUT VARCHAR2,
--- 							 nNextLifeCycle OUT NUMBER,
--- 							 nParentRtagId OUT NUMBER,
--- 							 nProjId IN NUMBER ) IS
---
--- SourceBranchCount NUMBER;
--- ProjRootVersion VARCHAR2(4000);
--- LastLifeCycle NUMBER;
--- ROOT_VERSION_NOT_FOUND NUMBER := -1;
--- SET_PARENT_AS_YOURSELF NUMBER := -1;
---
--- SourceProjId NUMBER;
--- SourceVersion RELEASE_TAGS.RTAG_VERSION%TYPE;
--- SourceLifeCycle RELEASE_TAGS.RTAG_LIFE_CYCLE%TYPE;
---
--- BEGIN
--- 	/*--------------- Business Rules Here -------------------*/
--- 	/*-------------------------------------------------------*/
---
---
--- 	BEGIN
--- 		-- Get Project root version
--- 		SELECT rt.RTAG_VERSION INTO ProjRootVersion
--- 		  FROM RELEASE_TAGS rt
--- 		 WHERE rt.PROJ_ID = nProjId
--- 		   AND rt.RTAG_ID = rt.PARENT_RTAG_ID;
---
--- 		EXCEPTION
--- 		WHEN NO_DATA_FOUND THEN
--- 		ProjRootVersion := ROOT_VERSION_NOT_FOUND;
--- 	END;
---
---
---
---
--- 	BEGIN
--- 		-- Get info for source rtagid
--- 		SELECT rt.PROJ_ID, rt.RTAG_VERSION, rt.RTAG_LIFE_CYCLE  INTO  SourceProjId, SourceVersion, SourceLifeCycle
--- 		  FROM RELEASE_TAGS rt
--- 		 WHERE rt.RTAG_ID = nSourceRtagId;
---
--- 		EXCEPTION
--- 		WHEN NO_DATA_FOUND THEN
--- 		SourceProjId := NULL;
--- 		SourceVersion := NULL;
--- 		SourceLifeCycle := NULL;
--- 	END;
---
---
--- 	IF (nSourceRtagId IS NULL)  OR  ( SourceProjId != nProjId ) THEN
---
--- 		/* Blank Release Required  OR  Release imported from other project */
---
--- 		IF (ProjRootVersion = ROOT_VERSION_NOT_FOUND) THEN
--- 			/* No Releases found in the project, hence calculate next version available.  */
---
--- 			-- Set parent rtag
--- 			nParentRtagId := SET_PARENT_AS_YOURSELF;
---
---
--- 			BEGIN
--- 				-- Get Next Available Global Root Version
--- 				SELECT MAX( TO_NUMBER( rt.RTAG_VERSION ) )  INTO  ProjRootVersion
--- 				  FROM RELEASE_TAGS rt
--- 				 WHERE rt.RTAG_ID = rt.PARENT_RTAG_ID;
---
--- 				-- Set Next Rtag Version
--- 				sNextVersion := CAST( ProjRootVersion + 1 AS VARCHAR2 );
---
--- 				-- Restart Lifecycle
--- 				nNextLifeCycle := 0;
---
---
--- 				EXCEPTION
--- 				WHEN NO_DATA_FOUND THEN
--- 				-- Release Manager has no releases, hence start from 1
--- 				sNextVersion := '1';
--- 				nNextLifeCycle := 0;
---
--- 			END;
---
---
---
--- 		ELSE
--- 			/* Releases found in this project. */
---
--- 			SELECT qry.RTAG_ID, qry.RTAG_LIFE_CYCLE  INTO nParentRtagId, LastLifeCycle
--- 			  FROM (
--- 					SELECT rt.RTAG_ID, rt.RTAG_LIFE_CYCLE
--- 					  FROM RELEASE_TAGS rt
--- 					 WHERE rt.PROJ_ID = nProjId
--- 					   AND rt.RTAG_VERSION = ProjRootVersion
--- 					 ORDER BY rt.RTAG_LIFE_CYCLE DESC
--- 			  		) qry
--- 			 WHERE ROWNUM = 1;
---
---
--- 			-- Set same Rtag Version
--- 			sNextVersion := ProjRootVersion;
---
--- 			-- Increase Lifecycle
--- 			nNextLifeCycle := LastLifeCycle + 1;
---
--- 		END IF;
---
---
---
--- 	ELSE
--- 		/* Create Release From other release within this project */
---
--- 		-- Set parent id
--- 		nParentRtagId := nSourceRtagId;
---
---
--- 		-- Get number of source branches
--- 		SELECT COUNT(rt.RTAG_ID) INTO SourceBranchCount
--- 		  FROM RELEASE_TAGS rt
--- 		 WHERE rt.PROJ_ID = nProjId
--- 		   AND rt.PARENT_RTAG_ID = nSourceRtagId;
---
---
--- 		IF SourceBranchCount = 0 THEN
--- 			/* Release is Head (i.e. Tip on its branch ) */
---
--- 			-- Set Next Rtag Version
--- 			sNextVersion := SourceVersion;
---
--- 			-- Increase Lifecycle
--- 			nNextLifeCycle := SourceLifeCycle + 1;
---
---
--- 		ELSIF SourceBranchCount = 1 THEN
--- 			/* Release IS NOT Head, but can be branched */
---
--- 			-- Set Next Rtag Version
--- 			sNextVersion := SourceVersion ||'.'|| SourceLifeCycle;
---
--- 			-- Reset Lifecycle to 1
--- 			nNextLifeCycle := 1;
---
---
--- 		ELSE
--- 			-- Limit of two branches is reached
--- 			RAISE_APPLICATION_ERROR (-20000, 'This release is already branched and cannot be branched again. ');
---
--- 		END IF;
---
---
---
---
---
---
--- 	END IF;
---
---
--- END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE GET_VIEW_CONTENT ( RtagId IN NUMBER, ViewId IN NUMBER, RecordSet OUT typeCur ) IS
-	IsBaseView CHAR(1);
-BEGIN
-	-- Check if the view is BASE VIEW
-	SELECT vi.BASE_VIEW INTO IsBaseView
-	  FROM VIEWS vi
-	 WHERE vi.VIEW_ID = ViewId;
-	IF (IsBaseView = 'Y') THEN
-		-- Get Base view content
-		OPEN RecordSet FOR
-		SELECT DECODE ( rel.pkg_state, NULL, 0, rel.pkg_state ) AS PKG_STATE,
-			   pv.pv_id,
-			   pkg.pkg_name,
-			   pv.pkg_version,
-			   pv.dlocked,
-			   pv.pv_description,
-			   pv.BUILD_TYPE
-		  FROM release_content rel,
-		       packages pkg,
-		       package_versions pv
-		 WHERE pv.pkg_id = pkg.pkg_id
-		   AND rel.pv_id = pv.pv_id
-		   AND rel.BASE_VIEW_ID = ViewId
-		   AND rel.RTAG_ID = RtagId
-		 ORDER BY UPPER(pkg.PKG_NAME);
-	ELSE
-	 	-- Get non base view content
-		OPEN RecordSet FOR
-		SELECT DECODE ( rel.pkg_state, NULL, 0, rel.pkg_state ) AS PKG_STATE,
-			   pv.pv_id,
-			   pkg.pkg_name,
-			   pv.pkg_version,
-			   pv.dlocked,
-			   pv.pv_description,
-			   pv.BUILD_TYPE
-		  FROM release_content rel,
-		       packages pkg,
-		       package_versions pv,
-			   VIEW_DEF vd
-		 WHERE pv.pkg_id = pkg.pkg_id
-		   AND rel.pv_id = pv.pv_id
-		   AND vd.VIEW_ID = ViewId
-		   AND vd.PKG_ID = pv.PKG_ID
-		   AND rel.RTAG_ID = RtagId
-		 ORDER BY UPPER(pkg.PKG_NAME);
-	END IF;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE ADD_PACKAGE ( newPvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
-	ReleaseLocation VARCHAR2(4000);
-	sPkgVersion VARCHAR2(4000);
-	nPkgId NUMBER;
-	sVExt VARCHAR2(4000);
-	IsPatch PACKAGE_VERSIONS.IS_PATCH%TYPE := 'N';
-	-- Find package for replacement
-	CURSOR curReplacePkg IS
-    SELECT pv.PV_ID
-	  FROM RELEASE_CONTENT rc,
-	  	   PACKAGE_VERSIONS pv
-	 WHERE rc.PV_ID = pv.PV_ID
-	   AND rc.RTAG_ID = RtagId
-	   AND pv.PKG_ID = nPkgId
-	   AND NVL( pv.V_EXT, 'LINK_A_NULL' ) = NVL( sVExt, 'LINK_A_NULL' );
-    recReplacePkg curReplacePkg%ROWTYPE;
-BEGIN
-	-- Get is_patch, pkg_id and v_ext
-	SELECT pv.IS_PATCH, pv.PKG_ID, pv.V_EXT INTO IsPatch, nPkgId, sVExt
-	  FROM PACKAGE_VERSIONS pv
-	 WHERE pv.PV_ID = newPvId;
-	-- Never put patch in relesed area
-	IF (IsPatch != 'Y') OR (IsPatch IS NULL) THEN
-		-- Try to get a package to be replaced with this new one.
-		-- Use unique constraint of PKG_ID and V_EXT
-		OPEN curReplacePkg;
-	    FETCH curReplacePkg INTO recReplacePkg;
-	    IF curReplacePkg%FOUND THEN
-			-- Replace package
-			REPLACE_PACKAGE ( newPvId, recReplacePkg.PV_ID, RtagId, UserId );
-		ELSE
-			-- Add new package
-			INSERT INTO RELEASE_CONTENT ( RTAG_ID, PV_ID, BASE_VIEW_ID, INSERT_STAMP, INSERTOR_ID, PKG_STATE )
-			VALUES( RtagId, newPvId, ViewId, Ora_Sysdate, UserId, 0);
-		    /* LOG ACTION */
-			SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-			  FROM PROJECTS proj,
-			  	   RELEASE_TAGS rt
-			 WHERE rt.PROJ_ID = proj.PROJ_ID
-			   AND rt.RTAG_ID = RtagId;
-			SELECT pv.PKG_VERSION INTO sPkgVersion
-			  FROM PACKAGE_VERSIONS pv
-			 WHERE pv.PV_ID = newPvId;
-			Log_Action ( newPvId, 'add', UserId, 'Location: '|| ReleaseLocation );
-		END IF;
-		CLOSE curReplacePkg;
-	END IF;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE REPLACE_PACKAGE ( newPvId IN NUMBER, oldPvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
-	ReleaseLocation VARCHAR2(4000);
-	sPkgVersion VARCHAR2(4000);
-BEGIN
-	-- Replace Package
-    UPDATE RELEASE_CONTENT
-       SET pv_id = newPvId,
-           insert_stamp = Ora_Sysdate,
-           insertor_id = UserId
-     WHERE rtag_id = RtagId
-       AND pv_id = oldPvId;
-    /* LOG ACTION */
-	SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-	  FROM PROJECTS proj,
-	  	   RELEASE_TAGS rt
-	 WHERE rt.PROJ_ID = proj.PROJ_ID
-	   AND rt.RTAG_ID = RtagId;
-	SELECT pv.PKG_VERSION INTO sPkgVersion
-	  FROM PACKAGE_VERSIONS pv
-	 WHERE pv.PV_ID = newPvId;
-	Log_Action ( oldPvId, 'replaced_with', UserId, 'Replacing with: '|| sPkgVersion ||' at '|| ReleaseLocation );
-	Log_Action ( newPvId, 'add', UserId, 'Location: '|| ReleaseLocation );
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE REMOVE_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
-	ReleaseLocation VARCHAR2(4000);
-BEGIN
-	-- Delete old package
-	DELETE
-	  FROM RELEASE_CONTENT rc
-	 WHERE rc.PV_ID = PvId
-	   AND rc.RTAG_ID = RtagId;
-	/* LOG ACTION */
-	SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-	  FROM PROJECTS proj,
-	       RELEASE_TAGS rt
-	 WHERE rt.PROJ_ID = proj.PROJ_ID
-	   AND rt.RTAG_ID = RtagId;
-	Log_Action ( PvId, 'delete_from_released', UserId, 'Location: '|| ReleaseLocation );
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE REMOVE_MATCHING_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
-	ReleaseLocation VARCHAR2(4000);
-	CURSOR curMatchingPackage IS
-    SELECT mpv.PV_ID
-	  FROM RELEASE_CONTENT rc,
-	  	   PACKAGE_VERSIONS mpv,
-		   PACKAGE_VERSIONS pv
-	 WHERE rc.PV_ID = mpv.PV_ID
-	   AND rc.RTAG_ID = RtagId
-	   AND pv.PV_ID = PvId
-	   AND pv.PKG_ID = mpv.PKG_ID
-	   AND NVL( pv.V_EXT, '|LINK_A_NULL|' ) = NVL( mpv.V_EXT, '|LINK_A_NULL|' );
-    recMatchingPackage curMatchingPackage%ROWTYPE;
-BEGIN
-	OPEN curMatchingPackage;
-    FETCH curMatchingPackage INTO recMatchingPackage;
-    IF curMatchingPackage%FOUND THEN
-		-- Delete old package
-		DELETE
-		  FROM RELEASE_CONTENT rc
-		 WHERE rc.PV_ID = recMatchingPackage.PV_ID
-		   AND rc.RTAG_ID = RtagId;
-		/* LOG ACTION */
-		SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-		  FROM PROJECTS proj,
-		  	   RELEASE_TAGS rt
-		 WHERE rt.PROJ_ID = proj.PROJ_ID
-		   AND rt.RTAG_ID = RtagId;
-		Log_Action ( recMatchingPackage.PV_ID, 'delete_from_released', UserId, 'Location: '|| ReleaseLocation );
-	END IF;
-	CLOSE curMatchingPackage;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-FUNCTION GET_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER IS
-	ReturnValue NUMBER;
-BEGIN
-	SELECT rc.BASE_VIEW_ID INTO ReturnValue
-	  FROM RELEASE_CONTENT rc
-	 WHERE rc.RTAG_ID = RtagId
-	   AND rc.PV_ID = PvId;
-	RETURN ReturnValue;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE RUN_POST_ACTIONS ( PvId IN NUMBER, RtagId IN NUMBER ) IS
-BEGIN
-	-- Reset Ignore warnings up-the-tree
-	RESET_IGNORE_WARNINGS ( TO_CHAR(PvId), RtagId );
-	-- Refresh Package states
-	TOUCH_RELEASE ( RtagId );
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE RUN_POST_ACTIONS_BULK ( PvId IN NUMBER ) IS
-	CURSOR curReleases IS
-    SELECT rc.RTAG_ID
-	  FROM RELEASE_CONTENT rc
-	 WHERE rc.PV_ID = PvId;
-    recReleases curReleases%ROWTYPE;
-BEGIN
-	OPEN curReleases;
-    FETCH curReleases INTO recReleases;
-	WHILE curReleases%FOUND
-	LOOP
-		RUN_POST_ACTIONS ( PvId, recReleases.RTAG_ID );
-		FETCH curReleases INTO recReleases;
-	END LOOP;
-	CLOSE curReleases;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE CHANGE_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER, NewViewId IN NUMBER ) IS
-BEGIN
-	UPDATE RELEASE_CONTENT rc SET
-	rc.BASE_VIEW_ID = NewViewId
-	WHERE rc.PV_ID = PvId
-	  AND rc.RTAG_ID = RtagId;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE ADD_RELEASE_REFERENCE ( nRtagId IN NUMBER, nRefRtagId IN NUMBER, ProblemString OUT VARCHAR2 ) IS
-	RowCount NUMBER;
-	CURSOR curPackageClash IS
-	SELECT pkg.PKG_NAME,
-		   er.*
-	  FROM (
-	  		/* Get existing referenced packages */
-			SELECT pv.PKG_ID,
-			       pv.V_EXT
-			  FROM RELEASE_LINKS rl,
-			  	   RELEASE_CONTENT rc,
-			  	   PACKAGE_VERSIONS pv
-			 WHERE rl.RTAG_ID = nRtagId
-			   AND rl.REF_RTAG_ID = rc.RTAG_ID
-			   AND rc.PV_ID = pv.PV_ID
-	  	    ) er,
-			(
-			/* Get current reference packages */
-			SELECT pv.PKG_ID,
-			       pv.V_EXT
-			  FROM RELEASE_CONTENT rc,
-			  	   PACKAGE_VERSIONS pv
-			 WHERE rc.RTAG_ID = nRefRtagId
-			   AND rc.PV_ID = pv.PV_ID
-			) cr,
-			PACKAGES PKG
-	 WHERE er.PKG_ID = cr.PKG_ID
-	   AND NVL(er.V_EXT, '|LINK_A_NULL|') = NVL(cr.V_EXT, '|LINK_A_NULL|')
-	   AND er.PKG_ID = pkg.PKG_ID;
-	recPackageClash curPackageClash%ROWTYPE;
-BEGIN
-	/*--------------- Business Rules Here -------------------*/
-	IF (nRtagId = 0) OR ( nRtagId IS NULL ) THEN
-		RAISE_APPLICATION_ERROR (-20000, 'nRtagId is not supplied. [nRtagId='|| nRtagId ||']' );
-	END IF;
-	IF (nRefRtagId = 0) OR ( nRefRtagId IS NULL ) THEN
-		RAISE_APPLICATION_ERROR (-20000, 'nRefRtagId is not supplied. [nRefRtagId='|| nRefRtagId ||']' );
-	END IF;
-	/*-------------------------------------------------------*/
-	ProblemString := NULL;
-	-- Check if release already has references
-	SELECT COUNT(rl.RTAG_ID)  INTO  RowCount
-	  FROM RELEASE_LINKS rl
-	 WHERE rl.RTAG_ID = nRtagId;
-	IF RowCount > 0 THEN
-		-- Found existing references
-		-- Make sure there is no package clashes
-		OPEN curPackageClash;
-	    FETCH curPackageClash INTO recPackageClash;
-		IF curPackageClash%FOUND THEN
-			ProblemString := ProblemString ||'Following is partial list of package already referenced from other release:'|| UTL_TCP.CRLF;
-			WHILE curPackageClash%FOUND
-			LOOP
-				EXIT WHEN LENGTH( ProblemString || '- '|| recPackageClash.PKG_NAME ||' '|| recPackageClash.V_EXT  || UTL_TCP.CRLF ) > 200;	-- Do not allow variable overflow
-				ProblemString := ProblemString || '- '|| recPackageClash.PKG_NAME ||' '|| recPackageClash.V_EXT  || UTL_TCP.CRLF;
-				FETCH curPackageClash INTO recPackageClash;
-			END LOOP;
-		END IF;
-		CLOSE curPackageClash;
-	ELSE
-		-- No references found, hence reference a release
-		-- Remove exising package from this release to be referenced
-		REMOVE_RELEASE_REFERENCE ( nRtagId, nRefRtagId);
-		-- Add new linked packages to release
-		INSERT INTO RELEASE_CONTENT rc (RTAG_ID, PV_ID, BASE_VIEW_ID, INSERT_STAMP, INSERTOR_ID, PKG_STATE)
-		SELECT nRtagId,
-			   rc.PV_ID,
-			   rc.BASE_VIEW_ID,
-			   rc.INSERT_STAMP,
-			   rc.INSERTOR_ID,
-			   rc.PKG_STATE
-		  FROM RELEASE_CONTENT rc
-		 WHERE rc.RTAG_ID = nRefRtagId;
-		-- Copy ignore warnings for referenced packages
-		INSERT INTO IGNORE_WARNINGS iw (RTAG_ID, PV_ID, DPV_ID, IS_PATCH_IGNORE)
-		SELECT nRtagId,
-			   iw.PV_ID,
-			   iw.DPV_ID,
-			   iw.IS_PATCH_IGNORE
-		  FROM IGNORE_WARNINGS iw,
-		  	   RELEASE_CONTENT rc
-		 WHERE iw.RTAG_ID = rc.RTAG_ID
-		   AND iw.PV_ID = rc.PV_ID
-		   AND rc.RTAG_ID = nRefRtagId;
-		-- Reference release
-		INSERT INTO RELEASE_LINKS (RTAG_ID, REF_RTAG_ID)
-		VALUES ( nRtagId, nRefRtagId );
-		-- Refresh Package states
-		TOUCH_RELEASE ( nRtagId );
-	END IF;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE REMOVE_RELEASE_REFERENCE ( nRtagId IN NUMBER, nRefRtagId IN NUMBER ) IS
-BEGIN
-	/*--------------- Business Rules Here -------------------*/
-	IF (nRtagId = 0) OR ( nRtagId IS NULL ) THEN
-		RAISE_APPLICATION_ERROR (-20000, 'nRtagId is not supplied. [nRtagId='|| nRtagId ||']' );
-	END IF;
-	IF (nRefRtagId = 0) OR ( nRefRtagId IS NULL ) THEN
-		RAISE_APPLICATION_ERROR (-20000, 'nRefRtagId is not supplied. [nRefRtagId='|| nRefRtagId ||']' );
-	END IF;
-	/*-------------------------------------------------------*/
-	-- Remove ignore warnings for those packages who use referenced packages
-	DELETE FROM IGNORE_WARNINGS iw
-	 WHERE iw.RTAG_ID = nRtagId
-	   AND iw.DPV_ID IN (
-	   						SELECT dep.DPV_ID
-							  FROM (
-									/* Get referenced packages */
-									SELECT pv.PKG_ID,
-									       pv.V_EXT
-									  FROM RELEASE_CONTENT rc,
-									  	   PACKAGE_VERSIONS pv
-									 WHERE rc.RTAG_ID = nRefRtagId
-									   AND rc.PV_ID = pv.PV_ID
-									) cr,
-									(
-									/* Get all dependencies for current release */
-									SELECT DISTINCT
-										   pv.PKG_ID,
-										   pv.V_EXT,
-										   dep.DPV_ID
-									  FROM RELEASE_CONTENT rc,
-										   PACKAGE_DEPENDENCIES dep,
-										   PACKAGE_VERSIONS pv
-									 WHERE rc.RTAG_ID = nRtagId
-									   AND rc.PV_ID = dep.PV_ID
-									   AND dep.PV_ID = pv.PV_ID
-									) dep
-							 WHERE dep.PKG_ID = cr.PKG_ID
-							   AND NVL(dep.V_EXT, '|LINK_A_NULL|') = NVL(cr.V_EXT, '|LINK_A_NULL|')
-	   					);
-	-- Remove ignore warnings for those package which are going to be replaced with the reference
-	DELETE FROM IGNORE_WARNINGS iw
-	 WHERE iw.RTAG_ID = nRtagId
-	   AND iw.PV_ID IN (
-						SELECT pv.PV_ID
-						  FROM (
-								/* Get referenced packages */
-								SELECT pv.PKG_ID,
-								       pv.V_EXT
-								  FROM RELEASE_CONTENT rc,
-								  	   PACKAGE_VERSIONS pv
-								 WHERE rc.RTAG_ID = nRefRtagId
-								   AND rc.PV_ID = pv.PV_ID
-								) cr,
-								RELEASE_CONTENT rc,
-								PACKAGE_VERSIONS pv
-						 WHERE pv.PKG_ID = cr.PKG_ID
-						   AND NVL(pv.V_EXT, '|LINK_A_NULL|') = NVL(cr.V_EXT, '|LINK_A_NULL|')
-						   AND rc.RTAG_ID = nRtagId
-						   AND rc.PV_ID = pv.PV_ID
-						);
-	-- Remove matching packages from release
-	DELETE FROM RELEASE_CONTENT rc
-	 WHERE rc.RTAG_ID = nRtagId
-	   AND rc.PV_ID IN (
-						SELECT pv.PV_ID
-						  FROM (
-								/* Get referenced packages */
-								SELECT pv.PKG_ID,
-								       pv.V_EXT
-								  FROM RELEASE_CONTENT rc,
-								  	   PACKAGE_VERSIONS pv
-								 WHERE rc.RTAG_ID = nRefRtagId
-								   AND rc.PV_ID = pv.PV_ID
-								) cr,
-								RELEASE_CONTENT rc,
-								PACKAGE_VERSIONS pv
-						 WHERE pv.PKG_ID = cr.PKG_ID
-						   AND NVL(pv.V_EXT, '|LINK_A_NULL|') = NVL(cr.V_EXT, '|LINK_A_NULL|')
-						   AND rc.RTAG_ID = nRtagId
-						   AND rc.PV_ID = pv.PV_ID
-						);
-	-- Remove Reference release
-	DELETE
-	  FROM RELEASE_LINKS rl
-	 WHERE rl.RTAG_ID = nRtagId
-	   AND rl.REF_RTAG_ID = nRefRtagId;
-	-- Refresh Package states
-	TOUCH_RELEASE ( nRtagId );
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE CAN_USER_WRITE_TO_RELEASE ( RtagId IN NUMBER, PvId IN NUMBER, Permission IN CHAR ) IS
-	cReleaseMode CHAR(1);
-	cPvMode CHAR(1);
-BEGIN
-	-- Get Release Mode
-	SELECT rt.OFFICIAL INTO cReleaseMode
-	  FROM RELEASE_TAGS rt
-	 WHERE rt.RTAG_ID = RtagId;
-	-- Get Package Mode
-	SELECT pv.DLOCKED INTO cPvMode
-	  FROM PACKAGE_VERSIONS pv
-	 WHERE pv.PV_ID = PvId;
-	-- Only check if package is locked
-	IF (cPvMode = 'Y') THEN
-		IF (cReleaseMode != 'N') AND (Permission != 'Y')
-		THEN
-			RAISE_APPLICATION_ERROR (-20000, 'Cannot add package to this release. Release needs to be in Open Mode.' );
-		END IF;
-	END IF;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-END PK_RELEASE_TEST;
-/
---------------------------------------------------------
---  DDL for Package Body PK_APP_UTILS
---------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "PK_APP_UTILS" IS
-/*
-------------------------------
-||  Last Modified:  S.Vukovic
-||  Modified Date:  26/Apr/2005
-||  Body Version:   1.0
-------------------------------
-*/
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE GET_CURRENT_PARAMETERS ( ProjId IN VARCHAR2, RtagId IN VARCHAR2, records OUT typeCur)   IS
-BEGIN
-	IF (NOT RtagId IS NULL) THEN
-		-- Case with RTAG_ID present
-		OPEN records FOR
-		SELECT rt.PROJ_ID,
-			   rt.RTAG_ID AS RTAG_ID
-		  FROM RELEASE_TAGS rt
-		 WHERE rt.RTAG_ID = TO_NUMBER(RtagId);
-	ELSIF (NOT ProjId IS NULL) THEN
-		-- Case with PROJ_ID present
-		OPEN records FOR
-		SELECT TO_NUMBER(ProjId) AS PROJ_ID,
-			   -1 AS RTAG_ID
-		  FROM DUAL;
-	ELSE
-		-- Case with none present
-		OPEN records FOR
-		SELECT -1 AS PROJ_ID,
-			   -1 AS RTAG_ID
-		  FROM DUAL;
-	END IF;
-   	--RETURN records;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-END PK_APP_UTILS;
-/
---------------------------------------------------------
---  DDL for Package Body PK_RELEASE
---------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "PK_RELEASE" IS
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE New_Release ( sReleaseName IN VARCHAR2, sReleaseComments IN VARCHAR2, nProjId IN NUMBER, nSourceRtagId IN NUMBER, sIsBranched IN CHAR, nUserId IN NUMBER ) IS
-RtagId NUMBER;
-ParentRtagId NUMBER;
-RecCount NUMBER := 0;
-VtreeId NUMBER;
-BEGIN
-   /*--------------- Business Rules Here -------------------*/
-   -- Check for missing parameters
-   IF (sReleaseName IS NULL) OR (nUserId IS NULL)
-   THEN
-      RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! sReleaseName= '|| sReleaseName ||', nUserId='|| nUserId );
-   END IF;
-   -- Check for duplicate Release Names
-   SELECT COUNT(rt.RTAG_ID) INTO RecCount
-     FROM RELEASE_TAGS rt
-    WHERE UPPER( rt.RTAG_NAME ) = UPPER( sReleaseName )
-      AND rt.PROJ_ID = nProjId;
-   IF (RecCount > 0) THEN
-      RAISE_APPLICATION_ERROR (-20000, 'Release Name '|| sReleaseName ||' is Already Used in this Project.');
-   END IF;
-   /*-------------------------------------------------------*/
-   -- Get rtag_id
-   SELECT SEQ_RTAG_ID.NEXTVAL INTO RtagId FROM DUAL;
-   SELECT SEQ_VTREE_ID.NEXTVAL INTO VtreeId FROM DUAL;
-   -- Get Parent RtagId
-   ParentRtagId := GET_PARENT_RTAG ( RtagId, nSourceRtagId, sIsBranched );
-   -- If the parent RTAG is NOT in this project then we cannot use it.
-   -- We must re-assign the parent to be the new release's RTAG_ID instead
-   -- else it will not show up in the projects release tree (DEVI-55480)
-   SELECT COUNT(rt.RTAG_ID) INTO RecCount
-     FROM RELEASE_TAGS rt
-    WHERE rt.RTAG_ID = ParentRtagId
-      AND rt.PROJ_ID = nProjId;
-   IF (RecCount = 0) THEN
-     ParentRtagId := RtagId;
-   END IF;
-   -- Create new release
-   INSERT INTO RELEASE_TAGS ( RTAG_ID, RTAG_NAME, DESCRIPTION, CREATED_STAMP, CREATOR_ID,
-                        OFFICIAL, REBUILD_ENV, REBUILD_STAMP,
-                        PARENT_RTAG_ID, PROJ_ID, VTREE_ID )
-   VALUES ( RtagId,
-          sReleaseName,
-          sReleaseComments,
-          ORA_SYSDATE,
-          nUserId,
-          'N',
-          'N',
-,
-          ParentRtagId,
-          nProjId,
-          VtreeId );
-   -- If a source release is provided, clone its config spec branch information into the new release (DEVI-56650)
-   IF (NOT nSourceRtagId IS NULL)
-   THEN
-      UPDATE RELEASE_TAGS rtd
-      SET rtd.config_spec_branch = (SELECT rts.CONFIG_SPEC_BRANCH FROM RELEASE_TAGS rts WHERE rts.RTAG_ID = nSourceRtagId)
-      WHERE rtd.RTAG_ID = RtagId;
-   END IF;
-   -- Update display Order
-   UPDATE_DISPLAY_ORDER ( nProjId );
-   /* Log Project Action */
-   Log_Project_Action ( nProjId, 'new_release', nUserId, sReleaseName, RtagId );
-   -- Import Release Contents
-   IF (NOT nSourceRtagId IS NULL) THEN
-      Import_Release_Contents ( nSourceRtagId, RtagId, nUserId );
-   END IF;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE UPDATE_DISPLAY_ORDER ( nProjId IN NUMBER ) IS
-BEGIN
-   /*--------------- Business Rules Here -------------------*/
-   /*-------------------------------------------------------*/
-   UPDATE RELEASE_TAGS urt SET
-   urt.DISPLAY_ORDER = (
-                  SELECT qry.REC_NUM
-                    FROM (
-                        SELECT rel.*, ROWNUM AS REC_NUM
-                          FROM (
-                                SELECT rt.RTAG_ID,
-                                    rt.DISPLAY_ORDER,
-                                     DECODE( rt.PARENT_RTAG_ID,
-                                             rt.RTAG_ID, 0, rt.PARENT_RTAG_ID ) AS PARENT_RTAG_ID
-                                FROM RELEASE_TAGS rt
-                               WHERE rt.PROJ_ID = nProjId
-                                ) rel
-                        START WITH rel.PARENT_RTAG_ID = 0
-                        CONNECT BY PRIOR rel.RTAG_ID = rel.PARENT_RTAG_ID
-                        ORDER SIBLINGS BY rel.DISPLAY_ORDER
-                        ) qry
-                     WHERE qry.RTAG_ID = urt.RTAG_ID
-                  )
-   WHERE urt.PROJ_ID = nProjId;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE MOVE_RELEASE ( sRtagIdList IN VARCHAR2, nProjId IN NUMBER, nUserId IN NUMBER  ) IS
-   nIdCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
-   SeqNum NUMBER;
-BEGIN
-   /*--------------- Business Rules Here -------------------*/
-   /*-------------------------------------------------------*/
-   nIdCollector := IN_LIST_NUMBER ( sRtagIdList );
-   -- Set start sequence number
-   SeqNum := 1;
-   FOR i IN 1..nIdCollector.COUNT
-   LOOP
-      -- Update new display order
-      UPDATE RELEASE_TAGS rt SET
-         rt.DISPLAY_ORDER = SeqNum
-       WHERE rt.PROJ_ID = nProjId
-         AND rt.RTAG_ID = nIdCollector(i);
-      SeqNum := SeqNum + 1;
-   END LOOP;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE Update_Release ( nRtagId IN NUMBER, sReleaseName IN VARCHAR2, sReleaseComments IN VARCHAR2, nParentRtagId IN NUMBER, nMASSRtagId IN NUMBER, nConfigSpecBranch IN VARCHAR2, sOwnerEmail IN VARCHAR2, nUserId IN NUMBER, cState IN VARCHAR ) IS
-RecCount NUMBER := 0;
-ProjId NUMBER;
-BEGIN
-   /*--------------- Business Rules Here -------------------*/
-   -- Check for missing parameters
-   IF (sReleaseName IS NULL) OR (nUserId IS NULL) OR (nRtagId IS NULL)
-   THEN
-      RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! sReleaseName= '|| sReleaseName ||', nUserId='|| nUserId ||', nRtagId='|| nRtagId);
-   END IF;
-   -- Check for duplicate Release Names
-   SELECT rt.PROJ_ID INTO ProjId
-     FROM RELEASE_TAGS rt
-    WHERE rt.RTAG_ID = nRtagId;
-   SELECT COUNT(rt.RTAG_ID) INTO RecCount
-     FROM RELEASE_TAGS rt
-    WHERE UPPER( rt.RTAG_NAME ) = UPPER( sReleaseName )
-      AND rt.RTAG_ID != nRtagId
-      AND rt.PROJ_ID = ProjId;
-   IF (RecCount > 0) THEN
-      RAISE_APPLICATION_ERROR (-20000, 'Release Name '|| sReleaseName ||' is Already Used in this Project.');
-   END IF;
-   /*-------------------------------------------------------*/
-   -- Update release details
-   UPDATE RELEASE_TAGS rt SET
-   rt.RTAG_NAME = sReleaseName,
-   rt.DESCRIPTION = sReleaseComments,
-   rt.PARENT_RTAG_ID = nParentRtagId,
-   rt.ASSOC_MASS_REF = nMASSRtagId,
-   rt.CONFIG_SPEC_BRANCH = nConfigSpecBranch,
-   rt.OWNER_EMAIL = sOwnerEmail,
-   rt.PRODUCT_STATE_USED = cState
-   WHERE rt.RTAG_ID = nRtagId;
-   -- Update display Order
-   UPDATE_DISPLAY_ORDER ( ProjId );
-   /* Log Project Action */
-   Log_Project_Action ( ProjId, 'update_release', nUserId, 'Release Name: <br>Release Comments:', nRtagId );
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE Destroy_Release ( nRtagId IN NUMBER, nUserId IN NUMBER ) IS
-   RecCount NUMBER := 0;
-   sReleaseId VARCHAR2(4000);
-   ProjId NUMBER;
-BEGIN
-   /*--------------- Business Rules Here -------------------*/
-   IF (nRtagId IS NULL)
-   THEN
-      RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! nRtagId= '|| nRtagId  );
-   END IF;
-   -- Check for any kids
-   SELECT COUNT( rt.RTAG_ID ) INTO RecCount
-     FROM RELEASE_TAGS rt
-    WHERE rt.PARENT_RTAG_ID = nRtagId
-      AND rt.RTAG_ID != rt.PARENT_RTAG_ID;
-   IF (RecCount > 0) THEN
-      RAISE_APPLICATION_ERROR (-20000, 'Cannot destroy this release. You need to destroy its children releases first.'  );
-   END IF;
-   /*-------------------------------------------------------*/
-   -- Clear the release contents
-   Clean_Release_Contents ( nRtagId, nUserId );
-   /* Log Project Action */
-   SELECT rt.PROJ_ID, rt.RTAG_NAME ||'['|| rt.RTAG_VERSION ||'.'|| rt.RTAG_LIFE_CYCLE ||']' INTO ProjId, sReleaseId
-     FROM RELEASE_TAGS rt
-    WHERE rt.RTAG_ID = nRtagId;
-   Log_Project_Action ( ProjId, 'destroy_release', nUserId, sReleaseId, nRtagId );
-   -- Remove Release
-   DELETE
-     FROM RELEASE_TAGS rt
-    WHERE rt.RTAG_ID = nRtagId;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE Import_Release_Contents ( nSourceRtagId IN NUMBER, nTargetRtagId IN NUMBER, nUserId IN NUMBER  ) IS
-   sSourceLocation VARCHAR2(4000);
-   sTargetLocation VARCHAR2(4000);
-   ProjId NUMBER;
-   cReleaseMode CHAR(1);
-   RconId NUMBER;
-   -- this cursor gets the source release daemon configurations, ensuring that the
-   -- first record will be the master daemon, and subsequent records will be the slaves.
-   CURSOR curSrcReleaseConfigs IS
-    SELECT daemon_hostname, gbe_id, gbe_buildfilter
-     FROM RELEASE_CONFIG rc
-    WHERE rc.RTAG_ID = nSourceRtagId
-    ORDER BY rc.daemon_mode;
-    recSrcReleaseConfigs curSrcReleaseConfigs%ROWTYPE;
-    -- this cursor looks for target release daemons
-   CURSOR curTgtReleaseConfigs IS
-    SELECT rcon_id
-     FROM RELEASE_CONFIG rc
-    WHERE rc.RTAG_ID = nTargetRtagId;
-    recTgtReleaseConfigs curTgtReleaseConfigs%ROWTYPE;
-    -- this cursor looks for target release daemon run level entries
-   CURSOR curTgtReleaseConfigRunLevel IS
-    SELECT current_run_level
-     FROM RUN_LEVEL rl
-    WHERE rl.RCON_ID = recTgtReleaseConfigs.rcon_id;
-    recTgtReleaseConfigRunLevel curTgtReleaseConfigRunLevel%ROWTYPE;
-BEGIN
-   /*--------------- Business Rules Here -------------------*/
-   IF (nSourceRtagId IS NULL) OR (nTargetRtagId IS NULL)
-   THEN
-      RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! nSourceRtagId= '|| nSourceRtagId ||', nTargetRtagId='|| nTargetRtagId );
-   END IF;
-   IF (nSourceRtagId = nTargetRtagId) THEN
-      RAISE_APPLICATION_ERROR (-20000, 'Cannot import release contents from same release.' );
-   END IF;
-   -- Check if Target release is in OPEN mode
-   SELECT rt.OFFICIAL  INTO  cReleaseMode
-     FROM RELEASE_TAGS rt
-    WHERE rt.RTAG_ID = nTargetRtagId;
-   IF (cReleaseMode != 'N') THEN
-      RAISE_APPLICATION_ERROR (-20000, 'Release must be in OPEN mode to import the contents.' );
-   END IF;
-   -- check that the target release's daemons are all paused before we allow an import operation
-   OPEN curTgtReleaseConfigs;
-   FETCH curtgtReleaseConfigs INTO recTgtReleaseConfigs;
-   WHILE curTgtReleaseConfigs%FOUND
-   LOOP
-      OPEN curTgtReleaseConfigRunLevel;
-      FETCH curTgtReleaseConfigRunLevel INTO recTgtReleaseConfigRunLevel;
-      IF curTgtReleaseConfigRunLevel%FOUND THEN
-         IF (recTgtReleaseConfigRunLevel.current_run_level IS NULL) OR
-            (recTgtReleaseConfigRunLevel.current_run_level <> 2) THEN
-            RAISE_APPLICATION_ERROR (-20000, 'Destination release daemon run levels must be paused before operation can proceed.' );
-         END IF;
-      ELSE
-         -- we don't know what the daemon run level is so err on the side of caution
-         RAISE_APPLICATION_ERROR (-20000, 'Destination release daemon run levels must be paused before operation can proceed.' );
-      END IF;
-      CLOSE curTgtReleaseConfigRunLevel;
-      FETCH curTgtReleaseConfigs INTO recTgtReleaseConfigs;
-   END LOOP;
-   CLOSE curTgtReleaseConfigs;
-   /*-------------------------------------------------------*/
-   -- Clean target contents
-   Clean_Release_Contents ( nTargetRtagId, nUserId );
-   -- Import Released Area Contents
-   INSERT INTO RELEASE_CONTENT ( RTAG_ID, PV_ID, BASE_VIEW_ID, INSERT_STAMP, INSERTOR_ID, PKG_STATE, PKG_ID, DEPRECATED_STATE )
-   SELECT nTargetRtagId AS RTAG_ID,
-         rc.PV_ID,
-         rc.BASE_VIEW_ID,
-         rc.INSERT_STAMP,
-         rc.INSERTOR_ID,
-         rc.PKG_STATE,
-         rc.PKG_ID,
-         rc.DEPRECATED_STATE
-     FROM RELEASE_CONTENT rc
-    WHERE rc.RTAG_ID = nSourceRtagId;
-   -- Import any Pegged Version settings from the source release
-   INSERT INTO PEGGED_VERSIONS ( RTAG_ID, PV_ID )
-   SELECT nTargetRtagId AS RTAG_ID,
-          pegv.PV_ID
-     FROM PEGGED_VERSIONS pegv
-    WHERE pegv.RTAG_ID = nSourceRtagId;
-   -- Import any Advisory Ripple settings from the source release
-   INSERT INTO ADVISORY_RIPPLE ( RTAG_ID, PV_ID )
-   SELECT nTargetRtagId AS RTAG_ID,
-          avr.PV_ID
-     FROM ADVISORY_RIPPLE avr
-    WHERE avr.RTAG_ID = nSourceRtagId;
-   --Import Release Configuration Information
-   OPEN curSrcReleaseConfigs;
-   FETCH curSrcReleaseConfigs INTO recSrcReleaseConfigs;
-   WHILE curSrcReleaseConfigs%FOUND
-   LOOP
-      -- add a daemon to the target release
-      PK_BUILDAPI.add_daemon( recSrcReleaseConfigs.daemon_hostname, nTargetRtagId, recSrcReleaseConfigs.gbe_id, recSrcReleaseConfigs.gbe_buildfilter );
-      FETCH curSrcReleaseConfigs INTO recSrcReleaseConfigs;
-   END LOOP;
-   CLOSE curSrcReleaseConfigs;
-   -- Import Ignore Warning states
-   INSERT INTO IGNORE_WARNINGS ( RTAG_ID, PV_ID, DPV_ID )
-   SELECT nTargetRtagId AS RTAG_ID,
-          igw.PV_ID,
-          igw.DPV_ID
-     FROM IGNORE_WARNINGS igw
-    WHERE igw.rtag_id = nSourceRtagId;
-   /* Log Project Action */
-   -- Get Source Location
-   SELECT pr.PROJ_NAME ||' > '|| rt.RTAG_NAME ||' ['|| rt.RTAG_VERSION ||'.'|| rt.RTAG_LIFE_CYCLE ||']'  INTO sSourceLocation
-     FROM RELEASE_TAGS rt,
-           PROJECTS pr
-    WHERE rt.PROJ_ID = pr.PROJ_ID
-      AND rt.RTAG_ID = nSourceRtagId;
-   -- Get Target Location
-   SELECT pr.PROJ_NAME ||' > '|| rt.RTAG_NAME ||' ['|| rt.RTAG_VERSION ||'.'|| rt.RTAG_LIFE_CYCLE ||']'  INTO sTargetLocation
-     FROM RELEASE_TAGS rt,
-           PROJECTS pr
-    WHERE rt.PROJ_ID = pr.PROJ_ID
-      AND rt.RTAG_ID = nTargetRtagId;
-   -- Get project id
-   SELECT rt.PROJ_ID  INTO  ProjId
-     FROM RELEASE_TAGS rt
-    WHERE rt.RTAG_ID = nTargetRtagId;
-   Log_Project_Action ( ProjId, 'import_release_contents', nUserId, 'SOURCE: '|| sSourceLocation ||'   TARGET: '|| sTargetLocation, nTargetRtagId );
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE Clean_Release_Contents ( nRtagId IN NUMBER, nUserId IN NUMBER ) IS
-   RecCount NUMBER;
-        rconIdList VARCHAR2(4000);
-BEGIN
-   /*--------------- Business Rules Here -------------------*/
-   IF (nRtagId IS NULL)
-   THEN
-      RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! nRtagId= '|| nRtagId  );
-   END IF;
-   -- Check if other release references this release
-   SELECT COUNT( rl.RTAG_ID ) INTO RecCount
-     FROM RELEASE_LINKS rl
-    WHERE rl.REF_RTAG_ID = nRtagId;
-   IF (RecCount > 0) THEN
-      RAISE_APPLICATION_ERROR (-20000, 'This release is referenced by other release and cannot be destroyed.'  );
-   END IF;
-   /*-------------------------------------------------------*/
-   -- Delete Release links
-   DELETE
-     FROM RELEASE_LINKS rl
-    WHERE rl.RTAG_ID = nRtagId;
-   -- Delete ignore warning
-   DELETE
-     FROM IGNORE_WARNINGS iw
-    WHERE iw.RTAG_ID = nRtagId;
-   -- Delete Build Order cached calculations
-   DELETE
-     FROM BUILD_ORDER bo
-    WHERE bo.RTAG_ID = nRtagId;
-   -- Delete Notification History
-   DELETE
-     FROM NOTIFICATION_HISTORY nh
-    WHERE nh.RTAG_ID = nRtagId;
-   -- Delete Released Area Contents
-   DELETE
-     FROM RELEASE_CONTENT rc
-    WHERE rc.RTAG_ID = nRtagId;
-   -- Delete Work In Progress Area Contents
-   DELETE
-     FROM WORK_IN_PROGRESS wip
-    WHERE wip.RTAG_ID = nRtagId;
-   -- Delete Pending Area Contents
-   DELETE
-     FROM PLANNED pl
-    WHERE pl.RTAG_ID = nRtagId;
-   -- Delete Deprecated Packages
-   DELETE
-     FROM DEPRECATED_PACKAGES dp
-    WHERE dp.RTAG_ID = nRtagId;
-   -- Delete Project Action Log
-   DELETE
-     FROM PROJECT_ACTION_LOG pal
-    WHERE pal.RTAG_ID = nRtagId;
-   -- Delete Do Not Ripple Contents
-   DELETE
-     FROM DO_NOT_RIPPLE dnr
-    WHERE dnr.RTAG_ID = nRtagId;
-   -- Delete Dash Board Contents
-   DELETE
-     FROM DASH_BOARD db
-    WHERE db.RTAG_ID = nRtagId;
-   -- Delete Advisory Ripple Contents
-   DELETE
-     FROM ADVISORY_RIPPLE adr
-    WHERE adr.RTAG_ID = nRtagId;
-   -- Delete Archive Action Log
-   DELETE
-     FROM ARCHIVE_ACTION_LOG aal
-    WHERE aal.RTAG_ID = nRtagId;
-   -- Delete Daemons For This Release
-   FOR rcon IN (SELECT rc.RCON_ID FROM RELEASE_CONFIG rc WHERE rc.RTAG_ID = nRtagId )
-   LOOP
-      rconIdList := rconIdList || rcon.RCON_ID || ',';
-   END LOOP;
-   pk_buildapi.DELETE_DAEMON(rconIdList);
-   -- Delete Release Metrics Contents
-   DELETE
-     FROM RELEASE_METRICS rm
-    WHERE rm.RTAG_ID = nRtagId;
-   -- Delete Release Configuration Contents
-   DELETE
-     FROM RELEASE_CONFIG rc
-    WHERE rc.RTAG_ID = nRtagId;
-   -- Delete Pegged Version Contents
-   DELETE
-     FROM PEGGED_VERSIONS pegv
-    WHERE pegv.RTAG_ID = nRtagId;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-FUNCTION GET_PARENT_RTAG ( nRtagId IN NUMBER, nSourceRtagId IN NUMBER, cIsBranch IN CHAR )  RETURN NUMBER IS
-   nSourceParentRtagId NUMBER;
-BEGIN
-   /*--------------- Business Rules Here -------------------*/
-   IF (nRtagId IS NULL) OR (cIsBranch IS NULL)
-   THEN
-      RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! nRtagId= '|| nRtagId ||', cIsBranch= '|| cIsBranch );
-   END IF;
-   /*-------------------------------------------------------*/
-   IF ( nSourceRtagId IS NULL ) THEN
-      -- Create new on main branch
-      RETURN nRtagId;
-   ELSE
-      -- Create from source rtag_id
-      -- Find parent of Source RtagId
-      SELECT rt.PARENT_RTAG_ID INTO nSourceParentRtagId
-        FROM RELEASE_TAGS rt
-       WHERE rt.RTAG_ID = nSourceRtagId;
-      IF (UPPER(cIsBranch) = 'Y') THEN
-         RETURN nSourceRtagId;
-      ELSE
-         IF (nSourceRtagId = nSourceParentRtagId) THEN
-            RETURN nRtagId;
-         ELSE
-            RETURN nSourceParentRtagId;
-         END IF;
-      END IF;
-   END IF;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
--- PROCEDURE Get_Next_Version ( nSourceRtagId IN NUMBER,
---                       sNextVersion OUT VARCHAR2,
---                       nNextLifeCycle OUT NUMBER,
---                       nParentRtagId OUT NUMBER,
---                       nProjId IN NUMBER ) IS
---
--- SourceBranchCount NUMBER;
--- ProjRootVersion VARCHAR2(4000);
--- LastLifeCycle NUMBER;
--- ROOT_VERSION_NOT_FOUND NUMBER := -1;
--- SET_PARENT_AS_YOURSELF NUMBER := -1;
---
--- SourceProjId NUMBER;
--- SourceVersion RELEASE_TAGS.RTAG_VERSION%TYPE;
--- SourceLifeCycle RELEASE_TAGS.RTAG_LIFE_CYCLE%TYPE;
---
--- BEGIN
---    /*--------------- Business Rules Here -------------------*/
---    /*-------------------------------------------------------*/
---
---
---    BEGIN
---       -- Get Project root version
---       SELECT rt.RTAG_VERSION INTO ProjRootVersion
---         FROM RELEASE_TAGS rt
---        WHERE rt.PROJ_ID = nProjId
---          AND rt.RTAG_ID = rt.PARENT_RTAG_ID;
---
---       EXCEPTION
---       WHEN NO_DATA_FOUND THEN
---       ProjRootVersion := ROOT_VERSION_NOT_FOUND;
---    END;
---
---
---
---
---    BEGIN
---       -- Get info for source rtagid
---       SELECT rt.PROJ_ID, rt.RTAG_VERSION, rt.RTAG_LIFE_CYCLE  INTO  SourceProjId, SourceVersion, SourceLifeCycle
---         FROM RELEASE_TAGS rt
---        WHERE rt.RTAG_ID = nSourceRtagId;
---
---       EXCEPTION
---       WHEN NO_DATA_FOUND THEN
---       SourceProjId := NULL;
---       SourceVersion := NULL;
---       SourceLifeCycle := NULL;
---    END;
---
---
---    IF (nSourceRtagId IS NULL)  OR  ( SourceProjId != nProjId ) THEN
---
---       /* Blank Release Required  OR  Release imported from other project */
---
---       IF (ProjRootVersion = ROOT_VERSION_NOT_FOUND) THEN
---          /* No Releases found in the project, hence calculate next version available.  */
---
---          -- Set parent rtag
---          nParentRtagId := SET_PARENT_AS_YOURSELF;
---
---
---          BEGIN
---             -- Get Next Available Global Root Version
---             SELECT MAX( TO_NUMBER( rt.RTAG_VERSION ) )  INTO  ProjRootVersion
---               FROM RELEASE_TAGS rt
---              WHERE rt.RTAG_ID = rt.PARENT_RTAG_ID;
---
---             -- Set Next Rtag Version
---             sNextVersion := CAST( ProjRootVersion + 1 AS VARCHAR2 );
---
---             -- Restart Lifecycle
---             nNextLifeCycle := 0;
---
---
---             EXCEPTION
---             WHEN NO_DATA_FOUND THEN
---             -- Release Manager has no releases, hence start from 1
---             sNextVersion := '1';
---             nNextLifeCycle := 0;
---
---          END;
---
---
---
---       ELSE
---          /* Releases found in this project. */
---
---          SELECT qry.RTAG_ID, qry.RTAG_LIFE_CYCLE  INTO nParentRtagId, LastLifeCycle
---            FROM (
---                SELECT rt.RTAG_ID, rt.RTAG_LIFE_CYCLE
---                  FROM RELEASE_TAGS rt
---                 WHERE rt.PROJ_ID = nProjId
---                   AND rt.RTAG_VERSION = ProjRootVersion
---                 ORDER BY rt.RTAG_LIFE_CYCLE DESC
---                  ) qry
---           WHERE ROWNUM = 1;
---
---
---          -- Set same Rtag Version
---          sNextVersion := ProjRootVersion;
---
---          -- Increase Lifecycle
---          nNextLifeCycle := LastLifeCycle + 1;
---
---       END IF;
---
---
---
---    ELSE
---       /* Create Release From other release within this project */
---
---       -- Set parent id
---       nParentRtagId := nSourceRtagId;
---
---
---       -- Get number of source branches
---       SELECT COUNT(rt.RTAG_ID) INTO SourceBranchCount
---         FROM RELEASE_TAGS rt
---        WHERE rt.PROJ_ID = nProjId
---          AND rt.PARENT_RTAG_ID = nSourceRtagId;
---
---
---       IF SourceBranchCount = 0 THEN
---          /* Release is Head (i.e. Tip on its branch ) */
---
---          -- Set Next Rtag Version
---          sNextVersion := SourceVersion;
---
---          -- Increase Lifecycle
---          nNextLifeCycle := SourceLifeCycle + 1;
---
---
---       ELSIF SourceBranchCount = 1 THEN
---          /* Release IS NOT Head, but can be branched */
---
---          -- Set Next Rtag Version
---          sNextVersion := SourceVersion ||'.'|| SourceLifeCycle;
---
---          -- Reset Lifecycle to 1
---          nNextLifeCycle := 1;
---
---
---       ELSE
---          -- Limit of two branches is reached
---          RAISE_APPLICATION_ERROR (-20000, 'This release is already branched and cannot be branched again. ');
---
---       END IF;
---
---
---
---
---
---
---    END IF;
---
---
--- END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE GET_VIEW_CONTENT ( RtagId IN NUMBER, ViewId IN NUMBER, RecordSet OUT typeCur ) IS
-   IsBaseView CHAR(1);
-BEGIN
-   -- Check if the view is BASE VIEW
-   SELECT vi.BASE_VIEW INTO IsBaseView
-     FROM VIEWS vi
-    WHERE vi.VIEW_ID = ViewId;
-   IF (IsBaseView = 'Y') THEN
-      -- Get Base view content
-      OPEN RecordSet FOR
-      SELECT DECODE ( rel.pkg_state, NULL, 0, rel.pkg_state ) AS PKG_STATE,
-            rel.deprecated_state,
-            pv.pv_id,
-            pkg.pkg_name,
-            pv.pkg_version,
-            pv.dlocked,
-            pv.pv_description,
-            pv.BUILD_TYPE
-        FROM release_content rel,
-             packages pkg,
-             package_versions pv
-       WHERE pv.pkg_id = pkg.pkg_id
-         AND rel.pv_id = pv.pv_id
-         AND rel.BASE_VIEW_ID = ViewId
-         AND rel.RTAG_ID = RtagId
-       ORDER BY UPPER(pkg.PKG_NAME);
-   ELSE
-       -- Get non base view content
-      OPEN RecordSet FOR
-      SELECT DECODE ( rel.pkg_state, NULL, 0, rel.pkg_state ) AS PKG_STATE,
-            rel.deprecated_state,
-            pv.pv_id,
-            pkg.pkg_name,
-            pv.pkg_version,
-            pv.dlocked,
-            pv.pv_description,
-            pv.BUILD_TYPE
-        FROM release_content rel,
-             packages pkg,
-             package_versions pv,
-            VIEW_DEF vd
-       WHERE pv.pkg_id = pkg.pkg_id
-         AND rel.pv_id = pv.pv_id
-         AND vd.VIEW_ID = ViewId
-         AND vd.PKG_ID = pv.PKG_ID
-         AND rel.RTAG_ID = RtagId
-       ORDER BY UPPER(pkg.PKG_NAME);
-   END IF;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE ADD_PACKAGE ( newPvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
-   ReleaseLocation VARCHAR2(4000);
-   sPkgVersion VARCHAR2(4000);
-   nPkgId NUMBER;
-   sVExt VARCHAR2(4000);
-   IsPatch PACKAGE_VERSIONS.IS_PATCH%TYPE := 'N';
-   -- Find package for replacement
-   CURSOR curReplacePkg IS
-    SELECT pv.PV_ID
-     FROM RELEASE_CONTENT rc,
-           PACKAGE_VERSIONS pv
-    WHERE rc.PV_ID = pv.PV_ID
-      AND rc.RTAG_ID = RtagId
-      AND pv.PKG_ID = nPkgId
-      AND NVL( pv.V_EXT, 'LINK_A_NULL' ) = NVL( sVExt, 'LINK_A_NULL' );
-    recReplacePkg curReplacePkg%ROWTYPE;
-BEGIN
-   -- Get is_patch, pkg_id and v_ext
-   SELECT pv.IS_PATCH, pv.PKG_ID, pv.V_EXT INTO IsPatch, nPkgId, sVExt
-     FROM PACKAGE_VERSIONS pv
-    WHERE pv.PV_ID = newPvId;
-   -- Never put patch in relesed area
-   IF (IsPatch != 'Y') OR (IsPatch IS NULL) THEN
-      -- Try to get a package to be replaced with this new one.
-      -- Use unique constraint of PKG_ID and V_EXT
-      OPEN curReplacePkg;
-       FETCH curReplacePkg INTO recReplacePkg;
-       IF curReplacePkg%FOUND THEN
-         -- Replace package
-         REPLACE_PACKAGE ( newPvId, recReplacePkg.PV_ID, RtagId, UserId );
-      ELSE
-         -- Add new package
-         INSERT INTO RELEASE_CONTENT ( RTAG_ID, PV_ID, BASE_VIEW_ID, INSERT_STAMP, INSERTOR_ID, PKG_STATE )
-         VALUES( RtagId, newPvId, ViewId, Ora_Sysdate, UserId, 0);
-          /* LOG ACTION */
-         SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-           FROM PROJECTS proj,
-                 RELEASE_TAGS rt
-          WHERE rt.PROJ_ID = proj.PROJ_ID
-            AND rt.RTAG_ID = RtagId;
-         SELECT pv.PKG_VERSION INTO sPkgVersion
-           FROM PACKAGE_VERSIONS pv
-          WHERE pv.PV_ID = newPvId;
-         Log_Action ( newPvId, 'add', UserId, 'Location: '|| ReleaseLocation );
-      END IF;
-      CLOSE curReplacePkg;
-   END IF;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE REPLACE_PACKAGE ( newPvId IN NUMBER, oldPvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
-   ReleaseLocation VARCHAR2(4000);
-   sPkgVersion VARCHAR2(4000);
-BEGIN
-   -- Replace Package
-    UPDATE RELEASE_CONTENT
-       SET pv_id = newPvId,
-           insert_stamp = Ora_Sysdate,
-           insertor_id = UserId,
-         product_state = NULL
-     WHERE rtag_id = RtagId
-       AND pv_id = oldPvId;
-   -- update the pegging table
-   UPDATE PEGGED_VERSIONS
-      SET pv_id = newPvId
-     WHERE rtag_id = RtagId
-       AND pv_id = oldPvId;
-   -- update the advisory_ripple table
-   UPDATE ADVISORY_RIPPLE
-      SET pv_id = newPvId
-     WHERE rtag_id = RtagId
-       AND pv_id = oldPvId;
-    /* LOG ACTION */
-   SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-     FROM PROJECTS proj,
-           RELEASE_TAGS rt
-    WHERE rt.PROJ_ID = proj.PROJ_ID
-      AND rt.RTAG_ID = RtagId;
-   SELECT pv.PKG_VERSION INTO sPkgVersion
-     FROM PACKAGE_VERSIONS pv
-    WHERE pv.PV_ID = newPvId;
-   Log_Action ( oldPvId, 'replaced_with', UserId, 'Replacing with: '|| sPkgVersion ||' at '|| ReleaseLocation );
-   Log_Action ( newPvId, 'add', UserId, 'Location: '|| ReleaseLocation );
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE REMOVE_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
-   ReleaseLocation VARCHAR2(4000);
-BEGIN
-   -- Delete old package
-   DELETE
-     FROM RELEASE_CONTENT rc
-    WHERE rc.PV_ID = PvId
-      AND rc.RTAG_ID = RtagId;
-   /* LOG ACTION */
-   SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-     FROM PROJECTS proj,
-          RELEASE_TAGS rt
-    WHERE rt.PROJ_ID = proj.PROJ_ID
-      AND rt.RTAG_ID = RtagId;
-   Log_Action ( PvId, 'delete_from_released', UserId, 'Location: '|| ReleaseLocation );
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE REMOVE_MATCHING_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
-   ReleaseLocation VARCHAR2(4000);
-   CURSOR curMatchingPackage IS
-    SELECT mpv.PV_ID
-     FROM RELEASE_CONTENT rc,
-           PACKAGE_VERSIONS mpv,
-         PACKAGE_VERSIONS pv
-    WHERE rc.PV_ID = mpv.PV_ID
-      AND rc.RTAG_ID = RtagId
-      AND pv.PV_ID = PvId
-      AND pv.PKG_ID = mpv.PKG_ID
-      AND NVL( pv.V_EXT, '|LINK_A_NULL|' ) = NVL( mpv.V_EXT, '|LINK_A_NULL|' );
-    recMatchingPackage curMatchingPackage%ROWTYPE;
-BEGIN
-   OPEN curMatchingPackage;
-    FETCH curMatchingPackage INTO recMatchingPackage;
-    IF curMatchingPackage%FOUND THEN
-      -- Delete old package
-      DELETE
-        FROM RELEASE_CONTENT rc
-       WHERE rc.PV_ID = recMatchingPackage.PV_ID
-         AND rc.RTAG_ID = RtagId;
-      /* LOG ACTION */
-      SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-        FROM PROJECTS proj,
-              RELEASE_TAGS rt
-       WHERE rt.PROJ_ID = proj.PROJ_ID
-         AND rt.RTAG_ID = RtagId;
-      Log_Action ( recMatchingPackage.PV_ID, 'delete_from_released', UserId, 'Location: '|| ReleaseLocation );
-   END IF;
-   CLOSE curMatchingPackage;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-FUNCTION GET_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER IS
-   ReturnValue NUMBER;
-BEGIN
-   SELECT rc.BASE_VIEW_ID INTO ReturnValue
-     FROM RELEASE_CONTENT rc
-    WHERE rc.RTAG_ID = RtagId
-      AND rc.PV_ID = PvId;
-   RETURN ReturnValue;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE RUN_POST_ACTIONS ( PvId IN NUMBER, RtagId IN NUMBER ) IS
-BEGIN
-   -- Reset Ignore warnings up-the-tree
-   RESET_IGNORE_WARNINGS ( TO_CHAR(PvId), RtagId );
-   -- Refresh Package states
-   TOUCH_RELEASE ( RtagId );
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE RUN_POST_ACTIONS_BULK ( PvId IN NUMBER ) IS
-   CURSOR curReleases IS
-    SELECT rc.RTAG_ID
-     FROM RELEASE_CONTENT rc
-    WHERE rc.PV_ID = PvId;
-    recReleases curReleases%ROWTYPE;
-BEGIN
-   OPEN curReleases;
-    FETCH curReleases INTO recReleases;
-   WHILE curReleases%FOUND
-   LOOP
-      RUN_POST_ACTIONS ( PvId, recReleases.RTAG_ID );
-      FETCH curReleases INTO recReleases;
-   END LOOP;
-   CLOSE curReleases;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE CHANGE_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER, NewViewId IN NUMBER ) IS
-BEGIN
-   UPDATE RELEASE_CONTENT rc SET
-   rc.BASE_VIEW_ID = NewViewId
-   WHERE rc.PV_ID = PvId
-     AND rc.RTAG_ID = RtagId;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE ADD_RELEASE_REFERENCE ( nRtagId IN NUMBER, nRefRtagId IN NUMBER, ProblemString OUT VARCHAR2 ) IS
-   RowCount NUMBER;
-   CURSOR curPackageClash IS
-   SELECT pkg.PKG_NAME,
-         er.*
-     FROM (
-           /* Get existing referenced packages */
-         SELECT pv.PKG_ID,
-                pv.V_EXT
-           FROM RELEASE_LINKS rl,
-                 RELEASE_CONTENT rc,
-                 PACKAGE_VERSIONS pv
-          WHERE rl.RTAG_ID = nRtagId
-            AND rl.REF_RTAG_ID = rc.RTAG_ID
-            AND rc.PV_ID = pv.PV_ID
-            ) er,
-         (
-         /* Get current reference packages */
-         SELECT pv.PKG_ID,
-                pv.V_EXT
-           FROM RELEASE_CONTENT rc,
-                 PACKAGE_VERSIONS pv
-          WHERE rc.RTAG_ID = nRefRtagId
-            AND rc.PV_ID = pv.PV_ID
-         ) cr,
-         PACKAGES PKG
-    WHERE er.PKG_ID = cr.PKG_ID
-      AND NVL(er.V_EXT, '|LINK_A_NULL|') = NVL(cr.V_EXT, '|LINK_A_NULL|')
-      AND er.PKG_ID = pkg.PKG_ID;
-   recPackageClash curPackageClash%ROWTYPE;
-BEGIN
-   /*--------------- Business Rules Here -------------------*/
-   IF (nRtagId = 0) OR ( nRtagId IS NULL ) THEN
-      RAISE_APPLICATION_ERROR (-20000, 'nRtagId is not supplied. [nRtagId='|| nRtagId ||']' );
-   END IF;
-   IF (nRefRtagId = 0) OR ( nRefRtagId IS NULL ) THEN
-      RAISE_APPLICATION_ERROR (-20000, 'nRefRtagId is not supplied. [nRefRtagId='|| nRefRtagId ||']' );
-   END IF;
-   /*-------------------------------------------------------*/
-   ProblemString := NULL;
-   -- Check if release already has references
-   SELECT COUNT(rl.RTAG_ID)  INTO  RowCount
-     FROM RELEASE_LINKS rl
-    WHERE rl.RTAG_ID = nRtagId;
-   IF RowCount > 0 THEN
-      -- Found existing references
-      -- Make sure there is no package clashes
-      OPEN curPackageClash;
-       FETCH curPackageClash INTO recPackageClash;
-      IF curPackageClash%FOUND THEN
-         ProblemString := ProblemString ||'Following is partial list of package already referenced from other release:'|| UTL_TCP.CRLF;
-         WHILE curPackageClash%FOUND
-         LOOP
-            EXIT WHEN LENGTH( ProblemString || '- '|| recPackageClash.PKG_NAME ||' '|| recPackageClash.V_EXT  || UTL_TCP.CRLF ) > 200;   -- Do not allow variable overflow
-            ProblemString := ProblemString || '- '|| recPackageClash.PKG_NAME ||' '|| recPackageClash.V_EXT  || UTL_TCP.CRLF;
-            FETCH curPackageClash INTO recPackageClash;
-         END LOOP;
-      END IF;
-      CLOSE curPackageClash;
-   ELSE
-      -- No references found, hence reference a release
-      -- Remove exising package from this release to be referenced
-      REMOVE_RELEASE_REFERENCE ( nRtagId, nRefRtagId);
-      -- Add new linked packages to release
-      INSERT INTO RELEASE_CONTENT rc (RTAG_ID, PV_ID, BASE_VIEW_ID, INSERT_STAMP, INSERTOR_ID, PKG_STATE)
-      SELECT nRtagId,
-            rc.PV_ID,
-            rc.BASE_VIEW_ID,
-            rc.INSERT_STAMP,
-            rc.INSERTOR_ID,
-            rc.PKG_STATE
-        FROM RELEASE_CONTENT rc
-       WHERE rc.RTAG_ID = nRefRtagId;
-      -- Copy ignore warnings for referenced packages
-      INSERT INTO IGNORE_WARNINGS iw (RTAG_ID, PV_ID, DPV_ID, IS_PATCH_IGNORE)
-      SELECT nRtagId,
-            iw.PV_ID,
-            iw.DPV_ID,
-            iw.IS_PATCH_IGNORE
-        FROM IGNORE_WARNINGS iw,
-              RELEASE_CONTENT rc
-       WHERE iw.RTAG_ID = rc.RTAG_ID
-         AND iw.PV_ID = rc.PV_ID
-         AND rc.RTAG_ID = nRefRtagId;
-      -- Reference release
-      INSERT INTO RELEASE_LINKS (RTAG_ID, REF_RTAG_ID)
-      VALUES ( nRtagId, nRefRtagId );
-      -- Refresh Package states
-      TOUCH_RELEASE ( nRtagId );
-   END IF;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE REMOVE_RELEASE_REFERENCE ( nRtagId IN NUMBER, nRefRtagId IN NUMBER ) IS
-BEGIN
-   /*--------------- Business Rules Here -------------------*/
-   IF (nRtagId = 0) OR ( nRtagId IS NULL ) THEN
-      RAISE_APPLICATION_ERROR (-20000, 'nRtagId is not supplied. [nRtagId='|| nRtagId ||']' );
-   END IF;
-   IF (nRefRtagId = 0) OR ( nRefRtagId IS NULL ) THEN
-      RAISE_APPLICATION_ERROR (-20000, 'nRefRtagId is not supplied. [nRefRtagId='|| nRefRtagId ||']' );
-   END IF;
-   /*-------------------------------------------------------*/
-   -- Remove ignore warnings for those packages who use referenced packages
-   DELETE FROM IGNORE_WARNINGS iw
-    WHERE iw.RTAG_ID = nRtagId
-      AND iw.DPV_ID IN (
-                        SELECT dep.DPV_ID
-                       FROM (
-                           /* Get referenced packages */
-                           SELECT pv.PKG_ID,
-                                  pv.V_EXT
-                             FROM RELEASE_CONTENT rc,
-                                   PACKAGE_VERSIONS pv
-                            WHERE rc.RTAG_ID = nRefRtagId
-                              AND rc.PV_ID = pv.PV_ID
-                           ) cr,
-                           (
-                           /* Get all dependencies for current release */
-                           SELECT DISTINCT
-                                 pv.PKG_ID,
-                                 pv.V_EXT,
-                                 dep.DPV_ID
-                             FROM RELEASE_CONTENT rc,
-                                 PACKAGE_DEPENDENCIES dep,
-                                 PACKAGE_VERSIONS pv
-                            WHERE rc.RTAG_ID = nRtagId
-                              AND rc.PV_ID = dep.PV_ID
-                              AND dep.PV_ID = pv.PV_ID
-                           ) dep
-                      WHERE dep.PKG_ID = cr.PKG_ID
-                        AND NVL(dep.V_EXT, '|LINK_A_NULL|') = NVL(cr.V_EXT, '|LINK_A_NULL|')
-                     );
-   -- Remove ignore warnings for those package which are going to be replaced with the reference
-   DELETE FROM IGNORE_WARNINGS iw
-    WHERE iw.RTAG_ID = nRtagId
-      AND iw.PV_ID IN (
-                  SELECT pv.PV_ID
-                    FROM (
-                        /* Get referenced packages */
-                        SELECT pv.PKG_ID,
-                               pv.V_EXT
-                          FROM RELEASE_CONTENT rc,
-                                PACKAGE_VERSIONS pv
-                         WHERE rc.RTAG_ID = nRefRtagId
-                           AND rc.PV_ID = pv.PV_ID
-                        ) cr,
-                        RELEASE_CONTENT rc,
-                        PACKAGE_VERSIONS pv
-                   WHERE pv.PKG_ID = cr.PKG_ID
-                     AND NVL(pv.V_EXT, '|LINK_A_NULL|') = NVL(cr.V_EXT, '|LINK_A_NULL|')
-                     AND rc.RTAG_ID = nRtagId
-                     AND rc.PV_ID = pv.PV_ID
-                  );
-   -- Remove matching packages from release
-   DELETE FROM RELEASE_CONTENT rc
-    WHERE rc.RTAG_ID = nRtagId
-      AND rc.PV_ID IN (
-                  SELECT pv.PV_ID
-                    FROM (
-                        /* Get referenced packages */
-                        SELECT pv.PKG_ID,
-                               pv.V_EXT
-                          FROM RELEASE_CONTENT rc,
-                                PACKAGE_VERSIONS pv
-                         WHERE rc.RTAG_ID = nRefRtagId
-                           AND rc.PV_ID = pv.PV_ID
-                        ) cr,
-                        RELEASE_CONTENT rc,
-                        PACKAGE_VERSIONS pv
-                   WHERE pv.PKG_ID = cr.PKG_ID
-                     AND NVL(pv.V_EXT, '|LINK_A_NULL|') = NVL(cr.V_EXT, '|LINK_A_NULL|')
-                     AND rc.RTAG_ID = nRtagId
-                     AND rc.PV_ID = pv.PV_ID
-                  );
-   -- Remove Reference release
-   DELETE
-     FROM RELEASE_LINKS rl
-    WHERE rl.RTAG_ID = nRtagId
-      AND rl.REF_RTAG_ID = nRefRtagId;
-   -- Refresh Package states
-   TOUCH_RELEASE ( nRtagId );
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE CAN_USER_WRITE_TO_RELEASE ( RtagId IN NUMBER, PvId IN NUMBER, Permission IN CHAR ) IS
-   cReleaseMode CHAR(1);
-   cPvMode CHAR(1);
-BEGIN
-   -- Get Release Mode
-   SELECT rt.OFFICIAL INTO cReleaseMode
-     FROM RELEASE_TAGS rt
-    WHERE rt.RTAG_ID = RtagId;
-   -- Get Package Mode
-   SELECT pv.DLOCKED INTO cPvMode
-     FROM PACKAGE_VERSIONS pv
-    WHERE pv.PV_ID = PvId;
-   -- Only check if package is locked
-   IF (cPvMode = 'Y') THEN
-      IF (cReleaseMode != 'N') AND (Permission != 'Y')
-      THEN
-         RAISE_APPLICATION_ERROR (-20000, 'Cannot add package to this release. Release needs to be in Open Mode.' );
-      END IF;
-   END IF;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-END PK_RELEASE;
-/
---------------------------------------------------------
---  DDL for Package Body PK_PROJECT
---------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "PK_PROJECT" IS
-    /*------------------------------------------------------------------------*/
-    PROCEDURE update_base_url (
-    nprojid   IN  projects.proj_id%TYPE,
-    sbaseurl  IN  VARCHAR2
-    ) IS
-    BEGIN
-    UPDATE projects
-    SET base_url = sbaseurl
-    WHERE proj_id = nprojid;
-    END update_base_url;
-/*------------------------------------------------------------------------*/
-    PROCEDURE update_project_config (
-    nprojid   IN  projects.proj_id%TYPE,
-    sbaseurl  IN  VARCHAR2,
-    sjirakey  IN  VARCHAR2
-    ) IS
-    BEGIN
-    UPDATE projects
-    SET base_url = sbaseurl,
-        jira_key = sjirakey
-    WHERE proj_id = nprojid;
-    END update_project_config;
-    /*------------------------------------------------------------------------*/
-    END pk_project;
-/
---------------------------------------------------------
---  DDL for Package Body PK_ENVIRONMENT
---------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "PK_ENVIRONMENT"
-IS
-   /*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION select_environment_area (cdlock IN package_versions.dlocked%TYPE)
-     RETURN NUMBER
-   IS
-   BEGIN
-      /*
-     || N - unlocked
-     || Y - release and locked
-     || P - penging approval
-     || A - approved package ready for auto-build
-     */
-     IF cdlock = 'N' OR cdlock = 'R'
-     THEN
-       -- WORK IN PROGRESS --
-       RETURN 0;
-     ELSIF cdlock = 'P' OR cdlock = 'A'
-     THEN
-       -- PENDING --
-       RETURN 1;
-     ELSIF cdlock = 'Y'
-     THEN
-       -- RELEASED --
-       RETURN 2;
-     ELSE
-       -- NOT FOUND --
-       raise_application_error
-                   (-20000,
-                      'Cannot decide where to place package. [cDlock='
-                    || cdlock
-                    || ']'
-                   );
-     END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION get_package_area (pvid IN NUMBER, rtagid IN NUMBER)
-     RETURN NUMBER
-   IS
-     envtab   NUMBER         := -1;
-     CURSOR curarea
-     IS
-       SELECT 2 AS envtab
-         FROM release_content rc
-        WHERE rc.rtag_id = rtagid AND rc.pv_id = pvid
-       UNION
-       SELECT 0 AS envtab
-         FROM work_in_progress wip
-        WHERE wip.rtag_id = rtagid AND wip.pv_id = pvid
-       UNION
-       SELECT 1 AS envtab
-         FROM planned pl
-        WHERE pl.rtag_id = rtagid AND pl.pv_id = pvid;
-     recarea   curarea%ROWTYPE;
-   BEGIN
-     OPEN curarea;
-     FETCH curarea
-      INTO recarea;
-     IF curarea%FOUND
-     THEN
-       envtab := recarea.envtab;
-     END IF;
-     CLOSE curarea;
-     RETURN envtab;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION get_view_location (pvid IN NUMBER, rtagid IN NUMBER)
-     RETURN NUMBER
-   IS
-     ispatch   package_versions.dlocked%TYPE;
-     viewid   NUMBER                    := -1;
-     CURSOR curview
-     IS
-       SELECT rc.base_view_id AS view_id
-         FROM release_content rc
-        WHERE rc.rtag_id = rtagid AND rc.pv_id = pvid
-       UNION
-       SELECT wip.view_id AS view_id
-         FROM work_in_progress wip
-        WHERE wip.rtag_id = rtagid AND wip.pv_id = pvid
-       UNION
-       SELECT pl.view_id AS view_id
-         FROM planned pl
-        WHERE pl.rtag_id = rtagid AND pl.pv_id = pvid;
-     recview   curview%ROWTYPE;
-   BEGIN
-     -- Get dlock state
-     SELECT pv.is_patch
-      INTO ispatch
-      FROM package_versions pv
-      WHERE pv.pv_id = pvid;
-     -- Decide which view id should package go under.
-     IF (ispatch != 'Y') OR (ispatch IS NULL)
-     THEN
-       -- Get VIEW ID of Package
-       OPEN curview;
-       FETCH curview
-        INTO recview;
-       IF curview%FOUND
-       THEN
-         viewid := recview.view_id;
-       ELSE
-         raise_application_error
-            (-20000,
-               'Cannot find view_id to proceed. [PvId='
-            || pvid
-            || ']. The current version may not exist in the release anymore.'
-            );
-       END IF;
-       CLOSE curview;
-     ELSE
-       -- Get VIEW ID of Patch (view id of parent package)
-       SELECT rc.base_view_id
-         INTO viewid
-         FROM release_content rc, package_patches ppv
-        WHERE rc.rtag_id = rtagid
-         AND rc.pv_id = ppv.pv_id
-         AND ppv.patch_id = pvid;
-     END IF;
-     RETURN viewid;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE add_package (
-     pvid    IN   NUMBER,
-     viewid   IN   NUMBER,
-     rtagid   IN   NUMBER,
-     userid   IN   NUMBER
-   )
-   IS
-     dlocked   package_versions.dlocked%TYPE;
-     envtab   NUMBER;
-   BEGIN
-     IF can_edit_pkg_in_project (pvid, rtagid) = 1
-     THEN
-       -- Get dlock state
-       SELECT pv.dlocked
-         INTO dlocked
-         FROM package_versions pv
-        WHERE pv.pv_id = pvid;
-       -- Get which area should go under
-       envtab := select_environment_area (dlocked);
-       -- Log
-       log_action (pvid, 'action', userid, 'Start of Package Add...');
-       -- Remove Package
-       IF envtab = 0
-       THEN
-         -- WORK IN PROGRESS --
-         pk_work_in_progress.add_package (pvid, viewid, rtagid, userid);
-       ELSIF envtab = 1
-       THEN
-         -- PENDING --
-         pk_planned.add_package (pvid, viewid, rtagid, userid);
-       ELSIF envtab = 2
-       THEN
-         -- RELEASED --
-         -- NOTE: this package will be replaced with matching package
-         pk_release.add_package (pvid, viewid, rtagid, userid);
-         -- Now do post Release Actions
-         pk_release.run_post_actions (pvid, rtagid);
-       END IF;
-       -- Log
-       log_action (pvid, 'action', userid, 'End of Package Add...');
-     END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE add_package_bulk (
-     pvidlist   IN   VARCHAR2,
-     viewid    IN   NUMBER,
-     rtagid    IN   NUMBER,
-     userid    IN   NUMBER
-   )
-   IS
-     nidcollector   relmgr_number_tab_t         := relmgr_number_tab_t
-                                                        ();
-     dlocked      package_versions.dlocked%TYPE;
-     pvid         NUMBER;
-     envtab       NUMBER;
-   BEGIN
-     /*--------------- Business Rules Here -------------------*/
-     IF (pvidlist IS NULL)
-     THEN
-       raise_application_error (-20000,
-                          'Please select at least one package.'
-                         );
-     END IF;
-/*-------------------------------------------------------*/
-     nidcollector := in_list_number (pvidlist);
-     FOR i IN 1 .. nidcollector.COUNT
-     LOOP
-       pvid := nidcollector (i);
-       add_package (pvid, viewid, rtagid, userid);
-     END LOOP;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE replace_package (
-     newpvid  IN   NUMBER,
-     oldpvid  IN   NUMBER,
-     rtagid   IN   NUMBER,
-     userid   IN   NUMBER
-   )
-   IS
-     dlocked      package_versions.dlocked%TYPE;
-     viewid       NUMBER;
-     envtab       NUMBER;
-     ROWCOUNT     NUMBER;
-     creleasemode CHAR (1);
-     npkgid       NUMBER;
-   BEGIN
-     /*--------------- Business Rules Here -------------------*/
-     -- Check if oldPvId exists. It could have been removed
-     SELECT COUNT (pv.pv_id)
-       INTO ROWCOUNT
-       FROM package_versions pv
-      WHERE pv.pv_id = oldpvid;
-/*-------------------------------------------------------*/
-     /* This procedure is usually used by "History" option in Release Manager */
-     -- Get dlock state
-     SELECT pv.dlocked
-       INTO dlocked
-       FROM package_versions pv
-      WHERE pv.pv_id = newpvid;
-     -- Get VIEW_ID ---
-     IF ROWCOUNT = 1
-     THEN
-       viewid := get_view_location (oldpvid, rtagid);
-     ELSE
-       -- Set ViewID to default
-       viewid := 7;
-     END IF;
-     -- Get which area should go under
-     envtab := select_environment_area (dlocked);
-     -- Log
-     log_action (oldpvid, 'action', userid, 'Start of Package Replace...');
-     -- Replace package
-     IF envtab = 0
-     THEN
-       -- WORK IN PROGRESS --
-       -- Delete old package
-       pk_work_in_progress.remove_package (oldpvid, rtagid, userid);
-       -- Add new package
-       pk_work_in_progress.add_package (newpvid, viewid, rtagid, userid);
-     ELSIF envtab = 1
-     THEN
-       -- PENDING --
-       -- Delete old package
-       pk_planned.remove_package (oldpvid, rtagid, userid);
-       -- Add new package
-       pk_planned.add_package (newpvid, viewid, rtagid, userid);
-     ELSIF envtab = 2
-     THEN
-       -- RELEASED --
-       -- Delete old package
-       pk_release.remove_package (oldpvid, rtagid, userid);
-       -- Add new package
-       pk_release.add_package (newpvid, viewid, rtagid, userid);
-       -- update the pegging table
-       UPDATE PEGGED_VERSIONS SET pv_id = newpvid WHERE rtag_id = rtagid AND pv_id = oldpvid;
-       -- update the advisory ripple table
-       UPDATE ADVISORY_RIPPLE SET pv_id = newpvid WHERE rtag_id = rtagid AND pv_id = oldpvid;
-       -- Now do post Release Actions
-       pk_release.run_post_actions (newpvid, rtagid);
-     END IF;
-     -- Log
-     log_action (oldpvid, 'action', userid, 'End of Package Replace...');
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION remove_package (
-     pvid        IN   NUMBER,
-     rtagid      IN   NUMBER,
-     userid      IN   NUMBER,
-     forceremove IN   CHAR
-   )
-     RETURN NUMBER
-   IS
-     envtab      NUMBER;
-     isused      BOOLEAN;
-     recordcount   NUMBER;
-   BEGIN
-/*--------------- Business Rules Here -------------------*/
-/*-------------------------------------------------------*/
-     -- Find location of package
-     envtab := get_package_area (pvid, rtagid);
-     -- Remove Package
-     IF envtab = 0
-     THEN
-       -- WORK IN PROGRESS --
-       -- Delete package
-       pk_work_in_progress.remove_package (pvid, rtagid, userid);
-       RETURN 0;
-     ELSIF envtab = 1
-     THEN
-       -- PENDING --
-       -- Delete package
-       pk_planned.remove_package (pvid, rtagid, userid);
-       RETURN 0;
-     ELSIF envtab = 2
-     THEN
-       -- RELEASED --
-       -- Check if is used by other packages
-       isused := TRUE;
-       IF forceremove = 'N'
-       THEN
-         SELECT COUNT (pv.pv_id)
-           INTO recordcount
-           FROM (SELECT dpv.pkg_id, dpv.v_ext
-                 FROM release_content rc,
-                     package_dependencies dep,
-                     package_versions dpv
-                WHERE rc.rtag_id = rtagid
-                  AND rc.pv_id = dep.pv_id
-                  AND dep.dpv_id = dpv.pv_id) rdep,
-               package_versions pv
-          WHERE pv.pkg_id = rdep.pkg_id
-            AND NVL (pv.v_ext, '|LINK_A_NULL|') =
-                                  NVL (rdep.v_ext, '|LINK_A_NULL|')
-            AND pv.pv_id = pvid;
-         IF recordcount > 0
-         THEN
-            RETURN 1;               -- Return 1 as package being used
-         ELSE
-            isused := FALSE;
-         END IF;
-       END IF;
-       IF forceremove = 'Y' OR NOT isused
-       THEN
-         -- Delete old package
-         pk_release.remove_package (pvid, rtagid, userid);
-         -- Delete old package's pegging info
-         DELETE FROM PEGGED_VERSIONS pegv WHERE pegv.RTAG_ID = rtagid AND pegv.PV_ID = pvid;
-         -- Delete old package's advisory ripple info
-         DELETE FROM ADVISORY_RIPPLE avr WHERE avr.RTAG_ID = rtagid AND avr.PV_ID = pvid;
-         -- Now do post Release Actions
-         pk_release.run_post_actions (pvid, rtagid);
-         RETURN 0;
-       END IF;
-     END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   -- DEVI-45275 added the return of the new "operation" column in the recordset.
-   PROCEDURE get_environment_items (
-     viewtype         IN      NUMBER,
-     userid           IN      NUMBER,
-     rtagid           IN      NUMBER,
-     sviewidshowlist  IN      VARCHAR2,
-     ntruerecordcount OUT     NUMBER,
-     recordset        OUT     typecur
+   )
    IS
    BEGIN
      -- Get true record count because views can give false count
      SELECT COUNT (pl.pv_id)
   END;
 /*-------------------------------------------------------------------------------------------------------*/
 END pk_environment;
+/
 --------------------------------------------------------
---  DDL for Package Body PK_WORK_IN_PROGRESS
+--  DDL for Package Body PK_LICENCING
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "PK_WORK_IN_PROGRESS" IS
+  CREATE OR REPLACE PACKAGE BODY "PK_LICENCING" IS
 /*
 ------------------------------
-||  Last Modified:  S.Vukovic
+||  Last Modified:  G.Huddy
-||  Modified Date:  2/May/2005
+||  Modified Date:  19/Aug/2008
 ||  Body Version:   1.0
 ------------------------------
 */
+   PROCEDURE ADD_LICENCE ( PvId IN NUMBER, licenceId IN NUMBER, UserId IN NUMBER ) IS
+   BEGIN
+      IF IS_LICENCED(PvId, licenceId) = 0 THEN
+         -- Add entry to licencing table
+         INSERT INTO licencing (pv_id, licence)
+         VALUES (PvId, licenceId);
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE ADD_PACKAGE ( newPvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
-	oldPvId NUMBER;
-	ReleaseLocation VARCHAR2(4000);
-	sLocation VARCHAR2(4000) := NULL;
-BEGIN
-	/*--------------- Business Rules Here -------------------*/
-	/*-------------------------------------------------------*/
-	BEGIN
-		-- Check if Exists in "Work in progress" anywhere in the world, except "Closed mode" releases
-		SELECT proj.PROJ_NAME ||' > '|| rt.RTAG_NAME  INTO sLocation
-		  FROM WORK_IN_PROGRESS wip,
-		  	   RELEASE_TAGS rt,
-			   PROJECTS proj
-		 WHERE wip.PV_ID = newPvId
-		   AND wip.RTAG_ID = rt.RTAG_ID
-		   AND rt.OFFICIAL != 'Y'
-		   AND rt.PROJ_ID = proj.PROJ_ID;
-		EXCEPTION
-	    	WHEN NO_DATA_FOUND THEN
-	       		sLocation := NULL;
+         -- log action
-	END;
-	IF (sLocation IS NULL)  THEN
-		-- Add to "Work in progress"
-		INSERT INTO WORK_IN_PROGRESS ( RTAG_ID, PV_ID, VIEW_ID )
-		VALUES( RtagId, newPvId, ViewId );
-	    /* LOG ACTION */
+         -- TODO
-		SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-		  FROM PROJECTS proj,
-		  	   RELEASE_TAGS rt
-		 WHERE rt.PROJ_ID = proj.PROJ_ID
-		   AND rt.RTAG_ID = RtagId;
-		Log_Action ( newPvId, 'work_in_progress', UserId, 'Location: '|| ReleaseLocation );
-	ELSE
-		RAISE_APPLICATION_ERROR (-20000, 'This version is already in Work-In-Progress Area at '|| sLocation ||'.' );
-	END IF;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE REMOVE_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
-	ReleaseLocation VARCHAR2(4000);
-BEGIN
-	/*--------------- Business Rules Here -------------------*/
-	/*-------------------------------------------------------*/
-	-- Get release location for logging pusposes
-	SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-	  FROM PROJECTS proj,
-	  	   RELEASE_TAGS rt
-	 WHERE rt.PROJ_ID = proj.PROJ_ID
-	   AND rt.RTAG_ID = RtagId;
-	-- Delete from Work In Progress
-	DELETE
-	  FROM WORK_IN_PROGRESS wip
-	 WHERE wip.RTAG_ID = RtagId
-	   AND wip.PV_ID = PvId;
-	Log_Action ( PvId, 'delete_from_wip', UserId, 'Location: '|| ReleaseLocation );
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE REMOVE_PACKAGE_BULK ( PvIdList IN VARCHAR2, RtagId IN NUMBER, UserId IN NUMBER ) IS
-	nIdCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
-	ReleaseLocation VARCHAR2(4000);
-	PvId NUMBER;
-BEGIN
-	/*--------------- Business Rules Here -------------------*/
-	IF (PvIdList IS NULL)
-	THEN
-		RAISE_APPLICATION_ERROR (-20000, 'Please select at least one package.' );
-	END IF;
+      END IF;
-	/*-------------------------------------------------------*/
-	nIdCollector := IN_LIST_NUMBER ( PvIdList );
-	-- Get release location for logging pusposes
-	SELECT proj.PROJ_NAME  ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-	  FROM PROJECTS proj,
-	  	   RELEASE_TAGS rt
-	 WHERE rt.PROJ_ID = proj.PROJ_ID
-	   AND rt.RTAG_ID = RtagId;
-	FOR i IN 1..nIdCollector.COUNT
-	LOOP
-		PvId := nIdCollector(i);
-		-- Delete from Work In Progress
-		DELETE
-		  FROM WORK_IN_PROGRESS wip
-		 WHERE wip.RTAG_ID = RtagId
-		   AND wip.PV_ID = PvId;
-		Log_Action ( PvId, 'remove_from_work_in_progress', UserId, 'Location: '|| ReleaseLocation );
-	END LOOP;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-FUNCTION GET_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER IS
-	ReturnValue NUMBER;
-BEGIN
+   END;
-	SELECT wip.VIEW_ID INTO ReturnValue
-	  FROM WORK_IN_PROGRESS wip
-	 WHERE wip.RTAG_ID = RtagId
-	   AND wip.PV_ID = PvId;
-	RETURN ReturnValue;
-END;
 /*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE GET_VIEW_CONTENT ( RtagId IN NUMBER, ViewId IN NUMBER, RecordSet OUT typeCur ) IS
-	IsBaseView CHAR(1);
+   PROCEDURE REMOVE_LICENCE ( PvId IN NUMBER, licenceId IN NUMBER, UserId IN NUMBER ) IS
-BEGIN
+   BEGIN
-	-- Check if the view is BASE VIEW
-	SELECT vi.BASE_VIEW INTO IsBaseView
-	  FROM VIEWS vi
-	 WHERE vi.VIEW_ID = ViewId;
-	IF (IsBaseView = 'Y') THEN
+      IF NOT IS_LICENCED(PvId, licenceId) = 0 THEN
-		-- Get Base view content
+         -- Delete entry from licencing table
-		OPEN RecordSet FOR
-		SELECT 0 AS PKG_STATE,
-			   NULL AS DEPRECATED_STATE,
-			   pv.pv_id,
-			   pkg.pkg_name,
-			   pv.pkg_version,
-			   pv.dlocked,
-			   pv.pv_description,
-			   pv.BUILD_TYPE
-		  FROM WORK_IN_PROGRESS rel,
-		       packages pkg,
-		       package_versions pv
+         DELETE FROM licencing
-		 WHERE pv.pkg_id = pkg.pkg_id
-		   AND rel.pv_id = pv.pv_id
+         WHERE pv_id = PvId
-		   AND rel.VIEW_ID = ViewId
+         AND licence = licenceId;
-		   AND rel.RTAG_ID = RtagId
-		 ORDER BY UPPER(pkg.PKG_NAME);
-	ELSE
-	 	-- Get non base view content
-		OPEN RecordSet FOR
-		SELECT 0 AS PKG_STATE,
-			   NULL AS DEPRECATED_STATE,
-			   pv.pv_id,
-			   pkg.pkg_name,
-			   pv.pkg_version,
-			   pv.dlocked,
-			   pv.pv_description,
+         -- log action
-			   pv.BUILD_TYPE
-		  FROM WORK_IN_PROGRESS rel,
-		       packages pkg,
+         -- TODO
-		       package_versions pv,
-			   VIEW_DEF vd
+      END IF;
-		 WHERE pv.pkg_id = pkg.pkg_id
-		   AND rel.pv_id = pv.pv_id
-		   AND vd.VIEW_ID = ViewId
-		   AND vd.PKG_ID = pv.PKG_ID
-		   AND rel.RTAG_ID = RtagId
-		 ORDER BY UPPER(pkg.PKG_NAME);
-	END IF;
+   END;
-END;
 /*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE CHANGE_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER, NewViewId IN NUMBER ) IS
-BEGIN
-	UPDATE WORK_IN_PROGRESS wip SET
-	wip.VIEW_ID = NewViewId
-	WHERE wip.PV_ID = PvId
-	  AND wip.RTAG_ID = RtagId;
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-END PK_WORK_IN_PROGRESS;
-/
---------------------------------------------------------
---  DDL for Package Body PK_ARCHIVE
---------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "PK_ARCHIVE"
-IS
-/*
-------------------------------
-||  Author:  Rupesh Solanki
-||  Date:    26 October 2006
-||  Version:   1.0
-------------------------------
-*/
-/*---------------------------*/
-PROCEDURE populate_packages_table IS
-BEGIN
-		  INSERT INTO archive_manager.PACKAGES
-		  (
-		  select * from packages where pkg_id not in
-		  		  (select pkg_id from archive_manager.packages)
-		  );
-          INSERT INTO archive_manager.PROCESSES
-          (
-          select * from processes where proc_id not in
-            (select proc_id from archive_manager.processes)
-          );
+   PROCEDURE CLONE_LICENCING( fromPvId IN NUMBER, toPvId IN NUMBER, UserId IN NUMBER ) IS
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE populate_archive_data_table (
-      nrtagid   IN   release_tags.rtag_id%TYPE
-   )
-   IS
-/*
-Reason: To populate the archive_data table with information regarding the
-         number of package versions that exist in other releases.
-*/
-      numcount      NUMBER;
-      numusedby     NUMBER;
-      numruntime    NUMBER;
-      /* Get all the package versions in the release */
-      CURSOR archive_cur
+      CURSOR licencing_cur
       IS
-         SELECT pv_id
+         SELECT *
-           FROM release_content
+         FROM licencing
-          WHERE rtag_id = nrtagid;
+         WHERE pv_id = fromPvId;
+      licencing_rec licencing_cur%ROWTYPE;
-      archive_rec   archive_cur%ROWTYPE;
    BEGIN
-/*--------------- Business Rules Here -------------------*/
+      -- For each licence association that the Last PV_ID had, create a similar
+      -- arrangement for the new PV_ID
+      -- NOTE that any additional licencing associations the new PV_ID has that the old one
+      -- does not have, are retained. The assumption is that the user has made those and so we do not
-/*-------------------------------------------------------*/
+      -- have any right to destroy them without asking them.
-      OPEN archive_cur;
+      OPEN licencing_cur;
-      FETCH archive_cur
+      FETCH licencing_cur
-       INTO archive_rec;
+      INTO licencing_rec;
-      WHILE archive_cur%FOUND
+      WHILE licencing_cur%FOUND
       LOOP
-        /* How many packages depend on this package version? */
-         SELECT COUNT (*)
-           INTO numusedby
-           FROM package_dependencies
-          WHERE dpv_id = archive_rec.pv_id;
-        /* How many project releases use this package version?  */
-         SELECT COUNT (*)
-           INTO numcount
-           FROM release_content
-          WHERE pv_id = archive_rec.pv_id;
-        /* How many packages have this package version as runtime
-        dependency? */
-         SELECT COUNT (*)
-           INTO numruntime
-           FROM runtime_dependencies
-          WHERE rtd_id = archive_rec.pv_id;
+         ADD_LICENCE ( toPvId, licencing_rec.licence, UserId );
-        /* Insert into the archive_data table if they are not runtime dependant
-        and package dependant and they exist in that particular release only*/
-         IF numusedby = 0 AND numcount = 1 AND numruntime = 0
-         THEN
-            INSERT INTO archive_data
-                        (rtag_id, pv_id
-                        )
-                 VALUES (nrtagid, archive_rec.pv_id
-                        );
-         END IF;
-         FETCH archive_cur
+         FETCH licencing_cur
-          INTO archive_rec;
+         INTO licencing_rec;
       END LOOP;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE migrate_pv_to_archive_schema (
-      nrtagid   IN   release_tags.rtag_id%TYPE
-   )
-   IS
-   BEGIN
-      /* MIGRATION - PACKAGE_VERSIONS */
-      INSERT INTO archive_manager.package_versions
-         SELECT *
-           FROM package_versions
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* MIGRATION - PACKAGE_BUILD_ENV */
-      INSERT INTO archive_manager.package_build_env
-         SELECT *
-           FROM package_build_env
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM PACKAGE_BUILD_ENV */
-      DELETE FROM package_build_env
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
-      /* MIGRATION - PACKAGE_BUILD_INFO */
-      INSERT INTO archive_manager.package_build_info
-         SELECT *
-           FROM package_build_info
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM PACKAGE_BUILD_info */
-      DELETE FROM package_build_info
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
-      /* MIGRATION - UNIT_TESTS  */
-      INSERT INTO archive_manager.unit_tests
-         SELECT *
-           FROM unit_tests
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM UNIT_TESTS*/
-      DELETE FROM unit_tests
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
-      /* MIGRATION - PACKAGE_PROCESSES */
-      INSERT INTO archive_manager.package_processes
-         SELECT *
-           FROM package_processes
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM PACKAGE_PROCESSES*/
-      DELETE FROM package_processes
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
-      /* MIGRATION - PACKAGE_DEPENDENCIES */
-      INSERT INTO archive_manager.package_dependencies
-         SELECT *
-           FROM package_dependencies
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM PACKAGE_DEPENDENCIES*/
-      DELETE FROM package_dependencies
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
-      /* MIGRATION - CODE_REVIEWS */
-      INSERT INTO archive_manager.code_reviews
-         SELECT *
-           FROM code_reviews
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM CODE_REVIEWS*/
-      DELETE FROM code_reviews
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
-      /* MIGRATION - RUNTIME_DEPENDENCIES*/
-      INSERT INTO archive_manager.runtime_dependencies
-         SELECT *
-           FROM runtime_dependencies
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM RUNTIME_DEPENDENCIES*/
-      DELETE FROM runtime_dependencies
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
-      /* MIGRATION - PACKAGE_DOCUMENTS */
-      INSERT INTO archive_manager.package_documents
-         SELECT *
-           FROM package_documents
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM PACKAGE_DOCUMENTS*/
-      DELETE FROM package_documents
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
-      /* MIGRATION - PACKAGE_PATCHES */
-      INSERT INTO archive_manager.package_patches
-         SELECT *
-           FROM package_patches
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM PACKAGE_PATCHES*/
-      DELETE FROM package_patches
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
-      /* MIGRATION - CQ_ISSUES */
-      INSERT INTO archive_manager.cq_issues
-         SELECT *
-           FROM cq_issues
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM CQ_ISSUES*/
-      DELETE FROM cq_issues
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
-      /* MIGRATION - ADDITIONAL_NOTES */
-      INSERT INTO archive_manager.additional_notes
-         SELECT *
-           FROM additional_notes
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM ADDITIONAL_NOTES*/
-      DELETE FROM additional_notes
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
-      /* MIGRATION - RELEASE_COMPONENTS */
-      INSERT INTO archive_manager.release_components
-         SELECT *
-           FROM release_components
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM RELEASE_COMPONENTS*/
-      DELETE FROM release_components
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
-      /* MIGRATION - IGNORE_WARNINGS */
-      INSERT INTO archive_manager.ignore_warnings
-         SELECT *
-           FROM ignore_warnings
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM IGNORE_WARNINGS*/
-      DELETE FROM ignore_warnings
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
-      /* PURGE DATA FROM WORK_IN_PROGRESS */
-      DELETE FROM work_in_progress
-            WHERE rtag_id = nrtagid;
-      /* PURGE DATA FROM PLANNED */
-      DELETE FROM planned
-            WHERE rtag_id = nrtagid;
-      /* MIGRATION - JIRA_ISSUES */
-      INSERT INTO archive_manager.jira_issues
-         SELECT *
-           FROM jira_issues
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM JIRA_ISSUES*/
-      DELETE FROM jira_issues
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
-      /* MIGRATION - PRODUCT_COMPONENTS */
-      INSERT INTO archive_manager.product_components
+   FUNCTION IS_LICENCED( PvId IN NUMBER, licenceId IN NUMBER) RETURN NUMBER IS
-         SELECT *
+      found NUMBER;
-           FROM product_components
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM PRODUCT_COMPONENTS*/
-      DELETE FROM product_components
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
-      /* MIGRATION - ACTION_LOG */
-      INSERT INTO archive_manager.action_log
-         SELECT *
+   BEGIN
-           FROM action_log
-          WHERE pv_id IN (SELECT pv_id
-                            FROM archive_data);
-      /* PURGE DATA FROM ACTION_LOG*/
-      DELETE FROM action_log
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
+      SELECT COUNT(*) INTO found
+      FROM licencing
+      WHERE pv_id = PvId
+      AND licence = LicenceId;
+      RETURN found;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE migrate_rtag_to_archive_schema (
-      nrtagid   IN   release_tags.rtag_id%TYPE
-   )
-   IS
-   BEGIN
-      /* MIGRATION - DO_NOT_RIPPLE */
-      INSERT INTO archive_manager.do_not_ripple
-         SELECT *
-           FROM do_not_ripple dnp
-          WHERE rtag_id = nrtagid;
-      /* PURGE DATA FROM DO_NOT_RIPPLE */
-      DELETE FROM do_not_ripple
-            WHERE rtag_id = nrtagid;
-      /* MIGRATION - ADVISORY_RIPPLES*/
-      INSERT INTO archive_manager.advisory_ripples
-         SELECT *
-           FROM advisory_ripple dnp
-          WHERE rtag_id = nrtagid;
-      /* PURGE DATA FROM ADVISORY_RIPPLES*/
-      DELETE FROM advisory_ripple
-            WHERE rtag_id = nrtagid;
-      /* MIGRATION - RELEASE_CONTENT */
-      INSERT INTO archive_manager.release_content
-         SELECT *
-           FROM release_content
-          WHERE rtag_id = nrtagid;
-      /* PURGE DATA FROM RELEASE_CONTENT*/
-      DELETE FROM release_content
-            WHERE rtag_id = nrtagid;
-      /* MIGRATION - NOTIFICATION_HISTORY */
+   PROCEDURE REMOVE_ALL_LICENCING( PvId IN NUMBER, UserId IN NUMBER ) IS
-      INSERT INTO archive_manager.notification_history
-         SELECT *
-           FROM notification_history
-          WHERE rtag_id = nrtagid;
-      /* PURGE DATA FROM NOTIFICATION_HISTORY*/
-      DELETE FROM notification_history
-            WHERE rtag_id = nrtagid;
-      /* MIGRATION - BUILD_ORDER   */
-      INSERT INTO archive_manager.build_order
-         SELECT *
-           FROM build_order
-          WHERE rtag_id = nrtagid;
-      /* PURGE DATA FROM BUILD_ORDER*/
-      DELETE FROM build_order
-            WHERE rtag_id = nrtagid;
-      /* MIGRATION - PROJECT_ACTION_LOG */
+      CURSOR licencing_cur
-      INSERT INTO archive_manager.project_action_log
+      IS
          SELECT *
-           FROM project_action_log
+         FROM licencing
-          WHERE rtag_id = nrtagid;
+         WHERE pv_id = PvId;
-      /* PURGE DATA FROM PROJECT_ACTION_LOG */
+      licencing_rec licencing_cur%ROWTYPE;
+   BEGIN
-      DELETE FROM project_action_log
+      -- For each licence association that the PV_ID had, remove it
-            WHERE rtag_id = nrtagid;
+      OPEN licencing_cur;
-      /* MIGRATION - DEPRECATED_PACKAGES */
-      INSERT INTO archive_manager.deprecated_packages
-         SELECT *
+      FETCH licencing_cur
-           FROM deprecated_packages
+      INTO licencing_rec;
-          WHERE rtag_id = nrtagid;
-      /* PURGE DATA FROM DEPRECATED_PACKAGES */
-      DELETE FROM deprecated_packages
-            WHERE rtag_id = nrtagid;
+      WHILE licencing_cur%FOUND
-      /* MIGRATION - RELEASE_TAGS */
-      INSERT INTO archive_manager.release_tags
-         SELECT *
+      LOOP
-           FROM release_tags
-          WHERE rtag_id = nrtagid;
-      /* PURGE DATA FROM PACKAGE_VERSIONS*/
-      DELETE FROM package_versions
-            WHERE pv_id IN (SELECT pv_id
-                              FROM archive_data);
+         REMOVE_LICENCE ( PvId, licencing_rec.licence, UserId );
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE clean_up_archive_data_table (
-      nrtagid   IN   release_tags.rtag_id%TYPE
+         FETCH licencing_cur
-   )
-   IS
-   BEGIN
-      /* Cleaning Up The Archive_Data Table */
-      DELETE FROM archive_data
+         INTO licencing_rec;
-            WHERE rtag_id = nrtagid;
+      END LOOP;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE write_action_log (
-      nuserid   IN   NUMBER,
-      nrtagid   IN   release_tags.rtag_id%TYPE
-   )
-   IS
-   BEGIN
-      /* Write Into Archive_Action_Log Table */
-      INSERT INTO archive_action_log
-                  (user_id, date_time_stamp, rtag_id,
-                   description
-                  )
-           VALUES (nuserid, ora_sysdatetime, nrtagid,
-                   'Release has been archived to the ARCHIVE_MANAGER schema'
-                  );
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-END pk_archive;
+END PK_LICENCING;
+/
 --------------------------------------------------------
---  DDL for Package Body PK_PACKAGE_TEST
+--  DDL for Package Body PK_PACKAGE
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "PK_PACKAGE_TEST"
+  CREATE OR REPLACE PACKAGE BODY "PK_PACKAGE"
 IS
-/*
-------------------------------
-||  Last Modified:  R. Solanki
-||  Modified Date:  09/03/2006
-||  Body Version:   1.7
-------------------------------
-*/
    /*-------------------------------------------------------------------------------------------------------*/
    PROCEDURE new_version (
       nlastpvid                   IN       NUMBER,
       snewpkgversion              IN       VARCHAR2 DEFAULT NULL,
       cbuildtype                  IN       CHAR,
       nuserid                     IN       NUMBER,
       enumissues_state_imported   IN       NUMBER,
       returnpvid                  OUT      NUMBER
+   )
    IS
-      origpkg_id                   package_versions.pkg_id%TYPE;
+      origpkg_id                  package_versions.pkg_id%TYPE;
-      origdlocked                  package_versions.dlocked%TYPE;
+      origdlocked                 package_versions.dlocked%TYPE;
-      ssv_mm                       package_versions.v_mm%TYPE;
+      ssv_mm                      package_versions.v_mm%TYPE;
-      ssv_nmm                      package_versions.v_nmm%TYPE;
+      ssv_nmm                     package_versions.v_nmm%TYPE;
-      ssv_ext                      package_versions.v_ext%TYPE;
+      ssv_ext                     package_versions.v_ext%TYPE;
-      spackageversion              VARCHAR2 (4000);
+      spackageversion             VARCHAR2 (4000);
-      nissuestypes                 NUMBER;
+      nissuestypes                NUMBER;
-      nviewid                      NUMBER;
+      nviewid                     NUMBER;
-      reccount                     NUMBER;
+      reccount                    NUMBER;
-      isreleased                   package_versions.dlocked%TYPE       := 'N';
+      isreleased                  package_versions.dlocked%TYPE := 'N';
-      slabel                       VARCHAR2 (4000)                    := NULL;
+      slabel                      VARCHAR2 (4000)               := NULL;
       CURSOR package_versions_cur
       IS
          SELECT pv.pv_id, pv.is_patch, pv.dlocked
            FROM package_versions pv
           WHERE pv.pkg_version = snewpkgversion
             AND pv.pkg_id IN (SELECT DISTINCT origpv.pkg_id
                                          FROM package_versions origpv
                                         WHERE origpv.pv_id = nlastpvid);
-      package_versions_rec         package_versions_cur%ROWTYPE;
+      package_versions_rec package_versions_cur%ROWTYPE;
       CURSOR clone_package_versions_cur
       IS
          SELECT DISTINCT pkg_id, dlocked
                     FROM package_versions
                    WHERE pv_id = nlastpvid;
-      clone_package_versions_rec   clone_package_versions_cur%ROWTYPE;
+      clone_package_versions_rec clone_package_versions_cur%ROWTYPE;
    BEGIN
       spackageversion := snewpkgversion;
       IF nsettopvid IS NULL
       THEN
          -- SetToPv_id is not supplied, hence proceed.
          /* ---------------------------------------------------- */
-/* Find id package_version exists                       */
+         /* Find id package_version exists                       */
-/* ---------------------------------------------------- */
+         /* ---------------------------------------------------- */
          OPEN package_versions_cur;
          FETCH package_versions_cur
           INTO package_versions_rec;
             -- Automated built config
             IF (cbuildtype = 'A')
             THEN
                spackageversion := '(' || returnpvid || ')' || ssv_ext;
-                                    -- Make sure that version is still unique
+               -- Make sure that version is still unique
             END IF;
             -- Clone Package Version Details --
-            INSERT INTO package_versions
-                        (pv_id, pkg_id, pkg_version, dlocked, created_stamp,
+            INSERT INTO package_versions(pv_id, pkg_id, pkg_version, dlocked, created_stamp,
-                         creator_id, modified_stamp, modifier_id, v_mm, v_nmm,
+                                         creator_id, modified_stamp, modifier_id, v_mm, v_nmm,
-                         v_ext, src_path, pv_description, pv_overview,
+                                         v_ext, src_path, pv_description, pv_overview,
-                         last_pv_id, owner_id, is_deployable,
+                                         last_pv_id, owner_id, is_deployable,
-                         is_build_env_required, build_type, bs_id, is_autobuildable)
+                                         is_build_env_required, build_type, bs_id, is_autobuildable, ripple_field)
-               SELECT returnpvid AS pv_id, origpkg_id AS pkg_id,
+                 SELECT returnpvid AS pv_id, origpkg_id AS pkg_id,
-                      spackageversion AS pkg_version, 'N' AS dlocked,
+                        spackageversion AS pkg_version, 'N' AS dlocked,
-                      ora_sysdate AS created_stamp, nuserid AS creator_id,
+                        ora_sysdate AS created_stamp, nuserid AS creator_id,
-                      ora_sysdatetime AS modified_stamp,
+                        ora_sysdatetime AS modified_stamp,
-                      nuserid AS modifier_id, ssv_mm AS v_mm,
+                        nuserid AS modifier_id, ssv_mm AS v_mm,
-                      ssv_nmm AS v_nmm, ssv_ext AS v_ext, pv.src_path,
+                        ssv_nmm AS v_nmm, ssv_ext AS v_ext, pv.src_path,
-                      pv.pv_description, pv.pv_overview,
+                        pv.pv_description, pv.pv_overview,
-                      nlastpvid AS last_pv_id, pv.owner_id, pv.is_deployable,
+                        nlastpvid AS last_pv_id, pv.owner_id, pv.is_deployable,
-                      pv.is_build_env_required, cbuildtype, pv.bs_id, pv.is_autobuildable
+                        pv.is_build_env_required, cbuildtype, pv.bs_id, pv.is_autobuildable, pv.ripple_field
-                 FROM package_versions pv
+                   FROM package_versions pv
-                WHERE pv.pv_id = nlastpvid;
+                  WHERE pv.pv_id = nlastpvid;
             -- Set Issues Type for cloning ---
             IF origdlocked = 'Y'
             THEN
                nissuestypes := enumissues_state_imported;
          --- Remove from Code Review
          DELETE FROM code_reviews cr
                WHERE cr.pv_id = pvid;
+         --- Remove from Code Review URL
+         DELETE FROM code_review_url cru
+               WHERE cru.pv_id = pvid;
          --- Remove from Unit Tests
          DELETE FROM unit_tests ut
                WHERE ut.pv_id = pvid;
          --- Remove from Package BuildEnv
          DELETE FROM package_build_env pbe
                WHERE pbe.pv_id = pvid;
-		 --- Remove from Package Build Info
+         --- Remove from Package Build Info
-		 DELETE FROM package_build_info pbi
+         DELETE FROM package_build_info pbi
-		 	   WHERE pbi.pv_id = pvid;
+               WHERE pbi.pv_id = pvid;
          --- Remove from Build Order
          DELETE FROM build_order bo
                WHERE bo.pv_id = pvid;
+         --- Remove from Licencing
+         PK_LICENCING.REMOVE_ALL_LICENCING( pvid, 0 );
          --- Remove from Note Manager
          DELETE FROM note_manager nm
                WHERE nm.nid = pvid;
          --- Remove from Action log
          DELETE FROM action_log al
                WHERE al.pv_id = pvid;
-		 --- Remove from Do Not Ripple
+         --- Remove from Do Not Ripple
-		 DELETE FROM DO_NOT_RIPPLE dnr
+         DELETE FROM DO_NOT_RIPPLE dnr
-		 	   WHERE dnr.PV_ID = pvid;
+               WHERE dnr.PV_ID = pvid;
+         --- Remove from Advisory Ripple
+         DELETE FROM ADVISORY_RIPPLE ar
+               WHERE ar.PV_ID = pvid;
-		 --- Remove from Jira Issues
+         --- Remove from Jira Issues
-		 DELETE FROM JIRA_ISSUES jira
+         DELETE FROM JIRA_ISSUES jira
-		 	   WHERE jira.PV_ID = pvid;
+               WHERE jira.PV_ID = pvid;
+         --- Remove from Package Metrics
+         DELETE FROM package_metrics pm
+              WHERE pm.pv_id = pvid;
+         -- Delete from Pegged Versions
+         DELETE FROM pegged_versions pegv
+              WHERE pegv.pv_id = pvid;
          --- Finally Remove From Package Versions
          --- Get Package name
          SELECT pv.pkg_id
            INTO pkgid
            FROM package_versions pv
       lastinstallorder     NUMBER;
       ispatchdlocked       package_versions.dlocked%TYPE;
       ssv_mm               package_versions.v_mm%TYPE;
       ssv_nmm              package_versions.v_nmm%TYPE;
       ssv_ext              package_versions.v_ext%TYPE;
-      opatchdepcollector   relmgr_number_tab_t      := relmgr_number_tab_t
+      opatchdepcollector   relmgr_number_tab_t  := relmgr_number_tab_t ();
-                                                                          ();
       CURSOR parent_cur
       IS
          SELECT pv.*, pkg.pkg_name
            FROM package_versions pv, PACKAGES pkg
           WHERE pv.pv_id = nparentpvid AND pv.pkg_id = pkg.pkg_id;
-      parent_rec           parent_cur%ROWTYPE;
+      parent_rec parent_cur%ROWTYPE;
       CURSOR patch_cur
       IS
          SELECT pv.*, pg.pkg_name
            FROM package_versions pv, PACKAGES pg
           WHERE pv.pkg_id = parpkg_id
             AND pv.pkg_version = snewpatchversion
             AND pv.pkg_id = pg.pkg_id;
-      patch_rec            patch_cur%ROWTYPE;
+      patch_rec  patch_cur%ROWTYPE;
       CURSOR releases_cur
       IS
          SELECT rc.pv_id
            FROM release_content rc
           WHERE rc.pv_id = patch_rec.pv_id;
-      releases_rec         releases_cur%ROWTYPE;
+      releases_rec releases_cur%ROWTYPE;
    BEGIN
       -- Get Last Install Order
       SELECT COUNT (*)
         INTO lastinstallorder
         FROM package_patches pp
                          dlocked, created_stamp, creator_id,
                          modified_stamp, modifier_id, v_mm, v_nmm, v_ext,
                          src_path,
                          pv_description,
                          owner_id, is_patch, last_pv_id, build_type, is_build_env_required, bs_id,
-						 is_autobuildable
+                         is_autobuildable, ripple_field
+                        )
                  VALUES (patchpv_id, parpkg_id, snewpatchversion,
                          ispatchdlocked, ora_sysdate, nuserid,
                          ora_sysdatetime, nuserid, ssv_mm, ssv_nmm, ssv_ext,
                          parent_rec.src_path,
                             'This is a patch to '
                          || parent_rec.pkg_name
                          || ' '
                          || parent_rec.pkg_version,
-                         nuserid, 'Y', patchpv_id, 'M', 'N', 3, 'N'
+                         nuserid, 'Y', patchpv_id, 'M', 'N', 3, 'N', parent_rec.ripple_field
                         );
             INSERT INTO package_patches
                         (pv_id, patch_id, install_order)
-               (SELECT nparentpvid AS pv_id, pv.pv_id AS patch_id,
+                (SELECT nparentpvid AS pv_id, pv.pv_id AS patch_id,
-                       lastinstallorder + 1 AS install_order
+                        lastinstallorder + 1 AS install_order
-                  FROM package_versions pv
+                   FROM package_versions pv
-                 WHERE pv.pv_id = patchpv_id AND pv.is_patch = 'Y');
+                  WHERE pv.pv_id = patchpv_id AND pv.is_patch = 'Y');
             /* LOG ACTION */
             log_action (patchpv_id,
                         'new_version',
                         nuserid,
                   SET is_patch = 'Y'
                 WHERE pv_id = patchpv_id;
                INSERT INTO package_patches
                            (pv_id, patch_id, install_order)
-                  (SELECT nparentpvid AS pv_id, pv.pv_id AS patch_id,
+                   (SELECT nparentpvid AS pv_id, pv.pv_id AS patch_id,
-                          lastinstallorder + 1 AS install_order
+                           lastinstallorder + 1 AS install_order
-                     FROM package_versions pv
+                      FROM package_versions pv
-                    WHERE pv.pv_id = patchpv_id AND pv.is_patch = 'Y');
+                     WHERE pv.pv_id = patchpv_id AND pv.is_patch = 'Y');
             END IF;
             CLOSE releases_cur;
             /* LOG ACTION */
                WHERE dep.pv_id = patchpv_id;
          -- Insert new dependencies
          INSERT INTO package_dependencies
                      (pv_id, dpv_id, pkg_id, dpkg_id, build_type)
-            SELECT patchpv_id AS pv_id, pv.pv_id AS dpv_id,
+              SELECT patchpv_id AS pv_id, pv.pv_id AS dpv_id,
-                   parpkg_id AS pkg_id, pv.pkg_id AS dpkg_id,
+                     parpkg_id AS pkg_id, pv.pkg_id AS dpkg_id,
-                   'L' AS build_type
+                     'L' AS build_type
-              FROM package_versions pv
+                FROM package_versions pv
-             WHERE pv.pv_id IN (
+               WHERE pv.pv_id IN (
                       SELECT *
                         FROM TABLE
                                 (CAST
                                     (opatchdepcollector AS relmgr_number_tab_t)
                                 ));
                      SELECT DISTINCT dep.PV_ID
                        FROM PACKAGE_DEPENDENCIES dep
                       WHERE dep.DPV_ID = PatchId
                      );
-         */
+      */
       /* LOG ACTION */
       IF isobsolete IS NOT NULL
       THEN
          log_action (patchid,
                           (SELECT CAST
                                      (in_list_number (spatchidlist) AS relmgr_number_tab_t
+                                     )
                              FROM DUAL
                           ));
-   /*
+      /*
-   -- Update patch children
+      -- Update patch children
-   UPDATE PACKAGE_VERSIONS pv SET
+      UPDATE PACKAGE_VERSIONS pv SET
-   pv.IS_OBSOLETE = IsObsolete,
+      pv.IS_OBSOLETE = IsObsolete,
-   pv.OBSOLETE_COMMENTS = ObsoleteComments
+      pv.OBSOLETE_COMMENTS = ObsoleteComments
-   WHERE pv.PV_ID IN (
+      WHERE pv.PV_ID IN (
-                  SELECT DISTINCT dep.DPV_ID
+                     SELECT DISTINCT dep.DPV_ID
-                    FROM PACKAGE_DEPENDENCIES dep
+                       FROM PACKAGE_DEPENDENCIES dep
-                   WHERE dep.PV_ID = PatchId
+                      WHERE dep.PV_ID = PatchId
-                  );
+                     );
-   -- Update patch parent
+      -- Update patch parent
-   UPDATE PACKAGE_VERSIONS pv SET
+      UPDATE PACKAGE_VERSIONS pv SET
-   pv.IS_OBSOLETE = IsObsolete,
+      pv.IS_OBSOLETE = IsObsolete,
-   pv.OBSOLETE_COMMENTS = ObsoleteComments
+      pv.OBSOLETE_COMMENTS = ObsoleteComments
-   WHERE pv.PV_ID IN (
+      WHERE pv.PV_ID IN (
-                  SELECT DISTINCT dep.PV_ID
+                     SELECT DISTINCT dep.PV_ID
-                    FROM PACKAGE_DEPENDENCIES dep
+                       FROM PACKAGE_DEPENDENCIES dep
-                   WHERE dep.DPV_ID = PatchId
+                      WHERE dep.DPV_ID = PatchId
-                  );
+                     );
       */
-   /* LOG ACTION
+      /* LOG ACTION
-   IF IsObsolete IS NOT NULL THEN
+      IF IsObsolete IS NOT NULL THEN
          Log_Action ( PatchId, 'patch_obsolete', UserId,
-                  'Obsolete patch. '|| ObsoleteComments );
+                     'Obsolete patch. '|| ObsoleteComments );
-   ELSE
+      ELSE
-      Log_Action ( PatchId, 'patch_obsolete', UserId,
+         Log_Action ( PatchId, 'patch_obsolete', UserId,
-                  'Undo patch obsolete.' );
+                     'Undo patch obsolete.' );
-   END IF;  */
+      END IF;  */
    END;
 /*-------------------------------------------------------------------------------------------------------*/
    PROCEDURE add_process (
       nprocid         IN   processes.proc_id%TYPE,
       npvid           IN   package_processes.pv_id%TYPE,
       nuserid         IN   NUMBER
+   )
    IS
       pkgname   VARCHAR2 (100);
-/*Rupesh Release on 17/05/2006*/
    BEGIN
       INSERT INTO processes
                   (proc_id, proc_name, proc_description, run_as, pkg_owner,
                    is_interface
+                  )
       nuserid       IN   NUMBER
+   )
    IS
       processname   VARCHAR2 (4000);
-/*Rupesh Release on 17/05/2006*/
       CURSOR proc_cur
       IS
          SELECT prc.proc_id
            FROM processes prc
           WHERE prc.proc_id IN (
                                         (in_list_number (nprocidlist) AS relmgr_number_tab_t
+                                        )
                                 FROM DUAL
                              ));
-      proc_rec      proc_cur%ROWTYPE;
+      proc_rec  proc_cur%ROWTYPE;
    BEGIN
       OPEN proc_cur;
       FETCH proc_cur
        INTO proc_rec;
       WHILE proc_cur%FOUND
       LOOP
-         INSERT INTO package_processes
+         INSERT INTO package_processes (proc_id, pv_id)
-                     (proc_id, pv_id
-                     )
-              VALUES (proc_rec.proc_id, npvid
+              VALUES (proc_rec.proc_id, npvid);
-                     );
          SELECT prc.proc_name
            INTO processname
            FROM processes prc
           WHERE prc.proc_id = proc_rec.proc_id;
                     );
          FETCH proc_cur
           INTO proc_rec;
       END LOOP;
+      CLOSE proc_cur;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
    PROCEDURE remove_process (
       nprocid   IN   package_processes.proc_id%TYPE,
       npvid     IN   package_processes.pv_id%TYPE,
       nuserid   IN   NUMBER
+   )
    IS
       processname   VARCHAR2 (4000);
-/* Rupesh Release on 17/05/2006*/
    BEGIN
       SELECT prc.proc_name
         INTO processname
         FROM processes prc
        WHERE prc.proc_id = nprocid;
                   nuserid,
                   'Removed process with health tag ' || processname
                  );
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-  /*
+   /*
-  Author: Rupesh Solanki
+   ** Author: Rupesh Solanki
-  Purpose: To move package versions from one release to another
+   ** Purpose: To move package versions from one release to another
-  Release: 4th September 2006
+   ** Release: 4th September 2006
-  */
+   */
-  PROCEDURE move_package (
+   PROCEDURE move_package (
-   	  npvid  			  IN package_versions.pv_id%TYPE,
+      npvid        IN package_versions.pv_id%TYPE,
-	  nrtagid 			  IN release_tags.rtag_id%TYPE,
+      nrtagid      IN release_tags.rtag_id%TYPE,
-	  nnewrtagid 		  IN release_tags.rtag_id%TYPE,
+      nnewrtagid   IN release_tags.rtag_id%TYPE,
-	  nuserid			  IN NUMBER
+      nuserid      IN NUMBER
-  )
+   )
-  IS
+   IS
-  oldrtag_name VARCHAR2(4000);
+      oldrtag_name VARCHAR2(4000);newrtag_name VARCHAR2(4000);
+   BEGIN
+      SELECT rtag_name into oldrtag_name
+      FROM RELEASE_TAGS
+      WHERE rtag_id = nrtagid;
-  newrtag_name VARCHAR2(4000);
+      SELECT rtag_name into newrtag_name
+      FROM RELEASE_TAGS
+      WHERE rtag_id = nnewrtagid;
+      /* Table Work In Progress*/
+      UPDATE WORK_IN_PROGRESS
+      SET RTAG_ID = nnewrtagid
+      WHERE RTAG_ID = nrtagid
+      AND PV_ID = npvid;
+      /* Table PLANNED*/
+      UPDATE PLANNED
+      SET RTAG_ID = nnewrtagid
+      WHERE RTAG_ID = nrtagid
+      AND PV_ID = npvid;
+      /* Table PEGGED_VERSIONS */
+      DELETE FROM PEGGED_VERSIONS pegv
+      WHERE pegv.RTAG_ID = nrtagid
+      AND pegv.PV_ID = npvid;
+      /* Table ADVISORY_RIPPLE*/
+      DELETE FROM ADVISORY_RIPPLE
+      WHERE RTAG_ID = nrtagid
+      AND PV_ID = npvid;
-  BEGIN
-  SELECT rtag_name into oldrtag_name
-  FROM RELEASE_TAGS
-  WHERE rtag_id = nrtagid;
-  SELECT rtag_name into newrtag_name
-  FROM RELEASE_TAGS
-  WHERE rtag_id = nnewrtagid;
-  /* Table Work In Progress*/
-  	   UPDATE WORK_IN_PROGRESS
-	   SET RTAG_ID = nnewrtagid
-	   WHERE RTAG_ID = nrtagid
-	   AND PV_ID = npvid;
-  /* Table PLANNED*/
-  	   UPDATE PLANNED
-	   SET RTAG_ID = nnewrtagid
-	   WHERE RTAG_ID = nrtagid
-	   AND PV_ID = npvid;
       -- Log Action --
       log_action (npvid,
                   'move_package_version',
                   nuserid,
                   'Moved package version from ' || oldrtag_name || ' to ' || newrtag_name
                  );
+   END;
-  END;
 /*-------------------------------------------------------------------------------------------------------*/
+   /*
+   ** Author: Rupesh Solanki
+   ** Purpose: To modify the product state from integration to test to deployment
+   ** Release: 25th January 2006
+   */
-PROCEDURE modify_product_state (
+   PROCEDURE modify_product_state (
-   	  npvid IN package_versions.pv_id%TYPE,
+      npvid    IN package_versions.pv_id%TYPE,
+      nrtagid  IN release_tags.rtag_id%TYPE,
-	  nstateid IN product_states.state_id%TYPE,
+      nstateid IN product_states.state_id%TYPE,
-	  nuserid IN NUMBER
+      nuserid  IN NUMBER
    ) IS
-   sStateName VARCHAR(4000);
+      sStateName VARCHAR2(4000);
-  /*
-  Author: Rupesh Solanki
-  Purpose: To modify the product state from integration to test to deployment
-  Release: 25th January 2006
+      sRtagName VARCHAR2(4000);
-  */
-  BEGIN
+   BEGIN
-  UPDATE PACKAGE_VERSIONS
+      UPDATE RELEASE_CONTENT
-  SET PRODUCT_STATE = nstateid
+      SET PRODUCT_STATE = nstateid
-  WHERE PV_ID = npvid;
+      WHERE PV_ID = npvid
+      AND RTAG_ID = nrtagid;
-  SELECT STATE INTO sStateName
+      SELECT STATE INTO sStateName
-  FROM PRODUCT_STATES
+      FROM PRODUCT_STATES
-  WHERE STATE_ID = nstateid;
+      WHERE STATE_ID = nstateid;
+      SELECT RTAG_NAME into sRtagName
+      FROM RELEASE_TAGS
+      WHERE RTAG_ID = nrtagid;
-  -- Log Action --
+      -- Log Action --
-  log_action (npvid,
+      log_action (npvid,
-              'modify_product_state',
+                  'modify_product_state',
-               nuserid,
+                     nuserid,
-               sStateName
+                     sStateName || ' in '|| sRtagName
-              );
+                  );
+   END;
+/*-------------------------------------------------------------------------------------------------------*/
+   /*
+   ** Author: Jeremy Tweddle
+   ** Date: 24/Aug/2007
+   */
+   PROCEDURE add_code_review_url (
+      npvid           IN    NUMBER,
+      nprojid         IN    NUMBER,
+      surl            IN    VARCHAR2,
+      sreason         IN    VARCHAR2,
+      ddateofreview   IN    DATE
+   ) IS
+      ncrid NUMBER;
+   BEGIN
+      SELECT seq_cr_id.NEXTVAL INTO ncrid FROM DUAL;
+      INSERT INTO code_review_url ( cr_id, pv_id, proj_id, url, reason, date_of_review,
+                                    last_modified )
+      VALUES ( ncrid, npvid, nprojid, surl, sreason, ddateofreview, ora_sysdate );
+   END;
+/*-------------------------------------------------------------------------------------------------------*/
+   /*
+   ** Author: Jeremy Tweddle
+   ** Date: 22/Aug/2007
+   */
+   PROCEDURE update_code_review_url (
+      ncrid           IN    NUMBER,
+      nprojid         IN    NUMBER,
+      surl            IN    VARCHAR2,
+      sreason         IN    VARCHAR2
+   ) IS
+   BEGIN
+      UPDATE code_review_url
+      SET url = surl,
+          proj_id = nprojid,
+          reason = sreason,
+          last_modified = ora_sysdate
+      WHERE cr_id = ncrid;
+   END;
+/*-------------------------------------------------------------------------------------------------------*/
+   /*
+   ** Author: Jeremy Tweddle
+   ** Date: 22/Aug/2007
+   */
+   PROCEDURE remove_code_review_url (
-  END;
+      ncrid  IN    NUMBER
+   ) IS
+   BEGIN
+      DELETE FROM code_review_url
+      WHERE cr_id = ncrid;
+   END;
 /*-------------------------------------------------------------------------------------------------------*/
-END pk_package_Test;
+END pk_package;
+/
 --------------------------------------------------------
---  DDL for Package Body PK_ENVIRONMENT_TEST
+--  DDL for Package Body PK_PLANNED
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "PK_ENVIRONMENT_TEST"
+  CREATE OR REPLACE PACKAGE BODY "PK_PLANNED" IS
-IS
 /*
 ------------------------------
-||  Last Modified:  Rupesh Solanki
+||  Last Modified:  G.Huddy
-||  Modified Date:  29/Jan/2007
+||  Modified Date:  05/Aug/2008
-||  Body Version:   1.1
+||  Body Version:   1.2
 ------------------------------
 */
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE ADD_PACKAGE ( newPvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
+    oldPvId NUMBER;
+    ReleaseLocation VARCHAR2(4000);
+    IsPatch CHAR(1) := NULL;
+    sLocation VARCHAR2(4000) := NULL;
+    nRtagIdLocation NUMBER;
+BEGIN
+    /*--------------- Business Rules Here -------------------*/
+    /*-------------------------------------------------------*/
+    BEGIN
+        -- Check if Exists in "Work in progress" anywhere in the world, except "Closed mode" releases
+        SELECT proj.PROJ_NAME ||' > '|| rt.RTAG_NAME, rt.RTAG_ID  INTO sLocation, nRtagIdLocation
+          FROM PLANNED pl,
+               RELEASE_TAGS rt,
+               PROJECTS proj
+         WHERE pl.PV_ID = newPvId
+           AND pl.RTAG_ID = rt.RTAG_ID
+           AND rt.OFFICIAL != 'Y'
+           AND rt.PROJ_ID = proj.PROJ_ID;
+        EXCEPTION
+            WHEN NO_DATA_FOUND THEN
+                sLocation := NULL;
+    END;
+    IF (sLocation IS NULL) OR (nRtagIdLocation = RtagId) THEN
+        -- Add to "Pending" area
+        INSERT INTO PLANNED ( RTAG_ID, PV_ID, VIEW_ID, OPERATION )
+        VALUES( RtagId, newPvId, ViewId, 'R' );
+        /* LOG ACTION */
+        SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+          FROM PROJECTS proj,
+               RELEASE_TAGS rt
+         WHERE rt.PROJ_ID = proj.PROJ_ID
+           AND rt.RTAG_ID = RtagId;
+        Log_Action ( newPvId, 'add_to_planned', UserId, 'Location: '|| ReleaseLocation );
+    ELSE
+        RAISE_APPLICATION_ERROR (-20000, 'This version is already in Pending Area at '|| sLocation ||'.' );
+    END IF;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE REMOVE_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
+    ReleaseLocation VARCHAR2(4000);
+BEGIN
+    /*--------------- Business Rules Here -------------------*/
+    /*-------------------------------------------------------*/
+    -- Get release location for logging pusposes
+    SELECT proj.PROJ_NAME  ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+      FROM PROJECTS proj,
+           RELEASE_TAGS rt
+     WHERE rt.PROJ_ID = proj.PROJ_ID
+       AND rt.RTAG_ID = RtagId;
+    -- Delete from Work In Progress
+    DELETE
+      FROM PLANNED pl
+     WHERE pl.RTAG_ID = RtagId
+       AND pl.PV_ID = PvId;
+    Log_Action ( PvId, 'deleted_from_pending', UserId, 'Location: '|| ReleaseLocation );
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+FUNCTION GET_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER IS
+    ReturnValue NUMBER;
+BEGIN
+    SELECT pl.VIEW_ID INTO ReturnValue
+      FROM PLANNED pl
+     WHERE pl.RTAG_ID = RtagId
+       AND pl.PV_ID = PvId;
+    RETURN ReturnValue;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE GET_VIEW_CONTENT ( RtagId IN NUMBER, ViewId IN NUMBER, RecordSet OUT typeCur ) IS
+    IsBaseView CHAR(1);
+BEGIN
+    -- Check if the view is BASE VIEW
+    SELECT vi.BASE_VIEW INTO IsBaseView
+      FROM VIEWS vi
+     WHERE vi.VIEW_ID = ViewId;
+    IF (IsBaseView = 'Y') THEN
+        -- Get Base view content
+        OPEN RecordSet FOR
+        SELECT 0 AS PKG_STATE,
+               NULL AS DEPRECATED_STATE,
+               pv.pv_id,
+               pkg.pkg_name,
+               pv.pkg_version,
+               pv.dlocked,
+               pv.pv_description,
+               pv.BUILD_TYPE,
+               rel.operation
+          FROM PLANNED rel,
+               packages pkg,
+               package_versions pv
+         WHERE pv.pkg_id = pkg.pkg_id
+           AND rel.pv_id = pv.pv_id
+           AND rel.VIEW_ID = ViewId
+           AND rel.RTAG_ID = RtagId
+         ORDER BY UPPER(pkg.PKG_NAME);
+    ELSE
+        -- Get non base view content
+        OPEN RecordSet FOR
+        SELECT 0 AS PKG_STATE,
+               NULL AS DEPRECATED_STATE,
+               pv.pv_id,
+               pkg.pkg_name,
+               pv.pkg_version,
+               pv.dlocked,
+               pv.pv_description,
+               pv.BUILD_TYPE,
+               rel.operation
+          FROM PLANNED rel,
+               packages pkg,
+               package_versions pv,
+               VIEW_DEF vd
+         WHERE pv.pkg_id = pkg.pkg_id
+           AND rel.pv_id = pv.pv_id
+           AND rel.RTAG_ID = RtagId
+           AND vd.VIEW_ID = ViewId
+           AND vd.PKG_ID = pv.PKG_ID
+         ORDER BY UPPER(pkg.PKG_NAME);
+    END IF;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE CHANGE_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER, NewViewId IN NUMBER ) IS
+BEGIN
+    UPDATE PLANNED pl SET
+    pl.VIEW_ID = NewViewId
+    WHERE pl.PV_ID = PvId
+      AND pl.RTAG_ID = RtagId;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+-- DEVI-45275 This new function supports the ability to insert into the planned table, and existing
+-- version of a package as part of a release-to-release merge operation carried out within release manager.
+-- DEVI-49594 This function has subsequently been changed to allow a merge operation to cancel its
+-- opposite operation, if the opposite already exists in the planned table. This supports user activity
+-- via the Release Manager merge manager display
+PROCEDURE MERGE_PACKAGE ( newPvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER, mergeOperation IN CHAR ) IS
+    ReleaseLocation VARCHAR2(4000);
+        entryExists NUMBER;
+        existingOperation CHAR;
+BEGIN
+    /*--------------- Business Rules Here -------------------*/
+    /*-------------------------------------------------------*/
+      -- Determine if the specified PV_ID already exists in the planned table....
+      SELECT COUNT (pl.pv_id) INTO entryExists
+      FROM PLANNED pl
+      WHERE pl.pv_id = newPvId
+      AND pl.rtag_id = RtagId
+      AND pl.view_id = ViewId;
+      -- If the specified PV_ID already exists in the planned table....
+      IF entryExists = 1 THEN
+         -- Get the operation for the existing entry
+         SELECT pl.operation INTO existingOperation
+         FROM PLANNED pl
+         WHERE pl.pv_id = newPvId
+         AND pl.rtag_id = RtagId
+         AND pl.view_id = ViewId;
+         -- Is the specified merge operation the opposite of the existing entry?
+         -- If it is not, then there is nothing to do, otherwise...
+         -- NOTE: A = Add, S = Subtract
+         IF (mergeOperation = 'S' AND existingOperation = 'A')
+            OR (mergeOperation = 'A' AND existingOperation = 'S') THEN
+           -- It is the opposite, so effectively it cancels the existing entry
+           -- Remove the entry from the planned table
+           DELETE
+            FROM PLANNED pl
+           WHERE pl.pv_id = newPvId
+             AND pl.rtag_id = RtagId
+             AND pl.view_id = ViewId;
+           -- Log action
+           SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+             FROM PROJECTS proj,
+                  RELEASE_TAGS rt
+            WHERE rt.PROJ_ID = proj.PROJ_ID
+              AND rt.RTAG_ID = RtagId;
+           Log_Action ( newPvId, 'deleted_from_pending', UserId, 'Location: '|| ReleaseLocation );
+         END IF;
+      ELSE
+         -- Add to Planned tabled
+         INSERT INTO PLANNED ( RTAG_ID, PV_ID, VIEW_ID, OPERATION )
+         VALUES( RtagId, newPvId, ViewId, mergeOperation );
+         -- Log Action
+         SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+          FROM PROJECTS proj,
+               RELEASE_TAGS rt
+         WHERE rt.PROJ_ID = proj.PROJ_ID
+         AND   rt.RTAG_ID = RtagId;
+         Log_Action ( newPvId, 'add_to_planned', UserId, 'Location: '|| ReleaseLocation );
+      END IF;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+END PK_PLANNED;
+/
+--------------------------------------------------------
+--  DDL for Package Body PK_PROJECT
+--------------------------------------------------------
+  CREATE OR REPLACE PACKAGE BODY "PK_PROJECT" IS
+    /*------------------------------------------------------------------------*/
+    PROCEDURE update_base_url (
+    nprojid   IN  projects.proj_id%TYPE,
+    sbaseurl  IN  VARCHAR2
+    ) IS
+    BEGIN
+    UPDATE projects
+    SET base_url = sbaseurl
+    WHERE proj_id = nprojid;
+    END update_base_url;
+/*------------------------------------------------------------------------*/
+    PROCEDURE update_project_config (
+    nprojid   IN  projects.proj_id%TYPE,
+    sbaseurl  IN  VARCHAR2,
+    sjirakey  IN  VARCHAR2
+    ) IS
+    BEGIN
+    UPDATE projects
+    SET base_url = sbaseurl,
+        jira_key = sjirakey
+    WHERE proj_id = nprojid;
+    END update_project_config;
+    /*------------------------------------------------------------------------*/
+    END pk_project;
+/
+--------------------------------------------------------
+--  DDL for Package Body PK_RELEASE
+--------------------------------------------------------
+  CREATE OR REPLACE PACKAGE BODY "PK_RELEASE" IS
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE New_Release ( sReleaseName IN VARCHAR2, sReleaseComments IN VARCHAR2, nProjId IN NUMBER, nSourceRtagId IN NUMBER, sIsBranched IN CHAR, nUserId IN NUMBER ) IS
+RtagId NUMBER;
+ParentRtagId NUMBER;
+RecCount NUMBER := 0;
+VtreeId NUMBER;
+BEGIN
+   /*--------------- Business Rules Here -------------------*/
+   -- Check for missing parameters
+   IF (sReleaseName IS NULL) OR (nUserId IS NULL)
+   THEN
+      RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! sReleaseName= '|| sReleaseName ||', nUserId='|| nUserId );
+   END IF;
+   -- Check for duplicate Release Names
+   SELECT COUNT(rt.RTAG_ID) INTO RecCount
+     FROM RELEASE_TAGS rt
+    WHERE UPPER( rt.RTAG_NAME ) = UPPER( sReleaseName )
+      AND rt.PROJ_ID = nProjId;
+   IF (RecCount > 0) THEN
+      RAISE_APPLICATION_ERROR (-20000, 'Release Name '|| sReleaseName ||' is Already Used in this Project.');
+   END IF;
+   /*-------------------------------------------------------*/
+   -- Get rtag_id
+   SELECT SEQ_RTAG_ID.NEXTVAL INTO RtagId FROM DUAL;
+   SELECT SEQ_VTREE_ID.NEXTVAL INTO VtreeId FROM DUAL;
+   -- Get Parent RtagId
+   ParentRtagId := GET_PARENT_RTAG ( RtagId, nSourceRtagId, sIsBranched );
+   -- If the parent RTAG is NOT in this project then we cannot use it.
+   -- We must re-assign the parent to be the new release's RTAG_ID instead
+   -- else it will not show up in the projects release tree (DEVI-55480)
+   SELECT COUNT(rt.RTAG_ID) INTO RecCount
+     FROM RELEASE_TAGS rt
+    WHERE rt.RTAG_ID = ParentRtagId
+      AND rt.PROJ_ID = nProjId;
+   IF (RecCount = 0) THEN
+     ParentRtagId := RtagId;
+   END IF;
+   -- Create new release
+   INSERT INTO RELEASE_TAGS ( RTAG_ID, RTAG_NAME, DESCRIPTION, CREATED_STAMP, CREATOR_ID,
+                        OFFICIAL, REBUILD_ENV, REBUILD_STAMP,
+                        PARENT_RTAG_ID, PROJ_ID, VTREE_ID )
+   VALUES ( RtagId,
+          sReleaseName,
+          sReleaseComments,
+          ORA_SYSDATE,
+          nUserId,
+          'N',
+          'N',
+,
+          ParentRtagId,
+          nProjId,
+          VtreeId );
+   -- If a source release is provided, clone its config spec branch information into the new release (DEVI-56650)
+   IF (NOT nSourceRtagId IS NULL)
+   THEN
+      UPDATE RELEASE_TAGS rtd
+      SET rtd.config_spec_branch = (SELECT rts.CONFIG_SPEC_BRANCH FROM RELEASE_TAGS rts WHERE rts.RTAG_ID = nSourceRtagId)
+      WHERE rtd.RTAG_ID = RtagId;
+   END IF;
+   -- Update display Order
+   UPDATE_DISPLAY_ORDER ( nProjId );
+   /* Log Project Action */
+   Log_Project_Action ( nProjId, 'new_release', nUserId, sReleaseName, RtagId );
+   -- Import Release Contents
+   IF (NOT nSourceRtagId IS NULL) THEN
+      Import_Release_Contents ( nSourceRtagId, RtagId, nUserId );
+   END IF;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE UPDATE_DISPLAY_ORDER ( nProjId IN NUMBER ) IS
+BEGIN
+   /*--------------- Business Rules Here -------------------*/
+   /*-------------------------------------------------------*/
+   UPDATE RELEASE_TAGS urt SET
+   urt.DISPLAY_ORDER = (
+                  SELECT qry.REC_NUM
+                    FROM (
+                        SELECT rel.*, ROWNUM AS REC_NUM
+                          FROM (
+                                SELECT rt.RTAG_ID,
+                                    rt.DISPLAY_ORDER,
+                                     DECODE( rt.PARENT_RTAG_ID,
+                                             rt.RTAG_ID, 0, rt.PARENT_RTAG_ID ) AS PARENT_RTAG_ID
+                                FROM RELEASE_TAGS rt
+                               WHERE rt.PROJ_ID = nProjId
+                                ) rel
+                        START WITH rel.PARENT_RTAG_ID = 0
+                        CONNECT BY PRIOR rel.RTAG_ID = rel.PARENT_RTAG_ID
+                        ORDER SIBLINGS BY rel.DISPLAY_ORDER
+                        ) qry
+                     WHERE qry.RTAG_ID = urt.RTAG_ID
+                  )
+   WHERE urt.PROJ_ID = nProjId;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE MOVE_RELEASE ( sRtagIdList IN VARCHAR2, nProjId IN NUMBER, nUserId IN NUMBER  ) IS
+   nIdCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
+   SeqNum NUMBER;
+BEGIN
+   /*--------------- Business Rules Here -------------------*/
+   /*-------------------------------------------------------*/
+   nIdCollector := IN_LIST_NUMBER ( sRtagIdList );
+   -- Set start sequence number
+   SeqNum := 1;
+   FOR i IN 1..nIdCollector.COUNT
+   LOOP
+      -- Update new display order
+      UPDATE RELEASE_TAGS rt SET
+         rt.DISPLAY_ORDER = SeqNum
+       WHERE rt.PROJ_ID = nProjId
+         AND rt.RTAG_ID = nIdCollector(i);
+      SeqNum := SeqNum + 1;
+   END LOOP;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE Update_Release ( nRtagId IN NUMBER, sReleaseName IN VARCHAR2, sReleaseComments IN VARCHAR2, nParentRtagId IN NUMBER, nMASSRtagId IN NUMBER, nConfigSpecBranch IN VARCHAR2, sOwnerEmail IN VARCHAR2, nUserId IN NUMBER, cState IN VARCHAR ) IS
+RecCount NUMBER := 0;
+ProjId NUMBER;
+BEGIN
+   /*--------------- Business Rules Here -------------------*/
+   -- Check for missing parameters
+   IF (sReleaseName IS NULL) OR (nUserId IS NULL) OR (nRtagId IS NULL)
+   THEN
+      RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! sReleaseName= '|| sReleaseName ||', nUserId='|| nUserId ||', nRtagId='|| nRtagId);
+   END IF;
+   -- Check for duplicate Release Names
+   SELECT rt.PROJ_ID INTO ProjId
+     FROM RELEASE_TAGS rt
+    WHERE rt.RTAG_ID = nRtagId;
+   SELECT COUNT(rt.RTAG_ID) INTO RecCount
+     FROM RELEASE_TAGS rt
+    WHERE UPPER( rt.RTAG_NAME ) = UPPER( sReleaseName )
+      AND rt.RTAG_ID != nRtagId
+      AND rt.PROJ_ID = ProjId;
+   IF (RecCount > 0) THEN
+      RAISE_APPLICATION_ERROR (-20000, 'Release Name '|| sReleaseName ||' is Already Used in this Project.');
+   END IF;
+   /*-------------------------------------------------------*/
+   -- Update release details
+   UPDATE RELEASE_TAGS rt SET
+   rt.RTAG_NAME = sReleaseName,
+   rt.DESCRIPTION = sReleaseComments,
+   rt.PARENT_RTAG_ID = nParentRtagId,
+   rt.ASSOC_MASS_REF = nMASSRtagId,
+   rt.CONFIG_SPEC_BRANCH = nConfigSpecBranch,
+   rt.OWNER_EMAIL = sOwnerEmail,
+   rt.PRODUCT_STATE_USED = cState
+   WHERE rt.RTAG_ID = nRtagId;
+   -- Update display Order
+   UPDATE_DISPLAY_ORDER ( ProjId );
+   /* Log Project Action */
+   Log_Project_Action ( ProjId, 'update_release', nUserId, 'Release Name: <br>Release Comments:', nRtagId );
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE Destroy_Release ( nRtagId IN NUMBER, nUserId IN NUMBER ) IS
+   RecCount NUMBER := 0;
+   sReleaseId VARCHAR2(4000);
+   ProjId NUMBER;
+BEGIN
+   /*--------------- Business Rules Here -------------------*/
+   IF (nRtagId IS NULL)
+   THEN
+      RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! nRtagId= '|| nRtagId  );
+   END IF;
+   -- Check for any kids
+   SELECT COUNT( rt.RTAG_ID ) INTO RecCount
+     FROM RELEASE_TAGS rt
+    WHERE rt.PARENT_RTAG_ID = nRtagId
+      AND rt.RTAG_ID != rt.PARENT_RTAG_ID;
+   IF (RecCount > 0) THEN
+      RAISE_APPLICATION_ERROR (-20000, 'Cannot destroy this release. You need to destroy its children releases first.'  );
+   END IF;
+   /*-------------------------------------------------------*/
+   -- Clear the release contents
+   Clean_Release_Contents ( nRtagId, nUserId );
+   /* Log Project Action */
+   SELECT rt.PROJ_ID, rt.RTAG_NAME ||'['|| rt.RTAG_VERSION ||'.'|| rt.RTAG_LIFE_CYCLE ||']' INTO ProjId, sReleaseId
+     FROM RELEASE_TAGS rt
+    WHERE rt.RTAG_ID = nRtagId;
+   Log_Project_Action ( ProjId, 'destroy_release', nUserId, sReleaseId, nRtagId );
+   -- Remove Release
+   DELETE
+     FROM RELEASE_TAGS rt
+    WHERE rt.RTAG_ID = nRtagId;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE Import_Release_Contents ( nSourceRtagId IN NUMBER, nTargetRtagId IN NUMBER, nUserId IN NUMBER  ) IS
+   sSourceLocation VARCHAR2(4000);
+   sTargetLocation VARCHAR2(4000);
+   ProjId NUMBER;
+   cReleaseMode CHAR(1);
+   RconId NUMBER;
+   -- this cursor gets the source release daemon configurations, ensuring that the
+   -- first record will be the master daemon, and subsequent records will be the slaves.
+   CURSOR curSrcReleaseConfigs IS
+    SELECT daemon_hostname, gbe_id, gbe_buildfilter
+     FROM RELEASE_CONFIG rc
+    WHERE rc.RTAG_ID = nSourceRtagId
+    ORDER BY rc.daemon_mode;
+    recSrcReleaseConfigs curSrcReleaseConfigs%ROWTYPE;
+    -- this cursor looks for target release daemons
+   CURSOR curTgtReleaseConfigs IS
+    SELECT rcon_id
+     FROM RELEASE_CONFIG rc
+    WHERE rc.RTAG_ID = nTargetRtagId;
+    recTgtReleaseConfigs curTgtReleaseConfigs%ROWTYPE;
+    -- this cursor looks for target release daemon run level entries
+   CURSOR curTgtReleaseConfigRunLevel IS
+    SELECT current_run_level
+     FROM RUN_LEVEL rl
+    WHERE rl.RCON_ID = recTgtReleaseConfigs.rcon_id;
+    recTgtReleaseConfigRunLevel curTgtReleaseConfigRunLevel%ROWTYPE;
+BEGIN
+   /*--------------- Business Rules Here -------------------*/
+   IF (nSourceRtagId IS NULL) OR (nTargetRtagId IS NULL)
+   THEN
+      RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! nSourceRtagId= '|| nSourceRtagId ||', nTargetRtagId='|| nTargetRtagId );
+   END IF;
+   IF (nSourceRtagId = nTargetRtagId) THEN
+      RAISE_APPLICATION_ERROR (-20000, 'Cannot import release contents from same release.' );
+   END IF;
+   -- Check if Target release is in OPEN mode
+   SELECT rt.OFFICIAL  INTO  cReleaseMode
+     FROM RELEASE_TAGS rt
+    WHERE rt.RTAG_ID = nTargetRtagId;
+   IF (cReleaseMode != 'N') THEN
+      RAISE_APPLICATION_ERROR (-20000, 'Release must be in OPEN mode to import the contents.' );
+   END IF;
+   -- check that the target release's daemons are all paused before we allow an import operation
+   OPEN curTgtReleaseConfigs;
+   FETCH curtgtReleaseConfigs INTO recTgtReleaseConfigs;
+   WHILE curTgtReleaseConfigs%FOUND
+   LOOP
+      OPEN curTgtReleaseConfigRunLevel;
+      FETCH curTgtReleaseConfigRunLevel INTO recTgtReleaseConfigRunLevel;
+      IF curTgtReleaseConfigRunLevel%FOUND THEN
+         IF (recTgtReleaseConfigRunLevel.current_run_level IS NULL) OR
+            (recTgtReleaseConfigRunLevel.current_run_level <> 2) THEN
+            RAISE_APPLICATION_ERROR (-20000, 'Destination release daemon run levels must be paused before operation can proceed.' );
+         END IF;
+      ELSE
+         -- we don't know what the daemon run level is so err on the side of caution
+         RAISE_APPLICATION_ERROR (-20000, 'Destination release daemon run levels must be paused before operation can proceed.' );
+      END IF;
+      CLOSE curTgtReleaseConfigRunLevel;
+      FETCH curTgtReleaseConfigs INTO recTgtReleaseConfigs;
+   END LOOP;
+   CLOSE curTgtReleaseConfigs;
+   /*-------------------------------------------------------*/
+   -- Clean target contents
+   Clean_Release_Contents ( nTargetRtagId, nUserId );
+   -- Import Released Area Contents
+   INSERT INTO RELEASE_CONTENT ( RTAG_ID, PV_ID, BASE_VIEW_ID, INSERT_STAMP, INSERTOR_ID, PKG_STATE, PKG_ID, DEPRECATED_STATE )
+   SELECT nTargetRtagId AS RTAG_ID,
+         rc.PV_ID,
+         rc.BASE_VIEW_ID,
+         rc.INSERT_STAMP,
+         rc.INSERTOR_ID,
+         rc.PKG_STATE,
+         rc.PKG_ID,
+         rc.DEPRECATED_STATE
+     FROM RELEASE_CONTENT rc
+    WHERE rc.RTAG_ID = nSourceRtagId;
+   -- Import any Pegged Version settings from the source release
+   INSERT INTO PEGGED_VERSIONS ( RTAG_ID, PV_ID )
+   SELECT nTargetRtagId AS RTAG_ID,
+          pegv.PV_ID
+     FROM PEGGED_VERSIONS pegv
+    WHERE pegv.RTAG_ID = nSourceRtagId;
+   -- Import any Advisory Ripple settings from the source release
+   INSERT INTO ADVISORY_RIPPLE ( RTAG_ID, PV_ID )
+   SELECT nTargetRtagId AS RTAG_ID,
+          avr.PV_ID
+     FROM ADVISORY_RIPPLE avr
+    WHERE avr.RTAG_ID = nSourceRtagId;
+   --Import Release Configuration Information
+   OPEN curSrcReleaseConfigs;
+   FETCH curSrcReleaseConfigs INTO recSrcReleaseConfigs;
+   WHILE curSrcReleaseConfigs%FOUND
+   LOOP
+      -- add a daemon to the target release
+      PK_BUILDAPI.add_daemon( recSrcReleaseConfigs.daemon_hostname, nTargetRtagId, recSrcReleaseConfigs.gbe_id, recSrcReleaseConfigs.gbe_buildfilter );
+      FETCH curSrcReleaseConfigs INTO recSrcReleaseConfigs;
+   END LOOP;
+   CLOSE curSrcReleaseConfigs;
+   -- Import Ignore Warning states
+   INSERT INTO IGNORE_WARNINGS ( RTAG_ID, PV_ID, DPV_ID )
+   SELECT nTargetRtagId AS RTAG_ID,
+          igw.PV_ID,
+          igw.DPV_ID
+     FROM IGNORE_WARNINGS igw
+    WHERE igw.rtag_id = nSourceRtagId;
+   /* Log Project Action */
+   -- Get Source Location
+   SELECT pr.PROJ_NAME ||' > '|| rt.RTAG_NAME ||' ['|| rt.RTAG_VERSION ||'.'|| rt.RTAG_LIFE_CYCLE ||']'  INTO sSourceLocation
+     FROM RELEASE_TAGS rt,
+           PROJECTS pr
+    WHERE rt.PROJ_ID = pr.PROJ_ID
+      AND rt.RTAG_ID = nSourceRtagId;
+   -- Get Target Location
+   SELECT pr.PROJ_NAME ||' > '|| rt.RTAG_NAME ||' ['|| rt.RTAG_VERSION ||'.'|| rt.RTAG_LIFE_CYCLE ||']'  INTO sTargetLocation
+     FROM RELEASE_TAGS rt,
+           PROJECTS pr
+    WHERE rt.PROJ_ID = pr.PROJ_ID
+      AND rt.RTAG_ID = nTargetRtagId;
+   -- Get project id
+   SELECT rt.PROJ_ID  INTO  ProjId
+     FROM RELEASE_TAGS rt
+    WHERE rt.RTAG_ID = nTargetRtagId;
+   Log_Project_Action ( ProjId, 'import_release_contents', nUserId, 'SOURCE: '|| sSourceLocation ||'   TARGET: '|| sTargetLocation, nTargetRtagId );
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE Clean_Release_Contents ( nRtagId IN NUMBER, nUserId IN NUMBER ) IS
+   RecCount NUMBER;
+        rconIdList VARCHAR2(4000);
+BEGIN
+   /*--------------- Business Rules Here -------------------*/
+   IF (nRtagId IS NULL)
+   THEN
+      RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! nRtagId= '|| nRtagId  );
+   END IF;
+   -- Check if other release references this release
+   SELECT COUNT( rl.RTAG_ID ) INTO RecCount
+     FROM RELEASE_LINKS rl
+    WHERE rl.REF_RTAG_ID = nRtagId;
+   IF (RecCount > 0) THEN
+      RAISE_APPLICATION_ERROR (-20000, 'This release is referenced by other release and cannot be destroyed.'  );
+   END IF;
+   /*-------------------------------------------------------*/
+   -- Delete Release links
+   DELETE
+     FROM RELEASE_LINKS rl
+    WHERE rl.RTAG_ID = nRtagId;
+   -- Delete ignore warning
+   DELETE
+     FROM IGNORE_WARNINGS iw
+    WHERE iw.RTAG_ID = nRtagId;
+   -- Delete Build Order cached calculations
+   DELETE
+     FROM BUILD_ORDER bo
+    WHERE bo.RTAG_ID = nRtagId;
+   -- Delete Notification History
+   DELETE
+     FROM NOTIFICATION_HISTORY nh
+    WHERE nh.RTAG_ID = nRtagId;
+   -- Delete Released Area Contents
+   DELETE
+     FROM RELEASE_CONTENT rc
+    WHERE rc.RTAG_ID = nRtagId;
+   -- Delete Work In Progress Area Contents
+   DELETE
+     FROM WORK_IN_PROGRESS wip
+    WHERE wip.RTAG_ID = nRtagId;
+   -- Delete Pending Area Contents
+   DELETE
+     FROM PLANNED pl
+    WHERE pl.RTAG_ID = nRtagId;
+   -- Delete Deprecated Packages
+   DELETE
+     FROM DEPRECATED_PACKAGES dp
+    WHERE dp.RTAG_ID = nRtagId;
+   -- Delete Project Action Log
+   DELETE
+     FROM PROJECT_ACTION_LOG pal
+    WHERE pal.RTAG_ID = nRtagId;
+   -- Delete Do Not Ripple Contents
+   DELETE
+     FROM DO_NOT_RIPPLE dnr
+    WHERE dnr.RTAG_ID = nRtagId;
+   -- Delete Dash Board Contents
+   DELETE
+     FROM DASH_BOARD db
+    WHERE db.RTAG_ID = nRtagId;
+   -- Delete Advisory Ripple Contents
+   DELETE
+     FROM ADVISORY_RIPPLE adr
+    WHERE adr.RTAG_ID = nRtagId;
+   -- Delete Archive Action Log
+   DELETE
+     FROM ARCHIVE_ACTION_LOG aal
+    WHERE aal.RTAG_ID = nRtagId;
+   -- Delete Daemons For This Release
+   FOR rcon IN (SELECT rc.RCON_ID FROM RELEASE_CONFIG rc WHERE rc.RTAG_ID = nRtagId )
+   LOOP
+      rconIdList := rconIdList || rcon.RCON_ID || ',';
+   END LOOP;
+   pk_buildapi.DELETE_DAEMON(rconIdList);
+   -- Delete Release Metrics Contents
+   DELETE
+     FROM RELEASE_METRICS rm
+    WHERE rm.RTAG_ID = nRtagId;
+   -- Delete Release Configuration Contents
+   DELETE
+     FROM RELEASE_CONFIG rc
+    WHERE rc.RTAG_ID = nRtagId;
+   -- Delete Pegged Version Contents
+   DELETE
+     FROM PEGGED_VERSIONS pegv
+    WHERE pegv.RTAG_ID = nRtagId;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+FUNCTION GET_PARENT_RTAG ( nRtagId IN NUMBER, nSourceRtagId IN NUMBER, cIsBranch IN CHAR )  RETURN NUMBER IS
+   nSourceParentRtagId NUMBER;
+BEGIN
+   /*--------------- Business Rules Here -------------------*/
+   IF (nRtagId IS NULL) OR (cIsBranch IS NULL)
+   THEN
+      RAISE_APPLICATION_ERROR (-20000, 'Missing some parameters! nRtagId= '|| nRtagId ||', cIsBranch= '|| cIsBranch );
+   END IF;
+   /*-------------------------------------------------------*/
+   IF ( nSourceRtagId IS NULL ) THEN
+      -- Create new on main branch
+      RETURN nRtagId;
+   ELSE
+      -- Create from source rtag_id
+      -- Find parent of Source RtagId
+      SELECT rt.PARENT_RTAG_ID INTO nSourceParentRtagId
+        FROM RELEASE_TAGS rt
+       WHERE rt.RTAG_ID = nSourceRtagId;
+      IF (UPPER(cIsBranch) = 'Y') THEN
+         RETURN nSourceRtagId;
+      ELSE
+         IF (nSourceRtagId = nSourceParentRtagId) THEN
+            RETURN nRtagId;
+         ELSE
+            RETURN nSourceParentRtagId;
+         END IF;
+      END IF;
+   END IF;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+-- PROCEDURE Get_Next_Version ( nSourceRtagId IN NUMBER,
+--                       sNextVersion OUT VARCHAR2,
+--                       nNextLifeCycle OUT NUMBER,
+--                       nParentRtagId OUT NUMBER,
+--                       nProjId IN NUMBER ) IS
+--
+-- SourceBranchCount NUMBER;
+-- ProjRootVersion VARCHAR2(4000);
+-- LastLifeCycle NUMBER;
+-- ROOT_VERSION_NOT_FOUND NUMBER := -1;
+-- SET_PARENT_AS_YOURSELF NUMBER := -1;
+--
+-- SourceProjId NUMBER;
+-- SourceVersion RELEASE_TAGS.RTAG_VERSION%TYPE;
+-- SourceLifeCycle RELEASE_TAGS.RTAG_LIFE_CYCLE%TYPE;
+--
+-- BEGIN
+--    /*--------------- Business Rules Here -------------------*/
+--    /*-------------------------------------------------------*/
+--
+--
+--    BEGIN
+--       -- Get Project root version
+--       SELECT rt.RTAG_VERSION INTO ProjRootVersion
+--         FROM RELEASE_TAGS rt
+--        WHERE rt.PROJ_ID = nProjId
+--          AND rt.RTAG_ID = rt.PARENT_RTAG_ID;
+--
+--       EXCEPTION
+--       WHEN NO_DATA_FOUND THEN
+--       ProjRootVersion := ROOT_VERSION_NOT_FOUND;
+--    END;
+--
+--
+--
+--
+--    BEGIN
+--       -- Get info for source rtagid
+--       SELECT rt.PROJ_ID, rt.RTAG_VERSION, rt.RTAG_LIFE_CYCLE  INTO  SourceProjId, SourceVersion, SourceLifeCycle
+--         FROM RELEASE_TAGS rt
+--        WHERE rt.RTAG_ID = nSourceRtagId;
+--
+--       EXCEPTION
+--       WHEN NO_DATA_FOUND THEN
+--       SourceProjId := NULL;
+--       SourceVersion := NULL;
+--       SourceLifeCycle := NULL;
+--    END;
+--
+--
+--    IF (nSourceRtagId IS NULL)  OR  ( SourceProjId != nProjId ) THEN
+--
+--       /* Blank Release Required  OR  Release imported from other project */
+--
+--       IF (ProjRootVersion = ROOT_VERSION_NOT_FOUND) THEN
+--          /* No Releases found in the project, hence calculate next version available.  */
+--
+--          -- Set parent rtag
+--          nParentRtagId := SET_PARENT_AS_YOURSELF;
+--
+--
+--          BEGIN
+--             -- Get Next Available Global Root Version
+--             SELECT MAX( TO_NUMBER( rt.RTAG_VERSION ) )  INTO  ProjRootVersion
+--               FROM RELEASE_TAGS rt
+--              WHERE rt.RTAG_ID = rt.PARENT_RTAG_ID;
+--
+--             -- Set Next Rtag Version
+--             sNextVersion := CAST( ProjRootVersion + 1 AS VARCHAR2 );
+--
+--             -- Restart Lifecycle
+--             nNextLifeCycle := 0;
+--
+--
+--             EXCEPTION
+--             WHEN NO_DATA_FOUND THEN
+--             -- Release Manager has no releases, hence start from 1
+--             sNextVersion := '1';
+--             nNextLifeCycle := 0;
+--
+--          END;
+--
+--
+--
+--       ELSE
+--          /* Releases found in this project. */
+--
+--          SELECT qry.RTAG_ID, qry.RTAG_LIFE_CYCLE  INTO nParentRtagId, LastLifeCycle
+--            FROM (
+--                SELECT rt.RTAG_ID, rt.RTAG_LIFE_CYCLE
+--                  FROM RELEASE_TAGS rt
+--                 WHERE rt.PROJ_ID = nProjId
+--                   AND rt.RTAG_VERSION = ProjRootVersion
+--                 ORDER BY rt.RTAG_LIFE_CYCLE DESC
+--                  ) qry
+--           WHERE ROWNUM = 1;
+--
+--
+--          -- Set same Rtag Version
+--          sNextVersion := ProjRootVersion;
+--
+--          -- Increase Lifecycle
+--          nNextLifeCycle := LastLifeCycle + 1;
+--
+--       END IF;
+--
+--
+--
+--    ELSE
+--       /* Create Release From other release within this project */
+--
+--       -- Set parent id
+--       nParentRtagId := nSourceRtagId;
+--
+--
+--       -- Get number of source branches
+--       SELECT COUNT(rt.RTAG_ID) INTO SourceBranchCount
+--         FROM RELEASE_TAGS rt
+--        WHERE rt.PROJ_ID = nProjId
+--          AND rt.PARENT_RTAG_ID = nSourceRtagId;
+--
+--
+--       IF SourceBranchCount = 0 THEN
+--          /* Release is Head (i.e. Tip on its branch ) */
+--
+--          -- Set Next Rtag Version
+--          sNextVersion := SourceVersion;
+--
+--          -- Increase Lifecycle
+--          nNextLifeCycle := SourceLifeCycle + 1;
+--
+--
+--       ELSIF SourceBranchCount = 1 THEN
+--          /* Release IS NOT Head, but can be branched */
+--
+--          -- Set Next Rtag Version
+--          sNextVersion := SourceVersion ||'.'|| SourceLifeCycle;
+--
+--          -- Reset Lifecycle to 1
+--          nNextLifeCycle := 1;
+--
+--
+--       ELSE
+--          -- Limit of two branches is reached
+--          RAISE_APPLICATION_ERROR (-20000, 'This release is already branched and cannot be branched again. ');
+--
+--       END IF;
+--
+--
+--
+--
+--
+--
+--    END IF;
+--
+--
+-- END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE GET_VIEW_CONTENT ( RtagId IN NUMBER, ViewId IN NUMBER, RecordSet OUT typeCur ) IS
+   IsBaseView CHAR(1);
+BEGIN
+   -- Check if the view is BASE VIEW
+   SELECT vi.BASE_VIEW INTO IsBaseView
+     FROM VIEWS vi
+    WHERE vi.VIEW_ID = ViewId;
+   IF (IsBaseView = 'Y') THEN
+      -- Get Base view content
+      OPEN RecordSet FOR
+      SELECT DECODE ( rel.pkg_state, NULL, 0, rel.pkg_state ) AS PKG_STATE,
+            rel.deprecated_state,
+            pv.pv_id,
+            pkg.pkg_name,
+            pv.pkg_version,
+            pv.dlocked,
+            pv.pv_description,
+            pv.BUILD_TYPE
+        FROM release_content rel,
+             packages pkg,
+             package_versions pv
+       WHERE pv.pkg_id = pkg.pkg_id
+         AND rel.pv_id = pv.pv_id
+         AND rel.BASE_VIEW_ID = ViewId
+         AND rel.RTAG_ID = RtagId
+       ORDER BY UPPER(pkg.PKG_NAME);
+   ELSE
+       -- Get non base view content
+      OPEN RecordSet FOR
+      SELECT DECODE ( rel.pkg_state, NULL, 0, rel.pkg_state ) AS PKG_STATE,
+            rel.deprecated_state,
+            pv.pv_id,
+            pkg.pkg_name,
+            pv.pkg_version,
+            pv.dlocked,
+            pv.pv_description,
+            pv.BUILD_TYPE
+        FROM release_content rel,
+             packages pkg,
+             package_versions pv,
+            VIEW_DEF vd
+       WHERE pv.pkg_id = pkg.pkg_id
+         AND rel.pv_id = pv.pv_id
+         AND vd.VIEW_ID = ViewId
+         AND vd.PKG_ID = pv.PKG_ID
+         AND rel.RTAG_ID = RtagId
+       ORDER BY UPPER(pkg.PKG_NAME);
+   END IF;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE ADD_PACKAGE ( newPvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
+   ReleaseLocation VARCHAR2(4000);
+   sPkgVersion VARCHAR2(4000);
+   nPkgId NUMBER;
+   sVExt VARCHAR2(4000);
+   IsPatch PACKAGE_VERSIONS.IS_PATCH%TYPE := 'N';
+   -- Find package for replacement
+   CURSOR curReplacePkg IS
+    SELECT pv.PV_ID
+     FROM RELEASE_CONTENT rc,
+           PACKAGE_VERSIONS pv
+    WHERE rc.PV_ID = pv.PV_ID
+      AND rc.RTAG_ID = RtagId
+      AND pv.PKG_ID = nPkgId
+      AND NVL( pv.V_EXT, 'LINK_A_NULL' ) = NVL( sVExt, 'LINK_A_NULL' );
+    recReplacePkg curReplacePkg%ROWTYPE;
+BEGIN
+   -- Get is_patch, pkg_id and v_ext
+   SELECT pv.IS_PATCH, pv.PKG_ID, pv.V_EXT INTO IsPatch, nPkgId, sVExt
+     FROM PACKAGE_VERSIONS pv
+    WHERE pv.PV_ID = newPvId;
+   -- Never put patch in relesed area
+   IF (IsPatch != 'Y') OR (IsPatch IS NULL) THEN
+      -- Try to get a package to be replaced with this new one.
+      -- Use unique constraint of PKG_ID and V_EXT
+      OPEN curReplacePkg;
+       FETCH curReplacePkg INTO recReplacePkg;
+       IF curReplacePkg%FOUND THEN
+         -- Replace package
+         REPLACE_PACKAGE ( newPvId, recReplacePkg.PV_ID, RtagId, UserId );
+      ELSE
+         -- Add new package
+         INSERT INTO RELEASE_CONTENT ( RTAG_ID, PV_ID, BASE_VIEW_ID, INSERT_STAMP, INSERTOR_ID, PKG_STATE )
+         VALUES( RtagId, newPvId, ViewId, Ora_Sysdate, UserId, 0);
+          /* LOG ACTION */
+         SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+           FROM PROJECTS proj,
+                 RELEASE_TAGS rt
+          WHERE rt.PROJ_ID = proj.PROJ_ID
+            AND rt.RTAG_ID = RtagId;
+         SELECT pv.PKG_VERSION INTO sPkgVersion
+           FROM PACKAGE_VERSIONS pv
+          WHERE pv.PV_ID = newPvId;
+         Log_Action ( newPvId, 'add', UserId, 'Location: '|| ReleaseLocation );
+      END IF;
+      CLOSE curReplacePkg;
+   END IF;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE REPLACE_PACKAGE ( newPvId IN NUMBER, oldPvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
+   ReleaseLocation VARCHAR2(4000);
+   sPkgVersion VARCHAR2(4000);
+BEGIN
+   -- Replace Package
+    UPDATE RELEASE_CONTENT
+       SET pv_id = newPvId,
+           insert_stamp = Ora_Sysdate,
+           insertor_id = UserId,
+         product_state = NULL
+     WHERE rtag_id = RtagId
+       AND pv_id = oldPvId;
+   -- update the pegging table
+   UPDATE PEGGED_VERSIONS
+      SET pv_id = newPvId
+     WHERE rtag_id = RtagId
+       AND pv_id = oldPvId;
+   -- update the advisory_ripple table
+   UPDATE ADVISORY_RIPPLE
+      SET pv_id = newPvId
+     WHERE rtag_id = RtagId
+       AND pv_id = oldPvId;
+    /* LOG ACTION */
+   SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+     FROM PROJECTS proj,
+           RELEASE_TAGS rt
+    WHERE rt.PROJ_ID = proj.PROJ_ID
+      AND rt.RTAG_ID = RtagId;
+   SELECT pv.PKG_VERSION INTO sPkgVersion
+     FROM PACKAGE_VERSIONS pv
+    WHERE pv.PV_ID = newPvId;
+   Log_Action ( oldPvId, 'replaced_with', UserId, 'Replacing with: '|| sPkgVersion ||' at '|| ReleaseLocation );
+   Log_Action ( newPvId, 'add', UserId, 'Location: '|| ReleaseLocation );
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE REMOVE_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
+   ReleaseLocation VARCHAR2(4000);
+BEGIN
+   -- Delete old package
+   DELETE
+     FROM RELEASE_CONTENT rc
+    WHERE rc.PV_ID = PvId
+      AND rc.RTAG_ID = RtagId;
+   /* LOG ACTION */
+   SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+     FROM PROJECTS proj,
+          RELEASE_TAGS rt
+    WHERE rt.PROJ_ID = proj.PROJ_ID
+      AND rt.RTAG_ID = RtagId;
+   Log_Action ( PvId, 'delete_from_released', UserId, 'Location: '|| ReleaseLocation );
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE REMOVE_MATCHING_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
+   ReleaseLocation VARCHAR2(4000);
+   CURSOR curMatchingPackage IS
+    SELECT mpv.PV_ID
+     FROM RELEASE_CONTENT rc,
+           PACKAGE_VERSIONS mpv,
+         PACKAGE_VERSIONS pv
+    WHERE rc.PV_ID = mpv.PV_ID
+      AND rc.RTAG_ID = RtagId
+      AND pv.PV_ID = PvId
+      AND pv.PKG_ID = mpv.PKG_ID
+      AND NVL( pv.V_EXT, '|LINK_A_NULL|' ) = NVL( mpv.V_EXT, '|LINK_A_NULL|' );
+    recMatchingPackage curMatchingPackage%ROWTYPE;
+BEGIN
+   OPEN curMatchingPackage;
+    FETCH curMatchingPackage INTO recMatchingPackage;
+    IF curMatchingPackage%FOUND THEN
+      -- Delete old package
+      DELETE
+        FROM RELEASE_CONTENT rc
+       WHERE rc.PV_ID = recMatchingPackage.PV_ID
+         AND rc.RTAG_ID = RtagId;
+      /* LOG ACTION */
+      SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+        FROM PROJECTS proj,
+              RELEASE_TAGS rt
+       WHERE rt.PROJ_ID = proj.PROJ_ID
+         AND rt.RTAG_ID = RtagId;
+      Log_Action ( recMatchingPackage.PV_ID, 'delete_from_released', UserId, 'Location: '|| ReleaseLocation );
+   END IF;
+   CLOSE curMatchingPackage;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+FUNCTION GET_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER IS
+   ReturnValue NUMBER;
+BEGIN
+   SELECT rc.BASE_VIEW_ID INTO ReturnValue
+     FROM RELEASE_CONTENT rc
+    WHERE rc.RTAG_ID = RtagId
+      AND rc.PV_ID = PvId;
+   RETURN ReturnValue;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE RUN_POST_ACTIONS ( PvId IN NUMBER, RtagId IN NUMBER ) IS
+BEGIN
+   -- Reset Ignore warnings up-the-tree
+   RESET_IGNORE_WARNINGS ( TO_CHAR(PvId), RtagId );
+   -- Refresh Package states
+   TOUCH_RELEASE ( RtagId );
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE RUN_POST_ACTIONS_BULK ( PvId IN NUMBER ) IS
+   CURSOR curReleases IS
+    SELECT rc.RTAG_ID
+     FROM RELEASE_CONTENT rc
+    WHERE rc.PV_ID = PvId;
+    recReleases curReleases%ROWTYPE;
+BEGIN
+   OPEN curReleases;
+    FETCH curReleases INTO recReleases;
+   WHILE curReleases%FOUND
+   LOOP
+      RUN_POST_ACTIONS ( PvId, recReleases.RTAG_ID );
+      FETCH curReleases INTO recReleases;
+   END LOOP;
+   CLOSE curReleases;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE CHANGE_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER, NewViewId IN NUMBER ) IS
+BEGIN
+   UPDATE RELEASE_CONTENT rc SET
+   rc.BASE_VIEW_ID = NewViewId
+   WHERE rc.PV_ID = PvId
+     AND rc.RTAG_ID = RtagId;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE ADD_RELEASE_REFERENCE ( nRtagId IN NUMBER, nRefRtagId IN NUMBER, ProblemString OUT VARCHAR2 ) IS
+   RowCount NUMBER;
+   CURSOR curPackageClash IS
+   SELECT pkg.PKG_NAME,
+         er.*
+     FROM (
+           /* Get existing referenced packages */
+         SELECT pv.PKG_ID,
+                pv.V_EXT
+           FROM RELEASE_LINKS rl,
+                 RELEASE_CONTENT rc,
+                 PACKAGE_VERSIONS pv
+          WHERE rl.RTAG_ID = nRtagId
+            AND rl.REF_RTAG_ID = rc.RTAG_ID
+            AND rc.PV_ID = pv.PV_ID
+            ) er,
+         (
+         /* Get current reference packages */
+         SELECT pv.PKG_ID,
+                pv.V_EXT
+           FROM RELEASE_CONTENT rc,
+                 PACKAGE_VERSIONS pv
+          WHERE rc.RTAG_ID = nRefRtagId
+            AND rc.PV_ID = pv.PV_ID
+         ) cr,
+         PACKAGES PKG
+    WHERE er.PKG_ID = cr.PKG_ID
+      AND NVL(er.V_EXT, '|LINK_A_NULL|') = NVL(cr.V_EXT, '|LINK_A_NULL|')
+      AND er.PKG_ID = pkg.PKG_ID;
+   recPackageClash curPackageClash%ROWTYPE;
+BEGIN
+   /*--------------- Business Rules Here -------------------*/
+   IF (nRtagId = 0) OR ( nRtagId IS NULL ) THEN
+      RAISE_APPLICATION_ERROR (-20000, 'nRtagId is not supplied. [nRtagId='|| nRtagId ||']' );
+   END IF;
+   IF (nRefRtagId = 0) OR ( nRefRtagId IS NULL ) THEN
+      RAISE_APPLICATION_ERROR (-20000, 'nRefRtagId is not supplied. [nRefRtagId='|| nRefRtagId ||']' );
+   END IF;
+   /*-------------------------------------------------------*/
+   ProblemString := NULL;
+   -- Check if release already has references
+   SELECT COUNT(rl.RTAG_ID)  INTO  RowCount
+     FROM RELEASE_LINKS rl
+    WHERE rl.RTAG_ID = nRtagId;
+   IF RowCount > 0 THEN
+      -- Found existing references
+      -- Make sure there is no package clashes
+      OPEN curPackageClash;
+       FETCH curPackageClash INTO recPackageClash;
+      IF curPackageClash%FOUND THEN
+         ProblemString := ProblemString ||'Following is partial list of package already referenced from other release:'|| UTL_TCP.CRLF;
+         WHILE curPackageClash%FOUND
+         LOOP
+            EXIT WHEN LENGTH( ProblemString || '- '|| recPackageClash.PKG_NAME ||' '|| recPackageClash.V_EXT  || UTL_TCP.CRLF ) > 200;   -- Do not allow variable overflow
+            ProblemString := ProblemString || '- '|| recPackageClash.PKG_NAME ||' '|| recPackageClash.V_EXT  || UTL_TCP.CRLF;
+            FETCH curPackageClash INTO recPackageClash;
+         END LOOP;
+      END IF;
+      CLOSE curPackageClash;
+   ELSE
+      -- No references found, hence reference a release
+      -- Remove exising package from this release to be referenced
+      REMOVE_RELEASE_REFERENCE ( nRtagId, nRefRtagId);
+      -- Add new linked packages to release
+      INSERT INTO RELEASE_CONTENT rc (RTAG_ID, PV_ID, BASE_VIEW_ID, INSERT_STAMP, INSERTOR_ID, PKG_STATE)
+      SELECT nRtagId,
+            rc.PV_ID,
+            rc.BASE_VIEW_ID,
+            rc.INSERT_STAMP,
+            rc.INSERTOR_ID,
+            rc.PKG_STATE
+        FROM RELEASE_CONTENT rc
+       WHERE rc.RTAG_ID = nRefRtagId;
+      -- Copy ignore warnings for referenced packages
+      INSERT INTO IGNORE_WARNINGS iw (RTAG_ID, PV_ID, DPV_ID, IS_PATCH_IGNORE)
+      SELECT nRtagId,
+            iw.PV_ID,
+            iw.DPV_ID,
+            iw.IS_PATCH_IGNORE
+        FROM IGNORE_WARNINGS iw,
+              RELEASE_CONTENT rc
+       WHERE iw.RTAG_ID = rc.RTAG_ID
+         AND iw.PV_ID = rc.PV_ID
+         AND rc.RTAG_ID = nRefRtagId;
+      -- Reference release
+      INSERT INTO RELEASE_LINKS (RTAG_ID, REF_RTAG_ID)
+      VALUES ( nRtagId, nRefRtagId );
+      -- Refresh Package states
+      TOUCH_RELEASE ( nRtagId );
+   END IF;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE REMOVE_RELEASE_REFERENCE ( nRtagId IN NUMBER, nRefRtagId IN NUMBER ) IS
+BEGIN
+   /*--------------- Business Rules Here -------------------*/
+   IF (nRtagId = 0) OR ( nRtagId IS NULL ) THEN
+      RAISE_APPLICATION_ERROR (-20000, 'nRtagId is not supplied. [nRtagId='|| nRtagId ||']' );
+   END IF;
+   IF (nRefRtagId = 0) OR ( nRefRtagId IS NULL ) THEN
+      RAISE_APPLICATION_ERROR (-20000, 'nRefRtagId is not supplied. [nRefRtagId='|| nRefRtagId ||']' );
+   END IF;
+   /*-------------------------------------------------------*/
+   -- Remove ignore warnings for those packages who use referenced packages
+   DELETE FROM IGNORE_WARNINGS iw
+    WHERE iw.RTAG_ID = nRtagId
+      AND iw.DPV_ID IN (
+                        SELECT dep.DPV_ID
+                       FROM (
+                           /* Get referenced packages */
+                           SELECT pv.PKG_ID,
+                                  pv.V_EXT
+                             FROM RELEASE_CONTENT rc,
+                                   PACKAGE_VERSIONS pv
+                            WHERE rc.RTAG_ID = nRefRtagId
+                              AND rc.PV_ID = pv.PV_ID
+                           ) cr,
+                           (
+                           /* Get all dependencies for current release */
+                           SELECT DISTINCT
+                                 pv.PKG_ID,
+                                 pv.V_EXT,
+                                 dep.DPV_ID
+                             FROM RELEASE_CONTENT rc,
+                                 PACKAGE_DEPENDENCIES dep,
+                                 PACKAGE_VERSIONS pv
+                            WHERE rc.RTAG_ID = nRtagId
+                              AND rc.PV_ID = dep.PV_ID
+                              AND dep.PV_ID = pv.PV_ID
+                           ) dep
+                      WHERE dep.PKG_ID = cr.PKG_ID
+                        AND NVL(dep.V_EXT, '|LINK_A_NULL|') = NVL(cr.V_EXT, '|LINK_A_NULL|')
+                     );
+   -- Remove ignore warnings for those package which are going to be replaced with the reference
+   DELETE FROM IGNORE_WARNINGS iw
+    WHERE iw.RTAG_ID = nRtagId
+      AND iw.PV_ID IN (
+                  SELECT pv.PV_ID
+                    FROM (
+                        /* Get referenced packages */
+                        SELECT pv.PKG_ID,
+                               pv.V_EXT
+                          FROM RELEASE_CONTENT rc,
+                                PACKAGE_VERSIONS pv
+                         WHERE rc.RTAG_ID = nRefRtagId
+                           AND rc.PV_ID = pv.PV_ID
+                        ) cr,
+                        RELEASE_CONTENT rc,
+                        PACKAGE_VERSIONS pv
+                   WHERE pv.PKG_ID = cr.PKG_ID
+                     AND NVL(pv.V_EXT, '|LINK_A_NULL|') = NVL(cr.V_EXT, '|LINK_A_NULL|')
+                     AND rc.RTAG_ID = nRtagId
+                     AND rc.PV_ID = pv.PV_ID
+                  );
+   -- Remove matching packages from release
+   DELETE FROM RELEASE_CONTENT rc
+    WHERE rc.RTAG_ID = nRtagId
+      AND rc.PV_ID IN (
+                  SELECT pv.PV_ID
+                    FROM (
+                        /* Get referenced packages */
+                        SELECT pv.PKG_ID,
+                               pv.V_EXT
+                          FROM RELEASE_CONTENT rc,
+                                PACKAGE_VERSIONS pv
+                         WHERE rc.RTAG_ID = nRefRtagId
+                           AND rc.PV_ID = pv.PV_ID
+                        ) cr,
+                        RELEASE_CONTENT rc,
+                        PACKAGE_VERSIONS pv
+                   WHERE pv.PKG_ID = cr.PKG_ID
+                     AND NVL(pv.V_EXT, '|LINK_A_NULL|') = NVL(cr.V_EXT, '|LINK_A_NULL|')
+                     AND rc.RTAG_ID = nRtagId
+                     AND rc.PV_ID = pv.PV_ID
+                  );
+   -- Remove Reference release
+   DELETE
+     FROM RELEASE_LINKS rl
+    WHERE rl.RTAG_ID = nRtagId
+      AND rl.REF_RTAG_ID = nRefRtagId;
+   -- Refresh Package states
+   TOUCH_RELEASE ( nRtagId );
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE CAN_USER_WRITE_TO_RELEASE ( RtagId IN NUMBER, PvId IN NUMBER, Permission IN CHAR ) IS
+   cReleaseMode CHAR(1);
+   cPvMode CHAR(1);
+BEGIN
+   -- Get Release Mode
+   SELECT rt.OFFICIAL INTO cReleaseMode
+     FROM RELEASE_TAGS rt
+    WHERE rt.RTAG_ID = RtagId;
+   -- Get Package Mode
+   SELECT pv.DLOCKED INTO cPvMode
+     FROM PACKAGE_VERSIONS pv
+    WHERE pv.PV_ID = PvId;
+   -- Only check if package is locked
+   IF (cPvMode = 'Y') THEN
+      IF (cReleaseMode != 'N') AND (Permission != 'Y')
+      THEN
+         RAISE_APPLICATION_ERROR (-20000, 'Cannot add package to this release. Release needs to be in Open Mode.' );
+      END IF;
+   END IF;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+END PK_RELEASE;
+/
+--------------------------------------------------------
+--  DDL for Package Body PK_RMAPI
+--------------------------------------------------------
+  CREATE OR REPLACE PACKAGE BODY "PK_RMAPI"
+IS
    /*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION select_environment_area (cdlock IN package_versions.dlocked%TYPE)
+   FUNCTION package_dependencies (pkgname VARCHAR2, pkgversion VARCHAR2)
+      RETURN typecur
+   IS
+      npvid     NUMBER  := 0;
+      RECORDS   typecur;
+   BEGIN
+      BEGIN
+         -- Get PV_ID --
+         SELECT pv.pv_id
+           INTO npvid
+           FROM PACKAGES pkg, package_versions pv
+          WHERE pv.pkg_id = pkg.pkg_id
+            AND pkg.pkg_name = pkgname
+            AND pv.pkg_version = pkgversion;
+      EXCEPTION
+         WHEN NO_DATA_FOUND
+         THEN
+            raise_application_error (-20000, 'Package Not Found!');
+            --WHEN OTHERS THEN
+                  -- Consider logging the error and then re-raise
+            RAISE;
+      END;
+      -- Finally get package dependencies --
+      OPEN RECORDS FOR
+         SELECT dpv.pv_id, dpkg.pkg_name, dpv.pkg_version
+           FROM package_dependencies dep, PACKAGES dpkg, package_versions dpv
+          WHERE dep.pv_id = npvid
+            AND dpv.pkg_id = dpkg.pkg_id
+            AND dpv.pv_id = dep.dpv_id;
+      RETURN RECORDS;
+   END;
+/*-------------------------------------------------------------------------------------------------------*/
+   FUNCTION wip_iteration_package (
+      projname        VARCHAR2,
+      iterationname   VARCHAR2,
+      pkgname         VARCHAR2
+   )
+      RETURN typecur
+   IS
+      nrtagid   NUMBER  := 0;
+      RECORDS   typecur;
+   BEGIN
+      BEGIN
+         -- Get latest rtag_id --
+         SELECT rt.rtag_id
+           INTO nrtagid
+           FROM projects proj, release_tags rt
+          WHERE rt.proj_id = proj.proj_id
+            AND UPPER (proj.proj_name) = UPPER (projname)
+            AND UPPER (rt.rtag_name) = UPPER (iterationname);
+         IF (nrtagid IS NULL)
+         THEN
+            raise_application_error (-20000,
+                                     'Work In Progress is Not Found!');
+         END IF;
+      EXCEPTION
+         WHEN NO_DATA_FOUND
+         THEN
+            raise_application_error (-20000,
+                                     'Work In Progress is Not Found!');
+            RAISE;
+      END;
+      -- Finally get package dependencies --
+      OPEN RECORDS FOR
+         SELECT pv.pkg_version, pv.dlocked AS is_official, pv.pkg_label,
+                pv.src_path
+           FROM PACKAGES pkg, package_versions pv, work_in_progress wip
+          WHERE pv.pkg_id = pkg.pkg_id
+            AND wip.pv_id = pv.pv_id
+            AND wip.rtag_id = nrtagid
+            AND pkg.pkg_name = pkgname;
+      RETURN RECORDS;
+   END;
+/*-------------------------------------------------------------------------------------------------------*/
+   FUNCTION auto_make_vcsrelease (
+      rtagid                   IN   NUMBER,
+      pkgname                  IN   VARCHAR2,
+      vext                     IN   VARCHAR2,
+      newpkgversion            IN   VARCHAR2,
+      vcstag                   IN   VARCHAR2,
+      dependenciesimportlist   IN   VARCHAR2,
+      isrippled                IN   NUMBER,
+      username                 IN   VARCHAR2
+   )
       RETURN NUMBER
    IS
+      pkgid                           NUMBER;
+      pvid                            NUMBER                        := 0;
+      userid                          NUMBER;
+      dlocked                         VARCHAR2 (20)                 := NULL;
+      clonefrompvid                   NUMBER;
+      ssv_mm                          package_versions.v_mm%TYPE;
+      ssv_nmm                         package_versions.v_nmm%TYPE;
+      ssv_ext                         package_versions.v_ext%TYPE;
+      return_package_not_found        NUMBER                        := -1;
+      return_package_already_exists   NUMBER                        := -2;
+      return_not_approved             NUMBER                        := -3;
+      return_migrated_pkg             NUMBER                        := -4;
+      x_vcstypeid                     NUMBER;
+      x_tag                           VARCHAR2(32);
+      x_label                         VARCHAR2(60);
+      x_srcpath                       VARCHAR2(2000);
+      p_srcpath                       VARCHAR2(2000);
+      -- Regular expression constituents
+      Token         VARCHAR2(16) := '([^:]+)';  -- a token is anything except a ':' character
+      Seperator     VARCHAR2(4)  := '::';       -- tokens will be seperated by '::'
+      BOL           VARCHAR2(4)  := '^';
+      Anything      VARCHAR2(4)  := '.*';
+      ReplaceToken1 VARCHAR2(4)  := '\1';
+      ReplaceToken2 VARCHAR2(4)  := '\2';
+      ReplaceToken3 VARCHAR2(4)  := '\3';
+      iprev_modifier_id               NUMBER;
    BEGIN
-       /*
-      || N - unlocked
-      || Y - release and locked
-      || P - penging approval
-      || A - approved package ready for auto-build
+      /*--------------- Business Rules Here -------------------*/
-      */
-      IF cdlock = 'N' OR cdlock = 'R'
+      IF (rtagid IS NULL)
       THEN
-         -- WORK IN PROGRESS --
+         raise_application_error (-20000, 'RtagId must be supplied.');
-         RETURN 0;
+      END IF;
-      ELSIF cdlock = 'P' OR cdlock = 'A'
+      IF (pkgname IS NULL)
       THEN
+         raise_application_error (-20000, 'PkgName must be supplied.');
-         -- PENDING --
+      END IF;
+      IF (newpkgversion IS NULL)
+      THEN
+         raise_application_error (-20000, 'PkgVersion must be supplied.');
-         RETURN 1;
+      END IF;
-      ELSIF cdlock = 'Y'
+      IF (vcstag IS NULL)
+      THEN
+         raise_application_error (-20000, 'PkgVcsTag must be supplied.');
+      END IF;
+      IF (isrippled IS NULL) OR (isrippled < 0) OR (isrippled > 1)
       THEN
-         -- RELEASED --
-         RETURN 2;
-      ELSE
-         -- NOT FOUND --
          raise_application_error
-                         (-20000,
+            (-20000,
-                             'Cannot decide where to place package. [cDlock='
+             'IsRippled must be set to 1 (Is rippled build) or 0 (Is planned build).'
-                          || cdlock
+            );
-                          || ']'
+      END IF;
-                         );
+      IF (username IS NULL)
+      THEN
+         raise_application_error (-20000, 'UserName must be supplied.');
       END IF;
+      -- Parse the PkgVcsTag
+      -- Sets up
+      --   x_tag, x_label, x_srcpath
+       BEGIN
+          -- Extract the first token - this will be the short tag name for the VCS (eg. 'CC', 'SVN', etc)
+          x_tag := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Anything, ReplaceToken1);
+          -- Decode the short tag
+          CASE x_tag
+             WHEN 'CC' THEN
+                -- extract the 2nd and 3rd tokens, those being the source path and label respectively
+                x_srcpath := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Anything, ReplaceToken2);
+                x_label   := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Token, ReplaceToken3);
+                -- NOTE: if reg-expr parsing/replacement fails, the x_... variable may receive the entire input string (vcstag), so
+                -- check for that error as well as the obvious zero-length string conditions.
+                IF LENGTH(x_srcpath) = 0 OR LENGTH(x_label) = 0 OR x_srcpath = vcstag OR x_label = vcstag THEN
+                   raise_application_error (-20000, 'VCS Tag contains insufficient or malformed data!');
+                END IF;
+                IF isSVNbyName(pkgname) > 0 THEN
+                    -- Don't allow migrated packages to be released from a CC label
+                    return return_migrated_pkg;
+                END IF;
+             WHEN 'SVN' THEN
+                -- extract the 2nd token, that being the subversion tag
+                x_srcpath := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Anything, ReplaceToken2);
+                x_label   := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Token, ReplaceToken3);
+                -- NOTE: if reg-expr parsing/replacement fails, the x_... variable may receive the entire input string (vcstag), so
+                -- check for that error as well as the obvious zero-length string conditions.
+                IF LENGTH(x_srcpath) = 0 OR LENGTH(x_label) = 0 OR x_srcpath = vcstag OR x_label = vcstag THEN
+                   raise_application_error (-20000, 'VCS Tag contains insufficient or malformed data!');
+                END IF;
+             WHEN 'UC' THEN
+                -- nothing to extract, just assign defaults
+                x_srcpath := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Anything, ReplaceToken2);
+                x_label   := 'N/A';
+             ELSE
+                raise_application_error (-20000, 'Unrecognised VCS Tag!');
+          END CASE;
+       END;
+      -- Get the VCS_TYPE_ID for the version control system.
+      BEGIN
+         SELECT vt.vcs_type_id
+         INTO x_vcstypeid
+         FROM VCS_TYPE vt
+         WHERE vt.tag = x_tag;
+         EXCEPTION
+            WHEN NO_DATA_FOUND THEN
+               raise_application_error (-20000, 'Database is missing a version control system tag (' || x_tag || ')!' );
+      END;
+      -- Get user_id
+      BEGIN
+         SELECT usr.user_id
+           INTO userid
+           FROM users usr
+          WHERE UPPER (usr.user_name) = UPPER (username)
+            AND usr.is_disabled IS NULL;
+      EXCEPTION
+         WHEN NO_DATA_FOUND
+         THEN
+            raise_application_error (-20000,
+                                        'UserName '
+                                     || username
+                                     || ' is not valid or disabled.'
+                                    );
+      END;
+/*-------------------------------------------------------*/
+      -- Create package if necessary
+      IF isrippled = 1
+      THEN
+         /* Ripple Build */
+         BEGIN
+            -- Make sure that package does not exist
+            SELECT pv.pv_id
+              INTO pvid
+              FROM package_versions pv, PACKAGES pkg
+             WHERE pv.pkg_id = pkg.pkg_id
+               AND pkg.pkg_name = pkgname
+               AND pv.pkg_version = newpkgversion;
+         EXCEPTION
+            WHEN NO_DATA_FOUND
+            THEN
+               pvid := 0;
+         END;
+         IF (pvid = 0)
+         THEN
+            -- Split current version in parts
+            split_version (newpkgversion, ssv_mm, ssv_nmm, ssv_ext);
+            BEGIN
+               -- Find package to be replaced with the ripple package
+               IF NVL (vext, '|LINK_A_NULL|') = NVL (ssv_ext, '|LINK_A_NULL|')
+               THEN
+                  SELECT pv.pv_id, pv.src_path
+                    INTO clonefrompvid, p_srcpath
+                    FROM PACKAGES pkg, package_versions pv,
+                         release_content rc
+                   WHERE rc.pv_id = pv.pv_id
+                     AND pv.pkg_id = pkg.pkg_id
+                     AND rc.rtag_id = rtagid
+                     AND pkg.pkg_name = pkgname
+                     AND NVL (pv.v_ext, '|LINK_A_NULL|') = NVL (ssv_ext, '|LINK_A_NULL|');
+               ELSE
+                  SELECT pv.pv_id, pv.src_path
+                    INTO clonefrompvid, p_srcpath
+                    FROM PACKAGES pkg, package_versions pv,
+                         release_content rc
+                   WHERE rc.pv_id = pv.pv_id
+                     AND pv.pkg_id = pkg.pkg_id
+                     AND rc.rtag_id = rtagid
+                     AND pkg.pkg_name = pkgname
+                     AND NVL (pv.v_ext, '|LINK_A_NULL|') = NVL (vext, '|LINK_A_NULL|');
+               END IF;
+            EXCEPTION
+               WHEN NO_DATA_FOUND
+               THEN
+                  raise_application_error
+                                        (-20000,
+                                            'Cannot get CloneFromPvId. VExt='
+                                         || vext
+                                         || ', RtagId='
+                                         || rtagid
+                                         || ', PkgName='
+                                         || pkgname
+                                         || ', SSV_EXT='
+                                         || ssv_ext
+                                        );
+            END;
+            IF NVL (vext, '|LINK_A_NULL|') = NVL (ssv_ext, '|LINK_A_NULL|')
+            THEN
+               -- Create package
+               seed_package_names_versions (pkgname,
+                                            newpkgversion,
+                                            userid,
+                                            pvid,
+                                            clonefrompvid
+                                           );
+            ELSE
+               -- Create package
+               seed_package_names_versions2 (pkgname,
+                                             newpkgversion,
+                                             userid,
+                                             pvid,
+                                             clonefrompvid
+                                            );
+            END IF;
+            -- Update Package reason for release
+            UPDATE package_versions pv
+               SET pv.comments = 'Rippled Build.',
+                   pv.build_type = 'Y'
+             WHERE pv.pv_id = pvid;
+         ELSE
+            -- Package already exists, it was built previously, and has just been re-built again probably due to the
+            -- fact that the archive was cleaned of the original build artifacts at some point, and those artifacts
+            -- are now needed once more. As such, we need to ensure that a new release note generation occurs so
+            -- reset the package_versions[pvid].release_notes_info field to enable that to happen.
+            UPDATE package_versions pv
+               SET pv.release_notes_info = null,
+                   pv.modified_stamp = ora_sysdatetime
+             WHERE pv.pv_id = pvid;
+            --DEVI-066151
+            log_action (pvid, 'package_rebuilt', userid, 'Package Re-built...');
+            RETURN return_package_already_exists;
+         END IF;
+      ELSE
+         /* Auto build from Pending area */
+         -- Find package in pending area
+         BEGIN
+            SELECT pv.pv_id, pv.dlocked, pv.src_path
+              INTO pvid, dlocked, p_srcpath
+              FROM planned pl, package_versions pv, PACKAGES pkg
+             WHERE pl.pv_id = pv.pv_id
+               AND pv.pkg_id = pkg.pkg_id
+               AND pl.rtag_id = rtagid
+               AND pkg.pkg_name = pkgname
+               AND pv.dlocked = 'A'
+               AND NVL (pv.v_ext, '|LINK_A_NULL|') = NVL (vext, '|LINK_A_NULL|')
+               AND rownum = 1
+             ORDER BY pv.modified_stamp;
+         EXCEPTION
+            WHEN NO_DATA_FOUND
+            THEN
+               pvid := 0;
+         END;
+         IF (pvid = 0)
+         THEN
+            -- Package does not exist in pending area, hence report it
+            RETURN return_package_not_found;
+         ELSIF (dlocked != 'A')
+         THEN
+            -- Package is not approved for autobuild
+            RETURN return_not_approved;
+         END IF;
+      END IF;
+      -- Ensure Source Path does not change
+      -- Do not expect the SVN development branch to change
+      -- From the previous package
+      IF ( x_tag = 'SVN' AND p_srcpath != x_srcpath )
+      THEN
+        raise_application_error (-20000, 'Source Path does not match (' || p_srcpath || ','|| x_srcpath || ')' );
+      END IF;
+      BEGIN
+         -- Import Dependencies
+         import_dependencies (pvid, dependenciesimportlist, userid);
+      END;
+      BEGIN
+         -- Split current version in parts
+         split_version (newpkgversion, ssv_mm, ssv_nmm, ssv_ext);
+         -- Update Package Details
+         UPDATE package_versions pv
+            SET pv.pkg_version = newpkgversion,
+                pv.v_ext = ssv_ext,
+                pv.v_mm = ssv_mm,
+                pv.v_nmm = ssv_nmm,
+                pv.src_path = x_srcpath,
+                pv.pkg_label = x_label,
+                pv.vcs_type_id = x_vcstypeid
+          WHERE pv.pv_id = pvid;
+      EXCEPTION
+         WHEN DUP_VAL_ON_INDEX
+         THEN
+            -- Package already exists, hence cannot be used for ripple build
+            RETURN return_package_already_exists;
+      END;
+      -- Update the is_autobuildable
+      UPDATE package_versions
+         SET is_autobuildable = 'Y'
+       WHERE pv_id = pvid;
+      -- DEVI-063601
+      -- For planned builds the modifier_id shouldn't be set to buildadm.
+      -- To ensure this the modifier_id is obtained so it can be restored after
+      -- the function pk_environment.auto_make_release is called.
+      -- This function calls, change_state, which sets the modifier_id to the
+      -- specified userid, which for auto builds is buildadm.
+      SELECT pv.modifier_id INTO iprev_modifier_id
+      FROM package_versions pv WHERE pv.pv_id = pvid;
+      -- Now release package
+      pk_environment.auto_make_release (pvid,
+                                        rtagid,
+                                        userid,
+                                        vext,
+                                        ssv_ext,
+                                        clonefrompvid
+                                       );
+      -- DEVI-063601
+      -- if it is a planned build then restore the modifier_id to the previous modifier
+      UPDATE package_versions pv SET pv.modifier_id = iprev_modifier_id
+      WHERE pv.pv_id = pvid;
+      --Now clean the PLANNED_VERSIONS table
+      SELECT pkg_id
+        INTO pkgid
+        FROM PACKAGES
+       WHERE pkg_name = pkgname;
+      DELETE FROM planned_versions
+            WHERE pkg_id = pkgid AND pkg_version = newpkgversion;
+      RETURN pvid;
+   END;
+/*-------------------------------------------------------------------------------------------------------*/
+   PROCEDURE import_dependencies (
+      pvid                     IN   NUMBER,
+      dependenciesimportlist   IN   VARCHAR2,
+      userid                   IN   NUMBER
+   )
+   IS
+/*
+|| DependenciesImportList Format:
+|| "pkgA","1.0.0";"pkgB","2.0.0";
+||  OR 'pkgA','1.0.0';'pkgB','2.0.0';
+*/
+      TYPE tdictionary IS TABLE OF VARCHAR2 (4000)
+         INDEX BY VARCHAR2 (4000);
+      seperator         VARCHAR2 (2)           := '||';
+      pkgname           VARCHAR2 (4000);
+      pkgversion        VARCHAR2 (4000);
+      buildtype         VARCHAR2 (50);
+      pkgid             NUMBER;
+      vext              VARCHAR2 (4000);
+      dpvid             NUMBER;
+      slist             VARCHAR2 (4000);
+      cbuildtypes       tdictionary;
+      dependencyrow     NUMBER;
+      sdependency       VARCHAR2 (4000);
+      first_pos         VARCHAR2 (4000);
+      second_pos        VARCHAR2 (4000);
+      third_pos         VARCHAR2 (4000);
+      forth_pos         VARCHAR2 (4000);
+      citemcollection   relmgr_varchar2_tab_t  := relmgr_varchar2_tab_t ();
+      CURSOR curbuildtype
+      IS
+         SELECT dpv.pkg_id || seperator || dpv.v_ext AS pkgid_ext,
+                dep.build_type
+           FROM package_dependencies dep, package_versions dpv
+          WHERE dep.pv_id = pvid AND dep.dpv_id = dpv.pv_id;
+      recbuildtype      curbuildtype%ROWTYPE;
+   BEGIN
+      slist := dependenciesimportlist;
+      -- Preformat String
+      IF NOT slist IS NULL
+      THEN
+         slist := REPLACE (slist, ' ');                      -- Remove spaces
+         slist := REPLACE (slist, UTL_TCP.crlf);
+         -- Remove new line and carriage-return characters
+         slist := REPLACE (slist, '''', '"');             -- Replace ' with "
+      END IF;
+      -- Get Current Dependencies
+      OPEN curbuildtype;
+      FETCH curbuildtype
+       INTO recbuildtype;
+      WHILE curbuildtype%FOUND
+      LOOP
+         cbuildtypes (recbuildtype.pkgid_ext) := recbuildtype.build_type;
+         FETCH curbuildtype
+          INTO recbuildtype;
+      END LOOP;
+      CLOSE curbuildtype;
+      -- Separate dependencies with ; separator
+      citemcollection := in_list_varchar2 (slist, ';');
+      BEGIN
+         -- Remove old dependencies
+         DELETE FROM package_dependencies dep
+               WHERE dep.pv_id = pvid;
+         -- Loop through dependencies
+         FOR dependencyrow IN 1 .. citemcollection.COUNT
+         LOOP
+            -- Extract pkg_name and pkg_version
+            sdependency := citemcollection (dependencyrow);
+            first_pos := INSTR (sdependency, '"', 1, 1);
+            second_pos := INSTR (sdependency, '"', 1, 2);
+            third_pos := INSTR (sdependency, '"', 1, 3);
+            forth_pos := INSTR (sdependency, '"', 1, 4);
+            pkgname :=
+               SUBSTR (sdependency,
+                       (first_pos + 1),
+                       (second_pos - first_pos - 1)
+                      );
+            pkgversion :=
+               SUBSTR (sdependency,
+                       (third_pos + 1),
+                       (forth_pos - third_pos - 1)
+                      );
+            -- Dependency must exits to be linked against
+            BEGIN
+               SELECT pv.pv_id, pv.pkg_id, pv.v_ext
+                 INTO dpvid, pkgid, vext
+                 FROM package_versions pv, PACKAGES pkg
+                WHERE pv.pkg_id = pkg.pkg_id
+                  AND pkg.pkg_name = pkgname
+                  AND pv.pkg_version = pkgversion;
+            EXCEPTION
+               WHEN NO_DATA_FOUND
+               THEN
+                  raise_application_error
+                                  (-20000,
+                                      'Dependency ['
+                                   || pkgname
+                                   || ' '
+                                   || pkgversion
+                                   || '] does not exist yet and cannot be used!'
+                                  );
+            END;
+            -- Get Build Type (i.e. BuildPackageArchive or LinkPackageArchive)
+            BEGIN
+               buildtype := cbuildtypes (pkgid || seperator || vext);
+               IF buildtype IS NULL
+               THEN
+                  -- Set build type to LinkPackageArchive by default
+                  buildtype := 'L';
+               END IF;
+            EXCEPTION
+               WHEN NO_DATA_FOUND
+               THEN
+                  buildtype := 'L';
+            END;
+            -- Insert Dependencies
+            update_package_dependency (pvid,
+                                       pkgname,
+                                       pkgversion,
+                                       buildtype,
+                                       userid,
+                                      );
+         END LOOP;
+      END;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION get_package_area (pvid IN NUMBER, rtagid IN NUMBER)
+   FUNCTION return_last_package_version (pkgname IN VARCHAR2, rtagid IN NUMBER)
-      RETURN NUMBER
+      RETURN VARCHAR2
    IS
-      envtab    NUMBER            := -1;
-      CURSOR curarea
-      IS
-         SELECT 2 AS envtab
-           FROM release_content rc
-          WHERE rc.rtag_id = rtagid AND rc.pv_id = pvid
-         UNION
-         SELECT 0 AS envtab
-           FROM work_in_progress wip
-          WHERE wip.rtag_id = rtagid AND wip.pv_id = pvid
-         UNION
-         SELECT 1 AS envtab
-           FROM planned pl
-          WHERE pl.rtag_id = rtagid AND pl.pv_id = pvid;
-      recarea   curarea%ROWTYPE;
+      pkgversion   VARCHAR2 (4000);
    BEGIN
-      OPEN curarea;
+      BEGIN
-      FETCH curarea
+         SELECT pv.pkg_version
-       INTO recarea;
+           INTO pkgversion
-      IF curarea%FOUND
+           FROM PACKAGES pkg, release_content rc, package_versions pv
-      THEN
+          WHERE pv.pv_id = rc.pv_id
-         envtab := recarea.envtab;
+            AND pkg.pkg_id = pv.pkg_id
-      END IF;
+            AND pkg.pkg_name = pkgname
-      CLOSE curarea;
+            AND rc.rtag_id = rtagid;
-      RETURN envtab;
+         RETURN pkgversion;
+      END;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION get_view_location (pvid IN NUMBER, rtagid IN NUMBER)
+   FUNCTION return_wip (pkgname IN VARCHAR2, rtagid IN NUMBER)
-      RETURN NUMBER
+      RETURN VARCHAR2
    IS
-      ispatch   package_versions.dlocked%TYPE;
+      pkgversion   VARCHAR2 (4000);
-      viewid    NUMBER                          := -1;
-      CURSOR curview
-      IS
+   BEGIN
-         SELECT rc.base_view_id AS view_id
-           FROM release_content rc
-          WHERE rc.rtag_id = rtagid AND rc.pv_id = pvid
-         UNION
-         SELECT wip.view_id AS view_id
-           FROM work_in_progress wip
-          WHERE wip.rtag_id = rtagid AND wip.pv_id = pvid
-         UNION
-         SELECT pl.view_id AS view_id
-           FROM planned pl
-          WHERE pl.rtag_id = rtagid AND pl.pv_id = pvid;
-      recview   curview%ROWTYPE;
-   BEGIN
+      BEGIN
-      -- Get dlock state
-      SELECT pv.is_patch
+         SELECT pv.pkg_version
-        INTO ispatch
+           INTO pkgversion
-        FROM package_versions pv
+           FROM PACKAGES pkg, work_in_progress wip, package_versions pv
-       WHERE pv.pv_id = pvid;
+          WHERE pv.pv_id = wip.pv_id
-      -- Decide which view id should package go under.
+            AND pkg.pkg_id = pv.pkg_id
-      IF (ispatch != 'Y') OR (ispatch IS NULL)
-      THEN
-         -- Get VIEW ID of Package
+            AND pkg.pkg_name = pkgname
-         OPEN curview;
-         FETCH curview
-          INTO recview;
+            AND wip.rtag_id = rtagid;
-         IF curview%FOUND
+         IF pkgversion IS NULL
          THEN
-            viewid := recview.view_id;
+            SELECT pv.pkg_version
-         ELSE
+              INTO pkgversion
-            raise_application_error
+              FROM PACKAGES pkg, planned pl, package_versions pv
-               (-20000,
+             WHERE pv.pv_id = pl.pv_id
-                   'Cannot find view_id to proceed. [PvId='
+               AND pkg.pkg_id = pv.pkg_id
-                || pvid
+               AND pkg.pkg_name = pkgname
-                || ']. The current version may not exist in the release anymore.'
-               );
+               AND pl.rtag_id = rtagid;
          END IF;
-         CLOSE curview;
+         RETURN pkgversion;
-      ELSE
-         -- Get VIEW ID of Patch (view id of parent package)
-         SELECT rc.base_view_id
-           INTO viewid
-           FROM release_content rc, package_patches ppv
-          WHERE rc.rtag_id = rtagid
-            AND rc.pv_id = ppv.pv_id
-            AND ppv.patch_id = pvid;
-      END IF;
+      END;
-      RETURN viewid;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE add_package (
+   PROCEDURE update_dash_board (rtagid IN NUMBER)
-      pvid     IN   NUMBER,
-      viewid   IN   NUMBER,
-      rtagid   IN   NUMBER,
-      userid   IN   NUMBER
-   )
    IS
-      dlocked   package_versions.dlocked%TYPE;
+      projid       NUMBER;
-      envtab    NUMBER;
+      projiddb     NUMBER;
+      total        NUMBER;
+      auto_total   NUMBER;
+      rtagiddb     NUMBER;
    BEGIN
-      IF can_edit_pkg_in_project (pvid, rtagid) = 1
-      THEN
-         -- Get dlock state
-         SELECT pv.dlocked
+      SELECT COUNT (*)
-           INTO dlocked
+        INTO total
-           FROM package_versions pv
+        FROM release_content rc, package_versions pv
-          WHERE pv.pv_id = pvid;
+       WHERE pv.pv_id = rc.pv_id AND rc.rtag_id = rtagid;
+      SELECT COUNT (*)
-         -- Get which area should go under
+        INTO auto_total
-         envtab := select_environment_area (dlocked);
+        FROM release_content rc, package_versions pv
-         -- Log
+       WHERE pv.pv_id = rc.pv_id
-         log_action (pvid, 'action', userid, 'Start of Package Add...');
+         AND pv.is_autobuildable = 'Y'
+         AND rc.rtag_id = rtagid;
-         -- Remove Package
+      BEGIN
-         IF envtab = 0
+         SELECT rtag_id
-         THEN
+           INTO rtagiddb
-            -- WORK IN PROGRESS --
+           FROM dash_board
-            pk_work_in_progress.add_package (pvid, viewid, rtagid, userid);
+          WHERE rtag_id = rtagid;
-         ELSIF envtab = 1
+         SELECT proj_id
-         THEN
+           INTO projiddb
-            -- PENDING --
+           FROM dash_board
-            pk_planned.add_package (pvid, viewid, rtagid, userid);
+          WHERE rtag_id = rtagid;
+      EXCEPTION
-         ELSIF envtab = 2
+         WHEN NO_DATA_FOUND
          THEN
-            -- RELEASED --
+            rtagiddb := '';
+      END;
-            -- NOTE: this package will be replaced with matching package
+      IF rtagiddb IS NULL
+      THEN
-            pk_release.add_package (pvid, viewid, rtagid, userid);
+         SELECT proj_id
-            -- Now do post Release Actions
+           INTO projid
-            pk_release.run_post_actions (pvid, rtagid);
+           FROM release_tags
-         END IF;
+          WHERE rtag_id = rtagid;
+         INSERT INTO dash_board
+                     (proj_id, rtag_id, last_build_time, automated_packages,
+                      total_packages
+                     )
+              VALUES (projid, rtagid, ora_sysdatetime, auto_total,
+                      total
+                     );
-         -- Log
+      ELSE
+         UPDATE dash_board
+            SET last_build_time = ora_sysdatetime,
+                automated_packages = auto_total,
+                total_packages = total
-         log_action (pvid, 'action', userid, 'End of Package Add...');
+          WHERE proj_id = projiddb AND rtag_id = rtagiddb;
       END IF;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE add_package_bulk (
+   FUNCTION exclude_from_build (
-      pvidlist   IN   VARCHAR2,
+      pvid          IN   NUMBER,
-      viewid     IN   NUMBER,
+      spkgversion   IN   VARCHAR2,
-      rtagid     IN   NUMBER,
+      rtagid        IN   NUMBER,
-      userid     IN   NUMBER
+      username      IN   VARCHAR2
+   )
+      RETURN NUMBER
    IS
-      nidcollector   relmgr_number_tab_t            := relmgr_number_tab_t
+      userid              NUMBER;
-                                                                          ();
+      outerrcode          NUMBER;
-      dlocked        package_versions.dlocked%TYPE;
+      pkgid               NUMBER;
+      CURSOR dnr_duplicate_cur
+      IS
-      pvid           NUMBER;
+         SELECT *
-      envtab         NUMBER;
+           FROM do_not_ripple
+          WHERE pv_id = pvid AND rtag_id = rtagid;
+      dnr_duplicate_rec   dnr_duplicate_cur%ROWTYPE;
    BEGIN
+      outerrcode := -1;       -- Set default return error code to ERROR state
       /*--------------- Business Rules Here -------------------*/
-      IF (pvidlist IS NULL)
+      IF (rtagid IS NULL)
       THEN
-         raise_application_error (-20000,
+         RETURN outerrcode;
-                                  'Please select at least one package.'
+--         raise_application_error (-20000, 'RtagId must be supplied.');
-                                 );
       END IF;
-/*-------------------------------------------------------*/
-      nidcollector := in_list_number (pvidlist);
-      FOR i IN 1 .. nidcollector.COUNT
+      IF (pvid IS NULL)
-      LOOP
+      THEN
-         pvid := nidcollector (i);
+         RETURN outerrcode;
-         add_package (pvid, viewid, rtagid, userid);
+--         raise_application_error (-20000, 'PvId must be supplied.');
-      END LOOP;
+      END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE replace_package (
-      newpvid   IN   NUMBER,
-      oldpvid   IN   NUMBER,
-      rtagid    IN   NUMBER,
-      userid    IN   NUMBER
+      IF (username IS NULL)
-   )
-   IS
+      THEN
-      dlocked        package_versions.dlocked%TYPE;
-      viewid         NUMBER;
-      envtab         NUMBER;
-      ROWCOUNT       NUMBER;
-      creleasemode   CHAR (1);
-      npkgid         NUMBER;
+         RETURN outerrcode;
-   BEGIN
-      /*--------------- Business Rules Here -------------------*/
-      -- Check if oldPvId exists. It could have been removed
+--         raise_application_error (-20000, 'UserName must be supplied.');
-      SELECT COUNT (pv.pv_id)
-        INTO ROWCOUNT
+      END IF;
-        FROM package_versions pv
-       WHERE pv.pv_id = oldpvid;
+      -- Get user_id
+      BEGIN
+         SELECT usr.user_id
+           INTO userid
+           FROM users usr
+          WHERE UPPER (usr.user_name) = UPPER (username)
+            AND usr.is_disabled IS NULL;
+      EXCEPTION
+         WHEN NO_DATA_FOUND
+         THEN
+            RETURN outerrcode;
+--            raise_application_error (-20000,
-/*-------------------------------------------------------*/
+--                                        'UserName '
+--                                     || username
+--                                     || ' is not valid or disabled.'
+--                                    );
+      END;
-      /* This procedure is usually used by "History" option in Release Manager */
+      OPEN dnr_duplicate_cur;
-      -- Get dlock state
-      SELECT pv.dlocked
+      FETCH dnr_duplicate_cur
-        INTO dlocked
+       INTO dnr_duplicate_rec;
-        FROM package_versions pv
-       WHERE pv.pv_id = newpvid;
-      -- Get VIEW_ID ---
+      IF dnr_duplicate_cur%FOUND
-      IF ROWCOUNT = 1
       THEN
-         viewid := get_view_location (oldpvid, rtagid);
-      ELSE
-         -- Set ViewID to default
-         viewid := 7;
+         outerrcode := 0;
       END IF;
-      -- Get which area should go under
+      IF dnr_duplicate_cur%NOTFOUND
-      envtab := select_environment_area (dlocked);
-      -- Log
-      log_action (oldpvid, 'action', userid, 'Start of Package Replace...');
-      -- Replace package
-      IF envtab = 0
       THEN
-         -- WORK IN PROGRESS --
+         /* No duplicate recordset */
+         unripple_package (pvid, rtagid, userid);
+         outerrcode := 0;                            -- Set return to SUCCESS
+      END IF;
-         -- Delete old package
-         pk_work_in_progress.remove_package (oldpvid, rtagid, userid);
-         -- Add new package
+      CLOSE dnr_duplicate_cur;
-         pk_work_in_progress.add_package (newpvid, viewid, rtagid, userid);
-      ELSIF envtab = 1
-      THEN
-         -- PENDING --
-         -- Delete old package
+      SELECT pkg_id
-         pk_planned.remove_package (oldpvid, rtagid, userid);
-         -- Add new package
+        INTO pkgid
-         pk_planned.add_package (newpvid, viewid, rtagid, userid);
-      ELSIF envtab = 2
+        FROM package_versions
-      THEN
-         -- RELEASED --
+       WHERE pv_id = pvid;
-         -- Delete old package
-         pk_release.remove_package (oldpvid, rtagid, userid);
-         -- Add new package
-         pk_release.add_package (newpvid, viewid, rtagid, userid);
-         -- Now do post Release Actions
+      DELETE FROM planned_versions
-         pk_release.run_post_actions (newpvid, rtagid);
+            WHERE pkg_id = pkgid AND pkg_version = spkgversion;
-      END IF;
-      -- Log
+      RETURN outerrcode;
-      log_action (oldpvid, 'action', userid, 'End of Package Replace...');
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION remove_package (
+   FUNCTION exclude_indirect_from_build (
       pvid          IN   NUMBER,
+      spkgversion   IN   VARCHAR2,
       rtagid        IN   NUMBER,
+      username      IN   VARCHAR2,
-      userid        IN   NUMBER,
+      rootpvid      IN   NUMBER,
+      rootcause     IN   VARCHAR2,
-      forceremove   IN   CHAR
+      rootfile      IN   VARCHAR2
+   )
       RETURN NUMBER
    IS
-      envtab        NUMBER;
+      userid              NUMBER;
-      isused        BOOLEAN;
+      outerrcode          NUMBER;
-      recordcount   NUMBER;
+      pkgid               NUMBER;
-   BEGIN
-/*--------------- Business Rules Here -------------------*/
-/*-------------------------------------------------------*/
+      CURSOR dnr_duplicate_cur
+      IS
+         SELECT *
-      -- Find location of package
+           FROM do_not_ripple
-      envtab := get_package_area (pvid, rtagid);
+          WHERE pv_id = pvid AND rtag_id = rtagid;
-      -- Remove Package
+      dnr_duplicate_rec   dnr_duplicate_cur%ROWTYPE;
-      IF envtab = 0
-      THEN
+   BEGIN
-         -- WORK IN PROGRESS --
-         -- Delete package
+      outerrcode := -1;       -- Set default return error code to ERROR state
-         pk_work_in_progress.remove_package (pvid, rtagid, userid);
+      /*--------------- Business Rules Here -------------------*/
-         RETURN 0;
-      ELSIF envtab = 1
+      IF (rtagid IS NULL)
       THEN
-         -- PENDING --
-         -- Delete package
+         RETURN outerrcode;
-         pk_planned.remove_package (pvid, rtagid, userid);
+--         raise_application_error (-20000, 'RtagId must be supplied.');
-         RETURN 0;
+      END IF;
-      ELSIF envtab = 2
+      IF (pvid IS NULL)
       THEN
-         -- RELEASED --
+         RETURN outerrcode;
+--         raise_application_error (-20000, 'PvId must be supplied.');
+      END IF;
-         -- Check if is used by other packages
+      IF (username IS NULL)
+      THEN
-         isused := TRUE;
+         RETURN outerrcode;
+--         raise_application_error (-20000, 'UserName must be supplied.');
+      END IF;
+      -- Get user_id
+      BEGIN
+         SELECT usr.user_id
+           INTO userid
-         IF forceremove = 'N'
+           FROM users usr
+          WHERE UPPER (usr.user_name) = UPPER (username)
+            AND usr.is_disabled IS NULL;
+      EXCEPTION
+         WHEN NO_DATA_FOUND
          THEN
-            SELECT COUNT (pv.pv_id)
-              INTO recordcount
+            RETURN outerrcode;
-              FROM (SELECT dpv.pkg_id, dpv.v_ext
-                      FROM release_content rc,
+--            raise_application_error (-20000,
-                           package_dependencies dep,
+--                                        'UserName '
-                           package_versions dpv
+--                                     || username
-                     WHERE rc.rtag_id = rtagid
-                       AND rc.pv_id = dep.pv_id
-                       AND dep.dpv_id = dpv.pv_id) rdep,
+--                                     || ' is not valid or disabled.'
-                   package_versions pv
+--                                    );
-             WHERE pv.pkg_id = rdep.pkg_id
-               AND NVL (pv.v_ext, '|LINK_A_NULL|') =
-                                             NVL (rdep.v_ext, '|LINK_A_NULL|')
-               AND pv.pv_id = pvid;
+      END;
-            IF recordcount > 0
+     /* No duplicate recordset */
-            THEN
-               RETURN 1;                    -- Return 1 as package being used
+     unripple_package_indirect (pvid, rtagid, userid, rootpvid, rootcause, rootfile);
-            ELSE
-               isused := FALSE;
+     outerrcode := 0;                            -- Set return to SUCCESS
-            END IF;
-         END IF;
-         IF forceremove = 'Y' OR NOT isused
-         THEN
+      SELECT pkg_id
-            -- Delete old package
+        INTO pkgid
-            pk_release.remove_package (pvid, rtagid, userid);
-            -- Now do post Release Actions
+        FROM package_versions
-            pk_release.run_post_actions (pvid, rtagid);
-            RETURN 0;
+       WHERE pv_id = pvid;
-         END IF;
-      END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE get_environment_items (
-      viewtype           IN       NUMBER,
-      userid             IN       NUMBER,
-      rtagid             IN       NUMBER,
-      sviewidshowlist    IN       VARCHAR2,
-      ntruerecordcount   OUT      NUMBER,
-      recordset          OUT      typecur
-   )
-   IS
-   BEGIN
-      -- Get true record count because views can give false count
-      SELECT COUNT (pl.pv_id)
+      DELETE FROM planned_versions
-        INTO ntruerecordcount
-        FROM environment_view pl
-       WHERE pl.rtag_id = rtagid;
+            WHERE pkg_id = pkgid AND pkg_version = spkgversion;
-      IF viewtype = 1
-      THEN
-         /*--- GUEST VIEW ---*/
-         OPEN recordset FOR
-            SELECT   *
-                FROM (
-                      /* Base Views collapsed */
-                      SELECT DISTINCT vi.view_id, vi.view_name,
-                                      TO_NUMBER (NULL) AS pkg_state,
-                                      TO_NUMBER (NULL) AS deprecated_state,
-                                      TO_NUMBER (NULL) AS pv_id,
-                                      NULL AS pkg_name, NULL AS pkg_version,
-                                      NULL AS dlocked, NULL AS pv_description
-                                 FROM environment_view rel, views vi
-                                WHERE rel.view_id = vi.view_id
-                                  AND rtag_id = rtagid
-                                  AND rel.view_id NOT IN (
-                                         SELECT *
-                                           FROM THE
-                                                   (SELECT CAST
-                                                              (in_list_number
-                                                                  (sviewidshowlist
-                                                                  ) AS relmgr_number_tab_t
-                                                              )
-                                                      FROM DUAL
-                                                   ))
-                      UNION
-                      /* Base Views expanded */
-                      SELECT vi.view_id, vi.view_name,
-                             DECODE (rel.pkg_state,
-                                     NULL, 0,
-                                     rel.pkg_state
-                                    ) AS pkg_state,
-                             rel.deprecated_state, pv.pv_id, pkg.pkg_name,
-                             pv.pkg_version, pv.dlocked, pv.pv_description
-                        FROM environment_view rel,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             views vi
-                       WHERE pv.pkg_id = pkg.pkg_id
-                         AND rel.pv_id = pv.pv_id
-                         AND rel.view_id = vi.view_id
-                         AND rel.view_id IN (
-                                SELECT *
-                                  FROM THE
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                         AND rtag_id = rtagid) ord
-            ORDER BY UPPER (ord.view_name), UPPER (ord.pkg_name);
-      ELSIF viewtype = 2
+      RETURN outerrcode;
-      THEN
-         /*--- PERSONAL VIEW ---*/
-         OPEN recordset FOR
-            SELECT   *
-                FROM (
-                      /* Base Views collapsed */
-                      SELECT DISTINCT vi.view_id, vi.view_name,
-                                      TO_NUMBER (NULL) AS pkg_state,
-                                      TO_NUMBER (NULL) AS deprecated_state,
-                                      TO_NUMBER (NULL) AS pv_id,
-                                      NULL AS pkg_name, NULL AS pkg_version,
-                                      NULL AS dlocked, NULL AS pv_description
-                                 FROM environment_view rel,
-                                      view_settings vs,
-                                      views vi
-                                WHERE rel.view_id = vi.view_id
-                                  AND vs.view_id = rel.view_id
-                                  AND vs.user_id = userid
-                                  AND rtag_id = rtagid
-                                  AND rel.view_id NOT IN (
-                                         SELECT *
-                                           FROM THE
-                                                   (SELECT CAST
-                                                              (in_list_number
-                                                                  (sviewidshowlist
-                                                                  ) AS relmgr_number_tab_t
-                                                              )
-                                                      FROM DUAL
-                                                   ))
-                      UNION
-                      /* Base Views expanded */
-                      SELECT vi.view_id, vi.view_name,
-                             DECODE (rel.pkg_state,
-                                     NULL, 0,
-                                     rel.pkg_state
-                                    ) AS pkg_state,
-                             rel.deprecated_state, pv.pv_id, pkg.pkg_name,
-                             pv.pkg_version, pv.dlocked, pv.pv_description
-                        FROM environment_view rel,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             views vi,
-                             view_settings vs
-                       WHERE pv.pkg_id = pkg.pkg_id
-                         AND rel.pv_id = pv.pv_id
-                         AND rel.view_id = vi.view_id
-                         AND vs.view_id = vi.view_id
-                         AND vs.user_id = userid
-                         AND rel.view_id IN (
-                                SELECT *
-                                  FROM THE
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                         AND rtag_id = rtagid
-                      UNION
-                      /* Private Views collapsed */
-                      SELECT vi.view_id, vi.view_name,
-                             TO_NUMBER (NULL) AS pkg_state,
-                             TO_NUMBER (NULL) AS deprecated_state,
-                             TO_NUMBER (NULL) AS pv_id, NULL AS pkg_name,
-                             NULL AS pkg_version, NULL AS dlocked,
-                             NULL AS pv_description
-                        FROM view_settings vs,
-                             view_def vd,
-                             views vi,
-                             environment_view rel,
-                             package_versions pv
-                       WHERE vs.view_id = vi.view_id
-                         AND rel.pv_id = pv.pv_id
-                         AND vd.pkg_id = pv.pkg_id
-                         AND vd.view_id = vi.view_id
-                         AND vi.base_view = 'N'
-                         AND rel.rtag_id = rtagid
-                         AND vs.user_id = userid
-                         AND vi.view_id NOT IN (
-                                SELECT *
-                                  FROM THE
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                      UNION
-                      /* Private Views expanded */
-                      SELECT vi.view_id, vi.view_name,
-                             DECODE (rel.pkg_state,
-                                     NULL, 0,
-                                     rel.pkg_state
-                                    ) AS pkg_state,
-                             rel.deprecated_state, pv.pv_id, pkg.pkg_name,
-                             pv.pkg_version, pv.dlocked, pv.pv_description
-                        FROM users usr,
-                             view_settings vs,
-                             view_def vd,
-                             views vi,
-                             environment_view rel,
-                             PACKAGES pkg,
-                             package_versions pv
-                       WHERE vs.user_id = usr.user_id
-                         AND vs.view_id = vi.view_id
-                         AND vd.view_id = vi.view_id
-                         AND pv.pkg_id = pkg.pkg_id
-                         AND rel.pv_id = pv.pv_id
-                         AND rel.rtag_id = rtagid
-                         AND vd.pkg_id = pkg.pkg_id
-                         AND vi.base_view = 'N'
-                         AND vi.view_id IN (
-                                SELECT *
-                                  FROM THE
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                         AND usr.user_id = userid) ord
-            ORDER BY UPPER (ord.view_name), UPPER (ord.pkg_name);
-      END IF;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE get_released_items (
-      viewtype           IN       NUMBER,
-      userid             IN       NUMBER,
-      rtagid             IN       NUMBER,
-      sviewidshowlist    IN       VARCHAR2,
+   PROCEDURE insert_abt_actionlog (rconid IN NUMBER, action IN VARCHAR2)
-      ntruerecordcount   OUT      NUMBER,
-      recordset          OUT      typecur
-   )
    IS
    BEGIN
-      -- Get true record count because views can give false count
-      SELECT COUNT (rc.pv_id)
-        INTO ntruerecordcount
+      INSERT INTO abt_action_log
-        FROM release_content rc
-       WHERE rc.rtag_id = rtagid;
-      IF viewtype = 1
-      THEN
-         /*--- GUEST VIEW ---*/
-         OPEN recordset FOR
-            SELECT   *
-                FROM (
-                      /* Base Views collapsed */
-                      SELECT DISTINCT vi.view_id, vi.view_name,
-                                      TO_NUMBER (NULL) AS pkg_state,
-                                      TO_NUMBER (NULL) AS deprecated_state,
-                                      TO_NUMBER (NULL) AS pv_id,
-                                      NULL AS pkg_name, NULL AS pkg_version,
-                                      NULL AS dlocked, NULL AS pv_description
-                                 FROM release_content rel, views vi
-                                WHERE rel.base_view_id = vi.view_id
-                                  AND rtag_id = rtagid
-                                  AND rel.base_view_id NOT IN (
-                                         SELECT *
-                                           FROM THE
-                                                   (SELECT CAST
-                                                              (in_list_number
-                                                                  (sviewidshowlist
-                                                                  ) AS relmgr_number_tab_t
-                                                              )
-                                                      FROM DUAL
-                                                   ))
-                      UNION
-                      /* Base Views expanded */
-                      SELECT vi.view_id, vi.view_name, rel.pkg_state,
-                             rel.deprecated_state, pv.pv_id, pkg.pkg_name,
-                             pv.pkg_version, pv.dlocked, pv.pv_description
-                        FROM release_content rel,
-                             PACKAGES pkg,
-                             package_versions pv,
+                  (rcon_id, action_datetime, action
-                             views vi
-                       WHERE pv.pkg_id = pkg.pkg_id
-                         AND rel.pv_id = pv.pv_id
-                         AND rel.base_view_id = vi.view_id
-                         AND rel.base_view_id IN (
-                                SELECT *
-                                  FROM THE
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                         AND rtag_id = rtagid) ord
-            ORDER BY UPPER (ord.view_name), UPPER (ord.pkg_name);
-      ELSIF viewtype = 2
-      THEN
-         /*--- PERSONAL VIEW ---*/
-         OPEN recordset FOR
-            SELECT   *
-                FROM (
+                  )
-                      /* Base Views collapsed */
-                      SELECT DISTINCT vi.view_id, vi.view_name,
-                                      TO_NUMBER (NULL) AS pkg_state,
-                                      TO_NUMBER (NULL) AS deprecated_state,
-                                      TO_NUMBER (NULL) AS pv_id,
-                                      NULL AS pkg_name, NULL AS pkg_version,
-                                      NULL AS dlocked, NULL AS pv_description
-                                 FROM release_content rel,
-                                      view_settings vs,
-                                      views vi
-                                WHERE rel.base_view_id = vi.view_id
-                                  AND vs.view_id = rel.base_view_id
-                                  AND vs.user_id = userid
-                                  AND rtag_id = rtagid
-                                  AND rel.base_view_id NOT IN (
-                                         SELECT *
-                                           FROM THE
-                                                   (SELECT CAST
-                                                              (in_list_number
-                                                                  (sviewidshowlist
-                                                                  ) AS relmgr_number_tab_t
-                                                              )
-                                                      FROM DUAL
-                                                   ))
-                      UNION
-                      /* Base Views expanded */
-                      SELECT vi.view_id, vi.view_name, rel.pkg_state,
-                             rel.deprecated_state, pv.pv_id, pkg.pkg_name,
-                             pv.pkg_version, pv.dlocked, pv.pv_description
-                        FROM release_content rel,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             views vi,
-                             view_settings vs
-                       WHERE pv.pkg_id = pkg.pkg_id
-                         AND rel.pv_id = pv.pv_id
-                         AND rel.base_view_id = vi.view_id
-                         AND vs.view_id = vi.view_id
-                         AND vs.user_id = userid
-                         AND rel.base_view_id IN (
-                                SELECT *
-                                  FROM THE
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                         AND rtag_id = rtagid
-                      UNION
-                      /* Private Views collapsed */
-                      SELECT vi.view_id, vi.view_name,
-                             TO_NUMBER (NULL) AS pkg_state,
-                             TO_NUMBER (NULL) AS deprecated_state,
-                             TO_NUMBER (NULL) AS pv_id, NULL AS pkg_name,
-                             NULL AS pkg_version, NULL AS dlocked,
-                             NULL AS pv_description
+           VALUES (rconid, ora_sysdatetime, action
-                        FROM view_settings vs,
-                             view_def vd,
-                             views vi,
-                             release_content rel,
-                             package_versions pv
-                       WHERE vs.view_id = vi.view_id
-                         AND rel.pv_id = pv.pv_id
-                         AND vd.pkg_id = pv.pkg_id
-                         AND vd.view_id = vi.view_id
-                         AND vi.base_view = 'N'
-                         AND rel.rtag_id = rtagid
-                         AND vs.user_id = userid
-                         AND vi.view_id NOT IN (
-                                SELECT *
-                                  FROM THE
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                      UNION
+                  );
-                      /* Private Views expanded */
-                      SELECT vi.view_id, vi.view_name, rel.pkg_state,
-                             rel.deprecated_state, pv.pv_id, pkg.pkg_name,
-                             pv.pkg_version, pv.dlocked, pv.pv_description
-                        FROM users usr,
-                             view_settings vs,
-                             view_def vd,
-                             views vi,
-                             release_content rel,
-                             PACKAGES pkg,
-                             package_versions pv
-                       WHERE vs.user_id = usr.user_id
-                         AND vs.view_id = vi.view_id
-                         AND vd.view_id = vi.view_id
-                         AND pv.pkg_id = pkg.pkg_id
-                         AND rel.pv_id = pv.pv_id
-                         AND rel.rtag_id = rtagid
-                         AND vd.pkg_id = pkg.pkg_id
-                         AND vi.base_view = 'N'
-                         AND vi.view_id IN (
-                                SELECT *
-                                  FROM THE
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                         AND usr.user_id = userid) ord
-            ORDER BY UPPER (ord.view_name), UPPER (ord.pkg_name);
-      END IF;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE get_work_in_progress_items (
+   FUNCTION insert_package_metrics (
-      viewtype           IN       NUMBER,
+      rtagid                   IN   NUMBER,
-      userid             IN       NUMBER,
+      pkgname                  IN   VARCHAR2,
-      rtagid             IN       NUMBER,
+      vext                     IN   VARCHAR2,
-      sviewidshowlist    IN       VARCHAR2,
+      metricstring             IN   VARCHAR2
-      ntruerecordcount   OUT      NUMBER,
-      recordset          OUT      typecur
+   )
+      RETURN NUMBER
    IS
-   BEGIN
+      citemcollection          relmgr_varchar2_tab_t  := relmgr_varchar2_tab_t ();
-      -- Get true record count because views can give false count
+      lv_pvid                  NUMBER                 := 0;
-      SELECT COUNT (wip.pv_id)
+      rownumber                NUMBER;
-        INTO ntruerecordcount
+      rowcontent               VARCHAR2(4000);
-        FROM work_in_progress wip
+      metricname               VARCHAR2(1000);
-       WHERE wip.rtag_id = rtagid;
+      metricvalue              VARCHAR2(4000);
+      return_insert_error      NUMBER                 := -1;
+      return_insert_success    NUMBER                 := 0;
-      IF viewtype = 1
+      /* Metrics */
-      THEN
-         /*--- GUEST VIEW ---*/
-         OPEN recordset FOR
-            SELECT   *
-                FROM (
-                      /* Base Views collapsed */
-                      SELECT DISTINCT vi.view_id, vi.view_name,
-                                      TO_NUMBER (NULL) AS pkg_state,
-                                      TO_NUMBER (NULL) AS deprecated_state,
-                                      TO_NUMBER (NULL) AS pv_id,
-                                      NULL AS pkg_name, NULL AS pkg_version,
-                                      NULL AS dlocked, NULL AS pv_description
-                                 FROM work_in_progress rel, views vi
-                                WHERE rel.view_id = vi.view_id
-                                  AND rtag_id = rtagid
-                                  AND rel.view_id NOT IN (
-                                         SELECT *
-                                           FROM THE
-                                                   (SELECT CAST
-                                                              (in_list_number
-                                                                  (sviewidshowlist
-                                                                  ) AS relmgr_number_tab_t
-                                                              )
-                                                      FROM DUAL
-                                                   ))
-                      UNION
-                      /* Base Views expanded */
-                      SELECT vi.view_id, vi.view_name, 0 AS pkg_state,
+      lv_branches                 NUMBER;
-                             --rel.pkg_state,
-                             TO_NUMBER (NULL) AS deprecated_state, pv.pv_id,
-                             pkg.pkg_name, pv.pkg_version, pv.dlocked,
-                             pv.pv_description
-                        FROM work_in_progress rel,
-                             PACKAGES pkg,
+      lv_branchlist               VARCHAR2(4000);
-                             package_versions pv,
-                             views vi
+      lv_codefiles                NUMBER;
-                       WHERE pv.pkg_id = pkg.pkg_id
-                         AND rel.pv_id = pv.pv_id
-                         AND rel.view_id = vi.view_id
-                         AND rel.view_id IN (
-                                SELECT *
+      lv_ignoredfiles             NUMBER;
-                                  FROM THE
+      lv_directories              NUMBER;
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                         AND rtag_id = rtagid) ord
-            ORDER BY UPPER (ord.view_name), UPPER (ord.pkg_name);
-      ELSIF viewtype = 2
-      THEN
-         /*--- PERSONAL VIEW ---*/
-         OPEN recordset FOR
-            SELECT   *
-                FROM (
-                      /* Base Views collapsed */
-                      SELECT DISTINCT vi.view_id, vi.view_name,
-                                      TO_NUMBER (NULL) AS pkg_state,
-                                      TO_NUMBER (NULL) AS deprecated_state,
-                                      TO_NUMBER (NULL) AS pv_id,
-                                      NULL AS pkg_name, NULL AS pkg_version,
-                                      NULL AS dlocked, NULL AS pv_description
-                                 FROM work_in_progress rel,
-                                      view_settings vs,
-                                      views vi
-                                WHERE rel.view_id = vi.view_id
-                                  AND vs.view_id = rel.view_id
-                                  AND vs.user_id = userid
-                                  AND rtag_id = rtagid
-                                  AND rel.view_id NOT IN (
-                                         SELECT *
-                                           FROM THE
-                                                   (SELECT CAST
-                                                              (in_list_number
-                                                                  (sviewidshowlist
-                                                                  ) AS relmgr_number_tab_t
-                                                              )
-                                                      FROM DUAL
-                                                   ))
-                      UNION
-                      /* Base Views expanded */
-                      SELECT vi.view_id, vi.view_name, 0 AS pkg_state,
-                             --rel.pkg_state,
-                             TO_NUMBER (NULL) AS deprecated_state, pv.pv_id,
-                             pkg.pkg_name, pv.pkg_version, pv.dlocked,
-                             pv.pv_description
-                        FROM work_in_progress rel,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             views vi,
-                             view_settings vs
-                       WHERE pv.pkg_id = pkg.pkg_id
-                         AND rel.pv_id = pv.pv_id
-                         AND rel.view_id = vi.view_id
-                         AND vs.view_id = vi.view_id
-                         AND vs.user_id = userid
-                         AND rel.view_id IN (
-                                SELECT *
+      lv_directorydepth           NUMBER;
-                                  FROM THE
+      lv_totalfiles               NUMBER;
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                         AND rtag_id = rtagid
-                      UNION
-                      /* Private Views collapsed */
-                      SELECT vi.view_id, vi.view_name,
-                             TO_NUMBER (NULL) AS pkg_state,
-                             TO_NUMBER (NULL) AS deprecated_state,
-                             TO_NUMBER (NULL) AS pv_id, NULL AS pkg_name,
-                             NULL AS pkg_version, NULL AS dlocked,
-                             NULL AS pv_description
-                        FROM view_settings vs,
-                             view_def vd,
-                             views vi,
-                             work_in_progress rel,
-                             package_versions pv
-                       WHERE vs.view_id = vi.view_id
-                         AND rel.pv_id = pv.pv_id
-                         AND vd.pkg_id = pv.pkg_id
-                         AND vd.view_id = vi.view_id
-                         AND vi.base_view = 'N'
-                         AND rel.rtag_id = rtagid
-                         AND vs.user_id = userid
-                         AND vi.view_id NOT IN (
-                                SELECT *
+      lv_makefiles                NUMBER;
-                                  FROM THE
+      lv_blanklines               NUMBER;
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                      UNION
-                      /* Private Views expanded */
-                      SELECT vi.view_id, vi.view_name, 0 AS pkg_state,
-                             --rel.pkg_state,
-                             TO_NUMBER (NULL) AS deprecated_state, pv.pv_id,
-                             pkg.pkg_name, pv.pkg_version, pv.dlocked,
-                             pv.pv_description
-                        FROM users usr,
-                             view_settings vs,
-                             view_def vd,
-                             views vi,
-                             work_in_progress rel,
-                             PACKAGES pkg,
-                             package_versions pv
-                       WHERE vs.user_id = usr.user_id
-                         AND vs.view_id = vi.view_id
-                         AND vd.view_id = vi.view_id
-                         AND pv.pkg_id = pkg.pkg_id
-                         AND rel.pv_id = pv.pv_id
-                         AND rel.rtag_id = rtagid
-                         AND vd.pkg_id = pkg.pkg_id
-                         AND vi.base_view = 'N'
-                         AND vi.view_id IN (
-                                SELECT *
+      lv_codelines                NUMBER;
-                                  FROM THE
+      lv_commentlines             NUMBER;
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                         AND usr.user_id = userid) ord
-            ORDER BY UPPER (ord.view_name), UPPER (ord.pkg_name);
-      END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE get_pending_items (
-      viewtype           IN       NUMBER,
-      userid             IN       NUMBER,
-      rtagid             IN       NUMBER,
-      sviewidshowlist    IN       VARCHAR2,
-      ntruerecordcount   OUT      NUMBER,
-      recordset          OUT      typecur
-   )
-   IS
    BEGIN
-      -- Get true record count because views can give false count
+      /*--------------- Business Rules Here -------------------*/
-      SELECT COUNT (pl.pv_id)
-        INTO ntruerecordcount
-        FROM planned pl
-       WHERE pl.rtag_id = rtagid;
-      IF viewtype = 1
+      IF (rtagid IS NULL)
-      THEN
-         /*--- GUEST VIEW ---*/
-         OPEN recordset FOR
-            SELECT   *
-                FROM (
-                      /* Base Views collapsed */
-                      SELECT DISTINCT vi.view_id, vi.view_name,
-                                      TO_NUMBER (NULL) AS pkg_state,
-                                      TO_NUMBER (NULL) AS deprecated_state,
-                                      TO_NUMBER (NULL) AS pv_id,
-                                      NULL AS pkg_name, NULL AS pkg_version,
-                                      NULL AS dlocked, NULL AS pv_description
-                                 FROM planned rel, views vi
-                                WHERE rel.view_id = vi.view_id
-                                  AND rtag_id = rtagid
-                                  AND rel.view_id NOT IN (
-                                         SELECT *
-                                           FROM THE
-                                                   (SELECT CAST
-                                                              (in_list_number
-                                                                  (sviewidshowlist
-                                                                  ) AS relmgr_number_tab_t
-                                                              )
-                                                      FROM DUAL
-                                                   ))
-                      UNION
-                      /* Base Views expanded */
-                      SELECT vi.view_id, vi.view_name, 0 AS pkg_state,
-                             --rel.pkg_state,
-                             TO_NUMBER (NULL) AS deprecated_state, pv.pv_id,
-                             pkg.pkg_name, pv.pkg_version, pv.dlocked,
-                             pv.pv_description
-                        FROM planned rel,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             views vi
-                       WHERE pv.pkg_id = pkg.pkg_id
-                         AND rel.pv_id = pv.pv_id
-                         AND rel.view_id = vi.view_id
-                         AND rel.view_id IN (
-                                SELECT *
-                                  FROM THE
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                         AND rtag_id = rtagid) ord
-            ORDER BY UPPER (ord.view_name), UPPER (ord.pkg_name);
-      ELSIF viewtype = 2
       THEN
-         /*--- PERSONAL VIEW ---*/
-         OPEN recordset FOR
+         RETURN return_insert_error;
-            SELECT   *
-                FROM (
-                      /* Base Views collapsed */
-                      SELECT DISTINCT vi.view_id, vi.view_name,
-                                      TO_NUMBER (NULL) AS pkg_state,
-                                      TO_NUMBER (NULL) AS deprecated_state,
-                                      TO_NUMBER (NULL) AS pv_id,
-                                      NULL AS pkg_name, NULL AS pkg_version,
-                                      NULL AS dlocked, NULL AS pv_description
-                                 FROM planned rel, view_settings vs, views vi
-                                WHERE rel.view_id = vi.view_id
-                                  AND vs.view_id = rel.view_id
-                                  AND vs.user_id = userid
-                                  AND rtag_id = rtagid
-                                  AND rel.view_id NOT IN (
-                                         SELECT *
-                                           FROM THE
-                                                   (SELECT CAST
-                                                              (in_list_number
-                                                                  (sviewidshowlist
-                                                                  ) AS relmgr_number_tab_t
-                                                              )
-                                                      FROM DUAL
-                                                   ))
-                      UNION
-                      /* Base Views expanded */
-                      SELECT vi.view_id, vi.view_name, 0 AS pkg_state,
-                             --rel.pkg_state,
-                             TO_NUMBER (NULL) AS deprecated_state, pv.pv_id,
-                             pkg.pkg_name, pv.pkg_version, pv.dlocked,
-                             pv.pv_description
-                        FROM planned rel,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             views vi,
-                             view_settings vs
-                       WHERE pv.pkg_id = pkg.pkg_id
-                         AND rel.pv_id = pv.pv_id
-                         AND rel.view_id = vi.view_id
-                         AND vs.view_id = vi.view_id
-                         AND vs.user_id = userid
-                         AND rel.view_id IN (
-                                SELECT *
-                                  FROM THE
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                         AND rtag_id = rtagid
-                      UNION
-                      /* Private Views collapsed */
-                      SELECT vi.view_id, vi.view_name,
-                             TO_NUMBER (NULL) AS pkg_state,
-                             TO_NUMBER (NULL) AS deprecated_state,
-                             TO_NUMBER (NULL) AS pv_id, NULL AS pkg_name,
-                             NULL AS pkg_version, NULL AS dlocked,
-                             NULL AS pv_description
-                        FROM view_settings vs,
-                             view_def vd,
-                             views vi,
-                             planned rel,
-                             package_versions pv
-                       WHERE vs.view_id = vi.view_id
-                         AND rel.pv_id = pv.pv_id
-                         AND vd.pkg_id = pv.pkg_id
-                         AND vd.view_id = vi.view_id
-                         AND vi.base_view = 'N'
-                         AND rel.rtag_id = rtagid
-                         AND vs.user_id = userid
-                         AND vi.view_id NOT IN (
-                                SELECT *
-                                  FROM THE
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                      UNION
-                      /* Private Views expanded */
-                      SELECT vi.view_id, vi.view_name, 0 AS pkg_state,
-                             --rel.pkg_state,
-                             TO_NUMBER (NULL) AS deprecated_state, pv.pv_id,
-                             pkg.pkg_name, pv.pkg_version, pv.dlocked,
-                             pv.pv_description
-                        FROM users usr,
-                             view_settings vs,
-                             view_def vd,
-                             views vi,
-                             planned rel,
-                             PACKAGES pkg,
-                             package_versions pv
-                       WHERE vs.user_id = usr.user_id
-                         AND vs.view_id = vi.view_id
-                         AND vd.view_id = vi.view_id
-                         AND pv.pkg_id = pkg.pkg_id
-                         AND rel.pv_id = pv.pv_id
-                         AND rel.rtag_id = rtagid
-                         AND vd.pkg_id = pkg.pkg_id
-                         AND vi.base_view = 'N'
-                         AND vi.view_id IN (
-                                SELECT *
-                                  FROM THE
-                                          (SELECT CAST
-                                                     (in_list_number
-                                                              (sviewidshowlist) AS relmgr_number_tab_t
-                                                     )
-                                             FROM DUAL
-                                          ))
-                         AND usr.user_id = userid) ord
-            ORDER BY UPPER (ord.view_name), UPPER (ord.pkg_name);
       END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE get_view_content (
-      rtagid      IN       NUMBER,
-      viewid      IN       NUMBER,
-      recordset   OUT      typecur
-   )
-   IS
-      isbaseview   CHAR (1);
-   BEGIN
-      -- Check if the view is BASE VIEW
-      SELECT vi.base_view
-        INTO isbaseview
-        FROM views vi
-       WHERE vi.view_id = viewid;
-      IF (isbaseview = 'Y')
+      IF (pkgname IS NULL)
       THEN
-         -- Get Base view content
-         OPEN recordset FOR
+         RETURN return_insert_error;
-            SELECT   DECODE (rel.pkg_state,
-                             NULL, 0,
-                             rel.pkg_state
-                            ) AS pkg_state,
-                     rel.deprecated_state, pv.pv_id, pkg.pkg_name,
-                     pv.pkg_version, pv.dlocked, pv.pv_description,
-                     pv.build_type
-                FROM environment_view rel, PACKAGES pkg, package_versions pv
-               WHERE pv.pkg_id = pkg.pkg_id
-                 AND rel.pv_id = pv.pv_id
-                 AND rel.view_id = viewid
-                 AND rel.rtag_id = rtagid
-            ORDER BY UPPER (pkg.pkg_name);
-      ELSE
-         -- Get non base view content
-         OPEN recordset FOR
-            SELECT   DECODE (rel.pkg_state,
-                             NULL, 0,
-                             rel.pkg_state
-                            ) AS pkg_state,
-                     rel.deprecated_state, pv.pv_id, pkg.pkg_name,
-                     pv.pkg_version, pv.dlocked, pv.pv_description,
-                     pv.build_type
-                FROM environment_view rel,
-                     PACKAGES pkg,
-                     package_versions pv,
-                     view_def vd
-               WHERE pv.pkg_id = pkg.pkg_id
-                 AND rel.pv_id = pv.pv_id
-                 AND rel.rtag_id = rtagid
-                 AND vd.view_id = viewid
-                 AND vd.pkg_id = pv.pkg_id
-            ORDER BY UPPER (pkg.pkg_name);
       END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   FUNCTION get_package_view (pvid IN NUMBER, rtagid IN NUMBER)
-      RETURN NUMBER
-   IS
-      envtab             NUMBER;
-      returnvalue        NUMBER;
-      return_not_found   NUMBER := -1;
-   BEGIN
-      envtab := get_package_area (pvid, rtagid);
-      IF envtab = 0
+      IF (metricstring IS NULL)
-      THEN
-         -- WORK IN PROGRESS --
-         returnvalue := pk_work_in_progress.get_package_view (pvid, rtagid);
-      ELSIF envtab = 1
-      THEN
-         -- PENDING --
-         returnvalue := pk_planned.get_package_view (pvid, rtagid);
-      ELSIF envtab = 2
       THEN
-         -- RELEASED --
-         returnvalue := pk_release.get_package_view (pvid, rtagid);
-      ELSE
-         -- This may be a Patch not located anywhere but unlocked
-         returnvalue := return_not_found;
+         RETURN return_insert_error;
       END IF;
+      BEGIN
+         SELECT pv.pv_id
-      RETURN returnvalue;
+           INTO lv_pvid
+           FROM package_versions pv, packages pkg, release_content rc
+          WHERE pv.pkg_id = pkg.pkg_id
+            AND rc.rtag_id = rtagid
+            AND pv.pv_id = rc.pv_id
+            AND pkg.pkg_name = pkgname
+            AND NVL (pv.v_ext, '|LINK_A_NULL|') = NVL (vext, '|LINK_A_NULL|');
+      EXCEPTION
+           WHEN NO_DATA_FOUND
+           THEN
+                lv_pvid := 0;
-   END;
+      END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE make_release (pvid IN NUMBER, rtagid IN NUMBER, userid IN NUMBER)
-   IS
-      viewid          NUMBER;
-      envtab          NUMBER;
-      ispatch         CHAR (1) := NULL;
-      buildtype       CHAR (1) := NULL;
-      lastversionid   NUMBER;
-   BEGIN
-      -- Check if package is patch
-      SELECT pv.is_patch, pv.build_type, pv.last_pv_id
-        INTO ispatch, buildtype, lastversionid
+      citemcollection := in_list_varchar2 (metricstring, ';');
-        FROM package_versions pv
-       WHERE pv.pv_id = pvid;
-      -- Get ViewId
-      viewid := get_package_view (pvid, rtagid);
-      -- Remove from current area
-      envtab := pk_environment.get_package_area (pvid, rtagid);
-      -- Make sure that package was in work-in-progress or pending before makeing it release
-      -- Exclude patches, ripple builds
+      FOR rownumber IN 1 .. citemcollection.COUNT
-      IF (envtab < 0)
-      THEN
+      LOOP
-         -- Not found in work-in-progress or pending
+         rowcontent := citemcollection(rownumber);
-         IF (ispatch IS NULL) AND (buildtype = 'M')
+         metricvalue := SUBSTR(rowcontent, (INSTR(rowcontent, '=') + 1));
-         THEN
-            raise_application_error (-20000,
-                                     'This package cannot be released here.'
+         metricname := REGEXP_REPLACE(rowcontent, '=.*$', '');
-                                    );
-         END IF;
-      END IF;
+         IF    metricname = 'ccbranch.count' THEN lv_branches := metricvalue;
+         ELSIF metricname = 'ccbranch.list' THEN lv_branchlist := metricvalue;
+         ELSIF metricname = 'code.files' THEN lv_codefiles := metricvalue;
+         ELSIF metricname = 'code.ignored' THEN lv_ignoredfiles := metricvalue;
+         ELSIF metricname = 'count.dir' THEN lv_directories := metricvalue;
+         ELSIF metricname = 'count.dirdepth' THEN lv_directorydepth := metricvalue;
+         ELSIF metricname = 'count.file' THEN lv_totalfiles := metricvalue;
+         ELSIF metricname = 'count.makefile' THEN lv_makefiles := metricvalue;
+         ELSIF metricname = 'lines.blank' THEN lv_blanklines := metricvalue;
+         ELSIF metricname = 'lines.code' THEN lv_codelines := metricvalue;
+         ELSIF metricname = 'lines.comment' THEN lv_commentlines := metricvalue;
-      -- Log
+         END IF;
-      log_action (pvid, 'action', userid, 'Start of Make Package Release...');
+      END LOOP;
-      IF envtab = 0
+      IF (lv_pvid > 0)
-      THEN
-         -- WORK IN PROGRESS --
-         pk_work_in_progress.remove_package (pvid, rtagid, userid);
-      ELSIF envtab = 1
       THEN
+         -- Delete any existing entries for this package version to makes sure our data is untainted
+         DELETE FROM package_metrics pm
+         WHERE pm.pv_id = lv_pvid;
+         -- Insert the new data into the metrics table
+         INSERT INTO package_metrics
+                     (pv_id, branches, branch_list, code_files, ignored_files, directories, directory_depth,
+                      total_files, makefiles, blank_lines, code_lines, comment_lines, created_stamp
-         -- PENDING --
+                     )
+              VALUES (lv_pvid, lv_branches, lv_branchlist, lv_codefiles, lv_ignoredfiles, lv_directories, lv_directorydepth,
-         pk_planned.remove_package (pvid, rtagid, userid);
+                      lv_totalfiles, lv_makefiles, lv_blanklines, lv_codelines, lv_commentlines, ora_sysdatetime
-      END IF;
+                     );
-      -- Change package state
+         -- Now update the Release_Metrics Table
-      pk_package.change_state (pvid, 'Y', userid);
+         update_release_metrics(rtagid);
-      -- Make sure it is valid BASE VIEW
+         RETURN return_insert_success;
-      IF viewid < 1
-      THEN
+      ELSE
-         viewid := 7;                            -- This is default base view
+         RETURN return_insert_error;
       END IF;
+   END;
+/*-------------------------------------------------------------------------------------------------------*/
+   PROCEDURE update_release_metrics (rtagid IN NUMBER)
+   IS
+      lv_totalpackages       NUMBER;
+      lv_autobuilt           NUMBER;
+      lv_linesofcode         NUMBER;
+      lv_unittested          NUMBER;
+      lv_autotested          NUMBER;
+      lv_numOfbranches       NUMBER;
+      lv_lastbuildtime       DATE;
+   BEGIN
-      IF (ispatch IS NULL)
+      IF (rtagid > 0)
       THEN
+         -- Get the total number of packages in this release and the number of
-         -- Add package to new area
+         -- those that are autobuilt
+         SELECT COUNT (DISTINCT rc.pv_id),
+                COUNT (DISTINCT autobuilt_qry.pv_id)
-         pk_release.add_package (pvid, viewid, rtagid, userid);
+           INTO lv_totalpackages, lv_autobuilt
+           FROM release_content rc,
+                package_versions pv,
-      END IF;
+                (
+                 SELECT rc.pv_id
+                   FROM release_content rc,
+                        package_versions pv
+                  WHERE pv.is_autobuildable = 'Y'
+                    AND pv.pv_id = rc.pv_id
+                    AND rc.rtag_id = rtagid
+                ) autobuilt_qry
+          WHERE pv.pv_id = rc.pv_id
+            AND rc.rtag_id = rtagid
+            AND autobuilt_qry.pv_id (+) = rc.pv_id;
+         -- Get the build time of the last package built in this release and the
+         -- total number of lines of code
-      -- Now do post Release Actions
+         SELECT MAX(pm.created_stamp),
+                SUM(pm.code_lines)
+           INTO lv_lastbuildtime, lv_linesofcode
+           FROM package_metrics pm, release_content rc
+          WHERE pm.pv_id = rc.pv_id
-      pk_release.run_post_actions (pvid, rtagid);
+            AND rc.rtag_id = rtagid;
-      -- Now delete old version from DO_NOT_RIPPLE Table if it Exists
+         -- Get the number of packages with unit tests in this release and the
+         -- number of those that are autotested
+         SELECT COUNT(DISTINCT ut.pv_id) INTO lv_unittested
-      DELETE FROM do_not_ripple
+           FROM unit_tests ut,
+                release_content rc
-            WHERE rtag_id = rtagid AND pv_id = lastversionid;
+          WHERE ut.pv_id = rc.pv_id
+            AND rc.rtag_id = rtagid
+        AND ut.test_types_fk != 1;
-      -- Now delete old version from ADVISORY_RIPPLES Table if it Exists
+        SELECT COUNT(DISTINCT ut.pv_id) INTO lv_autotested
-      DELETE FROM advisory_ripple
+          FROM unit_tests ut,
+               release_content rc
-            WHERE rtag_id = rtagid AND pv_id = lastversionid;
+         WHERE ut.pv_id = rc.pv_id
+           AND rc.rtag_id = rtagid
+           AND ut.test_types_fk = 7;
-      -- Log
-      log_action (pvid, 'action', userid, 'End of Make Package Release...');
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
+         -- Count the number of unique branches in the packages in this release.
-   PROCEDURE auto_make_release (
+--         SELECT COUNT(DISTINCT branch) INTO lv_numOfbranches
-      pvid            IN   NUMBER,
+--           FROM (
-      rtagid          IN   NUMBER,
+--                SELECT pv_id,
-      userid          IN   NUMBER,
+--                       regexp_substr(str, '[^,]+', 1, level) branch,
-      vext            IN   package_versions.v_ext%TYPE,
+--                       level lv,
-      ssv_ext         IN   package_versions.v_ext%TYPE,
+--                       lag(level, 1, 0) over (partition by pv_id order by level) lg
-      clonefrompvid   IN   NUMBER
+--                  FROM (
-   )
-   IS
-      viewid          NUMBER;
+--                       SELECT pm.pv_id,
-      envtab          NUMBER;
+--                              ','||pm.branch_list str
-      ispatch         CHAR (1) := NULL;
+--                         FROM package_metrics pm,
-      buildtype       CHAR (1) := NULL;
+--                              release_content rc
-      lastversionid   NUMBER;
+--                        WHERE pm.pv_id = rc.pv_id
-   BEGIN
-      -- Check if package is patch
+--                          AND rc.rtag_id = rtagid
-      SELECT pv.is_patch, pv.build_type, pv.last_pv_id
+--                       )
-        INTO ispatch, buildtype, lastversionid
+--                CONNECT BY regexp_substr(str, '[^,]+', 1, LEVEL) IS NOT NULL
-        FROM package_versions pv
+--                )
-       WHERE pv.pv_id = pvid;
+--          WHERE lv != lg;
-      IF vext <> ssv_ext
-      THEN
-         -- Get ViewId
+         UPDATE release_metrics rm
-         viewid := get_package_view (clonefrompvid, rtagid);
+            SET rm.total_packages = lv_totalpackages,
-         -- Remove from current area
+                rm.autobuilt = lv_autobuilt,
-         envtab := pk_environment.get_package_area (clonefrompvid, rtagid);
+                rm.lines_of_code = lv_linesofcode,
-      ELSE
-         -- Get ViewId
+                rm.unit_tested = lv_unittested,
-         viewid := get_package_view (pvid, rtagid);
+                rm.autotested = lv_autotested,
-         -- Remove from current area
+--                rm.branches = lv_numOfbranches,
-         envtab := pk_environment.get_package_area (pvid, rtagid);
+                rm.last_build_time = lv_lastbuildtime
-      END IF;
+          WHERE rtag_id = rtagid;
-      -- Make sure that package was in work-in-progress or pending before makeing it release
-      -- Exclude patches, ripple builds
-      IF (envtab < 0)
+         IF (SQL%ROWCOUNT = 0)
-      THEN
-         -- Not found in work-in-progress or pending
-         IF (ispatch IS NULL) AND (buildtype = 'M')
          THEN
-            raise_application_error (-20000,
+            INSERT INTO release_metrics
-                                     'This package cannot be released here.'
+                        (rtag_id, total_packages, autobuilt, lines_of_code, unit_tested,
+                         autotested, last_build_time
+                        )
+                 VALUES (rtagid, lv_totalpackages, lv_autobuilt, lv_linesofcode, lv_unittested,
+                         lv_autotested, lv_lastbuildtime
-                                    );
+                        );
          END IF;
+--         IF (SQL%ROWCOUNT = 0)
+--         THEN
+--            INSERT INTO release_metrics
+--                        (rtag_id, total_packages, autobuilt, lines_of_code, unit_tested,
+--                         autotested, branches, last_build_time
+--                        )
+--                 VALUES (rtagid, lv_totalpackages, lv_autobuilt, lv_linesofcode, lv_unittested,
+--                         lv_autotested, lv_numOfbranches, lv_lastbuildtime
+--                        );
+--         END IF;
+--      ELSE
+--         raise_application_error (-20000, 'RtagId must be supplied.');
       END IF;
+   END;
+/*-------------------------------------------------------------------------------------------------------*/
+   FUNCTION return_vcs_tag(pvid IN NUMBER) RETURN VARCHAR2
+   IS
+      vcstypeid    NUMBER;
+      vcstag       VARCHAR2(32);
+      label        VARCHAR2(60);
+      srcpath      VARCHAR2(2000);
+      vcstypeid_cc NUMBER;
+      vcstypeid_uc NUMBER;
+   BEGIN
+      -- Get the VCS_TYPE_ID for the ClearCase version control system. We do this so that we make no assumptions about
+      -- what the primary key value is for the ClearCase VCS entry.
+      BEGIN
+         SELECT vt.vcs_type_id
+         INTO vcstypeid_cc
+         FROM VCS_TYPE vt
+         WHERE vt.tag = 'CC';
+         EXCEPTION
+            WHEN NO_DATA_FOUND THEN
+               raise_application_error (-20000, 'Database is missing compulsory CC version control system tag!');
+      END;
+      -- Get the VCS_TYPE_ID for the Uncontrolled version control system. We do this so that we make no assumptions about
+      -- what the primary key value is for the Uncontrolled VCS entry.
-      -- Log
+      BEGIN
+         SELECT vt.vcs_type_id
+         INTO vcstypeid_uc
+         FROM VCS_TYPE vt
+         WHERE vt.tag = 'UC';
+         EXCEPTION
+            WHEN NO_DATA_FOUND THEN
-      log_action (pvid, 'action', userid, 'Start of Make Package Release...');
+               raise_application_error (-20000, 'Database is missing compulsory UC version control system tag!');
+      END;
-      IF vext <> ssv_ext
+      -- Get the PKG_LABEL, SRC_PATH, VCS_TYPE_ID for the package version
-      THEN
-         IF envtab = 0
+      -- As additional VCS types are introduced, we may have to extend what this SELECT statement returns
-         THEN
+      BEGIN
-            -- WORK IN PROGRESS --
+         SELECT pv.pkg_label, pv.src_path,
-            pk_work_in_progress.remove_package (clonefrompvid, rtagid,
+           (CASE WHEN pv.pkg_label = 'N/A' AND pv.vcs_type_id IS NULL THEN vcstypeid_uc
-                                                userid);
+                 WHEN pv.vcs_type_id IS NULL THEN vcstypeid_cc
-         ELSIF envtab = 1
+                 ELSE pv.vcs_type_id END) AS vcs_type_id
-         THEN
+         INTO label, srcpath, vcstypeid
-            -- PENDING --
+         FROM PACKAGE_VERSIONS pv
-            pk_planned.remove_package (clonefrompvid, rtagid, userid);
-         ELSIF envtab = 2
+         WHERE pv.pv_id = pvid;
-         THEN
+         EXCEPTION
-            -- RELEASED --
+            WHEN NO_DATA_FOUND THEN
-            pk_release.remove_package (clonefrompvid, rtagid, userid);
+               raise_application_error (-20000, 'Package Version Not Found!');
-         END IF;
+      END;
+      -- Get the VCS TAG for the VCS_TYPE_ID.
-      ELSE
+      BEGIN
-         IF envtab = 0
+         SELECT vt.tag
-         THEN
+         INTO vcstag
-            -- WORK IN PROGRESS --
+         FROM VCS_TYPE vt
-            pk_work_in_progress.remove_package (pvid, rtagid, userid);
-         ELSIF envtab = 1
+         WHERE vt.vcs_type_id = vcstypeid;
-         THEN
+         EXCEPTION
-            -- PENDING --
+            WHEN NO_DATA_FOUND THEN
-            pk_planned.remove_package (pvid, rtagid, userid);
+               raise_application_error (-20000, 'Could not get VCS Tag for the package version!');
-         END IF;
-      END IF;
+      END;
+      -- Return value depending upon which VCS Tag is being used.
+      -- As additional VCS types are introduced, we have to add additional WHEN clauses
-      -- Change package state
+      CASE vcstag
+         WHEN 'CC' THEN
-      pk_package.change_state (pvid, 'Y', userid);
+            RETURN vcstag || '::' || srcpath || '::' || label;
+         WHEN 'SVN' THEN
+            RETURN vcstag || '::' || srcpath || '::' || label;
+         ELSE
+            RETURN vcstag || '::';
+      END CASE;
-      -- Make sure it is valid BASE VIEW
-      IF viewid < 1
-      THEN
+   END;
-         viewid := 7;                            -- This is default base view
+/*-------------------------------------------------------------------------------------------------------*/
-      END IF;
+/*-------------------------------------------------------------------------------------------------------
-      IF (ispatch IS NULL)
+Name:        update_vcs_details
+Description: Updates the Version Control System (vcs) details specified in the vcstag
+             parameter for the specified package version.
+             The specified package vcstag is parsed and split into 3 fields:
+                vcs type, src path, label
+             These fields are then stored for the specified pv_id in the package_versions, table.
+             An action is recorded in the action log and provides information for tracking and
+             for restoring the previous vcs settings if a recovery is required.
-      THEN
+Paramters:
-         -- Add package to new area
+             ipv_id:     Package version identifier
-         pk_release.add_package (pvid, viewid, rtagid, userid);
+             vcstag:     Full version control tag.
+                         Examples:
+                             "SVN::AUPERASVN01/DPG_SWBase/tools/trunk::daf_tools_25.1.7027.cr@1234"
+                            "CC::/DPG_SWBase/tools::daf_tools_25.1.7016.cr"
+             user_id:    Identifier of the user that is performing this function.
+*/
+PROCEDURE update_vcs_details(ipv_id IN NUMBER, vcstag IN VARCHAR2, user_id IN NUMBER)
+   IS
+      ivcs_type_id   NUMBER;
+      svcs_type      VARCHAR2(128);
+      ssrc_path      VARCHAR2(512);
+      spkg_label     VARCHAR2(512);
+      spattern       VARCHAR2(64);
+      saction_desc   VARCHAR2(2048);
+      old_vcs_type   VARCHAR2(128);
+      old_src_path   VARCHAR2(512);
+      old_pkg_label  VARCHAR2(512);
+      old_pkg_vcstag VARCHAR2(1024);
+      i              NUMBER;
+      vcount         NUMBER;
-      END IF;
+   BEGIN
+     -- Split vcs tag into fields: vcs type, src path, label
+     -- Fields are separated by '::'
+     -- e.g "CC::/DPG_SWBase/tools::daf_tools_25.1.7016.cr"
+     -- The below regular expression pattern has groups to achieve this.
-      -- Now do post Release Actions
-      pk_release.run_post_actions (pvid, rtagid);
-      -- Now update the Dash_Board Table
-      pk_rmapi.update_dash_board (rtagid);
+     spattern:= '^([^:]*)::([^:]*)(::(.*))?$';
-      -- Now delete old version from DO_NOT_RIPPLE Table if it Exists
+     --As Oracle 10g does not allow REGEXP_SUBSTR to return a group,
-      DELETE FROM do_not_ripple
+     --REGEXP_REPLACE is used instead (Note: Oracle 11g has this enhancement).
+     SELECT REGEXP_REPLACE(vcstag,spattern, '\1') INTO svcs_type  FROM DUAL;
+     SELECT REGEXP_REPLACE(vcstag,spattern, '\2') INTO ssrc_path  FROM DUAL;
-            WHERE rtag_id = rtagid AND pv_id = lastversionid;
+     SELECT REGEXP_REPLACE(vcstag,spattern, '\4') INTO spkg_label FROM DUAL;
+     -- Validate vcs type
+     BEGIN
-      -- Now delete old version from ADVISORY_RIPPLES Table if it Exists
+       SELECT vc.vcs_type_id INTO ivcs_type_id FROM vcs_type vc WHERE UPPER(svcs_type) = UPPER(vc.tag);
+     EXCEPTION
-      DELETE FROM advisory_ripple
+       WHEN NO_DATA_FOUND THEN
-            WHERE rtag_id = rtagid AND pv_id = lastversionid;
+         raise_application_error (-20000, 'Invalid vcs type: ' || '"' || svcs_type || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
+       --RAISE;
+     END;
-      -- Log
+     -- If Clearcase
+     IF (ivcs_type_id = 2) THEN
+       -- Validate source path
-      log_action (pvid, 'action', userid, 'End of Make Package Release...');
+       IF NOT REGEXP_LIKE(ssrc_path,'^(\\|\/)[a-z]+[0-9a-z_\.\-\\\/ -]*$','i') THEN
+         raise_application_error (-20000, 'Invalid CC src path: ' || '"' || ssrc_path || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
-   END;
+       END IF;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE make_unrelease (pvid IN NUMBER, rtagid IN NUMBER, userid IN NUMBER)
-   IS
-      viewid   NUMBER;
-      envtab   NUMBER;
-   BEGIN
-      -- Get ViewId
+       -- Validate label
-      --ViewId := PK_RELEASE.GET_PACKAGE_VIEW ( PvId, RtagId );
+       -- For clearcase the label must be specified. For subversion it is not required.
-      viewid := get_package_view (pvid, rtagid);
+       IF NOT REGEXP_LIKE(spkg_label,'^[0-9a-z_\.\-]+$','i') THEN
-      -- Remove from current area
-      envtab := pk_environment.get_package_area (pvid, rtagid);
+         raise_application_error (-20000, 'Invalid CC label:' || '"' || spkg_label || '"' || ' for package version:' || ipv_id || ', vcstag:' || '"' || vcstag || '"');
-      -- Log
+       END IF;
-      log_action (pvid,
-                  'action',
-                  userid,
-                  'Start of Make Package UnRelease...'
-                 );
-      IF envtab = 2
+     -- if Subversion
-      THEN
+     ELSIF (ivcs_type_id = 23) THEN
-         -- RELEASE AREA --
+       -- general validity
-         pk_release.remove_package (pvid, rtagid, userid);
+       -- Not as picky as the RM Data entry
-      ELSIF envtab = 1
-      THEN
-         -- PENDING --
+       IF NOT REGEXP_LIKE(ssrc_path,'^([0-9a-z_\.\-]+)(\/([0-9a-z_\.\-]+))+$','i') THEN
-         pk_planned.remove_package (pvid, rtagid, userid);
+         raise_application_error (-20000, 'Invalid SVN src path: ' || '"' || ssrc_path || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
-      END IF;
+       END IF;
+       -- Validate Tag
-      -- Change package state
+       -- May be a Peg or a Label
-      pk_package.change_state (pvid, 'N', userid);
+       IF NOT REGEXP_LIKE(spkg_label,'^@?[0-9]+$','i') THEN
+           IF NOT REGEXP_LIKE(spkg_label,'^[0-9a-z_\.\-]+($|@[0-9]+)','i') THEN
+             raise_application_error (-20000, 'Invalid SVN tag:' || '"' || spkg_label || '"' || ' for package version:' || ipv_id || ', vcstag:' || '"' || vcstag || '"');
+           END IF;
+       END IF;
-      -- Make sure it is valid BASE VIEW
+        -- Check for suitable ending
-      IF viewid < 1
-      THEN
-         viewid := 7;                            -- This is default base view
+        IF NOT REGEXP_LIKE(ssrc_path,'(\/tags$)|(\/branches\/)|(\/trunk$)','i') THEN
+            raise_application_error (-20000, 'Must end in /trunk or /tags/ or /branches/.... Invalid SVN src path: ' || '"' || ssrc_path || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
-      END IF;
+        END IF;
+       -- Check for combined use of tags, branches, trunk or repeats of each
+       -- Count occurrences of /tags or /branches/ or /trunk
+       vcount:=0;
+       i:=1;
-      -- Add package to new area
+       WHILE i > 0 LOOP
-      pk_work_in_progress.add_package (pvid, viewid, rtagid, userid);
+         i:=REGEXP_INSTR(ssrc_path,'(\/tags(\/|$))|(\/branches(\/|$))|(\/trunk(\/|$))',i,1,1,'i');
-      -- Now do post Release Actions
+         IF i > 0 THEN
-      pk_release.run_post_actions (pvid, rtagid);
+           -- if found then increment count
-      -- Log
+           vcount:=vcount+1;
-      log_action (pvid, 'action', userid, 'End of Make Package UnRelease...');
+           i:=i-1;  -- move index back to "/"
+         END IF;
-   END;
+       END LOOP;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE make_pending (pvid IN NUMBER, rtagid IN NUMBER, userid IN NUMBER)
-   IS
-      viewid      NUMBER;
+       IF vcount = 0  THEN
-      ispatch     CHAR (1) := NULL;
+         raise_application_error (-20000, 'Must contain exactly one of the keywords /trunk, /tags, /branches/. Invalid SVN src path: ' || '"' || ssrc_path || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
-      buildtype   CHAR (1) := NULL;
-   BEGIN
+       END IF;
-      -- Check if package is patch
-      SELECT pv.is_patch, pv.build_type
-        INTO ispatch, buildtype
-        FROM package_versions pv
-       WHERE pv.pv_id = pvid;
-      -- Get ViewId
+       IF vcount > 1  THEN
-      viewid := get_package_view (pvid, rtagid);
+         raise_application_error (-20000, 'Combined use of /trunk, /tags, or /branches/. Invalid SVN src path: ' || '"' || ssrc_path || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
-      --ViewId := PK_WORK_IN_PROGRESS.GET_PACKAGE_VIEW ( PvId, RtagId );
+       END IF;
-      -- Log
-      log_action (pvid, 'action', userid, 'Start of Make Package Pending...');
-      IF (ispatch IS NULL)
-      THEN
-         -- Remove from current area
-         pk_work_in_progress.remove_package (pvid, rtagid, userid);
-         -- Change package state
-         pk_package.change_state (pvid, 'P', userid);
-         -- Add package to new area
-         pk_planned.add_package (pvid, viewid, rtagid, userid);
-      END IF;
+     END IF;
-      -- Log
+     BEGIN
-      log_action (pvid, 'action', userid, 'End of Make Package Pending...');
+       -- Get current vcs tag for specified package version
+       SELECT pv.src_path, pv.pkg_label, vc.tag as vcs_type
+       INTO old_src_path, old_pkg_label, old_vcs_type
+       FROM package_versions pv, vcs_type vc
-   END;
+       WHERE pv.pv_id = ipv_id
+       AND pv.vcs_type_id = vc.vcs_type_id (+);
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE make_approved (pvid IN NUMBER, rtagid IN NUMBER, userid IN NUMBER)
-   IS
-   BEGIN
-      -- Log
+     EXCEPTION
-      log_action (pvid,
-                  'action',
+       WHEN NO_DATA_FOUND THEN
-                  userid,
-                  'Start of Package Pending Approval...'
-                 );
-      -- Change package state
-      pk_package.change_state (pvid, 'A', userid);
-      -- Log
-      log_action (pvid, 'action', userid,
-                  'End of Package Pending Approval...');
+         raise_application_error (-20000, 'Package version not found: ' || ipv_id);
-   END;
+     END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE make_reject (pvid IN NUMBER, rtagid IN NUMBER, userid IN NUMBER)
+     old_pkg_vcstag:= old_vcs_type || '::' || old_src_path;
-   IS
-      viewid   NUMBER;
+     IF (old_pkg_label IS NOT NULL) THEN
+       old_pkg_vcstag:=old_pkg_vcstag || '::' || old_pkg_label;
-   BEGIN
+     END IF;
-      -- Get ViewId
-      viewid := get_package_view (pvid, rtagid);
--- ViewId := PK_PLANNED.GET_PACKAGE_VIEW ( PvId, RtagId );
-      -- Log
-      log_action (pvid, 'action', userid, 'Start of Reject Package...');
-      -- Remove from current area
+     -- Create action description
-      pk_planned.remove_package (pvid, rtagid, userid);
+     -- This description will contain the old and new tags.
-      -- Change package state
-      pk_package.change_state (pvid, 'R', userid);
+     -- Its purpose is to provide information for tracking and for restoring previous vcs settings if a recovery is required.
-      -- Add package to new area
+     -- An example of the action description is below:
-      pk_work_in_progress.add_package (pvid, viewid, rtagid, userid);
+     --   OldTag:CC::/DPG_SWBase/tools::daf_tools_25.1.7016.cr NewTag:SVN::DPG_SWBase/tools/tags/daf_tools_25.1.7027.cr
-      -- Log
-      log_action (pvid, 'action', userid, 'Start of Reject Package...');
+     saction_desc:='OldTag:' || old_pkg_vcstag || ' ' || 'NewTag:' || vcstag;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
+     -- Store new vcs details
-   PROCEDURE change_package_view (
+     UPDATE package_versions SET
-      pvid        IN   NUMBER,
+       src_path = ssrc_path,
-      rtagid      IN   NUMBER,
+       pkg_label = spkg_label,
-      newviewid   IN   NUMBER
+       vcs_type_id = ivcs_type_id
-   )
-   IS
+     WHERE
-      envtab   NUMBER;
+       pv_id = ipv_id;
-   BEGIN
-      envtab := pk_environment.get_package_area (pvid, rtagid);
-      IF envtab = 0
-      THEN
-         -- WORK IN PROGRESS --
-         pk_work_in_progress.change_package_view (pvid, rtagid, newviewid);
+     -- Store action in action log so that we can back track and also restore vcs settings if required.
-      ELSIF envtab = 1
-      THEN
-         -- PENDING --
-         pk_planned.change_package_view (pvid, rtagid, newviewid);
-      ELSIF envtab = 2
-      THEN
-         -- RELEASED --
-         pk_release.change_package_view (pvid, rtagid, newviewid);
+     log_action (ipv_id,'VcsConversion',user_id,saction_desc);
-      END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE find_package (
-      skeyword      IN       VARCHAR2,
-      nrtagid       IN       NUMBER,
-      nsearcharea   IN       NUMBER,
-      recordset     OUT      typecur
-   )
-   IS
-   BEGIN
-      IF nsearcharea = 0
+   END update_vcs_details;
-      THEN
-         /* Search Work In Progress */
-         OPEN recordset FOR
-            SELECT   nsearcharea AS env_area, vi.view_name, pv.dlocked,
-                     pkg.pkg_name, pv.pv_id, pv.pkg_version, pv.comments,
-                     pv.modified_stamp, usr.full_name, usr.user_email
-                FROM views vi,
-                     work_in_progress rc,
-                     PACKAGES pkg,
-                     package_versions pv,
-                     users usr
-               WHERE rc.view_id = vi.view_id
-                 AND rc.pv_id = pv.pv_id
-                 AND pkg.pkg_id = pv.pkg_id
-                 AND pv.modifier_id = usr.user_id
-                 AND rc.rtag_id = nrtagid
-                 AND UPPER (pkg.pkg_name) LIKE UPPER (skeyword)
-            ORDER BY UPPER (pkg.pkg_name);
-      ELSIF nsearcharea = 1
-      THEN
-         /* Search Pending */
-         OPEN recordset FOR
-            SELECT   nsearcharea AS env_area, vi.view_name, pv.dlocked,
-                     pkg.pkg_name, pv.pv_id, pv.pkg_version, pv.comments,
-                     pv.modified_stamp, usr.full_name, usr.user_email
-                FROM views vi,
-                     planned rc,
-                     PACKAGES pkg,
-                     package_versions pv,
-                     users usr
-               WHERE rc.view_id = vi.view_id
-                 AND rc.pv_id = pv.pv_id
-                 AND pkg.pkg_id = pv.pkg_id
-                 AND pv.modifier_id = usr.user_id
-                 AND rc.rtag_id = nrtagid
-                 AND UPPER (pkg.pkg_name) LIKE UPPER (skeyword)
-            ORDER BY UPPER (pkg.pkg_name);
-      ELSIF nsearcharea = 2
-      THEN
-         /* Search Released */
-         OPEN recordset FOR
-            SELECT   nsearcharea AS env_area, vi.view_name, pv.dlocked,
-                     pkg.pkg_name, pv.pv_id, pv.pkg_version, pv.comments,
-                     pv.modified_stamp, usr.full_name, usr.user_email
-                FROM views vi,
-                     release_content rc,
-                     PACKAGES pkg,
-                     package_versions pv,
-                     users usr
-               WHERE rc.base_view_id = vi.view_id
-                 AND rc.pv_id = pv.pv_id
-                 AND pkg.pkg_id = pv.pkg_id
-                 AND pv.modifier_id = usr.user_id
-                 AND rc.rtag_id = nrtagid
-                 AND UPPER (pkg.pkg_name) LIKE UPPER (skeyword)
-            ORDER BY UPPER (pkg.pkg_name);
-      ELSIF nsearcharea = 3
-      THEN
-         /* Search ALL */
-         OPEN recordset FOR
-            SELECT   rc.env_area, vi.view_name, pv.dlocked, pkg.pkg_name,
-                     pv.pv_id, pv.pkg_version, pv.comments,
-                     pv.modified_stamp, usr.full_name, usr.user_email
-                FROM views vi,
-                     environment_view rc,
-                     PACKAGES pkg,
-                     package_versions pv,
-                     users usr
-               WHERE rc.view_id = vi.view_id
-                 AND rc.pv_id = pv.pv_id
-                 AND pkg.pkg_id = pv.pkg_id
-                 AND pv.modifier_id = usr.user_id
-                 AND rc.rtag_id = nrtagid
-                 AND UPPER (pkg.pkg_name) LIKE UPPER (skeyword)
-            ORDER BY UPPER (pkg.pkg_name);
-      END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
+/*-------------------------------------------------------------------------------------------------------
-   PROCEDURE find_file (
-      skeyword      IN       VARCHAR2,
-      nrtagid       IN       NUMBER,
-      nsearcharea   IN       NUMBER,
-      npagesize     IN       NUMBER,
-      recordset     OUT      typecur
-   )
-   IS
-   BEGIN
-      IF nsearcharea = 0
-      THEN
-         /* Search Work In Progress */
-         OPEN recordset FOR
-            SELECT   qry.*
-                FROM (
-                      /* File search on Packages */
-                      SELECT art.file_name, art.file_path, pkg.pkg_name,
-                             pv.pv_id, pv.pkg_version, art.crc_cksum
-                        FROM work_in_progress rc,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             release_components art
-                       WHERE rc.pv_id = art.pv_id
-                         AND pv.pkg_id = pkg.pkg_id
-                         AND rc.pv_id = pv.pv_id
-                         AND rc.rtag_id = nrtagid
-                         AND UPPER (art.file_name) LIKE UPPER (skeyword)
-                      UNION ALL
-                      /* File search on Products */
-                      SELECT art.file_name, art.file_path, pkg.pkg_name,
-                             pv.pv_id, pv.pkg_version, art.crc_cksum
-                        FROM work_in_progress rc,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             product_components art
-                       WHERE rc.pv_id = art.pv_id
-                         AND pv.pkg_id = pkg.pkg_id
-                         AND rc.pv_id = pv.pv_id
-                         AND rc.rtag_id = nrtagid
-                         AND UPPER (art.file_name) LIKE UPPER (skeyword)) qry
-               WHERE ROWNUM <= npagesize
-            ORDER BY UPPER (qry.pkg_name);
-      ELSIF nsearcharea = 1
-      THEN
-         /* Search Pending */
-         OPEN recordset FOR
-            SELECT   qry.*
-                FROM (
+Name:        isSVN
-                      /* File search on Packages */
-                      SELECT art.file_name, art.file_path, pkg.pkg_name,
-                             pv.pv_id, pv.pkg_version, art.crc_cksum
+Description: Determine if any of the packages versions are controlled under SVN
-                        FROM planned rc,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             release_components art
-                       WHERE rc.pv_id = art.pv_id
-                         AND pv.pkg_id = pkg.pkg_id
-                         AND rc.pv_id = pv.pv_id
-                         AND rc.rtag_id = nrtagid
-                         AND UPPER (art.file_name) LIKE UPPER (skeyword)
-                      UNION ALL
-                      /* File search on Products */
-                      SELECT art.file_name, art.file_path, pkg.pkg_name,
-                             pv.pv_id, pv.pkg_version, art.crc_cksum
+			 Intended to be used to prevent users from releasing a package
-                        FROM planned rc,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             product_components art
-                       WHERE rc.pv_id = art.pv_id
-                         AND pv.pkg_id = pkg.pkg_id
-                         AND rc.pv_id = pv.pv_id
-                         AND rc.rtag_id = nrtagid
-                         AND UPPER (art.file_name) LIKE UPPER (skeyword)) qry
-               WHERE ROWNUM <= npagesize
-            ORDER BY UPPER (qry.pkg_name);
-      ELSIF nsearcharea = 2
-      THEN
-         /* Search Released */
+			 that has been migrated to SVN
-         OPEN recordset FOR
-            SELECT   qry.*
-                FROM (
-                      /* File search on Packages */
-                      SELECT art.file_name, art.file_path, pkg.pkg_name,
-                             pv.pv_id, pv.pkg_version, art.crc_cksum,
-                             NULL AS patch_id
-                        FROM release_content rc,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             release_components art
-                       WHERE rc.pv_id = art.pv_id
-                         AND pv.pkg_id = pkg.pkg_id
-                         AND rc.pv_id = pv.pv_id
-                         AND rc.rtag_id = nrtagid
-                         AND UPPER (art.file_name) LIKE UPPER (skeyword)
-                      UNION ALL
-                      /* File search on Products */
-                      SELECT art.file_name, art.file_path, pkg.pkg_name,
-                             pv.pv_id, pv.pkg_version, art.crc_cksum,
-                             NULL AS patch_id
-                        FROM release_content rc,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             product_components art
-                       WHERE rc.pv_id = art.pv_id
-                         AND pv.pkg_id = pkg.pkg_id
-                         AND rc.pv_id = pv.pv_id
-                         AND rc.rtag_id = nrtagid
-                         AND UPPER (art.file_name) LIKE UPPER (skeyword)
-                      UNION ALL
-                      /* File search on Patches */
-                      SELECT art.file_name, art.file_path, pkg.pkg_name,
-                             pv.pv_id, pv.pkg_version, art.crc_cksum,
-                             DECODE (art.file_path,
-                                     NULL, pp.patch_id,
-                                     NULL
-                                    ) AS patch_id
-                        FROM release_content rc,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             release_components art,
-                             package_patches pp
-                       WHERE pv.pv_id = pp.pv_id
-                         AND pv.pkg_id = pkg.pkg_id
-                         AND rc.rtag_id = nrtagid
-                         AND art.pv_id = pp.patch_id
-                         AND rc.pv_id = pp.pv_id
-                         AND UPPER (art.file_name) LIKE UPPER (skeyword)) qry
-               WHERE ROWNUM <= npagesize
-            ORDER BY UPPER (qry.pkg_name);
-      ELSIF nsearcharea = 3
-      THEN
-         /* Search ALL */
-         OPEN recordset FOR
-            SELECT   qry.*
-                FROM (
-                      /* File search on Packages */
-                      SELECT art.file_name, art.file_path, pkg.pkg_name,
-                             pv.pv_id, pv.pkg_version, art.crc_cksum,
-                             NULL AS patch_id
-                        FROM environment_view rc,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             release_components art
-                       WHERE rc.pv_id = art.pv_id
-                         AND pv.pkg_id = pkg.pkg_id
-                         AND rc.pv_id = pv.pv_id
-                         AND rc.rtag_id = nrtagid
-                         AND UPPER (art.file_name) LIKE UPPER (skeyword)
-                      UNION ALL
-                      /* File search on Products */
-                      SELECT art.file_name, art.file_path, pkg.pkg_name,
-                             pv.pv_id, pv.pkg_version, art.crc_cksum,
-                             NULL AS patch_id
-                        FROM environment_view rc,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             product_components art
-                       WHERE rc.pv_id = art.pv_id
-                         AND pv.pkg_id = pkg.pkg_id
-                         AND rc.pv_id = pv.pv_id
-                         AND rc.rtag_id = nrtagid
-                         AND UPPER (art.file_name) LIKE UPPER (skeyword)
-                      UNION ALL
-                      /* File search on Patches */
-                      SELECT art.file_name, art.file_path, pkg.pkg_name,
-                             pv.pv_id, pv.pkg_version, art.crc_cksum,
-                             DECODE (art.file_path,
-                                     NULL, pp.patch_id,
-                                     NULL
-                                    ) AS patch_id
-                        FROM release_content rc,
-                             PACKAGES pkg,
-                             package_versions pv,
-                             release_components art,
-                             package_patches pp
-                       WHERE pv.pv_id = pp.pv_id
-                         AND pv.pkg_id = pkg.pkg_id
-                         AND rc.rtag_id = nrtagid
-                         AND art.pv_id = pp.patch_id
-                         AND rc.pv_id = pp.pv_id
-                         AND UPPER (art.file_name) LIKE UPPER (skeyword)) qry
-               WHERE ROWNUM <= npagesize
-            ORDER BY UPPER (qry.pkg_name);
-      END IF;
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE get_prodrelease_items (
-      rtagid             IN       NUMBER,
-      ntruerecordcount   OUT      NUMBER,
-      recordset          OUT      typecur
-   )
-   IS
-   BEGIN
-      -- Get true record count n the number of integration products
-      SELECT COUNT (rc.pv_id)
-        INTO ntruerecordcount
-        FROM release_content rc
-       WHERE rc.rtag_id = rtagid;
-      OPEN recordset FOR
-         SELECT   vi.view_id, vi.view_name, rel.pkg_state,    --rel.pkg_state,
-                  rel.deprecated_state, pv.pv_id, pkg.pkg_name,
-                  pv.pkg_version, pv.dlocked, pv.pv_description
-             FROM release_content rel,
-                  PACKAGES pkg,
-                  package_versions pv,
+Paramters:	pkgid:     Package ID
-                  views vi
-            WHERE pv.pkg_id = pkg.pkg_id
-              AND rel.pv_id = pv.pv_id
-              AND rel.base_view_id = vi.view_id
-              AND pv.is_deployable = 'Y'
-              AND rtag_id = rtagid
-              AND pv.pv_id NOT IN (SELECT DISTINCT prod_id
-                                              FROM deployment_manager.os_contents)
-              AND rel.product_state IS NULL
-         ORDER BY UPPER (vi.view_name), UPPER (pkg.pkg_name);
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE get_integration_items (
+Returns:	Number of versions under SVN version control
+*/
-      rtagid             IN       NUMBER,
+FUNCTION isSVN( pkgid IN NUMBER )
-      ntruerecordcount   OUT      NUMBER,
+    RETURN NUMBER
-      recordset          OUT      typecur
-   )
-   IS
+    IS
+    svncount   NUMBER  := 0;
    BEGIN
-      -- Get true record count n the number of integration products
+        SELECT COUNT(*) INTO svncount FROM PACKAGE_VERSIONS pv WHERE pv.PKG_ID = pkgid AND pv.VCS_TYPE_ID = 23;
-      SELECT COUNT (rc.pv_id)
-        INTO ntruerecordcount
-        FROM release_content rc
+        RETURN (svncount);
-       WHERE rc.rtag_id = rtagid AND rc.product_state = 1;
-      OPEN recordset FOR
-         SELECT   vi.view_id, vi.view_name, rel.pkg_state,
-                  rel.deprecated_state, pv.pv_id, pkg.pkg_name,
-                  pv.pkg_version, pv.dlocked, pv.pv_description
-             FROM release_content rel,
-                  PACKAGES pkg,
-                  package_versions pv,
-                  views vi
-            WHERE pv.pkg_id = pkg.pkg_id
-              AND rel.pv_id = pv.pv_id
-              AND rel.base_view_id = vi.view_id
-              AND pv.is_deployable = 'Y'
-              AND rtag_id = rtagid
-              AND rel.product_state IN (1, 5)
-         ORDER BY UPPER (vi.view_name), UPPER (pkg.pkg_name);
    END;
+/*-------------------------------------------------------------------------------------------------------
+Name:        isSVNbyName
+Description: Determine if any of the packages versions are controlled under SVN
+			 Intended to be used to prevent users from releasing a package
+			 that has been migrated to SVN
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE get_test_items (
-      rtagid             IN       NUMBER,
-      ntruerecordcount   OUT      NUMBER,
-      recordset          OUT      typecur
-   )
-   IS
-   BEGIN
-      -- Get true record count n the number of test products
-      SELECT COUNT (rc.pv_id)
-        INTO ntruerecordcount
-        FROM release_content rc
+Paramters:	pkgname:	Package Name
-       WHERE rc.rtag_id = rtagid AND rc.product_state = 2;
-      OPEN recordset FOR
-         SELECT   vi.view_id, vi.view_name, rel.pkg_state,
-                  rel.deprecated_state, pv.pv_id, pkg.pkg_name,
-                  pv.pkg_version, pv.dlocked, pv.pv_description
-             FROM release_content rel,
-                  PACKAGES pkg,
-                  package_versions pv,
-                  views vi
-            WHERE pv.pkg_id = pkg.pkg_id
-              AND rel.pv_id = pv.pv_id
-              AND rel.base_view_id = vi.view_id
-              AND pv.is_deployable = 'Y'
-              AND rtag_id = rtagid
-              AND rel.product_state = 2
-         ORDER BY UPPER (vi.view_name), UPPER (pkg.pkg_name);
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE get_deploy_items (
-      rtagid             IN       NUMBER,
-      ntruerecordcount   OUT      NUMBER,
-      recordset          OUT      typecur
-   )
-   IS
-   BEGIN
-      -- Get true record count n the number of deploy products
+Returns:	Number of versions under SVN version control
-      SELECT COUNT (rc.pv_id)
-        INTO ntruerecordcount
-        FROM release_content rc
-       WHERE rc.rtag_id = rtagid AND rc.product_state = 3;
+*/
-      OPEN recordset FOR
-         SELECT   vi.view_id, vi.view_name, rel.pkg_state,
-                  rel.deprecated_state, pv.pv_id, pkg.pkg_name,
-                  pv.pkg_version, pv.dlocked, pv.pv_description
-             FROM release_content rel,
-                  PACKAGES pkg,
-                  package_versions pv,
-                  views vi
-            WHERE pv.pkg_id = pkg.pkg_id
-              AND rel.pv_id = pv.pv_id
-              AND rel.base_view_id = vi.view_id
-              AND pv.is_deployable = 'Y'
-              AND rtag_id = rtagid
-              AND rel.product_state IN (3, 5)
-              AND pv.pv_id NOT IN (SELECT DISTINCT prod_id
-                                              FROM deployment_manager.os_contents)
-         ORDER BY UPPER (vi.view_name), UPPER (pkg.pkg_name);
-   END;
-/*-------------------------------------------------------------------------------------------------------*/
-   PROCEDURE get_reject_items (
-      rtagid             IN       NUMBER,
+FUNCTION isSVNbyName( pkgname IN VARCHAR2 )
-      ntruerecordcount   OUT      NUMBER,
+    RETURN NUMBER
-      recordset          OUT      typecur
-   )
+IS
-   IS
+   svncount   NUMBER  := 0;
    BEGIN
-      -- Get true record count n the number of reject products
+        SELECT COUNT(*) INTO svncount FROM PACKAGE_VERSIONS pv, PACKAGES pkg WHERE pkg.pkg_name = pkgname AND pv.PKG_ID = pkg.pkg_id AND pv.VCS_TYPE_ID = 23;
-      SELECT COUNT (rc.pv_id)
+        RETURN (svncount);
-        INTO ntruerecordcount
+   END;
-        FROM release_content rc
-       WHERE rc.rtag_id = rtagid AND rc.product_state = 4;
-      OPEN recordset FOR
-         SELECT   vi.view_id, vi.view_name, rel.pkg_state,
-                  rel.deprecated_state, pv.pv_id, pkg.pkg_name,
-                  pv.pkg_version, pv.dlocked, pv.pv_description
-             FROM release_content rel,
-                  PACKAGES pkg,
-                  package_versions pv,
-                  views vi
-            WHERE pv.pkg_id = pkg.pkg_id
-              AND rel.pv_id = pv.pv_id
-              AND rel.base_view_id = vi.view_id
-              AND pv.is_deployable = 'Y'
-              AND rtag_id = rtagid
-              AND rel.product_state = 4
-         ORDER BY UPPER (vi.view_name), UPPER (pkg.pkg_name);
    END;
-/*-------------------------------------------------------------------------------------------------------*/
-END pk_environment_test;
+/
 --------------------------------------------------------
---  DDL for Package Body PK_BUILDAPI_TEST
+--  DDL for Package Body PK_WORK_IN_PROGRESS
 --------------------------------------------------------
-  CREATE OR REPLACE PACKAGE BODY "PK_BUILDAPI_TEST" IS
+  CREATE OR REPLACE PACKAGE BODY "PK_WORK_IN_PROGRESS" IS
 /*
 ------------------------------
 ||  Last Modified:  S.Vukovic
-||  Modified Date:  30/Mar/2005
+||  Modified Date:  2/May/2005
 ||  Body Version:   1.0
 ------------------------------
 */
 /*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE Add_Product_Component ( nPvId IN NUMBER,
+PROCEDURE ADD_PACKAGE ( newPvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
-								  sOsName IN VARCHAR2,
+	oldPvId NUMBER;
-								  sOrigFilePath IN VARCHAR2,
-								  sFileName IN VARCHAR2,
+	ReleaseLocation VARCHAR2(4000);
-								  sDestFilePath IN VARCHAR2,
-								  nByteSize IN NUMBER,
-								  sCRCcksum IN VARCHAR2 ) IS
+	sLocation VARCHAR2(4000) := NULL;
-	nOsId NUMBER;
 BEGIN
 	/*--------------- Business Rules Here -------------------*/
+	/*-------------------------------------------------------*/
+	BEGIN
+		-- Check if Exists in "Work in progress" anywhere in the world, except "Closed mode" releases
+		SELECT proj.PROJ_NAME ||' > '|| rt.RTAG_NAME  INTO sLocation
+		  FROM WORK_IN_PROGRESS wip,
-	-- OS Name Requirements --
+		  	   RELEASE_TAGS rt,
+			   PROJECTS proj
+		 WHERE wip.PV_ID = newPvId
+		   AND wip.RTAG_ID = rt.RTAG_ID
+		   AND rt.OFFICIAL != 'Y'
+		   AND rt.PROJ_ID = proj.PROJ_ID;
+		EXCEPTION
-	IF (sOsName IS NULL) THEN
+	    	WHEN NO_DATA_FOUND THEN
-		RAISE_APPLICATION_ERROR (-20000, 'OsName cannot be NULL.');
+	       		sLocation := NULL;
-	END IF;
+	END;
-	-- File Requirements --
-	IF (NOT sFileName IS NULL) THEN
-		IF (nByteSize IS NULL) THEN
+	IF (sLocation IS NULL)  THEN
+		-- Add to "Work in progress"
-			RAISE_APPLICATION_ERROR (-20000, 'Byte Size cannot be NULL.');
+		INSERT INTO WORK_IN_PROGRESS ( RTAG_ID, PV_ID, VIEW_ID )
+		VALUES( RtagId, newPvId, ViewId );
-		ELSIF (sCRCcksum IS NULL) THEN
-			RAISE_APPLICATION_ERROR (-20000, 'CRC CKSUM cannot be NULL.');
+	    /* LOG ACTION */
+		SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+		  FROM PROJECTS proj,
+		  	   RELEASE_TAGS rt
+		 WHERE rt.PROJ_ID = proj.PROJ_ID
-		END IF;
+		   AND rt.RTAG_ID = RtagId;
+		Log_Action ( newPvId, 'work_in_progress', UserId, 'Location: '|| ReleaseLocation );
+	ELSE
+		RAISE_APPLICATION_ERROR (-20000, 'This version is already in Work-In-Progress Area at '|| sLocation ||'.' );
 	END IF;
+END;
+/*-------------------------------------------------------------------------------------------------------*/
+PROCEDURE REMOVE_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
+	ReleaseLocation VARCHAR2(4000);
-	-- Folder Requirements --
-	-- No requirements for now.
+BEGIN
+	/*--------------- Business Rules Here -------------------*/
 	/*-------------------------------------------------------*/
-	-- Get OsId
-	nOsId := Get_OsId ( sOsName );
+	-- Get release location for logging pusposes
+	SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+	  FROM PROJECTS proj,
+	  	   RELEASE_TAGS rt
+	 WHERE rt.PROJ_ID = proj.PROJ_ID
+	   AND rt.RTAG_ID = RtagId;
+	-- Delete from Work In Progress
+	DELETE
+	  FROM WORK_IN_PROGRESS wip
+	 WHERE wip.RTAG_ID = RtagId
+	   AND wip.PV_ID = PvId;
+	Log_Action ( PvId, 'delete_from_wip', UserId, 'Location: '|| ReleaseLocation );
-	-- Insert component entry
-	INSERT INTO PRODUCT_COMPONENTS ( PV_ID, OS_ID, FILE_PATH, FILE_NAME, DESTINATION_PATH, BYTE_SIZE, CRC_CKSUM )
-    VALUES (
-			  nPvId,
-			  nOsId,
-			  sOrigFilePath,
-			  sFileName,
-			  sDestFilePath,
-			  nByteSize,
-			  sCRCcksum
-			);
-	EXCEPTION
-    WHEN DUP_VAL_ON_INDEX
-	THEN
-		RAISE_APPLICATION_ERROR (-20000, 'Cannot have duplicate product components.');
 END;
 /*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE Remove_All_Product_Components ( nPvId IN NUMBER, sOsName IN VARCHAR2 ) IS
+PROCEDURE REMOVE_PACKAGE_BULK ( PvIdList IN VARCHAR2, RtagId IN NUMBER, UserId IN NUMBER ) IS
+	nIdCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
+	ReleaseLocation VARCHAR2(4000);
-	nOsId NUMBER;
+	PvId NUMBER;
 BEGIN
 	/*--------------- Business Rules Here -------------------*/
+	IF (PvIdList IS NULL)
+	THEN
+		RAISE_APPLICATION_ERROR (-20000, 'Please select at least one package.' );
+	END IF;
 	/*-------------------------------------------------------*/
-	-- Get OsId
-	nOsId := Get_OsId ( sOsName );
+	nIdCollector := IN_LIST_NUMBER ( PvIdList );
+	-- Get release location for logging pusposes
+	SELECT proj.PROJ_NAME  ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+	  FROM PROJECTS proj,
+	  	   RELEASE_TAGS rt
+	 WHERE rt.PROJ_ID = proj.PROJ_ID
+	   AND rt.RTAG_ID = RtagId;
+	FOR i IN 1..nIdCollector.COUNT
+	LOOP
+		PvId := nIdCollector(i);
-	-- Delete component entry
+		-- Delete from Work In Progress
-	DELETE
+		DELETE
-	  FROM PRODUCT_COMPONENTS pc
+		  FROM WORK_IN_PROGRESS wip
-	 WHERE pc.PV_ID = nPvId
+		 WHERE wip.RTAG_ID = RtagId
-	   AND pc.OS_ID = nOsId;
+		   AND wip.PV_ID = PvId;
+		Log_Action ( PvId, 'remove_from_work_in_progress', UserId, 'Location: '|| ReleaseLocation );
+	END LOOP;
 END;
 /*-------------------------------------------------------------------------------------------------------*/
-FUNCTION Get_OsId ( sOsName IN VARCHAR2 ) RETURN NUMBER IS
+FUNCTION GET_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER IS
-	Code NUMBER;
-BEGIN
-	-- Get Platform Code --
-	SELECT pf.CODE INTO Code
-	  FROM PLATFORMS pf
+	ReturnValue NUMBER;
-	 WHERE UPPER( pf.NAME ) = UPPER( sOsName );
-	RETURN Code;
-	EXCEPTION
+BEGIN
+	SELECT wip.VIEW_ID INTO ReturnValue
-    	WHEN NO_DATA_FOUND THEN
+	  FROM WORK_IN_PROGRESS wip
-       		RAISE_APPLICATION_ERROR (-20000, 'Platform '|| sOsName ||' is not valid. It needs to be added to PLATFORMS table in Release Manager.' );
+	 WHERE wip.RTAG_ID = RtagId
-   	RAISE;
+	   AND wip.PV_ID = PvId;
+	RETURN ReturnValue;
 END;
 /*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE Update_Build_Service ( sDatabaseServer IN VARCHAR2,
+PROCEDURE GET_VIEW_CONTENT ( RtagId IN NUMBER, ViewId IN NUMBER, RecordSet OUT typeCur ) IS
-			  					 sWebServer IN VARCHAR2,
-								 sMailServer IN VARCHAR2,
-								 sMailSender IN VARCHAR2) IS
+	IsBaseView CHAR(1);
 BEGIN
+	-- Check if the view is BASE VIEW
+	SELECT vi.BASE_VIEW INTO IsBaseView
+	  FROM VIEWS vi
+	 WHERE vi.VIEW_ID = ViewId;
+	IF (IsBaseView = 'Y') THEN
+		-- Get Base view content
+		OPEN RecordSet FOR
+		SELECT 0 AS PKG_STATE,
+			   NULL AS DEPRECATED_STATE,
+			   pv.pv_id,
+			   pkg.pkg_name,
+			   pv.pkg_version,
+			   pv.dlocked,
+			   pv.pv_description,
+			   pv.BUILD_TYPE
+		  FROM WORK_IN_PROGRESS rel,
+		       packages pkg,
+		       package_versions pv
+		 WHERE pv.pkg_id = pkg.pkg_id
+		   AND rel.pv_id = pv.pv_id
+		   AND rel.VIEW_ID = ViewId
+		   AND rel.RTAG_ID = RtagId
+		 ORDER BY UPPER(pkg.PKG_NAME);
+	ELSE
+	 	-- Get non base view content
+		OPEN RecordSet FOR
+		SELECT 0 AS PKG_STATE,
-	 UPDATE BUILD_SERVICE_CONFIG
+			   NULL AS DEPRECATED_STATE,
+			   pv.pv_id,
+			   pkg.pkg_name,
+			   pv.pkg_version,
+			   pv.dlocked,
+			   pv.pv_description,
+			   pv.BUILD_TYPE
+		  FROM WORK_IN_PROGRESS rel,
-	 SET CONFIG = sDatabaseServer
+		       packages pkg,
+		       package_versions pv,
+			   VIEW_DEF vd
-	 WHERE SERVICE = 'DATABASE SERVER';
+		 WHERE pv.pkg_id = pkg.pkg_id
+		   AND rel.pv_id = pv.pv_id
-	 UPDATE BUILD_SERVICE_CONFIG
+		   AND vd.VIEW_ID = ViewId
-	 SET CONFIG = sWebServer
+		   AND vd.PKG_ID = pv.PKG_ID
+		   AND rel.RTAG_ID = RtagId
-	 WHERE SERVICE = 'WEB SERVER';
+		 ORDER BY UPPER(pkg.PKG_NAME);
-	 UPDATE BUILD_SERVICE_CONFIG
-	 SET CONFIG = sMailServer
-	 WHERE SERVICE = 'MAIL SERVER';
-	 UPDATE BUILD_SERVICE_CONFIG
-	 SET CONFIG = sMailSender
-	 WHERE SERVICE = 'BUILD FAILURE MAIL SENDER';
+	END IF;
 END;
 /*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE ADD_GBE_MACHTYPE ( sGBEValue in VARCHAR2 ) IS
+PROCEDURE CHANGE_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER, NewViewId IN NUMBER ) IS
-GBE_ID NUMBER;
 BEGIN
-	-- Get GBE_ID
-	SELECT SEQ_GBE_ID.NEXTVAL INTO GBE_ID FROM DUAL;
-	INSERT INTO GBE_MACHTYPE (GBE_ID, GBE_VALUE)
+	UPDATE WORK_IN_PROGRESS wip SET
-	VALUES( GBE_ID, sGBEValue);
+	wip.VIEW_ID = NewViewId
+	WHERE wip.PV_ID = PvId
+	  AND wip.RTAG_ID = RtagId;
 END;
 /*-------------------------------------------------------------------------------------------------------*/
+END PK_WORK_IN_PROGRESS;
+/
+--------------------------------------------------------
+--  DDL for Package Body RM_ISSUES
-PROCEDURE REMOVE_GBE_MACHTYPE ( nGBE_ID IN NUMBER ) IS
+--------------------------------------------------------
-BEGIN
+  CREATE OR REPLACE PACKAGE BODY "RM_ISSUES" AS
-	 DELETE FROM GBE_MACHTYPE WHERE GBE_ID = nGBE_ID;
+-- Private Implementation -----------------------------------------------------
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE UPDATE_GBE_MACHTYPE ( nGBE_ID IN NUMBER, sGBEValue IN VARCHAR2 ) IS
+	FUNCTION VerIsGrtrThanOrEqlToStart( XXstart IN NUMBER, XX IN NUMBER, YYstart IN NUMBER, YY IN NUMBER, ZZstart IN NUMBER, ZZ IN NUMBER ) RETURN NUMBER
-BEGIN
+	AS
+	BEGIN
-	 UPDATE GBE_MACHTYPE
+		-- start boundary case
-	 SET GBE_VALUE = sGBEValue
+		IF ( XXstart < XX ) THEN
-	 WHERE GBE_ID = nGBE_ID;
+			RETURN 1;
+		ELSIF ( XXstart = XX ) THEN
-END;
-/*-------------------------------------------------------------------------------------------------------*/
-PROCEDURE ADD_DAEMON ( sDaemonHostname IN VARCHAR2, nRtagId IN NUMBER, nGbeId IN NUMBER ) IS
+			-- need to consider YY
-nRecordNumber NUMBER;
+			IF ( YYstart < YY ) THEN
-nRconId NUMBER;
+				RETURN 1;
-BEGIN
-	-- Get RCON_ID
-	SELECT SEQ_RCON_ID.NEXTVAL INTO nRconId FROM DUAL;
-        SELECT count(*) INTO nRecordNumber
-        FROM RELEASE_CONFIG
-        WHERE RTAG_ID = nRtagId;
-        IF nRecordNumber = 0 THEN
+			ELSIF ( YYstart = YY ) THEN
-       	   INSERT INTO RELEASE_CONFIG (RCON_ID, RTAG_ID, DAEMON_HOSTNAME, DAEMON_MODE, GBE_ID)
-           VALUES (nRconId, nRtagId, sDaemonHostname, 'M', nGbeId);
-        ELSE
-        	INSERT INTO RELEASE_CONFIG (RCON_ID, RTAG_ID, DAEMON_HOSTNAME, DAEMON_MODE, GBE_ID)
-        	VALUES (nRconId, nRtagId, sDaemonHostname, 'S', nGbeId);
-        END IF;
+					-- need to consider ZZ
+					IF ( ZZstart <= ZZ ) THEN
+						RETURN 1;
+					ELSE
+						RETURN 0;
+					END IF;
+			ELSE
+				RETURN 0;
+			END IF;
+		ELSE
+			RETURN 0;
+		END IF;
+	EXCEPTION
+		WHEN OTHERS THEN
+			RETURN -1;
+	END;
+	FUNCTION VerIsLessThanOrEqlToEnd( XXend IN NUMBER, XX IN NUMBER, YYend IN NUMBER, YY IN NUMBER, ZZend IN NUMBER, ZZ IN NUMBER ) RETURN NUMBER
+	AS
+	BEGIN
+		-- end boundary case
+		IF ( XX < XXend ) THEN
+			RETURN 1;
+		ELSIF ( XX = XXend ) THEN
+			-- need to consider YY
+			IF ( YY < YYend ) THEN
+				RETURN 1;
+			ELSIF ( YY = YYend ) THEN
+					-- need to consider ZZ
+					IF ( ZZ <= ZZend ) THEN
+						RETURN 1;
+					ELSE
+						RETURN 0;
+					END IF;
+			ELSE
+				RETURN 0;
+			END IF;
+		ELSE
+			RETURN 0;
+		END IF;
+	EXCEPTION
+		WHEN OTHERS THEN
+			RETURN -1;
+	END;
+	/*
+	-	version format:		XX.YY.ZZ.abc
+	*/
+	FUNCTION VersionIsBetween( version IN VARCHAR2, version_start IN VARCHAR2, version_end IN VARCHAR ) RETURN NUMBER
+	AS
+		XXstart		NUMBER	:=	0;
+		XXend		NUMBER	:=	0;
+		XX			NUMBER	:=	0;
+		YYstart		NUMBER	:=	0;
+		YYend		NUMBER	:=	0;
+		YY			NUMBER	:=	0;
+		ZZstart		NUMBER	:=	0;
+		ZZend		NUMBER	:=	0;
+		ZZ			NUMBER	:=	0;
+		first_dot	NUMBER	:=	0;
+		second_dot	NUMBER	:=	0;
+		third_dot	NUMBER	:=	0;
+		ProjExtstart	VARCHAR2(10);
+		ProjExtend		VARCHAR2(10);
+		ProjExt			VARCHAR2(10);
+	BEGIN
+		-- strip the version number
+		first_dot :=  INSTR(version_start, '.', 1, 1);
+		second_dot :=  INSTR(version_start, '.', 1, 2);
+		third_dot :=  INSTR(version_start, '.', 1, 3);
+		XXstart := TO_NUMBER( SUBSTR( version_start, 1, first_dot - 1 ) );
+		YYstart := TO_NUMBER( SUBSTR( version_start, first_dot + 1, second_dot - ( first_dot + 1 ) ) );
+		ZZstart := TO_NUMBER( SUBSTR( version_start, second_dot + 1, third_dot - ( second_dot + 1 ) ) );
+		ProjExtstart := SUBSTR( version_start, third_dot + 1, LENGTH(version_start) - third_dot );
+		first_dot :=  INSTR(version_end, '.', 1, 1);
+		second_dot :=  INSTR(version_end, '.', 1, 2);
+		third_dot :=  INSTR(version_end, '.', 1, 3);
+		XXend := TO_NUMBER( SUBSTR( version_end, 1, first_dot - 1 ) );
+		YYend := TO_NUMBER( SUBSTR( version_end, first_dot + 1, second_dot - ( first_dot + 1 ) ) );
+		ZZend := TO_NUMBER( SUBSTR( version_end, second_dot + 1, third_dot - ( second_dot + 1 ) ) );
+		ProjExtend := SUBSTR( version_end, third_dot + 1, LENGTH(version_end) - third_dot );
+		first_dot :=  INSTR(version, '.', 1, 1);
+		second_dot :=  INSTR(version, '.', 1, 2);
+		third_dot :=  INSTR(version, '.', 1, 3);
+		XX := TO_NUMBER( SUBSTR( version, 1, first_dot - 1 ) );
+		YY := TO_NUMBER( SUBSTR( version, first_dot + 1, second_dot - ( first_dot + 1 ) ) );
+		ZZ := TO_NUMBER( SUBSTR( version, second_dot + 1, third_dot - ( second_dot + 1 ) ) );
+		ProjExt := SUBSTR( version, third_dot + 1, LENGTH(version) - third_dot );
+		-- only include versions if all project extensions are the same
+		IF ( ProjExtstart = ProjExt AND ProjExt = ProjExtend ) THEN
+			IF ( VerIsGrtrThanOrEqlToStart( XXstart, XX, YYstart, YY, ZZstart, ZZ ) = 1 AND VerIsLessThanOrEqlToEnd( XXend, XX, YYend, YY, ZZend, ZZ ) = 1 ) THEN
+				RETURN 1;
+			ELSE
+				RETURN 0;
+			END IF;
+		ELSE
+			RETURN 0;
+		END IF;
+	EXCEPTION
+		WHEN OTHERS THEN
+			RETURN -1;
+	END;
+	FUNCTION GetPkgId( pkgName IN VARCHAR2 ) RETURN NUMBER
+	AS
+	    pkg_id NUMBER;
+	BEGIN
+		SELECT
+			p.PKG_ID
+		INTO
+			pkg_id
+		FROM
+			PACKAGES p
+		WHERE
+			p.PKG_NAME = pkgName;
+		RETURN pkg_id;
+	EXCEPTION
+	    WHEN OTHERS THEN
+			dbms_output.put_line('GetPkgId exception: ' || SQLERRM );
+			RETURN -1;
-END;
+	END;
-/*-------------------------------------------------------------------------------------------------------*/
+-- Public Implementation ------------------------------------------------------
+	/*
+	-- Proc: AllIssues - Gets all issues for a package from dependent packages one level deep
+	--
+	-- INPUT PARAMETERS:
+	--
+	--		pkg_name  	-  	The name of the top level package to get issues for
+	--		version_start	-	The start version for the comparison
+	--		version_end	-	The end version for the comparison
+	*/
+	PROCEDURE AllIssues( vCursor OUT T_Cur, pkg_name IN VARCHAR2, version_start IN VARCHAR2, version_end IN VARCHAR2 )
+	AS
+		pkgId	NUMBER;
+	BEGIN
+		-- get pkg_id of the input package:
+		pkgId := GetPkgId( pkg_name );
+		OPEN vCursor FOR
+		SELECT
+			  pv.PKG_ID,
+			  pv.PKG_VERSION,
+			  pv.PV_ID,
+			  i_pkg.ISS_ID,
+			  ( SELECT pkg_name FROM PACKAGES WHERE pkg_id = pd.DPKG_ID ) AS DPV_NAME,
+			  pd.DPKG_ID,
+			  ( SELECT pkg_version FROM PACKAGE_VERSIONS WHERE pv_id = pd.DPV_ID ) AS DPV_VER,
+			  pd.DPV_ID,
+			  i_dpkg.ISS_ID AS ISSUE_ID
+		FROM
+			 PACKAGE_VERSIONS pv
+							  LEFT OUTER JOIN CQ_ISSUES i_pkg ON pv.PV_ID = i_pkg.PV_ID
+							  LEFT OUTER JOIN PACKAGE_DEPENDENCIES pd ON pv.PV_ID = pd.PV_ID
+							  LEFT OUTER JOIN CQ_ISSUES i_dpkg ON pd.DPV_ID = i_dpkg.PV_ID
+		WHERE
+   			 pv.PKG_ID = pkgId
+		AND
+			VersionIsBetween( pv.PKG_VERSION, version_start, version_end ) = 1
+		AND
+			 ( i_dpkg.ISS_ID IS NOT NULL OR i_pkg.ISS_ID IS NOT NULL )
+		ORDER BY
+			 pv.PKG_ID,
+			 pv.PV_ID,
+			 pd.DPKG_ID,
+			 pd.DPV_ID;
+	EXCEPTION
+		WHEN OTHERS THEN
+			dbms_output.put_line('AllIssues exception: ' || SQLERRM );
+	END;
+	-- NOTE: make RM_PACKAGE_ISSUES a temporary table when tested ok
+	/*
+	-- Proc: LoadIssuesTable
+	--
+	-- Populates Package_Issues table with details of issues from all dependent packages.
+	-- This will be for all package versions of the input pkg_name between the
+	-- version_start and version_end.
+	--
+	-- INPUT PARAMETERS:
+	--
+	--		pkg_name  	-  	The name of the top level package to get issues for
+	--		version_start	-	The start version for the comparison
+	--		version_end	-	The end version for the comparison
+	*/
+	PROCEDURE LoadIssuesTable( vCursor OUT T_Cur, pkg_name IN VARCHAR2, version_start IN VARCHAR2, version_end IN VARCHAR2 )
+	AS
+		pkgId	NUMBER;
+		CURSOR pack_vers_cur IS
+			SELECT
+				pv.PV_ID,
+				pv.PKG_VERSION,
+				pv.PKG_ID,
+				p.PKG_NAME
+			FROM
+				PACKAGE_VERSIONS pv
+					JOIN PACKAGES p ON pv.PKG_ID = p.PKG_ID
+			WHERE
+   				 pv.PKG_ID = pkgId
+			AND
+				VersionIsBetween( pv.PKG_VERSION, version_start, version_end ) = 1;
+	BEGIN
+		DELETE FROM RELEASE_MANAGER.RM_PKG_ISSUES; /*RM_PACKAGE_ISSUES replaced by RM_PKG_ISSUES*/
+		-- get the pkg_id we are finding issues for
+		pkgId := GetPkgId( pkg_name );
+		-- find all the top level packages we are dealing with and recursively process their issues and their dependent package issues.
+		FOR pack_ver_rec IN  pack_vers_cur
+		LOOP
+			InsertIssuesForDepends( pack_ver_rec.PV_ID, pack_ver_rec.PKG_ID, pack_ver_rec.PKG_NAME, pack_ver_rec.PV_ID, pack_ver_rec.PKG_VERSION );
+			COMMIT;
+		END LOOP;
+		-- The output cursor - shows the individual versions of the top level package then were reported on
+		OPEN vCursor FOR
+		SELECT DISTINCT ISS_ID, PKG_VERSION FROM RM_PKG_ISSUES WHERE ISS_ID IS NOT NULL; /*RM_PACKAGE_ISSUES replaced by RM_PKG_ISSUES*/
+/*removed
+		SELECT
+			PKG_VERSION
+		FROM
+			RELEASE_MANAGER.RM_PACKAGE_ISSUES;
+*/
+	EXCEPTION
+		WHEN OTHERS THEN
+			dbms_output.put_line('LoadIssuesTable exception: ' || SQLERRM );
+	END;
+	/*
+	-- Proc: InsertIssuesForDepends
+	--
+	-- Used by LoadIssuesTable to recursively find issues for all dependent packages
+	--
+	-- INPUT PARAMETERS:
+	--
+	--		pvID  		-  	The package version id of the package to get issues for
+	--		top_pkgID	-  	The package id of the top level package to get issues for - should be the same as pvID when called from LoadIssuesTable (different when called recursively)
+	--		top_pkgName -  	The package name of the top level package
+	--		top_pvID  	-  	The package version id of the top level package
+	--		top_pkgVer  -  	The package version description of the top level package
+	*/
+	PROCEDURE InsertIssuesForDepends( pvID IN NUMBER, top_pkgID IN NUMBER, top_pkgName IN VARCHAR2, top_pvID IN NUMBER, top_pkgVer IN VARCHAR2 )
+	AS
+		pkgId		NUMBER;
+		issCnt		NUMBER := 0;
+		pkgCheck	NUMBER := 0;
+		depCheck	NUMBER := 0;
+		dpkgName	VARCHAR(50);
+		dpkgVersion	VARCHAR(50);
+		CURSOR dep_packs_cur IS
+			SELECT
+				DPV_ID
+			FROM
+				PACKAGE_DEPENDENCIES
+			WHERE
+				PV_ID = pvID;
+	BEGIN
+		-- check to see if the package has been processed previously
+		SELECT
+			COUNT(*)
+		INTO
+			pkgCheck
+		FROM
+			RM_PKG_ISSUES /*RM_PACKAGE_ISSUES replaced by RM_PKG_ISSUES*/
+		WHERE
+			DPV_ID = pvID;
+		dbms_output.put_line('pkgCheck: ' || pkgCheck );
+		-- Package not already processed (no cyclic dependency) - process it
+		IF ( pkgCheck = 0 ) THEN
+			-- check to see if this package version has any issues assigned to it
+			SELECT
+				COUNT(*)
+			INTO
+				issCnt
+			FROM
+				CQ_ISSUES i
+			WHERE
+				i.PV_ID = pvID;
+			dbms_output.put_line('issCnt: ' || issCnt );
+			-- Always enter a marker row into the table even if there are no issues for the package.
+			-- This allows us to pick up any cyclic dependencies.
+			IF ( issCnt > 0 ) THEN
+				-- get issues and insert into RM_PACKAGE_ISSUES
+				/*RM_PACKAGE_ISSUES replaced by RM_PKG_ISSUES*/
+				INSERT INTO RM_PKG_ISSUES ( PKG_ID, PKG_NAME, PV_ID, PKG_VERSION, DPV_ID, DPKG_NAME, DPKG_VERSION, ISS_DB, ISS_ID )
+					SELECT DISTINCT
+						top_pkgID		AS PKG_ID,
+						top_pkgName		AS PKG_NAME,
+						top_pvID		AS PV_ID,
+						top_pkgVer		AS PKG_VERSION,
+						pv.PV_ID		AS DPV_ID,
+						p.PKG_NAME		AS DPKG_NAME,
+						pv.PKG_VERSION	AS DPKG_VERSION,
+						ci.ISS_DB,
+						ci.ISS_ID
+					FROM
+						PACKAGE_VERSIONS pv
+							JOIN PACKAGES p ON pv.PKG_ID = p.PKG_ID
+							JOIN CQ_ISSUES ci ON pv.PV_ID = ci.PV_ID
+					WHERE
+						pv.PV_ID = pvID;
+			ELSE
+				-- get the dpkg details - there will always be a row returned here
+				SELECT
+					p.PKG_NAME
+				INTO
+					dpkgName
+				FROM
+					PACKAGE_VERSIONS pv
+						JOIN PACKAGES p ON pv.PKG_ID = p.PKG_ID
+				WHERE
+	   				 pv.PV_ID = pvID;
+				SELECT
+					pv.PKG_VERSION
+				INTO
+					dpkgVersion
+				FROM
+					PACKAGE_VERSIONS pv
+				WHERE
+	   				 pv.PV_ID = pvID;
+				-- enter a marker row
+				/*RM_PACKAGE_ISSUES replaced by RM_PKG_ISSUES*/
+				INSERT INTO RM_PKG_ISSUES ( PKG_ID, PKG_NAME, PV_ID, PKG_VERSION, DPV_ID, DPKG_NAME, DPKG_VERSION, ISS_DB, ISS_ID )
+				VALUES (
+					top_pkgID,
+					top_pkgName,
+					top_pvID,
+					top_pkgVer,
+					pvID,
+					dpkgName,
+					dpkgVersion,
+					NULL,
+					NULL );
+			END IF;
+			-- If this package version has dependencies then recurse
+			SELECT
+				COUNT(*)
+			INTO
+				depCheck
+			FROM
+				PACKAGE_DEPENDENCIES
+			WHERE
+				PV_ID = pvID;
+			IF ( depCheck > 0 ) THEN
+				-- get dependencies and call this function recursively for each one
+				FOR dep_rec IN  dep_packs_cur
+				LOOP
+					InsertIssuesForDepends( dep_rec.DPV_ID, top_pkgID, top_pkgName, top_pvID, top_pkgVer );
+				END LOOP;
+			END IF;
+		END IF;
+	/*EXCEPTION
+		WHEN OTHERS THEN
+			no exception handling required
+	*/
+	END;
-END PK_BUILDAPI_TEST;
+END Rm_Issues;
+/
 --------------------------------------------------------
 --  DDL for Procedure ADD_AUTOBUILD_FAILURE_INFO
 --------------------------------------------------------
    add_view_members (groupid, suserlist);
 END add_autobuild_failure_info;
+/
 --------------------------------------------------------
---  DDL for Procedure DEPRECATE_PACKAGE
+--  DDL for Procedure ADD_COMPONENT
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "DEPRECATE_PACKAGE" (nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
+  CREATE OR REPLACE PROCEDURE "ADD_COMPONENT" ( nPvId IN RELEASE_COMPONENTS.PV_ID%TYPE,
-	   	  		  							   nRtagId IN DEPRECATED_PACKAGES.RTAG_ID%TYPE,
+	   	  		  						  	sFileName IN RELEASE_COMPONENTS.FILE_NAME%TYPE,
+											sFilePath IN RELEASE_COMPONENTS.FILE_PATH%TYPE DEFAULT NULL,
-	   	  		  							   nPkgId IN DEPRECATED_PACKAGES.PKG_ID%TYPE,
+											nByteSize IN RELEASE_COMPONENTS.BYTE_SIZE%TYPE,
+											sCRCcksum IN RELEASE_COMPONENTS.CRC_CKSUM%TYPE DEFAULT NULL,
-											   sComments IN DEPRECATED_PACKAGES.COMMENTS%TYPE,
+											sCRCmodcrc IN RELEASE_COMPONENTS.CRC_MODCRC%TYPE DEFAULT NULL
-											   nUserId IN NUMBER) IS
+                                           ) IS
+/* ---------------------------------------------------------------------------
-ext VARCHAR2(50);
+    Version: 3.0.0
+   --------------------------------------------------------------------------- */
 BEGIN
-	--Extract the package version extension
-	SELECT V_EXT into ext
-	FROM PACKAGE_VERSIONS
-	WHERE PV_ID = nPvId;
-    -- Deprecate Package
-    INSERT INTO DEPRECATED_PACKAGES (RTAG_ID, PKG_ID, COMMENTS, V_EXT)
-	VALUES (nRtagId, nPkgId, sComments, ext);
-	IF ext IS NOT NULL THEN
-	   UPDATE RELEASE_CONTENT
+	 --- Insert into RELEASE_COMPONENTS
-	   SET PKG_ID = nPkgId, DEPRECATED_STATE = 6
-	   WHERE RTAG_ID = nRtagId
-	   AND PV_ID IN (SELECT PV.PV_ID
-		   	  	  	FROM PACKAGE_VERSIONS PV, PACKAGES PKG
-				  	WHERE PKG.PKG_ID = PV.PKG_ID
-				  	AND PV.V_EXT = ext
-				  	AND PKG.PKG_ID = nPkgId
-				 	);
-	ELSE
-	   UPDATE RELEASE_CONTENT
-	   SET PKG_ID = nPkgId, DEPRECATED_STATE = 6
-	   WHERE RTAG_ID = nRtagId
-	   AND PV_ID IN (SELECT PV.PV_ID
-		   	  	  	FROM PACKAGE_VERSIONS PV, PACKAGES PKG
-				  	WHERE PKG.PKG_ID = PV.PKG_ID
-				  	AND PV.V_EXT IS NULL
-				  	AND PKG.PKG_ID = nPkgId
-				 	);
-	END IF;
-	UPDATE RELEASE_CONTENT
-	SET PKG_ID = nPkgId, DEPRECATED_STATE = 7
-	WHERE RTAG_ID = nRtagId
-	AND PV_ID IN (		   SELECT DISTINCT
- 	 		  	 		   qry.PV_ID
-						        FROM (
-								 	  SELECT dep.*,
-									  LEVEL AS LEVEL_NUM
-									  FROM PACKAGE_DEPENDENCIES dep
- 								START WITH dep.DPV_ID IN ( nPvId )
-								CONNECT BY PRIOR dep.PV_ID = dep.DPV_ID
- 								) qry,
-								PACKAGES pkg,
-								PACKAGE_VERSIONS pv,
-								RELEASE_CONTENT rc
-						 	 WHERE qry.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID
+	 INSERT INTO RELEASE_COMPONENTS ( PV_ID, FILE_NAME, FILE_PATH, BYTE_SIZE, CRC_CKSUM, CRC_MODCRC )
-							 AND rc.RTAG_ID = nRtagId AND rc.PV_ID = qry.PV_ID
+	 VALUES ( nPvId, sFileName, sFilePath, nByteSize, sCRCcksum, sCRCmodcrc  );
-							 AND rc.DEPRECATED_STATE IS NULL
-				 );
-    /* LOG ACTION */
-   	/*Log_Action ( nPkgId, 'deprecated_package', nUserId );*/
-END Deprecate_Package;
+END Add_Component;
+/
 --------------------------------------------------------
---  DDL for Procedure LOG_PROJECT_ACTION
+--  DDL for Procedure ADD_PACKAGE_INTEREST
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "LOG_PROJECT_ACTION" ( nProjId IN NUMBER,
+  CREATE OR REPLACE PROCEDURE "ADD_PACKAGE_INTEREST" (nProjId IN PROJECTS.PROJ_ID%TYPE,
-												 enumActionTypeName IN VARCHAR2,
+	   	  		  								  nPkgIdList IN VARCHAR2,
-		                                         nUserId IN NUMBER,
-												 sAdditionalComments IN VARCHAR2 DEFAULT NULL,
-												 nRtagId IN NUMBER  ) IS
+												  nUserId IN NUMBER
-/* ---------------------------------------------------------------------------
-    Version: 3.0
+	   	  		  								  ) IS
-   --------------------------------------------------------------------------- */
+/******************************************************************************
+   NAME:       ADD_PACKAGE_INTEREST
+   PURPOSE:
+   REVISIONS:
+   Ver        Date        Author           Description
+   ---------  ----------  ---------------  ------------------------------------
+.0        12/05/2006  Rupesh Solanki     1. Created this procedure.
+   NOTES:
+   Automatically available Auto Replace Keywords:
+      Object Name:     ADD_PACKAGE_INTEREST
-    ActionTypeId NUMBER;
+      Sysdate:         12/05/2006
+      Date and Time:   12/05/2006, 9:11:12 AM, and 12/05/2006 9:11:12 AM
+      Username:         (set in TOAD Options, Procedure Editor)
+      Table Name:       (set in the "New PL/SQL Object" dialog)
+******************************************************************************/
+   npkgidcollector   relmgr_number_tab_t := relmgr_number_tab_t ();
+   nPkgId NUMBER;
 BEGIN
-    -- Get Action Type FK
+	 npkgidcollector := in_list_number2 (nPkgIdList);
-    SELECT act.ACTTYPE_ID INTO ActionTypeId
+	FOR i IN 1..npkgidcollector.COUNT
-      FROM ACTION_TYPE act
+	LOOP
-     WHERE act.NAME = enumActionTypeName;
+		nPkgId := npkgidcollector(i);
+	 --- Insert into PACKAGE_INTEREST TABLE
+	 INSERT INTO PACKAGE_INTEREST (PROJ_ID, PKG_ID, USER_ID)
+	 VALUES(nProjId, nPkgId, nUserId);
+	END LOOP;
+END ADD_PACKAGE_INTEREST;
+/
+--------------------------------------------------------
-    INSERT INTO PROJECT_ACTION_LOG ( USER_ID, ACTION_DATETIME, PROJ_ID, DESCRIPTION, ACTTYPE_ID, RTAG_ID)
+--  DDL for Procedure ADD_PACKAGE_INTEREST_TEST
-    VALUES ( nUserId, ORA_SYSDATETIME, nProjId, sAdditionalComments, ActionTypeId, nRtagId);
+--------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "ADD_PACKAGE_INTEREST_TEST" (nProjId IN PROJECTS.PROJ_ID%TYPE,
+	   	  		  								  nPkgIdList IN VARCHAR2,
+												  nUserId IN NUMBER
+	   	  		  								  ) IS
+/******************************************************************************
+   NAME:       ADD_PACKAGE_INTEREST
+   PURPOSE:
+   REVISIONS:
+   Ver        Date        Author           Description
+   ---------  ----------  ---------------  ------------------------------------
+.0        12/05/2006  Rupesh Solanki     1. Created this procedure.
+   NOTES:
+   Automatically available Auto Replace Keywords:
+      Object Name:     ADD_PACKAGE_INTEREST
+      Sysdate:         12/05/2006
+      Date and Time:   12/05/2006, 9:11:12 AM, and 12/05/2006 9:11:12 AM
+      Username:         (set in TOAD Options, Procedure Editor)
+      Table Name:       (set in the "New PL/SQL Object" dialog)
+******************************************************************************/
+   npkgidcollector   relmgr_number_tab_t := relmgr_number_tab_t ();
+   nPkgId NUMBER;
+BEGIN
+	 npkgidcollector := in_list_number2 (nPkgIdList);
+	FOR i IN 1..npkgidcollector.COUNT
+	LOOP
+		nPkgId := npkgidcollector(i);
+	 --- Insert into PACKAGE_INTEREST TABLE
+	 INSERT INTO PACKAGE_INTEREST (PROJ_ID, PKG_ID, USER_ID)
+	 VALUES(nProjId, nPkgId, nUserId);
+	END LOOP;
-END Log_Project_Action;
+END ADD_PACKAGE_INTEREST_TEST;
+/
 --------------------------------------------------------
---  DDL for Procedure RIPPLE_PACKAGE
+--  DDL for Procedure ADD_RUNTIME_DEPENDENCY
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "RIPPLE_PACKAGE" (
+  CREATE OR REPLACE PROCEDURE "ADD_RUNTIME_DEPENDENCY" ( NNpv_id IN NUMBER,
-        sPvIdList IN VARCHAR2,
+                                                     SSrtd_name IN PACKAGES.pkg_name%TYPE,
-        nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE,
+                                                     SSrtd_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
-        nUserId IN NUMBER
+                                                     NNuser_id IN NUMBER
-    ) IS
+                                                    ) IS
 /* ---------------------------------------------------------------------------
-    Version: 4.1
+    Version: 3.1
    --------------------------------------------------------------------------- */
+    retRTD_ID NUMBER;
+	CURSOR rtd_cur IS
+        SELECT rtd_id FROM runtime_dependencies WHERE pv_id = NNpv_id AND rtd_id = retRTD_ID;
+    rtd_rec rtd_cur%ROWTYPE;
 BEGIN
+    --- Seed database with package_name and version if required ---
+    Seed_Package_Names_Versions ( SSrtd_name, SSrtd_version, NNuser_id, retRTD_ID );
-    IF (sPvIdList IS NULL) THEN
+	OPEN rtd_cur;
-        RAISE_APPLICATION_ERROR (-20000, 'Please select at least one package.' );
-    END IF;
+    FETCH rtd_cur INTO rtd_rec;
-    -- Ripple Package
-    DELETE FROM DO_NOT_RIPPLE
+    IF rtd_cur%NOTFOUND
-    WHERE RTAG_ID = nRtagId
-    AND PV_ID IN (
-        SELECT *
-        FROM THE (
+    THEN
-            SELECT CAST( IN_LIST_NUMBER( sPvIdList )
+		/* Make sure it does not exists already as runtime dependency */
-            AS RELMGR_NUMBER_TAB_t )
-            FROM DUAL
-        )
-    );
-    /* LOG ACTION */
+		--- Add new Runtime Dependency ---
+	    INSERT INTO runtime_dependencies ( pv_id, rtd_id, mod_date, mod_user )
-    Log_Action_Bulk ( sPvIdList, 'ripple_package', nUserId );
+	    VALUES (  NNpv_id, retRTD_ID, ORA_SYSDATE , NNuser_id );
+    	/* LOG ACTION */
+        Log_Action ( NNpv_id, 'runtime_add', NNuser_id,
+    			     'Runtime package: '|| SSrtd_name ||' '|| SSrtd_version );
+	END IF;
-END Ripple_Package;
+END Add_Runtime_Dependency;
+/
 --------------------------------------------------------
---  DDL for Procedure DT_SETPROPERTYBYID
+--  DDL for Procedure ADD_VIEW_MEMBERS
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "DT_SETPROPERTYBYID" ( PARAM_ID   IN NUMBER, PARAM_PROPERTY IN VARCHAR2, PARAM_VALUE  IN VARCHAR2, PARAM_LVALUE  IN LONG RAW ) AS BEGIN DECLARE X NUMBER(40); BEGIN SELECT COUNT(*) INTO X FROM MICROSOFTDTPROPERTIES WHERE OBJECTID=PARAM_ID AND PROPERTY=PARAM_PROPERTY; IF X = 0 THEN INSERT INTO MICROSOFTDTPROPERTIES (ID, PROPERTY, OBJECTID, VALUE, LVALUE, VERSION) VALUES (MICROSOFTSEQDTPROPERTIES.NEXTVAL, PARAM_PROPERTY, PARAM_ID, PARAM_VALUE, PARAM_LVALUE, 0); ELSE UPDATE MICROSOFTDTPROPERTIES SET VALUE=PARAM_VALUE, LVALUE=PARAM_LVALUE, VERSION=VERSION+1 WHERE OBJECTID=PARAM_ID AND PROPERTY=PARAM_PROPERTY; END IF; END; END DT_SETPROPERTYBYID;
+  CREATE OR REPLACE PROCEDURE "ADD_VIEW_MEMBERS" (nGroupId IN NUMBER, sUserList IN VARCHAR2) IS
+/******************************************************************************
+   NAME:       ADD_VIEW_MEMBERS
+   PURPOSE:
+   REVISIONS:
+   Ver        Date        Author           Description
+   ---------  ----------  ---------------  ------------------------------------
+.0        11/04/2006          1. Created this procedure.
+   NOTES:
+   Automatically available Auto Replace Keywords:
+      Object Name:     ADD_VIEW_MEMBERS
+      Sysdate:         11/04/2006
+      Date and Time:   11/04/2006, 9:52:58 AM, and 11/04/2006 9:52:58 AM
+      Username:         (set in TOAD Options, Procedure Editor)
+      Table Name:       (set in the "New PL/SQL Object" dialog)
+******************************************************************************/
+CURSOR user_cur IS
+	SELECT u.USER_ID
+	  FROM USERS u
+	 WHERE u.USER_ID IN (
+	 	   			   	SELECT *
+						  FROM THE ( SELECT CAST( IN_LIST_NUMBER( sUserList ) AS RELMGR_NUMBER_TAB_t ) FROM dual )
+						);
+user_rec user_cur%ROWTYPE;
+BEGIN
+	 OPEN user_cur;
+	 FETCH user_cur INTO user_rec;
+	 WHILE user_cur%FOUND
+	 LOOP
+	 	 INSERT INTO MEMBERS_GROUP (GROUP_EMAIL_ID, USER_ID)
+	 	 VALUES ( nGroupId, user_rec.USER_ID);
+	 	 FETCH user_cur INTO user_rec;
+	 END LOOP;
+END ADD_VIEW_MEMBERS;
+/
 --------------------------------------------------------
 --  DDL for Procedure BASIC_CLONE
 --------------------------------------------------------
 ---------------------------------------------------------------------------------------------------------------
 END Basic_Clone;
+/
 --------------------------------------------------------
---  DDL for Procedure UPDATE_UNIT_TEST
+--  DDL for Procedure BUILD_TREE
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "UPDATE_UNIT_TEST" ( nTest_id IN NUMBER,
-	   	  		  							   nTestTypeId IN UNIT_TESTS.TEST_TYPES_FK%TYPE,
-											   nPv_id IN NUMBER,
-											   nUserId IN NUMBER,
-	                                           sTest_summary IN UNIT_TESTS.TEST_SUMMARY%TYPE,
-											   sNumof_test IN UNIT_TESTS.NUMOF_TEST%TYPE,
-	                                           sCompletion_date IN VARCHAR2,
-											   sDpkg_path IN VARCHAR2,
-											   enumTEST_TYPE_AUTOMATIC IN NUMBER,
-											   sResults IN VARCHAR2,
-											   outFileName OUT VARCHAR2
-                                              ) IS
-/* ---------------------------------------------------------------------------
-    Version: 3.1.0
-   --------------------------------------------------------------------------- */
-   	FILENAME_PREFIX CONSTANT VARCHAR2(50) := 'RM_UNIT_TEST';
-    ResultsURL UNIT_TESTS.RESULTS_URL%TYPE DEFAULT NULL;
-    ResultsAttachment UNIT_TESTS.RESULTS_ATTACHMENT_NAME%TYPE DEFAULT NULL;
-BEGIN
-       IF nTestTypeId = enumTEST_TYPE_AUTOMATIC THEN
-       	ResultsURL := sResults;
-       ELSE
-       	IF (sResults <> '') OR ( NOT sResults IS NULL ) THEN
-        	outFileName := FILENAME_PREFIX || nTest_id ||'_'|| sResults;
-    		ResultsAttachment := sDpkg_path || '/' || outFileName;
-           END IF;
-       END IF;
-	--- Update Unit Test ---
-    UPDATE UNIT_TESTS SET
-           TEST_SUMMARY = sTest_summary,
-		   NUMOF_TEST = sNumof_test,
-           COMPLETION_DATE = TO_DATE( sCompletion_date,'DD/MM/YYYY' ),
-		   COMPLETED_BY = nUserId,
-		   RESULTS_URL = ResultsURL,
-		   RESULTS_ATTACHMENT_NAME = ResultsAttachment
-     WHERE TEST_ID = nTest_id
-       AND PV_ID = nPv_id;
-END Update_Unit_Test;
-/
---------------------------------------------------------
---  DDL for Procedure SET_TO_AUTOBUILDABLE
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "SET_TO_AUTOBUILDABLE" (
-   nrtagid     IN   NUMBER,
-   spvidlist   IN   VARCHAR2
-)
-IS
-/******************************************************************************
-   NAME:       SET_TO_AUTOBUILDABLE
-   PURPOSE:
-   REVISIONS:
-   Ver        Date        Author           Description
-   ---------  ----------  ---------------  ------------------------------------
-.0        15/12/2006   Rupesh Solanki       1. Created this procedure.
-   NOTES:
-   Automatically available Auto Replace Keywords:
-      Object Name:     SET_TO_AUTOBUILDABLE
-      Sysdate:         15/12/2006
-      Date and Time:   15/12/2006, 11:42:29 AM, and 15/12/2006 11:42:29 AM
-      Username:         (set in TOAD Options, Procedure Editor)
-      Table Name:       (set in the "New PL/SQL Object" dialog)
-******************************************************************************/
-   npvidcollector   relmgr_number_tab_t := relmgr_number_tab_t ();
-   PvId NUMBER;
-BEGIN
-   npvidcollector := in_list_number2 (spvidlist);
-   UPDATE package_versions
-      SET is_autobuildable = 'N'
-    WHERE pv_id IN (SELECT pv_id
-                      FROM release_content
-                     WHERE rtag_id = nrtagid);
-   	FOR i IN 1..npvidcollector.COUNT
-	LOOP
-		PvId := npvidcollector(i);
-		UPDATE package_versions
-		set is_autobuildable = 'Y'
-		where pv_id = PvId;
-	END LOOP;
-END set_to_autobuildable;
-/
---------------------------------------------------------
---  DDL for Procedure LEVEL_N_CONFLICTS
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "LEVEL_N_CONFLICTS" (
-   nnrtag_id       IN       NUMBER,
-   nnsession_num   IN       NUMBER,
-   nnrowcnt        OUT      NUMBER,
-   nniteration     IN       NUMBER
-)
-IS
-/* ---------------------------------------------------------------------------
-    Version: 3.0.1
-   --------------------------------------------------------------------------- */
-   previteration   NUMBER := nniteration - 1;
-BEGIN
-   /* ---------  LEVEL 1 CONFILCTS -----------
-   || Following states are used:
-   || 0 -> NOT FOUND
-   || 1 -> MAJOR
-   || 2 -> MINOR MINOR
-   */
-   INSERT INTO temp_env_states
-      SELECT DISTINCT nnsession_num AS session_num, nniteration AS level_num,
-                      pv.pv_id, pv.pkg_id, pv.v_ext,
-                      DECODE (tes.tes_state, 2, 2, 1) AS MESSAGE
-                 FROM package_dependencies dep,
-                      package_versions dpv,
-                      package_versions pv,
-                      release_content rel,
-                      temp_env_states tes
-                WHERE rel.pv_id = dep.pv_id
-                  AND rel.rtag_id = nnrtag_id
-                  AND dep.pv_id = pv.pv_id
-                  AND dep.dpv_id = dpv.pv_id
-                  AND dpv.pkg_id = tes.pkg_id
-                  AND NVL (dpv.v_ext, '|LINK_A_NULL|') =
-                                              NVL (tes.v_ext, '|LINK_A_NULL|')
-                  AND tes.session_num = nnsession_num
-                  AND tes.level_num = previteration
-                  AND (dep.pv_id, dep.dpv_id) IN
-                                                   /* Remove packages listed in IGNORE_WARNINGS table and
-                                                 || packages already stored in Temp Table.
-                                                 */
-                      (
-                         SELECT pd.pv_id, pd.dpv_id
-                           FROM package_dependencies pd, release_content rc
-                          WHERE pd.pv_id = rc.pv_id AND rc.rtag_id = nnrtag_id
-                         --AND pd.pv_id NOT IN ( SELECT pv_id FROM temp_env_states WHERE session_num = NNsession_num AND level_num > 5 )
-                         MINUS
-                         SELECT igw.pv_id, igw.dpv_id
-                           FROM ignore_warnings igw
-                          WHERE igw.rtag_id = nnrtag_id);
-   nnrowcnt := SQL%ROWCOUNT;
-END level_n_conflicts;
-/
---------------------------------------------------------
---  DDL for Procedure REMOVE_COMPONENTS
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "REMOVE_COMPONENTS" ( nPvId IN RELEASE_COMPONENTS.PV_ID%TYPE ) IS
+  CREATE OR REPLACE PROCEDURE "BUILD_TREE" ( nRtag_id IN NUMBER,
-/* ---------------------------------------------------------------------------
-    Version: 3.0.0
-   --------------------------------------------------------------------------- */
-BEGIN
-	 --- Delete From RELEASE_COMPONENTS
+	   	  		  					     retSessionNum OUT NUMBER ) IS
-	 DELETE FROM RELEASE_COMPONENTS
-	 WHERE PV_ID = nPvId;
-END Remove_Components;
-/
---------------------------------------------------------
---  DDL for Procedure ADD_COMPONENT
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "ADD_COMPONENT" ( nPvId IN RELEASE_COMPONENTS.PV_ID%TYPE,
-	   	  		  						  	sFileName IN RELEASE_COMPONENTS.FILE_NAME%TYPE,
-											sFilePath IN RELEASE_COMPONENTS.FILE_PATH%TYPE DEFAULT NULL,
-											nByteSize IN RELEASE_COMPONENTS.BYTE_SIZE%TYPE,
-											sCRCcksum IN RELEASE_COMPONENTS.CRC_CKSUM%TYPE DEFAULT NULL,
-											sCRCmodcrc IN RELEASE_COMPONENTS.CRC_MODCRC%TYPE DEFAULT NULL
-                                           ) IS
 /* ---------------------------------------------------------------------------
     Version: 3.0.0
    --------------------------------------------------------------------------- */
-BEGIN
-	 --- Insert into RELEASE_COMPONENTS
+    rowCnt 			NUMBER := 0;						-- Iterations counter
-	 INSERT INTO RELEASE_COMPONENTS ( PV_ID, FILE_NAME, FILE_PATH, BYTE_SIZE, CRC_CKSUM, CRC_MODCRC )
+    iteration 		NUMBER := 1;                  -- Maximum number of iterations allowed.
-	 VALUES ( nPvId, sFileName, sFilePath, nByteSize, sCRCcksum, sCRCmodcrc  );
+    maxIterations 	NUMBER := 50;      	  	-- This will prevent infinite loops if cyrcular dependencies are found
-END Add_Component;
-/
---------------------------------------------------------
---  DDL for Procedure ADD_PACKAGE_INTEREST
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "ADD_PACKAGE_INTEREST" (nProjId IN PROJECTS.PROJ_ID%TYPE,
-	   	  		  								  nPkgIdList IN VARCHAR2,
+	UP_THE_TREE 	CONSTANT NUMBER DEFAULT 1;
-												  nUserId IN NUMBER
+	DOWN_THE_TREE 	CONSTANT NUMBER DEFAULT -1;
-	   	  		  								  ) IS
+    sessionNum 		NUMBER;
-/******************************************************************************
-   NAME:       ADD_PACKAGE_INTEREST
-   PURPOSE:
-   REVISIONS:
+	levelNum		NUMBER;
-   Ver        Date        Author           Description
-   ---------  ----------  ---------------  ------------------------------------
-.0        12/05/2006  Rupesh Solanki     1. Created this procedure.
-   NOTES:
-   Automatically available Auto Replace Keywords:
-      Object Name:     ADD_PACKAGE_INTEREST
-      Sysdate:         12/05/2006
-      Date and Time:   12/05/2006, 9:11:12 AM, and 12/05/2006 9:11:12 AM
-      Username:         (set in TOAD Options, Procedure Editor)
-      Table Name:       (set in the "New PL/SQL Object" dialog)
-******************************************************************************/
-   npkgidcollector   relmgr_number_tab_t := relmgr_number_tab_t ();
-   nPkgId NUMBER;
 BEGIN
+    SELECT SEQ_session_num.nextval INTO sessionNum FROM DUAL;
+	/*
+	||	   Start UP THE TREE
+	*/
+	/* Packages with no dependencies */
+    INSERT INTO TEMP_TREE_BROWSE (SESSION_NUM, LEVEL_NUM, DIRECTION, PV_ID, PKG_ID, V_EXT )
+		SELECT sessionNum AS SESSION_NUM,
+			   iteration AS LEVEL_NUM,
+			   UP_THE_TREE AS DIRECTION,
+			   rc.pv_id, pv.pkg_id, pv.v_ext
+		  FROM release_content rc,
+		  	   package_versions pv
+		 WHERE rc.rtag_id = nRtag_id
+		   AND rc.pv_id = pv.pv_id
+		 MINUS
+		SELECT sessionNum AS SESSION_NUM,
+			   iteration AS LEVEL_NUM,
+			   UP_THE_TREE AS DIRECTION,
+			   dep.pv_id, pv.pkg_id, pv.v_ext
+		  FROM package_dependencies dep,
+		  	   package_versions pv
+		 WHERE dep.pv_id IN ( SELECT pv_id FROM release_content WHERE rtag_id = nRtag_id )
+		   AND dep.pv_id = pv.pv_id;
+	/* Browse UP the build tree */
+	iteration := iteration + 1;
+    LOOP
+		INSERT INTO TEMP_TREE_BROWSE (SESSION_NUM, LEVEL_NUM, DIRECTION, PV_ID, PKG_ID, V_EXT )
+			SELECT DISTINCT
+			       sessionNum AS SESSION_NUM,
+			       iteration AS LEVEL_NUM,
+				   UP_THE_TREE AS DIRECTION,
+				   rdep.pv_id, rdep.pkg_id, rdep.v_ext
+			  FROM (
+			        SELECT dep.pv_id, pv.pkg_id, pv.v_ext, dep.dpv_id, dpv.pkg_id AS dpkg_id, dpv.v_ext AS dv_ext
+			          FROM package_dependencies dep,
+			               release_content rc,
+						   package_versions pv,
+						   package_versions dpv
+			         WHERE dep.pv_id = rc.pv_id
+			           AND rc.rtag_id = nRtag_id
+					   AND dep.pv_id = pv.pv_id
+					   AND dep.dpv_id = dpv.pv_id
+					) rdep,
+					temp_tree_browse ttb
+			 WHERE rdep.dpkg_id  = ttb.pkg_id
+			   AND NVL(rdep.dv_ext ,'|LINK_A_NULL|') = NVL(ttb.v_ext,'|LINK_A_NULL|')
+			   AND ttb.SESSION_NUM = sessionNum
+			   AND ttb.LEVEL_NUM = iteration - 1
+			MINUS
+			/* Packages with all depencencies NOT matched */
+			SELECT DISTINCT
+			       sessionNum AS SESSION_NUM,
+			       iteration AS LEVEL_NUM,
+				   UP_THE_TREE AS DIRECTION,
+				   rdep.pv_id, rdep.pkg_id, rdep.v_ext
+			  FROM (
+			        SELECT dep.pv_id, pv.pkg_id, pv.v_ext, dep.dpv_id, dpv.pkg_id AS dpkg_id, dpv.v_ext AS dv_ext
+			          FROM package_dependencies dep,
+			               release_content rc,
+						   package_versions pv,
+						   package_versions dpv
+			         WHERE dep.pv_id = rc.pv_id
+			           AND rc.rtag_id = nRtag_id
+					   AND dep.pv_id = pv.pv_id
+					   AND dep.dpv_id = dpv.pv_id
+					) rdep,
+					(
+					 SELECT tb.*
+					   FROM temp_tree_browse tb
+					  WHERE tb.SESSION_NUM = sessionNum
+					) ttb
+			 WHERE rdep.dpkg_id  = ttb.pkg_id (+)
+			   AND NVL(rdep.dv_ext ,'|LINK_A_NULL|') = NVL(ttb.v_ext (+),'|LINK_A_NULL|')
+			   AND ttb.SESSION_NUM IS NULL;
+		rowCnt := SQL%ROWCOUNT;
+		IF rowCnt > 0 THEN
+           iteration := iteration + 1;
+		END IF;
+        EXIT WHEN (rowCnt < 1) OR (iteration > maxIterations);
+    END LOOP;
+	/*---------------------------------------------------------------------------------------------------------------------*/
-	 npkgidcollector := in_list_number2 (nPkgIdList);
+	/*     Check for unresolved dependencies
+	||
+	*/
+	/* UNRESOLVED */
+	 SELECT COUNT(*) INTO rowCnt
+	   FROM (
+			 SELECT pv.pv_id, pv.pkg_id, pv.v_ext
+			  FROM release_content rc,
+			  	   package_versions pv
+			 WHERE rc.rtag_id = nRtag_id
+			   AND rc.pv_id = pv.pv_id
+			MINUS
+			SELECT ttb.pv_id, ttb.pkg_id, ttb.v_ext
+			  FROM temp_tree_browse ttb
+			 WHERE ttb.session_num = sessionNum
+			);
+	 IF rowCnt > 0
+	 THEN
-	FOR i IN 1..npkgidcollector.COUNT
+	 	 /*     Circular dependencies detected.
+		 ||     Try to resolve build order from the top now.
+		 ||		Start DOWN THE TREE
-	LOOP
+		 */
+		iteration := 0;
+		 /* Top Level packages */
+		INSERT INTO TEMP_TREE_BROWSE (SESSION_NUM, LEVEL_NUM, DIRECTION, PV_ID, PKG_ID, V_EXT )
+			SELECT sessionNum AS SESSION_NUM,
+			       iteration AS LEVEL_NUM,
+				   DOWN_THE_TREE AS DIRECTION,
+				   pv.pv_id, pv.pkg_id, pv.v_ext
+			  FROM (
+					/* Packages no one depends on ( Top level packages )*/
+					(
+					/* All parents*/
+					SELECT pv.pkg_id, pv.v_ext
+			          FROM package_dependencies dep,
+			               release_content rc,
+						   package_versions pv
+			         WHERE dep.pv_id = rc.pv_id
+			           AND rc.rtag_id = nRtag_id
+					   AND dep.pv_id = pv.pv_id
+					 MINUS
+					 /* All children */
+					SELECT dpv.pkg_id, dpv.v_ext
+			          FROM package_dependencies dep,
+			               release_content rc,
+						   package_versions dpv
+			         WHERE dep.pv_id = rc.pv_id
+			           AND rc.rtag_id = nRtag_id
+					   AND dep.dpv_id = dpv.pv_id
+					 )
+					 MINUS
+					/* Packages with resolved dependencies from UP THE TREE */
+					SELECT ttb.pkg_id, ttb.v_ext
+					  FROM temp_tree_browse ttb
+					 WHERE ttb.session_num = sessionNum
+				  ) tpkg,
+				  package_versions pv,
+				  release_content rc
+			WHERE rc.rtag_id = nRtag_id
+			  AND rc.pv_id = pv.pv_id
-		nPkgId := npkgidcollector(i);
+			  AND tpkg.pkg_id = pv.pkg_id
+			  AND NVL(tpkg.v_ext,'|LINK_A_NULL|') = NVL(pv.v_ext,'|LINK_A_NULL|');
+		 /* Keep taking packages which no one depende on */
-	 --- Insert into PACKAGE_INTEREST TABLE
+		 iteration := iteration - 1;
+		 LOOP
-	 INSERT INTO PACKAGE_INTEREST (PROJ_ID, PKG_ID, USER_ID)
+			   INSERT INTO TEMP_TREE_BROWSE (SESSION_NUM, LEVEL_NUM, DIRECTION, PV_ID, PKG_ID, V_EXT )
+					SELECT sessionNum AS SESSION_NUM,
+					       iteration AS LEVEL_NUM,
+					       DOWN_THE_TREE AS DIRECTION,
+					       pv.pv_id, pv.pkg_id, pv.v_ext
+					  FROM (
+					 	/* All Unresolved */
+					 	(
+					 	SELECT pv.pkg_id, pv.v_ext
+					 	  FROM release_content rc,
+					 	  	   package_versions pv
+					 	 WHERE rc.rtag_id = nRtag_id
+					 	   AND rc.pv_id = pv.pv_id
+					 	MINUS
+					 	SELECT ttb.pkg_id, ttb.v_ext
+					 	  FROM temp_tree_browse ttb
+					 	 WHERE ttb.session_num = sessionNum
+					 	)
+					 	 MINUS
+					 	(
+					 	 /* Children of Unresolved */
-	 VALUES(nProjId, nPkgId, nUserId);
+					 	SELECT dpv.pkg_id, dpv.V_EXT
+					 	  FROM (
+					 			SELECT pv.pv_id, pv.pkg_id, pv.v_ext
+					 			  FROM release_content rc,
+					 			  	   package_versions pv
+					 			 WHERE rc.rtag_id = nRtag_id
+					 			   AND rc.pv_id = pv.pv_id
+					 			MINUS
+					 			SELECT ttb.pv_id, ttb.pkg_id, ttb.v_ext
+					 			  FROM temp_tree_browse ttb
+					 			 WHERE ttb.session_num = sessionNum
+					 		   ) unr,
+					 		   package_dependencies dep,
+					 		   package_versions dpv
+					 	 WHERE unr.pv_id = dep.pv_id
+					 	   AND dep.dpv_id = dpv.pv_id
+					 	 )
+					   ) tpkg,
+					   package_versions pv,
+					   release_content rc
+					WHERE rc.rtag_id = nRtag_id
+					  AND rc.pv_id = pv.pv_id
+					  AND tpkg.pkg_id = pv.pkg_id
+					  AND NVL(tpkg.v_ext,'|LINK_A_NULL|') = NVL(pv.v_ext,'|LINK_A_NULL|');
+            rowCnt := SQL%ROWCOUNT;
+        	IF rowCnt > 0 THEN
+	           iteration := iteration - 1;
+			END IF;
+            EXIT WHEN (rowCnt < 1);
-	END LOOP;
+     	END LOOP;
+	 END IF;
-END ADD_PACKAGE_INTEREST;
-/
---------------------------------------------------------
---  DDL for Procedure UNLOCK_PACKAGE
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "UNLOCK_PACKAGE" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
-											 nUserId IN NUMBER ) IS
-/* ---------------------------------------------------------------------------
-    Author: Rupesh Solanki
-	Version: 4.0
-   --------------------------------------------------------------------------- */
-   STATE CHAR;
-BEGIN
-	SELECT DLOCKED INTO STATE
-	FROM PACKAGE_VERSIONS
-	WHERE PV_ID = nPvId;
-	IF STATE = 'A' THEN --It was made official for autobuilds
+	/*---------------------------------------------------------------------------------------------------------------------*/
-		-- Unlock Package
-		UPDATE PACKAGE_VERSIONS pv SET
-		pv.DLOCKED = 'P'
-		WHERE pv.PV_ID = nPvId;
-	ELSE
-		-- Unlock Package
-		UPDATE PACKAGE_VERSIONS pv SET
-		pv.DLOCKED = 'N'
-		WHERE pv.PV_ID = nPvId;
-	END IF;
-    /* LOG ACTION */
-   	Log_Action ( nPvId, 'unlock_package', nUserId );
-END Unlock_Package;
-/
+	/*
---------------------------------------------------------
---  DDL for Procedure REMOVE_PROJECT_VIEW_OWNER
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "REMOVE_PROJECT_VIEW_OWNER" (nProjId IN NUMBER,
-	   	  		  						 			  nViewId IN NUMBER,
-										 			  sUserIdList IN VARCHAR2,
-										 			  nUserId IN NUMBER ) IS
-GroupId NUMBER;
-/******************************************************************************
-   NAME:       UPDATE_VIEW
-   PURPOSE:
-   REVISIONS:
-   Ver        Date        Author           		Description
-   ---------  ----------  ---------------  ------------------------------------
-.0        10/04/2006     Rupesh Solanki     1. Created this procedure.
-   NOTES:
-   Automatically available Auto Replace Keywords:
-      Object Name:     UPDATE_VIEW
-      Sysdate:         10/04/2006
+	|| 	 Save results from temp table
-      Date and Time:   10/04/2006, 1:55:19 PM, and 10/04/2006 1:55:19 PM
-      Username:         (set in TOAD Options, Procedure Editor)
-      Table Name:       (set in the "New PL/SQL Object" dialog)
-******************************************************************************/
-BEGIN
-	 SELECT GROUP_EMAIL_ID into GroupId
-	 FROM AUTOBUILD_FAILURE
-	 WHERE PROJ_ID = nProjId
-	 AND VIEW_ID = nViewId;
+	*/
-	 DELETE FROM MEMBERS_GROUP
+	/* Clean up build_order table */
-	 WHERE GROUP_EMAIL_ID = GroupId
+	DELETE FROM BUILD_ORDER WHERE rtag_id = nRtag_id;
-	 AND USER_ID IN (
-	 SELECT * FROM THE ( SELECT CAST( IN_LIST_NUMBER( sUserIdList ) AS RELMGR_NUMBER_TAB_t ) FROM dual )
-	 );
+	/* Save UP THE TREE */
+	INSERT INTO BUILD_ORDER ( RTAG_ID, STEP_NUM, PV_ID )
+		SELECT nRtag_id AS rtag_id,
+			   ttb.level_num AS step_num,
+			   ttb.PV_ID
+		  FROM temp_tree_browse ttb
+		 WHERE ttb.session_num = sessionNum
+		   AND ttb.direction = UP_THE_TREE;
+	/*Get last step_num */
+	SELECT MAX(ttb.level_num) + 1 INTO levelNum
+	FROM temp_tree_browse ttb WHERE ttb.session_num = sessionNum AND ttb.DIRECTION = UP_THE_TREE;
+	/* UNRESOLVED */
-END REMOVE_PROJECT_VIEW_OWNER;
+	 SELECT COUNT(*) INTO rowCnt
-/
+	   FROM (
---------------------------------------------------------
+			 SELECT pv.pv_id, pv.pkg_id, pv.v_ext
+			  FROM release_content rc,
+			  	   package_versions pv
---  DDL for Procedure DEPLOY_TO_RELEASE
+			 WHERE rc.rtag_id = nRtag_id
---------------------------------------------------------
+			   AND rc.pv_id = pv.pv_id
+			MINUS
-  CREATE OR REPLACE PROCEDURE "DEPLOY_TO_RELEASE" IS
+			SELECT ttb.pv_id, ttb.pkg_id, ttb.v_ext
+			  FROM temp_tree_browse ttb
-/******************************************************************************
+			 WHERE ttb.session_num = sessionNum
+			);
-******************************************************************************/
-	CURSOR curInfo IS
+	IF rowCnt > 0
+	THEN
+		/* Save unresolved packages */
+ 		INSERT INTO BUILD_ORDER ( RTAG_ID, STEP_NUM, PV_ID, UNRESOLVED )
-    SELECT DISTINCT
+		    SELECT  nRtag_id AS rtag_id,
+				    levelNum AS step_num,
-        qry.DPV_ID
+				    upv.PV_ID,
+					'Y' AS UNRESOLVED
-     FROM (
+			   FROM (
-             SELECT dep.*,
+					 SELECT pv.pv_id, pv.pkg_id, pv.v_ext
-                    LEVEL AS LEVEL_NUM
+					  FROM release_content rc,
-               FROM PACKAGE_DEPENDENCIES dep
+					  	   package_versions pv
-             START WITH dep.PV_ID IN (
+					 WHERE rc.rtag_id = nRtag_id
+					   AND rc.pv_id = pv.pv_id
-,63479,60048,49566,49562,54351,63560,54360,46053,59753,97060,97061,100883,78236,75241,92371,92372,105682,135506,127204,135615,136498,137571,61534,76540,96787,133102,96770,96771,116692,133768,61537,88935,110216,96797,69469,98123,111626,96802,100289,97233,97623,135801,69700,77808,43026,77809,43027,100825,126854,105589,96405,102105,133770,134408,91177,91179,96822,96824,48031,78965,78936,78935,79114,76620,125164,61804,96826,61977,67592,72594,134415,135804,65097,64850,64851,64879,64881,64882,64884,67612,67613,67614,67615,68501,68502,68503,68516,68518,68519,68521,71974,68659,69764,68662,68661,68757,69765,69766,69767,71975,71976,71977,71978,71979,71980,75149,71982,71983,75153,75158,71986,75160,75161,75162,72418,72419,71987,71988,71990,75164,72420,72421,72423,72424,72425,75165,75181,75182,83285,75184,75201,75220,75240,75260,75280,75242,76320,75320,76340,76321,82031,76341,76342,76344,76345,76806,76350,76810,76811,76360,76361,76362,76380,76637,76638,76639,76647,76649,76812,76650,78261,76815,77603,76818,76846,76847,76848,76849,77604,77606,77016,77607,77608,77609,78518,77671,77610,78519,78520,78205,78206,77795,78262,78263,78666,78521,78669,78767,78768,78770,78771,82032,79471,78772,82033,80856,80210,80898,82449,80211,80212,80214,80215,80216,80611,80217,82034,82035,80749,80750,82036,94266,82037,82038,82039,82040,82041,82042,82043,82044,82045,82046,82450,82296,82297,82451,82047,82298,82299,82300,82452,82453,82454,82455,82456,82457,82769,82458,82459,82770,82460,82461,82771,83286,85069,83543,83544,83287,85070,84959,85071,85072,84960,85073,85074,84975,85194,85075,85195,85196,85197,85198,85199,94267,85231,85237,94268,94269,94270,94271,94273,94274,94275,94276,94277,94278,94279,94280,94281,94282,94283,94284,94285,94286,94287,94288,94289,94290,94291,94292,94293,94294,94295,94296,94297,94298,94299,94300,94301,94302,94303,94304,94305,94306,94307,94308,94309,94310,94311,94312,94313,94314,94315,94316,94634,94317,94635,97035,94319,94320,94636,94637,94322,96536,96552,96554,96555,96556,96568,96569,96570,96571,96572,96573,96574,96575,96576,96577,96578,96579,96580,96581,96582,96583,96584,96585,96586,96818,97435,96819,96820,97599,97436,97437,97438,97439,97440,97434,97723,97640,97641,97642,97724,97725,97729,97743,97825,98097,98098,98099,98100,97999,98049,98101,98102,98103,99506,98268,98207,99507,99508,99509,99159,99510,99511,99512,102883,99513,99514,100243,99515,99880,99562,99563,99676,99677,99678,99881,99882,99883,99884,100244,100245,100623,100247,100624,100625,100626,100885,100719,100886,100887,100888,100889,100890,100990,100991,101301,101603,110065,101605,102180,102627,102181,102182,102183,102184,102185,102186,102187,102188,102189,102190,102191,104378,102192,104379,102193,102379,102380,102381,102884,102410,102411,102628,102465,102629,102630,102885,102886,102887,104380,104381,104382,104383,104384,104385,104387,110063,104389,106409,104561,104594,104660,105088,105089,105090,105091,105093,105097,105673,105768,106410,109314,106173,110064,137890,106433,106960,109080,111665,122015,110954,116763,110066,116764,110123,111867,110713,116765,111666,116869,111667,111668,116766,116767,115142,115143,121477,113924,114594,116768,115144,116769,115170,115172,115171,115644,120042,120043,116092,116870,116871,118382,116872,116876,120044,118026,119364,121485,120045,120416,121478,120417,122016,124577,129495,123602,123600,124578,124579,124580,124581,124784,125238,127096,127097,129496,129497,128036,128415,129498,129499,129914,130063,130064,130680,130681,131333,131488,133886,132219,132477,132478,133887,136537,136552,136538,136539,136540,136553,136554,136555,137869,85076,80857,62418,64889,64890,64891,64893,68666,68667,68668,68670,68671,68672,68673,72019,72020,72023,72024,72227,77745,77746,77747,77748,77749,77750,77751,77798,78773,80751,82464,82465,83288,92874,92875,92876,92877,92878,94122,94123,96290,96882,96883,97554,97514,97726,98008,98009,98051,99193,100248,99608,100249,100250,100670,100671,100672,101059,101061,101607,102194,102195,102412,102413,102633,104390,104391,106421,104560,104595,105767,106174,106426,109081,122017,137851,110712,116873,115145,115146,114597,115645,116095,120046,123551,122018,124584,124585,129500,129501,129502,128417,129503,129915,130066,131487,133897,133882,133883,136559,85078,100673,63475,78264,78265,78266,78267,78775,80753,94118,94119,94120,94121,96888,100251,100252,102631,102590,102632,65229,43366,69139,132551,59764,127129,101196,96830,61535,105433,96833,96835,96839,83795,77723,126868,99146,70188,117523,117524,117525,99237,100854,100855,137314,137315,96868,138232,138233,69709,96907,130854,119208,69520,124772,96878,60049,47875,70354,59371,54558,59849,33893,43087,43134,33894,60054,24345,49563,49558,97474,84982,31770,30950,49926,60050,52670,59846,59891,30966,59744,61988,59745,59881,59746,59741,47449,59747,64101,63480,63562,105382,105383,60052,48955,49561,49556,47401,65896,65906,65909,65985,108670,68697,68698,59754,59752,59751,62526,59805,59799,66981,46050,59756,46044,59806,46051,59807,82290,66980,59808,46046,61536,88834,70260,111081,105409,66093,66095,66094,47440,65778,59750,56748,99152,78409
+					MINUS
+					SELECT ttb.pv_id, ttb.pkg_id, ttb.v_ext
-                        )
+					  FROM temp_tree_browse ttb
- 			CONNECT BY PRIOR dep.DPV_ID = dep.PV_ID
+					 WHERE ttb.session_num = sessionNum
- 		) qry,
+					) upv;
- 		PACKAGES pkg,
+	END IF;
-		PACKAGE_VERSIONS pv
+	/* Save DOWN THE TREE */
+	levelNum := 1000;
- 	 WHERE qry.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID
+	INSERT INTO BUILD_ORDER ( RTAG_ID, STEP_NUM, PV_ID )
+		SELECT nRtag_id AS rtag_id,
-         and (pv.is_patch is null or pv.is_patch = 'N');
+			   levelNum + ttb.level_num  AS step_num,
+			   ttb.PV_ID
+		  FROM temp_tree_browse ttb
+		 WHERE ttb.session_num = sessionNum
-    recInfo curInfo%ROWTYPE;
+		   AND ttb.direction = DOWN_THE_TREE;
-BEGIN
-	OPEN curInfo;
-    FETCH curInfo INTO recInfo;
+	/*---------------------------------------------------------------------------------------------------------------------*/
-	WHILE curInfo%FOUND
+	/* Clean up temp table */
-	LOOP
-	insert into release_content(RTAG_ID, PV_ID, BASE_VIEW_ID, INSERT_STAMP, INSERTOR_ID, PKG_STATE)
-    VALUES(8027, recInfo.dpv_id, 7, ora_sysdatetime, 0, 0);
+	DELETE FROM TEMP_TREE_BROWSE WHERE session_num = sessionNum;
-    FETCH curInfo INTO recInfo;
-	END LOOP;
-	CLOSE curInfo;
-END DEPLOY_TO_RELEASE;
-/
---------------------------------------------------------
---  DDL for Procedure TOUCH_RELEASE
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "TOUCH_RELEASE" ( nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE ) IS
-/* ---------------------------------------------------------------------------
-    The purpose of this procedure is to flag in the database that the specified
-    release has changed to an extent that the procedure Rebuild_Environment
-    should be called at the next opportunity in order that the package state
-    icons are all re-evaluated.
-    The package state icons are controlled using the pkg_state column in the
-    release_content table, and Rebuild_Environment updates that column.
-    It will be through user action in the website that Rebuild_Environment will
-    be called, for example:
-      a) when setting/clearing ignore warnings checkboxes
-      b) when someone opens a page upon a rtag/pvid and rebuild_en flag is set
-      c) when someone opens the build order report form
-      d) when someone modifies dependencies of a package
-      + other scenarios (?)
+	retSessionNum := sessionNum;
-   --------------------------------------------------------------------------- */
-BEGIN
-   -- Touch Release for Rebuild
-   UPDATE RELEASE_TAGS rt SET
-          rt.REBUILD_ENV = 'Y',
-          rt.REBUILD_STAMP = 0
-    WHERE rt.RTAG_ID = nRtagId;
-END Touch_Release;
+END Build_Tree;
+/
 --------------------------------------------------------
---  DDL for Procedure UNRIPPLE_PACKAGE
+--  DDL for Procedure CHANGE_PACKAGE_STATE
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "UNRIPPLE_PACKAGE" (
+  CREATE OR REPLACE PROCEDURE "CHANGE_PACKAGE_STATE" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
-        sPvIdList IN VARCHAR2,
-        nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE,
+											 nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE ) IS
-        nUserId IN NUMBER
-    ) IS
 /* ---------------------------------------------------------------------------
-    Version: 4.1
+    Version: 4.0
    --------------------------------------------------------------------------- */
-    oPvIdCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
-BEGIN
-    IF (sPvIdList IS NULL) THEN
-        RAISE_APPLICATION_ERROR (-20000, 'Please select at least one package.' );
-    END IF;
-    oPvIdCollector := IN_LIST_NUMBER ( sPvIdList );
-    -- UnRipple Package
-    INSERT INTO DO_NOT_RIPPLE ( RTAG_ID, PV_ID )
-    SELECT nRtagId, pv.PV_ID
-    FROM PACKAGE_VERSIONS pv
-    WHERE pv.PV_ID IN (
-        SELECT *
-        FROM TABLE (
-            CAST ( oPvIdCollector AS RELMGR_NUMBER_TAB_t )
-        )
-    );
-    /* LOG ACTION */
-    Log_Action_Bulk ( sPvIdList, 'unripple_package', nUserId );
-END UnRipple_Package;
-/
---------------------------------------------------------
---  DDL for Procedure DT_DROPUSEROBJECTBYID
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "DT_DROPUSEROBJECTBYID" ( PARAM_ID IN NUMBER ) AS BEGIN DELETE FROM MICROSOFTDTPROPERTIES WHERE OBJECTID = PARAM_ID; END DT_DROPUSEROBJECTBYID;
-/
---------------------------------------------------------
---  DDL for Procedure UNRIPPLE_PACKAGE_INDIRECT
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "UNRIPPLE_PACKAGE_INDIRECT" (
-        nPvId IN NUMBER,
-        nRtagId IN NUMBER,
-        nUserId IN NUMBER,
-        nrootCausePvId IN NUMBER,
-        srootCause IN VARCHAR2,
-        srootFile IN VARCHAR2
-    ) IS
-    ReleaseLocation VARCHAR2(4000);
 BEGIN
-    -- UnRipple Package
+    -- Unlock Package
-    delete from do_not_ripple where rtag_id=nRtagId and pv_id=nPvId;
-    INSERT INTO DO_NOT_RIPPLE ( RTAG_ID, PV_ID, ROOT_PV_ID, ROOT_CAUSE, ROOT_FILE ) values (nRtagId, nPvId, nrootCausePvId, srootCause, srootFile);
-    /* LOG ACTION */
-   SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-              FROM PROJECTS proj,
+    UPDATE RELEASE_CONTENT rc SET
-                   RELEASE_TAGS rt
+    	rc.PKG_STATE = 0
-             WHERE rt.RTAG_ID = nRtagId
+    WHERE rc.PV_ID = nPvId
-               AND rt.PROJ_ID = proj.PROJ_ID;
+	AND rc.RTAG_ID = nRtagId;
     /* LOG ACTION */
-    Log_Action ( nPvId, 'unripple_package', nUserId, 'Location: '|| ReleaseLocation );
+   /*	Log_Action ( nPvId, 'unlock_package', nUserId );*/
-END UnRipple_Package_Indirect;
-/
---------------------------------------------------------
---  DDL for Procedure TO_INSERT_VTREE_ID
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "TO_INSERT_VTREE_ID" IS
-/******************************************************************************
-   NAME:       TO_INSERT_VTREE_ID
-   PURPOSE:
-   REVISIONS:
-   Ver        Date        Author           Description
-   ---------  ----------  ---------------  ------------------------------------
-.0        2/02/2007          1. Created this procedure.
-   NOTES:
-   Automatically available Auto Replace Keywords:
-      Object Name:     TO_INSERT_VTREE_ID
-      Sysdate:         2/02/2007
-      Date and Time:   2/02/2007, 8:42:56 AM, and 2/02/2007 8:42:56 AM
-      Username:         (set in TOAD Options, Procedure Editor)
-      Table Name:       (set in the "New PL/SQL Object" dialog)
-******************************************************************************/
-VTreeId NUMBER;
-	CURSOR curInfo IS
-    SELECT RTAG_ID
-	FROM RELEASE_TAGS
-	WHERE VTREE_ID IS NULL;
-    recInfo curInfo%ROWTYPE;
-BEGIN
-	OPEN curInfo;
-    FETCH curInfo INTO recInfo;
-	WHILE curInfo%FOUND
-	LOOP
-		SELECT SEQ_VTREE_ID.nextval INTO VTreeId FROM DUAL;
-		UPDATE RELEASE_TAGS
-		SET VTREE_ID = VTreeId
-		WHERE RTAG_ID = recInfo.RTAG_ID;
-		FETCH curInfo INTO recInfo;
-	END LOOP;
-	CLOSE curInfo;
-END TO_INSERT_VTREE_ID;
+END Change_Package_State;
+/
 --------------------------------------------------------
 --  DDL for Procedure CHANGE_RELEASE_MODE
 --------------------------------------------------------
 END CHANGE_RELEASE_MODE;
+/
 --------------------------------------------------------
---  DDL for Procedure UPDATE_UNIT_TEST_TEST
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "UPDATE_UNIT_TEST_TEST" ( nTest_id IN NUMBER,
-	   	  		  							   nTestTypeId IN UNIT_TESTS.TEST_TYPES_FK%TYPE,
-											   nPv_id IN NUMBER,
-											   nUserId IN NUMBER,
-	                                           sTest_summary IN UNIT_TESTS.TEST_SUMMARY%TYPE,
-											   sNumof_test IN UNIT_TESTS.NUMOF_TEST%TYPE,
-	                                           sCompletion_date IN VARCHAR2,
-											   sDpkg_path IN VARCHAR2,
-											   enumTEST_TYPE_AUTOMATIC IN NUMBER,
-											   sResults IN VARCHAR2,
-											   outFileName OUT VARCHAR2
-                                              ) IS
-/* ---------------------------------------------------------------------------
-    Version: 3.1.0
-   --------------------------------------------------------------------------- */
-   	FILENAME_PREFIX CONSTANT VARCHAR2(50) := 'RM_UNIT_TEST';
-    ResultsURL UNIT_TESTS.RESULTS_URL%TYPE DEFAULT NULL;
-    ResultsAttachment UNIT_TESTS.RESULTS_ATTACHMENT_NAME%TYPE DEFAULT NULL;
-BEGIN
-       IF nTestTypeId = enumTEST_TYPE_AUTOMATIC THEN
-       	ResultsURL := sResults;
-       ELSE
-       	IF (sResults <> '') OR ( NOT sResults IS NULL ) THEN
-        	outFileName := FILENAME_PREFIX || nTest_id ||'_'|| sResults;
-    		ResultsAttachment := sDpkg_path || '/' || outFileName;
-           END IF;
-       END IF;
-       /*	IF (sResults <> '') OR ( NOT sResults IS NULL ) THEN
-        	outFileName := FILENAME_PREFIX || newID ||'_'|| sResults;
-    		sResults_url:= 'doc' || '/' ||
-			;
-        END IF;*/
-	--- Update Unit Test ---
-    UPDATE UNIT_TESTS SET
-           TEST_SUMMARY = sTest_summary,
-		   NUMOF_TEST = sNumof_test,
-           COMPLETION_DATE = TO_DATE( sCompletion_date,'DD/MM/YYYY' ),
-		   COMPLETED_BY = nUserId,
-		   RESULTS_URL = ResultsURL,
-		   RESULTS_ATTACHMENT_NAME = ResultsAttachment
-     WHERE TEST_ID = nTest_id
-       AND PV_ID = nPv_id;
-END Update_Unit_Test_Test;
-/
---------------------------------------------------------
---  DDL for Procedure NEW_VERSION
+--  DDL for Procedure CHECK_NEW_PATCHES
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "NEW_VERSION" ( NNorig_pv_id IN NUMBER,
+  CREATE OR REPLACE PROCEDURE "CHECK_NEW_PATCHES" (
-                                          SSpkg_version IN PACKAGE_VERSIONS.pkg_version%TYPE DEFAULT NULL,
-                                          NNsetto_pv_id IN NUMBER DEFAULT NULL,
-                                          NNrtag_id IN NUMBER,
+   nrtagid   IN   release_content.rtag_id%TYPE
-                                          NNuser_id IN NUMBER,
-                                          enumISSUES_STATE_IMPORTED IN NUMBER,
-                                          retPv_id OUT NUMBER ) IS
-  TO BE REMOVED   !!!
+)
+IS
 /* ---------------------------------------------------------------------------
-    Version: 3.3
+    Version: 3.0
    --------------------------------------------------------------------------- */
-    ReleaseLocation VARCHAR2(4000);
-    origPkg_id PACKAGE_VERSIONS.pkg_id%TYPE;
-    origDlocked PACKAGE_VERSIONS.dlocked%TYPE;
-    SSV_MM PACKAGE_VERSIONS.V_MM%TYPE;
-    SSV_NMM PACKAGE_VERSIONS.V_NMM%TYPE;
-    SSV_EXT PACKAGE_VERSIONS.V_EXT%TYPE;
-    nIssuesTypes NUMBER;
-    CURSOR package_versions_cur IS
-        SELECT pv.pv_id, pv.is_patch
-          FROM PACKAGE_VERSIONS pv
-         WHERE pv.pkg_version = SSpkg_version
-           AND pv.pkg_id IN ( SELECT DISTINCT origpv.pkg_id FROM PACKAGE_VERSIONS origpv WHERE origpv.pv_id = NNorig_pv_id );
-    package_versions_rec package_versions_cur%ROWTYPE;
-    CURSOR clone_package_versions_cur IS
-        SELECT DISTINCT pkg_id, dlocked FROM PACKAGE_VERSIONS WHERE pv_id = NNorig_pv_id;
-    clone_package_versions_rec clone_package_versions_cur%ROWTYPE;
 BEGIN
-	IF NNsetto_pv_id IS NULL
-    THEN
-		-- SetToPv_id is not supplied, hence proceed.
-	    /* ---------------------------------------------------- */
+   /*--------------- Business Rules Here -------------------*/
-	    /* Find id package_version exists                       */
+   /*IF nRtagId NOT IN (SELECT RTAG_ID FROM RELEASE_TAGS ) THEN
-	    /* ---------------------------------------------------- */
-	    OPEN package_versions_cur;
-	    FETCH package_versions_cur INTO package_versions_rec;
-	    IF package_versions_cur%NOTFOUND
-	    THEN
-	        SELECT SEQ_PV_ID.NEXTVAL INTO retPv_id FROM DUAL;
-	        Split_Version ( SSpkg_version, SSV_MM, SSV_NMM, SSV_EXT );
-	        OPEN clone_package_versions_cur;
-	        FETCH clone_package_versions_cur INTO clone_package_versions_rec;
-	        origPkg_id := clone_package_versions_rec.pkg_id;
-	        origDlocked := clone_package_versions_rec.dlocked;
-	        CLOSE clone_package_versions_cur;
-	        -- Clone Package Version Details --
-	        INSERT INTO PACKAGE_VERSIONS ( pv_id, pkg_id, pkg_version, dlocked, created_stamp, creator_id, modified_stamp, modifier_id, V_MM, V_NMM, V_EXT,
+      RAISE_APPLICATION_ERROR (-20000, 'Please contact the person in charge of Release Manager now.' );
-	                                       src_path, pv_description, PV_OVERVIEW, LAST_PV_ID, owner_id, IS_DEPLOYABLE, IS_BUILD_ENV_REQUIRED )
-	            SELECT retPv_id         AS pv_id,
-	                   origPkg_id       AS pkg_id,
-	                   SSpkg_version    AS pkg_version,
-	                   'N'              AS dlocked,
-	                   Ora_Sysdate      AS created_stamp,
-	                   NNuser_id        AS creator_id,
-	                   Ora_Sysdatetime  AS modified_stamp,
-	                   NNuser_id        AS modifier_id,
-	                   SSV_MM           AS V_MM,
-	                   SSV_NMM          AS V_NMM,
-	                   SSV_EXT          AS V_EXT,
-	                   pv.src_path,
-	                   pv.pv_description,
-                       pv.PV_OVERVIEW,
-                       NNorig_pv_id 	AS LAST_PV_ID,
-	                   pv.owner_id,
-					   pv.IS_DEPLOYABLE,
-					   pv.IS_BUILD_ENV_REQUIRED
-	              FROM PACKAGE_VERSIONS pv
-	             WHERE pv.pv_id = NNorig_pv_id;
-	        -- Set Issues Type for cloning ---
-	        IF origDlocked = 'Y'
-	        THEN
-            	nIssuesTypes := enumISSUES_STATE_IMPORTED;
-	        ELSE
-            	nIssuesTypes := NULL;
-	        END IF;
-			Basic_Clone ( NNorig_pv_id, retPv_id, NNrtag_id, NNuser_id, origPkg_id, nIssuesTypes );
-	    ELSE
-	        retPv_id := package_versions_rec.pv_id;
-	    END IF;
-        CLOSE package_versions_cur;
-	ELSE
-    	retPv_id := NNsetto_pv_id;
-    END IF;
+   END IF
-    /* ---------------------------------------------------- */
-    /* Insert into Release Contents (EXCLUDE PATCHES)       */
-    /* ---------------------------------------------------- */
-	IF (package_versions_rec.is_patch != 'Y') OR (package_versions_rec.is_patch IS NULL) THEN
-	    UPDATE RELEASE_CONTENT
-	       SET pv_id = retPv_id,
-	           insert_stamp = Ora_Sysdate,
-	           insertor_id = NNuser_id
-	     WHERE rtag_id = NNrtag_id
-	       AND pv_id = NNorig_pv_id;
-        /* LOG ACTION */
-        SELECT proj.PROJ_NAME ||' / '|| vt.VTREE_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-		  FROM PROJECTS proj,
-		  	   VTREES vt,
-		       RELEASE_TAGS rt
-		 WHERE rt.VTREE_ID = vt.VTREE_ID
-		   AND vt.PROJ_ID = proj.PROJ_ID
-		   AND rt.RTAG_ID = NNrtag_id;
-        Log_Action ( NNorig_pv_id, 'replaced_with', NNuser_id, 'Replacing version: '|| SSpkg_version ||' at '|| ReleaseLocation );
-   		Log_Action ( retPv_id, 'add', NNuser_id, 'Location: '|| ReleaseLocation );
-	END IF;
+   /*-------------------------------------------------------*/
+   UPDATE release_content rc
+      SET rc.pkg_state = 5                          -- enumPKG_STATE_NEW_PATCH
+    WHERE rc.pv_id IN (
+             SELECT prod.pv_id
+               FROM (SELECT   pp.pv_id AS orig_parent_id,
+                              COUNT (*) AS num_of_patches
+                         FROM release_content rc, package_patches pp
+                        WHERE rc.pv_id = pp.pv_id AND rc.rtag_id = nrtagid
+                     GROUP BY pp.pv_id) orig,
+                    (SELECT   prodpp.pv_id, pp.pv_id AS parent_id,
+                              COUNT (*) AS num_of_patches
+                         FROM release_content rc,
+                              package_patches pp,
+                              package_dependencies dep,
+                              package_versions pv,
+                              package_patches prodpp
+                        WHERE rc.pv_id = pp.pv_id
+                          AND rc.rtag_id = nrtagid
+                          AND pp.patch_id = dep.dpv_id
+                          AND dep.pv_id = pv.pv_id
+                          AND pv.is_patch = 'Y'
+                          AND pv.dlocked = 'Y'
+                          AND prodpp.patch_id = dep.pv_id
+                     GROUP BY prodpp.pv_id, pp.pv_id) prod,
+                    release_content rc
+              WHERE orig.orig_parent_id = prod.pv_id
+                AND orig.num_of_patches != prod.num_of_patches
+                AND rc.rtag_id = nrtagid
+                AND rc.pv_id = prod.pv_id
+                AND rc.pkg_state = 0
+             UNION
+             SELECT   prodpp.pv_id
+                 FROM release_content rc,
+                      package_patches pp,
+                      package_dependencies dep,
+                      package_versions pv,
+                      package_patches prodpp
+                WHERE rc.pv_id = pp.pv_id
+                  AND rc.rtag_id = nrtagid
+                  AND pp.patch_id = dep.dpv_id
+                  AND dep.pv_id = pv.pv_id
+                  AND pv.is_patch = 'Y'
+                  AND pv.dlocked = 'Y'
+                  AND prodpp.patch_id = dep.pv_id
+             GROUP BY prodpp.pv_id, pp.pv_id
+             MINUS
+             SELECT   pp.pv_id
+                 FROM release_content rc, package_patches pp
+                WHERE rc.pv_id = pp.pv_id AND rc.rtag_id = nrtagid
+             GROUP BY pp.pv_id);
-END New_Version;
+END check_new_patches;
+/
 --------------------------------------------------------
---  DDL for Procedure ADD_RUNTIME_DEPENDENCY
+--  DDL for Procedure CLEAN_ADVISORY_RIPPLE
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "ADD_RUNTIME_DEPENDENCY" ( NNpv_id IN NUMBER,
+  CREATE OR REPLACE PROCEDURE "CLEAN_ADVISORY_RIPPLE" (nrtagid IN NUMBER)
-                                                     SSrtd_name IN PACKAGES.pkg_name%TYPE,
-                                                     SSrtd_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
+IS
-                                                     NNuser_id IN NUMBER
+/******************************************************************************
-                                                    ) IS
+   NAME:       clean_advisory_ripple
-/* ---------------------------------------------------------------------------
-    Version: 3.1
-   --------------------------------------------------------------------------- */
+   PURPOSE:    To delete entries from the advisory_ripple table based upon
-    retRTD_ID NUMBER;
+               an RTAG_ID only
+               This is a tidy-up operation performed against the advisory_ripple
-	CURSOR rtd_cur IS
+               table, ensuring that the table does not have rtag_id/pv_id
-        SELECT rtd_id FROM runtime_dependencies WHERE pv_id = NNpv_id AND rtd_id = retRTD_ID;
+               combinations that cannot be found in the release's wip/pending/release
-    rtd_rec rtd_cur%ROWTYPE;
+               tabs.
+******************************************************************************/
 BEGIN
-    --- Seed database with package_name and version if required ---
+   -- Delete any invalid rtag_id/pv_id combination from the advisory_ripple table.
-    Seed_Package_Names_Versions ( SSrtd_name, SSrtd_version, NNuser_id, retRTD_ID );
+   -- An invalid rtag_id/pv_id combination is one that cannot be found in the
-	OPEN rtd_cur;
-    FETCH rtd_cur INTO rtd_rec;
+   -- work_in_progress, planned, or release_content table.
-    IF rtd_cur%NOTFOUND
+   -- NOTE: Planned operations that represent pending additive/subtractive merge
-    THEN
-		/* Make sure it does not exists already as runtime dependency */
+   -- operations are ignored because they have not been approved yet and so
-		--- Add new Runtime Dependency ---
+   -- cannot be said to be "in the release".
+   DELETE FROM advisory_ripple
-	    INSERT INTO runtime_dependencies ( pv_id, rtd_id, mod_date, mod_user )
+         WHERE rtag_id = nrtagid
+           AND pv_id not in
-	    VALUES (  NNpv_id, retRTD_ID, ORA_SYSDATE , NNuser_id );
+               ((SELECT pv_id FROM release_content WHERE rtag_id = nrtagid)
-    	/* LOG ACTION */
+                 UNION
-        Log_Action ( NNpv_id, 'runtime_add', NNuser_id,
+                (SELECT pv_id FROM work_in_progress WHERE rtag_id = nrtagid)
+                 UNION
-    			     'Runtime package: '|| SSrtd_name ||' '|| SSrtd_version );
+                (SELECT pv_id FROM planned WHERE rtag_id = nrtagid AND (operation is null OR operation = 'R'))
-	END IF;
+               );
-END Add_Runtime_Dependency;
+END clean_advisory_ripple;
+/
 --------------------------------------------------------
---  DDL for Procedure LEVEL_ONE_CONFLICTS
+--  DDL for Procedure CLEAN_DO_NOT_RIPPLE
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "LEVEL_ONE_CONFLICTS" (
+  CREATE OR REPLACE PROCEDURE "CLEAN_DO_NOT_RIPPLE" (nrtagid IN NUMBER)
-   nnrtag_id       IN   NUMBER,
-   nnsession_num   IN   NUMBER
-)
 IS
-BEGIN
-   /* ---------  LEVEL 1 CONFILCTS -----------
-   || Following states are used:
-   || 0 -> NOT FOUND
-   || 1 -> MAJOR
-   || 2 -> MINOR MINOR
-   */
-   INSERT INTO temp_env_states
-      SELECT DISTINCT nnsession_num AS session_num, 1 AS level_num,
-                      err.pv_id, errpkg.pkg_id, errpkg.v_ext,
-                      DECODE (frc.v_nmm,
-                              NULL, 0,
-                              errpv.v_nmm, DECODE (frc.v_mm,
-                                                   errpv.v_mm, NULL,
-                                                  ),
-                             ) AS MESSAGE
-                 FROM (
-                       /* Full Release Contents used for reference*/
-                        SELECT rel.rtag_id, rpv.pv_id, rpv.pkg_id,
-                                NVL (rpv.v_ext, '|LINK_A_NULL|') AS v_ext,
+/******************************************************************************
-                                rpv.pkg_version, rpv.v_nmm, rpv.v_mm,
-                                (SELECT COUNT(*)
-                                   FROM ADVISORY_RIPPLE avr
-                                  WHERE avr.rtag_id = rel.rtag_id
-                                    AND avr.pv_id = rel.pv_id
-                                ) AS IsAvr
-                          FROM release_content rel,
-                                package_versions rpv
-                          WHERE rel.pv_id = rpv.pv_id
-                             AND rtag_id = nnrtag_id
-                      ) frc,
-                      (
-                       /* DPV_IDs not found in release (excluding those from pegged versions whose dependencies will not
-                          necessarily be satisfied in the release) */
-                       SELECT dep.pv_id, dep.dpv_id AS err_dpv
-                         FROM package_dependencies dep,
-                              package_versions dep_dpv
-                        WHERE dep.dpv_id = dep_dpv.pv_id
-                          AND dep.pv_id IN (SELECT pv_id FROM release_content WHERE rtag_id = nnrtag_id)
-                          AND NOT dep.pv_id IN (SELECT pegv.pv_id FROM PEGGED_VERSIONS pegv WHERE pegv.rtag_id = nnrtag_id)
-                          AND NOT dep.dpv_id IN (SELECT pv_id FROM release_content WHERE rtag_id = nnrtag_id)
-                       MINUS
-                       /* MINUS Dependencies to be ignored */
-                       SELECT igw.pv_id, igw.dpv_id AS err_dpv
-                         FROM ignore_warnings igw,
-                              package_versions igw_dpv
-                        WHERE igw.dpv_id = igw_dpv.pv_id
-                          AND igw.rtag_id = nnrtag_id
-                      ) err,
-                      package_versions errpkg,
-                      package_versions errpv
-                WHERE err.err_dpv = errpv.pv_id
-                  AND errpv.pkg_id = frc.pkg_id(+)
-                  AND NVL (errpv.v_ext, '|LINK_A_NULL|') = frc.v_ext(+)
-                  AND err.pv_id = errpkg.pv_id
-                  AND frc.IsAvr = 0;
+   NAME:       clean_do_not_ripple
-END level_one_conflicts;
-/
---------------------------------------------------------
---  DDL for Procedure OLE
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "OLE"
-IS retval VARCHAR2(40);
-BEGIN   retval := RELEASE_MANAGER.Pk_Rmapi.RETURN_WIP ( 'daf_br_applets', 2362 )
-DBMS_OUTPUT.PUT_LINE(retval);
-/
---------------------------------------------------------
---  DDL for Procedure SYNC_PROJECTS_NEW_VERSION
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "SYNC_PROJECTS_NEW_VERSION" ( nPv_id 				IN NUMBER,
-														  sSyncRtagsInList		IN VARCHAR2,
-				                                          nUser_id 				IN NUMBER ) IS
+   PURPOSE:    To delete entries from the do_not_ripple table based upon
-/* ---------------------------------------------------------------------------
-    Version: 3.0.0
+               an RTAG_ID only
-   --------------------------------------------------------------------------- */
-	CURSOR sync_rtags_cur IS
-        SELECT rc.RTAG_ID, rc.BASE_VIEW_ID, pv.pv_id
+               This is a tidy-up operation performed against the do_not_ripple
-		  FROM release_content rc,
-		  	   package_versions pv,
-		       package_versions opv
-		 WHERE rc.pv_id = pv.pv_id
-		   AND opv.pkg_id = pv.pkg_id
-		   AND NVL(opv.v_ext, '|LINK_A_NULL|') = NVL(pv.v_ext, '|LINK_A_NULL|')
+               table, ensuring that the table does not have rtag_id/pv_id
-		   AND opv.pv_id = nPv_id
-		   AND rtag_id IN ( SELECT *
-		   	   		   	      FROM THE (
-					   	   		   	    SELECT CAST( IN_LIST_NUMBER( sSyncRtagsInList ) AS RELMGR_NUMBER_TAB_t )
+               combinations that cannot be found in the release's wip/pending/release
-					       		   	    FROM dual
+               tabs.
-									   )
-						  );
-    sync_rtags_rec sync_rtags_cur%ROWTYPE;
+******************************************************************************/
 BEGIN
-	OPEN sync_rtags_cur;
-	FETCH sync_rtags_cur INTO sync_rtags_rec;
+   -- Delete any invalid rtag_id/pv_id combination from the do_not_ripple table.
-	WHILE sync_rtags_cur%FOUND
-	LOOP
-		DELETE FROM RELEASE_CONTENT
-		 WHERE rtag_id = sync_rtags_rec.rtag_id
+   -- An invalid rtag_id/pv_id combination is one that cannot be found in the
-	       AND pv_id = sync_rtags_rec.pv_id;
+   -- work_in_progress, planned, or release_content table.
-		INSERT INTO RELEASE_CONTENT ( RTAG_ID, PV_ID, BASE_VIEW_ID, INSERT_STAMP, INSERTOR_ID, PKG_STATE )
+   -- NOTE: Planned operations that represent pending additive/subtractive merge
-	   		   VALUES ( sync_rtags_rec.rtag_id,
+   -- operations are ignored because they have not been approved yet and so
-		       		  	nPv_id,
-						sync_rtags_rec.BASE_VIEW_ID,
-	           			Ora_Sysdate,
+   -- cannot be said to be "in the release".
-	           			nUser_id,
+   DELETE FROM do_not_ripple
-	      	   		   );
+         WHERE rtag_id = nrtagid
--- 		UPDATE RELEASE_CONTENT
--- 	       SET pv_id = nPv_id,
+           AND pv_id not in
--- 	           insert_stamp = Ora_Sysdate,
+               ((SELECT pv_id FROM release_content WHERE rtag_id = nrtagid)
--- 	           insertor_id = nUser_id
+                 UNION
--- 	     WHERE rtag_id = sync_rtags_rec.rtag_id
+                (SELECT pv_id FROM work_in_progress WHERE rtag_id = nrtagid)
--- 	       AND pv_id = sync_rtags_rec.pv_id;
+                 UNION
-		FETCH sync_rtags_cur INTO sync_rtags_rec;
+                (SELECT pv_id FROM planned WHERE rtag_id = nrtagid AND (operation is null OR operation = 'R'))
-	END LOOP;
-	CLOSE sync_rtags_cur;
+               );
-END Sync_Projects_New_Version;
+END clean_do_not_ripple;
+/
 --------------------------------------------------------
---  DDL for Procedure LOCK_PACKAGE
+--  DDL for Procedure CLEAR_ADVISORY_RIPPLE
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "LOCK_PACKAGE" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
+  CREATE OR REPLACE PROCEDURE "CLEAR_ADVISORY_RIPPLE" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
+	   	  		  							   nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE,
 											 nUserId IN NUMBER ) IS
 /* ---------------------------------------------------------------------------
     Version: 4.0
    --------------------------------------------------------------------------- */
 BEGIN
-    -- Lock Package
+    -- Clear Advisory Ripple Package
-    UPDATE PACKAGE_VERSIONS pv SET
-    	pv.DLOCKED = 'Y'
-    WHERE pv.PV_ID = nPvId;
-    /* LOG ACTION */
-   	Log_Action ( nPvId, 'lock_package', nUserId );
-END Lock_Package;
-/
---------------------------------------------------------
---  DDL for Procedure UPDATE_PACKAGE_STATES
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "UPDATE_PACKAGE_STATES" ( NNrtag_id IN NUMBER,
-                                                    NNsession_num IN NUMBER ) IS
-/* =============  STATE RULES =================== */
-/*
-   MNR   MRR   MN   MR    |   pkg_state
-   ------------------------------------
-0     0     0   |      OK
-0     0     1   |      MAJOR
-0     1     0   |      MINOR
-0     1     1   |      MAJOR
-   ------------------------------------
-1     0     0   |      MAJOR_READY
-1     0     1   |      MAJOR
-1     1     0   |      MAJOR
-1     1     1   |      MAJOR
-   ------------------------------------
-0     0     0   |      MINOR_READY
-0     0     1   |      MAJOR
-0     1     0   |      MINOR
-0     1     1   |      MAJOR
-   ------------------------------------
-1     0     0   |      MAJOR_READY
-1     0     1   |      MAJOR
-1     1     0   |      MAJOR
-1     1     1   |      MAJOR
-   ------------------------------------
-*/
-BEGIN
-    /*----------------------------------------------
-    ||              MINOR READY
-    */----------------------------------------------
-    UPDATE release_content
-       SET pkg_state = 4
-     WHERE rtag_id = NNrtag_id
-       AND pv_id IN
-           (
-           SELECT DISTINCT pv_id
-           FROM temp_env_states
-           WHERE session_num = NNsession_num
-             AND level_num = 1
-             AND tes_state = 2
-           );
-    /*----------------------------------------------
-    ||              MAJOR READY
-    */----------------------------------------------
-    UPDATE release_content
-       SET pkg_state = 3
-     WHERE rtag_id = NNrtag_id
-       AND pv_id IN
-           (
-           SELECT DISTINCT pv_id
-           FROM temp_env_states
-           WHERE session_num = NNsession_num
-             AND level_num = 1
-             AND tes_state IN (0,1)
-           );
-    /*----------------------------------------------
-    ||                MINOR
-    */----------------------------------------------
-    UPDATE release_content
-       SET pkg_state = 2
-     WHERE rtag_id = NNrtag_id
-       AND pv_id IN
-           (
-           SELECT DISTINCT pv_id
-            FROM temp_env_states
-            WHERE session_num = NNsession_num
-              AND level_num >= 2
-              AND tes_state = 2
-            MINUS
-           SELECT pv_id
-             FROM release_content
-            WHERE rtag_id = NNrtag_id
-              AND pkg_state = 3
-           );
-    /*----------------------------------------------
-    ||                MAJOR
-    */----------------------------------------------
-    UPDATE release_content
-       SET pkg_state = 1
-     WHERE rtag_id = NNrtag_id
-       AND pv_id IN
-           (
-           SELECT DISTINCT pv_id
-           FROM temp_env_states
-           WHERE session_num = NNsession_num
-             AND level_num >= 2
-             AND tes_state IN (0,1)
-           /* MAJOR EXCEPTION - When package has Major Ready and Minor */
-           UNION
-           SELECT DISTINCT tes.pv_id
-           FROM temp_env_states tes,
-                release_content rc
-           WHERE tes.session_num = NNsession_num
-             AND tes.level_num >= 2
-             AND tes.tes_state = 2
-             AND rtag_id = NNrtag_id
-             AND rc.pv_id = tes.pv_id
-             AND rc.pkg_state = 3
-           );
-    /*----------------------------------------------
-    ||                 OK
-    */----------------------------------------------
-    UPDATE release_content
-       SET pkg_state = 0
-     WHERE rtag_id = NNrtag_id
-       AND pv_id IN
-           (
-           SELECT rc.pv_id
-             FROM release_content rc
-            WHERE rc.rtag_id = NNrtag_id
-              AND NOT rc.pv_id IN
-                    (
-                     SELECT DISTINCT pv_id
-                     FROM temp_env_states WHERE session_num = NNsession_num
-                    )
-           );
-      Update_Deprecation_State (NNrtag_id);
-    /*----------------------------------------------
-    ||              PEGGED VERSIONS DEPENDENT
-    */----------------------------------------------
-    UPDATE release_content
-       SET pkg_state = 10
-     WHERE rtag_id = NNrtag_id
-       AND pv_id IN
-           (
-           SELECT DISTINCT pv_id
-           FROM pegged_versions pegv
-           WHERE pegv.rtag_id = NNrtag_id
-           );
-    /*----------------------------------------------
-    ||              ADVISORY RIPPLE
+    DELETE FROM ADVISORY_RIPPLE
-    */----------------------------------------------
-    UPDATE release_content
-       SET pkg_state = 8
-     WHERE rtag_id = NNrtag_id
-       AND pv_id IN
-           (
-           SELECT DISTINCT pv_id
-           FROM advisory_ripple ar
-           WHERE ar.rtag_id = NNrtag_id
-           )
-       AND pv_id IN
-           (
-           SELECT DISTINCT pv_id
-           FROM release_content rc
-           WHERE rc.rtag_id = NNrtag_id
-           );
-END Update_Package_States;
-/
---------------------------------------------------------
---  DDL for Procedure REMOVE_DOCUMENT
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "REMOVE_DOCUMENT" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
-											  nDocId IN PACKAGE_DOCUMENTS.DOC_ID%TYPE,
-                                              nUserId IN NUMBER ) IS
-/* ---------------------------------------------------------------------------
-    Version: 3.0
-   --------------------------------------------------------------------------- */
-   DocNumber PACKAGE_DOCUMENTS.DOC_NUM%TYPE;
-BEGIN
-	-- Get Doc Num
-    SELECT pd.DOC_NUM INTO DocNumber
-      FROM PACKAGE_DOCUMENTS pd
-     WHERE pd.PV_ID = nPvId
-       AND pd.DOC_ID = nDocId;
-	-- Delete Document
-    DELETE
-      FROM PACKAGE_DOCUMENTS pd
-     WHERE pd.PV_ID = nPvId
+	WHERE PV_ID = nPvId
-       AND pd.DOC_ID = nDocId;
+	AND RTAG_ID = nRtagId;
     /* LOG ACTION */
-   	Log_Action ( nPvId, 'document_remove', nUserId,
+   	Log_Action ( nPvId, 'clear_advisory_ripple', nUserId );
-   			     'Document number: '|| DocNumber );
-END Remove_Document;
-/
---------------------------------------------------------
---  DDL for Procedure SPLIT_VERSION
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "SPLIT_VERSION" ( SSpkg_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
-                                            SSV_MM OUT PACKAGE_VERSIONS.V_MM%TYPE,
-                                            SSV_NMM OUT PACKAGE_VERSIONS.V_NMM%TYPE,
-                                            SSV_EXT OUT PACKAGE_VERSIONS.V_EXT%TYPE  ) IS
-/* ---------------------------------------------------------------------------
-    Version: 3.0.0
-   --------------------------------------------------------------------------- */
-    TYPE VERSION_COMPONENTS_TYPE IS TABLE OF VARCHAR2(50)
-        INDEX BY BINARY_INTEGER;
-    version_components VERSION_COMPONENTS_TYPE;
-    lastDot NUMBER := 0;
-    currDot NUMBER := 0;
-BEGIN
-    currDot := INSTR ( SSpkg_version, '.', -1 );      -- Find 1st dot from the right
-    IF ( currDot > 0 )
-    THEN
-        -- YES dot separator found --
+	/*Rebuild_Environment(nRtagId);*/
-        SSV_EXT := GET_V_EXT( SSpkg_version );
-        IF NOT SSV_EXT IS NULL
-        THEN
-            lastDot := currDot;
-            currDot := INSTR ( SSpkg_version, '.', -1, 2 );   -- Find 2nd dot from the right
-            IF ( currDot > 0 )
-            THEN
-                -- XXXX.M.E
-                SSV_MM := SUBSTR ( SSpkg_version, currDot + 1, lastDot - currDot - 1);
-                SSV_NMM := SUBSTR ( SSpkg_version, 0, currDot ) || SSV_EXT;
-            ELSE
-                -- XXXX.E
-                SSV_MM := NULL;
-                SSV_NMM := SSpkg_version;
-            END IF;
-        ELSE
-            -- XXXX.M
-            SSV_MM := SUBSTR ( SSpkg_version, currDot + 1, LENGTH(SSpkg_version) - currDot );
-            SSV_NMM := SUBSTR ( SSpkg_version, 0, currDot );
-        END IF;
-    ELSE
-        -- NO dot separator found --
-        -- XXXXXX
-        SSV_MM  := NULL;
-        SSV_NMM := SSpkg_version;
-        SSV_EXT := NULL;
-    END IF;
-END Split_Version;
+END Clear_Advisory_Ripple;
+/
 --------------------------------------------------------
---  DDL for Procedure ADD_PACKAGE_INTEREST_TEST
+--  DDL for Procedure CLONED_PACKAGE_PROCESSES
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "ADD_PACKAGE_INTEREST_TEST" (nProjId IN PROJECTS.PROJ_ID%TYPE,
+  CREATE OR REPLACE PROCEDURE "CLONED_PACKAGE_PROCESSES"
-	   	  		  								  nPkgIdList IN VARCHAR2,
-												  nUserId IN NUMBER
-	   	  		  								  ) IS
+IS
+proc_id NUMBER;
 /******************************************************************************
-   NAME:       ADD_PACKAGE_INTEREST
+   NAME:       DELETE_DO_NOT_RIPPLE
+   PURPOSE:    TO DELETE ENTRIES FROM THE DO_NOT_RIPPLE TABLE WHEN A PACKAGE
-   PURPOSE:
+               IS RELEASED
    REVISIONS:
    Ver        Date        Author           Description
    ---------  ----------  ---------------  ------------------------------------
-.0        12/05/2006  Rupesh Solanki     1. Created this procedure.
+.0        21/04/2006  Rupesh Solanki     1. Created this procedure.
    NOTES:
    Automatically available Auto Replace Keywords:
-      Object Name:     ADD_PACKAGE_INTEREST
+      Object Name:     DELETE_DO_NOT_RIPPLE
-      Sysdate:         12/05/2006
+      Sysdate:         21/04/2006
-      Date and Time:   12/05/2006, 9:11:12 AM, and 12/05/2006 9:11:12 AM
+      Date and Time:   21/04/2006, 3:21:55 PM, and 21/04/2006 3:21:55 PM
       Username:         (set in TOAD Options, Procedure Editor)
       Table Name:       (set in the "New PL/SQL Object" dialog)
 ******************************************************************************/
+   CURSOR ripple_cur
+   IS
-   npkgidcollector   relmgr_number_tab_t := relmgr_number_tab_t ();
+      select distinct proc_id, prod_id from deployment_manager.processes_config;
-   nPkgId NUMBER;
+   ripple_rec   ripple_cur%ROWTYPE;
 BEGIN
+   OPEN ripple_cur;
-	 npkgidcollector := in_list_number2 (nPkgIdList);
-	FOR i IN 1..npkgidcollector.COUNT
+   FETCH ripple_cur
-	LOOP
-		nPkgId := npkgidcollector(i);
+    INTO ripple_rec;
-	 --- Insert into PACKAGE_INTEREST TABLE
-	 INSERT INTO PACKAGE_INTEREST (PROJ_ID, PKG_ID, USER_ID)
-	 VALUES(nProjId, nPkgId, nUserId);
+   WHILE ripple_cur%FOUND
-	END LOOP;
+   LOOP
+insert into package_processes (PROC_ID, PV_ID)
+values( ripple_rec.proc_id, ripple_rec.prod_id);
+      FETCH ripple_cur
+       INTO ripple_rec;
+   END LOOP;
-END ADD_PACKAGE_INTEREST_TEST;
+END CLONED_PACKAGE_PROCESSES;
+/
 --------------------------------------------------------
 --  DDL for Procedure CLONED_PROCESSES
 --------------------------------------------------------
        INTO ripple_rec;
    END LOOP;
 END CLONED_PROCESSES;
+/
 --------------------------------------------------------
---  DDL for Procedure ADD_VIEW_MEMBERS
+--  DDL for Procedure DELETE_AUTOBUILD_FAILURE_INFO
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "ADD_VIEW_MEMBERS" (nGroupId IN NUMBER, sUserList IN VARCHAR2) IS
+  CREATE OR REPLACE PROCEDURE "DELETE_AUTOBUILD_FAILURE_INFO"
+IS
 /******************************************************************************
-   NAME:       ADD_VIEW_MEMBERS
+   NAME:       DELETE_AUTOBUILD_FAILURE_INFO
    PURPOSE:
    REVISIONS:
    Ver        Date        Author           Description
    ---------  ----------  ---------------  ------------------------------------
-.0        11/04/2006          1. Created this procedure.
+.0        2/06/2006    Rupesh Solanki      1. Created this procedure.
    NOTES:
    Automatically available Auto Replace Keywords:
-      Object Name:     ADD_VIEW_MEMBERS
+      Object Name:     DELETE_AUTOBUILD_FAILURE_INFO
-      Sysdate:         11/04/2006
+      Sysdate:         2/06/2006
-      Date and Time:   11/04/2006, 9:52:58 AM, and 11/04/2006 9:52:58 AM
+      Date and Time:   2/06/2006, 8:44:25 AM, and 2/06/2006 8:44:25 AM
       Username:         (set in TOAD Options, Procedure Editor)
       Table Name:       (set in the "New PL/SQL Object" dialog)
 ******************************************************************************/
-CURSOR user_cur IS
+BEGIN
-	SELECT u.USER_ID
+   DELETE FROM autobuild_failure
-	  FROM USERS u
+         WHERE group_email_id NOT IN (SELECT group_email_id
+                                        FROM members_group);
-	 WHERE u.USER_ID IN (
+END delete_autobuild_failure_info;
+/
+--------------------------------------------------------
-	 	   			   	SELECT *
+--  DDL for Procedure DEPLOY_TO_RELEASE
-						  FROM THE ( SELECT CAST( IN_LIST_NUMBER( sUserList ) AS RELMGR_NUMBER_TAB_t ) FROM dual )
+--------------------------------------------------------
-						);
-user_rec user_cur%ROWTYPE;
+  CREATE OR REPLACE PROCEDURE "DEPLOY_TO_RELEASE" IS
+/******************************************************************************
+******************************************************************************/
+	CURSOR curInfo IS
+    SELECT DISTINCT
+        qry.DPV_ID
+     FROM (
+             SELECT dep.*,
+                    LEVEL AS LEVEL_NUM
+               FROM PACKAGE_DEPENDENCIES dep
+             START WITH dep.PV_ID IN (
+,63479,60048,49566,49562,54351,63560,54360,46053,59753,97060,97061,100883,78236,75241,92371,92372,105682,135506,127204,135615,136498,137571,61534,76540,96787,133102,96770,96771,116692,133768,61537,88935,110216,96797,69469,98123,111626,96802,100289,97233,97623,135801,69700,77808,43026,77809,43027,100825,126854,105589,96405,102105,133770,134408,91177,91179,96822,96824,48031,78965,78936,78935,79114,76620,125164,61804,96826,61977,67592,72594,134415,135804,65097,64850,64851,64879,64881,64882,64884,67612,67613,67614,67615,68501,68502,68503,68516,68518,68519,68521,71974,68659,69764,68662,68661,68757,69765,69766,69767,71975,71976,71977,71978,71979,71980,75149,71982,71983,75153,75158,71986,75160,75161,75162,72418,72419,71987,71988,71990,75164,72420,72421,72423,72424,72425,75165,75181,75182,83285,75184,75201,75220,75240,75260,75280,75242,76320,75320,76340,76321,82031,76341,76342,76344,76345,76806,76350,76810,76811,76360,76361,76362,76380,76637,76638,76639,76647,76649,76812,76650,78261,76815,77603,76818,76846,76847,76848,76849,77604,77606,77016,77607,77608,77609,78518,77671,77610,78519,78520,78205,78206,77795,78262,78263,78666,78521,78669,78767,78768,78770,78771,82032,79471,78772,82033,80856,80210,80898,82449,80211,80212,80214,80215,80216,80611,80217,82034,82035,80749,80750,82036,94266,82037,82038,82039,82040,82041,82042,82043,82044,82045,82046,82450,82296,82297,82451,82047,82298,82299,82300,82452,82453,82454,82455,82456,82457,82769,82458,82459,82770,82460,82461,82771,83286,85069,83543,83544,83287,85070,84959,85071,85072,84960,85073,85074,84975,85194,85075,85195,85196,85197,85198,85199,94267,85231,85237,94268,94269,94270,94271,94273,94274,94275,94276,94277,94278,94279,94280,94281,94282,94283,94284,94285,94286,94287,94288,94289,94290,94291,94292,94293,94294,94295,94296,94297,94298,94299,94300,94301,94302,94303,94304,94305,94306,94307,94308,94309,94310,94311,94312,94313,94314,94315,94316,94634,94317,94635,97035,94319,94320,94636,94637,94322,96536,96552,96554,96555,96556,96568,96569,96570,96571,96572,96573,96574,96575,96576,96577,96578,96579,96580,96581,96582,96583,96584,96585,96586,96818,97435,96819,96820,97599,97436,97437,97438,97439,97440,97434,97723,97640,97641,97642,97724,97725,97729,97743,97825,98097,98098,98099,98100,97999,98049,98101,98102,98103,99506,98268,98207,99507,99508,99509,99159,99510,99511,99512,102883,99513,99514,100243,99515,99880,99562,99563,99676,99677,99678,99881,99882,99883,99884,100244,100245,100623,100247,100624,100625,100626,100885,100719,100886,100887,100888,100889,100890,100990,100991,101301,101603,110065,101605,102180,102627,102181,102182,102183,102184,102185,102186,102187,102188,102189,102190,102191,104378,102192,104379,102193,102379,102380,102381,102884,102410,102411,102628,102465,102629,102630,102885,102886,102887,104380,104381,104382,104383,104384,104385,104387,110063,104389,106409,104561,104594,104660,105088,105089,105090,105091,105093,105097,105673,105768,106410,109314,106173,110064,137890,106433,106960,109080,111665,122015,110954,116763,110066,116764,110123,111867,110713,116765,111666,116869,111667,111668,116766,116767,115142,115143,121477,113924,114594,116768,115144,116769,115170,115172,115171,115644,120042,120043,116092,116870,116871,118382,116872,116876,120044,118026,119364,121485,120045,120416,121478,120417,122016,124577,129495,123602,123600,124578,124579,124580,124581,124784,125238,127096,127097,129496,129497,128036,128415,129498,129499,129914,130063,130064,130680,130681,131333,131488,133886,132219,132477,132478,133887,136537,136552,136538,136539,136540,136553,136554,136555,137869,85076,80857,62418,64889,64890,64891,64893,68666,68667,68668,68670,68671,68672,68673,72019,72020,72023,72024,72227,77745,77746,77747,77748,77749,77750,77751,77798,78773,80751,82464,82465,83288,92874,92875,92876,92877,92878,94122,94123,96290,96882,96883,97554,97514,97726,98008,98009,98051,99193,100248,99608,100249,100250,100670,100671,100672,101059,101061,101607,102194,102195,102412,102413,102633,104390,104391,106421,104560,104595,105767,106174,106426,109081,122017,137851,110712,116873,115145,115146,114597,115645,116095,120046,123551,122018,124584,124585,129500,129501,129502,128417,129503,129915,130066,131487,133897,133882,133883,136559,85078,100673,63475,78264,78265,78266,78267,78775,80753,94118,94119,94120,94121,96888,100251,100252,102631,102590,102632,65229,43366,69139,132551,59764,127129,101196,96830,61535,105433,96833,96835,96839,83795,77723,126868,99146,70188,117523,117524,117525,99237,100854,100855,137314,137315,96868,138232,138233,69709,96907,130854,119208,69520,124772,96878,60049,47875,70354,59371,54558,59849,33893,43087,43134,33894,60054,24345,49563,49558,97474,84982,31770,30950,49926,60050,52670,59846,59891,30966,59744,61988,59745,59881,59746,59741,47449,59747,64101,63480,63562,105382,105383,60052,48955,49561,49556,47401,65896,65906,65909,65985,108670,68697,68698,59754,59752,59751,62526,59805,59799,66981,46050,59756,46044,59806,46051,59807,82290,66980,59808,46046,61536,88834,70260,111081,105409,66093,66095,66094,47440,65778,59750,56748,99152,78409
+                        )
+ 			CONNECT BY PRIOR dep.DPV_ID = dep.PV_ID
+ 		) qry,
+ 		PACKAGES pkg,
+		PACKAGE_VERSIONS pv
+ 	 WHERE qry.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID
+         and (pv.is_patch is null or pv.is_patch = 'N');
+    recInfo curInfo%ROWTYPE;
 BEGIN
-	 OPEN user_cur;
+	OPEN curInfo;
-	 FETCH user_cur INTO user_rec;
+    FETCH curInfo INTO recInfo;
-	 WHILE user_cur%FOUND
+	WHILE curInfo%FOUND
-	 LOOP
+	LOOP
-	 	 INSERT INTO MEMBERS_GROUP (GROUP_EMAIL_ID, USER_ID)
+	insert into release_content(RTAG_ID, PV_ID, BASE_VIEW_ID, INSERT_STAMP, INSERTOR_ID, PKG_STATE)
-	 	 VALUES ( nGroupId, user_rec.USER_ID);
+    VALUES(8027, recInfo.dpv_id, 7, ora_sysdatetime, 0, 0);
-	 	 FETCH user_cur INTO user_rec;
+    FETCH curInfo INTO recInfo;
-	 END LOOP;
+	END LOOP;
+	CLOSE curInfo;
-END ADD_VIEW_MEMBERS;
+END DEPLOY_TO_RELEASE;
+/
 --------------------------------------------------------
---  DDL for Procedure RESET_IGNORE_WARNINGS
+--  DDL for Procedure DEPRECATE_PACKAGE
 --------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "DEPRECATE_PACKAGE" (nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
+	   	  		  							   nRtagId IN DEPRECATED_PACKAGES.RTAG_ID%TYPE,
+	   	  		  							   nPkgId IN DEPRECATED_PACKAGES.PKG_ID%TYPE,
+											   sComments IN DEPRECATED_PACKAGES.COMMENTS%TYPE,
+											   nUserId IN NUMBER) IS
+ext VARCHAR2(50);
+BEGIN
+	--Extract the package version extension
+	SELECT V_EXT into ext
+	FROM PACKAGE_VERSIONS
+	WHERE PV_ID = nPvId;
+    -- Deprecate Package
+    INSERT INTO DEPRECATED_PACKAGES (RTAG_ID, PKG_ID, COMMENTS, V_EXT)
+	VALUES (nRtagId, nPkgId, sComments, ext);
+	IF ext IS NOT NULL THEN
+	   UPDATE RELEASE_CONTENT
+	   SET PKG_ID = nPkgId, DEPRECATED_STATE = 6
+	   WHERE RTAG_ID = nRtagId
+	   AND PV_ID IN (SELECT PV.PV_ID
+		   	  	  	FROM PACKAGE_VERSIONS PV, PACKAGES PKG
+				  	WHERE PKG.PKG_ID = PV.PKG_ID
+				  	AND PV.V_EXT = ext
+				  	AND PKG.PKG_ID = nPkgId
+				 	);
+	ELSE
+	   UPDATE RELEASE_CONTENT
+	   SET PKG_ID = nPkgId, DEPRECATED_STATE = 6
+	   WHERE RTAG_ID = nRtagId
+	   AND PV_ID IN (SELECT PV.PV_ID
+		   	  	  	FROM PACKAGE_VERSIONS PV, PACKAGES PKG
+				  	WHERE PKG.PKG_ID = PV.PKG_ID
+				  	AND PV.V_EXT IS NULL
+				  	AND PKG.PKG_ID = nPkgId
+				 	);
+	END IF;
+	UPDATE RELEASE_CONTENT
+	SET PKG_ID = nPkgId, DEPRECATED_STATE = 7
+	WHERE RTAG_ID = nRtagId
+	AND PV_ID IN (		   SELECT DISTINCT
+ 	 		  	 		   qry.PV_ID
+						        FROM (
+								 	  SELECT dep.*,
+									  LEVEL AS LEVEL_NUM
+									  FROM PACKAGE_DEPENDENCIES dep
+ 								START WITH dep.DPV_ID IN ( nPvId )
+								CONNECT BY PRIOR dep.PV_ID = dep.DPV_ID
+ 								) qry,
+								PACKAGES pkg,
+								PACKAGE_VERSIONS pv,
+								RELEASE_CONTENT rc
+						 	 WHERE qry.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID
+							 AND rc.RTAG_ID = nRtagId AND rc.PV_ID = qry.PV_ID
+							 AND rc.DEPRECATED_STATE IS NULL
+				 );
+    /* LOG ACTION */
+   	/*Log_Action ( nPkgId, 'deprecated_package', nUserId );*/
+END Deprecate_Package;
+/
+--------------------------------------------------------
+--  DDL for Procedure DT_DROPUSEROBJECTBYID
+--------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "DT_DROPUSEROBJECTBYID" ( PARAM_ID IN NUMBER ) AS BEGIN DELETE FROM MICROSOFTDTPROPERTIES WHERE OBJECTID = PARAM_ID; END DT_DROPUSEROBJECTBYID;
+/
+--------------------------------------------------------
+--  DDL for Procedure DT_SETPROPERTYBYID
+--------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "RESET_IGNORE_WARNINGS" ( sPvIdList IN VARCHAR2,
+  CREATE OR REPLACE PROCEDURE "DT_SETPROPERTYBYID" ( PARAM_ID   IN NUMBER, PARAM_PROPERTY IN VARCHAR2, PARAM_VALUE  IN VARCHAR2, PARAM_LVALUE  IN LONG RAW ) AS BEGIN DECLARE X NUMBER(40); BEGIN SELECT COUNT(*) INTO X FROM MICROSOFTDTPROPERTIES WHERE OBJECTID=PARAM_ID AND PROPERTY=PARAM_PROPERTY; IF X = 0 THEN INSERT INTO MICROSOFTDTPROPERTIES (ID, PROPERTY, OBJECTID, VALUE, LVALUE, VERSION) VALUES (MICROSOFTSEQDTPROPERTIES.NEXTVAL, PARAM_PROPERTY, PARAM_ID, PARAM_VALUE, PARAM_LVALUE, 0); ELSE UPDATE MICROSOFTDTPROPERTIES SET VALUE=PARAM_VALUE, LVALUE=PARAM_LVALUE, VERSION=VERSION+1 WHERE OBJECTID=PARAM_ID AND PROPERTY=PARAM_PROPERTY; END IF; END; END DT_SETPROPERTYBYID;
+/
+--------------------------------------------------------
+--  DDL for Procedure IGNORE_DEPENDENCY_WARNINGS
+--------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "IGNORE_DEPENDENCY_WARNINGS" ( nRtagId IN IGNORE_WARNINGS.RTAG_ID%TYPE,
-                                                    nRTagId IN RELEASE_CONTENT.RTAG_ID%TYPE ) IS
+                                                         nPvId IN IGNORE_WARNINGS.PV_ID%TYPE,
+                                                         sIgnoreIdList IN VARCHAR2,
+                                                         bDoPatchIgnore IN BOOLEAN DEFAULT FALSE,
+                                                         nUserId IN NUMBER DEFAULT NULL ) IS
 /* ---------------------------------------------------------------------------
+    Updates the ignore warnings table - this is really two functions in one.
+) One function updates the table based on a list of dependent PV_IDs and a parent PV_ID
+       and is called from the RM website's SetIgnoreWarnings() function after a user changes
+       the ignore warnings checkboxes and submits the form.
+       This can (at time of writing this) only be done within releases that are not build
+       daemon enabled. The ignore warnings feature is a feature we would like to see the end
+       of in an ideal world.
+       The SetIgnoreWarnings() website function now calls Touch_Release so there is no need to
+       do so in this stored procedure, thereby making this stored procedure much more precise in
+       that it only updates the ignore_warnings table (action log table too although that is just
+       a log and doesn't affect any subsequent business rules behaviour) and it cares nothing
+       about website presentation layer states, etc.
+) The other function updates the table for out of sync dependencies that have in fact
+       been satisfied by patches made to some other product in the release.
+       This seems to be a seldom used feature in current projects.
+       It is probably the most often taken path through this function given that it occurs when
+       this function is called from Rebuild_Environment, and that is called in many circumstances
+       from the RM website whenever the seems to be a possibility that the state of a package
+       in a release might have changed and therefore affects the state of other packages in
+       that same release.
-    Version: 5.0
+    Parameter Usage:
+                        when called from    | when called from
+                        Rebuild_Environment | SetIgnoreWarnings()
+                        stored procedure.   | in the Website
+      --------------------------------------+----------------------------
+      nRtagId           RTAG_ID             | RTAG_ID
+      nPvId             NULL                | PV_ID
+      sIgnoreIdList     NULL                | list of dependent PV_ID's
+      bDoPatchIgnore    TRUE                | FALSE
+      nUserId           NULL                | current user ID
    --------------------------------------------------------------------------- */
-oPvIdCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
+oIgnoreIdCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
+ReleaseLocation VARCHAR2(4000);
+ActionTypeId NUMBER;
 BEGIN
-	oPvIdCollector := IN_LIST_NUMBER ( sPvIdList );
-    -- Remove Ignore Warnings
+   IF (NOT bDoPatchIgnore) THEN
-     DELETE
-       FROM ignore_warnings
+      /* Manual Ignore Warnings - this execution path is the one taken when called from SetIgnoreWarnings() in the Website
-	  WHERE (rtag_id, pv_id, dpv_id) IN
-	     (
+      */
-	      SELECT igw.rtag_id, igw.pv_id, igw.dpv_id
-	        FROM ignore_warnings igw,
-	             package_versions dpv,
-	             package_versions pv
-	       WHERE igw.dpv_id = dpv.pv_id
-	         AND igw.rtag_id = nRTagId
-	         AND dpv.pkg_id = pv.pkg_id
-	         AND NVL(dpv.v_ext,'|LINK_A_NULL|') = NVL(pv.v_ext,'|LINK_A_NULL|')
+      oIgnoreIdCollector := IN_LIST_NUMBER ( sIgnoreIdList );
-	         AND pv.pv_id IN ( SELECT * FROM TABLE ( CAST ( oPvIdCollector AS RELMGR_NUMBER_TAB_t ) ) )
-         );
+      /* Log Action */
+      -- Get Release Location
+      SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+        FROM PROJECTS proj,
+             RELEASE_TAGS rt
+       WHERE rt.PROJ_ID = proj.PROJ_ID
+         AND rt.RTAG_ID = nRtagId;
+      -- Get Action Type Id for IGNORE_ON
+      SELECT act.ACTTYPE_ID INTO ActionTypeId
+        FROM ACTION_TYPE act
+       WHERE act.NAME = 'ignore_on';
+      -- Get Ignored (Current MINUS Old)
+      INSERT INTO ACTION_LOG ( USER_ID, ACTION_DATETIME, PV_ID, DESCRIPTION, ACTTYPE_ID )
+      SELECT nUserId, ORA_SYSDATETIME, nPvId, pkg.PKG_NAME ||' '|| rpv.PKG_VERSION ||' at '|| ReleaseLocation, ActionTypeId
+        FROM (
+              SELECT TO_NUMBER(nRtagId) AS RTAG_ID, TO_NUMBER(nPvId), pv.PV_ID AS DPV_ID
+                FROM PACKAGE_VERSIONS pv
+               WHERE pv.PV_ID IN ( SELECT * FROM TABLE ( CAST ( oIgnoreIdCollector AS RELMGR_NUMBER_TAB_t ) ) )
+              MINUS
+              SELECT igw.RTAG_ID, igw.PV_ID, igw.DPV_ID
+                FROM IGNORE_WARNINGS igw
+               WHERE igw.RTAG_ID = nRtagId
+                 AND igw.PV_ID = nPvId
+             ) qry,
+             PACKAGE_VERSIONS pv,
+             PACKAGES pkg,
+             RELEASE_CONTENT rc,
+             PACKAGE_VERSIONS rpv
+       WHERE pv.PKG_ID = pkg.PKG_ID
+         AND rc.RTAG_ID = nRtagId
+         AND rc.PV_ID = rpv.PV_ID
+         AND rpv.PKG_ID = pv.PKG_ID
+         AND NVL( rpv.V_EXT, 'LINK_A_NULL' ) = NVL( pv.V_EXT, 'LINK_A_NULL' )
+         AND qry.DPV_ID = pv.PV_ID;
+      -- Get Action Type Id for IGNORE_OFF
+      SELECT act.ACTTYPE_ID INTO ActionTypeId
+        FROM ACTION_TYPE act
+       WHERE act.NAME = 'ignore_off';
+      -- Get UnIgnored (Old MINUS Current)
+      INSERT INTO ACTION_LOG ( USER_ID, ACTION_DATETIME, PV_ID, DESCRIPTION, ACTTYPE_ID )
+      SELECT nUserId, ORA_SYSDATETIME, nPvId, pkg.PKG_NAME ||' '|| rpv.PKG_VERSION ||' at '|| ReleaseLocation, ActionTypeId
+        FROM (
+              SELECT igw.RTAG_ID, igw.PV_ID, igw.DPV_ID
+                FROM IGNORE_WARNINGS igw
+               WHERE igw.RTAG_ID = nRtagId
+                 AND igw.PV_ID = nPvId
+              MINUS
+              SELECT TO_NUMBER(nRtagId) AS RTAG_ID, TO_NUMBER(nPvId), pv.PV_ID AS DPV_ID
+                FROM PACKAGE_VERSIONS pv
+               WHERE pv.PV_ID IN ( SELECT * FROM TABLE ( CAST ( oIgnoreIdCollector AS RELMGR_NUMBER_TAB_t ) ) )
+             ) qry,
+             PACKAGE_VERSIONS pv,
+             PACKAGES pkg,
+             RELEASE_CONTENT rc,
+             PACKAGE_VERSIONS rpv
+       WHERE pv.PKG_ID = pkg.PKG_ID
+         AND rc.RTAG_ID = nRtagId
+         AND rc.PV_ID = rpv.PV_ID
+         AND rpv.PKG_ID = pv.PKG_ID
+         AND NVL( rpv.V_EXT, 'LINK_A_NULL' ) = NVL( pv.V_EXT, 'LINK_A_NULL' )
+         AND qry.DPV_ID = pv.PV_ID;
+      -- Delete Current Ignore Warnings
+      DELETE
+        FROM IGNORE_WARNINGS igw
+       WHERE igw.RTAG_ID = nRtagId
+         AND igw.PV_ID = nPvId
+         AND igw.IS_PATCH_IGNORE IS NULL;
+      IF (oIgnoreIdCollector.COUNT > 0) THEN
+         -- Insert Ignore Warnings
+         INSERT INTO IGNORE_WARNINGS igw ( RTAG_ID, PV_ID, DPV_ID )
+         SELECT nRtagId,
+                nPvId,
+                pv.PV_ID AS DPV_ID
+           FROM PACKAGE_VERSIONS pv
+          WHERE pv.PV_ID IN ( SELECT * FROM TABLE ( CAST ( oIgnoreIdCollector AS RELMGR_NUMBER_TAB_t ) ) );
+      END IF;
+   ELSE
+      /* Patch Ignore Warnings - this execution path is the one taken when called from the Rebuild_Environment stored procedure */
+      -- Delete Current Patch Ignore Warnings
+      DELETE
+        FROM IGNORE_WARNINGS igw
+       WHERE igw.RTAG_ID = nRtagId
+         AND igw.IS_PATCH_IGNORE = 'Y';
+      -- Delete Manual Ignores that need to be Patch Ignores
+      DELETE
+        FROM IGNORE_WARNINGS igw
+       WHERE ( RTAG_ID, PV_ID, DPV_ID ) IN
+             (
+              SELECT DISTINCT
+                     nRtagId,
+                     err.PV_ID,
+                     err.ERR_DPV AS DPV_ID
+               FROM  (
+                      /* Full Release Contents used for reference*/
+                      SELECT rpv.PV_ID, rpv.pkg_id, NVL(rpv.v_ext, '|LINK_A_NULL|') AS v_ext
+                        FROM release_content rel, package_versions rpv
+                       WHERE rel.pv_id = rpv.pv_id
+                         AND rtag_id = nRtagId
+                     ) frc,
+                     (
+                      /* DPV_IDs not fount in release*/
+                      SELECT dep.pv_id, dep.dpv_id AS err_dpv
+                        FROM package_dependencies dep
+                       WHERE dep.pv_id IN ( SELECT pv_id FROM release_content WHERE rtag_id = nRtagId )
+                         AND NOT dep.dpv_id IN ( SELECT pv_id FROM release_content WHERE rtag_id = nRtagId )
+                     ) err,
+                     (
+                      SELECT DISTINCT pp.PV_ID, dep.DPV_ID
+                        FROM PACKAGE_PATCHES pp,
+                             PACKAGE_DEPENDENCIES dep,
+                             RELEASE_CONTENT rc
+                       WHERE rc.RTAG_ID = nRtagId
+                         AND rc.PV_ID = pp.PV_ID
+                         AND dep.PV_ID = pp.PATCH_ID
+                     ) pp,
+                     package_versions errpkg,
+                     package_versions errpv
+               WHERE err.err_dpv = errpv.pv_id
+                 AND errpv.pkg_id = frc.pkg_id(+)
+                 AND NVL(errpv.v_ext, '|LINK_A_NULL|') = frc.v_ext(+)
+                 AND err.pv_id = errpkg.pv_id
+                 AND err.PV_ID = pp.PV_ID
+                 AND frc.PV_ID = pp.DPV_ID
+             );
+      /*
+      ---------------------------------------------------
+      --  Make sure that select statement above and below are same
+      ---------------------------------------------------
+      */
+      -- Insert Patch Ignores
+      INSERT INTO IGNORE_WARNINGS igw ( RTAG_ID, PV_ID, DPV_ID, IS_PATCH_IGNORE )
+      SELECT DISTINCT
+             nRtagId,
+             err.PV_ID,
+             err.ERR_DPV AS DPV_ID,
+             'Y'
+        FROM (
+              /* Full Release Contents used for reference*/
+              SELECT rpv.PV_ID, rpv.pkg_id, NVL(rpv.v_ext, '|LINK_A_NULL|') AS v_ext
+                FROM release_content rel, package_versions rpv
+               WHERE rel.pv_id = rpv.pv_id
+                 AND rtag_id = nRtagId
+             ) frc,
+             (
+               /* DPV_IDs not fount in release*/
+               SELECT dep.pv_id, dep.dpv_id AS err_dpv
+                 FROM package_dependencies dep
+                WHERE dep.pv_id IN ( SELECT pv_id FROM release_content WHERE rtag_id = nRtagId )
+                  AND NOT dep.dpv_id IN ( SELECT pv_id FROM release_content WHERE rtag_id = nRtagId )
+             ) err,
+             (
+              SELECT DISTINCT pp.PV_ID, dep.DPV_ID
+                FROM PACKAGE_PATCHES pp,
+                     PACKAGE_DEPENDENCIES dep,
+                     RELEASE_CONTENT rc
+               WHERE rc.RTAG_ID = nRtagId
+                 AND rc.PV_ID = pp.PV_ID
+                 AND dep.PV_ID = pp.PATCH_ID
+             ) pp,
+             package_versions errpkg,
+             package_versions errpv
+       WHERE err.err_dpv = errpv.pv_id
+         AND errpv.pkg_id = frc.pkg_id(+)
+         AND NVL(errpv.v_ext, '|LINK_A_NULL|') = frc.v_ext(+)
+         AND err.pv_id = errpkg.pv_id
+         AND err.PV_ID = pp.PV_ID
+         AND frc.PV_ID = pp.DPV_ID;
+    END IF;
-END Reset_Ignore_Warnings;
+END Ignore_Dependency_Warnings;
+/
 --------------------------------------------------------
 --  DDL for Procedure INSERT_INTO_PACKAGE_BUILD_INFO
 --------------------------------------------------------
 END INSERT_INTO_PACKAGE_BUILD_INFO;
+/
 --------------------------------------------------------
+--  DDL for Procedure INSERT_MULTIPLE_STICKY_NOTES
+--------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "INSERT_MULTIPLE_STICKY_NOTES" IS
+/******************************************************************************
+   NAME:       INSERT_MULTIPLE_STICKY_NOTES
+   PURPOSE:
+   REVISIONS:
+   Ver        Date        Author           Description
+   ---------  ----------  ---------------  ------------------------------------
+.0        6/12/2006          1. Created this procedure.
+   NOTES:
+   Automatically available Auto Replace Keywords:
+      Object Name:     INSERT_MULTIPLE_STICKY_NOTES
+      Sysdate:         6/12/2006
+      Date and Time:   6/12/2006, 1:53:40 PM, and 6/12/2006 1:53:40 PM
+      Username:         (set in TOAD Options, Procedure Editor)
+      Table Name:       (set in the "New PL/SQL Object" dialog)
+******************************************************************************/
+	CURSOR curInfo IS
+    SELECT PV_ID
+	FROM PACKAGE_BUILD_ENV
+	WHERE BE_ID IN (11, 12);
+    recInfo curInfo%ROWTYPE;
+BEGIN
+	OPEN curInfo;
+    FETCH curInfo INTO recInfo;
+	WHILE curInfo%FOUND
+	LOOP
+		INSERT INTO NOTE_MANAGER ( NID, LAST_USER, LAST_DATE, DESCRIPTION )
+		VALUES( recInfo.PV_ID, 'awehalle', ORA_SYSDATETIME, '' );
+		FETCH curInfo INTO recInfo;
+	END LOOP;
+	CLOSE curInfo;
+END INSERT_MULTIPLE_STICKY_NOTES;
+/
+--------------------------------------------------------
+--  DDL for Procedure LEVEL_N_CONFLICTS
+--------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "LEVEL_N_CONFLICTS" (
+   nnrtag_id       IN       NUMBER,
+   nnsession_num   IN       NUMBER,
+   nnrowcnt        OUT      NUMBER,
+   nniteration     IN       NUMBER
+)
+IS
+/* ---------------------------------------------------------------------------
+    Version: 3.0.1
+   --------------------------------------------------------------------------- */
+   previteration   NUMBER := nniteration - 1;
+BEGIN
+   /* ---------  LEVEL 1 CONFILCTS -----------
+   || Following states are used:
+   || 0 -> NOT FOUND
+   || 1 -> MAJOR
+   || 2 -> MINOR MINOR
+   */
+   INSERT INTO temp_env_states
+      SELECT DISTINCT nnsession_num AS session_num, nniteration AS level_num,
+                      pv.pv_id, pv.pkg_id, pv.v_ext,
+                      DECODE (tes.tes_state, 2, 2, 1) AS MESSAGE
+                 FROM package_dependencies dep,
+                      package_versions dpv,
+                      package_versions pv,
+                      release_content rel,
+                      temp_env_states tes
+                WHERE rel.pv_id = dep.pv_id
+                  AND rel.rtag_id = nnrtag_id
+                  AND dep.pv_id = pv.pv_id
+                  AND dep.dpv_id = dpv.pv_id
+                  AND dpv.pkg_id = tes.pkg_id
+                  AND NVL (dpv.v_ext, '|LINK_A_NULL|') =
+                                              NVL (tes.v_ext, '|LINK_A_NULL|')
+                  AND tes.session_num = nnsession_num
+                  AND tes.level_num = previteration
+                  AND (dep.pv_id, dep.dpv_id) IN
+                                                   /* Remove packages listed in IGNORE_WARNINGS table and
+                                                 || packages already stored in Temp Table.
+                                                 */
+                      (
+                         SELECT pd.pv_id, pd.dpv_id
+                           FROM package_dependencies pd, release_content rc
+                          WHERE pd.pv_id = rc.pv_id AND rc.rtag_id = nnrtag_id
+                         --AND pd.pv_id NOT IN ( SELECT pv_id FROM temp_env_states WHERE session_num = NNsession_num AND level_num > 5 )
+                         MINUS
+                         SELECT igw.pv_id, igw.dpv_id
+                           FROM ignore_warnings igw
+                          WHERE igw.rtag_id = nnrtag_id);
+   nnrowcnt := SQL%ROWCOUNT;
+END level_n_conflicts;
+/
+--------------------------------------------------------
---  DDL for Procedure UPDATE_ADDITIONAL_NOTE
+--  DDL for Procedure LEVEL_ONE_CONFLICTS
+--------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "LEVEL_ONE_CONFLICTS" (
+   nnrtag_id       IN   NUMBER,
+   nnsession_num   IN   NUMBER
+)
+IS
+BEGIN
+   /* ---------  LEVEL 1 CONFILCTS -----------
+   || Following states are used:
+   || 0 -> NOT FOUND
+   || 1 -> MAJOR
+   || 2 -> MINOR MINOR
+   */
+   INSERT INTO temp_env_states
+      SELECT DISTINCT nnsession_num AS session_num, 1 AS level_num,
+                      err.pv_id, errpkg.pkg_id, errpkg.v_ext,
+                      DECODE (frc.v_nmm,
+                              NULL, 0,
+                              errpv.v_nmm, DECODE (frc.v_mm,
+                                                   errpv.v_mm, NULL,
+                                                  ),
+                             ) AS MESSAGE
+                 FROM (
+                       /* Full Release Contents used for reference*/
+                        SELECT rel.rtag_id, rpv.pv_id, rpv.pkg_id,
+                                NVL (rpv.v_ext, '|LINK_A_NULL|') AS v_ext,
+                                rpv.pkg_version, rpv.v_nmm, rpv.v_mm,
+                                (SELECT COUNT(*)
+                                   FROM ADVISORY_RIPPLE avr
+                                  WHERE avr.rtag_id = rel.rtag_id
+                                    AND avr.pv_id = rel.pv_id
+                                ) AS IsAvr
+                          FROM release_content rel,
+                                package_versions rpv
+                          WHERE rel.pv_id = rpv.pv_id
+                             AND rtag_id = nnrtag_id
+                      ) frc,
+                      (
+                       /* DPV_IDs not found in release (excluding those from pegged versions whose dependencies will not
+                          necessarily be satisfied in the release) */
+                       SELECT dep.pv_id, dep.dpv_id AS err_dpv
+                         FROM package_dependencies dep,
+                              package_versions dep_dpv
+                        WHERE dep.dpv_id = dep_dpv.pv_id
+                          AND dep.pv_id IN (SELECT pv_id FROM release_content WHERE rtag_id = nnrtag_id)
+                          AND NOT dep.pv_id IN (SELECT pegv.pv_id FROM PEGGED_VERSIONS pegv WHERE pegv.rtag_id = nnrtag_id)
+                          AND NOT dep.dpv_id IN (SELECT pv_id FROM release_content WHERE rtag_id = nnrtag_id)
+                       MINUS
+                       /* MINUS Dependencies to be ignored */
+                       SELECT igw.pv_id, igw.dpv_id AS err_dpv
+                         FROM ignore_warnings igw,
+                              package_versions igw_dpv
+                        WHERE igw.dpv_id = igw_dpv.pv_id
+                          AND igw.rtag_id = nnrtag_id
+                      ) err,
+                      package_versions errpkg,
+                      package_versions errpv
+                WHERE err.err_dpv = errpv.pv_id
+                  AND errpv.pkg_id = frc.pkg_id(+)
+                  AND NVL (errpv.v_ext, '|LINK_A_NULL|') = frc.v_ext(+)
+                  AND err.pv_id = errpkg.pv_id
+                  AND frc.IsAvr = 0;
+END level_one_conflicts;
+/
+--------------------------------------------------------
+--  DDL for Procedure LOCK_PACKAGE
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "UPDATE_ADDITIONAL_NOTE" ( pnNote_id IN NUMBER,
+  CREATE OR REPLACE PROCEDURE "LOCK_PACKAGE" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
-													 pnPv_id IN NUMBER,
+											 nUserId IN NUMBER ) IS
-                                                     psNote_title IN ADDITIONAL_NOTES.NOTE_TITLE%TYPE,
-                                                     psNote_body IN ADDITIONAL_NOTES.NOTE_BODY%TYPE,
-                                                     pnUser_id IN NUMBER,
-                                                     outErrCode OUT NUMBER
-                                                    ) IS
 /* ---------------------------------------------------------------------------
-    Version: 3.0.1
+    Version: 4.0
    --------------------------------------------------------------------------- */
-    newID NUMBER;
-    /* Disallow duplicate Note Titles */
-	CURSOR an_duplicate_cur IS
-        SELECT COUNT(*) AS cnt_note
-          FROM ADDITIONAL_NOTES
-         WHERE pv_id = pnPv_id
-           AND note_id != pnNote_id
-           AND note_title = psNote_title;
-    an_duplicate_rec an_duplicate_cur%ROWTYPE;
 BEGIN
-	outErrCode := -1;		-- Set default return error code to ERROR state
-	OPEN an_duplicate_cur;
+    -- Lock Package
-    FETCH an_duplicate_cur INTO an_duplicate_rec;
+    UPDATE PACKAGE_VERSIONS pv SET
+    	pv.DLOCKED = 'Y'
+    WHERE pv.PV_ID = nPvId;
-    IF an_duplicate_rec.cnt_note < 1
-    THEN
-		--- Update Additional Note ---
-	    UPDATE ADDITIONAL_NOTES SET
+    /* LOG ACTION */
-		       note_title = psNote_title,
-		       note_body = psNote_body,
-		       mod_date = Ora_Sysdate,
-		       mod_user = pnUser_id
-         WHERE note_id = pnNote_id
-           AND pv_id = pnPv_id;
-		outErrCode := 0;		-- Set return to SUCCESS
+   	Log_Action ( nPvId, 'lock_package', nUserId );
-	END IF;
-	CLOSE an_duplicate_cur;
-END Update_Additional_Note;
+END Lock_Package;
+/
 --------------------------------------------------------
---  DDL for Procedure NEW_UNIT_TEST
+--  DDL for Procedure LOG_ACTION
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "NEW_UNIT_TEST" ( nPv_id IN NUMBER,
+  CREATE OR REPLACE PROCEDURE "LOG_ACTION" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
-                                            nTestTypeId IN UNIT_TESTS.TEST_TYPES_FK%TYPE,
+										 enumActionTypeName IN ACTION_TYPE.NAME%TYPE,
-                                            sTest_summary IN UNIT_TESTS.TEST_SUMMARY%TYPE,
-                                            sNumOfTest IN UNIT_TESTS.NUMOF_TEST%TYPE,
+                                         nUserId IN ACTION_LOG.USER_ID%TYPE,
-                                            sDpkg_path IN VARCHAR2,
-                                            sResults IN VARCHAR2,
-                                            sCompletion_date IN VARCHAR2,
-                                            nCompleted_by IN NUMBER,
-											enumTEST_TYPE_AUTOMATIC IN NUMBER,
-											enumTEST_TYPE_NOT_DONE IN NUMBER,
+										 sAdditionalComments IN ACTION_LOG.DESCRIPTION%TYPE DEFAULT NULL  ) IS
-											outFileName OUT VARCHAR2
-                                           ) IS
 /* ---------------------------------------------------------------------------
-    Version: 3.2.0
+    Version: 3.0
    --------------------------------------------------------------------------- */
-   	FILENAME_PREFIX CONSTANT VARCHAR2(50) := 'RM_UNIT_TEST';
-    newID NUMBER;
+    ActionTypeId NUMBER;
-    ResultsURL UNIT_TESTS.RESULTS_URL%TYPE DEFAULT NULL;
-    ResultsAttachment UNIT_TESTS.RESULTS_ATTACHMENT_NAME%TYPE DEFAULT NULL;
 BEGIN
-	-- Get new ID --
+    -- Get Action Type FK
-   	SELECT SEQ_UNIT_TESTS.NEXTVAL INTO newID FROM DUAL;
+    SELECT act.ACTTYPE_ID INTO ActionTypeId
+      FROM ACTION_TYPE act
+     WHERE act.NAME = enumActionTypeName;
-       IF nTestTypeId = enumTEST_TYPE_AUTOMATIC THEN
-       	ResultsURL := sResults;
-       ELSE
-       	IF (sResults <> '') OR ( NOT sResults IS NULL ) THEN
-        	outFileName := FILENAME_PREFIX || newID ||'_'|| sResults;
-    		ResultsAttachment := sDpkg_path || '/' || outFileName;
-           END IF;
-       END IF;
-	-- Remove NOT_DONE entry if exists
+    INSERT INTO ACTION_LOG ( USER_ID, ACTION_DATETIME, PV_ID, DESCRIPTION, ACTTYPE_ID )
-	DELETE FROM UNIT_TESTS
-	 WHERE pv_id = nPv_id
-	   AND test_types_fk = enumTEST_TYPE_NOT_DONE;
+    VALUES ( nUserId, ORA_SYSDATETIME, nPvId, sAdditionalComments, ActionTypeId );
-	--- Add Additional Note ---
-    INSERT INTO UNIT_TESTS ( TEST_ID,
-								PV_ID,
-								TEST_TYPES_FK,
-								TEST_SUMMARY,
-								COMPLETION_DATE,
-								COMPLETED_BY,
-								RESULTS_URL,
-								RESULTS_ATTACHMENT_NAME,
-								NUMOF_TEST )
-    VALUES (
-       	newID,
-           nPv_id,
-           nTestTypeId,
-           sTest_summary,
-           TO_DATE( sCompletion_date,'DD/MM/YYYY' ),
-           nCompleted_by,
-           ResultsURL,
-           ResultsAttachment,
-		   sNumOfTest );
-END New_Unit_Test;
+END Log_Action;
+/
 --------------------------------------------------------
---  DDL for Procedure SWITCH_REPRODUCIBLE_PACKAGE
+--  DDL for Procedure LOG_ACTION_BULK
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "SWITCH_REPRODUCIBLE_PACKAGE" (nPvId IN NUMBER, nUserId IN NUMBER)IS
+  CREATE OR REPLACE PROCEDURE "LOG_ACTION_BULK" ( nPvIdList IN VARCHAR2,
-Auto CHAR;
-/******************************************************************************
+										 	  enumActionTypeName IN ACTION_TYPE.NAME%TYPE,
-   NAME:       SWITCH_REPRODUCIBLE_PACKAGE
+                                         	  nUserId IN ACTION_LOG.USER_ID%TYPE,
-   PURPOSE:
-   REVISIONS:
-   Ver        Date        Author           Description
+										 	  sAdditionalComments IN ACTION_LOG.DESCRIPTION%TYPE DEFAULT NULL  ) IS
-   ---------  ----------  ---------------  ------------------------------------
+/* ---------------------------------------------------------------------------
-.0        14/12/2006   Rupesh Solanki       1. Created this procedure.
-   NOTES:
+    Version: 3.0
+   --------------------------------------------------------------------------- */
-   Automatically available Auto Replace Keywords:
-      Object Name:     SWITCH_REPRODUCIBLE_PACKAGE
-      Sysdate:         14/12/2006
+    ActionTypeId NUMBER;
-      Date and Time:   14/12/2006, 11:35:15 AM, and 14/12/2006 11:35:15 AM
-      Username:         (set in TOAD Options, Procedure Editor)
+    oPvIdCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
-      Table Name:       (set in the "New PL/SQL Object" dialog)
-******************************************************************************/
 BEGIN
-	 SELECT IS_AUTOBUILDABLE into Auto
-	 FROM PACKAGE_VERSIONS
-	 WHERE PV_ID = nPvId;
-	 IF Auto = 'N' Then
-	 	UPDATE PACKAGE_VERSIONS
-	 	SET IS_AUTOBUILDABLE = 'Y'
-	 	WHERE PV_ID = nPvId;
-	 	/* LOG ACTION */
-   		Log_Action ( nPvId, 'reproducible_package', nUserId );
+    oPvIdCollector := IN_LIST_NUMBER ( nPvIdList );
-	 Else
-		 UPDATE PACKAGE_VERSIONS
-		 SET IS_AUTOBUILDABLE = 'N'
-		 WHERE PV_ID = nPvId;
-	 	 /* LOG ACTION */
-   	 	 Log_Action ( nPvId, 'unreproducible_package', nUserId );
-	 End If;
+    -- Get Action Type FK
+    SELECT act.ACTTYPE_ID INTO ActionTypeId
+      FROM ACTION_TYPE act
+     WHERE act.NAME = enumActionTypeName;
+    -- Log Action
+    INSERT INTO ACTION_LOG ( USER_ID, ACTION_DATETIME, PV_ID, DESCRIPTION, ACTTYPE_ID )
+    SELECT nUserId,
+    	   ORA_SYSDATETIME,
+           pv.PV_ID,
+           sAdditionalComments,
+           ActionTypeId
+      FROM PACKAGE_VERSIONS pv
+     WHERE pv.PV_ID IN ( SELECT * FROM TABLE ( CAST ( oPvIdCollector AS RELMGR_NUMBER_TAB_t ) ) );
-END SWITCH_REPRODUCIBLE_PACKAGE;
+END Log_Action_Bulk;
+/
 --------------------------------------------------------
 --  DDL for Procedure LOG_DAEMON_ACTION
 --------------------------------------------------------
 END Log_Daemon_Action;
+/
 --------------------------------------------------------
---  DDL for Procedure UPDATE_MISC_VIEW
+--  DDL for Procedure LOG_PROJECT_ACTION
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "UPDATE_MISC_VIEW" IS
+  CREATE OR REPLACE PROCEDURE "LOG_PROJECT_ACTION" ( nProjId IN NUMBER,
-/******************************************************************************
+												 enumActionTypeName IN VARCHAR2,
-   NAME:       UPDATE_MISC_VIEW
+		                                         nUserId IN NUMBER,
-   PURPOSE:
+												 sAdditionalComments IN VARCHAR2 DEFAULT NULL,
-   REVISIONS:
-   Ver        Date        Author           Description
+												 nRtagId IN NUMBER  ) IS
-   ---------  ----------  ---------------  ------------------------------------
+/* ---------------------------------------------------------------------------
-.0        16/03/2007          1. Created this procedure.
-   NOTES:
+    Version: 3.0
+   --------------------------------------------------------------------------- */
-   Automatically available Auto Replace Keywords:
-      Object Name:     UPDATE_MISC_VIEW
-      Sysdate:         16/03/2007
+    ActionTypeId NUMBER;
-      Date and Time:   16/03/2007, 8:56:29 AM, and 16/03/2007 8:56:29 AM
-      Username:         (set in TOAD Options, Procedure Editor)
-      Table Name:       (set in the "New PL/SQL Object" dialog)
-******************************************************************************/
-   CURSOR view_cur /*Create a record set to store the ripple data*/
-   IS
+BEGIN
-   	 SELECT pkg.pkg_id, rc.base_view_id
-	 FROM package_versions pv, packages pkg, release_content rc
-	 where rc.rtag_id = 2362
-	 and rc.pv_id = pv.pv_id
-	 and pv.pkg_id = pkg.pkg_id;
-   view_rec   view_cur%ROWTYPE;
+    -- Get Action Type FK
+    SELECT act.ACTTYPE_ID INTO ActionTypeId
+      FROM ACTION_TYPE act
+     WHERE act.NAME = enumActionTypeName;
-BEGIN
+    INSERT INTO PROJECT_ACTION_LOG ( USER_ID, ACTION_DATETIME, PROJ_ID, DESCRIPTION, ACTTYPE_ID, RTAG_ID)
-   OPEN view_cur;
+    VALUES ( nUserId, ORA_SYSDATETIME, nProjId, sAdditionalComments, ActionTypeId, nRtagId);
-   FETCH view_cur
-    INTO view_rec;
-   WHILE view_cur%FOUND
+END Log_Project_Action;
-   LOOP
+/
+--------------------------------------------------------
+--  DDL for Procedure NEW_ADDITIONAL_NOTE
+--------------------------------------------------------
-	   update release_content
+  CREATE OR REPLACE PROCEDURE "NEW_ADDITIONAL_NOTE" ( pnPv_id IN NUMBER,
-	   set base_view_id = view_rec.base_view_id
+                                                  psNote_title IN ADDITIONAL_NOTES.NOTE_TITLE%TYPE,
-	   where rtag_id = 8027
+                                                  psNote_body IN ADDITIONAL_NOTES.NOTE_BODY%TYPE,
-	   and pv_id IN
+                                                  pnUser_id IN NUMBER,
-	   (
-	   	select pv.pv_id from release_content rc, package_versions pv
+                                                  outErrCode OUT NUMBER
-		where rc.rtag_id = 8027
+                                                 ) IS
+/* ---------------------------------------------------------------------------
-		and pv.pv_id = rc.pv_id
+    Version: 3.0.0
-		and pv.pkg_id = view_rec.pkg_id
+   --------------------------------------------------------------------------- */
-	   );
+    newID NUMBER;
-   FETCH view_cur
+	CURSOR an_duplicate_cur IS
-   		 INTO view_rec;
+        SELECT note_id
+          FROM ADDITIONAL_NOTES
-   END LOOP;
+         WHERE pv_id = pnPv_id
+           AND note_title = psNote_title;
+    an_duplicate_rec an_duplicate_cur%ROWTYPE;
+BEGIN
+	outErrCode := -1;		-- Set default return error code to ERROR state
+	OPEN an_duplicate_cur;
+    FETCH an_duplicate_cur INTO an_duplicate_rec;
+    IF an_duplicate_cur%NOTFOUND
+    THEN
+		/* No duplicate titles */
+		-- Get new ID --
+    	SELECT SEQ_ADDITIONAL_NOTES.NEXTVAL INTO newID FROM DUAL;
+		--- Add Additional Note ---
+	    INSERT INTO ADDITIONAL_NOTES ( note_id, pv_id, note_title, note_body, mod_date, mod_user  )
+	    VALUES (  newID, pnPv_id, psNote_title, psNote_body, Ora_Sysdate, pnUser_id );
+		outErrCode := 0;		-- Set return to SUCCESS
+	END IF;
+	CLOSE an_duplicate_cur;
-END UPDATE_MISC_VIEW;
+END New_Additional_Note;
+/
 --------------------------------------------------------
---  DDL for Procedure CHECK_NEW_PATCHES
+--  DDL for Procedure NEW_PACKAGE_NAME
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "CHECK_NEW_PATCHES" (
+  CREATE OR REPLACE PROCEDURE "NEW_PACKAGE_NAME" ( SSpkg_name IN PACKAGES.pkg_name%TYPE,
-   nrtagid   IN   release_content.rtag_id%TYPE
+                                               retPKG_ID OUT NUMBER ) IS
-)
-IS
 /* ---------------------------------------------------------------------------
-    Version: 3.0
+    Version: 3.0.0
    --------------------------------------------------------------------------- */
+    CURSOR packages_cur IS
+        SELECT pkg.pkg_id
+          FROM packages pkg
+         WHERE pkg.pkg_name = SSpkg_name;
+    packages_rec packages_cur%ROWTYPE;
 BEGIN
-   /*--------------- Business Rules Here -------------------*/
-   /*IF nRtagId NOT IN (SELECT RTAG_ID FROM RELEASE_TAGS ) THEN
-      RAISE_APPLICATION_ERROR (-20000, 'Please contact the person in charge of Release Manager now.' );
-   END IF
-   /*-------------------------------------------------------*/
+    /* ---------------------------------------------------- */
-   UPDATE release_content rc
-      SET rc.pkg_state = 5                          -- enumPKG_STATE_NEW_PATCH
+    /* Find if package name exists                          */
-    WHERE rc.pv_id IN (
-             SELECT prod.pv_id
-               FROM (SELECT   pp.pv_id AS orig_parent_id,
-                              COUNT (*) AS num_of_patches
-                         FROM release_content rc, package_patches pp
-                        WHERE rc.pv_id = pp.pv_id AND rc.rtag_id = nrtagid
-                     GROUP BY pp.pv_id) orig,
-                    (SELECT   prodpp.pv_id, pp.pv_id AS parent_id,
-                              COUNT (*) AS num_of_patches
-                         FROM release_content rc,
-                              package_patches pp,
-                              package_dependencies dep,
-                              package_versions pv,
-                              package_patches prodpp
-                        WHERE rc.pv_id = pp.pv_id
-                          AND rc.rtag_id = nrtagid
-                          AND pp.patch_id = dep.dpv_id
-                          AND dep.pv_id = pv.pv_id
-                          AND pv.is_patch = 'Y'
-                          AND pv.dlocked = 'Y'
-                          AND prodpp.patch_id = dep.pv_id
-                     GROUP BY prodpp.pv_id, pp.pv_id) prod,
-                    release_content rc
-              WHERE orig.orig_parent_id = prod.pv_id
-                AND orig.num_of_patches != prod.num_of_patches
-                AND rc.rtag_id = nrtagid
-                AND rc.pv_id = prod.pv_id
-                AND rc.pkg_state = 0
-             UNION
-             SELECT   prodpp.pv_id
-                 FROM release_content rc,
-                      package_patches pp,
-                      package_dependencies dep,
-                      package_versions pv,
-                      package_patches prodpp
-                WHERE rc.pv_id = pp.pv_id
-                  AND rc.rtag_id = nrtagid
-                  AND pp.patch_id = dep.dpv_id
-                  AND dep.pv_id = pv.pv_id
-                  AND pv.is_patch = 'Y'
-                  AND pv.dlocked = 'Y'
-                  AND prodpp.patch_id = dep.pv_id
-             GROUP BY prodpp.pv_id, pp.pv_id
-             MINUS
-             SELECT   pp.pv_id
-                 FROM release_content rc, package_patches pp
-                WHERE rc.pv_id = pp.pv_id AND rc.rtag_id = nrtagid
-             GROUP BY pp.pv_id);
-END check_new_patches;
-/
---------------------------------------------------------
---  DDL for Procedure CLEAN_ADVISORY_RIPPLE
---------------------------------------------------------
+    /* ---------------------------------------------------- */
-  CREATE OR REPLACE PROCEDURE "CLEAN_ADVISORY_RIPPLE" (nrtagid IN NUMBER)
+    OPEN packages_cur;
-IS
-/******************************************************************************
-   NAME:       clean_advisory_ripple
+    FETCH packages_cur INTO packages_rec;
-   PURPOSE:    To delete entries from the advisory_ripple table based upon
+    IF packages_cur%NOTFOUND
+    THEN
-               an RTAG_ID only
+        -- Create new pkg_name --
+        SELECT SEQ_PKG_ID.nextval INTO retPKG_ID FROM DUAL;
-               This is a tidy-up operation performed against the advisory_ripple
-               table, ensuring that the table does not have rtag_id/pv_id
+        INSERT INTO packages ( pkg_id, pkg_name )
-               combinations that cannot be found in the release's wip/pending/release
-               tabs.
+        VALUES ( retPKG_ID, SSpkg_name );
-******************************************************************************/
-BEGIN
+    ELSE
-   -- Delete any invalid rtag_id/pv_id combination from the advisory_ripple table.
-   -- An invalid rtag_id/pv_id combination is one that cannot be found in the
-   -- work_in_progress, planned, or release_content table.
-   -- NOTE: Planned operations that represent pending additive/subtractive merge
-   -- operations are ignored because they have not been approved yet and so
-   -- cannot be said to be "in the release".
-   DELETE FROM advisory_ripple
-         WHERE rtag_id = nrtagid
+        retPKG_ID := packages_rec.pkg_id;
-           AND pv_id not in
-               ((SELECT pv_id FROM release_content WHERE rtag_id = nrtagid)
-                 UNION
+    END IF;
-                (SELECT pv_id FROM work_in_progress WHERE rtag_id = nrtagid)
-                 UNION
+    CLOSE packages_cur;
-                (SELECT pv_id FROM planned WHERE rtag_id = nrtagid AND (operation is null OR operation = 'R'))
-               );
-END clean_advisory_ripple;
+END New_Package_Name;
+/
 --------------------------------------------------------
 --  DDL for Procedure NEW_PATCH
 --------------------------------------------------------
     CLOSE parent_cur;
     CLOSE patch_cur;
 END New_Patch;
+/
 --------------------------------------------------------
---  DDL for Procedure UPDATE_PROCESSES
+--  DDL for Procedure NEW_UNIT_TEST
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "UPDATE_PROCESSES"
+  CREATE OR REPLACE PROCEDURE "NEW_UNIT_TEST" ( nPv_id IN NUMBER,
-IS
+                                            nTestTypeId IN UNIT_TESTS.TEST_TYPES_FK%TYPE,
-proc_id NUMBER;
+                                            sTest_summary IN UNIT_TESTS.TEST_SUMMARY%TYPE,
-/******************************************************************************
+                                            sNumOfTest IN UNIT_TESTS.NUMOF_TEST%TYPE,
-   NAME:       DELETE_DO_NOT_RIPPLE
+                                            sDpkg_path IN VARCHAR2,
+                                            sResults IN VARCHAR2,
-   PURPOSE:    TO DELETE ENTRIES FROM THE DO_NOT_RIPPLE TABLE WHEN A PACKAGE
+                                            sCompletion_date IN VARCHAR2,
-               IS RELEASED
+                                            nCompleted_by IN NUMBER,
+											enumTEST_TYPE_AUTOMATIC IN NUMBER,
+											enumTEST_TYPE_NOT_DONE IN NUMBER,
-   REVISIONS:
+											outFileName OUT VARCHAR2
-   Ver        Date        Author           Description
+                                           ) IS
-   ---------  ----------  ---------------  ------------------------------------
+/* ---------------------------------------------------------------------------
-.0        21/04/2006  Rupesh Solanki     1. Created this procedure.
-   NOTES:
+    Version: 3.2.0
+   --------------------------------------------------------------------------- */
-   Automatically available Auto Replace Keywords:
-      Object Name:     DELETE_DO_NOT_RIPPLE
-      Sysdate:         21/04/2006
-      Date and Time:   21/04/2006, 3:21:55 PM, and 21/04/2006 3:21:55 PM
-      Username:         (set in TOAD Options, Procedure Editor)
+   	FILENAME_PREFIX CONSTANT VARCHAR2(50) := 'RM_UNIT_TEST';
-      Table Name:       (set in the "New PL/SQL Object" dialog)
-******************************************************************************/
-   CURSOR ripple_cur
+    newID NUMBER;
-   IS
+    ResultsURL UNIT_TESTS.RESULTS_URL%TYPE DEFAULT NULL;
-      select proc_id,  proc_name, run_as, pkg_owner, is_interface from processes;
+    ResultsAttachment UNIT_TESTS.RESULTS_ATTACHMENT_NAME%TYPE DEFAULT NULL;
-   ripple_rec   ripple_cur%ROWTYPE;
 BEGIN
-   OPEN ripple_cur;
-   FETCH ripple_cur
+	-- Get new ID --
-    INTO ripple_rec;
+   	SELECT SEQ_UNIT_TESTS.NEXTVAL INTO newID FROM DUAL;
+       IF nTestTypeId = enumTEST_TYPE_AUTOMATIC THEN
-   WHILE ripple_cur%FOUND
+       	ResultsURL := sResults;
-   LOOP
+       ELSE
+       	IF (sResults <> '') OR ( NOT sResults IS NULL ) THEN
+        	outFileName := FILENAME_PREFIX || newID ||'_'|| sResults;
+    		ResultsAttachment := sDpkg_path || '/' || outFileName;
+           END IF;
+       END IF;
-update deployment_manager.processes_config
-set proc_id = ripple_rec.proc_id
+	-- Remove NOT_DONE entry if exists
-where pkg_health_tag = ripple_rec.proc_name
-and cmd_interface IS NULL
+	DELETE FROM UNIT_TESTS
-and pkg_owner IS NULL
+	 WHERE pv_id = nPv_id
-and is_interface IS NULL;
+	   AND test_types_fk = enumTEST_TYPE_NOT_DONE;
+	--- Add Additional Note ---
+    INSERT INTO UNIT_TESTS ( TEST_ID,
+								PV_ID,
+								TEST_TYPES_FK,
+								TEST_SUMMARY,
+								COMPLETION_DATE,
+								COMPLETED_BY,
+								RESULTS_URL,
+								RESULTS_ATTACHMENT_NAME,
+								NUMOF_TEST )
+    VALUES (
+       	newID,
+           nPv_id,
+           nTestTypeId,
+           sTest_summary,
+           TO_DATE( sCompletion_date,'DD/MM/YYYY' ),
-      FETCH ripple_cur
+           nCompleted_by,
-       INTO ripple_rec;
+           ResultsURL,
+           ResultsAttachment,
-   END LOOP;
+		   sNumOfTest );
-END UPDATE_PROCESSES;
+END New_Unit_Test;
+/
 --------------------------------------------------------
---  DDL for Procedure DELETE_AUTOBUILD_FAILURE_INFO
+--  DDL for Procedure NEW_VERSION
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "DELETE_AUTOBUILD_FAILURE_INFO"
+  CREATE OR REPLACE PROCEDURE "NEW_VERSION" ( NNorig_pv_id IN NUMBER,
-IS
+                                          SSpkg_version IN PACKAGE_VERSIONS.pkg_version%TYPE DEFAULT NULL,
-/******************************************************************************
+                                          NNsetto_pv_id IN NUMBER DEFAULT NULL,
+                                          NNrtag_id IN NUMBER,
-   NAME:       DELETE_AUTOBUILD_FAILURE_INFO
+                                          NNuser_id IN NUMBER,
+                                          enumISSUES_STATE_IMPORTED IN NUMBER,
+                                          retPv_id OUT NUMBER ) IS
+  TO BE REMOVED   !!!
+/* ---------------------------------------------------------------------------
-   PURPOSE:
+    Version: 3.3
+   --------------------------------------------------------------------------- */
+    ReleaseLocation VARCHAR2(4000);
-   REVISIONS:
+    origPkg_id PACKAGE_VERSIONS.pkg_id%TYPE;
-   Ver        Date        Author           Description
+    origDlocked PACKAGE_VERSIONS.dlocked%TYPE;
+    SSV_MM PACKAGE_VERSIONS.V_MM%TYPE;
-   ---------  ----------  ---------------  ------------------------------------
+    SSV_NMM PACKAGE_VERSIONS.V_NMM%TYPE;
-.0        2/06/2006    Rupesh Solanki      1. Created this procedure.
+    SSV_EXT PACKAGE_VERSIONS.V_EXT%TYPE;
+    nIssuesTypes NUMBER;
+    CURSOR package_versions_cur IS
+        SELECT pv.pv_id, pv.is_patch
-   NOTES:
+          FROM PACKAGE_VERSIONS pv
+         WHERE pv.pkg_version = SSpkg_version
+           AND pv.pkg_id IN ( SELECT DISTINCT origpv.pkg_id FROM PACKAGE_VERSIONS origpv WHERE origpv.pv_id = NNorig_pv_id );
+    package_versions_rec package_versions_cur%ROWTYPE;
-   Automatically available Auto Replace Keywords:
+    CURSOR clone_package_versions_cur IS
-      Object Name:     DELETE_AUTOBUILD_FAILURE_INFO
-      Sysdate:         2/06/2006
-      Date and Time:   2/06/2006, 8:44:25 AM, and 2/06/2006 8:44:25 AM
+        SELECT DISTINCT pkg_id, dlocked FROM PACKAGE_VERSIONS WHERE pv_id = NNorig_pv_id;
-      Username:         (set in TOAD Options, Procedure Editor)
+    clone_package_versions_rec clone_package_versions_cur%ROWTYPE;
-      Table Name:       (set in the "New PL/SQL Object" dialog)
-******************************************************************************/
 BEGIN
-   DELETE FROM autobuild_failure
-         WHERE group_email_id NOT IN (SELECT group_email_id
-                                        FROM members_group);
-END delete_autobuild_failure_info;
+	IF NNsetto_pv_id IS NULL
-/
---------------------------------------------------------
---  DDL for Procedure TEST
+    THEN
---------------------------------------------------------
+		-- SetToPv_id is not supplied, hence proceed.
+	    /* ---------------------------------------------------- */
-  CREATE OR REPLACE PROCEDURE "TEST"
+	    /* Find id package_version exists                       */
-IS
+	    /* ---------------------------------------------------- */
-proc_id NUMBER;
-/******************************************************************************
-   NAME:       DELETE_DO_NOT_RIPPLE
+	    OPEN package_versions_cur;
-   PURPOSE:    TO DELETE ENTRIES FROM THE DO_NOT_RIPPLE TABLE WHEN A PACKAGE
+	    FETCH package_versions_cur INTO package_versions_rec;
-               IS RELEASED
+	    IF package_versions_cur%NOTFOUND
-   REVISIONS:
+	    THEN
-   Ver        Date        Author           Description
+	        SELECT SEQ_PV_ID.NEXTVAL INTO retPv_id FROM DUAL;
-   ---------  ----------  ---------------  ------------------------------------
-.0        21/04/2006  Rupesh Solanki     1. Created this procedure.
+	        Split_Version ( SSpkg_version, SSV_MM, SSV_NMM, SSV_EXT );
-   NOTES:
+	        OPEN clone_package_versions_cur;
+	        FETCH clone_package_versions_cur INTO clone_package_versions_rec;
+	        origPkg_id := clone_package_versions_rec.pkg_id;
+	        origDlocked := clone_package_versions_rec.dlocked;
+	        CLOSE clone_package_versions_cur;
-   Automatically available Auto Replace Keywords:
+	        -- Clone Package Version Details --
+	        INSERT INTO PACKAGE_VERSIONS ( pv_id, pkg_id, pkg_version, dlocked, created_stamp, creator_id, modified_stamp, modifier_id, V_MM, V_NMM, V_EXT,
+	                                       src_path, pv_description, PV_OVERVIEW, LAST_PV_ID, owner_id, IS_DEPLOYABLE, IS_BUILD_ENV_REQUIRED )
+	            SELECT retPv_id         AS pv_id,
+	                   origPkg_id       AS pkg_id,
+	                   SSpkg_version    AS pkg_version,
-      Object Name:     DELETE_DO_NOT_RIPPLE
+	                   'N'              AS dlocked,
-      Sysdate:         21/04/2006
+	                   Ora_Sysdate      AS created_stamp,
+	                   NNuser_id        AS creator_id,
-      Date and Time:   21/04/2006, 3:21:55 PM, and 21/04/2006 3:21:55 PM
+	                   Ora_Sysdatetime  AS modified_stamp,
-      Username:         (set in TOAD Options, Procedure Editor)
+	                   NNuser_id        AS modifier_id,
+	                   SSV_MM           AS V_MM,
+	                   SSV_NMM          AS V_NMM,
+	                   SSV_EXT          AS V_EXT,
+	                   pv.src_path,
+	                   pv.pv_description,
+                       pv.PV_OVERVIEW,
-      Table Name:       (set in the "New PL/SQL Object" dialog)
+                       NNorig_pv_id 	AS LAST_PV_ID,
+	                   pv.owner_id,
+					   pv.IS_DEPLOYABLE,
+					   pv.IS_BUILD_ENV_REQUIRED
+	              FROM PACKAGE_VERSIONS pv
+	             WHERE pv.pv_id = NNorig_pv_id;
-******************************************************************************/
-   CURSOR ripple_cur
-   IS
-      select distinct pkg_health_tag, cmd_interface, pkg_owner, is_interface from deployment_manager.processes_config;
+	        -- Set Issues Type for cloning ---
-   ripple_rec   ripple_cur%ROWTYPE;
+	        IF origDlocked = 'Y'
-BEGIN
+	        THEN
+            	nIssuesTypes := enumISSUES_STATE_IMPORTED;
+	        ELSE
+            	nIssuesTypes := NULL;
-   OPEN ripple_cur;
+	        END IF;
-   FETCH ripple_cur
-    INTO ripple_rec;
+			Basic_Clone ( NNorig_pv_id, retPv_id, NNrtag_id, NNuser_id, origPkg_id, nIssuesTypes );
-   WHILE ripple_cur%FOUND
-   LOOP
-   select deployment_manager.seq_proc_id.nextval into proc_id from dual;
-insert into processes (PROC_ID, PROC_NAME, RUN_AS, PKG_OWNER, IS_INTERFACE)
-values(proc_id, ripple_rec.pkg_health_tag, ripple_rec.cmd_interface, ripple_rec.pkg_owner, ripple_rec.is_interface);
+	    ELSE
+	        retPv_id := package_versions_rec.pv_id;
-      FETCH ripple_cur
+	    END IF;
-       INTO ripple_rec;
+        CLOSE package_versions_cur;
+	ELSE
+    	retPv_id := NNsetto_pv_id;
-   END LOOP;
+    END IF;
+    /* ---------------------------------------------------- */
+    /* Insert into Release Contents (EXCLUDE PATCHES)       */
+    /* ---------------------------------------------------- */
+	IF (package_versions_rec.is_patch != 'Y') OR (package_versions_rec.is_patch IS NULL) THEN
+	    UPDATE RELEASE_CONTENT
+	       SET pv_id = retPv_id,
+	           insert_stamp = Ora_Sysdate,
+	           insertor_id = NNuser_id
+	     WHERE rtag_id = NNrtag_id
+	       AND pv_id = NNorig_pv_id;
+        /* LOG ACTION */
+        SELECT proj.PROJ_NAME ||' / '|| vt.VTREE_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+		  FROM PROJECTS proj,
+		  	   VTREES vt,
+		       RELEASE_TAGS rt
+		 WHERE rt.VTREE_ID = vt.VTREE_ID
+		   AND vt.PROJ_ID = proj.PROJ_ID
+		   AND rt.RTAG_ID = NNrtag_id;
+        Log_Action ( NNorig_pv_id, 'replaced_with', NNuser_id, 'Replacing version: '|| SSpkg_version ||' at '|| ReleaseLocation );
+   		Log_Action ( retPv_id, 'add', NNuser_id, 'Location: '|| ReleaseLocation );
-END test;
+	END IF;
+END New_Version;
+/
 --------------------------------------------------------
---  DDL for Procedure CLEAN_DO_NOT_RIPPLE
+--  DDL for Procedure OLE
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "CLEAN_DO_NOT_RIPPLE" (nrtagid IN NUMBER)
+  CREATE OR REPLACE PROCEDURE "OLE"
-IS
+IS retval VARCHAR2(40);
-/******************************************************************************
+BEGIN   retval := RELEASE_MANAGER.Pk_Rmapi.RETURN_WIP ( 'daf_br_applets', 2362 )
-   NAME:       clean_do_not_ripple
+DBMS_OUTPUT.PUT_LINE(retval);
+/
-   PURPOSE:    To delete entries from the do_not_ripple table based upon
+--------------------------------------------------------
-               an RTAG_ID only
+--  DDL for Procedure PAOLO_BUILD_TREE
+--------------------------------------------------------
-               This is a tidy-up operation performed against the do_not_ripple
-               table, ensuring that the table does not have rtag_id/pv_id
+  CREATE OR REPLACE PROCEDURE "PAOLO_BUILD_TREE" ( nRtag_id IN NUMBER ) IS
-               combinations that cannot be found in the release's wip/pending/release
-               tabs.
+    sessionNumber NUMBER := 0;
+    iteration NUMBER := 1;
+    rowCnt NUMBER := 0;
-******************************************************************************/
+    maxIterations 	NUMBER := 50;
 BEGIN
-   -- Delete any invalid rtag_id/pv_id combination from the do_not_ripple table.
+    INSERT INTO TEMP_TREE_BROWSE ( SESSION_NUM, LEVEL_NUM, PV_ID )
-   -- An invalid rtag_id/pv_id combination is one that cannot be found in the
+    SELECT sessionNumber, iteration, rc.PV_ID
+      FROM RELEASE_CONTENT rc
-   -- work_in_progress, planned, or release_content table.
+     WHERE rc.RTAG_ID = nRtag_id;
-   -- NOTE: Planned operations that represent pending additive/subtractive merge
+    iteration := iteration + 1;
+    LOOP
-   -- operations are ignored because they have not been approved yet and so
+        INSERT INTO TEMP_TREE_BROWSE ( SESSION_NUM, LEVEL_NUM, PV_ID )
+		SELECT sessionNumber,
-   -- cannot be said to be "in the release".
+               iteration,
+               dep.DPV_ID
-   DELETE FROM do_not_ripple
+          FROM TEMP_TREE_BROWSE ttb,
-         WHERE rtag_id = nrtagid
+               PACKAGE_DEPENDENCIES dep
-           AND pv_id not in
+         WHERE dep.PV_ID = ttb.PV_ID
-               ((SELECT pv_id FROM release_content WHERE rtag_id = nrtagid)
+           AND ttb.LEVEL_NUM = iteration - 1
-                 UNION
+         MINUS
-                (SELECT pv_id FROM work_in_progress WHERE rtag_id = nrtagid)
+        SELECT sessionNumber, iteration, ttb.PV_ID
+          FROM TEMP_TREE_BROWSE ttb;
-                 UNION
+		rowCnt := SQL%ROWCOUNT;
+		IF rowCnt > 0 THEN
+           iteration := iteration + 1;
+		END IF;
-                (SELECT pv_id FROM planned WHERE rtag_id = nrtagid AND (operation is null OR operation = 'R'))
+        EXIT WHEN (rowCnt < 1) OR (iteration > maxIterations);
-               );
+    END LOOP;
-END clean_do_not_ripple;
+END PAOLO_Build_Tree;
+/
 --------------------------------------------------------
 --  DDL for Procedure REBUILD_ENVIRONMENT
 --------------------------------------------------------
 	END IF;
     */
 END Rebuild_Environment;
+/
 --------------------------------------------------------
---  DDL for Procedure TEST_MARCO
+--  DDL for Procedure RELEASE_MANAGER_MAILOUT
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "TEST_MARCO" IS
+  CREATE OR REPLACE PROCEDURE "RELEASE_MANAGER_MAILOUT" (
+  sender      IN VARCHAR2,
+  recipient   IN VARCHAR2,
-/******************************************************************************
+  ccrecipient IN VARCHAR2,
-   NAME:       TEST_MARCO
+  subject     IN VARCHAR2,
-   PURPOSE:
+  message     IN VARCHAR2
+  ) IS
-   REVISIONS:
+  crlf VARCHAR2(2):= UTL_TCP.CRLF;
-   Ver        Date        Author           Description
+  connection utl_smtp.connection;
-   ---------  ----------  ---------------  ------------------------------------
+  mailhost VARCHAR2(30) := 'aupera03.aupera.erggroup.com';
-.0        2/03/2007          1. Created this procedure.
+  header VARCHAR2(1000);
-   NOTES:
+BEGIN
-   Automatically available Auto Replace Keywords:
-      Object Name:     TEST_MARCO
+  --
-      Sysdate:         2/03/2007
+  -- Start the connection.
-      Date and Time:   2/03/2007, 3:11:11 PM, and 2/03/2007 3:11:11 PM
+  --
-      Username:         (set in TOAD Options, Procedure Editor)
+  connection := utl_smtp.open_connection(mailhost,25);
-      Table Name:       (set in the "New PL/SQL Object" dialog)
-******************************************************************************/
+  header:= 'Date: '||TO_CHAR(SYSDATE,'dd Mon yy hh24:mi:ss')||crlf||
+     'From: '||sender||''||crlf||
+  'Subject: '||subject||crlf||
+       'To: '||recipient||crlf||
+       'CC: '||ccrecipient;
+  --
-parPv_id    NUMBER;
+  -- Handshake with the SMTP server
+  --
+  utl_smtp.helo(connection, mailhost);
-parPkg_id   NUMBER;
+  utl_smtp.mail(connection, sender);
-    SSV_MM PACKAGE_VERSIONS.V_MM%TYPE;
+  utl_smtp.rcpt(connection, recipient);
-    SSV_NMM PACKAGE_VERSIONS.V_NMM%TYPE;
+  utl_smtp.rcpt(connection, ccrecipient);
+  utl_smtp.open_data(connection);
+  --
+  -- Write the header
+  --
-    SSV_EXT PACKAGE_VERSIONS.V_EXT%TYPE;
+  utl_smtp.write_data(connection, header);
+  --
+  -- The crlf is required to distinguish that what comes next is not simply part of the header..
-BEGIN
+  --
+  utl_smtp.write_data(connection, crlf ||message);
+  utl_smtp.close_data(connection);
+  utl_smtp.quit(connection);
+EXCEPTION
-SELECT SEQ_PV_ID.NEXTVAL INTO parPv_id FROM DUAL;
+  WHEN UTL_SMTP.INVALID_OPERATION THEN
+    dbms_output.put_line(' Invalid Operation in SMTP transaction.');
+  WHEN UTL_SMTP.TRANSIENT_ERROR THEN
+    dbms_output.put_line(' Temporary problems with sending email - try again later.');
+  WHEN UTL_SMTP.PERMANENT_ERROR THEN
+    dbms_output.put_line(' Errors in code for SMTP transaction.');
-        /* LOG ACTION */
+END RELEASE_MANAGER_MAILOUT;
+/
+--------------------------------------------------------
-        Log_Action ( parPv_id, 'new_version', 3764,
+--  DDL for Procedure REMOVE_COMPONENTS
-        			 'New package version: '|| parPv_id || '.' );
+--------------------------------------------------------
-        Split_Version ( parPv_id || '.', SSV_MM, SSV_NMM, SSV_EXT );
+  CREATE OR REPLACE PROCEDURE "REMOVE_COMPONENTS" ( nPvId IN RELEASE_COMPONENTS.PV_ID%TYPE ) IS
-     -- Clone Package Version Details --
-            INSERT INTO PACKAGE_VERSIONS ( pv_id, pkg_id, pkg_version, dlocked, created_stamp, creator_id, modified_stamp, modifier_id, V_MM, V_NMM, V_EXT,
-                                           src_path, pv_description, PV_OVERVIEW, LAST_PV_ID, owner_id, BUILD_TYPE, IS_BUILD_ENV_REQUIRED, bs_id, is_autobuildable, is_deployable )
-                SELECT parPv_id         AS pv_id,
-                       pv.pkg_id        AS pkg_id,
-                       parPv_id || '.'    AS pkg_version,
-                       'N'              AS dlocked,
-                       Ora_Sysdate      AS created_stamp,
-AS creator_id,
-                       Ora_Sysdatetime  AS modified_stamp,
+/* ---------------------------------------------------------------------------
-AS modifier_id,
-                       SSV_MM          AS V_MM,
-                       SSV_NMM         AS V_NMM,
-                       SSV_EXT          AS V_EXT,
-                       pv.src_path,
-                       pv.pv_description,
-                       pv.PV_OVERVIEW,
-	AS LAST_PV_ID,
-                       pv.owner_id,
-					   pv.BUILD_TYPE,
+    Version: 3.0.0
-					   pv.IS_BUILD_ENV_REQUIRED,
-					   pv.bs_id,
-					   pv.is_autobuildable,
-					   pv.IS_DEPLOYABLE
-                  FROM PACKAGE_VERSIONS pv
-                 WHERE pv.pv_id = 112982;
-Basic_Clone ( 112982, parPv_id, NULL, 3764, 22325, 0 );
+   --------------------------------------------------------------------------- */
+BEGIN
+	 --- Delete From RELEASE_COMPONENTS
+	 DELETE FROM RELEASE_COMPONENTS
+	 WHERE PV_ID = nPvId;
-END TEST_MARCO;
+END Remove_Components;
+/
 --------------------------------------------------------
---  DDL for Procedure LOG_ACTION_BULK
+--  DDL for Procedure REMOVE_DOCUMENT
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "LOG_ACTION_BULK" ( nPvIdList IN VARCHAR2,
+  CREATE OR REPLACE PROCEDURE "REMOVE_DOCUMENT" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
-										 	  enumActionTypeName IN ACTION_TYPE.NAME%TYPE,
+											  nDocId IN PACKAGE_DOCUMENTS.DOC_ID%TYPE,
-                                         	  nUserId IN ACTION_LOG.USER_ID%TYPE,
+                                              nUserId IN NUMBER ) IS
-										 	  sAdditionalComments IN ACTION_LOG.DESCRIPTION%TYPE DEFAULT NULL  ) IS
 /* ---------------------------------------------------------------------------
     Version: 3.0
    --------------------------------------------------------------------------- */
-    ActionTypeId NUMBER;
-    oPvIdCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
+   DocNumber PACKAGE_DOCUMENTS.DOC_NUM%TYPE;
 BEGIN
+	-- Get Doc Num
-    oPvIdCollector := IN_LIST_NUMBER ( nPvIdList );
+    SELECT pd.DOC_NUM INTO DocNumber
+      FROM PACKAGE_DOCUMENTS pd
+     WHERE pd.PV_ID = nPvId
+       AND pd.DOC_ID = nDocId;
-    -- Get Action Type FK
-    SELECT act.ACTTYPE_ID INTO ActionTypeId
-      FROM ACTION_TYPE act
-     WHERE act.NAME = enumActionTypeName;
-    -- Log Action
+	-- Delete Document
-    INSERT INTO ACTION_LOG ( USER_ID, ACTION_DATETIME, PV_ID, DESCRIPTION, ACTTYPE_ID )
-    SELECT nUserId,
+    DELETE
-    	   ORA_SYSDATETIME,
+      FROM PACKAGE_DOCUMENTS pd
-           pv.PV_ID,
+     WHERE pd.PV_ID = nPvId
-           sAdditionalComments,
+       AND pd.DOC_ID = nDocId;
-           ActionTypeId
-      FROM PACKAGE_VERSIONS pv
-     WHERE pv.PV_ID IN ( SELECT * FROM TABLE ( CAST ( oPvIdCollector AS RELMGR_NUMBER_TAB_t ) ) );
+    /* LOG ACTION */
+   	Log_Action ( nPvId, 'document_remove', nUserId,
+   			     'Document number: '|| DocNumber );
-END Log_Action_Bulk;
+END Remove_Document;
+/
 --------------------------------------------------------
---  DDL for Procedure CLONED_PACKAGE_PROCESSES
+--  DDL for Procedure REMOVE_PACKAGE_INTEREST
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "CLONED_PACKAGE_PROCESSES"
+  CREATE OR REPLACE PROCEDURE "REMOVE_PACKAGE_INTEREST" (nProjId IN PROJECTS.PROJ_ID%TYPE,
+	   	  		  								  	nPkgId IN PACKAGES.PKG_ID%TYPE,
+												  	nUserId IN NUMBER
-IS
+	   	  		  									) IS
-proc_id NUMBER;
 /******************************************************************************
-   NAME:       DELETE_DO_NOT_RIPPLE
+   NAME:       REMOVE_PACKAGE_INTEREST
-   PURPOSE:    TO DELETE ENTRIES FROM THE DO_NOT_RIPPLE TABLE WHEN A PACKAGE
+   PURPOSE:    To remove interest in a given package per project
-               IS RELEASED
    REVISIONS:
    Ver        Date        Author           Description
    ---------  ----------  ---------------  ------------------------------------
-.0        21/04/2006  Rupesh Solanki     1. Created this procedure.
+.0        12/05/2006  Rupesh Solanki      1. Created this procedure.
    NOTES:
    Automatically available Auto Replace Keywords:
-      Object Name:     DELETE_DO_NOT_RIPPLE
+      Object Name:     REMOVE_PACKAGE_INTEREST
-      Sysdate:         21/04/2006
+      Sysdate:         12/05/2006
-      Date and Time:   21/04/2006, 3:21:55 PM, and 21/04/2006 3:21:55 PM
+      Date and Time:   12/05/2006, 11:28:50 AM, and 12/05/2006 11:28:50 AM
       Username:         (set in TOAD Options, Procedure Editor)
       Table Name:       (set in the "New PL/SQL Object" dialog)
 ******************************************************************************/
-   CURSOR ripple_cur
-   IS
-      select distinct proc_id, prod_id from deployment_manager.processes_config;
-   ripple_rec   ripple_cur%ROWTYPE;
 BEGIN
-   OPEN ripple_cur;
-   FETCH ripple_cur
-    INTO ripple_rec;
-   WHILE ripple_cur%FOUND
-   LOOP
-insert into package_processes (PROC_ID, PV_ID)
-values( ripple_rec.proc_id, ripple_rec.prod_id);
+	 --Delete from PACKAGE_INTEREST
-      FETCH ripple_cur
+	 DELETE FROM PACKAGE_INTEREST
-       INTO ripple_rec;
+	 WHERE PROJ_ID = nProjId
-   END LOOP;
+	 AND PKG_ID = nPkgId
+	 AND USER_ID = nUserId;
-END CLONED_PACKAGE_PROCESSES;
+END REMOVE_PACKAGE_INTEREST;
+/
 --------------------------------------------------------
---  DDL for Procedure SEED_PACKAGE_NAMES_VERSIONS2
+--  DDL for Procedure REMOVE_PATCH
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "SEED_PACKAGE_NAMES_VERSIONS2" ( SSpkg_name IN PACKAGES.pkg_name%TYPE,
+  CREATE OR REPLACE PROCEDURE "REMOVE_PATCH" ( nPatchId IN PACKAGE_PATCHES.PATCH_ID%TYPE,
-                                                          SSpkg_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
+										   nPvId IN PACKAGE_PATCHES.PV_ID%TYPE,
-                                                          NNuser_id IN NUMBER,
+                                           nUserId IN NUMBER ) IS
-                                                          retPV_ID OUT NUMBER,
-														  nCloneFromPvId IN NUMBER DEFAULT NULL ) IS
 /* ---------------------------------------------------------------------------
     Version: 4.0
    --------------------------------------------------------------------------- */
-    parPkg_id   NUMBER;
-    parPv_id    NUMBER;
-    cloneFrom_pv_id NUMBER;
-    SSV_MM PACKAGE_VERSIONS.V_MM%TYPE;
-    SSV_NMM PACKAGE_VERSIONS.V_NMM%TYPE;
-    SSV_EXT PACKAGE_VERSIONS.V_EXT%TYPE;
+PatchVersion PACKAGE_VERSIONS.PKG_VERSION%TYPE;
-    CURSOR packages_cur IS
-        SELECT pkg_id FROM PACKAGES
-        WHERE pkg_name = SSpkg_name;
-    packages_rec packages_cur%ROWTYPE;
-    CURSOR package_versions_cur IS
-        SELECT pv_id FROM PACKAGE_VERSIONS
-        WHERE pkg_id = parPkg_id
-        AND pkg_version = SSpkg_version;
-    package_versions_rec package_versions_cur%ROWTYPE;
-    CURSOR clone_package_versions_cur IS
+CURSOR curPatch IS
+	SELECT pp.PV_ID,
+		   pp.PATCH_ID,
-        SELECT MAX(pv_id) AS pv_id
+	       ROWNUM AS NEW_INSTALL_ORDER
-          FROM PACKAGE_VERSIONS
+	  FROM PACKAGE_PATCHES pp
-         WHERE pkg_id = parPkg_id
+	 WHERE pp.PV_ID = nPvId
-           AND NVL(v_ext,'LINK_A_NULL') = NVL(SSV_EXT,'LINK_A_NULL');
+	ORDER BY pp.INSTALL_ORDER;
-    clone_package_versions_rec clone_package_versions_cur%ROWTYPE;
+recPatch curPatch%ROWTYPE;
 BEGIN
-    /* -------------------------------------------- */
-    /* Find if pkg_name exists and seed if required */
-    /* -------------------------------------------- */
-    OPEN packages_cur;
-    FETCH packages_cur INTO packages_rec;
-    IF packages_cur%NOTFOUND
-    THEN
-        /* INSERT into packages table */
-        SELECT SEQ_PKG_ID.NEXTVAL INTO parPkg_id FROM DUAL;
-        INSERT INTO PACKAGES ( pkg_id, pkg_name ) VALUES ( parPkg_id, SSpkg_name );
-    ELSE
-        parPkg_id := packages_rec.pkg_id;
-    END IF;
-    CLOSE packages_cur;
-    /* ---------------------------------------------------- */
+	 -- Delete Patch
-    /* Find if package_version exists and seed if required  */
+     DELETE
-    /* ---------------------------------------------------- */
+       FROM PACKAGE_PATCHES pp
-    OPEN package_versions_cur;
+      WHERE pp.PV_ID = nPvId
-    FETCH package_versions_cur INTO package_versions_rec;
+        AND pp.PATCH_ID = nPatchId;
-    IF package_versions_cur%NOTFOUND
-    THEN
-        SELECT SEQ_PV_ID.NEXTVAL INTO parPv_id FROM DUAL;
-        /* LOG ACTION */
+	-- Redo Install Order
-        Log_Action ( parPv_id, 'new_version', NNuser_id,
+    OPEN curPatch;
-        			 'New package version: '|| SSpkg_version );
+	FETCH curPatch INTO recPatch;
-        Split_Version ( SSpkg_version, SSV_MM, SSV_NMM, SSV_EXT );
+	WHILE curPatch%FOUND
+	LOOP
+		UPDATE PACKAGE_PATCHES pp SET
+			pp.INSTALL_ORDER = recPatch.NEW_INSTALL_ORDER
+		WHERE pp.PV_ID = nPvId
+		  AND pp.PATCH_ID = recPatch.PATCH_ID;
+		FETCH curPatch INTO recPatch;
+	END LOOP;
+	CLOSE curPatch;
-            /* CLONE details from similar version  OR  from nCloneFromPvId */
-			IF ( NOT nCloneFromPvId IS NULL) THEN
-            	cloneFrom_pv_id := nCloneFromPvId;
-			ELSE
-				cloneFrom_pv_id := clone_package_versions_rec.pv_id;
-			END IF;
-            -- Clone Package Version Details --
-            INSERT INTO PACKAGE_VERSIONS ( pv_id, pkg_id, pkg_version, dlocked, created_stamp, creator_id, modified_stamp, modifier_id, V_MM, V_NMM, V_EXT,
-                                           src_path, pv_description, PV_OVERVIEW, LAST_PV_ID, owner_id, BUILD_TYPE, IS_BUILD_ENV_REQUIRED, bs_id, is_autobuildable, is_deployable, ripple_field )
-                SELECT parPv_id         AS pv_id,
-                       parPkg_id        AS pkg_id,
-                       SSpkg_version    AS pkg_version,
-                       'N'              AS dlocked,
-                       Ora_Sysdate      AS created_stamp,
-                       NNuser_id        AS creator_id,
-                       Ora_Sysdatetime  AS modified_stamp,
-                       NNuser_id        AS modifier_id,
-                       SSV_MM           AS V_MM,
-                       SSV_NMM          AS V_NMM,
-                       SSV_EXT          AS V_EXT,
-                       pv.src_path,
-                       pv.pv_description,
-                       pv.PV_OVERVIEW,
-                       cloneFrom_pv_id 	AS LAST_PV_ID,
-                       pv.owner_id,
-					   pv.BUILD_TYPE,
-					   pv.IS_BUILD_ENV_REQUIRED,
-					   pv.bs_id,
-					   pv.is_autobuildable,
-					   pv.IS_DEPLOYABLE,
-					   pv.ripple_field
-                  FROM PACKAGE_VERSIONS pv
-                 WHERE pv.pv_id = cloneFrom_pv_id;
+    /* LOG ACTION */
-            Basic_Clone ( cloneFrom_pv_id, parPv_id, NULL, NNuser_id, parPkg_id, 0 );
+    SELECT pv.PKG_VERSION INTO PatchVersion
+      FROM PACKAGE_VERSIONS pv
+     WHERE pv.PV_ID = nPatchId;
+   	Log_Action ( nPvId, 'patch_remove', nUserId,
-        retPV_ID := parPv_id;
+   			     'Version: '|| PatchVersion );
-    ELSE
+END Remove_Patch;
+/
+--------------------------------------------------------
-        retPV_ID := package_versions_rec.pv_id;
+--  DDL for Procedure REMOVE_PROJECT_VIEW_OWNER
+--------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "REMOVE_PROJECT_VIEW_OWNER" (nProjId IN NUMBER,
+	   	  		  						 			  nViewId IN NUMBER,
+										 			  sUserIdList IN VARCHAR2,
-    END IF;
+										 			  nUserId IN NUMBER ) IS
-    CLOSE package_versions_cur;
+GroupId NUMBER;
+/******************************************************************************
+   NAME:       UPDATE_VIEW
+   PURPOSE:
+   REVISIONS:
+   Ver        Date        Author           		Description
+   ---------  ----------  ---------------  ------------------------------------
+.0        10/04/2006     Rupesh Solanki     1. Created this procedure.
+   NOTES:
+   Automatically available Auto Replace Keywords:
-END Seed_Package_Names_Versions2;
+      Object Name:     UPDATE_VIEW
-/
+      Sysdate:         10/04/2006
---------------------------------------------------------
+      Date and Time:   10/04/2006, 1:55:19 PM, and 10/04/2006 1:55:19 PM
---  DDL for Procedure BUILD_TREE
+      Username:         (set in TOAD Options, Procedure Editor)
---------------------------------------------------------
+      Table Name:       (set in the "New PL/SQL Object" dialog)
-  CREATE OR REPLACE PROCEDURE "BUILD_TREE" ( nRtag_id IN NUMBER,
+******************************************************************************/
-	   	  		  					     retSessionNum OUT NUMBER ) IS
-/* ---------------------------------------------------------------------------
-    Version: 3.0.0
-   --------------------------------------------------------------------------- */
-    rowCnt 			NUMBER := 0;						-- Iterations counter
-    iteration 		NUMBER := 1;                  -- Maximum number of iterations allowed.
-    maxIterations 	NUMBER := 50;      	  	-- This will prevent infinite loops if cyrcular dependencies are found
-	UP_THE_TREE 	CONSTANT NUMBER DEFAULT 1;
-	DOWN_THE_TREE 	CONSTANT NUMBER DEFAULT -1;
-    sessionNum 		NUMBER;
-	levelNum		NUMBER;
 BEGIN
-    SELECT SEQ_session_num.nextval INTO sessionNum FROM DUAL;
-	/*
-	||	   Start UP THE TREE
-	*/
-	/* Packages with no dependencies */
-    INSERT INTO TEMP_TREE_BROWSE (SESSION_NUM, LEVEL_NUM, DIRECTION, PV_ID, PKG_ID, V_EXT )
-		SELECT sessionNum AS SESSION_NUM,
-			   iteration AS LEVEL_NUM,
-			   UP_THE_TREE AS DIRECTION,
-			   rc.pv_id, pv.pkg_id, pv.v_ext
-		  FROM release_content rc,
-		  	   package_versions pv
-		 WHERE rc.rtag_id = nRtag_id
-		   AND rc.pv_id = pv.pv_id
-		 MINUS
-		SELECT sessionNum AS SESSION_NUM,
-			   iteration AS LEVEL_NUM,
-			   UP_THE_TREE AS DIRECTION,
-			   dep.pv_id, pv.pkg_id, pv.v_ext
-		  FROM package_dependencies dep,
-		  	   package_versions pv
-		 WHERE dep.pv_id IN ( SELECT pv_id FROM release_content WHERE rtag_id = nRtag_id )
-		   AND dep.pv_id = pv.pv_id;
-	/* Browse UP the build tree */
-	iteration := iteration + 1;
-    LOOP
-		INSERT INTO TEMP_TREE_BROWSE (SESSION_NUM, LEVEL_NUM, DIRECTION, PV_ID, PKG_ID, V_EXT )
-			SELECT DISTINCT
-			       sessionNum AS SESSION_NUM,
-			       iteration AS LEVEL_NUM,
-				   UP_THE_TREE AS DIRECTION,
-				   rdep.pv_id, rdep.pkg_id, rdep.v_ext
-			  FROM (
-			        SELECT dep.pv_id, pv.pkg_id, pv.v_ext, dep.dpv_id, dpv.pkg_id AS dpkg_id, dpv.v_ext AS dv_ext
-			          FROM package_dependencies dep,
-			               release_content rc,
-						   package_versions pv,
-						   package_versions dpv
-			         WHERE dep.pv_id = rc.pv_id
-			           AND rc.rtag_id = nRtag_id
-					   AND dep.pv_id = pv.pv_id
-					   AND dep.dpv_id = dpv.pv_id
-					) rdep,
-					temp_tree_browse ttb
-			 WHERE rdep.dpkg_id  = ttb.pkg_id
-			   AND NVL(rdep.dv_ext ,'|LINK_A_NULL|') = NVL(ttb.v_ext,'|LINK_A_NULL|')
-			   AND ttb.SESSION_NUM = sessionNum
-			   AND ttb.LEVEL_NUM = iteration - 1
-			MINUS
-			/* Packages with all depencencies NOT matched */
-			SELECT DISTINCT
-			       sessionNum AS SESSION_NUM,
-			       iteration AS LEVEL_NUM,
-				   UP_THE_TREE AS DIRECTION,
-				   rdep.pv_id, rdep.pkg_id, rdep.v_ext
-			  FROM (
-			        SELECT dep.pv_id, pv.pkg_id, pv.v_ext, dep.dpv_id, dpv.pkg_id AS dpkg_id, dpv.v_ext AS dv_ext
-			          FROM package_dependencies dep,
-			               release_content rc,
-						   package_versions pv,
-						   package_versions dpv
-			         WHERE dep.pv_id = rc.pv_id
-			           AND rc.rtag_id = nRtag_id
-					   AND dep.pv_id = pv.pv_id
-					   AND dep.dpv_id = dpv.pv_id
-					) rdep,
-					(
-					 SELECT tb.*
-					   FROM temp_tree_browse tb
-					  WHERE tb.SESSION_NUM = sessionNum
-					) ttb
-			 WHERE rdep.dpkg_id  = ttb.pkg_id (+)
-			   AND NVL(rdep.dv_ext ,'|LINK_A_NULL|') = NVL(ttb.v_ext (+),'|LINK_A_NULL|')
-			   AND ttb.SESSION_NUM IS NULL;
-		rowCnt := SQL%ROWCOUNT;
-		IF rowCnt > 0 THEN
-           iteration := iteration + 1;
-		END IF;
-        EXIT WHEN (rowCnt < 1) OR (iteration > maxIterations);
-    END LOOP;
-	/*---------------------------------------------------------------------------------------------------------------------*/
-	/*     Check for unresolved dependencies
-	||
-	*/
-	/* UNRESOLVED */
-	 SELECT COUNT(*) INTO rowCnt
+	 SELECT GROUP_EMAIL_ID into GroupId
-	   FROM (
-			 SELECT pv.pv_id, pv.pkg_id, pv.v_ext
-			  FROM release_content rc,
-			  	   package_versions pv
-			 WHERE rc.rtag_id = nRtag_id
-			   AND rc.pv_id = pv.pv_id
-			MINUS
-			SELECT ttb.pv_id, ttb.pkg_id, ttb.v_ext
-			  FROM temp_tree_browse ttb
+	 FROM AUTOBUILD_FAILURE
-			 WHERE ttb.session_num = sessionNum
-			);
-	 IF rowCnt > 0
-	 THEN
-	 	 /*     Circular dependencies detected.
-		 ||     Try to resolve build order from the top now.
-		 ||		Start DOWN THE TREE
-		 */
-		iteration := 0;
-		 /* Top Level packages */
-		INSERT INTO TEMP_TREE_BROWSE (SESSION_NUM, LEVEL_NUM, DIRECTION, PV_ID, PKG_ID, V_EXT )
-			SELECT sessionNum AS SESSION_NUM,
-			       iteration AS LEVEL_NUM,
-				   DOWN_THE_TREE AS DIRECTION,
-				   pv.pv_id, pv.pkg_id, pv.v_ext
-			  FROM (
-					/* Packages no one depends on ( Top level packages )*/
-					(
-					/* All parents*/
-					SELECT pv.pkg_id, pv.v_ext
-			          FROM package_dependencies dep,
-			               release_content rc,
-						   package_versions pv
-			         WHERE dep.pv_id = rc.pv_id
-			           AND rc.rtag_id = nRtag_id
-					   AND dep.pv_id = pv.pv_id
-					 MINUS
-					 /* All children */
-					SELECT dpv.pkg_id, dpv.v_ext
-			          FROM package_dependencies dep,
-			               release_content rc,
-						   package_versions dpv
-			         WHERE dep.pv_id = rc.pv_id
-			           AND rc.rtag_id = nRtag_id
-					   AND dep.dpv_id = dpv.pv_id
-					 )
-					 MINUS
-					/* Packages with resolved dependencies from UP THE TREE */
-					SELECT ttb.pkg_id, ttb.v_ext
-					  FROM temp_tree_browse ttb
-					 WHERE ttb.session_num = sessionNum
-				  ) tpkg,
-				  package_versions pv,
-				  release_content rc
-			WHERE rc.rtag_id = nRtag_id
+	 WHERE PROJ_ID = nProjId
-			  AND rc.pv_id = pv.pv_id
+	 AND VIEW_ID = nViewId;
-			  AND tpkg.pkg_id = pv.pkg_id
-			  AND NVL(tpkg.v_ext,'|LINK_A_NULL|') = NVL(pv.v_ext,'|LINK_A_NULL|');
-		 /* Keep taking packages which no one depende on */
-		 iteration := iteration - 1;
-		 LOOP
-			   INSERT INTO TEMP_TREE_BROWSE (SESSION_NUM, LEVEL_NUM, DIRECTION, PV_ID, PKG_ID, V_EXT )
-					SELECT sessionNum AS SESSION_NUM,
-					       iteration AS LEVEL_NUM,
-					       DOWN_THE_TREE AS DIRECTION,
-					       pv.pv_id, pv.pkg_id, pv.v_ext
-					  FROM (
-					 	/* All Unresolved */
-					 	(
-					 	SELECT pv.pkg_id, pv.v_ext
-					 	  FROM release_content rc,
-					 	  	   package_versions pv
-					 	 WHERE rc.rtag_id = nRtag_id
-					 	   AND rc.pv_id = pv.pv_id
-					 	MINUS
-					 	SELECT ttb.pkg_id, ttb.v_ext
-					 	  FROM temp_tree_browse ttb
-					 	 WHERE ttb.session_num = sessionNum
-					 	)
-					 	 MINUS
-					 	(
-					 	 /* Children of Unresolved */
-					 	SELECT dpv.pkg_id, dpv.V_EXT
-					 	  FROM (
-					 			SELECT pv.pv_id, pv.pkg_id, pv.v_ext
-					 			  FROM release_content rc,
-					 			  	   package_versions pv
-					 			 WHERE rc.rtag_id = nRtag_id
-					 			   AND rc.pv_id = pv.pv_id
-					 			MINUS
-					 			SELECT ttb.pv_id, ttb.pkg_id, ttb.v_ext
-					 			  FROM temp_tree_browse ttb
-					 			 WHERE ttb.session_num = sessionNum
-					 		   ) unr,
-					 		   package_dependencies dep,
-					 		   package_versions dpv
-					 	 WHERE unr.pv_id = dep.pv_id
-					 	   AND dep.dpv_id = dpv.pv_id
-					 	 )
-					   ) tpkg,
-					   package_versions pv,
-					   release_content rc
-					WHERE rc.rtag_id = nRtag_id
-					  AND rc.pv_id = pv.pv_id
-					  AND tpkg.pkg_id = pv.pkg_id
-					  AND NVL(tpkg.v_ext,'|LINK_A_NULL|') = NVL(pv.v_ext,'|LINK_A_NULL|');
-            rowCnt := SQL%ROWCOUNT;
-        	IF rowCnt > 0 THEN
-	           iteration := iteration - 1;
-			END IF;
-            EXIT WHEN (rowCnt < 1);
-     	END LOOP;
-	 END IF;
-	/*---------------------------------------------------------------------------------------------------------------------*/
-	/*
-	|| 	 Save results from temp table
-	*/
-	/* Clean up build_order table */
-	DELETE FROM BUILD_ORDER WHERE rtag_id = nRtag_id;
-	/* Save UP THE TREE */
-	INSERT INTO BUILD_ORDER ( RTAG_ID, STEP_NUM, PV_ID )
-		SELECT nRtag_id AS rtag_id,
+	 DELETE FROM MEMBERS_GROUP
-			   ttb.level_num AS step_num,
-			   ttb.PV_ID
-		  FROM temp_tree_browse ttb
-		 WHERE ttb.session_num = sessionNum
+	 WHERE GROUP_EMAIL_ID = GroupId
-		   AND ttb.direction = UP_THE_TREE;
-	/*Get last step_num */
+	 AND USER_ID IN (
-	SELECT MAX(ttb.level_num) + 1 INTO levelNum
-	FROM temp_tree_browse ttb WHERE ttb.session_num = sessionNum AND ttb.DIRECTION = UP_THE_TREE;
+	 SELECT * FROM THE ( SELECT CAST( IN_LIST_NUMBER( sUserIdList ) AS RELMGR_NUMBER_TAB_t ) FROM dual )
-	/* UNRESOLVED */
-	 SELECT COUNT(*) INTO rowCnt
-	   FROM (
-			 SELECT pv.pv_id, pv.pkg_id, pv.v_ext
-			  FROM release_content rc,
-			  	   package_versions pv
-			 WHERE rc.rtag_id = nRtag_id
-			   AND rc.pv_id = pv.pv_id
-			MINUS
-			SELECT ttb.pv_id, ttb.pkg_id, ttb.v_ext
-			  FROM temp_tree_browse ttb
-			 WHERE ttb.session_num = sessionNum
-			);
+	 );
-	IF rowCnt > 0
-	THEN
-		/* Save unresolved packages */
- 		INSERT INTO BUILD_ORDER ( RTAG_ID, STEP_NUM, PV_ID, UNRESOLVED )
-		    SELECT  nRtag_id AS rtag_id,
-				    levelNum AS step_num,
-				    upv.PV_ID,
-					'Y' AS UNRESOLVED
-			   FROM (
-					 SELECT pv.pv_id, pv.pkg_id, pv.v_ext
-					  FROM release_content rc,
-					  	   package_versions pv
-					 WHERE rc.rtag_id = nRtag_id
-					   AND rc.pv_id = pv.pv_id
-					MINUS
-					SELECT ttb.pv_id, ttb.pkg_id, ttb.v_ext
-					  FROM temp_tree_browse ttb
-					 WHERE ttb.session_num = sessionNum
-					) upv;
-	END IF;
-	/* Save DOWN THE TREE */
-	levelNum := 1000;
-	INSERT INTO BUILD_ORDER ( RTAG_ID, STEP_NUM, PV_ID )
-		SELECT nRtag_id AS rtag_id,
-			   levelNum + ttb.level_num  AS step_num,
-			   ttb.PV_ID
-		  FROM temp_tree_browse ttb
-		 WHERE ttb.session_num = sessionNum
-		   AND ttb.direction = DOWN_THE_TREE;
-	/*---------------------------------------------------------------------------------------------------------------------*/
-	/* Clean up temp table */
-	DELETE FROM TEMP_TREE_BROWSE WHERE session_num = sessionNum;
-	retSessionNum := sessionNum;
-END Build_Tree;
-/
---------------------------------------------------------
---  DDL for Procedure CLEAR_ADVISORY_RIPPLE
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "CLEAR_ADVISORY_RIPPLE" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
-	   	  		  							   nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE,
-											 nUserId IN NUMBER ) IS
-/* ---------------------------------------------------------------------------
-    Version: 4.0
-   --------------------------------------------------------------------------- */
-BEGIN
-    -- Clear Advisory Ripple Package
-    DELETE FROM ADVISORY_RIPPLE
-	WHERE PV_ID = nPvId
-	AND RTAG_ID = nRtagId;
-    /* LOG ACTION */
-   	Log_Action ( nPvId, 'clear_advisory_ripple', nUserId );
-	/*Rebuild_Environment(nRtagId);*/
-END Clear_Advisory_Ripple;
+END REMOVE_PROJECT_VIEW_OWNER;
+/
 --------------------------------------------------------
 --  DDL for Procedure REMOVE_RELEASE_CONTENT
 --------------------------------------------------------
 END Remove_Release_Content;
+/
 --------------------------------------------------------
---  DDL for Procedure UPDATE_PACKAGE_DEPENDENCY
+--  DDL for Procedure REMOVE_RUNTIME
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "UPDATE_PACKAGE_DEPENDENCY" ( NNpv_id IN NUMBER,
+  CREATE OR REPLACE PROCEDURE "REMOVE_RUNTIME" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
-                                                        SSdep_name IN PACKAGES.pkg_name%TYPE,
-                                                        SSdep_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
-                                                        CCbuild_type IN PACKAGE_DEPENDENCIES.build_type%TYPE,
+											 nRuntimeId IN RUNTIME_DEPENDENCIES.RTD_ID%TYPE,
-                                                        NNuser_id IN NUMBER,
-                                                        NNdelete_old_dependency IN NUMBER
-                                                       ) IS
+                                             nUserId IN NUMBER ) IS
 /* ---------------------------------------------------------------------------
-    Version: 3.3
+    Version: 3.0
    --------------------------------------------------------------------------- */
-    retPV_ID NUMBER;
-    SSV_EXT PACKAGE_VERSIONS.v_ext%TYPE;
+   RuntimeDependency VARCHAR2(4000);
-	DepIsPatch	PACKAGE_VERSIONS.is_patch%TYPE;
-    PvIsPatch	PACKAGE_VERSIONS.is_patch%TYPE;
-    NNpkg_id NUMBER;
-    NNdpkg_id NUMBER;
 BEGIN
-    --- Seed database with package_name and version if required ---
-    Seed_Package_Names_Versions ( SSdep_name, SSdep_version, NNuser_id, retPV_ID );
-    -- get v_ext,pkg_id of current dependency
-    SELECT v_ext, pkg_id, is_patch INTO SSV_EXT, NNdpkg_id, DepIsPatch
-      FROM PACKAGE_VERSIONS
-     WHERE pv_id = retPV_ID;
-    -- get pkg_id of parent package
-    SELECT pkg_id, is_patch INTO NNpkg_id, PvIsPatch
-      FROM PACKAGE_VERSIONS
-     WHERE pv_id = NNpv_id;
+	-- Get Runtime dependency
-	IF ( (PvIsPatch IS NULL) AND (DepIsPatch IS NULL) ) OR
+    SELECT pkg.PKG_NAME ||' '|| pv.PKG_VERSION  INTO RuntimeDependency
+	  FROM RUNTIME_DEPENDENCIES rtd,
+	  	   PACKAGES pkg,
+	       PACKAGE_VERSIONS pv
+	 WHERE rtd.PV_ID = nPvId
-    	( (PvIsPatch IS NOT NULL) )THEN
+	   AND pv.PKG_ID = pkg.PKG_ID
-	    IF NNdelete_old_dependency = 1 THEN
+	   AND rtd.RTD_ID = pv.PV_ID
-	        /* Used for CUSTOM dependency add/edit */
+	   AND rtd.RTD_ID = nRuntimeId;
-	        --- Remove old dependency ---
-            IF (PvIsPatch IS NULL) THEN
-            	-- Do it for Packages
-		        DELETE FROM PACKAGE_DEPENDENCIES
-		         WHERE ( pv_id, dpv_id, pkg_id, dpkg_id, build_type, display_order ) IN
-		            (
-		            SELECT dep.*
-		              FROM PACKAGE_DEPENDENCIES dep,
-		                   PACKAGE_VERSIONS dpv,
-		                   PACKAGE_VERSIONS pv
-		             WHERE dep.dpv_id = dpv.pv_id
-		               AND dep.pv_id = NNpv_id
-		               AND pv.pv_id = retPV_ID
-		               AND dpv.pkg_id = pv.pkg_id
-		               AND NVL(dpv.v_ext, '|LINK_A_NULL|') = NVL(SSV_EXT, '|LINK_A_NULL|')
-		            );
-            ELSE
-            	-- Do it for Patches
-                DELETE FROM PACKAGE_DEPENDENCIES
-		         WHERE ( pv_id, dpv_id, pkg_id, dpkg_id, build_type, display_order ) IN
-		            (
-		            SELECT dep.*
-		              FROM PACKAGE_DEPENDENCIES dep
-		             WHERE dep.dpv_id = retPV_ID
-		               AND dep.pv_id = NNpv_id
-		            );
-			END IF;
+	-- Delete Document
-	    END IF;
+    DELETE
+      FROM RUNTIME_DEPENDENCIES rtd
+     WHERE rtd.PV_ID = nPvId
+       AND rtd.RTD_ID = nRuntimeId;
-	    /* NOTE: for JATS, ANTS dependency update, it is expected that all dependencies are removed. */
-	    --- Add new dependency ---
+    /* LOG ACTION */
-	    INSERT INTO PACKAGE_DEPENDENCIES ( pv_id, dpv_id, pkg_id, dpkg_id, build_type )
+   	Log_Action ( nPvId, 'runtime_remove', nUserId,
-	    VALUES ( NNpv_id, retPV_ID, NNpkg_id, NNdpkg_id, CCbuild_type );
+   			     'Runtime package: '|| RuntimeDependency );
-	END IF;
-END Update_Package_Dependency;
+END Remove_Runtime;
+/
 --------------------------------------------------------
---  DDL for Procedure LOG_ACTION
+--  DDL for Procedure RENAME_PACKAGE_VERSION
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "LOG_ACTION" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
+  CREATE OR REPLACE PROCEDURE "RENAME_PACKAGE_VERSION" ( NNpv_id IN NUMBER,
+                                                     SSpkg_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
-										 enumActionTypeName IN ACTION_TYPE.NAME%TYPE,
+													 cBuildType IN CHAR,
-                                         nUserId IN ACTION_LOG.USER_ID%TYPE,
+                                                     NNuser_id IN NUMBER,
-										 sAdditionalComments IN ACTION_LOG.DESCRIPTION%TYPE DEFAULT NULL  ) IS
+                                                     errMessage OUT VARCHAR2 ) IS
 /* ---------------------------------------------------------------------------
-    Version: 3.0
+    Version: 3.2
    --------------------------------------------------------------------------- */
+    sPackageVersion VARCHAR2(4000);
+	sLabel VARCHAR2(4000) := NULL;
+    OldPkgVersion PACKAGE_VERSIONS.PKG_VERSION%TYPE;
+    SSV_MM PACKAGE_VERSIONS.V_MM%TYPE;
+    SSV_NMM PACKAGE_VERSIONS.V_NMM%TYPE;
+    SSV_EXT PACKAGE_VERSIONS.V_EXT%TYPE;
+    CURSOR package_versions_cur IS
-    ActionTypeId NUMBER;
+        SELECT pv_id
+     	  FROM package_versions
+     	 WHERE pkg_id IN ( SELECT pkg_id FROM package_versions WHERE pv_id = NNpv_id )
+     	   AND pkg_version = SSpkg_version;
+    package_versions_rec package_versions_cur%ROWTYPE;
 BEGIN
-    -- Get Action Type FK
+    /* ---------------------------------------------------- */
-    SELECT act.ACTTYPE_ID INTO ActionTypeId
+    /* Find if package_version exists                       */
-      FROM ACTION_TYPE act
-     WHERE act.NAME = enumActionTypeName;
+    /* ---------------------------------------------------- */
+	errMessage := NULL;
+	-- Get previous version
-    INSERT INTO ACTION_LOG ( USER_ID, ACTION_DATETIME, PV_ID, DESCRIPTION, ACTTYPE_ID )
+	SELECT pv.PKG_VERSION INTO OldPkgVersion
-    VALUES ( nUserId, ORA_SYSDATETIME, nPvId, sAdditionalComments, ActionTypeId );
+      FROM PACKAGE_VERSIONS pv
+     WHERE pv.PV_ID = NNpv_id;
-END Log_Action;
-/
---------------------------------------------------------
---  DDL for Procedure REMOVE_PATCH
+	sPackageVersion := SSpkg_version;
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "REMOVE_PATCH" ( nPatchId IN PACKAGE_PATCHES.PATCH_ID%TYPE,
-										   nPvId IN PACKAGE_PATCHES.PV_ID%TYPE,
-                                           nUserId IN NUMBER ) IS
-/* ---------------------------------------------------------------------------
-    Version: 4.0
-   --------------------------------------------------------------------------- */
-PatchVersion PACKAGE_VERSIONS.PKG_VERSION%TYPE;
+	IF OldPkgVersion != sPackageVersion THEN
-CURSOR curPatch IS
-	SELECT pp.PV_ID,
-		   pp.PATCH_ID,
-	       ROWNUM AS NEW_INSTALL_ORDER
+	    OPEN package_versions_cur;
-	  FROM PACKAGE_PATCHES pp
+	    FETCH package_versions_cur INTO package_versions_rec;
-	 WHERE pp.PV_ID = nPvId
-	ORDER BY pp.INSTALL_ORDER;
-recPatch curPatch%ROWTYPE;
+	    IF package_versions_cur%NOTFOUND
-BEGIN
+	    THEN
-	 -- Delete Patch
+			-- Split current version in parts
-     DELETE
-       FROM PACKAGE_PATCHES pp
-      WHERE pp.PV_ID = nPvId
-        AND pp.PATCH_ID = nPatchId;
+	    	Split_Version ( SSpkg_version, SSV_MM, SSV_NMM, SSV_EXT );
-	-- Redo Install Order
+		    -- Automated built config
-    OPEN curPatch;
+			IF (cBuildType = 'A') THEN
+				sPackageVersion := '('|| NNpv_id ||')'|| SSV_EXT;	-- Make sure that version is still unique
-	FETCH curPatch INTO recPatch;
+			END IF;
-	WHILE curPatch%FOUND
-	LOOP
+	        -- Packge version not found, hence rename it.
+	        UPDATE package_versions
+	           SET pkg_version = sPackageVersion,
+	               v_mm = SSV_MM,
+	               v_nmm = SSV_NMM,
-		UPDATE PACKAGE_PATCHES pp SET
+	               v_ext = SSV_EXT,
-			pp.INSTALL_ORDER = recPatch.NEW_INSTALL_ORDER
+	               modified_stamp = ORA_SYSDATETIME,
+	               modifier_id = NNuser_id,
+				   build_type = cBuildType,
-		WHERE pp.PV_ID = nPvId
+				   pkg_label = NULL
-		  AND pp.PATCH_ID = recPatch.PATCH_ID;
+	         WHERE pv_id = NNpv_id;
-		FETCH curPatch INTO recPatch;
-	END LOOP;
+			IF (cBuildType = 'A') THEN
+				sLabel := GET_AUTOMATED_LABEL( NNpv_id );
+				UPDATE PACKAGE_VERSIONS pv SET
+					pv.PKG_LABEL = sLabel
+		         WHERE pv_id = NNpv_id;
-	CLOSE curPatch;
+			END IF;
+			/* LOG ACTION */
+	      	Log_Action ( NNpv_id, 'rename', NNuser_id, 'From '|| OldPkgVersion ||' to '|| SSpkg_version );
+	    ELSE
+	        -- Package version exists. Cannot proceed.
+	        errMessage := 'enum_MSG_VERSION_EXISTS';
+	    END IF;
-    /* LOG ACTION */
-    SELECT pv.PKG_VERSION INTO PatchVersion
-      FROM PACKAGE_VERSIONS pv
-     WHERE pv.PV_ID = nPatchId;
+	    CLOSE package_versions_cur;
-   	Log_Action ( nPvId, 'patch_remove', nUserId,
-   			     'Version: '|| PatchVersion );
+	END IF;
-END Remove_Patch;
+END Rename_Package_Version;
+/
 --------------------------------------------------------
---  DDL for Procedure SET_PACKAGE_BUILD_ENV_TEMP
+--  DDL for Procedure RESET_IGNORE_WARNINGS
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "SET_PACKAGE_BUILD_ENV_TEMP" ( nPvId IN PACKAGE_BUILD_ENV.PV_ID%TYPE,
+  CREATE OR REPLACE PROCEDURE "RESET_IGNORE_WARNINGS" ( sPvIdList IN VARCHAR2,
-	   	  		  								  	   	 sBuildEnvIdList IN VARCHAR2,
-														 nBuildStandard IN PACKAGE_VERSIONS.BS_ID%TYPE
+                                                    nRTagId IN RELEASE_CONTENT.RTAG_ID%TYPE ) IS
-														 ) IS
 /* ---------------------------------------------------------------------------
-    Last Modified: Rupesh Solanki
-	Version: 3.0.1
+    Version: 5.0
    --------------------------------------------------------------------------- */
-   nBsCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
-   BsId NUMBER;
-   HackBsId NUMBER;
+oPvIdCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
 BEGIN
+	oPvIdCollector := IN_LIST_NUMBER ( sPvIdList );
-   nBsCollector := IN_LIST_NUMBER ( sBuildEnvIdList );
+    -- Remove Ignore Warnings
-   -- Delete Current Build Env settings
+     DELETE
-   DELETE FROM PACKAGE_BUILD_ENV
+       FROM ignore_warnings
-   WHERE pv_id = nPvId;
+	  WHERE (rtag_id, pv_id, dpv_id) IN
+	     (
-   -- Delet Current Package Build Info Settings
+	      SELECT igw.rtag_id, igw.pv_id, igw.dpv_id
-   DELETE FROM PACKAGE_BUILD_INFO
+	        FROM ignore_warnings igw,
-   WHERE pv_id = nPvId;
+	             package_versions dpv,
-   -- Reset flag to N
+	             package_versions pv
-   UPDATE PACKAGE_VERSIONS SET
+	       WHERE igw.dpv_id = dpv.pv_id
-	   IS_BUILD_ENV_REQUIRED = 'N'
+	         AND igw.rtag_id = nRTagId
+	         AND dpv.pkg_id = pv.pkg_id
+	         AND NVL(dpv.v_ext,'|LINK_A_NULL|') = NVL(pv.v_ext,'|LINK_A_NULL|')
+	         AND pv.pv_id IN ( SELECT * FROM TABLE ( CAST ( oPvIdCollector AS RELMGR_NUMBER_TAB_t ) ) )
-   WHERE PV_ID = nPvId;
+         );
+END Reset_Ignore_Warnings;
+/
+--------------------------------------------------------
+--  DDL for Procedure RIPPLE_PACKAGE
+--------------------------------------------------------
-   -- Set new Build Env
+  CREATE OR REPLACE PROCEDURE "RIPPLE_PACKAGE" (
-   IF NOT sBuildEnvIdList IS NULL THEN
+        sPvIdList IN VARCHAR2,
-	FOR i IN 1..nBsCollector.COUNT
+        nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE,
-	LOOP
-	BsId := nBsCollector(i);
-	IF nBuildStandard = 2 THEN
-	   IF BsId = 1 THEN
+        nUserId IN NUMBER
-	   	  HackBsId := 11;
-	   ELSE
+    ) IS
-	   	  HackBsId := 12;
-	   END IF;
-   	  -- Insert into PACKAGE_BUILD_ENV
-      INSERT INTO PACKAGE_BUILD_ENV ( PV_ID, BE_ID )
+/* ---------------------------------------------------------------------------
-	  SELECT nPvId AS PV_ID,
-	  		 be.BE_ID
+    Version: 4.1
-	    FROM BUILD_ENVIRONMENTS be
-	   WHERE be.BE_ID IN ( HackBsId );
-   	  -- Insert into PACKAGE_BUILD_INFO
-      INSERT INTO PACKAGE_BUILD_INFO ( PV_ID, BM_ID )
+   --------------------------------------------------------------------------- */
-	  SELECT nPvId AS PV_ID,
-	  		 be.BM_ID
-	    FROM BUILD_MACHINES be
-	   WHERE be.BM_ID IN ( BsId );
-	   -- Set flag to Y
-	   UPDATE PACKAGE_VERSIONS SET
-		   IS_BUILD_ENV_REQUIRED = 'Y'
-	   WHERE PV_ID = nPvId;
-	ELSE
+BEGIN
-   	  -- Insert into PACKAGE_BUILD_ENV
-      INSERT INTO PACKAGE_BUILD_ENV ( PV_ID, BE_ID )
-	  SELECT nPvId AS PV_ID,
-	  		 be.BE_ID
-	    FROM BUILD_ENVIRONMENTS be
-	   WHERE be.BE_ID IN ( BsId );
-   	  -- Insert into PACKAGE_BUILD_INFO
-      INSERT INTO PACKAGE_BUILD_INFO ( PV_ID, BM_ID )
-	  SELECT nPvId AS PV_ID,
-	  		 be.BM_ID
-	    FROM BUILD_MACHINES be
-	   WHERE be.BM_ID IN ( BsId );
-	   -- Set flag to Y
-	   UPDATE PACKAGE_VERSIONS SET
+    IF (sPvIdList IS NULL) THEN
-		   IS_BUILD_ENV_REQUIRED = 'Y'
+        RAISE_APPLICATION_ERROR (-20000, 'Please select at least one package.' );
-	   WHERE PV_ID = nPvId;
-	END IF;
+    END IF;
-	END LOOP;
+    -- Ripple Package
+    DELETE FROM DO_NOT_RIPPLE
+    WHERE RTAG_ID = nRtagId
+    AND PV_ID IN (
+        SELECT *
+        FROM THE (
+            SELECT CAST( IN_LIST_NUMBER( sPvIdList )
+            AS RELMGR_NUMBER_TAB_t )
+            FROM DUAL
+        )
-   END IF;
+    );
+    /* LOG ACTION */
+    Log_Action_Bulk ( sPvIdList, 'ripple_package', nUserId );
-END Set_Package_Build_Env_Temp;
+END Ripple_Package;
+/
 --------------------------------------------------------
---  DDL for Procedure UPDATE_RUNTIME_DEPENDENCY
+--  DDL for Procedure SEED_PACKAGE_NAMES_VERSIONS
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "UPDATE_RUNTIME_DEPENDENCY" ( NNpv_id IN RUNTIME_DEPENDENCIES.pv_id%TYPE,
+CREATE OR REPLACE PROCEDURE "SEED_PACKAGE_NAMES_VERSIONS" ( SSpkg_name IN PACKAGES.pkg_name%TYPE,
-				   	  		  						    NNrtd_id IN RUNTIME_DEPENDENCIES.rtd_id%TYPE,
+                                                          SSpkg_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
-				   	  		  						    SSrtd_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
+                                                          NNuser_id IN NUMBER,
-													    SSrtd_url IN RUNTIME_DEPENDENCIES.rtd_url%TYPE,
+                                                          retPV_ID OUT NUMBER,
+                                                          nCloneFromPvId IN NUMBER DEFAULT NULL,
-													    SSrtd_comments IN RUNTIME_DEPENDENCIES.rtd_comments%TYPE,
+                                                          nBuildType IN CHAR DEFAULT 'M',
-													    NNuser_id IN NUMBER ) IS
+                                                          nChangeType IN CHAR DEFAULT 'F') IS
 /* ---------------------------------------------------------------------------
-    Version: 3.0.1
+    Version: 4.0
    --------------------------------------------------------------------------- */
-    retRTD_ID	NUMBER;
+    parPkg_id   NUMBER;
-	CURSOR rtd_cur IS
+    parPv_id    NUMBER;
-	    SELECT pv.pkg_version, pkg.pkg_name
+    cloneFrom_pv_id NUMBER;
-		  FROM runtime_dependencies rtd,
+    SSV_MM PACKAGE_VERSIONS.V_MM%TYPE;
-		       package_versions pv,
+    SSV_NMM PACKAGE_VERSIONS.V_NMM%TYPE;
-			   packages pkg
+    SSV_EXT PACKAGE_VERSIONS.V_EXT%TYPE;
-		 WHERE rtd.rtd_id = pv.pv_id
+    spackageversion VARCHAR2 (4000);
-		   AND pv.pkg_id = pkg.pkg_id
+    CURSOR packages_cur IS
-		   AND rtd.pv_id = NNpv_id
+        SELECT pkg_id FROM PACKAGES
-		   AND rtd.rtd_id = NNrtd_id;
+        WHERE pkg_name = SSpkg_name;
-	   rtd_rec rtd_cur%ROWTYPE;
+    packages_rec packages_cur%ROWTYPE;
-	CURSOR old_rtd_cur IS
-	    SELECT pv.pv_id
-		  FROM package_versions pv
+    CURSOR package_versions_cur IS
-		 WHERE pv.pkg_id IN ( SELECT rtdpv.pkg_id
-		 	   			 	    FROM package_versions rtdpv
+        SELECT pv_id FROM PACKAGE_VERSIONS
-							   WHERE rtdpv.pv_id = NNrtd_id )
+        WHERE pkg_id = parPkg_id
-		   AND pv.pkg_version = SSrtd_version;
+        AND pkg_version = SSpkg_version;
-	old_rtd_rec old_rtd_cur%ROWTYPE;
+    package_versions_rec package_versions_cur%ROWTYPE;
+    CURSOR clone_package_versions_cur IS
+        SELECT MAX(pv_id) AS pv_id
+          FROM PACKAGE_VERSIONS
+         WHERE pkg_id = parPkg_id
+           AND NVL(v_ext,'LINK_A_NULL') = NVL(SSV_EXT,'LINK_A_NULL');
+    clone_package_versions_rec clone_package_versions_cur%ROWTYPE;
 BEGIN
+    /* -------------------------------------------- */
+    /* Find if pkg_name exists and seed if required */
+    /* -------------------------------------------- */
+    OPEN packages_cur;
+    FETCH packages_cur INTO packages_rec;
-    -- Get current runtime dependency details
+    IF packages_cur%NOTFOUND
-	OPEN rtd_cur;
+    THEN
-    FETCH rtd_cur INTO rtd_rec;
+        /* INSERT into packages table */
-	IF rtd_rec.pkg_version != SSrtd_version THEN
-           -- Version has changed, hence create new runtime dependency --
+        SELECT SEQ_PKG_ID.NEXTVAL INTO parPkg_id FROM DUAL;
-	    /* NOTE: You must create new version as updating just a version will affect
-		        all packages using this runtime dependency and user does not expect that.
+        INSERT INTO PACKAGES ( pkg_id, pkg_name ) VALUES ( parPkg_id, SSpkg_name );
-		        It is safer to create new version */
-		OPEN old_rtd_cur;
-		FETCH old_rtd_cur INTO old_rtd_rec;
+    ELSE
+        parPkg_id := packages_rec.pkg_id;
-		IF old_rtd_cur%NOTFOUND
-		THEN
+    END IF;
-			-- Version not found, hence Create New version --
-    		Seed_Package_Names_Versions ( rtd_rec.pkg_name, SSrtd_version, NNuser_id, retRTD_ID );
-			-- Update runtime dependency table --
-			UPDATE runtime_dependencies SET
-				   rtd_id = retRTD_ID,
-				   rtd_url = SSrtd_url,
-				   rtd_comments = SSrtd_comments
-			 WHERE pv_id = NNpv_id
+    CLOSE packages_cur;
-			   AND rtd_id = NNrtd_id;
-		ELSE
-			-- Update runtime dependency table --
-			UPDATE runtime_dependencies SET
-				   rtd_id = old_rtd_rec.pv_id,
-				   rtd_url = SSrtd_url,
-				   rtd_comments = SSrtd_comments
-			 WHERE pv_id = NNpv_id
-			   AND rtd_id = NNrtd_id;
+    /* ---------------------------------------------------- */
+    /* Find if package_version exists and seed if required  */
+    /* ---------------------------------------------------- */
-		END IF;
+    OPEN package_versions_cur;
+    FETCH package_versions_cur INTO package_versions_rec;
+    IF package_versions_cur%NOTFOUND
+    THEN
+        SELECT SEQ_PV_ID.NEXTVAL INTO parPv_id FROM DUAL;
+        /* Generate automated version Number */
+        Split_Version ( SSpkg_version, SSV_MM, SSV_NMM, SSV_EXT );
+        spackageversion := SSpkg_version;
+        IF ( nBuildType = 'A' )
+        THEN
+            spackageversion := '(' || parPv_id || ')' || SSV_EXT;
-		CLOSE old_rtd_cur;
+        END If;
+        /* LOG ACTION */
+        Log_Action ( parPv_id, 'new_version', NNuser_id,
+                     'New package version: '|| spackageversion );
-	ELSE
-		--  Version has not changed, hence update everithing except	version --
+        /* Find similar pkg_name + ext to clone from */
-		UPDATE runtime_dependencies SET
+        OPEN clone_package_versions_cur;
-			   rtd_url = SSrtd_url,
-			   rtd_comments = SSrtd_comments
+        FETCH clone_package_versions_cur INTO clone_package_versions_rec;
-		 WHERE pv_id = NNpv_id
-		   AND rtd_id = NNrtd_id;
+        IF NOT clone_package_versions_rec.pv_id IS NULL
+        THEN
+            /* CLONE details from similar version  OR  from nCloneFromPvId */
+            IF ( NOT nCloneFromPvId IS NULL) THEN
+                cloneFrom_pv_id := nCloneFromPvId;
+            ELSE
+                cloneFrom_pv_id := clone_package_versions_rec.pv_id;
+            END IF;
+            -- Clone Package Version Details --
+            INSERT INTO PACKAGE_VERSIONS ( pv_id, pkg_id, pkg_version, dlocked, created_stamp, creator_id, modified_stamp, modifier_id, V_MM, V_NMM, V_EXT,
+                                           src_path, pv_description, PV_OVERVIEW, LAST_PV_ID, owner_id, BUILD_TYPE, IS_BUILD_ENV_REQUIRED, bs_id, is_autobuildable, is_deployable, ripple_field,change_type  )
+                SELECT parPv_id         AS pv_id,
+                       parPkg_id        AS pkg_id,
+                       spackageversion  AS pkg_version,
+                       'N'              AS dlocked,
+                       Ora_Sysdate      AS created_stamp,
+                       NNuser_id        AS creator_id,
+                       Ora_Sysdatetime  AS modified_stamp,
+                       NNuser_id        AS modifier_id,
+                       SSV_MM           AS V_MM,
+                       SSV_NMM          AS V_NMM,
+                       SSV_EXT          AS V_EXT,
+                       pv.src_path,
+                       pv.pv_description,
+                       pv.PV_OVERVIEW,
+                       cloneFrom_pv_id  AS LAST_PV_ID,
+                       pv.owner_id,
+                       nBuildType       AS BUILD_TYPE,
+                       pv.IS_BUILD_ENV_REQUIRED,
-	END IF;
+                       pv.BS_ID,
+                       pv.is_autobuildable,
+                       pv.IS_DEPLOYABLE,
+                       pv.ripple_field,
+                       nChangeType       AS change_type
+                  FROM PACKAGE_VERSIONS pv
+                 WHERE pv.pv_id = cloneFrom_pv_id;
+            Basic_Clone ( cloneFrom_pv_id, parPv_id, NULL, NNuser_id, parPkg_id, 0 );
-	CLOSE rtd_cur;
+        ELSE
+            /* BRAND NEW version + ext */
+            INSERT INTO PACKAGE_VERSIONS ( pv_id, pkg_id, pkg_version, dlocked, created_stamp, creator_id, modified_stamp, modifier_id, V_MM, V_NMM, V_EXT, owner_id, LAST_PV_ID, BUILD_TYPE, ripple_field, change_type )
+            VALUES (
+                    parPv_id,
+                    parPkg_id,
+                    spackageversion,
+                    'N',
+                    Ora_Sysdate,
+                    NNuser_id,
+                    Ora_Sysdatetime,
+                    NNuser_id,
+                    SSV_MM,
+                    SSV_NMM,
+                    SSV_EXT,
+                    NNuser_id,
+                    parPv_id,
+                    nBuildType,
+                    'b',
+                    nChangeType
+                   );
-END Update_Runtime_Dependency;
-/
---------------------------------------------------------
---  DDL for Procedure SET_ADVISORY_RIPPLE
+        END IF;
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "SET_ADVISORY_RIPPLE" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
-	   	  		  							   nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE,
+        CLOSE clone_package_versions_cur;
-											 nUserId IN NUMBER ) IS
-/* ---------------------------------------------------------------------------
-    Version: 4.0
+        retPV_ID := parPv_id;
-   --------------------------------------------------------------------------- */
-BEGIN
+    ELSE
+        retPV_ID := package_versions_rec.pv_id;
-    -- Set Advisory Ripple Package
-    INSERT INTO ADVISORY_RIPPLE (RTAG_ID, PV_ID)
-	VALUES (nRtagId, nPvId);
+    END IF;
-    /* LOG ACTION */
-   	Log_Action ( nPvId, 'set_advisory_ripple', nUserId );
-	/*Rebuild_Environment(nRtagId);*/
+    CLOSE package_versions_cur;
-END Set_Advisory_Ripple;
+END Seed_Package_Names_Versions;
+/
 --------------------------------------------------------
---  DDL for Procedure SEED_PACKAGE_NAMES_VERSIONS
+--  DDL for Procedure SEED_PACKAGE_NAMES_VERSIONS2
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "SEED_PACKAGE_NAMES_VERSIONS" ( SSpkg_name IN PACKAGES.pkg_name%TYPE,
+  CREATE OR REPLACE PROCEDURE "SEED_PACKAGE_NAMES_VERSIONS2" ( SSpkg_name IN PACKAGES.pkg_name%TYPE,
                                                           SSpkg_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
                                                           NNuser_id IN NUMBER,
                                                           retPV_ID OUT NUMBER,
 														  nCloneFromPvId IN NUMBER DEFAULT NULL ) IS
 /* ---------------------------------------------------------------------------
         Log_Action ( parPv_id, 'new_version', NNuser_id,
         			 'New package version: '|| SSpkg_version );
         Split_Version ( SSpkg_version, SSV_MM, SSV_NMM, SSV_EXT );
-        /* Find similar pkg_name + ext to clone from */
-        OPEN clone_package_versions_cur;
-        FETCH clone_package_versions_cur INTO clone_package_versions_rec;
-        IF NOT clone_package_versions_rec.pv_id IS NULL
-        THEN
             /* CLONE details from similar version  OR  from nCloneFromPvId */
 			IF ( NOT nCloneFromPvId IS NULL) THEN
             	cloneFrom_pv_id := nCloneFromPvId;
 			ELSE
 				cloneFrom_pv_id := clone_package_versions_rec.pv_id;
 			END IF;
             -- Clone Package Version Details --
             INSERT INTO PACKAGE_VERSIONS ( pv_id, pkg_id, pkg_version, dlocked, created_stamp, creator_id, modified_stamp, modifier_id, V_MM, V_NMM, V_EXT,
-                                           src_path, pv_description, PV_OVERVIEW, LAST_PV_ID, owner_id, BUILD_TYPE, IS_BUILD_ENV_REQUIRED, bs_id, is_autobuildable, is_deployable, ripple_field  )
+                                           src_path, pv_description, PV_OVERVIEW, LAST_PV_ID, owner_id, BUILD_TYPE, IS_BUILD_ENV_REQUIRED, bs_id, is_autobuildable, is_deployable, ripple_field )
                 SELECT parPv_id         AS pv_id,
                        parPkg_id        AS pkg_id,
                        SSpkg_version    AS pkg_version,
                        'N'              AS dlocked,
                        Ora_Sysdate      AS created_stamp,
                        pv.PV_OVERVIEW,
                        cloneFrom_pv_id 	AS LAST_PV_ID,
                        pv.owner_id,
 					   pv.BUILD_TYPE,
 					   pv.IS_BUILD_ENV_REQUIRED,
-					   pv.BS_ID,
+					   pv.bs_id,
 					   pv.is_autobuildable,
 					   pv.IS_DEPLOYABLE,
 					   pv.ripple_field
                   FROM PACKAGE_VERSIONS pv
                  WHERE pv.pv_id = cloneFrom_pv_id;
             Basic_Clone ( cloneFrom_pv_id, parPv_id, NULL, NNuser_id, parPkg_id, 0 );
-        ELSE
-            /* BRAND NEW version + ext */
-            INSERT INTO PACKAGE_VERSIONS ( pv_id, pkg_id, pkg_version, dlocked, created_stamp, creator_id, modified_stamp, modifier_id, V_MM, V_NMM, V_EXT, owner_id, LAST_PV_ID, BUILD_TYPE, ripple_field )
-        	VALUES (
-                    parPv_id,
-                    parPkg_id,
-                    SSpkg_version,
-                    'N',
-                    Ora_Sysdate,
-                    NNuser_id,
-                    Ora_Sysdatetime,
-                    NNuser_id,
-                    SSV_MM,
-                    SSV_NMM,
-                    SSV_EXT,
-                    NNuser_id,
-                    parPv_id,
-					'M',
-					'b'
-                   );
-        END IF;
-        CLOSE clone_package_versions_cur;
         retPV_ID := parPv_id;
     ELSE
         retPV_ID := package_versions_rec.pv_id;
     CLOSE package_versions_cur;
-END Seed_Package_Names_Versions;
+END Seed_Package_Names_Versions2;
+/
 --------------------------------------------------------
---  DDL for Procedure RENAME_PACKAGE_VERSION
+--  DDL for Procedure SET_ADVISORY_RIPPLE
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "RENAME_PACKAGE_VERSION" ( NNpv_id IN NUMBER,
+  CREATE OR REPLACE PROCEDURE "SET_ADVISORY_RIPPLE" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
-                                                     SSpkg_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
+	   	  		  							   nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE,
-													 cBuildType IN CHAR,
+											 nUserId IN NUMBER ) IS
-                                                     NNuser_id IN NUMBER,
-                                                     errMessage OUT VARCHAR2 ) IS
 /* ---------------------------------------------------------------------------
-    Version: 3.2
+    Version: 4.0
    --------------------------------------------------------------------------- */
-    sPackageVersion VARCHAR2(4000);
-	sLabel VARCHAR2(4000) := NULL;
-    OldPkgVersion PACKAGE_VERSIONS.PKG_VERSION%TYPE;
-    SSV_MM PACKAGE_VERSIONS.V_MM%TYPE;
-    SSV_NMM PACKAGE_VERSIONS.V_NMM%TYPE;
-    SSV_EXT PACKAGE_VERSIONS.V_EXT%TYPE;
-    CURSOR package_versions_cur IS
-        SELECT pv_id
-     	  FROM package_versions
-     	 WHERE pkg_id IN ( SELECT pkg_id FROM package_versions WHERE pv_id = NNpv_id )
-     	   AND pkg_version = SSpkg_version;
-    package_versions_rec package_versions_cur%ROWTYPE;
 BEGIN
-    /* ---------------------------------------------------- */
+    -- Set Advisory Ripple Package
-    /* Find if package_version exists                       */
+    INSERT INTO ADVISORY_RIPPLE (RTAG_ID, PV_ID)
-    /* ---------------------------------------------------- */
+	VALUES (nRtagId, nPvId);
-	errMessage := NULL;
+    /* LOG ACTION */
+   	Log_Action ( nPvId, 'set_advisory_ripple', nUserId );
+	/*Rebuild_Environment(nRtagId);*/
+END Set_Advisory_Ripple;
+/
+--------------------------------------------------------
+--  DDL for Procedure SET_PACKAGE_BUILD_ENV
+--------------------------------------------------------
-	-- Get previous version
+  CREATE OR REPLACE PROCEDURE "SET_PACKAGE_BUILD_ENV" ( nPvId IN PACKAGE_BUILD_ENV.PV_ID%TYPE,
-	SELECT pv.PKG_VERSION INTO OldPkgVersion
+	   	  		  								  	sBuildEnvIdList IN VARCHAR2 ) IS
+/* ---------------------------------------------------------------------------
-      FROM PACKAGE_VERSIONS pv
+    Last Modified: Rupesh Solanki
-     WHERE pv.PV_ID = NNpv_id;
+	Version: 3.0.1
+   --------------------------------------------------------------------------- */
-	sPackageVersion := SSpkg_version;
+BEGIN
+   -- Delete Current Build Env settings
+   DELETE FROM PACKAGE_BUILD_ENV
+   WHERE pv_id = nPvId;
+   -- Delet Current Package Build Info Settings
+   DELETE FROM PACKAGE_BUILD_INFO
+   WHERE pv_id = nPvId;
+   -- Reset flag to N
-	IF OldPkgVersion != sPackageVersion THEN
+   UPDATE PACKAGE_VERSIONS SET
+	   IS_BUILD_ENV_REQUIRED = 'N'
+   WHERE PV_ID = nPvId;
-	    OPEN package_versions_cur;
-	    FETCH package_versions_cur INTO package_versions_rec;
+   -- Set new Build Env
+   IF NOT sBuildEnvIdList IS NULL THEN
-	    IF package_versions_cur%NOTFOUND
+   	  -- Insert into PACKAGE_BUILD_ENV
+      INSERT INTO PACKAGE_BUILD_ENV ( PV_ID, BE_ID )
+	  SELECT nPvId AS PV_ID,
-	    THEN
+	  		 be.BE_ID
+	    FROM BUILD_ENVIRONMENTS be
+	   WHERE be.BE_ID IN (
+	   		 		  	   SELECT *
+					   	     FROM THE ( SELECT CAST( IN_LIST_NUMBER( sBuildEnvIdList ) AS RELMGR_NUMBER_TAB_t ) FROM dual )
+	   		 		  	 );
+   	  -- Insert into PACKAGE_BUILD_INFO
+      INSERT INTO PACKAGE_BUILD_INFO ( PV_ID, BM_ID )
+	  SELECT nPvId AS PV_ID,
+	  		 be.BM_ID
+	    FROM BUILD_MACHINES be
+	   WHERE be.BM_ID IN (
+	   		 		  	   SELECT *
+					   	     FROM THE ( SELECT CAST( IN_LIST_NUMBER( sBuildEnvIdList ) AS RELMGR_NUMBER_TAB_t ) FROM dual )
+	   		 		  	 );
-			-- Split current version in parts
+	   -- Set flag to Y
-	    	Split_Version ( SSpkg_version, SSV_MM, SSV_NMM, SSV_EXT );
+	   UPDATE PACKAGE_VERSIONS SET
+		   IS_BUILD_ENV_REQUIRED = 'Y'
+	   WHERE PV_ID = nPvId;
+   END IF;
-		    -- Automated built config
-			IF (cBuildType = 'A') THEN
-				sPackageVersion := '('|| NNpv_id ||')'|| SSV_EXT;	-- Make sure that version is still unique
-			END IF;
+END Set_Package_Build_Env;
+/
+--------------------------------------------------------
+--  DDL for Procedure SET_PACKAGE_BUILD_ENV_TEMP
+--------------------------------------------------------
-	        -- Packge version not found, hence rename it.
+  CREATE OR REPLACE PROCEDURE "SET_PACKAGE_BUILD_ENV_TEMP" ( nPvId IN PACKAGE_BUILD_ENV.PV_ID%TYPE,
-	        UPDATE package_versions
+	   	  		  								  	   	 sBuildEnvIdList IN VARCHAR2,
-	           SET pkg_version = sPackageVersion,
+														 nBuildStandard IN PACKAGE_VERSIONS.BS_ID%TYPE
-	               v_mm = SSV_MM,
+														 ) IS
+/* ---------------------------------------------------------------------------
-	               v_nmm = SSV_NMM,
+    Last Modified: Rupesh Solanki
-	               v_ext = SSV_EXT,
+	Version: 3.0.1
-	               modified_stamp = ORA_SYSDATETIME,
+   --------------------------------------------------------------------------- */
-	               modifier_id = NNuser_id,
+   nBsCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
-				   build_type = cBuildType,
-				   pkg_label = NULL
+   BsId NUMBER;
-	         WHERE pv_id = NNpv_id;
+   HackBsId NUMBER;
-			IF (cBuildType = 'A') THEN
-				sLabel := GET_AUTOMATED_LABEL( NNpv_id );
-				UPDATE PACKAGE_VERSIONS pv SET
-					pv.PKG_LABEL = sLabel
-		         WHERE pv_id = NNpv_id;
-			END IF;
+BEGIN
-			/* LOG ACTION */
-	      	Log_Action ( NNpv_id, 'rename', NNuser_id, 'From '|| OldPkgVersion ||' to '|| SSpkg_version );
+   nBsCollector := IN_LIST_NUMBER ( sBuildEnvIdList );
+   -- Delete Current Build Env settings
+   DELETE FROM PACKAGE_BUILD_ENV
+   WHERE pv_id = nPvId;
-	    ELSE
-	        -- Package version exists. Cannot proceed.
+   -- Delet Current Package Build Info Settings
-	        errMessage := 'enum_MSG_VERSION_EXISTS';
+   DELETE FROM PACKAGE_BUILD_INFO
+   WHERE pv_id = nPvId;
+   -- Reset flag to N
+   UPDATE PACKAGE_VERSIONS SET
+	   IS_BUILD_ENV_REQUIRED = 'N'
-	    END IF;
+   WHERE PV_ID = nPvId;
-	    CLOSE package_versions_cur;
+   -- Set new Build Env
+   IF NOT sBuildEnvIdList IS NULL THEN
+	FOR i IN 1..nBsCollector.COUNT
+	LOOP
+	BsId := nBsCollector(i);
+	IF nBuildStandard = 2 THEN
+	   IF BsId = 1 THEN
+	   	  HackBsId := 11;
+	   ELSE
+	   	  HackBsId := 12;
-	END IF;
+	   END IF;
+   	  -- Insert into PACKAGE_BUILD_ENV
+      INSERT INTO PACKAGE_BUILD_ENV ( PV_ID, BE_ID )
+	  SELECT nPvId AS PV_ID,
+	  		 be.BE_ID
+	    FROM BUILD_ENVIRONMENTS be
+	   WHERE be.BE_ID IN ( HackBsId );
+   	  -- Insert into PACKAGE_BUILD_INFO
+      INSERT INTO PACKAGE_BUILD_INFO ( PV_ID, BM_ID )
+	  SELECT nPvId AS PV_ID,
+	  		 be.BM_ID
+	    FROM BUILD_MACHINES be
+	   WHERE be.BM_ID IN ( BsId );
+	   -- Set flag to Y
+	   UPDATE PACKAGE_VERSIONS SET
+		   IS_BUILD_ENV_REQUIRED = 'Y'
+	   WHERE PV_ID = nPvId;
+	ELSE
+   	  -- Insert into PACKAGE_BUILD_ENV
+      INSERT INTO PACKAGE_BUILD_ENV ( PV_ID, BE_ID )
+	  SELECT nPvId AS PV_ID,
+	  		 be.BE_ID
+	    FROM BUILD_ENVIRONMENTS be
+	   WHERE be.BE_ID IN ( BsId );
+   	  -- Insert into PACKAGE_BUILD_INFO
+      INSERT INTO PACKAGE_BUILD_INFO ( PV_ID, BM_ID )
+	  SELECT nPvId AS PV_ID,
+	  		 be.BM_ID
+	    FROM BUILD_MACHINES be
+	   WHERE be.BM_ID IN ( BsId );
+	   -- Set flag to Y
+	   UPDATE PACKAGE_VERSIONS SET
+		   IS_BUILD_ENV_REQUIRED = 'Y'
+	   WHERE PV_ID = nPvId;
+	END IF;
+	END LOOP;
+   END IF;
-END Rename_Package_Version;
+END Set_Package_Build_Env_Temp;
+/
 --------------------------------------------------------
---  DDL for Procedure PAOLO_BUILD_TREE
+--  DDL for Procedure SET_TO_AUTOBUILDABLE
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "PAOLO_BUILD_TREE" ( nRtag_id IN NUMBER ) IS
+  CREATE OR REPLACE PROCEDURE "SET_TO_AUTOBUILDABLE" (
+   nrtagid     IN   NUMBER,
+   spvidlist   IN   VARCHAR2
+)
+IS
+/******************************************************************************
+   NAME:       SET_TO_AUTOBUILDABLE
+   PURPOSE:
+   REVISIONS:
-    sessionNumber NUMBER := 0;
+   Ver        Date        Author           Description
+   ---------  ----------  ---------------  ------------------------------------
+.0        15/12/2006   Rupesh Solanki       1. Created this procedure.
+   NOTES:
-    iteration NUMBER := 1;
+   Automatically available Auto Replace Keywords:
-    rowCnt NUMBER := 0;
+      Object Name:     SET_TO_AUTOBUILDABLE
-    maxIterations 	NUMBER := 50;
+      Sysdate:         15/12/2006
+      Date and Time:   15/12/2006, 11:42:29 AM, and 15/12/2006 11:42:29 AM
+      Username:         (set in TOAD Options, Procedure Editor)
+      Table Name:       (set in the "New PL/SQL Object" dialog)
+******************************************************************************/
+   npvidcollector   relmgr_number_tab_t := relmgr_number_tab_t ();
+   PvId NUMBER;
 BEGIN
+   npvidcollector := in_list_number2 (spvidlist);
-    INSERT INTO TEMP_TREE_BROWSE ( SESSION_NUM, LEVEL_NUM, PV_ID )
-    SELECT sessionNumber, iteration, rc.PV_ID
-      FROM RELEASE_CONTENT rc
-     WHERE rc.RTAG_ID = nRtag_id;
-    iteration := iteration + 1;
-    LOOP
-        INSERT INTO TEMP_TREE_BROWSE ( SESSION_NUM, LEVEL_NUM, PV_ID )
-		SELECT sessionNumber,
-               iteration,
+   UPDATE package_versions
-               dep.DPV_ID
+      SET is_autobuildable = 'N'
-          FROM TEMP_TREE_BROWSE ttb,
+    WHERE pv_id IN (SELECT pv_id
-               PACKAGE_DEPENDENCIES dep
+                      FROM release_content
-         WHERE dep.PV_ID = ttb.PV_ID
-           AND ttb.LEVEL_NUM = iteration - 1
+                     WHERE rtag_id = nrtagid);
-         MINUS
-        SELECT sessionNumber, iteration, ttb.PV_ID
-          FROM TEMP_TREE_BROWSE ttb;
+   	FOR i IN 1..npvidcollector.COUNT
+	LOOP
+		PvId := npvidcollector(i);
-		rowCnt := SQL%ROWCOUNT;
+		UPDATE package_versions
-		IF rowCnt > 0 THEN
+		set is_autobuildable = 'Y'
-           iteration := iteration + 1;
+		where pv_id = PvId;
-		END IF;
+	END LOOP;
-        EXIT WHEN (rowCnt < 1) OR (iteration > maxIterations);
-    END LOOP;
-END PAOLO_Build_Tree;
+END set_to_autobuildable;
+/
 --------------------------------------------------------
---  DDL for Procedure UPDATE_UNIT_TEST_ACCEPTANCE
+--  DDL for Procedure SHIFT_INSTALL_ORDER
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "UPDATE_UNIT_TEST_ACCEPTANCE" ( pnTest_id IN NUMBER,
+  CREATE OR REPLACE PROCEDURE "SHIFT_INSTALL_ORDER" ( nPatchId IN PACKAGE_PATCHES.PATCH_ID%TYPE,
-														  pnPv_id IN NUMBER,
+												  nPvId IN PACKAGE_PATCHES.PV_ID%TYPE,
-					                                      sAccepted IN UNIT_TESTS.TEST_ACCEPTED%TYPE,
+                                                  nToInstallOrder IN PACKAGE_PATCHES.INSTALL_ORDER%TYPE ) IS
-														  sAcceptanceDate IN VARCHAR2,
-														  sAcceptedBy IN NUMBER,
-					                                      sReviewComments IN UNIT_TESTS.REVIEW_COMMENTS%TYPE,
-														  cUpdateAcceptedStateOnly IN CHAR
-					                                     ) IS
 /* ---------------------------------------------------------------------------
-    Version: 3.0.0
+    Version: 3.0
    --------------------------------------------------------------------------- */
+currInstallOrder NUMBER;
+FromInstallOrder NUMBER;
 BEGIN
-	IF cUpdateAcceptedStateOnly = 'Y'
-	THEN
-		--- Update Accepted State Only ---
-		IF ( sAccepted IS NULL )
-		THEN
-			-- Clear alleptance
-			UPDATE UNIT_TESTS SET
-		           TEST_ACCEPTED = NULL,
-		           ACCEPTANCE_DATE = NULL,
-				   ACCEPTED_BY = NULL,
-				   REVIEW_COMMENTS = NULL
-		     WHERE TEST_ID = pnTest_id
-		       AND PV_ID = pnPv_id;
-	    ELSE
-			UPDATE UNIT_TESTS SET
-		           TEST_ACCEPTED = sAccepted,
+	 -- Get Current Install Order
-		           ACCEPTANCE_DATE = TO_DATE( sAcceptanceDate,'DD/MM/YYYY' ),
+     SELECT pp.INSTALL_ORDER INTO currInstallOrder
-				   ACCEPTED_BY = sAcceptedBy
+       FROM PACKAGE_PATCHES pp
-		     WHERE TEST_ID = pnTest_id
+      WHERE pp.PV_ID = nPvId
-		       AND PV_ID = pnPv_id;
+        AND pp.PATCH_ID = nPatchId;
-		END IF;
+	 IF currInstallOrder > nToInstallOrder
+	 THEN
-	ELSE
-		--- Update Unit Test Acceptance ---
+		FromInstallOrder := nToInstallOrder;
-	    UPDATE UNIT_TESTS SET
-	           TEST_ACCEPTED = sAccepted,
-			   REVIEW_COMMENTS = sReviewComments,
-	           ACCEPTANCE_DATE = TO_DATE( sAcceptanceDate,'DD/MM/YYYY' ),
-			   ACCEPTED_BY = sAcceptedBy
-	     WHERE TEST_ID = pnTest_id
-	       AND PV_ID = pnPv_id;
+	    -- Shift others Up
+		UPDATE PACKAGE_PATCHES pp SET
+			   pp.INSTALL_ORDER = pp.INSTALL_ORDER + 1
-	END IF;
+		 WHERE pp.PV_ID = nPvId
+           AND pp.PATCH_ID != nPatchId
+		   AND pp.INSTALL_ORDER BETWEEN  FromInstallOrder  AND  currInstallOrder - 1;
+	 ELSIF currInstallOrder < nToInstallOrder
+	 THEN
+		FromInstallOrder := currInstallOrder + 1;
+		-- Shift others Down
+        UPDATE PACKAGE_PATCHES pp SET
+			   pp.INSTALL_ORDER = pp.INSTALL_ORDER - 1
+		 WHERE pp.PV_ID = nPvId
+           AND pp.PATCH_ID != nPatchId
+		   AND pp.INSTALL_ORDER BETWEEN  FromInstallOrder  AND  nToInstallOrder;
+	 END IF;
+	 -- Move Patch to new install order
+     UPDATE PACKAGE_PATCHES pp SET
+		    pp.INSTALL_ORDER = nToInstallOrder
+	  WHERE pp.PV_ID = nPvId
+	    AND pp.PATCH_ID = nPatchId;
-END Update_Unit_Test_Acceptance;
+END Shift_Install_Order;
+/
 --------------------------------------------------------
---  DDL for Procedure NEW_ADDITIONAL_NOTE
+--  DDL for Procedure SPLIT_VERSION
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "NEW_ADDITIONAL_NOTE" ( pnPv_id IN NUMBER,
+  CREATE OR REPLACE PROCEDURE "SPLIT_VERSION" ( SSpkg_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
-                                                  psNote_title IN ADDITIONAL_NOTES.NOTE_TITLE%TYPE,
-                                                  psNote_body IN ADDITIONAL_NOTES.NOTE_BODY%TYPE,
-                                                  pnUser_id IN NUMBER,
+                                            SSV_MM OUT PACKAGE_VERSIONS.V_MM%TYPE,
-                                                  outErrCode OUT NUMBER
+                                            SSV_NMM OUT PACKAGE_VERSIONS.V_NMM%TYPE,
-                                                 ) IS
+                                            SSV_EXT OUT PACKAGE_VERSIONS.V_EXT%TYPE  ) IS
 /* ---------------------------------------------------------------------------
     Version: 3.0.0
    --------------------------------------------------------------------------- */
+    TYPE VERSION_COMPONENTS_TYPE IS TABLE OF VARCHAR2(50)
-    newID NUMBER;
+        INDEX BY BINARY_INTEGER;
-	CURSOR an_duplicate_cur IS
-        SELECT note_id
-          FROM ADDITIONAL_NOTES
+    version_components VERSION_COMPONENTS_TYPE;
-         WHERE pv_id = pnPv_id
+    lastDot NUMBER := 0;
-           AND note_title = psNote_title;
+    currDot NUMBER := 0;
-    an_duplicate_rec an_duplicate_cur%ROWTYPE;
 BEGIN
-	outErrCode := -1;		-- Set default return error code to ERROR state
+    currDot := INSTR ( SSpkg_version, '.', -1 );      -- Find 1st dot from the right
-	OPEN an_duplicate_cur;
-    FETCH an_duplicate_cur INTO an_duplicate_rec;
-    IF an_duplicate_cur%NOTFOUND
+    IF ( currDot > 0 )
     THEN
-		/* No duplicate titles */
+        -- YES dot separator found --
-		-- Get new ID --
-    	SELECT SEQ_ADDITIONAL_NOTES.NEXTVAL INTO newID FROM DUAL;
+        SSV_EXT := GET_V_EXT( SSpkg_version );
-		--- Add Additional Note ---
+        IF NOT SSV_EXT IS NULL
+        THEN
-	    INSERT INTO ADDITIONAL_NOTES ( note_id, pv_id, note_title, note_body, mod_date, mod_user  )
+            lastDot := currDot;
-	    VALUES (  newID, pnPv_id, psNote_title, psNote_body, Ora_Sysdate, pnUser_id );
+            currDot := INSTR ( SSpkg_version, '.', -1, 2 );   -- Find 2nd dot from the right
-		outErrCode := 0;		-- Set return to SUCCESS
-	END IF;
+            IF ( currDot > 0 )
+            THEN
+                -- XXXX.M.E
+                SSV_MM := SUBSTR ( SSpkg_version, currDot + 1, lastDot - currDot - 1);
+                SSV_NMM := SUBSTR ( SSpkg_version, 0, currDot ) || SSV_EXT;
+            ELSE
+                -- XXXX.E
+                SSV_MM := NULL;
+                SSV_NMM := SSpkg_version;
+            END IF;
+        ELSE
+            -- XXXX.M
+            SSV_MM := SUBSTR ( SSpkg_version, currDot + 1, LENGTH(SSpkg_version) - currDot );
+            SSV_NMM := SUBSTR ( SSpkg_version, 0, currDot );
+        END IF;
+    ELSE
+        -- NO dot separator found --
+        -- XXXXXX
+        SSV_MM  := NULL;
+        SSV_NMM := SSpkg_version;
-	CLOSE an_duplicate_cur;
+        SSV_EXT := NULL;
+    END IF;
-END New_Additional_Note;
+END Split_Version;
+/
 --------------------------------------------------------
---  DDL for Procedure INSERT_MULTIPLE_STICKY_NOTES
+--  DDL for Procedure SWITCH_REPRODUCIBLE_PACKAGE
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "INSERT_MULTIPLE_STICKY_NOTES" IS
+  CREATE OR REPLACE PROCEDURE "SWITCH_REPRODUCIBLE_PACKAGE" (nPvId IN NUMBER, nUserId IN NUMBER)IS
+Auto CHAR;
 /******************************************************************************
-   NAME:       INSERT_MULTIPLE_STICKY_NOTES
+   NAME:       SWITCH_REPRODUCIBLE_PACKAGE
    PURPOSE:
    REVISIONS:
    Ver        Date        Author           Description
    ---------  ----------  ---------------  ------------------------------------
-.0        6/12/2006          1. Created this procedure.
+.0        14/12/2006   Rupesh Solanki       1. Created this procedure.
    NOTES:
    Automatically available Auto Replace Keywords:
-      Object Name:     INSERT_MULTIPLE_STICKY_NOTES
+      Object Name:     SWITCH_REPRODUCIBLE_PACKAGE
-      Sysdate:         6/12/2006
+      Sysdate:         14/12/2006
-      Date and Time:   6/12/2006, 1:53:40 PM, and 6/12/2006 1:53:40 PM
+      Date and Time:   14/12/2006, 11:35:15 AM, and 14/12/2006 11:35:15 AM
       Username:         (set in TOAD Options, Procedure Editor)
       Table Name:       (set in the "New PL/SQL Object" dialog)
 ******************************************************************************/
-	CURSOR curInfo IS
-    SELECT PV_ID
-	FROM PACKAGE_BUILD_ENV
-	WHERE BE_ID IN (11, 12);
-    recInfo curInfo%ROWTYPE;
 BEGIN
-	OPEN curInfo;
+	 SELECT IS_AUTOBUILDABLE into Auto
-    FETCH curInfo INTO recInfo;
+	 FROM PACKAGE_VERSIONS
-	WHILE curInfo%FOUND
+	 WHERE PV_ID = nPvId;
-	LOOP
+	 IF Auto = 'N' Then
-		INSERT INTO NOTE_MANAGER ( NID, LAST_USER, LAST_DATE, DESCRIPTION )
+	 	UPDATE PACKAGE_VERSIONS
+	 	SET IS_AUTOBUILDABLE = 'Y'
+	 	WHERE PV_ID = nPvId;
+	 	/* LOG ACTION */
-		VALUES( recInfo.PV_ID, 'awehalle', ORA_SYSDATETIME, '' );
+   		Log_Action ( nPvId, 'reproducible_package', nUserId );
+	 Else
+		 UPDATE PACKAGE_VERSIONS
+		 SET IS_AUTOBUILDABLE = 'N'
-		FETCH curInfo INTO recInfo;
+		 WHERE PV_ID = nPvId;
+	 	 /* LOG ACTION */
+   	 	 Log_Action ( nPvId, 'unreproducible_package', nUserId );
-	END LOOP;
+	 End If;
-	CLOSE curInfo;
-END INSERT_MULTIPLE_STICKY_NOTES;
+END SWITCH_REPRODUCIBLE_PACKAGE;
+/
 --------------------------------------------------------
---  DDL for Procedure TOUCH_RELEASE_BULK
+--  DDL for Procedure SYNC_PROJECTS_NEW_VERSION
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "TOUCH_RELEASE_BULK" ( nRtagIdList IN VARCHAR2 ) IS
+  CREATE OR REPLACE PROCEDURE "SYNC_PROJECTS_NEW_VERSION" ( nPv_id 				IN NUMBER,
+														  sSyncRtagsInList		IN VARCHAR2,
+				                                          nUser_id 				IN NUMBER ) IS
 /* ---------------------------------------------------------------------------
-    Version: 3.0
+    Version: 3.0.0
    --------------------------------------------------------------------------- */
+	CURSOR sync_rtags_cur IS
+        SELECT rc.RTAG_ID, rc.BASE_VIEW_ID, pv.pv_id
+		  FROM release_content rc,
+		  	   package_versions pv,
+		       package_versions opv
+		 WHERE rc.pv_id = pv.pv_id
+		   AND opv.pkg_id = pv.pkg_id
+		   AND NVL(opv.v_ext, '|LINK_A_NULL|') = NVL(pv.v_ext, '|LINK_A_NULL|')
+		   AND opv.pv_id = nPv_id
+		   AND rtag_id IN ( SELECT *
+		   	   		   	      FROM THE (
-oRTagIdCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
+					   	   		   	    SELECT CAST( IN_LIST_NUMBER( sSyncRtagsInList ) AS RELMGR_NUMBER_TAB_t )
+					       		   	    FROM dual
+									   )
+						  );
+    sync_rtags_rec sync_rtags_cur%ROWTYPE;
 BEGIN
-	 oRTagIdCollector := IN_LIST_NUMBER ( nRtagIdList );
-	 -- Touch Release for Rebuild
+	OPEN sync_rtags_cur;
-     UPDATE RELEASE_TAGS rt SET
+	FETCH sync_rtags_cur INTO sync_rtags_rec;
-     	rt.REBUILD_ENV = 'Y',
-        rt.REBUILD_STAMP = 0
-      WHERE rt.RTAG_ID IN ( SELECT * FROM TABLE ( CAST ( oRTagIdCollector AS RELMGR_NUMBER_TAB_t ) ) );
+	WHILE sync_rtags_cur%FOUND
+	LOOP
+		DELETE FROM RELEASE_CONTENT
+		 WHERE rtag_id = sync_rtags_rec.rtag_id
+	       AND pv_id = sync_rtags_rec.pv_id;
+		INSERT INTO RELEASE_CONTENT ( RTAG_ID, PV_ID, BASE_VIEW_ID, INSERT_STAMP, INSERTOR_ID, PKG_STATE )
+	   		   VALUES ( sync_rtags_rec.rtag_id,
+		       		  	nPv_id,
+						sync_rtags_rec.BASE_VIEW_ID,
+	           			Ora_Sysdate,
+	           			nUser_id,
+	      	   		   );
+-- 		UPDATE RELEASE_CONTENT
+-- 	       SET pv_id = nPv_id,
+-- 	           insert_stamp = Ora_Sysdate,
+-- 	           insertor_id = nUser_id
+-- 	     WHERE rtag_id = sync_rtags_rec.rtag_id
+-- 	       AND pv_id = sync_rtags_rec.pv_id;
+		FETCH sync_rtags_cur INTO sync_rtags_rec;
+	END LOOP;
+	CLOSE sync_rtags_cur;
-END Touch_Release_Bulk;
+END Sync_Projects_New_Version;
+/
 --------------------------------------------------------
---  DDL for Procedure UPDATE_DEPRECATION_STATE
+--  DDL for Procedure TEST
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "UPDATE_DEPRECATION_STATE" (nnrtag_id IN NUMBER) AS
+  CREATE OR REPLACE PROCEDURE "TEST"
+IS
-recno NUMBER;
+proc_id NUMBER;
+/******************************************************************************
+   NAME:       DELETE_DO_NOT_RIPPLE
+   PURPOSE:    TO DELETE ENTRIES FROM THE DO_NOT_RIPPLE TABLE WHEN A PACKAGE
+               IS RELEASED
-CURSOR deprecate_cur IS
+   REVISIONS:
+   Ver        Date        Author           Description
+   ---------  ----------  ---------------  ------------------------------------
+.0        21/04/2006  Rupesh Solanki     1. Created this procedure.
-SELECT rc.pv_id
+   NOTES:
-FROM release_content rc
-WHERE rtag_id = nnrtag_id
- AND deprecated_state IN(7);
-deprecate_rec deprecate_cur % rowtype;
+   Automatically available Auto Replace Keywords:
+      Object Name:     DELETE_DO_NOT_RIPPLE
+      Sysdate:         21/04/2006
+      Date and Time:   21/04/2006, 3:21:55 PM, and 21/04/2006 3:21:55 PM
+      Username:         (set in TOAD Options, Procedure Editor)
+      Table Name:       (set in the "New PL/SQL Object" dialog)
+******************************************************************************/
+   CURSOR ripple_cur
+   IS
+      select distinct pkg_health_tag, cmd_interface, pkg_owner, is_interface from deployment_manager.processes_config;
+   ripple_rec   ripple_cur%ROWTYPE;
 BEGIN
+   OPEN ripple_cur;
-  OPEN deprecate_cur;
+   FETCH ripple_cur
+    INTO ripple_rec;
-  FETCH deprecate_cur
+   WHILE ripple_cur%FOUND
-  INTO deprecate_rec;
+   LOOP
+   select deployment_manager.seq_proc_id.nextval into proc_id from dual;
+insert into processes (PROC_ID, PROC_NAME, RUN_AS, PKG_OWNER, IS_INTERFACE)
+values(proc_id, ripple_rec.pkg_health_tag, ripple_rec.cmd_interface, ripple_rec.pkg_owner, ripple_rec.is_interface);
-  WHILE deprecate_cur % FOUND
+      FETCH ripple_cur
+       INTO ripple_rec;
-  LOOP
+   END LOOP;
+END test;
+/
+--------------------------------------------------------
+--  DDL for Procedure TEST_MARCO
+--------------------------------------------------------
-    SELECT COUNT(*)
-    INTO recno
-    FROM package_dependencies pd,
+  CREATE OR REPLACE PROCEDURE "TEST_MARCO" IS
-      release_content rc
-    WHERE pd.pv_id = deprecate_rec.pv_id
+/******************************************************************************
-     AND rc.pv_id = pd.dpv_id
+   NAME:       TEST_MARCO
-     AND rc.rtag_id = nnrtag_id
+   PURPOSE:
-     AND rc.deprecated_state IN(6,   7);
-    IF recno = 0 THEN
+   REVISIONS:
+   Ver        Date        Author           Description
+   ---------  ----------  ---------------  ------------------------------------
+.0        2/03/2007          1. Created this procedure.
-      UPDATE release_content
+   NOTES:
-      SET pkg_id = NULL, deprecated_state = NULL
-      WHERE pv_id = deprecate_rec.pv_id
-       AND rtag_id = nnrtag_id;
+   Automatically available Auto Replace Keywords:
-    END IF;
+      Object Name:     TEST_MARCO
+      Sysdate:         2/03/2007
+      Date and Time:   2/03/2007, 3:11:11 PM, and 2/03/2007 3:11:11 PM
+      Username:         (set in TOAD Options, Procedure Editor)
+      Table Name:       (set in the "New PL/SQL Object" dialog)
-    FETCH deprecate_cur
-    INTO deprecate_rec;
+******************************************************************************/
-  END LOOP;
-END;
+parPv_id    NUMBER;
-/
+parPkg_id   NUMBER;
---------------------------------------------------------
+    SSV_MM PACKAGE_VERSIONS.V_MM%TYPE;
---  DDL for Procedure IGNORE_DEPENDENCY_WARNINGS
+    SSV_NMM PACKAGE_VERSIONS.V_NMM%TYPE;
---------------------------------------------------------
+    SSV_EXT PACKAGE_VERSIONS.V_EXT%TYPE;
+BEGIN
-  CREATE OR REPLACE PROCEDURE "IGNORE_DEPENDENCY_WARNINGS" ( nRtagId IN IGNORE_WARNINGS.RTAG_ID%TYPE,
-                                                         nPvId IN IGNORE_WARNINGS.PV_ID%TYPE,
-                                                         sIgnoreIdList IN VARCHAR2,
-                                                         bDoPatchIgnore IN BOOLEAN DEFAULT FALSE,
-                                                         nUserId IN NUMBER DEFAULT NULL ) IS
-/* ---------------------------------------------------------------------------
-    Updates the ignore warnings table - this is really two functions in one.
+SELECT SEQ_PV_ID.NEXTVAL INTO parPv_id FROM DUAL;
-) One function updates the table based on a list of dependent PV_IDs and a parent PV_ID
-       and is called from the RM website's SetIgnoreWarnings() function after a user changes
-       the ignore warnings checkboxes and submits the form.
-       This can (at time of writing this) only be done within releases that are not build
-       daemon enabled. The ignore warnings feature is a feature we would like to see the end
-       of in an ideal world.
+        /* LOG ACTION */
-       The SetIgnoreWarnings() website function now calls Touch_Release so there is no need to
+        Log_Action ( parPv_id, 'new_version', 3764,
-       do so in this stored procedure, thereby making this stored procedure much more precise in
-       that it only updates the ignore_warnings table (action log table too although that is just
-       a log and doesn't affect any subsequent business rules behaviour) and it cares nothing
-       about website presentation layer states, etc.
+        			 'New package version: '|| parPv_id || '.' );
-) The other function updates the table for out of sync dependencies that have in fact
+        Split_Version ( parPv_id || '.', SSV_MM, SSV_NMM, SSV_EXT );
+     -- Clone Package Version Details --
+            INSERT INTO PACKAGE_VERSIONS ( pv_id, pkg_id, pkg_version, dlocked, created_stamp, creator_id, modified_stamp, modifier_id, V_MM, V_NMM, V_EXT,
+                                           src_path, pv_description, PV_OVERVIEW, LAST_PV_ID, owner_id, BUILD_TYPE, IS_BUILD_ENV_REQUIRED, bs_id, is_autobuildable, is_deployable )
-       been satisfied by patches made to some other product in the release.
+                SELECT parPv_id         AS pv_id,
-       This seems to be a seldom used feature in current projects.
+                       pv.pkg_id        AS pkg_id,
-       It is probably the most often taken path through this function given that it occurs when
+                       parPv_id || '.'    AS pkg_version,
+                       'N'              AS dlocked,
-       this function is called from Rebuild_Environment, and that is called in many circumstances
+                       Ora_Sysdate      AS created_stamp,
-       from the RM website whenever the seems to be a possibility that the state of a package
+AS creator_id,
-       in a release might have changed and therefore affects the state of other packages in
+                       Ora_Sysdatetime  AS modified_stamp,
+AS modifier_id,
+                       SSV_MM          AS V_MM,
+                       SSV_NMM         AS V_NMM,
+                       SSV_EXT          AS V_EXT,
+                       pv.src_path,
+                       pv.pv_description,
+                       pv.PV_OVERVIEW,
+	AS LAST_PV_ID,
+                       pv.owner_id,
+					   pv.BUILD_TYPE,
+					   pv.IS_BUILD_ENV_REQUIRED,
+					   pv.bs_id,
-       that same release.
+					   pv.is_autobuildable,
+					   pv.IS_DEPLOYABLE
+                  FROM PACKAGE_VERSIONS pv
+                 WHERE pv.pv_id = 112982;
+Basic_Clone ( 112982, parPv_id, NULL, 3764, 22325, 0 );
-    Parameter Usage:
-                        when called from    | when called from
-                        Rebuild_Environment | SetIgnoreWarnings()
-                        stored procedure.   | in the Website
-      --------------------------------------+----------------------------
-      nRtagId           RTAG_ID             | RTAG_ID
-      nPvId             NULL                | PV_ID
-      sIgnoreIdList     NULL                | list of dependent PV_ID's
-      bDoPatchIgnore    TRUE                | FALSE
-      nUserId           NULL                | current user ID
-   --------------------------------------------------------------------------- */
+END TEST_MARCO;
+/
-oIgnoreIdCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
+--------------------------------------------------------
-ReleaseLocation VARCHAR2(4000);
+--  DDL for Procedure TOUCH_RELEASE
-ActionTypeId NUMBER;
+--------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "TOUCH_RELEASE" ( nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE ) IS
+/* ---------------------------------------------------------------------------
+    The purpose of this procedure is to flag in the database that the specified
+    release has changed to an extent that the procedure Rebuild_Environment
+    should be called at the next opportunity in order that the package state
+    icons are all re-evaluated.
+    The package state icons are controlled using the pkg_state column in the
+    release_content table, and Rebuild_Environment updates that column.
+    It will be through user action in the website that Rebuild_Environment will
+    be called, for example:
+      a) when setting/clearing ignore warnings checkboxes
+      b) when someone opens a page upon a rtag/pvid and rebuild_en flag is set
+      c) when someone opens the build order report form
+      d) when someone modifies dependencies of a package
+      + other scenarios (?)
+   --------------------------------------------------------------------------- */
 BEGIN
+   -- Touch Release for Rebuild
+   UPDATE RELEASE_TAGS rt SET
+          rt.REBUILD_ENV = 'Y',
+          rt.REBUILD_STAMP = 0
+    WHERE rt.RTAG_ID = nRtagId;
-   IF (NOT bDoPatchIgnore) THEN
+END Touch_Release;
-      /* Manual Ignore Warnings - this execution path is the one taken when called from SetIgnoreWarnings() in the Website
-      */
+/
+--------------------------------------------------------
-      oIgnoreIdCollector := IN_LIST_NUMBER ( sIgnoreIdList );
+--  DDL for Procedure TOUCH_RELEASE_BULK
+--------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "TOUCH_RELEASE_BULK" ( nRtagIdList IN VARCHAR2 ) IS
+/* ---------------------------------------------------------------------------
+    Version: 3.0
+   --------------------------------------------------------------------------- */
-      /* Log Action */
-      -- Get Release Location
-      SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+oRTagIdCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
-        FROM PROJECTS proj,
-             RELEASE_TAGS rt
-       WHERE rt.PROJ_ID = proj.PROJ_ID
-         AND rt.RTAG_ID = nRtagId;
-      -- Get Action Type Id for IGNORE_ON
-      SELECT act.ACTTYPE_ID INTO ActionTypeId
-        FROM ACTION_TYPE act
+BEGIN
-       WHERE act.NAME = 'ignore_on';
+	 oRTagIdCollector := IN_LIST_NUMBER ( nRtagIdList );
-      -- Get Ignored (Current MINUS Old)
+	 -- Touch Release for Rebuild
-      INSERT INTO ACTION_LOG ( USER_ID, ACTION_DATETIME, PV_ID, DESCRIPTION, ACTTYPE_ID )
-      SELECT nUserId, ORA_SYSDATETIME, nPvId, pkg.PKG_NAME ||' '|| rpv.PKG_VERSION ||' at '|| ReleaseLocation, ActionTypeId
-        FROM (
-              SELECT TO_NUMBER(nRtagId) AS RTAG_ID, TO_NUMBER(nPvId), pv.PV_ID AS DPV_ID
-                FROM PACKAGE_VERSIONS pv
-               WHERE pv.PV_ID IN ( SELECT * FROM TABLE ( CAST ( oIgnoreIdCollector AS RELMGR_NUMBER_TAB_t ) ) )
-              MINUS
-              SELECT igw.RTAG_ID, igw.PV_ID, igw.DPV_ID
-                FROM IGNORE_WARNINGS igw
-               WHERE igw.RTAG_ID = nRtagId
-                 AND igw.PV_ID = nPvId
-             ) qry,
-             PACKAGE_VERSIONS pv,
-             PACKAGES pkg,
-             RELEASE_CONTENT rc,
+     UPDATE RELEASE_TAGS rt SET
-             PACKAGE_VERSIONS rpv
-       WHERE pv.PKG_ID = pkg.PKG_ID
+     	rt.REBUILD_ENV = 'Y',
-         AND rc.RTAG_ID = nRtagId
+        rt.REBUILD_STAMP = 0
-         AND rc.PV_ID = rpv.PV_ID
-         AND rpv.PKG_ID = pv.PKG_ID
-         AND NVL( rpv.V_EXT, 'LINK_A_NULL' ) = NVL( pv.V_EXT, 'LINK_A_NULL' )
+      WHERE rt.RTAG_ID IN ( SELECT * FROM TABLE ( CAST ( oRTagIdCollector AS RELMGR_NUMBER_TAB_t ) ) );
-         AND qry.DPV_ID = pv.PV_ID;
-      -- Get Action Type Id for IGNORE_OFF
+END Touch_Release_Bulk;
+/
-      SELECT act.ACTTYPE_ID INTO ActionTypeId
+--------------------------------------------------------
-        FROM ACTION_TYPE act
+--  DDL for Procedure TO_INSERT_VTREE_ID
-       WHERE act.NAME = 'ignore_off';
+--------------------------------------------------------
-      -- Get UnIgnored (Old MINUS Current)
-      INSERT INTO ACTION_LOG ( USER_ID, ACTION_DATETIME, PV_ID, DESCRIPTION, ACTTYPE_ID )
-      SELECT nUserId, ORA_SYSDATETIME, nPvId, pkg.PKG_NAME ||' '|| rpv.PKG_VERSION ||' at '|| ReleaseLocation, ActionTypeId
-        FROM (
-              SELECT igw.RTAG_ID, igw.PV_ID, igw.DPV_ID
+  CREATE OR REPLACE PROCEDURE "TO_INSERT_VTREE_ID" IS
-                FROM IGNORE_WARNINGS igw
-               WHERE igw.RTAG_ID = nRtagId
-                 AND igw.PV_ID = nPvId
-              MINUS
-              SELECT TO_NUMBER(nRtagId) AS RTAG_ID, TO_NUMBER(nPvId), pv.PV_ID AS DPV_ID
-                FROM PACKAGE_VERSIONS pv
-               WHERE pv.PV_ID IN ( SELECT * FROM TABLE ( CAST ( oIgnoreIdCollector AS RELMGR_NUMBER_TAB_t ) ) )
-             ) qry,
-             PACKAGE_VERSIONS pv,
-             PACKAGES pkg,
-             RELEASE_CONTENT rc,
-             PACKAGE_VERSIONS rpv
-       WHERE pv.PKG_ID = pkg.PKG_ID
-         AND rc.RTAG_ID = nRtagId
-         AND rc.PV_ID = rpv.PV_ID
-         AND rpv.PKG_ID = pv.PKG_ID
-         AND NVL( rpv.V_EXT, 'LINK_A_NULL' ) = NVL( pv.V_EXT, 'LINK_A_NULL' )
-         AND qry.DPV_ID = pv.PV_ID;
+/******************************************************************************
+   NAME:       TO_INSERT_VTREE_ID
+   PURPOSE:
-      -- Delete Current Ignore Warnings
-      DELETE
+   REVISIONS:
-        FROM IGNORE_WARNINGS igw
+   Ver        Date        Author           Description
-       WHERE igw.RTAG_ID = nRtagId
+   ---------  ----------  ---------------  ------------------------------------
-         AND igw.PV_ID = nPvId
-         AND igw.IS_PATCH_IGNORE IS NULL;
+.0        2/02/2007          1. Created this procedure.
+   NOTES:
-      IF (oIgnoreIdCollector.COUNT > 0) THEN
+   Automatically available Auto Replace Keywords:
-         -- Insert Ignore Warnings
+      Object Name:     TO_INSERT_VTREE_ID
-         INSERT INTO IGNORE_WARNINGS igw ( RTAG_ID, PV_ID, DPV_ID )
-         SELECT nRtagId,
-                nPvId,
+      Sysdate:         2/02/2007
-                pv.PV_ID AS DPV_ID
+      Date and Time:   2/02/2007, 8:42:56 AM, and 2/02/2007 8:42:56 AM
-           FROM PACKAGE_VERSIONS pv
+      Username:         (set in TOAD Options, Procedure Editor)
-          WHERE pv.PV_ID IN ( SELECT * FROM TABLE ( CAST ( oIgnoreIdCollector AS RELMGR_NUMBER_TAB_t ) ) );
+      Table Name:       (set in the "New PL/SQL Object" dialog)
-      END IF;
-   ELSE
-      /* Patch Ignore Warnings - this execution path is the one taken when called from the Rebuild_Environment stored procedure */
+******************************************************************************/
+VTreeId NUMBER;
-      -- Delete Current Patch Ignore Warnings
-      DELETE
-        FROM IGNORE_WARNINGS igw
-       WHERE igw.RTAG_ID = nRtagId
-         AND igw.IS_PATCH_IGNORE = 'Y';
+	CURSOR curInfo IS
+    SELECT RTAG_ID
+	FROM RELEASE_TAGS
+	WHERE VTREE_ID IS NULL;
+    recInfo curInfo%ROWTYPE;
+BEGIN
-      -- Delete Manual Ignores that need to be Patch Ignores
-      DELETE
-        FROM IGNORE_WARNINGS igw
-       WHERE ( RTAG_ID, PV_ID, DPV_ID ) IN
-             (
+	OPEN curInfo;
-              SELECT DISTINCT
-                     nRtagId,
-                     err.PV_ID,
+    FETCH curInfo INTO recInfo;
-                     err.ERR_DPV AS DPV_ID
-               FROM  (
+	WHILE curInfo%FOUND
-                      /* Full Release Contents used for reference*/
-                      SELECT rpv.PV_ID, rpv.pkg_id, NVL(rpv.v_ext, '|LINK_A_NULL|') AS v_ext
-                        FROM release_content rel, package_versions rpv
-                       WHERE rel.pv_id = rpv.pv_id
-                         AND rtag_id = nRtagId
-                     ) frc,
-                     (
-                      /* DPV_IDs not fount in release*/
-                      SELECT dep.pv_id, dep.dpv_id AS err_dpv
-                        FROM package_dependencies dep
-                       WHERE dep.pv_id IN ( SELECT pv_id FROM release_content WHERE rtag_id = nRtagId )
-                         AND NOT dep.dpv_id IN ( SELECT pv_id FROM release_content WHERE rtag_id = nRtagId )
-                     ) err,
-                     (
+	LOOP
-                      SELECT DISTINCT pp.PV_ID, dep.DPV_ID
+		SELECT SEQ_VTREE_ID.nextval INTO VTreeId FROM DUAL;
-                        FROM PACKAGE_PATCHES pp,
-                             PACKAGE_DEPENDENCIES dep,
-                             RELEASE_CONTENT rc
-                       WHERE rc.RTAG_ID = nRtagId
-                         AND rc.PV_ID = pp.PV_ID
-                         AND dep.PV_ID = pp.PATCH_ID
-                     ) pp,
-                     package_versions errpkg,
-                     package_versions errpv
-               WHERE err.err_dpv = errpv.pv_id
-                 AND errpv.pkg_id = frc.pkg_id(+)
-                 AND NVL(errpv.v_ext, '|LINK_A_NULL|') = frc.v_ext(+)
-                 AND err.pv_id = errpkg.pv_id
-                 AND err.PV_ID = pp.PV_ID
-                 AND frc.PV_ID = pp.DPV_ID
-             );
-      /*
+		UPDATE RELEASE_TAGS
-      ---------------------------------------------------
+		SET VTREE_ID = VTreeId
-      --  Make sure that select statement above and below are same
+		WHERE RTAG_ID = recInfo.RTAG_ID;
-      ---------------------------------------------------
-      */
-      -- Insert Patch Ignores
+		FETCH curInfo INTO recInfo;
-      INSERT INTO IGNORE_WARNINGS igw ( RTAG_ID, PV_ID, DPV_ID, IS_PATCH_IGNORE )
-      SELECT DISTINCT
-             nRtagId,
-             err.PV_ID,
-             err.ERR_DPV AS DPV_ID,
-             'Y'
-        FROM (
+	END LOOP;
-              /* Full Release Contents used for reference*/
-              SELECT rpv.PV_ID, rpv.pkg_id, NVL(rpv.v_ext, '|LINK_A_NULL|') AS v_ext
-                FROM release_content rel, package_versions rpv
-               WHERE rel.pv_id = rpv.pv_id
-                 AND rtag_id = nRtagId
-             ) frc,
-             (
-               /* DPV_IDs not fount in release*/
-               SELECT dep.pv_id, dep.dpv_id AS err_dpv
-                 FROM package_dependencies dep
-                WHERE dep.pv_id IN ( SELECT pv_id FROM release_content WHERE rtag_id = nRtagId )
-                  AND NOT dep.dpv_id IN ( SELECT pv_id FROM release_content WHERE rtag_id = nRtagId )
-             ) err,
-             (
-              SELECT DISTINCT pp.PV_ID, dep.DPV_ID
-                FROM PACKAGE_PATCHES pp,
-                     PACKAGE_DEPENDENCIES dep,
-                     RELEASE_CONTENT rc
-               WHERE rc.RTAG_ID = nRtagId
-                 AND rc.PV_ID = pp.PV_ID
-                 AND dep.PV_ID = pp.PATCH_ID
-             ) pp,
-             package_versions errpkg,
-             package_versions errpv
-       WHERE err.err_dpv = errpv.pv_id
-         AND errpv.pkg_id = frc.pkg_id(+)
-         AND NVL(errpv.v_ext, '|LINK_A_NULL|') = frc.v_ext(+)
-         AND err.pv_id = errpkg.pv_id
-         AND err.PV_ID = pp.PV_ID
-         AND frc.PV_ID = pp.DPV_ID;
-    END IF;
+	CLOSE curInfo;
-END Ignore_Dependency_Warnings;
+END TO_INSERT_VTREE_ID;
+/
 --------------------------------------------------------
 --  DDL for Procedure UNDEPRECATE_PACKAGE
 --------------------------------------------------------
 END Undeprecate_Package;
+/
 --------------------------------------------------------
---  DDL for Procedure REMOVE_PACKAGE_INTEREST
+--  DDL for Procedure UNLOCK_PACKAGE
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "REMOVE_PACKAGE_INTEREST" (nProjId IN PROJECTS.PROJ_ID%TYPE,
+  CREATE OR REPLACE PROCEDURE "UNLOCK_PACKAGE" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
+											 nUserId IN NUMBER ) IS
+/* ---------------------------------------------------------------------------
+    Author: Rupesh Solanki
+	Version: 4.0
+   --------------------------------------------------------------------------- */
+   STATE CHAR;
+BEGIN
+	SELECT DLOCKED INTO STATE
+	FROM PACKAGE_VERSIONS
+	WHERE PV_ID = nPvId;
+	IF STATE = 'A' THEN --It was made official for autobuilds
+		-- Unlock Package
+		UPDATE PACKAGE_VERSIONS pv SET
+		pv.DLOCKED = 'P'
+		WHERE pv.PV_ID = nPvId;
+	ELSE
+		-- Unlock Package
+		UPDATE PACKAGE_VERSIONS pv SET
+		pv.DLOCKED = 'N'
+		WHERE pv.PV_ID = nPvId;
+	END IF;
+    /* LOG ACTION */
+   	Log_Action ( nPvId, 'unlock_package', nUserId );
+END Unlock_Package;
+/
+--------------------------------------------------------
+--  DDL for Procedure UNRIPPLE_PACKAGE
+--------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "UNRIPPLE_PACKAGE" (
+        sPvIdList IN VARCHAR2,
-	   	  		  								  	nPkgId IN PACKAGES.PKG_ID%TYPE,
+        nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE,
+        nUserId IN NUMBER
+    ) IS
+/* ---------------------------------------------------------------------------
+    Version: 4.1
+   --------------------------------------------------------------------------- */
+    oPvIdCollector RELMGR_NUMBER_TAB_t := RELMGR_NUMBER_TAB_t();
+BEGIN
+    IF (sPvIdList IS NULL) THEN
+        RAISE_APPLICATION_ERROR (-20000, 'Please select at least one package.' );
+    END IF;
+    oPvIdCollector := IN_LIST_NUMBER ( sPvIdList );
+    -- UnRipple Package
+    INSERT INTO DO_NOT_RIPPLE ( RTAG_ID, PV_ID )
+    SELECT nRtagId, pv.PV_ID
+    FROM PACKAGE_VERSIONS pv
+    WHERE pv.PV_ID IN (
+        SELECT *
+        FROM TABLE (
+            CAST ( oPvIdCollector AS RELMGR_NUMBER_TAB_t )
+        )
+    );
+    /* LOG ACTION */
+    Log_Action_Bulk ( sPvIdList, 'unripple_package', nUserId );
+END UnRipple_Package;
+/
+--------------------------------------------------------
+--  DDL for Procedure UNRIPPLE_PACKAGE_INDIRECT
+--------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "UNRIPPLE_PACKAGE_INDIRECT" (
+        nPvId IN NUMBER,
+        nRtagId IN NUMBER,
+        nUserId IN NUMBER,
+        nrootCausePvId IN NUMBER,
+        srootCause IN VARCHAR2,
+        srootFile IN VARCHAR2
+    ) IS
+    ReleaseLocation VARCHAR2(4000);
+BEGIN
+    -- UnRipple Package
+    delete from do_not_ripple where rtag_id=nRtagId and pv_id=nPvId;
+    INSERT INTO DO_NOT_RIPPLE ( RTAG_ID, PV_ID, ROOT_PV_ID, ROOT_CAUSE, ROOT_FILE ) values (nRtagId, nPvId, nrootCausePvId, srootCause, srootFile);
+    /* LOG ACTION */
+   SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+              FROM PROJECTS proj,
+                   RELEASE_TAGS rt
+             WHERE rt.RTAG_ID = nRtagId
+               AND rt.PROJ_ID = proj.PROJ_ID;
+    /* LOG ACTION */
+    Log_Action ( nPvId, 'unripple_package', nUserId, 'Location: '|| ReleaseLocation );
+END UnRipple_Package_Indirect;
+/
+--------------------------------------------------------
+--  DDL for Procedure UPDATE_ADDITIONAL_NOTE
+--------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "UPDATE_ADDITIONAL_NOTE" ( pnNote_id IN NUMBER,
-												  	nUserId IN NUMBER
+													 pnPv_id IN NUMBER,
+                                                     psNote_title IN ADDITIONAL_NOTES.NOTE_TITLE%TYPE,
+                                                     psNote_body IN ADDITIONAL_NOTES.NOTE_BODY%TYPE,
+                                                     pnUser_id IN NUMBER,
+                                                     outErrCode OUT NUMBER
+                                                    ) IS
+/* ---------------------------------------------------------------------------
+    Version: 3.0.1
+   --------------------------------------------------------------------------- */
+    newID NUMBER;
+    /* Disallow duplicate Note Titles */
+	CURSOR an_duplicate_cur IS
+        SELECT COUNT(*) AS cnt_note
+          FROM ADDITIONAL_NOTES
+         WHERE pv_id = pnPv_id
+           AND note_id != pnNote_id
+           AND note_title = psNote_title;
+    an_duplicate_rec an_duplicate_cur%ROWTYPE;
+BEGIN
+	outErrCode := -1;		-- Set default return error code to ERROR state
+	OPEN an_duplicate_cur;
+    FETCH an_duplicate_cur INTO an_duplicate_rec;
+    IF an_duplicate_rec.cnt_note < 1
+    THEN
+		--- Update Additional Note ---
+	    UPDATE ADDITIONAL_NOTES SET
+		       note_title = psNote_title,
+		       note_body = psNote_body,
+		       mod_date = Ora_Sysdate,
+		       mod_user = pnUser_id
+         WHERE note_id = pnNote_id
+           AND pv_id = pnPv_id;
+		outErrCode := 0;		-- Set return to SUCCESS
+	END IF;
+	CLOSE an_duplicate_cur;
+END Update_Additional_Note;
+/
+--------------------------------------------------------
+--  DDL for Procedure UPDATE_DEPRECATION_STATE
+--------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "UPDATE_DEPRECATION_STATE" (nnrtag_id IN NUMBER) AS
+recno NUMBER;
+CURSOR deprecate_cur IS
+SELECT rc.pv_id
+FROM release_content rc
+WHERE rtag_id = nnrtag_id
+ AND deprecated_state IN(7);
+deprecate_rec deprecate_cur % rowtype;
+BEGIN
+  OPEN deprecate_cur;
+  FETCH deprecate_cur
+  INTO deprecate_rec;
+  WHILE deprecate_cur % FOUND
+  LOOP
+    SELECT COUNT(*)
+    INTO recno
+    FROM package_dependencies pd,
-	   	  		  									) IS
+      release_content rc
+    WHERE pd.pv_id = deprecate_rec.pv_id
+     AND rc.pv_id = pd.dpv_id
+     AND rc.rtag_id = nnrtag_id
+     AND rc.deprecated_state IN(6,   7);
+    IF recno = 0 THEN
+      UPDATE release_content
+      SET pkg_id = NULL, deprecated_state = NULL
+      WHERE pv_id = deprecate_rec.pv_id
+       AND rtag_id = nnrtag_id;
+    END IF;
+    FETCH deprecate_cur
+    INTO deprecate_rec;
+  END LOOP;
+END;
+/
+--------------------------------------------------------
+--  DDL for Procedure UPDATE_MISC_VIEW
+--------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "UPDATE_MISC_VIEW" IS
 /******************************************************************************
-   NAME:       REMOVE_PACKAGE_INTEREST
+   NAME:       UPDATE_MISC_VIEW
-   PURPOSE:    To remove interest in a given package per project
+   PURPOSE:
    REVISIONS:
    Ver        Date        Author           Description
    ---------  ----------  ---------------  ------------------------------------
-.0        12/05/2006  Rupesh Solanki      1. Created this procedure.
+.0        16/03/2007          1. Created this procedure.
    NOTES:
    Automatically available Auto Replace Keywords:
-      Object Name:     REMOVE_PACKAGE_INTEREST
+      Object Name:     UPDATE_MISC_VIEW
-      Sysdate:         12/05/2006
+      Sysdate:         16/03/2007
-      Date and Time:   12/05/2006, 11:28:50 AM, and 12/05/2006 11:28:50 AM
+      Date and Time:   16/03/2007, 8:56:29 AM, and 16/03/2007 8:56:29 AM
       Username:         (set in TOAD Options, Procedure Editor)
       Table Name:       (set in the "New PL/SQL Object" dialog)
 ******************************************************************************/
+   CURSOR view_cur /*Create a record set to store the ripple data*/
+   IS
+   	 SELECT pkg.pkg_id, rc.base_view_id
+	 FROM package_versions pv, packages pkg, release_content rc
+	 where rc.rtag_id = 2362
+	 and rc.pv_id = pv.pv_id
+	 and pv.pkg_id = pkg.pkg_id;
+   view_rec   view_cur%ROWTYPE;
 BEGIN
+   OPEN view_cur;
-	 --Delete from PACKAGE_INTEREST
-	 DELETE FROM PACKAGE_INTEREST
-	 WHERE PROJ_ID = nProjId
-	 AND PKG_ID = nPkgId
+   FETCH view_cur
-	 AND USER_ID = nUserId;
+    INTO view_rec;
-END REMOVE_PACKAGE_INTEREST;
-/
---------------------------------------------------------
---  DDL for Procedure RELEASE_MANAGER_MAILOUT
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "RELEASE_MANAGER_MAILOUT" (
-  sender      IN VARCHAR2,
-  recipient   IN VARCHAR2,
-  ccrecipient IN VARCHAR2,
-  subject     IN VARCHAR2,
-  message     IN VARCHAR2
+   WHILE view_cur%FOUND
-  ) IS
+   LOOP
+	   update release_content
-  crlf VARCHAR2(2):= UTL_TCP.CRLF;
+	   set base_view_id = view_rec.base_view_id
-  connection utl_smtp.connection;
+	   where rtag_id = 8027
+	   and pv_id IN
+	   (
-  mailhost VARCHAR2(30) := 'aupera03.aupera.erggroup.com';
+	   	select pv.pv_id from release_content rc, package_versions pv
-  header VARCHAR2(1000);
+		where rc.rtag_id = 8027
+		and pv.pv_id = rc.pv_id
+		and pv.pkg_id = view_rec.pkg_id
+	   );
-BEGIN
-  --
+   FETCH view_cur
-  -- Start the connection.
+   		 INTO view_rec;
-  --
+   END LOOP;
-  connection := utl_smtp.open_connection(mailhost,25);
-  header:= 'Date: '||TO_CHAR(SYSDATE,'dd Mon yy hh24:mi:ss')||crlf||
-     'From: '||sender||''||crlf||
-  'Subject: '||subject||crlf||
-       'To: '||recipient||crlf||
-       'CC: '||ccrecipient;
-  --
-  -- Handshake with the SMTP server
-  --
-  utl_smtp.helo(connection, mailhost);
-  utl_smtp.mail(connection, sender);
-  utl_smtp.rcpt(connection, recipient);
-  utl_smtp.rcpt(connection, ccrecipient);
-  utl_smtp.open_data(connection);
-  --
-  -- Write the header
-  --
-  utl_smtp.write_data(connection, header);
-  --
-  -- The crlf is required to distinguish that what comes next is not simply part of the header..
-  --
-  utl_smtp.write_data(connection, crlf ||message);
-  utl_smtp.close_data(connection);
-  utl_smtp.quit(connection);
-EXCEPTION
-  WHEN UTL_SMTP.INVALID_OPERATION THEN
-    dbms_output.put_line(' Invalid Operation in SMTP transaction.');
-  WHEN UTL_SMTP.TRANSIENT_ERROR THEN
-    dbms_output.put_line(' Temporary problems with sending email - try again later.');
-  WHEN UTL_SMTP.PERMANENT_ERROR THEN
-    dbms_output.put_line(' Errors in code for SMTP transaction.');
-END RELEASE_MANAGER_MAILOUT;
+END UPDATE_MISC_VIEW;
+/
 --------------------------------------------------------
---  DDL for Procedure SET_PACKAGE_BUILD_ENV
+--  DDL for Procedure UPDATE_PACKAGE_DEPENDENCY
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "SET_PACKAGE_BUILD_ENV" ( nPvId IN PACKAGE_BUILD_ENV.PV_ID%TYPE,
+  CREATE OR REPLACE PROCEDURE "UPDATE_PACKAGE_DEPENDENCY" ( NNpv_id IN NUMBER,
+                                                        SSdep_name IN PACKAGES.pkg_name%TYPE,
+                                                        SSdep_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
+                                                        CCbuild_type IN PACKAGE_DEPENDENCIES.build_type%TYPE,
+                                                        NNuser_id IN NUMBER,
+                                                        NNdelete_old_dependency IN NUMBER
-	   	  		  								  	sBuildEnvIdList IN VARCHAR2 ) IS
+                                                       ) IS
 /* ---------------------------------------------------------------------------
-    Last Modified: Rupesh Solanki
-	Version: 3.0.1
+    Version: 3.3
    --------------------------------------------------------------------------- */
+    retPV_ID NUMBER;
+    SSV_EXT PACKAGE_VERSIONS.v_ext%TYPE;
+	DepIsPatch	PACKAGE_VERSIONS.is_patch%TYPE;
+    PvIsPatch	PACKAGE_VERSIONS.is_patch%TYPE;
+    NNpkg_id NUMBER;
+    NNdpkg_id NUMBER;
 BEGIN
+    --- Seed database with package_name and version if required ---
+    Seed_Package_Names_Versions ( SSdep_name, SSdep_version, NNuser_id, retPV_ID );
-   -- Delete Current Build Env settings
+    -- get v_ext,pkg_id of current dependency
-   DELETE FROM PACKAGE_BUILD_ENV
-   WHERE pv_id = nPvId;
-   -- Delet Current Package Build Info Settings
+    SELECT v_ext, pkg_id, is_patch INTO SSV_EXT, NNdpkg_id, DepIsPatch
-   DELETE FROM PACKAGE_BUILD_INFO
+      FROM PACKAGE_VERSIONS
-   WHERE pv_id = nPvId;
+     WHERE pv_id = retPV_ID;
-   -- Reset flag to N
+    -- get pkg_id of parent package
-   UPDATE PACKAGE_VERSIONS SET
+    SELECT pkg_id, is_patch INTO NNpkg_id, PvIsPatch
-	   IS_BUILD_ENV_REQUIRED = 'N'
+      FROM PACKAGE_VERSIONS
-   WHERE PV_ID = nPvId;
+     WHERE pv_id = NNpv_id;
-   -- Set new Build Env
-   IF NOT sBuildEnvIdList IS NULL THEN
+	IF ( (PvIsPatch IS NULL) AND (DepIsPatch IS NULL) ) OR
-   	  -- Insert into PACKAGE_BUILD_ENV
+    	( (PvIsPatch IS NOT NULL) )THEN
-      INSERT INTO PACKAGE_BUILD_ENV ( PV_ID, BE_ID )
-	  SELECT nPvId AS PV_ID,
-	  		 be.BE_ID
-	    FROM BUILD_ENVIRONMENTS be
-	   WHERE be.BE_ID IN (
-	   		 		  	   SELECT *
-					   	     FROM THE ( SELECT CAST( IN_LIST_NUMBER( sBuildEnvIdList ) AS RELMGR_NUMBER_TAB_t ) FROM dual )
-	   		 		  	 );
-   	  -- Insert into PACKAGE_BUILD_INFO
-      INSERT INTO PACKAGE_BUILD_INFO ( PV_ID, BM_ID )
-	  SELECT nPvId AS PV_ID,
-	  		 be.BM_ID
-	    FROM BUILD_MACHINES be
-	   WHERE be.BM_ID IN (
-	   		 		  	   SELECT *
-					   	     FROM THE ( SELECT CAST( IN_LIST_NUMBER( sBuildEnvIdList ) AS RELMGR_NUMBER_TAB_t ) FROM dual )
-	   		 		  	 );
-	   -- Set flag to Y
-	   UPDATE PACKAGE_VERSIONS SET
-		   IS_BUILD_ENV_REQUIRED = 'Y'
+	    IF NNdelete_old_dependency = 1 THEN
-	   WHERE PV_ID = nPvId;
+	        /* Used for CUSTOM dependency add/edit */
+	        --- Remove old dependency ---
+            IF (PvIsPatch IS NULL) THEN
+            	-- Do it for Packages
+		        DELETE FROM PACKAGE_DEPENDENCIES
+		         WHERE ( pv_id, dpv_id, pkg_id, dpkg_id, build_type, display_order ) IN
+		            (
+		            SELECT dep.*
+		              FROM PACKAGE_DEPENDENCIES dep,
+		                   PACKAGE_VERSIONS dpv,
+		                   PACKAGE_VERSIONS pv
+		             WHERE dep.dpv_id = dpv.pv_id
+		               AND dep.pv_id = NNpv_id
+		               AND pv.pv_id = retPV_ID
+		               AND dpv.pkg_id = pv.pkg_id
+		               AND NVL(dpv.v_ext, '|LINK_A_NULL|') = NVL(SSV_EXT, '|LINK_A_NULL|')
+		            );
+            ELSE
+            	-- Do it for Patches
+                DELETE FROM PACKAGE_DEPENDENCIES
+		         WHERE ( pv_id, dpv_id, pkg_id, dpkg_id, build_type, display_order ) IN
+		            (
+		            SELECT dep.*
+		              FROM PACKAGE_DEPENDENCIES dep
+		             WHERE dep.dpv_id = retPV_ID
+		               AND dep.pv_id = NNpv_id
+		            );
-   END IF;
+			END IF;
+	    END IF;
+	    /* NOTE: for JATS, ANTS dependency update, it is expected that all dependencies are removed. */
+	    --- Add new dependency ---
+	    INSERT INTO PACKAGE_DEPENDENCIES ( pv_id, dpv_id, pkg_id, dpkg_id, build_type )
+	    VALUES ( NNpv_id, retPV_ID, NNpkg_id, NNdpkg_id, CCbuild_type );
+	END IF;
-END Set_Package_Build_Env;
+END Update_Package_Dependency;
+/
 --------------------------------------------------------
---  DDL for Procedure SHIFT_INSTALL_ORDER
+--  DDL for Procedure UPDATE_PACKAGE_STATES
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "SHIFT_INSTALL_ORDER" ( nPatchId IN PACKAGE_PATCHES.PATCH_ID%TYPE,
+  CREATE OR REPLACE PROCEDURE "UPDATE_PACKAGE_STATES" ( NNrtag_id IN NUMBER,
+                                                    NNsession_num IN NUMBER ) IS
+/* =============  STATE RULES =================== */
+/*
+   MNR   MRR   MN   MR    |   pkg_state
+   ------------------------------------
+0     0     0   |      OK
+0     0     1   |      MAJOR
+0     1     0   |      MINOR
+0     1     1   |      MAJOR
+   ------------------------------------
-												  nPvId IN PACKAGE_PATCHES.PV_ID%TYPE,
+1     0     0   |      MAJOR_READY
+1     0     1   |      MAJOR
+1     1     0   |      MAJOR
+1     1     1   |      MAJOR
+   ------------------------------------
-                                                  nToInstallOrder IN PACKAGE_PATCHES.INSTALL_ORDER%TYPE ) IS
+0     0     0   |      MINOR_READY
+0     0     1   |      MAJOR
+0     1     0   |      MINOR
+0     1     1   |      MAJOR
+   ------------------------------------
+1     0     0   |      MAJOR_READY
+1     0     1   |      MAJOR
+1     1     0   |      MAJOR
+1     1     1   |      MAJOR
+   ------------------------------------
+*/
+BEGIN
-/* ---------------------------------------------------------------------------
+    /*----------------------------------------------
-    Version: 3.0
+    ||              MINOR READY
-   --------------------------------------------------------------------------- */
+    */----------------------------------------------
+    UPDATE release_content
-currInstallOrder NUMBER;
+       SET pkg_state = 4
-FromInstallOrder NUMBER;
+     WHERE rtag_id = NNrtag_id
+       AND pv_id IN
+           (
+           SELECT DISTINCT pv_id
+           FROM temp_env_states
+           WHERE session_num = NNsession_num
+             AND level_num = 1
+             AND tes_state = 2
+           );
+    /*----------------------------------------------
+    ||              MAJOR READY
+    */----------------------------------------------
+    UPDATE release_content
+       SET pkg_state = 3
+     WHERE rtag_id = NNrtag_id
+       AND pv_id IN
-BEGIN
+           (
+           SELECT DISTINCT pv_id
+           FROM temp_env_states
+           WHERE session_num = NNsession_num
+             AND level_num = 1
+             AND tes_state IN (0,1)
+           );
+    /*----------------------------------------------
-	 -- Get Current Install Order
+    ||                MINOR
-     SELECT pp.INSTALL_ORDER INTO currInstallOrder
+    */----------------------------------------------
+    UPDATE release_content
-       FROM PACKAGE_PATCHES pp
+       SET pkg_state = 2
-      WHERE pp.PV_ID = nPvId
+     WHERE rtag_id = NNrtag_id
+       AND pv_id IN
+           (
+           SELECT DISTINCT pv_id
+            FROM temp_env_states
+            WHERE session_num = NNsession_num
+              AND level_num >= 2
+              AND tes_state = 2
+            MINUS
+           SELECT pv_id
+             FROM release_content
-        AND pp.PATCH_ID = nPatchId;
+            WHERE rtag_id = NNrtag_id
+              AND pkg_state = 3
+           );
+    /*----------------------------------------------
+    ||                MAJOR
+    */----------------------------------------------
+    UPDATE release_content
+       SET pkg_state = 1
+     WHERE rtag_id = NNrtag_id
+       AND pv_id IN
+           (
+           SELECT DISTINCT pv_id
+           FROM temp_env_states
+           WHERE session_num = NNsession_num
+             AND level_num >= 2
+             AND tes_state IN (0,1)
+           /* MAJOR EXCEPTION - When package has Major Ready and Minor */
+           UNION
+           SELECT DISTINCT tes.pv_id
+           FROM temp_env_states tes,
+                release_content rc
+           WHERE tes.session_num = NNsession_num
+             AND tes.level_num >= 2
+             AND tes.tes_state = 2
+             AND rtag_id = NNrtag_id
+             AND rc.pv_id = tes.pv_id
+             AND rc.pkg_state = 3
+           );
+    /*----------------------------------------------
+    ||                 OK
+    */----------------------------------------------
+    UPDATE release_content
+       SET pkg_state = 0
-	 IF currInstallOrder > nToInstallOrder
+     WHERE rtag_id = NNrtag_id
+       AND pv_id IN
-	 THEN
+           (
+           SELECT rc.pv_id
+             FROM release_content rc
+            WHERE rc.rtag_id = NNrtag_id
+              AND NOT rc.pv_id IN
+                    (
+                     SELECT DISTINCT pv_id
+                     FROM temp_env_states WHERE session_num = NNsession_num
+                    )
+           );
-		FromInstallOrder := nToInstallOrder;
+      Update_Deprecation_State (NNrtag_id);
+    /*----------------------------------------------
+    ||              PEGGED VERSIONS DEPENDENT
+    */----------------------------------------------
+    UPDATE release_content
-	    -- Shift others Up
+       SET pkg_state = 10
-		UPDATE PACKAGE_PATCHES pp SET
+     WHERE rtag_id = NNrtag_id
-			   pp.INSTALL_ORDER = pp.INSTALL_ORDER + 1
+       AND pv_id IN
+           (
-		 WHERE pp.PV_ID = nPvId
+           SELECT DISTINCT pv_id
-           AND pp.PATCH_ID != nPatchId
+           FROM pegged_versions pegv
-		   AND pp.INSTALL_ORDER BETWEEN  FromInstallOrder  AND  currInstallOrder - 1;
+           WHERE pegv.rtag_id = NNrtag_id
+           );
+    /*----------------------------------------------
+    ||              ADVISORY RIPPLE
+    */----------------------------------------------
+    UPDATE release_content
+       SET pkg_state = 8
+     WHERE rtag_id = NNrtag_id
+       AND pv_id IN
+           (
+           SELECT DISTINCT pv_id
+           FROM advisory_ripple ar
+           WHERE ar.rtag_id = NNrtag_id
+           )
+       AND pv_id IN
+           (
+           SELECT DISTINCT pv_id
+           FROM release_content rc
+           WHERE rc.rtag_id = NNrtag_id
+           );
-	 ELSIF currInstallOrder < nToInstallOrder
+END Update_Package_States;
-	 THEN
+/
+--------------------------------------------------------
+--  DDL for Procedure UPDATE_PROCESSES
+--------------------------------------------------------
-		FromInstallOrder := currInstallOrder + 1;
+  CREATE OR REPLACE PROCEDURE "UPDATE_PROCESSES"
+IS
-		-- Shift others Down
+proc_id NUMBER;
+/******************************************************************************
-        UPDATE PACKAGE_PATCHES pp SET
+   NAME:       DELETE_DO_NOT_RIPPLE
-			   pp.INSTALL_ORDER = pp.INSTALL_ORDER - 1
+   PURPOSE:    TO DELETE ENTRIES FROM THE DO_NOT_RIPPLE TABLE WHEN A PACKAGE
-		 WHERE pp.PV_ID = nPvId
-           AND pp.PATCH_ID != nPatchId
+               IS RELEASED
-		   AND pp.INSTALL_ORDER BETWEEN  FromInstallOrder  AND  nToInstallOrder;
-	 END IF;
+   REVISIONS:
+   Ver        Date        Author           Description
+   ---------  ----------  ---------------  ------------------------------------
+.0        21/04/2006  Rupesh Solanki     1. Created this procedure.
+   NOTES:
-	 -- Move Patch to new install order
+   Automatically available Auto Replace Keywords:
-     UPDATE PACKAGE_PATCHES pp SET
+      Object Name:     DELETE_DO_NOT_RIPPLE
-		    pp.INSTALL_ORDER = nToInstallOrder
+      Sysdate:         21/04/2006
+      Date and Time:   21/04/2006, 3:21:55 PM, and 21/04/2006 3:21:55 PM
-	  WHERE pp.PV_ID = nPvId
+      Username:         (set in TOAD Options, Procedure Editor)
-	    AND pp.PATCH_ID = nPatchId;
+      Table Name:       (set in the "New PL/SQL Object" dialog)
+******************************************************************************/
+   CURSOR ripple_cur
+   IS
+      select proc_id,  proc_name, run_as, pkg_owner, is_interface from processes;
+   ripple_rec   ripple_cur%ROWTYPE;
+BEGIN
+   OPEN ripple_cur;
+   FETCH ripple_cur
+    INTO ripple_rec;
+   WHILE ripple_cur%FOUND
+   LOOP
+update deployment_manager.processes_config
+set proc_id = ripple_rec.proc_id
+where pkg_health_tag = ripple_rec.proc_name
+and cmd_interface IS NULL
+and pkg_owner IS NULL
+and is_interface IS NULL;
+      FETCH ripple_cur
-END Shift_Install_Order;
+       INTO ripple_rec;
+   END LOOP;
+END UPDATE_PROCESSES;
+/
 --------------------------------------------------------
---  DDL for Procedure NEW_PACKAGE_NAME
+--  DDL for Procedure UPDATE_RUNTIME_DEPENDENCY
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "NEW_PACKAGE_NAME" ( SSpkg_name IN PACKAGES.pkg_name%TYPE,
+  CREATE OR REPLACE PROCEDURE "UPDATE_RUNTIME_DEPENDENCY" ( NNpv_id IN RUNTIME_DEPENDENCIES.pv_id%TYPE,
-                                               retPKG_ID OUT NUMBER ) IS
+				   	  		  						    NNrtd_id IN RUNTIME_DEPENDENCIES.rtd_id%TYPE,
+				   	  		  						    SSrtd_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
+													    SSrtd_url IN RUNTIME_DEPENDENCIES.rtd_url%TYPE,
+													    SSrtd_comments IN RUNTIME_DEPENDENCIES.rtd_comments%TYPE,
+													    NNuser_id IN NUMBER ) IS
 /* ---------------------------------------------------------------------------
-    Version: 3.0.0
+    Version: 3.0.1
    --------------------------------------------------------------------------- */
+    retRTD_ID	NUMBER;
+	CURSOR rtd_cur IS
+	    SELECT pv.pkg_version, pkg.pkg_name
+		  FROM runtime_dependencies rtd,
+		       package_versions pv,
+			   packages pkg
+		 WHERE rtd.rtd_id = pv.pv_id
+		   AND pv.pkg_id = pkg.pkg_id
+		   AND rtd.pv_id = NNpv_id
+		   AND rtd.rtd_id = NNrtd_id;
+	   rtd_rec rtd_cur%ROWTYPE;
-    CURSOR packages_cur IS
+	CURSOR old_rtd_cur IS
-        SELECT pkg.pkg_id
+	    SELECT pv.pv_id
+		  FROM package_versions pv
+		 WHERE pv.pkg_id IN ( SELECT rtdpv.pkg_id
-          FROM packages pkg
+		 	   			 	    FROM package_versions rtdpv
-         WHERE pkg.pkg_name = SSpkg_name;
+							   WHERE rtdpv.pv_id = NNrtd_id )
+		   AND pv.pkg_version = SSrtd_version;
-    packages_rec packages_cur%ROWTYPE;
+	old_rtd_rec old_rtd_cur%ROWTYPE;
 BEGIN
-    /* ---------------------------------------------------- */
-    /* Find if package name exists                          */
+    -- Get current runtime dependency details
+	OPEN rtd_cur;
-    /* ---------------------------------------------------- */
+    FETCH rtd_cur INTO rtd_rec;
-    OPEN packages_cur;
-    FETCH packages_cur INTO packages_rec;
-    IF packages_cur%NOTFOUND
-    THEN
-        -- Create new pkg_name --
-        SELECT SEQ_PKG_ID.nextval INTO retPKG_ID FROM DUAL;
-        INSERT INTO packages ( pkg_id, pkg_name )
-        VALUES ( retPKG_ID, SSpkg_name );
+	IF rtd_rec.pkg_version != SSrtd_version THEN
+           -- Version has changed, hence create new runtime dependency --
+	    /* NOTE: You must create new version as updating just a version will affect
+		        all packages using this runtime dependency and user does not expect that.
+		        It is safer to create new version */
-    ELSE
+		OPEN old_rtd_cur;
-        retPKG_ID := packages_rec.pkg_id;
+		FETCH old_rtd_cur INTO old_rtd_rec;
-    END IF;
+		IF old_rtd_cur%NOTFOUND
+		THEN
+			-- Version not found, hence Create New version --
+    		Seed_Package_Names_Versions ( rtd_rec.pkg_name, SSrtd_version, NNuser_id, retRTD_ID );
+			-- Update runtime dependency table --
+			UPDATE runtime_dependencies SET
+				   rtd_id = retRTD_ID,
+				   rtd_url = SSrtd_url,
+				   rtd_comments = SSrtd_comments
-    CLOSE packages_cur;
+			 WHERE pv_id = NNpv_id
+			   AND rtd_id = NNrtd_id;
+		ELSE
+			-- Update runtime dependency table --
+			UPDATE runtime_dependencies SET
+				   rtd_id = old_rtd_rec.pv_id,
+				   rtd_url = SSrtd_url,
+				   rtd_comments = SSrtd_comments
+			 WHERE pv_id = NNpv_id
+			   AND rtd_id = NNrtd_id;
+		END IF;
+		CLOSE old_rtd_cur;
+	ELSE
+		--  Version has not changed, hence update everithing except	version --
+		UPDATE runtime_dependencies SET
+			   rtd_url = SSrtd_url,
+			   rtd_comments = SSrtd_comments
+		 WHERE pv_id = NNpv_id
+		   AND rtd_id = NNrtd_id;
+	END IF;
+	CLOSE rtd_cur;
-END New_Package_Name;
+END Update_Runtime_Dependency;
+/
 --------------------------------------------------------
---  DDL for Procedure REMOVE_RUNTIME
+--  DDL for Procedure UPDATE_UNIT_TEST
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "REMOVE_RUNTIME" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
+  CREATE OR REPLACE PROCEDURE "UPDATE_UNIT_TEST" ( nTest_id IN NUMBER,
+	   	  		  							   nTestTypeId IN UNIT_TESTS.TEST_TYPES_FK%TYPE,
+											   nPv_id IN NUMBER,
+											   nUserId IN NUMBER,
+	                                           sTest_summary IN UNIT_TESTS.TEST_SUMMARY%TYPE,
-											 nRuntimeId IN RUNTIME_DEPENDENCIES.RTD_ID%TYPE,
+											   sNumof_test IN UNIT_TESTS.NUMOF_TEST%TYPE,
+	                                           sCompletion_date IN VARCHAR2,
+											   sDpkg_path IN VARCHAR2,
+											   enumTEST_TYPE_AUTOMATIC IN NUMBER,
+											   sResults IN VARCHAR2,
+											   outFileName OUT VARCHAR2
-                                             nUserId IN NUMBER ) IS
+                                              ) IS
 /* ---------------------------------------------------------------------------
-    Version: 3.0
+    Version: 3.1.0
    --------------------------------------------------------------------------- */
+   	FILENAME_PREFIX CONSTANT VARCHAR2(50) := 'RM_UNIT_TEST';
+    ResultsURL UNIT_TESTS.RESULTS_URL%TYPE DEFAULT NULL;
+    ResultsAttachment UNIT_TESTS.RESULTS_ATTACHMENT_NAME%TYPE DEFAULT NULL;
-   RuntimeDependency VARCHAR2(4000);
 BEGIN
+       IF nTestTypeId = enumTEST_TYPE_AUTOMATIC THEN
-	-- Get Runtime dependency
+       	ResultsURL := sResults;
+       ELSE
+       	IF (sResults <> '') OR ( NOT sResults IS NULL ) THEN
+        	outFileName := FILENAME_PREFIX || nTest_id ||'_'|| sResults;
-    SELECT pkg.PKG_NAME ||' '|| pv.PKG_VERSION  INTO RuntimeDependency
+    		ResultsAttachment := sDpkg_path || '/' || outFileName;
-	  FROM RUNTIME_DEPENDENCIES rtd,
+           END IF;
-	  	   PACKAGES pkg,
+       END IF;
+	--- Update Unit Test ---
-	       PACKAGE_VERSIONS pv
+    UPDATE UNIT_TESTS SET
+           TEST_SUMMARY = sTest_summary,
+		   NUMOF_TEST = sNumof_test,
+           COMPLETION_DATE = TO_DATE( sCompletion_date,'DD/MM/YYYY' ),
-	 WHERE rtd.PV_ID = nPvId
+		   COMPLETED_BY = nUserId,
-	   AND pv.PKG_ID = pkg.PKG_ID
+		   RESULTS_URL = ResultsURL,
+		   RESULTS_ATTACHMENT_NAME = ResultsAttachment
-	   AND rtd.RTD_ID = pv.PV_ID
+     WHERE TEST_ID = nTest_id
-	   AND rtd.RTD_ID = nRuntimeId;
+       AND PV_ID = nPv_id;
+END Update_Unit_Test;
+/
+--------------------------------------------------------
+--  DDL for Procedure UPDATE_UNIT_TEST_ACCEPTANCE
+--------------------------------------------------------
+  CREATE OR REPLACE PROCEDURE "UPDATE_UNIT_TEST_ACCEPTANCE" ( pnTest_id IN NUMBER,
-	-- Delete Document
+														  pnPv_id IN NUMBER,
+					                                      sAccepted IN UNIT_TESTS.TEST_ACCEPTED%TYPE,
-    DELETE
+														  sAcceptanceDate IN VARCHAR2,
-      FROM RUNTIME_DEPENDENCIES rtd
+														  sAcceptedBy IN NUMBER,
+					                                      sReviewComments IN UNIT_TESTS.REVIEW_COMMENTS%TYPE,
-     WHERE rtd.PV_ID = nPvId
+														  cUpdateAcceptedStateOnly IN CHAR
-       AND rtd.RTD_ID = nRuntimeId;
+					                                     ) IS
+/* ---------------------------------------------------------------------------
+    Version: 3.0.0
+   --------------------------------------------------------------------------- */
-    /* LOG ACTION */
-   	Log_Action ( nPvId, 'runtime_remove', nUserId,
-   			     'Runtime package: '|| RuntimeDependency );
+BEGIN
+	IF cUpdateAcceptedStateOnly = 'Y'
+	THEN
+		--- Update Accepted State Only ---
+		IF ( sAccepted IS NULL )
+		THEN
+			-- Clear alleptance
+			UPDATE UNIT_TESTS SET
+		           TEST_ACCEPTED = NULL,
+		           ACCEPTANCE_DATE = NULL,
+				   ACCEPTED_BY = NULL,
+				   REVIEW_COMMENTS = NULL
+		     WHERE TEST_ID = pnTest_id
+		       AND PV_ID = pnPv_id;
+	    ELSE
+			UPDATE UNIT_TESTS SET
+		           TEST_ACCEPTED = sAccepted,
+		           ACCEPTANCE_DATE = TO_DATE( sAcceptanceDate,'DD/MM/YYYY' ),
+				   ACCEPTED_BY = sAcceptedBy
+		     WHERE TEST_ID = pnTest_id
+		       AND PV_ID = pnPv_id;
+		END IF;
+	ELSE
+		--- Update Unit Test Acceptance ---
+	    UPDATE UNIT_TESTS SET
+	           TEST_ACCEPTED = sAccepted,
+			   REVIEW_COMMENTS = sReviewComments,
+	           ACCEPTANCE_DATE = TO_DATE( sAcceptanceDate,'DD/MM/YYYY' ),
+			   ACCEPTED_BY = sAcceptedBy
+	     WHERE TEST_ID = pnTest_id
+	       AND PV_ID = pnPv_id;
+	END IF;
-END Remove_Runtime;
+END Update_Unit_Test_Acceptance;
+/
 --------------------------------------------------------
---  DDL for Procedure CHANGE_PACKAGE_STATE
+--  DDL for Procedure UPDATE_UNIT_TEST_TEST
 --------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "CHANGE_PACKAGE_STATE" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
+  CREATE OR REPLACE PROCEDURE "UPDATE_UNIT_TEST_TEST" ( nTest_id IN NUMBER,
-											 nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE ) IS
+	   	  		  							   nTestTypeId IN UNIT_TESTS.TEST_TYPES_FK%TYPE,
+											   nPv_id IN NUMBER,
+											   nUserId IN NUMBER,
+	                                           sTest_summary IN UNIT_TESTS.TEST_SUMMARY%TYPE,
+											   sNumof_test IN UNIT_TESTS.NUMOF_TEST%TYPE,
+	                                           sCompletion_date IN VARCHAR2,
+											   sDpkg_path IN VARCHAR2,
+											   enumTEST_TYPE_AUTOMATIC IN NUMBER,
+											   sResults IN VARCHAR2,
+											   outFileName OUT VARCHAR2
+                                              ) IS
 /* ---------------------------------------------------------------------------
-    Version: 4.0
+    Version: 3.1.0
    --------------------------------------------------------------------------- */
+   	FILENAME_PREFIX CONSTANT VARCHAR2(50) := 'RM_UNIT_TEST';
+    ResultsURL UNIT_TESTS.RESULTS_URL%TYPE DEFAULT NULL;
+    ResultsAttachment UNIT_TESTS.RESULTS_ATTACHMENT_NAME%TYPE DEFAULT NULL;
 BEGIN
-    -- Unlock Package
+       IF nTestTypeId = enumTEST_TYPE_AUTOMATIC THEN
-    UPDATE RELEASE_CONTENT rc SET
+       	ResultsURL := sResults;
-    	rc.PKG_STATE = 0
+       ELSE
+       	IF (sResults <> '') OR ( NOT sResults IS NULL ) THEN
+        	outFileName := FILENAME_PREFIX || nTest_id ||'_'|| sResults;
+    		ResultsAttachment := sDpkg_path || '/' || outFileName;
-    WHERE rc.PV_ID = nPvId
+           END IF;
-	AND rc.RTAG_ID = nRtagId;
+       END IF;
+       /*	IF (sResults <> '') OR ( NOT sResults IS NULL ) THEN
+        	outFileName := FILENAME_PREFIX || newID ||'_'|| sResults;
+    		sResults_url:= 'doc' || '/' ||
+			;
-    /* LOG ACTION */
+        END IF;*/
+	--- Update Unit Test ---
+    UPDATE UNIT_TESTS SET
+           TEST_SUMMARY = sTest_summary,
+		   NUMOF_TEST = sNumof_test,
-   /*	Log_Action ( nPvId, 'unlock_package', nUserId );*/
+           COMPLETION_DATE = TO_DATE( sCompletion_date,'DD/MM/YYYY' ),
+		   COMPLETED_BY = nUserId,
+		   RESULTS_URL = ResultsURL,
+		   RESULTS_ATTACHMENT_NAME = ResultsAttachment
+     WHERE TEST_ID = nTest_id
+       AND PV_ID = nPv_id;
-END Change_Package_State;
+END Update_Unit_Test_Test;
+/

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/branches/dpurdie/database/Relman_export.sql – Rev 2546 → 3889