packages tree.stop_profiler

tree.stop_profiler

Repository spec: tree.stop_profiler, body: tree.stop_profiler

Signature

PROCEDURE stop_profiler (
    in_log_id           logs.log_id%TYPE := NULL
);

Show code (27 lines)

PROCEDURE stop_profiler (
    in_log_id           logs.log_id%TYPE        := NULL
) AS
    out_log_id          logs.log_id%TYPE;
BEGIN
    $IF $$PROFILER_INSTALLED $THEN
        $IF $$OUTPUT_ENABLED $THEN
            DBMS_OUTPUT.PUT_LINE('  > STOP_PROFILER');
        $END
        BEGIN
            DBMS_PROFILER.STOP_PROFILER;
        EXCEPTION
        WHEN OTHERS THEN
            NULL;
        END;
        --
        out_log_id := tree.log__ (                  -- be aware that this may cause infinite loop
            in_action_name  => 'STOP_PROFILER',
            in_flag         => tree.flag_profiler,
            in_arguments    => tree.get_arguments(curr_profiler_id, parent_profiler_id),
            in_parent_id    => in_log_id
        );
    $END
    --
    curr_profiler_id    := NULL;
    parent_profiler_id  := NULL;
END;