Subversion Repositories DevTools

CREATE PROCEDURE "RELEASE_MANAGER"."TO_INSERT_VTREE_ID" IS

/******************************************************************************
   NAME:       TO_INSERT_VTREE_ID
   PURPOSE:    

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

   NOTES:

   Automatically available Auto Replace Keywords:
      Object Name:     TO_INSERT_VTREE_ID
      Sysdate:         2/02/2007
      Date and Time:   2/02/2007, 8:42:56 AM, and 2/02/2007 8:42:56 AM
      Username:         (set in TOAD Options, Procedure Editor)
      Table Name:       (set in the "New PL/SQL Object" dialog)

******************************************************************************/
VTreeId NUMBER;                                                                                                                                                                                                                                                                                            


        CURSOR curInfo IS
    SELECT RTAG_ID
        FROM RELEASE_TAGS
        WHERE VTREE_ID IS NULL;
    recInfo curInfo%ROWTYPE;
        
        
BEGIN

        OPEN curInfo;
    FETCH curInfo INTO recInfo;
        
        WHILE curInfo%FOUND
        LOOP
                SELECT SEQ_VTREE_ID.nextval INTO VTreeId FROM DUAL;

                UPDATE RELEASE_TAGS
                SET VTREE_ID = VTreeId
                WHERE RTAG_ID = recInfo.RTAG_ID;

                FETCH curInfo INTO recInfo;
        END LOOP;

        CLOSE curInfo;

END TO_INSERT_VTREE_ID;
/