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

 --------------------------------------------------------
 --  File created - Thursday-September-06-2012
 --------------------------------------------------------
 --------------------------------------------------------
 --  DDL for Function ORA_SYSDATE
 --------------------------------------------------------
   CREATE OR REPLACE FUNCTION "ORA_SYSDATE"
 RETURN DATE
 IS
 /* ---------------------------------------------------------------------------
    --------------------------------------------------------------------------- */
 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
 	-- 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
 /* ---------------------------------------------------------------------------
     Version: 3.0.0
 		RETURN 1;
 	END IF;
 END CAN_EDIT_PKG_IN_PROJECT;
 /
 --------------------------------------------------------
 --  DDL for Function GET_PV_FIRST_MODIFIED
 --------------------------------------------------------
   CREATE OR REPLACE FUNCTION "GET_PV_FIRST_MODIFIED" (v_pv_id NUMBER) RETURN DATE IS
   ret DATE;
 BEGIN
   SELECT q.modified_stamp
     AND rownum = 1
   ORDER BY q.lvl;
   RETURN ret;
 END;
 /
 --------------------------------------------------------
 --  DDL for Function GET_BUILD_NUMBER
 --------------------------------------------------------
   CREATE OR REPLACE FUNCTION "GET_BUILD_NUMBER" (s_version IN VARCHAR2) RETURN VARCHAR2
 IS
 /* ---------------------------------------------------------------------------
     Version: 1.0.0
         RETURN MOD(TO_NUMBER(s_version), 1000);
     ELSE
         RETURN 0;
     END IF;
 END get_build_number;
 /
 --------------------------------------------------------
 --  DDL for Function ORA_SYSDATETIME
 --------------------------------------------------------
   CREATE OR REPLACE FUNCTION "ORA_SYSDATETIME"
 RETURN DATE
 IS
 /* ---------------------------------------------------------------------------
    --------------------------------------------------------------------------- */
 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
 --------------------------------------------------------
   CREATE OR REPLACE FUNCTION "IS_VERSION_EXTENSION" (SSV_EXT PACKAGE_VERSIONS.V_EXT%TYPE) RETURN BOOLEAN
 IS
 /* ---------------------------------------------------------------------------
     Version: 3.0.0
     ELSE
         RETURN TRUE;
     END IF;
 END IS_VERSION_EXTENSION;
 /
 --------------------------------------------------------
 --  DDL for Function IS_NUMBER
 --------------------------------------------------------
   CREATE OR REPLACE FUNCTION "IS_NUMBER" (p_val IN VARCHAR2) RETURN BOOLEAN
 IS
    temp_num NUMBER;
 /* ---------------------------------------------------------------------------
    temp_num := TO_NUMBER(p_val);
    RETURN true;
 EXCEPTION WHEN VALUE_ERROR THEN
    RETURN false;
 END IS_NUMBER;
 /
 --------------------------------------------------------
 --  DDL for Function GET_PATCH_VERSION
 --------------------------------------------------------
   CREATE OR REPLACE FUNCTION "GET_PATCH_VERSION" (s_version IN VARCHAR2) RETURN VARCHAR2
 IS
 /* ---------------------------------------------------------------------------
     Version: 1.0.0
         RETURN FLOOR(TO_NUMBER(s_version) / 1000);
     ELSE
         RETURN s_version;
     END IF;
 END get_patch_version;
 /
 --------------------------------------------------------
 --  DDL for Function IN_LIST_NUMBER2
 --------------------------------------------------------
   CREATE OR REPLACE FUNCTION "IN_LIST_NUMBER2" ( sInList IN VARCHAR2 ) RETURN RELMGR_NUMBER_TAB_t IS
 /* ---------------------------------------------------------------------------
     Version: 3.0.0
 		END LOOP;
 	END IF;
 	RETURN sync_rtags;
 END IN_LIST_NUMBER2;
 /
 --------------------------------------------------------
 --  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
 --------------------------------------------------------
   CREATE OR REPLACE FUNCTION "IN_LIST_NUMBER" ( sInList IN VARCHAR2 ) RETURN RELMGR_NUMBER_TAB_t IS
 /* ---------------------------------------------------------------------------
     Version: 3.0.0
 		END LOOP;
 	END IF;
 	RETURN sync_rtags;
 END IN_LIST_NUMBER;
 /
 --------------------------------------------------------
 --  DDL for Function RELEASE_MODE
 --------------------------------------------------------
   CREATE OR REPLACE FUNCTION "RELEASE_MODE" ( nRtagId IN NUMBER ) RETURN CHAR IS
 /* ---------------------------------------------------------------------------
     Version: 3.0.0
 	 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
         -- NO dot separator found --
         RETURN NULL;
     END IF;
 END GET_V_EXT;
 /
 --------------------------------------------------------
 --  DDL for Function IN_LIST_VARCHAR2
 --------------------------------------------------------
   CREATE OR REPLACE FUNCTION "IN_LIST_VARCHAR2" ( sInList IN VARCHAR2, cSeparator IN VARCHAR2 ) RETURN RELMGR_VARCHAR2_TAB_t IS
 /* ---------------------------------------------------------------------------
     Version: 3.1
 		END LOOP;
 	END IF;
 	RETURN cItemCollection;
 END IN_LIST_VARCHAR2;
 /
 --------------------------------------------------------
 --  DDL for Package PK_PROJECT
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "PK_PROJECT" IS
     TYPE typecur IS REF CURSOR;
     sjirakey  IN  VARCHAR2
     );
     /*------------------------------------------------------------------------*/
     END pk_project;
 /
 --------------------------------------------------------
 --  DDL for Package PK_PACKAGE
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "PK_PACKAGE"
 IS
 /*
 ------------------------------
    PROCEDURE remove_code_review_url (
         ncrid           IN    NUMBER
    );
 /*================================================================================================*/
 END pk_package;
 /
 --------------------------------------------------------
 --  DDL for Package RM_ISSUES
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "RM_ISSUES" AS
 	TYPE T_Cur IS REF CURSOR;
 	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 PK_APP_UTILS
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "PK_APP_UTILS" IS
 /*
 ------------------------------
 ||  Last Modified:  S.Vukovic
 	PROCEDURE GET_CURRENT_PARAMETERS ( ProjId IN VARCHAR2, RtagId IN VARCHAR2, records OUT typeCur);
 	/*================================================================================================*/
 END PK_APP_UTILS;
 /
 --------------------------------------------------------
 --  DDL for Package PK_RMAPI_TEST
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "PK_RMAPI_TEST"
 IS
    TYPE typecur IS REF CURSOR;
    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;
-/* 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,
       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,
    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);
 END pk_rmapi;
 /
 --------------------------------------------------------
 --  DDL for Package PK_BUILDAPI
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "PK_BUILDAPI"
 IS
    /*================================================================================================*/
    PROCEDURE add_product_component (
       smachine_hostname      IN   VARCHAR2,
       ngbeid                 IN   NUMBER,
       sdescription           IN   VARCHAR2
    );
 END pk_buildapi;
 /
 --------------------------------------------------------
 --  DDL for Package PK_BUILDAPI_TEST
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "PK_BUILDAPI_TEST" IS
 /*
 ------------------------------
 ||  Last Modified:  S.Vukovic
 	/*================================================================================================*/
     PROCEDURE ADD_DAEMON ( sDaemonHostname IN VARCHAR2, nRtagId IN NUMBER, nGbeId IN NUMBER );
 	/*================================================================================================*/
 END PK_BUILDAPI_TEST;
 /
 --------------------------------------------------------
 --  DDL for Package PK_PACKAGE_TEST
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "PK_PACKAGE_TEST"
 IS
 /*
 ------------------------------
 	  nstateid IN product_states.state_id%TYPE,
 	  nuserid IN NUMBER
    );
 /*================================================================================================*/
 END pk_package_Test;
 /
 --------------------------------------------------------
 --  DDL for Package PK_PLANNED
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "PK_PLANNED" IS
 /*
 ------------------------------
 ||  Last Modified:  G.Huddy
 	PROCEDURE CHANGE_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER, NewViewId IN NUMBER );
 	PROCEDURE MERGE_PACKAGE ( newPvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER, mergeOperation IN CHAR);
 	/*================================================================================================*/
 END PK_PLANNED;
 /
 --------------------------------------------------------
 --  DDL for Package PK_ENVIRONMENT_TEST
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "PK_ENVIRONMENT_TEST" IS
 /*
 ------------------------------
 ||  Last Modified:  Rupesh Solanki
 	PROCEDURE GET_REJECT_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
 	/*================================================================================================*/
 END PK_ENVIRONMENT_test;
 /
 --------------------------------------------------------
 --  DDL for Package PK_ENVIRONMENT
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "PK_ENVIRONMENT" IS
 /*
 ------------------------------
 ||  Last Modified:  G.Huddy
 	PROCEDURE GET_REJECT_ITEMS ( RtagId IN NUMBER, nTrueRecordCount OUT NUMBER, RecordSet OUT typeCur );
 	/*================================================================================================*/
 END PK_ENVIRONMENT;
 /
 --------------------------------------------------------
 --  DDL for Package PK_RELEASE
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "PK_RELEASE" IS
 /*
 ------------------------------
 ||  Last Modified:  S.Vukovic
 	PROCEDURE CAN_USER_WRITE_TO_RELEASE ( RtagId IN NUMBER, PvId IN NUMBER, Permission IN CHAR );
 	/*================================================================================================*/
 END PK_RELEASE;
 /
 --------------------------------------------------------
 --  DDL for Package PK_WORK_IN_PROGRESS
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "PK_WORK_IN_PROGRESS" IS
 /*
 ------------------------------
 ||  Last Modified:  S.Vukovic
 	PROCEDURE GET_VIEW_CONTENT ( RtagId IN NUMBER, ViewId IN NUMBER, RecordSet OUT typeCur );
 	PROCEDURE CHANGE_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER, NewViewId IN NUMBER );
 	/*================================================================================================*/
 END PK_WORK_IN_PROGRESS;
 /
 --------------------------------------------------------
 --  DDL for Package PK_LICENCING
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "PK_LICENCING" IS
 /*
 ------------------------------
 ||  Last Modified:  G.Huddy
    FUNCTION  IS_LICENCED( PvId IN NUMBER, licenceId IN NUMBER) RETURN NUMBER;
    PROCEDURE REMOVE_ALL_LICENCING( PvId IN NUMBER, UserId IN NUMBER );
    /*================================================================================================*/
 END PK_LICENCING;
 /
 --------------------------------------------------------
 --  DDL for Package PK_ARCHIVE
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "PK_ARCHIVE"
 IS
 /*
 ------------------------------
       nuserid   IN   NUMBER,
       nrtagid   IN   release_tags.rtag_id%TYPE
    );
 /*================================================================================================*/
 END pk_archive;
 /
 --------------------------------------------------------
 --  DDL for Package PK_RELEASE_TEST
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE "PK_RELEASE_TEST" IS
 /*
 ------------------------------
 ||  Last Modified:  S.Vukovic
 	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;
 /
 --------------------------------------------------------
 --  DDL for Package Body PK_PLANNED
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE BODY "PK_PLANNED" IS
 /*
 ------------------------------
       END IF;
 END;
 /*-------------------------------------------------------------------------------------------------------*/
 END PK_PLANNED;
 /
 --------------------------------------------------------
 --  DDL for Package Body PK_RMAPI
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE BODY "PK_RMAPI"
 IS
    /*-------------------------------------------------------------------------------------------------------*/
       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,
+      vcstag                   IN   VARCHAR2,
       dependenciesimportlist   IN   VARCHAR2,
       isrippled                IN   NUMBER,
       username                 IN   VARCHAR2
+   )
       RETURN NUMBER
       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)  := '^';
                    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_srcpath := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Anything, ReplaceToken2);
-                x_label   := 'N/A';
+                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 x_srcpath = vcstag THEN
+                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 := '';
+                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;
          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
+               -- 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
+                  SELECT pv.pv_id, pv.src_path
-                    INTO clonefrompvid
+                    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
+                  SELECT pv.pv_id, pv.src_path
-                    INTO clonefrompvid
+                    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
       ELSE
          /* Auto build from Pending area */
          -- Find package in pending area
          BEGIN
-            SELECT pv.pv_id, pv.dlocked
+            SELECT pv.pv_id, pv.dlocked, pv.src_path
-              INTO pvid, dlocked
+              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
          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);
       -- 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;
+            RETURN vcstag || '::' || srcpath || '::' || label;
          ELSE
             RETURN vcstag || '::';
       END CASE;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
+/*-------------------------------------------------------------------------------------------------------
+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.
+Paramters:
+             ipv_id:     Package version identifier
+             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;
 END pk_rmapi;
 /
 --------------------------------------------------------
 --  DDL for Package Body PK_BUILDAPI
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE BODY "PK_BUILDAPI"
 IS
    /*-------------------------------------------------------------------------------------------------------*/
    PROCEDURE add_product_component (
          raise_application_error (-20000,
                                  'Cannot have duplicate machines.'
                                  );
    END;
 END pk_buildapi;
 /
 --------------------------------------------------------
 --  DDL for Package Body PK_PACKAGE
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE BODY "PK_PACKAGE"
 IS
    /*-------------------------------------------------------------------------------------------------------*/
    PROCEDURE new_version (
       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
    /*-------------------------------------------------------------------------------------------------------*/
    END;
 /*-------------------------------------------------------------------------------------------------------*/
 END pk_rmapi_test;
 /
 --------------------------------------------------------
 --  DDL for Package Body PK_LICENCING
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE BODY "PK_LICENCING" IS
 /*
 ------------------------------
       END LOOP;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
 END PK_LICENCING;
 /
 --------------------------------------------------------
 --  DDL for Package Body RM_ISSUES
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE BODY "RM_ISSUES" AS
 -- Private Implementation -----------------------------------------------------
 			no exception handling required
 	*/
 	END;
 END Rm_Issues;
 /
 --------------------------------------------------------
 --  DDL for Package Body PK_RELEASE_TEST
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE BODY "PK_RELEASE_TEST" IS
 /*
 END;
 /*-------------------------------------------------------------------------------------------------------*/
 END PK_RELEASE_TEST;
 /
 --------------------------------------------------------
 --  DDL for Package Body PK_APP_UTILS
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE BODY "PK_APP_UTILS" IS
 /*
 ------------------------------
    	--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
 END;
 /*-------------------------------------------------------------------------------------------------------*/
 END PK_RELEASE;
 /
 --------------------------------------------------------
 --  DDL for Package Body PK_PROJECT
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE BODY "PK_PROJECT" IS
     /*------------------------------------------------------------------------*/
     PROCEDURE update_base_url (
     END update_project_config;
     /*------------------------------------------------------------------------*/
     END pk_project;
 /
 --------------------------------------------------------
 --  DDL for Package Body PK_ENVIRONMENT
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE BODY "PK_ENVIRONMENT"
 IS
    /*-------------------------------------------------------------------------------------------------------*/
      -- Log
      log_action (pvid, 'action', userid, 'End of Package Merge...');
   END;
 /*-------------------------------------------------------------------------------------------------------*/
 END pk_environment;
 /
 --------------------------------------------------------
 --  DDL for Package Body PK_WORK_IN_PROGRESS
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE BODY "PK_WORK_IN_PROGRESS" IS
 /*
 ------------------------------
 	  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
 /*
 ------------------------------
                    'Release has been archived to the ARCHIVE_MANAGER schema'
                   );
    END;
 /*-------------------------------------------------------------------------------------------------------*/
 END pk_archive;
 /
 --------------------------------------------------------
 --  DDL for Package Body PK_PACKAGE_TEST
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE BODY "PK_PACKAGE_TEST"
 IS
 /*
 ------------------------------
   END;
 /*-------------------------------------------------------------------------------------------------------*/
 END pk_package_Test;
 /
 --------------------------------------------------------
 --  DDL for Package Body PK_ENVIRONMENT_TEST
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE BODY "PK_ENVIRONMENT_TEST"
 IS
 /*
 ------------------------------
               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
 --------------------------------------------------------
   CREATE OR REPLACE PACKAGE BODY "PK_BUILDAPI_TEST" IS
 /*
 ------------------------------
 END;
 /*-------------------------------------------------------------------------------------------------------*/
 END PK_BUILDAPI_TEST;
 /
 --------------------------------------------------------
 --  DDL for Procedure ADD_AUTOBUILD_FAILURE_INFO
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "ADD_AUTOBUILD_FAILURE_INFO" (
    nprojid     IN   NUMBER,
    nviewid     IN   NUMBER,
    suserlist   IN   VARCHAR2
                      );
    END;
    add_view_members (groupid, suserlist);
 END add_autobuild_failure_info;
 /
 --------------------------------------------------------
 --  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,
     /* LOG ACTION */
    	/*Log_Action ( nPkgId, 'deprecated_package', nUserId );*/
 END Deprecate_Package;
 /
 --------------------------------------------------------
 --  DDL for Procedure LOG_PROJECT_ACTION
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "LOG_PROJECT_ACTION" ( nProjId IN NUMBER,
 												 enumActionTypeName IN VARCHAR2,
 		                                         nUserId IN NUMBER,
 												 sAdditionalComments IN VARCHAR2 DEFAULT NULL,
     INSERT INTO PROJECT_ACTION_LOG ( USER_ID, ACTION_DATETIME, PROJ_ID, DESCRIPTION, ACTTYPE_ID, RTAG_ID)
     VALUES ( nUserId, ORA_SYSDATETIME, nProjId, sAdditionalComments, ActionTypeId, nRtagId);
 END Log_Project_Action;
 /
 --------------------------------------------------------
 --  DDL for Procedure RIPPLE_PACKAGE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "RIPPLE_PACKAGE" (
         sPvIdList IN VARCHAR2,
         nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE,
         nUserId IN NUMBER
     /* LOG ACTION */
     Log_Action_Bulk ( sPvIdList, 'ripple_package', nUserId );
 END Ripple_Package;
 /
 --------------------------------------------------------
 --  DDL for Procedure DT_SETPROPERTYBYID
 --------------------------------------------------------
   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 BASIC_CLONE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "BASIC_CLONE" ( nFROMpv_id IN NUMBER,
                         nTOpv_id IN NUMBER,
                         nRtag_id IN NUMBER,
                         nUser_id IN NUMBER,
                  'Details cloned from: '|| FromVersion );
 ---------------------------------------------------------------------------------------------------------------
 END Basic_Clone;
 /
 --------------------------------------------------------
 --  DDL for Procedure UPDATE_UNIT_TEST
 --------------------------------------------------------
   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,
 		   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
+)
 	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,
                            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
 /* ---------------------------------------------------------------------------
     Version: 3.0.0
    --------------------------------------------------------------------------- */
 	 --- Delete From RELEASE_COMPONENTS
 	 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,
 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,
 												  nUserId IN NUMBER
 	   	  		  								  ) IS
 	 VALUES(nProjId, nPkgId, nUserId);
 	END LOOP;
 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
     /* 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
 	 );
 END REMOVE_PROJECT_VIEW_OWNER;
 /
 --------------------------------------------------------
 --  DDL for Procedure DEPLOY_TO_RELEASE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "DEPLOY_TO_RELEASE" IS
 /******************************************************************************
 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
           rt.REBUILD_ENV = 'Y',
           rt.REBUILD_STAMP = 0
     WHERE rt.RTAG_ID = nRtagId;
 END Touch_Release;
 /
 --------------------------------------------------------
 --  DDL for Procedure UNRIPPLE_PACKAGE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "UNRIPPLE_PACKAGE" (
         sPvIdList IN VARCHAR2,
         nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE,
         nUserId IN NUMBER
     /* 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,
     /* LOG ACTION */
     Log_Action ( nPvId, 'unripple_package', nUserId, 'Location: '|| ReleaseLocation );
 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
 	END LOOP;
 	CLOSE curInfo;
 END TO_INSERT_VTREE_ID;
 /
 --------------------------------------------------------
 --  DDL for Procedure CHANGE_RELEASE_MODE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "CHANGE_RELEASE_MODE" ( nModeCode IN NUMBER, nRtagId IN NUMBER, UserId IN NUMBER ) IS
 /* ---------------------------------------------------------------------------
     Version: 3.0.0
    --------------------------------------------------------------------------- */
 	END IF;
 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,
 		   RESULTS_ATTACHMENT_NAME = ResultsAttachment
      WHERE TEST_ID = nTest_id
        AND PV_ID = nPv_id;
 END Update_Unit_Test_Test;
 /
 --------------------------------------------------------
 --  DDL for Procedure NEW_VERSION
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "NEW_VERSION" ( NNorig_pv_id IN NUMBER,
                                           SSpkg_version IN PACKAGE_VERSIONS.pkg_version%TYPE DEFAULT NULL,
                                           NNsetto_pv_id IN NUMBER DEFAULT NULL,
                                           NNrtag_id IN NUMBER,
 	END IF;
 END New_Version;
 /
 --------------------------------------------------------
 --  DDL for Procedure ADD_RUNTIME_DEPENDENCY
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "ADD_RUNTIME_DEPENDENCY" ( NNpv_id IN NUMBER,
                                                      SSrtd_name IN PACKAGES.pkg_name%TYPE,
                                                      SSrtd_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
                                                      NNuser_id IN NUMBER
 	END IF;
 END Add_Runtime_Dependency;
 /
 --------------------------------------------------------
 --  DDL for Procedure LEVEL_ONE_CONFLICTS
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "LEVEL_ONE_CONFLICTS" (
    nnrtag_id       IN   NUMBER,
    nnsession_num   IN   NUMBER
+)
                   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 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
 /* ---------------------------------------------------------------------------
 	END LOOP;
 	CLOSE sync_rtags_cur;
 END Sync_Projects_New_Version;
 /
 --------------------------------------------------------
 --  DDL for Procedure LOCK_PACKAGE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "LOCK_PACKAGE" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
 											 nUserId IN NUMBER ) IS
 /* ---------------------------------------------------------------------------
     Version: 4.0
     /* 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 =================== */
 /*
            FROM release_content rc
            WHERE rc.rtag_id = NNrtag_id
            );
 END Update_Package_States;
-/
---------------------------------------------------------
---  DDL for Procedure UPDATE_VCS_DETAILS
---------------------------------------------------------
-  CREATE OR REPLACE PROCEDURE "UPDATE_VCS_DETAILS" (ipv_id IN NUMBER, vcstag IN VARCHAR2, user_id IN NUMBER)
-/*-------------------------------------------------------------------------------------------------------
-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.
-Paramters:
-             ipv_id:     Package version identifier
-             vcstag:     Full version control tag.
-                         For example: "SVN::DPG_SWBase/tools/tags/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.
-*/
-   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
-       IF NOT REGEXP_LIKE(ssrc_path,'^([0-9a-z_\.\-]+)(\/([0-9a-z_\.\-]+))*(@[0-9]+|\/|)$','i') THEN
-         raise_application_error (-20000, 'Invalid SVN src path: ' || '"' || ssrc_path || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
-       END IF;
-       -- invalid trunk. ie .../trunk  or   .../trunk/...
-       IF REGEXP_LIKE(ssrc_path,'^.*\/trunk(\/.*)?$','i') THEN
-         raise_application_error (-20000, ' Invalid trunk. Invalid SVN src path: ' || '"' || ssrc_path || '"' || ' for package version: ' || ipv_id || ', vcstag: ' || '"' || vcstag || '"');
-       END IF;
-       -- Check for combined use of tags, branches, trunk@<number> or repeats of each
-       -- Count occurrences of /tags/ or /branches/ or /trunk@<number>
-       vcount:=0;
-       i:=1;
-       WHILE i > 0 LOOP
-         i:=REGEXP_INSTR(ssrc_path,'(\/tags(\/|$))|(\/branches(\/|$))|(\/trunk@[0-9]+$)',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@<number>, /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@<number>, /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;
 /
 --------------------------------------------------------
 --  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
 /* ---------------------------------------------------------------------------
    	Log_Action ( nPvId, 'document_remove', 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
         SSV_EXT := NULL;
     END IF;
 END Split_Version;
 /
 --------------------------------------------------------
 --  DDL for Procedure ADD_PACKAGE_INTEREST_TEST
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "ADD_PACKAGE_INTEREST_TEST" (nProjId IN PROJECTS.PROJ_ID%TYPE,
 	   	  		  								  nPkgIdList IN VARCHAR2,
 												  nUserId IN NUMBER
 	   	  		  								  ) IS
 	 VALUES(nProjId, nPkgId, nUserId);
 	END LOOP;
 END ADD_PACKAGE_INTEREST_TEST;
 /
 --------------------------------------------------------
 --  DDL for Procedure CLONED_PROCESSES
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "CLONED_PROCESSES"
 IS
 proc_id NUMBER;
       FETCH ripple_cur
        INTO ripple_rec;
    END LOOP;
 END CLONED_PROCESSES;
 /
 --------------------------------------------------------
 --  DDL for Procedure ADD_VIEW_MEMBERS
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "ADD_VIEW_MEMBERS" (nGroupId IN NUMBER, sUserList IN VARCHAR2) IS
 /******************************************************************************
    NAME:       ADD_VIEW_MEMBERS
 	 END LOOP;
 END ADD_VIEW_MEMBERS;
 /
 --------------------------------------------------------
 --  DDL for Procedure RESET_IGNORE_WARNINGS
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "RESET_IGNORE_WARNINGS" ( sPvIdList IN VARCHAR2,
                                                     nRTagId IN RELEASE_CONTENT.RTAG_ID%TYPE ) IS
 /* ---------------------------------------------------------------------------
     Version: 5.0
 	         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 ) ) )
          );
 END Reset_Ignore_Warnings;
 /
 --------------------------------------------------------
 --  DDL for Procedure INSERT_INTO_PACKAGE_BUILD_INFO
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "INSERT_INTO_PACKAGE_BUILD_INFO" IS
 /******************************************************************************
    NAME:       INSERT_INTO_PACKAGE_BUILD_INFO
 END INSERT_INTO_PACKAGE_BUILD_INFO;
 /
 --------------------------------------------------------
 --  DDL for Procedure UPDATE_ADDITIONAL_NOTE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "UPDATE_ADDITIONAL_NOTE" ( pnNote_id IN NUMBER,
 													 pnPv_id IN NUMBER,
                                                      psNote_title IN ADDITIONAL_NOTES.NOTE_TITLE%TYPE,
                                                      psNote_body IN ADDITIONAL_NOTES.NOTE_BODY%TYPE,
 		outErrCode := 0;		-- Set return to SUCCESS
 	END IF;
 	CLOSE an_duplicate_cur;
 END Update_Additional_Note;
 /
 --------------------------------------------------------
 --  DDL for Procedure NEW_UNIT_TEST
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "NEW_UNIT_TEST" ( nPv_id IN NUMBER,
                                             nTestTypeId IN UNIT_TESTS.TEST_TYPES_FK%TYPE,
                                             sTest_summary IN UNIT_TESTS.TEST_SUMMARY%TYPE,
                                             sNumOfTest IN UNIT_TESTS.NUMOF_TEST%TYPE,
            ResultsURL,
            ResultsAttachment,
 		   sNumOfTest );
 END New_Unit_Test;
 /
 --------------------------------------------------------
 --  DDL for Procedure SWITCH_REPRODUCIBLE_PACKAGE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "SWITCH_REPRODUCIBLE_PACKAGE" (nPvId IN NUMBER, nUserId IN NUMBER)IS
 Auto CHAR;
 /******************************************************************************
    NAME:       SWITCH_REPRODUCIBLE_PACKAGE
 END SWITCH_REPRODUCIBLE_PACKAGE;
 /
 --------------------------------------------------------
 --  DDL for Procedure LOG_DAEMON_ACTION
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "LOG_DAEMON_ACTION" ( nRconId IN NUMBER,
 												 enumActionTypeName IN VARCHAR2,
 		                                         nUserId IN NUMBER,
 												 sAdditionalComments IN VARCHAR2 DEFAULT NULL  ) IS
     INSERT INTO DAEMON_ACTION_LOG
     VALUES ( nUserId, ORA_SYSDATETIME, nRconId, sAdditionalComments, ActionTypeId );
 END Log_Daemon_Action;
 /
 --------------------------------------------------------
 --  DDL for Procedure UPDATE_MISC_VIEW
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "UPDATE_MISC_VIEW" IS
 /******************************************************************************
    NAME:       UPDATE_MISC_VIEW
    PURPOSE:
 END UPDATE_MISC_VIEW;
 /
 --------------------------------------------------------
 --  DDL for Procedure CHECK_NEW_PATCHES
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "CHECK_NEW_PATCHES" (
    nrtagid   IN   release_content.rtag_id%TYPE
+)
 IS
              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)
 IS
 /******************************************************************************
    NAME:       clean_advisory_ripple
                 (SELECT pv_id FROM work_in_progress WHERE rtag_id = nrtagid)
                  UNION
                 (SELECT pv_id FROM planned WHERE rtag_id = nrtagid AND (operation is null OR operation = 'R'))
                );
 END clean_advisory_ripple;
 /
 --------------------------------------------------------
 --  DDL for Procedure NEW_PATCH
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "NEW_PATCH" ( SSpatch_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
  	   	  		  					  	NNparent_id IN NUMBER,
                                         sPatchIdList IN VARCHAR2,
 										NNuser_id IN NUMBER ) IS
     CLOSE parent_cur;
     CLOSE patch_cur;
 END New_Patch;
 /
 --------------------------------------------------------
 --  DDL for Procedure UPDATE_PROCESSES
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "UPDATE_PROCESSES"
 IS
 proc_id NUMBER;
       FETCH ripple_cur
        INTO ripple_rec;
    END LOOP;
 END UPDATE_PROCESSES;
 /
 --------------------------------------------------------
 --  DDL for Procedure DELETE_AUTOBUILD_FAILURE_INFO
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "DELETE_AUTOBUILD_FAILURE_INFO"
 IS
 /******************************************************************************
    NAME:       DELETE_AUTOBUILD_FAILURE_INFO
 BEGIN
    DELETE FROM autobuild_failure
          WHERE group_email_id NOT IN (SELECT group_email_id
                                         FROM members_group);
 END delete_autobuild_failure_info;
 /
 --------------------------------------------------------
 --  DDL for Procedure TEST
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "TEST"
 IS
 proc_id NUMBER;
       FETCH ripple_cur
        INTO ripple_rec;
    END LOOP;
 END test;
 /
 --------------------------------------------------------
 --  DDL for Procedure CLEAN_DO_NOT_RIPPLE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "CLEAN_DO_NOT_RIPPLE" (nrtagid IN NUMBER)
 IS
 /******************************************************************************
    NAME:       clean_do_not_ripple
                 (SELECT pv_id FROM work_in_progress WHERE rtag_id = nrtagid)
                  UNION
                 (SELECT pv_id FROM planned WHERE rtag_id = nrtagid AND (operation is null OR operation = 'R'))
                );
 END clean_do_not_ripple;
 /
 --------------------------------------------------------
 --  DDL for Procedure REBUILD_ENVIRONMENT
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "REBUILD_ENVIRONMENT" ( NNrtag_id IN NUMBER ) IS
 /* ---------------------------------------------------------------------------
     Version: 3.3
 		   	   circular_dependency = NULL
 		 WHERE rtag_id = NNrtag_id;
 	END IF;
     */
 END Rebuild_Environment;
 /
 --------------------------------------------------------
 --  DDL for Procedure TEST_MARCO
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "TEST_MARCO" IS
 /******************************************************************************
    NAME:       TEST_MARCO
    PURPOSE:
 Basic_Clone ( 112982, parPv_id, NULL, 3764, 22325, 0 );
 END TEST_MARCO;
 /
 --------------------------------------------------------
 --  DDL for Procedure LOG_ACTION_BULK
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "LOG_ACTION_BULK" ( nPvIdList IN VARCHAR2,
 										 	  enumActionTypeName IN ACTION_TYPE.NAME%TYPE,
                                          	  nUserId IN ACTION_LOG.USER_ID%TYPE,
 										 	  sAdditionalComments IN ACTION_LOG.DESCRIPTION%TYPE DEFAULT NULL  ) IS
       FROM PACKAGE_VERSIONS pv
      WHERE pv.PV_ID IN ( SELECT * FROM TABLE ( CAST ( oPvIdCollector AS RELMGR_NUMBER_TAB_t ) ) );
 END Log_Action_Bulk;
 /
 --------------------------------------------------------
 --  DDL for Procedure CLONED_PACKAGE_PROCESSES
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "CLONED_PACKAGE_PROCESSES"
 IS
 proc_id NUMBER;
       FETCH ripple_cur
        INTO ripple_rec;
    END LOOP;
 END CLONED_PACKAGE_PROCESSES;
 /
 --------------------------------------------------------
 --  DDL for Procedure SEED_PACKAGE_NAMES_VERSIONS2
 --------------------------------------------------------
   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,
 END Seed_Package_Names_Versions2;
 /
 --------------------------------------------------------
 --  DDL for Procedure BUILD_TREE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "BUILD_TREE" ( nRtag_id IN NUMBER,
 	   	  		  					     retSessionNum OUT NUMBER ) IS
 /* ---------------------------------------------------------------------------
 	/* 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
 /* ---------------------------------------------------------------------------
    	Log_Action ( nPvId, 'clear_advisory_ripple', nUserId );
 	/*Rebuild_Environment(nRtagId);*/
 END Clear_Advisory_Ripple;
 /
 --------------------------------------------------------
 --  DDL for Procedure REMOVE_RELEASE_CONTENT
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "REMOVE_RELEASE_CONTENT" ( sPvIdList IN VARCHAR2,
 													 sNotPvIdList IN VARCHAR2,
                                                      nRTagId IN RELEASE_CONTENT.RTAG_ID%TYPE ) IS
 /* ---------------------------------------------------------------------------
 	   AND NOT pv_id IN ( SELECT * FROM TABLE ( CAST ( oNotPvIdCollector AS RELMGR_NUMBER_TAB_t ) ) );
 END Remove_Release_Content;
 /
 --------------------------------------------------------
 --  DDL for Procedure UPDATE_PACKAGE_DEPENDENCY
 --------------------------------------------------------
   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,
 	    VALUES ( NNpv_id, retPV_ID, NNpkg_id, NNdpkg_id, CCbuild_type );
 	END IF;
 END Update_Package_Dependency;
 /
 --------------------------------------------------------
 --  DDL for Procedure LOG_ACTION
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "LOG_ACTION" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
 										 enumActionTypeName IN ACTION_TYPE.NAME%TYPE,
                                          nUserId IN ACTION_LOG.USER_ID%TYPE,
 										 sAdditionalComments IN ACTION_LOG.DESCRIPTION%TYPE DEFAULT NULL  ) IS
     INSERT INTO ACTION_LOG ( USER_ID, ACTION_DATETIME, PV_ID, DESCRIPTION, ACTTYPE_ID )
     VALUES ( nUserId, ORA_SYSDATETIME, nPvId, sAdditionalComments, ActionTypeId );
 END Log_Action;
 /
 --------------------------------------------------------
 --  DDL for Procedure REMOVE_PATCH
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "REMOVE_PATCH" ( nPatchId IN PACKAGE_PATCHES.PATCH_ID%TYPE,
 										   nPvId IN PACKAGE_PATCHES.PV_ID%TYPE,
                                            nUserId IN NUMBER ) IS
 /* ---------------------------------------------------------------------------
    	Log_Action ( nPvId, 'patch_remove', nUserId,
    			     'Version: '|| PatchVersion );
 END Remove_Patch;
 /
 --------------------------------------------------------
 --  DDL for Procedure SET_PACKAGE_BUILD_ENV_TEMP
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "SET_PACKAGE_BUILD_ENV_TEMP" ( nPvId IN PACKAGE_BUILD_ENV.PV_ID%TYPE,
 	   	  		  								  	   	 sBuildEnvIdList IN VARCHAR2,
 														 nBuildStandard IN PACKAGE_VERSIONS.BS_ID%TYPE
 														 ) IS
    END IF;
 END Set_Package_Build_Env_Temp;
 /
 --------------------------------------------------------
 --  DDL for Procedure UPDATE_RUNTIME_DEPENDENCY
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "UPDATE_RUNTIME_DEPENDENCY" ( NNpv_id IN RUNTIME_DEPENDENCIES.pv_id%TYPE,
 				   	  		  						    NNrtd_id IN RUNTIME_DEPENDENCIES.rtd_id%TYPE,
 				   	  		  						    SSrtd_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
 													    SSrtd_url IN RUNTIME_DEPENDENCIES.rtd_url%TYPE,
 	CLOSE rtd_cur;
 END Update_Runtime_Dependency;
 /
 --------------------------------------------------------
 --  DDL for Procedure SET_ADVISORY_RIPPLE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "SET_ADVISORY_RIPPLE" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
 	   	  		  							   nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE,
 											 nUserId IN NUMBER ) IS
 /* ---------------------------------------------------------------------------
    	Log_Action ( nPvId, 'set_advisory_ripple', nUserId );
 	/*Rebuild_Environment(nRtagId);*/
 END Set_Advisory_Ripple;
 /
 --------------------------------------------------------
 --  DDL for Procedure SEED_PACKAGE_NAMES_VERSIONS
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "SEED_PACKAGE_NAMES_VERSIONS" ( SSpkg_name IN PACKAGES.pkg_name%TYPE,
                                                           SSpkg_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
                                                           NNuser_id IN NUMBER,
                                                           retPV_ID OUT NUMBER,
 END Seed_Package_Names_Versions;
 /
 --------------------------------------------------------
 --  DDL for Procedure RENAME_PACKAGE_VERSION
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "RENAME_PACKAGE_VERSION" ( NNpv_id IN NUMBER,
                                                      SSpkg_version IN PACKAGE_VERSIONS.pkg_version%TYPE,
 													 cBuildType IN CHAR,
                                                      NNuser_id IN NUMBER,
 END Rename_Package_Version;
 /
 --------------------------------------------------------
 --  DDL for Procedure PAOLO_BUILD_TREE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "PAOLO_BUILD_TREE" ( nRtag_id IN NUMBER ) IS
     sessionNumber NUMBER := 0;
     iteration NUMBER := 1;
 		END IF;
         EXIT WHEN (rowCnt < 1) OR (iteration > maxIterations);
     END LOOP;
 END PAOLO_Build_Tree;
 /
 --------------------------------------------------------
 --  DDL for Procedure UPDATE_UNIT_TEST_ACCEPTANCE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "UPDATE_UNIT_TEST_ACCEPTANCE" ( pnTest_id IN NUMBER,
 														  pnPv_id IN NUMBER,
 					                                      sAccepted IN UNIT_TESTS.TEST_ACCEPTED%TYPE,
 														  sAcceptanceDate IN VARCHAR2,
 	       AND PV_ID = pnPv_id;
 	END IF;
 END Update_Unit_Test_Acceptance;
 /
 --------------------------------------------------------
 --  DDL for Procedure NEW_ADDITIONAL_NOTE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "NEW_ADDITIONAL_NOTE" ( 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 := 0;		-- Set return to SUCCESS
 	END IF;
 	CLOSE an_duplicate_cur;
 END New_Additional_Note;
 /
 --------------------------------------------------------
 --  DDL for Procedure INSERT_MULTIPLE_STICKY_NOTES
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "INSERT_MULTIPLE_STICKY_NOTES" IS
 /******************************************************************************
    NAME:       INSERT_MULTIPLE_STICKY_NOTES
 END INSERT_MULTIPLE_STICKY_NOTES;
 /
 --------------------------------------------------------
 --  DDL for Procedure TOUCH_RELEASE_BULK
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "TOUCH_RELEASE_BULK" ( nRtagIdList IN VARCHAR2 ) IS
 /* ---------------------------------------------------------------------------
     Version: 3.0
    --------------------------------------------------------------------------- */
         rt.REBUILD_STAMP = 0
       WHERE rt.RTAG_ID IN ( SELECT * FROM TABLE ( CAST ( oRTagIdCollector AS RELMGR_NUMBER_TAB_t ) ) );
 END Touch_Release_Bulk;
 /
 --------------------------------------------------------
 --  DDL for Procedure UPDATE_DEPRECATION_STATE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "UPDATE_DEPRECATION_STATE" (nnrtag_id IN NUMBER) AS
 recno NUMBER;
     FETCH deprecate_cur
     INTO deprecate_rec;
   END LOOP;
 END;
 /
 --------------------------------------------------------
 --  DDL for Procedure IGNORE_DEPENDENCY_WARNINGS
 --------------------------------------------------------
   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,
          AND frc.PV_ID = pp.DPV_ID;
     END IF;
 END Ignore_Dependency_Warnings;
 /
 --------------------------------------------------------
 --  DDL for Procedure UNDEPRECATE_PACKAGE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "UNDEPRECATE_PACKAGE" (nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
 	   	  		  								 nRtagId IN DEPRECATED_PACKAGES.RTAG_ID%TYPE,
 	   	  		  							   	 nPkgId IN DEPRECATED_PACKAGES.PKG_ID%TYPE,
 											   	 nUserId IN NUMBER) IS
 	Rebuild_environment(nRtagId);
 END Undeprecate_Package;
 /
 --------------------------------------------------------
 --  DDL for Procedure REMOVE_PACKAGE_INTEREST
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "REMOVE_PACKAGE_INTEREST" (nProjId IN PROJECTS.PROJ_ID%TYPE,
 	   	  		  								  	nPkgId IN PACKAGES.PKG_ID%TYPE,
 												  	nUserId IN NUMBER
 	   	  		  									) IS
 	 WHERE PROJ_ID = nProjId
 	 AND PKG_ID = nPkgId
 	 AND USER_ID = nUserId;
 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,
     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;
 /
 --------------------------------------------------------
 --  DDL for Procedure SET_PACKAGE_BUILD_ENV
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "SET_PACKAGE_BUILD_ENV" ( nPvId IN PACKAGE_BUILD_ENV.PV_ID%TYPE,
 	   	  		  								  	sBuildEnvIdList IN VARCHAR2 ) IS
 /* ---------------------------------------------------------------------------
     Last Modified: Rupesh Solanki
    END IF;
 END Set_Package_Build_Env;
 /
 --------------------------------------------------------
 --  DDL for Procedure SHIFT_INSTALL_ORDER
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "SHIFT_INSTALL_ORDER" ( nPatchId IN PACKAGE_PATCHES.PATCH_ID%TYPE,
 												  nPvId IN PACKAGE_PATCHES.PV_ID%TYPE,
                                                   nToInstallOrder IN PACKAGE_PATCHES.INSTALL_ORDER%TYPE ) IS
 /* ---------------------------------------------------------------------------
 	  WHERE pp.PV_ID = nPvId
 	    AND pp.PATCH_ID = nPatchId;
 END Shift_Install_Order;
 /
 --------------------------------------------------------
 --  DDL for Procedure NEW_PACKAGE_NAME
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "NEW_PACKAGE_NAME" ( SSpkg_name IN PACKAGES.pkg_name%TYPE,
                                                retPKG_ID OUT NUMBER ) IS
 /* ---------------------------------------------------------------------------
     Version: 3.0.0
     CLOSE packages_cur;
 END New_Package_Name;
 /
 --------------------------------------------------------
 --  DDL for Procedure REMOVE_RUNTIME
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "REMOVE_RUNTIME" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
 											 nRuntimeId IN RUNTIME_DEPENDENCIES.RTD_ID%TYPE,
                                              nUserId IN NUMBER ) IS
 /* ---------------------------------------------------------------------------
    	Log_Action ( nPvId, 'runtime_remove', nUserId,
    			     'Runtime package: '|| RuntimeDependency );
 END Remove_Runtime;
 /
 --------------------------------------------------------
 --  DDL for Procedure CHANGE_PACKAGE_STATE
 --------------------------------------------------------
   CREATE OR REPLACE PROCEDURE "CHANGE_PACKAGE_STATE" ( nPvId IN PACKAGE_VERSIONS.PV_ID%TYPE,
 											 nRtagId IN RELEASE_TAGS.RTAG_ID%TYPE ) IS
 /* ---------------------------------------------------------------------------
     Version: 4.0

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/branches/dpurdie/database/Relman_export.sql – Rev 1373 → 1374