WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/database/Relman_export.sql

        ELSE
         -- Assume that the package is to be added to Pending
         envtab := 1;
         pendOpr := 'A';
        END IF;
-       -- Log
-       --log_action (pvid, 'action', userid, 'Start of Package Add...');
        -- Add Package
        IF envtab = 0
        THEN
          -- WORK IN PROGRESS --
          -- NOTE: this package will be replaced with matching package
          pk_release.add_package (pvid, viewid, rtagid, userid);
          -- Now do post Release Actions
          pk_release.run_post_actions (pvid, rtagid);
        END IF;
-       -- Log
-       --log_action (pvid, 'action', userid, 'End of Package Add...');
      END IF;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
    PROCEDURE add_package_bulk (
        viewid := 7;
      END IF;
      -- Get which area should go under
      envtab := select_environment_area (dlocked);
-     -- Log
-     --log_action (oldpvid, 'action', userid, 'Start of Package Replace...');
      -- Replace package
      IF envtab = 0
      THEN
        -- WORK IN PROGRESS --
        -- Now do post Release Actions
        pk_release.run_post_actions (newpvid, rtagid);
      END IF;
-     -- Log
-     --log_action (oldpvid, 'action', userid, 'End of Package Replace...');
    END;
 /*-------------------------------------------------------------------------------------------------------*/
    FUNCTION remove_package (
      pvid        IN   NUMBER,
                             'This package cannot be released here.'
                            );
        END IF;
      END IF;
-     -- Log
-     --log_action (pvid, 'action', userid, 'Start of Make Package Release...');
      IF envtab = 0
      THEN
        -- WORK IN PROGRESS --
        pk_work_in_progress.remove_package (pvid, rtagid, userid);
      ELSIF envtab = 1
      -- The release has changed and there may now be invalid rtag_id/pv_id combinations in
      -- the DO_NOT_RIPPLE and ADVISORY_RIPPLE Tables so perform a clean-up operation upon them.
      clean_do_not_ripple(rtagid);
      clean_advisory_ripple(rtagid);
-     -- Log
-     --log_action (pvid, 'action', userid, 'End of Make Package Release...');
    END;
 /*-------------------------------------------------------------------------------------------------------*/
   --  Release a specified package into a specified release
   --
                             'This package cannot be released here.'
                            );
        END IF;
      END IF;
-     -- Log
-     --log_action (pvid, 'action', userid, 'Start of Make Package Release...');
      --
      -- Remove the package from the WIP or PENDING tab
      -- Do NOT remove from the release area.
      --     This will be handled later with a process that
      --     will do a 'replace' so that meta data is not lost
      -- The release has changed and there may now be invalid rtag_id/pv_id combinations in
      -- the DO_NOT_RIPPLE and ADVISORY_RIPPLE Tables so perform a clean-up operation upon them.
      clean_do_not_ripple(rtagid);
      clean_advisory_ripple(rtagid);
-     -- Log
-     --log_action (pvid, 'action', userid, 'End of Make Package Release...');
    END;
 /*-------------------------------------------------------------------------------------------------------*/
    PROCEDURE make_unrelease (pvid IN NUMBER, rtagid IN NUMBER, userid IN NUMBER)
      -- Get ViewId
      --ViewId := PK_RELEASE.GET_PACKAGE_VIEW ( PvId, RtagId );
      viewid := get_package_view (pvid, rtagid);
      -- Remove from current area
      envtab := pk_environment.get_package_area (pvid, rtagid);
-     -- Log
-     -- log_action (pvid, 'action', userid, 'Start of Make Package UnRelease...' );
      IF envtab = 2
      THEN
        -- RELEASE AREA --
        pk_release.remove_package (pvid, rtagid, userid);
      -- Add package to new area
      pk_work_in_progress.add_package (pvid, viewid, rtagid, userid);
      -- Now do post Release Actions
      pk_release.run_post_actions (pvid, rtagid);
-     -- Log
-     -- log_action (pvid, 'action', userid, 'End of Make Package UnRelease...');
    END;
 /*-------------------------------------------------------------------------------------------------------*/
    PROCEDURE make_pending (pvid IN NUMBER, rtagid IN NUMBER, userid IN NUMBER)
    IS
      -- Get ViewId
      viewid := get_package_view (pvid, rtagid);
      --ViewId := PK_WORK_IN_PROGRESS.GET_PACKAGE_VIEW ( PvId, RtagId );
-     -- Log
-     --log_action (pvid, 'action', userid, 'Start of Make Package Pending...');
      IF (ispatch IS NULL)
      THEN
        -- Remove from current area
        pk_work_in_progress.remove_package (pvid, rtagid, userid);
        -- Change package state
        pk_package.change_state (pvid, 'P', userid);
        -- Add package to new area
        pk_planned.add_package (pvid, viewid, rtagid, userid);
      END IF;
-     -- Log
-     --log_action (pvid, 'action', userid, 'End of Make Package Pending...');
    END;
 /*-------------------------------------------------------------------------------------------------------*/
    PROCEDURE make_approved (pvid IN NUMBER, rtagid IN NUMBER, userid IN NUMBER)
    IS
    BEGIN
-     -- Log
-     -- log_action (pvid, 'action', userid, 'Start of Package Pending Approval...' );
      -- Change package state
      pk_package.change_state (pvid, 'A', userid);
      -- Flag Release has changed for the purposes of building
      PK_RELEASE.SET_RELEASE_MODIFIED(rtagid);
-     -- Log
-     -- log_action (pvid, 'action', userid, 'End of Package Pending Approval...');
    END;
 /*-------------------------------------------------------------------------------------------------------*/
    PROCEDURE make_reject (pvid IN NUMBER, rtagid IN NUMBER, userid IN NUMBER)
    IS
      (CASE WHEN pl.operation IS NOT NULL THEN pl.operation ELSE ' ' END) INTO operation
      FROM planned pl
      WHERE pl.PV_ID = pvid
      AND pl.RTAG_ID = rtagid;
-     -- Log
-     -- log_action (pvid, 'action', userid, 'Start of Reject Package...');
      -- Remove from current area
      pk_planned.remove_package (pvid, rtagid, userid);
      -- DEVI-45275 - Prevent merge candidate from being added back to work-in-progress table .
      IF operation <> 'A' AND operation <> 'S'
      -- Add package to new area
      pk_work_in_progress.add_package (pvid, viewid, rtagid, userid);
      ELSE
       log_action (pvid, 'action', userid, 'Rejected Package Merge');
      END IF;
-     -- Log
-     -- log_action (pvid, 'action', userid, 'End of Reject Package...');
    END;
 /*-------------------------------------------------------------------------------------------------------*/
    PROCEDURE change_package_view (
      pvid       IN   NUMBER,
        raise_application_error (-20000,
                           'This package cannot be released here.'
                          );
      END IF;
-     -- Log
-     --log_action (pvid, 'action', userid, 'Start of Package Merge...');
      -- Get the planned operation type A=Add, S=Subtract
      SELECT ev.operation INTO oper
        FROM environment_view ev
       WHERE ev.rtag_id = RtagId
         AND ev.pv_id = PvId
        -- Delete old package's advisory ripple info
        DELETE FROM ADVISORY_RIPPLE avr WHERE avr.RTAG_ID = RtagId AND avr.PV_ID = PvId;
      END IF;
      touch_release(RtagId);
-     -- Log
-     --log_action (pvid, 'action', userid, 'End of Package Merge...');
   END;
 /*-------------------------------------------------------------------------------------------------------*/
 END pk_environment;
+/
       -- Log action --
       IF newstate = 'Y'
       THEN
          -- RELEASED --
-         log_action (pvid,
-                     'makeofficial',
-                     userid,
-                     'Package state change to: Released'
+         log_action (pvid, 'makeofficial', userid, 'Package state change to: Released');
-                    );
       ELSIF newstate = 'N'
       THEN
          -- UNLOCKED --
-         log_action (pvid,
-                     'makeunofficial',
-                     userid,
-                     'Package state change to: Ulocked'
+         log_action (pvid, 'makeunofficial',userid, 'Package state change to: Ulocked');
-                    );
       ELSIF newstate = 'P'
       THEN
          -- PENDING APPROVAL --
-         log_action (pvid,
-                     'add_to_planned',
-                     userid,
-                     'Package state change to: Pending Approval'
+         log_action (pvid, 'add_to_planned',userid,'Package state change to: Pending Approval');
-                    );
       ELSIF newstate = 'R'
       THEN
          -- REJECTED --
-         log_action (pvid,
-                     'reject_package',
-                     userid,
-                     'Package state change to: Rejected'
+         log_action (pvid,'reject_package',userid,'Package state change to: Rejected');
-                    );
       ELSIF newstate = 'A'
       THEN
          -- APPROVED --
-         log_action (pvid,
-                     'approve_package',
-                     userid,
-                     'Package state change to: Approved'
+         log_action (pvid, 'approve_package', userid, 'Package state change to: Approved');
-                    );
       END IF;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
 -- This function has been deprecated and can be deleted
                         lastinstallorder + 1 AS install_order
                    FROM package_versions pv
                   WHERE pv.pv_id = patchpv_id AND pv.is_patch = 'Y');
             /* LOG ACTION */
-            log_action (patchpv_id,
-                        'new_version',
-                        nuserid,
-                        'Patch version created: ' || snewpatchversion
+            log_action (patchpv_id, 'new_version', nuserid, 'Patch version created: ' || snewpatchversion );
-                       );
-            log_action (nparentpvid,
-                        'patch_add',
-                        nuserid,
-                        'New patch created and attached: ' || snewpatchversion
+            log_action (nparentpvid, 'patch_add', nuserid, 'New patch created and attached: ' || snewpatchversion );
-                       );
          ELSE
             patchpv_id := patch_rec.pv_id;
             ispatchdlocked := patch_rec.dlocked;
             -- Find if pv_id exists in release content (i.e. it cannot be a patch)
             END IF;
             CLOSE releases_cur;
             /* LOG ACTION */
-            log_action (nparentpvid,
-                        'patch_add',
-                        nuserid,
-                           'Patch version was found and attached: '
+            log_action (nparentpvid, 'patch_add', nuserid, 'Patch version was found and attached: ' || snewpatchversion );
-                        || snewpatchversion
-                       );
          END IF;
       END IF;
       /* Create Patch Dependencies */
       opatchdepcollector := in_list_number (spatchidlist);
       */
       /* LOG ACTION */
       IF isobsolete IS NOT NULL
       THEN
-         log_action (patchid,
-                     'patch_obsolete',
-                     userid,
-                     'Obsolete patch. ' || obsoletecomments
+         log_action (patchid, 'patch_obsolete', userid, 'Obsolete patch. ' || obsoletecomments );
-                    );
       ELSE
-         log_action (patchid,
-                     'patch_obsolete',
-                     userid,
-                     'Undo patch obsolete.'
+         log_action (patchid, 'patch_obsolete', userid, 'Undo patch obsolete.' );
-                    );
       END IF;
    END;
 /*-------------------------------------------------------------------------------------------------------*/
    PROCEDURE obsolete_patches (
       */
       /* LOG ACTION
       IF IsObsolete IS NOT NULL THEN
-         Log_Action ( PatchId, 'patch_obsolete', UserId,
+         Log_Action ( PatchId, 'patch_obsolete', UserId, 'Obsolete patch. '|| ObsoleteComments );
-                     'Obsolete patch. '|| ObsoleteComments );
       ELSE
-         Log_Action ( PatchId, 'patch_obsolete', UserId,
+         Log_Action ( PatchId, 'patch_obsolete', UserId, 'Undo patch obsolete.' );
-                     'Undo patch obsolete.' );
       END IF;  */
    END;
 /*-------------------------------------------------------------------------------------------------------*/
    PROCEDURE add_process (
            INTO processname
            FROM processes prc
           WHERE prc.proc_id = proc_rec.proc_id;
          -- Log Action --
-         log_action (npvid,
-                     'process_add',
-                     nuserid,
-                     'Added process with health tag ' || processname
+         log_action (npvid, 'process_add', nuserid, 'Added process with health tag ' || processname );
-                    );
          FETCH proc_cur
           INTO proc_rec;
       END LOOP;
       DELETE FROM package_processes
             WHERE proc_id = nprocid AND pv_id = npvid;
       -- Log Action --
-      log_action (npvid,
-                  'process_remove',
-                  nuserid,
-                  'Removed process with health tag ' || processname
+      log_action (npvid, 'process_remove', nuserid, 'Removed process with health tag ' || processname );
-                 );
    END;
 /*-------------------------------------------------------------------------------------------------------*/
    /*
    ** Author: Rupesh Solanki
    ** Purpose: To move package versions from one release to another
       WHERE RTAG_ID = nrtagid
       AND PV_ID = npvid;
       -- Log Action --
-      log_action (npvid,
-                  'move_package_version',
-                  nuserid,
-                  'Moved package version from ' || oldrtag_name || ' to ' || newrtag_name
+      log_action (npvid, 'move_package_version', nuserid, 'Moved package version from ' || oldrtag_name || ' to ' || newrtag_name );
-                 );
    END;
 /*-------------------------------------------------------------------------------------------------------*/
    /*
    ** Author: Rupesh Solanki
       FROM RELEASE_TAGS
       WHERE RTAG_ID = nrtagid;
       -- Log Action --
-      log_action (npvid,
-                  'modify_product_state',
-                     nuserid,
-                     sStateName || ' in '|| sRtagName
+      log_action (npvid, 'modify_product_state', nuserid, sStateName || ' in '|| sRtagName );
-                  );
    END;
 /*-------------------------------------------------------------------------------------------------------*/
    /*
    ** Author: Jeremy Tweddle
    ** Date: 24/Aug/2007
     UPDATE RELEASE_CONTENT rc SET
     	rc.PKG_STATE = 0
     WHERE rc.PV_ID = nPvId
 	AND rc.RTAG_ID = nRtagId;
-    /* LOG ACTION */
-   /*	Log_Action ( nPvId, 'unlock_package', nUserId );*/
 END Change_Package_State;
+/
 --------------------------------------------------------
 --  DDL for Procedure CHANGE_RELEASE_MODE
   -- Update consumers of the package
   --  Update ALL packages in the Release
   REBUILD_DEPRECATE_STATE(nRtagId);
-  /* LOG ACTION */
-  /*Log_Action ( nPkgId, 'deprecated_package', nUserId );*/
 END Deprecate_Package;
+/
 --------------------------------------------------------
 --  DDL for Procedure DT_DROPUSEROBJECTBYID
 				       FROM package_versions pv
 					  WHERE pv.pv_id = patchPv_id
 					    AND pv.is_patch = 'Y' );
 	        /* LOG ACTION */
-            Log_Action ( patchPv_id, 'new_version', NNuser_id,
+            Log_Action ( patchPv_id, 'new_version', NNuser_id, 'Patch version created: '|| SSpatch_version );
-        			     'Patch version created: '|| SSpatch_version );
-        	Log_Action ( NNparent_id, 'patch_add', NNuser_id,
-        			     'New patch created and attached: '|| SSpatch_version );
+        	Log_Action ( NNparent_id, 'patch_add', NNuser_id, 'New patch created and attached: '|| SSpatch_version );
 	    ELSE
 		    patchPv_id := patch_rec.pv_id;
 			END IF;
 			CLOSE releases_cur;
             /* LOG ACTION */
-        	Log_Action ( NNparent_id, 'patch_add', NNuser_id,
-        			     'Patch version was found and attached: '|| SSpatch_version );
+        	Log_Action ( NNparent_id, 'patch_add', NNuser_id, 'Patch version was found and attached: '|| SSpatch_version );
 	    END IF;
      WHERE pd.PV_ID = nPvId
        AND pd.DOC_ID = nDocId;
     /* LOG ACTION */
-   	Log_Action ( nPvId, 'document_remove', nUserId,
+   	Log_Action ( nPvId, 'document_remove', nUserId, 'Document number: '|| DocNumber );
-   			     'Document number: '|| DocNumber );
 END Remove_Document;
+/
     /* LOG ACTION */
     SELECT pv.PKG_VERSION INTO PatchVersion
       FROM PACKAGE_VERSIONS pv
      WHERE pv.PV_ID = nPatchId;
-   	Log_Action ( nPvId, 'patch_remove', nUserId,
+   	Log_Action ( nPvId, 'patch_remove', nUserId, 'Version: '|| PatchVersion );
-   			     'Version: '|| PatchVersion );
 END Remove_Patch;
+/
 --------------------------------------------------------
      WHERE rtd.PV_ID = nPvId
        AND rtd.RTD_ID = nRuntimeId;
     /* LOG ACTION */
-   	Log_Action ( nPvId, 'runtime_remove', nUserId,
-   			     'Runtime package: '|| RuntimeDependency );
+   	Log_Action ( nPvId, 'runtime_remove', nUserId, 'Runtime package: '|| RuntimeDependency );
 END Remove_Runtime;
+/

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/database/Relman_export.sql – Rev 6600 → 6916