Subversion Repositories DevTools

CREATE PROCEDURE "RELEASE_MANAGER"."BASIC_CLONE" ( nFROMpv_id IN NUMBER,

										  nTOpv_id IN NUMBER,

                                          nRtag_id IN NUMBER,

                                          nUser_id IN NUMBER,

                                          nTOpkg_id IN NUMBER DEFAULT NULL,

                                          enumISSUES_STATE_IMPORTED IN NUMBER DEFAULT NULL ) IS

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

    Version: 3.5

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

   FromVersion PACKAGE_VERSIONS.PKG_VERSION%TYPE;

BEGIN

------------------------------------- Clone Dependencies ---------------------------------------------------

	IF NOT nRtag_id IS NULL

    THEN

		-- Auto Update Dependencies --

		INSERT INTO PACKAGE_DEPENDENCIES

		    SELECT nTOpv_id AS pv_id,

		           DECODE(nUser_id,

		                  frc.modifier_id,

		                  frc.pv_id,

		                  DECODE(frc.dlocked,

		                         'Y',

		                         frc.pv_id,

		                         dep.dpv_id)

		                  ) AS dpv_id,

		           nTOpkg_id AS pkg_id,

		           dep.dpkg_id,

		           dep.build_type,

				   dep.display_order

		      FROM PACKAGE_DEPENDENCIES dep,

		           PACKAGE_VERSIONS pv,

		           (

		           /* Full Release Contents used for reference*/

		           SELECT rpv.pv_id, rpv.pkg_id, NVL(rpv.v_ext, '|LINK_A_NULL|') AS v_ext, rpv.modifier_id, rpv.dlocked

		           FROM RELEASE_CONTENT rel, PACKAGE_VERSIONS rpv

		           WHERE rel.pv_id = rpv.pv_id AND rtag_id = nRtag_id

		           ) frc

		     WHERE dep.pv_id = nFROMpv_id

		       AND dep.dpv_id = pv.pv_id

		       AND pv.pkg_id = frc.pkg_id(+)

		       AND NVL(pv.v_ext, '|LINK_A_NULL|') = frc.v_ext(+);

	ELSE

		-- Clone Dependencies --

		INSERT INTO PACKAGE_DEPENDENCIES

		    SELECT nTOpv_id         AS pv_id,

		           dep.dpv_id,

		           nTOpkg_id        AS pkg_id,

		           dep.dpkg_id,

		           dep.build_type,

				   dep.display_order

		      FROM PACKAGE_DEPENDENCIES dep

		     WHERE dep.pv_id = nFROMpv_id;

	END IF;

----------------------------------------- Clone Issues -------------------------------------------------------

	IF enumISSUES_STATE_IMPORTED IS NULL

	THEN

        /* All Issues */

	    INSERT INTO CQ_ISSUES ( pv_id, iss_db, iss_id, iss_state, mod_date, notes )

	         SELECT nTOpv_id AS pv_id, iss_db, iss_id, iss_state, mod_date, notes

	           FROM CQ_ISSUES

              WHERE pv_id = nFROMpv_id;

	ELSE

    	/* Outstanding Issues Only */

	    INSERT INTO CQ_ISSUES ( pv_id, iss_db, iss_id, iss_state, mod_date, notes )

	        SELECT nTOpv_id AS pv_id, iss_db, iss_id, iss_state, mod_date, notes

	          FROM CQ_ISSUES

             WHERE pv_id = nFROMpv_id

               AND iss_state = enumISSUES_STATE_IMPORTED;

	END IF;

------------------------------------ Clone Runtime Dependencies -----------------------------------------------

	INSERT INTO RUNTIME_DEPENDENCIES (pv_id, rtd_id, rtd_url, rtd_comments, mod_date, mod_user)

	    SELECT nTOpv_id AS pv_id, rtd_id, rtd_url, rtd_comments, mod_date, mod_user

	    FROM RUNTIME_DEPENDENCIES WHERE pv_id = nFROMpv_id;

--------------------------------------- Clone Additional Notes ------------------------------------------------

	INSERT INTO ADDITIONAL_NOTES ( NOTE_ID, PV_ID, NOTE_TITLE, NOTE_BODY, MOD_DATE, MOD_USER )

    	 SELECT an.NOTE_ID,

                nTOpv_id AS PV_ID,

                an.NOTE_TITLE,

                an.NOTE_BODY,

                an.MOD_DATE,

                an.MOD_USER

           FROM ADDITIONAL_NOTES an

          WHERE an.PV_ID = nFROMpv_id;

-------------------------------------------- Clone Unit Tests -------------------------------------------------

	-- Clone only Automatic unit tests --

	INSERT INTO UNIT_TESTS (

							TEST_ID,

							PV_ID,

							TEST_TYPES_FK,

							TEST_SUMMARY,

							COMPLETION_DATE,

							COMPLETED_BY,

							RESULTS_URL,

							RESULTS_ATTACHMENT_NAME,

							NUMOF_TEST

							)

    	 SELECT ut.TEST_ID,

                nTOpv_id AS PV_ID,

                ut.TEST_TYPES_FK,

                ut.TEST_SUMMARY,

                Ora_Sysdate AS COMPLETION_DATE,

                nUser_id AS COMPLETED_BY,

                ut.RESULTS_URL,

				ut.RESULTS_ATTACHMENT_NAME,

				ut.NUMOF_TEST

           FROM UNIT_TESTS ut

          WHERE ut.PV_ID = nFROMpv_id

            AND ut.TEST_TYPES_FK IN ( 5, 7 );

	-- Clone only Interactive Unit Tests --

	INSERT INTO UNIT_TESTS (

		   				    TEST_ID, 

							PV_ID,

							TEST_TYPES_FK,

							TEST_SUMMARY

							)

		SELECT ut.TEST_ID, 

			   nTOpv_id AS PV_ID,

			   ut.TEST_TYPES_FK,

			   ut.TEST_SUMMARY

		  FROM UNIT_TESTS ut

		 WHERE ut.PV_ID = nFROMpv_id

		   AND ut.TEST_TYPES_FK IN (6);

-------------------------------------------- Clone Package Documents ------------------------------------------

	INSERT INTO PACKAGE_DOCUMENTS ( PV_ID, TEST_ID, DOC_NUM, DOC_ID, IS_LATEST )

    	 SELECT nTOpv_id AS PV_ID,

		 		pd.test_id,

				pd.doc_num,

				pd.doc_id,

                pd.IS_LATEST

           FROM PACKAGE_DOCUMENTS pd

          WHERE pd.PV_ID = nFROMpv_id;

-------------------------------------------- Clone Build Environments -----------------------------------------

    INSERT INTO PACKAGE_BUILD_ENV ( PV_ID, BE_ID, BUILD_TYPE )

	SELECT nTOpv_id AS PV_ID,

		   pkgbe.BE_ID,

		   pkgbe.BUILD_TYPE

	  FROM PACKAGE_BUILD_ENV pkgbe

	 WHERE pkgbe.PV_ID = nFROMpv_id;

---------------------------------------------Clone Package Build Info------------------------------------------

    INSERT INTO PACKAGE_BUILD_INFO (PV_ID, BM_ID, BSA_ID)

	SELECT nTOpv_id AS PV_ID, 

		   pkgbinfo.BM_ID,

		   pkgbinfo.BSA_ID

	  FROM PACKAGE_BUILD_INFO pkgbinfo

	 WHERE pkgbinfo.PV_ID = nFROMpv_id;

---------------------------------------------Clone Package Version Processes-----------------------------------

    INSERT INTO PACKAGE_PROCESSES ( PV_ID, PROC_ID )

	SELECT nTOpv_id AS PV_ID,

		   pp.PROC_ID

	  FROM PACKAGE_PROCESSES pp

	  WHERE pp.PV_ID = nFROMpv_id;		   

---------------------------------------------------------------------------------------------------------------

	/* LOG ACTION */

    SELECT pv.PKG_VERSION INTO FromVersion

      FROM PACKAGE_VERSIONS pv

     WHERE pv.PV_ID = nFROMpv_id;

    Log_Action ( nTOpv_id, 'clone_from', nUser_id,

    			 'Details cloned from: '|| FromVersion );

---------------------------------------------------------------------------------------------------------------

END Basic_Clone;

/