[Home] [Help]
1: package body FND_CONC as
2: /* $Header: AFCPDIGB.pls 120.8.12020000.2 2013/05/14 19:54:58 pferguso ship $ */
3: --
4: -- Private variables
5:
143: into avg_mins,
144: avg_hrs,
145: avg_days,
146: expctd_finish
147: from fnd_conc_stat_summary,
148: fnd_concurrent_requests r,
149: fnd_concurrent_programs p
150: where request_id = reqid
151: and program_application_id = application_id
144: avg_hrs,
145: avg_days,
146: expctd_finish
147: from fnd_conc_stat_summary,
148: fnd_concurrent_requests r,
149: fnd_concurrent_programs p
150: where request_id = reqid
151: and program_application_id = application_id
152: and p.concurrent_program_id = r.concurrent_program_id
145: avg_days,
146: expctd_finish
147: from fnd_conc_stat_summary,
148: fnd_concurrent_requests r,
149: fnd_concurrent_programs p
150: where request_id = reqid
151: and program_application_id = application_id
152: and p.concurrent_program_id = r.concurrent_program_id
153: and concurrent_program_name = program_name
244:
245: -- se if the request has any pp actions
246: select count(*)
247: into pp_cnt
248: from fnd_conc_pp_actions
249: where concurrent_request_id = P_REQUEST_ID
250: and action_type = 6; -- REMOVE FOR PHASE 2
251:
252:
253: if pp_cnt > 0 then
254:
255: select processor_id, completed
256: into proc_id, complete
257: from fnd_conc_pp_actions
258: where concurrent_request_id = P_REQUEST_ID
259: and action_type = 6; -- REMOVE FOR PHASE 2
260:
261: -- if processor_id has been updated, post-processing has begun
302:
303: -- check to see if it has running children
304: select count(*)
305: into child_count
306: from fnd_concurrent_requests
307: where parent_request_id = P_REQUEST_ID
308: and phase_code in (PHASE_PENDING, PHASE_RUNNING);
309:
310: if (child_count < 1) then
374: begin
375: /* changed query for BUG#5007915 SQLID#14602696 */
376: select request_id
377: into ra_reqid
378: from fnd_concurrent_requests fcr, fnd_concurrent_programs fcp
379: where fcp.run_alone_flag = 'Y'
380: and fcp.concurrent_program_id = fcr.concurrent_program_id
381: and fcp.application_id = fcr.program_application_id
382: and fcr.phase_code = 'R'
490: -- this request will never be released by the CRM.
491: -- Check the user in FND_USER
492: select count(*)
493: into cnt
494: from fnd_user fu, fnd_concurrent_requests fcr
495: where fcr.request_id = P_REQUEST_ID
496: and fu.user_id = fcr.requested_by
497: and (fu.end_date is null or fu.end_date > sysdate);
498:
528:
529: -- check for a running or pending parent request
530: select count(*)
531: into parent_reqid
532: from fnd_concurrent_requests
533: where request_id = P_PARENT_REQUEST_ID
534: and phase_code in ('P', 'R');
535:
536:
796: P_ENABLED, P_CONTROLLING_MANAGER,
797: P_PROGRAM, P_QUEUE_CONTROL_FLAG,
798: P_QUEUE_METHOD_CODE, P_RUN_ALONE_FLAG,
799: P_SINGLE_THREAD_FLAG, P_REQLIMIT_FLAG, P_CD_ID, P_EDITION_NAME
800: from fnd_concurrent_requests R, fnd_concurrent_programs_vl CP,
801: fnd_user U1, fnd_user U2,
802: fnd_application_vl FA
803: where R.request_id = diagnose.request_id
804: and R.program_application_id = FA.application_id
809:
810: exception
811: when no_data_found then
812: fnd_message.set_name('FND','CONC-Missing Request');
813: fnd_message.set_token('ROUTINE', 'FND_CONC.DIAGNOSE');
814: fnd_message.set_token('REQUEST', to_char(request_id));
815: raise diagnose_error;
816: when others then
817: fnd_message.set_name ('FND', 'SQL-Generic error');
817: fnd_message.set_name ('FND', 'SQL-Generic error');
818: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
819: fnd_message.set_token ('REASON', sqlerrm, FALSE);
820: fnd_message.set_token (
821: 'ROUTINE', 'FND_CONC.DIAGNOSE', FALSE);
822: raise diagnose_error;
823: end;
824:
825: get_phase_status(
889:
890: begin
891: select queue_application_id, concurrent_queue_id
892: into appl_id, manager_id
893: from fnd_concurrent_processes
894: where concurrent_process_id = pid;
895:
896: --
897: -- Lock PMON method
935:
936: begin
937: select max(concurrent_process_id)
938: into pid
939: from fnd_concurrent_processes
940: where concurrent_process_id in
941: (select concurrent_process_id
942: from fnd_concurrent_processes
943: where queue_application_id = 0
938: into pid
939: from fnd_concurrent_processes
940: where concurrent_process_id in
941: (select concurrent_process_id
942: from fnd_concurrent_processes
943: where queue_application_id = 0
944: and concurrent_queue_id = 1
945: and process_status_code in ('A','M'));
946:
973: app_id in number) return boolean is
974:
975: cursor service_curs(qid number, appid number) is
976: select concurrent_process_id
977: from fnd_concurrent_processes
978: where concurrent_queue_id = qid
979: and queue_application_id = appid
980: and process_status_code in ('A', 'C');
981:
1032: 'X','N', -- Aborted
1033: 'D','N', -- Deactivate
1034: 'E','N', -- Deactivated
1035: 'Y') active
1036: from fnd_concurrent_worker_requests
1037: where request_id = rid
1038: and not((queue_application_id = 0)
1039: and (concurrent_queue_id in (1,4)));
1040:
1153:
1154: fnd_message.set_name ('FND', 'CONC-CANCELLED PATCH REQUEST');
1155: msg := fnd_message.get;
1156:
1157: update fnd_concurrent_requests
1158: set phase_code = 'C',
1159: status_code = 'D',
1160: completion_text = msg,
1161: last_update_date = sysdate,
1167:
1168: end cancel_patch_requests;
1169:
1170:
1171: end FND_CONC;