Subversion Repositories DevTools

  ROOT_PV_ID NUMBER,

  ROOT_CAUSE VARCHAR2(50 BYTE),

  ROOT_FILE VARCHAR2(100 BYTE)

CREATE OR REPLACE PROCEDURE UnRipple_Package_Indirect (

        nPvId IN NUMBER,

        nRtagId IN NUMBER,

        nUserId IN NUMBER,

        nrootCausePvId IN NUMBER,

        srootCause IN VARCHAR2,

        srootFile IN VARCHAR2

    ) IS

    ReleaseLocation VARCHAR2(4000);

BEGIN

    -- UnRipple Package

    delete from do_not_ripple where rtag_id=nRtagId and pv_id=nPvId;

    INSERT INTO DO_NOT_RIPPLE ( RTAG_ID, PV_ID, ROOT_PV_ID, ROOT_CAUSE, ROOT_FILE ) values (nRtagId, nPvId, nrootCausePvId, srootCause, srootFile);

    /* LOG ACTION */

   SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation

              FROM PROJECTS proj,

                   RELEASE_TAGS rt

             WHERE rt.RTAG_ID = nRtagId

               AND rt.PROJ_ID = proj.PROJ_ID;

    /* LOG ACTION */

    Log_Action ( nPvId, 'unripple_package', nUserId, 'Location: '|| ReleaseLocation );

END UnRipple_Package_Indirect;

/

   FUNCTION exclude_indirect_from_build (

      pvid          IN   NUMBER,

      spkgversion   IN   VARCHAR2,

      rtagid        IN   NUMBER,

      username      IN   VARCHAR2,

      rootpvid      IN   NUMBER,

      rootcause     IN   VARCHAR2,

      rootfile      IN   VARCHAR2

   )

      RETURN NUMBER;

    BEGIN

        -- Check if Exists in "Work in progress" anywhere in the world, except "Closed mode" releases

        SELECT proj.PROJ_NAME ||' > '|| rt.RTAG_NAME, rt.RTAG_ID  INTO sLocation, nRtagIdLocation

          FROM PLANNED pl,

               RELEASE_TAGS rt,

               PROJECTS proj

         WHERE pl.PV_ID = newPvId

           AND pl.RTAG_ID = rt.RTAG_ID

           AND rt.OFFICIAL != 'Y'

           AND rt.PROJ_ID = proj.PROJ_ID;

        EXCEPTION

            WHEN NO_DATA_FOUND THEN

                sLocation := NULL;

    END;

    IF (sLocation IS NULL) OR (nRtagIdLocation = RtagId) THEN

    IF (IsBaseView = 'Y') THEN

        -- Get Base view content

        OPEN RecordSet FOR

        SELECT 0 AS PKG_STATE,

               NULL AS DEPRECATED_STATE,

               pv.pv_id,

               pkg.pkg_name,

               pv.pkg_version,

               pv.dlocked,

               pv.pv_description,

               pv.BUILD_TYPE,

               rel.operation

          FROM PLANNED rel,

               packages pkg,

               package_versions pv

         WHERE pv.pkg_id = pkg.pkg_id

           AND rel.pv_id = pv.pv_id

           AND rel.VIEW_ID = ViewId

           AND rel.RTAG_ID = RtagId

         ORDER BY UPPER(pkg.PKG_NAME);

        -- Get non base view content

        OPEN RecordSet FOR

               NULL AS DEPRECATED_STATE,

               pv.pv_id,

               pkg.pkg_name,

               pv.pkg_version,

               pv.dlocked,

               pv.pv_description,

               pv.BUILD_TYPE,

               rel.operation

          FROM PLANNED rel,

               packages pkg,

               package_versions pv,

               VIEW_DEF vd

         WHERE pv.pkg_id = pkg.pkg_id

           AND rel.pv_id = pv.pv_id

           AND rel.RTAG_ID = RtagId

           AND vd.VIEW_ID = ViewId

           AND vd.PKG_ID = pv.PKG_ID

         ORDER BY UPPER(pkg.PKG_NAME);

-- DEVI-49594 This function has subsequently been changed to allow a merge operation to cancel its

-- opposite operation, if the opposite already exists in the planned table. This supports user activity

-- via the Release Manager merge manager display

        entryExists NUMBER;

        existingOperation CHAR;

      -- Determine if the specified PV_ID already exists in the planned table....

      SELECT COUNT (pl.pv_id) INTO entryExists

      FROM PLANNED pl

      WHERE pl.pv_id = newPvId

      AND pl.rtag_id = RtagId

      AND pl.view_id = ViewId;

      -- If the specified PV_ID already exists in the planned table....

      IF entryExists = 1 THEN

         -- Get the operation for the existing entry

         SELECT pl.operation INTO existingOperation

         FROM PLANNED pl

         WHERE pl.pv_id = newPvId

         AND pl.rtag_id = RtagId

         AND pl.view_id = ViewId;

         -- Is the specified merge operation the opposite of the existing entry?

         -- If it is not, then there is nothing to do, otherwise...

         -- NOTE: A = Add, S = Subtract

         IF (mergeOperation = 'S' AND existingOperation = 'A')

            OR (mergeOperation = 'A' AND existingOperation = 'S') THEN

           -- It is the opposite, so effectively it cancels the existing entry

           -- Remove the entry from the planned table

           DELETE

            FROM PLANNED pl

           WHERE pl.pv_id = newPvId

             AND pl.rtag_id = RtagId

             AND pl.view_id = ViewId;

           -- Log action

           SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation

             FROM PROJECTS proj,

                  RELEASE_TAGS rt

            WHERE rt.PROJ_ID = proj.PROJ_ID

              AND rt.RTAG_ID = RtagId;

           Log_Action ( newPvId, 'deleted_from_pending', UserId, 'Location: '|| ReleaseLocation );

      ELSE

         -- Add to Planned tabled

         INSERT INTO PLANNED ( RTAG_ID, PV_ID, VIEW_ID, OPERATION )

         VALUES( RtagId, newPvId, ViewId, mergeOperation );

         -- Log Action

      END IF;

   FUNCTION exclude_indirect_from_build (

      pvid          IN   NUMBER,

      spkgversion   IN   VARCHAR2,

      rtagid        IN   NUMBER,

      username      IN   VARCHAR2,

      rootpvid      IN   NUMBER,

      rootcause     IN   VARCHAR2,

      rootfile      IN   VARCHAR2

   )

      RETURN NUMBER

   IS

      userid              NUMBER;

      outerrcode          NUMBER;

      pkgid               NUMBER;

      CURSOR dnr_duplicate_cur

      IS

         SELECT *

           FROM do_not_ripple

          WHERE pv_id = pvid AND rtag_id = rtagid;

      dnr_duplicate_rec   dnr_duplicate_cur%ROWTYPE;

   BEGIN

      outerrcode := -1;       -- Set default return error code to ERROR state

      /*--------------- Business Rules Here -------------------*/

      IF (rtagid IS NULL)

      THEN

         RETURN outerrcode;

--         raise_application_error (-20000, 'RtagId must be supplied.');

      END IF;

      IF (pvid IS NULL)

      THEN

         RETURN outerrcode;

--         raise_application_error (-20000, 'PvId must be supplied.');

      END IF;

      IF (username IS NULL)

      THEN

         RETURN outerrcode;

--         raise_application_error (-20000, 'UserName must be supplied.');

      END IF;

      -- Get user_id

      BEGIN

         SELECT usr.user_id

           INTO userid

           FROM users usr

          WHERE UPPER (usr.user_name) = UPPER (username)

            AND usr.is_disabled IS NULL;

      EXCEPTION

         WHEN NO_DATA_FOUND

         THEN

            RETURN outerrcode;

--            raise_application_error (-20000,

--                                        'UserName '

--                                     || username

--                                     || ' is not valid or disabled.'

--                                    );

      END;

     /* No duplicate recordset */

     unripple_package_indirect (pvid, rtagid, userid, rootpvid, rootcause, rootfile);

     outerrcode := 0;                            -- Set return to SUCCESS

      SELECT pkg_id

        INTO pkgid

        FROM package_versions

       WHERE pv_id = pvid;

      DELETE FROM planned_versions

            WHERE pkg_id = pkgid AND pkg_version = spkgversion;

      RETURN outerrcode;

   END;

/*-------------------------------------------------------------------------------------------------------*/