APPS.XDP_PURGE dependencies on DBMS_UTILITY

Line 653: l_mini_secs := DBMS_UTILITY.get_time;

649: IF p_order_id IS NULL THEN
650: RETURN;
651: END IF;
652:
653: l_mini_secs := DBMS_UTILITY.get_time;
654:
655: SELECT wf_item_type,
656: wf_item_key
657: INTO l_wi_type,l_wi_key

Line 690: G_Total_WK_TIME := G_Total_WK_TIME + DBMS_UTILITY.get_time - l_mini_secs;

686: l_counter := l_counter + 1;
687: END LOOP;
688: RECORDS_PURGED_MSGS(l_counter, 'WF_ITEMS WHERE ORDER_ID = '
689: ||p_order_id,l_rec_name,0);
690: G_Total_WK_TIME := G_Total_WK_TIME + DBMS_UTILITY.get_time - l_mini_secs;
691: EXCEPTION
692: WHEN OTHERS THEN
693: PURGE_ERRORS(P_MSG=>SUBSTR(SQLERRM, 1, 512),P_ABORT => TRUE);
694: END DELETE_WF_ITEMS;

Line 942: l_mini_secs := DBMS_UTILITY.get_time;

938: END IF;
939:
940: -- l_user_rollback := USER_ROLLBACK_CTRL(p_rollback_segment);
941:
942: l_mini_secs := DBMS_UTILITY.get_time;
943: G_Total_WK_TIME := 0;
944: x_orders_purged :=0;
945: --
946: -- This loop is introduced so that when it is to purge orders,

Line 1013: l_mini_secs := DBMS_UTILITY.get_time - l_mini_secs;

1009: CLOSE c_order;
1010: END IF;
1011: END LOOP OUTER_LOOP;
1012: RECORDS_PURGED_MSGS(x_orders_purged,'XDP_ORDER_HEADERS',l_rec_name,-1);
1013: l_mini_secs := DBMS_UTILITY.get_time - l_mini_secs;
1014: PURGE_ERRORS('Total '||l_mini_secs/100 || ' seconds used to purge orders');
1015: PURGE_ERRORS((G_Total_WK_TIME/100) || ' seconds used to purge workflow items for these orders');
1016: COMMIT;
1017: EXCEPTION