465: valid_agent := false;
466: end if;
467:
468: if (v_url is null) and valid_agent then
469: fnd_file.put_line(fnd_file.log, fnd_message.get);
470: end if;
471: return v_url;
472: END construct_url;
473:
759: v_desc, v_err_code, v_err_msg);
760:
761: if v_err_code > 0 then -- error
762: -- Log some information for now.
763: fnd_file.put_line(fnd_file.log, 'Error in refresh_status_for_service:');
764: fnd_file.put_line(fnd_file.log, 'SERVER_TYPE: ' || p_server_type);
765: fnd_file.put_line(fnd_file.log, 'NODE NAME: ' || p_node_name);
766: fnd_file.put_line(fnd_file.log, 'APP ID: ' ||
767: svc_inst.application_id);
760:
761: if v_err_code > 0 then -- error
762: -- Log some information for now.
763: fnd_file.put_line(fnd_file.log, 'Error in refresh_status_for_service:');
764: fnd_file.put_line(fnd_file.log, 'SERVER_TYPE: ' || p_server_type);
765: fnd_file.put_line(fnd_file.log, 'NODE NAME: ' || p_node_name);
766: fnd_file.put_line(fnd_file.log, 'APP ID: ' ||
767: svc_inst.application_id);
768: fnd_file.put_line(fnd_file.log, 'CONCURRENT QUEUE ID: ' ||
761: if v_err_code > 0 then -- error
762: -- Log some information for now.
763: fnd_file.put_line(fnd_file.log, 'Error in refresh_status_for_service:');
764: fnd_file.put_line(fnd_file.log, 'SERVER_TYPE: ' || p_server_type);
765: fnd_file.put_line(fnd_file.log, 'NODE NAME: ' || p_node_name);
766: fnd_file.put_line(fnd_file.log, 'APP ID: ' ||
767: svc_inst.application_id);
768: fnd_file.put_line(fnd_file.log, 'CONCURRENT QUEUE ID: ' ||
769: svc_inst.concurrent_queue_id);
762: -- Log some information for now.
763: fnd_file.put_line(fnd_file.log, 'Error in refresh_status_for_service:');
764: fnd_file.put_line(fnd_file.log, 'SERVER_TYPE: ' || p_server_type);
765: fnd_file.put_line(fnd_file.log, 'NODE NAME: ' || p_node_name);
766: fnd_file.put_line(fnd_file.log, 'APP ID: ' ||
767: svc_inst.application_id);
768: fnd_file.put_line(fnd_file.log, 'CONCURRENT QUEUE ID: ' ||
769: svc_inst.concurrent_queue_id);
770: fnd_file.put_line(fnd_file.log, 'CONCURRENT QUEUE NAME: ' ||
764: fnd_file.put_line(fnd_file.log, 'SERVER_TYPE: ' || p_server_type);
765: fnd_file.put_line(fnd_file.log, 'NODE NAME: ' || p_node_name);
766: fnd_file.put_line(fnd_file.log, 'APP ID: ' ||
767: svc_inst.application_id);
768: fnd_file.put_line(fnd_file.log, 'CONCURRENT QUEUE ID: ' ||
769: svc_inst.concurrent_queue_id);
770: fnd_file.put_line(fnd_file.log, 'CONCURRENT QUEUE NAME: ' ||
771: svc_inst.concurrent_queue_name);
772: fnd_file.put_line(fnd_file.log, 'v_target: ' || v_target);
766: fnd_file.put_line(fnd_file.log, 'APP ID: ' ||
767: svc_inst.application_id);
768: fnd_file.put_line(fnd_file.log, 'CONCURRENT QUEUE ID: ' ||
769: svc_inst.concurrent_queue_id);
770: fnd_file.put_line(fnd_file.log, 'CONCURRENT QUEUE NAME: ' ||
771: svc_inst.concurrent_queue_name);
772: fnd_file.put_line(fnd_file.log, 'v_target: ' || v_target);
773: fnd_file.put_line(fnd_file.log, 'v_actual: ' || v_actual);
774: fnd_file.put_line(fnd_file.log, 'v_status_code: ' || v_status_code);
768: fnd_file.put_line(fnd_file.log, 'CONCURRENT QUEUE ID: ' ||
769: svc_inst.concurrent_queue_id);
770: fnd_file.put_line(fnd_file.log, 'CONCURRENT QUEUE NAME: ' ||
771: svc_inst.concurrent_queue_name);
772: fnd_file.put_line(fnd_file.log, 'v_target: ' || v_target);
773: fnd_file.put_line(fnd_file.log, 'v_actual: ' || v_actual);
774: fnd_file.put_line(fnd_file.log, 'v_status_code: ' || v_status_code);
775: fnd_file.put_line(fnd_file.log, 'v_desc: ' || v_desc);
776: fnd_file.put_line(fnd_file.log, 'v_err_code: ' || v_err_code);
769: svc_inst.concurrent_queue_id);
770: fnd_file.put_line(fnd_file.log, 'CONCURRENT QUEUE NAME: ' ||
771: svc_inst.concurrent_queue_name);
772: fnd_file.put_line(fnd_file.log, 'v_target: ' || v_target);
773: fnd_file.put_line(fnd_file.log, 'v_actual: ' || v_actual);
774: fnd_file.put_line(fnd_file.log, 'v_status_code: ' || v_status_code);
775: fnd_file.put_line(fnd_file.log, 'v_desc: ' || v_desc);
776: fnd_file.put_line(fnd_file.log, 'v_err_code: ' || v_err_code);
777: fnd_file.put_line(fnd_file.log, 'v_err_msg: ' || v_err_msg);
770: fnd_file.put_line(fnd_file.log, 'CONCURRENT QUEUE NAME: ' ||
771: svc_inst.concurrent_queue_name);
772: fnd_file.put_line(fnd_file.log, 'v_target: ' || v_target);
773: fnd_file.put_line(fnd_file.log, 'v_actual: ' || v_actual);
774: fnd_file.put_line(fnd_file.log, 'v_status_code: ' || v_status_code);
775: fnd_file.put_line(fnd_file.log, 'v_desc: ' || v_desc);
776: fnd_file.put_line(fnd_file.log, 'v_err_code: ' || v_err_code);
777: fnd_file.put_line(fnd_file.log, 'v_err_msg: ' || v_err_msg);
778: v_status_code := STATUS_UNKNOWN;
771: svc_inst.concurrent_queue_name);
772: fnd_file.put_line(fnd_file.log, 'v_target: ' || v_target);
773: fnd_file.put_line(fnd_file.log, 'v_actual: ' || v_actual);
774: fnd_file.put_line(fnd_file.log, 'v_status_code: ' || v_status_code);
775: fnd_file.put_line(fnd_file.log, 'v_desc: ' || v_desc);
776: fnd_file.put_line(fnd_file.log, 'v_err_code: ' || v_err_code);
777: fnd_file.put_line(fnd_file.log, 'v_err_msg: ' || v_err_msg);
778: v_status_code := STATUS_UNKNOWN;
779: end if;
772: fnd_file.put_line(fnd_file.log, 'v_target: ' || v_target);
773: fnd_file.put_line(fnd_file.log, 'v_actual: ' || v_actual);
774: fnd_file.put_line(fnd_file.log, 'v_status_code: ' || v_status_code);
775: fnd_file.put_line(fnd_file.log, 'v_desc: ' || v_desc);
776: fnd_file.put_line(fnd_file.log, 'v_err_code: ' || v_err_code);
777: fnd_file.put_line(fnd_file.log, 'v_err_msg: ' || v_err_msg);
778: v_status_code := STATUS_UNKNOWN;
779: end if;
780: --dbms_output.put_line('STATUS CODE: ' || v_status_code);
773: fnd_file.put_line(fnd_file.log, 'v_actual: ' || v_actual);
774: fnd_file.put_line(fnd_file.log, 'v_status_code: ' || v_status_code);
775: fnd_file.put_line(fnd_file.log, 'v_desc: ' || v_desc);
776: fnd_file.put_line(fnd_file.log, 'v_err_code: ' || v_err_code);
777: fnd_file.put_line(fnd_file.log, 'v_err_msg: ' || v_err_msg);
778: v_status_code := STATUS_UNKNOWN;
779: end if;
780: --dbms_output.put_line('STATUS CODE: ' || v_status_code);
781:
2022: PROCEDURE refresh_all (errbuf OUT NOCOPY VARCHAR2, retcode OUT NOCOPY VARCHAR2)
2023: IS
2024:
2025: BEGIN
2026: fnd_file.put_line(fnd_file.log, 'Refreshing All ...');
2027:
2028: fnd_file.put_line(fnd_file.log, 'Refreshing Applications System Status ...');
2029: refresh_app_sys_status;
2030: fnd_file.new_line(fnd_file.log, 1);
2024:
2025: BEGIN
2026: fnd_file.put_line(fnd_file.log, 'Refreshing All ...');
2027:
2028: fnd_file.put_line(fnd_file.log, 'Refreshing Applications System Status ...');
2029: refresh_app_sys_status;
2030: fnd_file.new_line(fnd_file.log, 1);
2031:
2032: fnd_file.put_line(fnd_file.log, 'Refreshing Activity ...');
2026: fnd_file.put_line(fnd_file.log, 'Refreshing All ...');
2027:
2028: fnd_file.put_line(fnd_file.log, 'Refreshing Applications System Status ...');
2029: refresh_app_sys_status;
2030: fnd_file.new_line(fnd_file.log, 1);
2031:
2032: fnd_file.put_line(fnd_file.log, 'Refreshing Activity ...');
2033: refresh_activity;
2034: fnd_file.new_line(fnd_file.log, 1);
2028: fnd_file.put_line(fnd_file.log, 'Refreshing Applications System Status ...');
2029: refresh_app_sys_status;
2030: fnd_file.new_line(fnd_file.log, 1);
2031:
2032: fnd_file.put_line(fnd_file.log, 'Refreshing Activity ...');
2033: refresh_activity;
2034: fnd_file.new_line(fnd_file.log, 1);
2035:
2036: fnd_file.put_line(fnd_file.log, 'Refreshing Configuration Changes ...');
2030: fnd_file.new_line(fnd_file.log, 1);
2031:
2032: fnd_file.put_line(fnd_file.log, 'Refreshing Activity ...');
2033: refresh_activity;
2034: fnd_file.new_line(fnd_file.log, 1);
2035:
2036: fnd_file.put_line(fnd_file.log, 'Refreshing Configuration Changes ...');
2037: refresh_config_changes;
2038: fnd_file.new_line(fnd_file.log, 1);
2032: fnd_file.put_line(fnd_file.log, 'Refreshing Activity ...');
2033: refresh_activity;
2034: fnd_file.new_line(fnd_file.log, 1);
2035:
2036: fnd_file.put_line(fnd_file.log, 'Refreshing Configuration Changes ...');
2037: refresh_config_changes;
2038: fnd_file.new_line(fnd_file.log, 1);
2039:
2040: fnd_file.put_line(fnd_file.log, 'Refreshing Throughput ...');
2034: fnd_file.new_line(fnd_file.log, 1);
2035:
2036: fnd_file.put_line(fnd_file.log, 'Refreshing Configuration Changes ...');
2037: refresh_config_changes;
2038: fnd_file.new_line(fnd_file.log, 1);
2039:
2040: fnd_file.put_line(fnd_file.log, 'Refreshing Throughput ...');
2041: refresh_throughput;
2042: fnd_file.new_line(fnd_file.log, 1);
2036: fnd_file.put_line(fnd_file.log, 'Refreshing Configuration Changes ...');
2037: refresh_config_changes;
2038: fnd_file.new_line(fnd_file.log, 1);
2039:
2040: fnd_file.put_line(fnd_file.log, 'Refreshing Throughput ...');
2041: refresh_throughput;
2042: fnd_file.new_line(fnd_file.log, 1);
2043:
2044: fnd_file.put_line(fnd_file.log, 'Refreshing Exceptions Summary ...');
2038: fnd_file.new_line(fnd_file.log, 1);
2039:
2040: fnd_file.put_line(fnd_file.log, 'Refreshing Throughput ...');
2041: refresh_throughput;
2042: fnd_file.new_line(fnd_file.log, 1);
2043:
2044: fnd_file.put_line(fnd_file.log, 'Refreshing Exceptions Summary ...');
2045: refresh_exceptions_summary;
2046: fnd_file.new_line(fnd_file.log, 1);
2040: fnd_file.put_line(fnd_file.log, 'Refreshing Throughput ...');
2041: refresh_throughput;
2042: fnd_file.new_line(fnd_file.log, 1);
2043:
2044: fnd_file.put_line(fnd_file.log, 'Refreshing Exceptions Summary ...');
2045: refresh_exceptions_summary;
2046: fnd_file.new_line(fnd_file.log, 1);
2047:
2048: fnd_file.put_line(fnd_file.log, 'Refreshing Miscellaneous ...');
2042: fnd_file.new_line(fnd_file.log, 1);
2043:
2044: fnd_file.put_line(fnd_file.log, 'Refreshing Exceptions Summary ...');
2045: refresh_exceptions_summary;
2046: fnd_file.new_line(fnd_file.log, 1);
2047:
2048: fnd_file.put_line(fnd_file.log, 'Refreshing Miscellaneous ...');
2049: refresh_miscellaneous;
2050: fnd_file.new_line(fnd_file.log, 1);
2044: fnd_file.put_line(fnd_file.log, 'Refreshing Exceptions Summary ...');
2045: refresh_exceptions_summary;
2046: fnd_file.new_line(fnd_file.log, 1);
2047:
2048: fnd_file.put_line(fnd_file.log, 'Refreshing Miscellaneous ...');
2049: refresh_miscellaneous;
2050: fnd_file.new_line(fnd_file.log, 1);
2051:
2052: fnd_file.put_line(fnd_file.log, 'Done refreshing All ...');
2046: fnd_file.new_line(fnd_file.log, 1);
2047:
2048: fnd_file.put_line(fnd_file.log, 'Refreshing Miscellaneous ...');
2049: refresh_miscellaneous;
2050: fnd_file.new_line(fnd_file.log, 1);
2051:
2052: fnd_file.put_line(fnd_file.log, 'Done refreshing All ...');
2053:
2054: -- Cancel any reduntant pending requests
2048: fnd_file.put_line(fnd_file.log, 'Refreshing Miscellaneous ...');
2049: refresh_miscellaneous;
2050: fnd_file.new_line(fnd_file.log, 1);
2051:
2052: fnd_file.put_line(fnd_file.log, 'Done refreshing All ...');
2053:
2054: -- Cancel any reduntant pending requests
2055: fnd_file.put_line(fnd_file.log, 'Cancelling any pending requests for FNDOAMCOL ...');
2056: declare
2051:
2052: fnd_file.put_line(fnd_file.log, 'Done refreshing All ...');
2053:
2054: -- Cancel any reduntant pending requests
2055: fnd_file.put_line(fnd_file.log, 'Cancelling any pending requests for FNDOAMCOL ...');
2056: declare
2057: cursor pending_req is
2058: select
2059: fcr.request_id request_id
2069: for p_r in pending_req loop
2070: begin
2071: ret_code := -1;
2072: ret_msg := '';
2073: fnd_file.put_line(fnd_file.log, 'Found pending request: ' || p_r.request_id);
2074: ret_code := fnd_amp_private.cancel_request(p_r.request_id, ret_msg);
2075: if (ret_code <> 4 and ret_code <> 5) then
2076: fnd_file.put_line(fnd_file.log, 'Unable to cancel request ' || p_r.request_id);
2077: fnd_file.put_line(fnd_file.log, 'Message: ' || ret_msg);
2072: ret_msg := '';
2073: fnd_file.put_line(fnd_file.log, 'Found pending request: ' || p_r.request_id);
2074: ret_code := fnd_amp_private.cancel_request(p_r.request_id, ret_msg);
2075: if (ret_code <> 4 and ret_code <> 5) then
2076: fnd_file.put_line(fnd_file.log, 'Unable to cancel request ' || p_r.request_id);
2077: fnd_file.put_line(fnd_file.log, 'Message: ' || ret_msg);
2078: elsif (ret_code >= 0) then
2079: fnd_file.put_line(fnd_file.log, 'Cancelled request ' || p_r.request_id);
2080: else
2073: fnd_file.put_line(fnd_file.log, 'Found pending request: ' || p_r.request_id);
2074: ret_code := fnd_amp_private.cancel_request(p_r.request_id, ret_msg);
2075: if (ret_code <> 4 and ret_code <> 5) then
2076: fnd_file.put_line(fnd_file.log, 'Unable to cancel request ' || p_r.request_id);
2077: fnd_file.put_line(fnd_file.log, 'Message: ' || ret_msg);
2078: elsif (ret_code >= 0) then
2079: fnd_file.put_line(fnd_file.log, 'Cancelled request ' || p_r.request_id);
2080: else
2081: fnd_file.put_line(fnd_file.log, 'ret_code: ' || ret_code);
2075: if (ret_code <> 4 and ret_code <> 5) then
2076: fnd_file.put_line(fnd_file.log, 'Unable to cancel request ' || p_r.request_id);
2077: fnd_file.put_line(fnd_file.log, 'Message: ' || ret_msg);
2078: elsif (ret_code >= 0) then
2079: fnd_file.put_line(fnd_file.log, 'Cancelled request ' || p_r.request_id);
2080: else
2081: fnd_file.put_line(fnd_file.log, 'ret_code: ' || ret_code);
2082: fnd_file.put_line(fnd_file.log, 'Message: ' || ret_msg);
2083: end if;
2077: fnd_file.put_line(fnd_file.log, 'Message: ' || ret_msg);
2078: elsif (ret_code >= 0) then
2079: fnd_file.put_line(fnd_file.log, 'Cancelled request ' || p_r.request_id);
2080: else
2081: fnd_file.put_line(fnd_file.log, 'ret_code: ' || ret_code);
2082: fnd_file.put_line(fnd_file.log, 'Message: ' || ret_msg);
2083: end if;
2084: end;
2085: end loop;
2078: elsif (ret_code >= 0) then
2079: fnd_file.put_line(fnd_file.log, 'Cancelled request ' || p_r.request_id);
2080: else
2081: fnd_file.put_line(fnd_file.log, 'ret_code: ' || ret_code);
2082: fnd_file.put_line(fnd_file.log, 'Message: ' || ret_msg);
2083: end if;
2084: end;
2085: end loop;
2086:
2089: -- Not failing the program since refresh was completed successfully.
2090: when others then
2091: null;
2092: end;
2093: fnd_file.new_line(fnd_file.log, 1);
2094: fnd_file.put_line(fnd_file.log, 'Done cancelling any pending requests for FNDOAMCOL ...');
2095:
2096: retcode := '0';
2097: errbuf := 'Refresh Action OK';
2090: when others then
2091: null;
2092: end;
2093: fnd_file.new_line(fnd_file.log, 1);
2094: fnd_file.put_line(fnd_file.log, 'Done cancelling any pending requests for FNDOAMCOL ...');
2095:
2096: retcode := '0';
2097: errbuf := 'Refresh Action OK';
2098: EXCEPTION
2771: -- Check logging enabled in the first place. There's nothing to do
2772: -- if not enabled.
2773: --
2774: if (fnd_log.level_unexpected < fnd_log.g_current_runtime_level) then
2775: fnd_file.put_line(fnd_file.log, 'Logging Not Enabled.');
2776: return;
2777: end if;
2778:
2779: -- General Alert
2815: -- Check logging enabled in the first place. There's nothing to do
2816: -- if not enabled.
2817: --
2818: if (fnd_log.level_unexpected < fnd_log.g_current_runtime_level) then
2819: fnd_file.put_line(fnd_file.log, 'Logging Not Enabled.');
2820: return;
2821: end if;
2822:
2823: -- General Alert