Subversion Repositories DevTools

--  DDL for Procedure TEST

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

set define off;

  CREATE OR REPLACE PROCEDURE "RELEASE_MANAGER"."TEST" 

IS

proc_id NUMBER;

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

   NAME:       DELETE_DO_NOT_RIPPLE

   PURPOSE:    TO DELETE ENTRIES FROM THE DO_NOT_RIPPLE TABLE WHEN A PACKAGE

               IS RELEASED

   REVISIONS:

   Ver        Date        Author           Description

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

   1.0        21/04/2006  Rupesh Solanki     1. Created this procedure.

   NOTES:

   Automatically available Auto Replace Keywords:

      Object Name:     DELETE_DO_NOT_RIPPLE

      Sysdate:         21/04/2006

      Date and Time:   21/04/2006, 3:21:55 PM, and 21/04/2006 3:21:55 PM

      Username:         (set in TOAD Options, Procedure Editor)

      Table Name:       (set in the "New PL/SQL Object" dialog)

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

   CURSOR ripple_cur

   IS

      select distinct pkg_health_tag, cmd_interface, pkg_owner, is_interface from deployment_manager.processes_config;

   ripple_rec   ripple_cur%ROWTYPE;

BEGIN

   OPEN ripple_cur;

   FETCH ripple_cur

    INTO ripple_rec;

   WHILE ripple_cur%FOUND

   LOOP

   select deployment_manager.seq_proc_id.nextval into proc_id from dual;

insert into processes (PROC_ID, PROC_NAME, RUN_AS, PKG_OWNER, IS_INTERFACE) 

values(proc_id, ripple_rec.pkg_health_tag, ripple_rec.cmd_interface, ripple_rec.pkg_owner, ripple_rec.is_interface);

      FETCH ripple_cur

       INTO ripple_rec;

   END LOOP;

END test;

/

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

--  DDL for Procedure TEST_MARCO

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

set define off;

  CREATE OR REPLACE 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;

/

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