Subversion Repositories DevTools

CREATE PROCEDURE "RELEASE_MANAGER"."TEST_MARCO" IS
/******************************************************************************
   NAME:       TEST_MARCO
   PURPOSE:    

   REVISIONS:
   Ver        Date        Author           Description
   ---------  ----------  ---------------  ------------------------------------
   1.0        2/03/2007          1. Created this procedure.

   NOTES:

   Automatically available Auto Replace Keywords:
      Object Name:     TEST_MARCO
      Sysdate:         2/03/2007
      Date and Time:   2/03/2007, 3:11:11 PM, and 2/03/2007 3:11:11 PM
      Username:         (set in TOAD Options, Procedure Editor)
      Table Name:       (set in the "New PL/SQL Object" dialog)

******************************************************************************/

parPv_id    NUMBER;
parPkg_id   NUMBER;
    SSV_MM PACKAGE_VERSIONS.V_MM%TYPE;
    SSV_NMM PACKAGE_VERSIONS.V_NMM%TYPE;
    SSV_EXT PACKAGE_VERSIONS.V_EXT%TYPE;
BEGIN

SELECT SEQ_PV_ID.NEXTVAL INTO parPv_id FROM DUAL;

        /* LOG ACTION */
        Log_Action ( parPv_id, 'new_version', 3764,
                                 'New package version: '|| parPv_id || '.' );

        Split_Version ( parPv_id || '.', SSV_MM, SSV_NMM, SSV_EXT );
                
     -- Clone Package Version Details --
            INSERT INTO PACKAGE_VERSIONS ( pv_id, pkg_id, pkg_version, dlocked, created_stamp, creator_id, modified_stamp, modifier_id, V_MM, V_NMM, V_EXT,
                                           src_path, pv_description, PV_OVERVIEW, LAST_PV_ID, owner_id, BUILD_TYPE, IS_BUILD_ENV_REQUIRED, bs_id, is_autobuildable, is_deployable )
                SELECT parPv_id         AS pv_id,
                       pv.pkg_id        AS pkg_id,
                       parPv_id || '.'    AS pkg_version,
                       'N'              AS dlocked,
                       Ora_Sysdate      AS created_stamp,
                       3764        AS creator_id,
                       Ora_Sysdatetime  AS modified_stamp,
                       3764        AS modifier_id,
                       SSV_MM          AS V_MM,
                       SSV_NMM         AS V_NMM,
                       SSV_EXT          AS V_EXT,
                       pv.src_path,
                       pv.pv_description,
                       pv.PV_OVERVIEW,
                       112982   AS LAST_PV_ID,
                       pv.owner_id,
                                           pv.BUILD_TYPE,
                                           pv.IS_BUILD_ENV_REQUIRED,
                                           pv.bs_id,
                                           pv.is_autobuildable,
                                           pv.IS_DEPLOYABLE
                  FROM PACKAGE_VERSIONS pv
                 WHERE pv.pv_id = 112982;               
                
Basic_Clone ( 112982, parPv_id, NULL, 3764, 22325, 0 );


END TEST_MARCO;
/