Subversion Repositories DevTools

CREATE PROCEDURE "RELEASE_MANAGER"."INSERT_INTO_PACKAGE_BUILD_INFO" IS

/******************************************************************************
   NAME:       INSERT_INTO_PACKAGE_BUILD_INFO
   PURPOSE:    

   REVISIONS:
   Ver        Date        Author           Description
   ---------  ----------  ---------------  ------------------------------------
   1.0        6/12/2006          1. Created this procedure.

   NOTES:

   Automatically available Auto Replace Keywords:
      Object Name:     INSERT_INTO_PACKAGE_BUILD_INFO
      Sysdate:         6/12/2006
      Date and Time:   6/12/2006, 1:53:40 PM, and 6/12/2006 1:53:40 PM
      Username:         (set in TOAD Options, Procedure Editor)
      Table Name:       (set in the "New PL/SQL Object" dialog)

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

        CURSOR curInfo IS
    SELECT PV_ID
        FROM PACKAGE_BUILD_ENV
        WHERE BE_ID IN (11, 12);
    recInfo curInfo%ROWTYPE;
        
        
BEGIN

        OPEN curInfo;
    FETCH curInfo INTO recInfo;
        
        WHILE curInfo%FOUND
        LOOP

                INSERT INTO PACKAGE_BUILD_INFO ( PV_ID, BM_ID, BSA_ID )
                VALUES( recInfo.PV_ID, 2, 5);
                
                UPDATE PACKAGE_VERSIONS SET BS_ID = 2 WHERE PV_ID = recInfo.PV_ID;
                
                FETCH curInfo INTO recInfo;
                
        END LOOP;

        CLOSE curInfo;




END INSERT_INTO_PACKAGE_BUILD_INFO;
/