Code: Select all
BEGIN
IF :P1_PURGE = 'Y' THEN
APEX_DEBUG.REMOVE_DEBUG_BY_APP(P_APPLICATION_ID => TO_NUMBER(:APP_ID) );
END IF;
IF :P1_ENABLE = 'Y' THEN
APEX_DEBUG.ENABLE(P_LEVEL => :P1_LEVEL);
-- APEX_DEBUG.ENABLE(APEX_DEBUG.C_LOG_LEVEL_INFO);
APEX_DEBUG.LOG_MESSAGE(P_MESSAGE => 'APEX_DEBUG.LOG_MESSAGE : ' || :P1_MESSAGE, P_LEVEL => :P1_LEVEL );
IF :P1_DBMS_OUTPUT = 'Y' THEN
DBMS_OUTPUT.ENABLE;
DBMS_OUTPUT.PUT_LINE('DBMS_OUTPUT : ' || :P1_MESSAGE);
APEX_DEBUG.LOG_DBMS_OUTPUT;
END IF;
APEX_DEBUG.DISABLE();
END IF;
IF :P1_CRITICAL_ERROR = 'Y' THEN
APEX_DEBUG.ERROR('CRICTICAL ERROR :' || :P1_MESSAGE, SQLERRM);
END IF;
END;
VIDEO