[Home] [Help]
1: package body FND_CONC_SSWA as
2: /* $Header: AFCPSSUB.pls 120.5 2008/06/13 15:35:38 ddhulla ship $ */
3:
4:
5: --
3:
4:
5: --
6: -- Package
7: -- FND_CONC_SSWA
8: -- Purpose
9: -- Utilities for the Concurrent SelfService Web Applications
10: -- History
11: --
45: --
46: -- Name
47: -- map_attr_to_arg
48: -- Purpose
49: -- Maps the application column name attribute in fnd_concurrent requests
50: -- to the enabled arguments of the program's desc flexfield
51:
52:
53:
110: g_request_id := reqid;
111:
112: -- check if there are more than 25 argument
113: select count(*) into g_arg_count
114: from fnd_conc_request_arguments
115: where request_id = reqid;
116:
117: -- clear global array
118: attr_counter := 1;
124: end loop;
125:
126: select r.program_application_id , p.concurrent_program_name
127: into app_id, prog_short_name
128: from fnd_concurrent_requests r, fnd_concurrent_programs p
129: where r.request_id = reqid
130: and r.concurrent_program_id = p.concurrent_program_id
131: and r.program_application_id = p.application_id;
132:
176: args(13), args(14), args(15), args(16),
177: args(17), args(18), args(19), args(20),
178: args(21), args(22), args(23), args(24),
179: args(25)
180: from fnd_concurrent_requests
181: where request_id = reqid;
182:
183: if (g_arg_count <> 0) then
184: select argument26,argument27,argument28,
211: args(81),args(82),args(83),args(84),args(85),
212: args(86),args(87),args(88),args(89),args(90),
213: args(91),args(92),args(93),args(94),args(95),
214: args(96),args(97),args(98),args(99),args(100)
215: from fnd_conc_request_arguments
216: where request_id = reqid;
217: end if;
218:
219: last_attr_disabled := 0;
281: into upcode,
282: uscode
283: from sys.dual
284: where not exists (select null
285: from fnd_concurrent_worker_requests
286: where request_id = rid
287: and running_processes > 0
288: and (not (queue_application_id = 0
289: and concurrent_queue_id in (1,4))
512:
513: /* If this is a temp schedule, erase the name */
514: SELECT COUNT(*)
515: into cnt
516: from FND_CONC_RELEASE_CLASSES
517: WHERE OWNER_REQ_ID is not null
518: AND RELEASE_CLASS_NAME = schedule_name
519: AND rownum < 2;
520:
528: elsif schedule_type = 'P' then
529: if my_schedule_name is null then
530: select resubmit_interval, resubmit_interval_unit_code
531: into interval, int_unit
532: from fnd_concurrent_requests
533: where request_id = req_id;
534: if date2 is null then
535: fnd_message.set_name('FND','SCH-PERIODIC NO END DATE');
536: fnd_message.set_token('UNIT_INTERVAL', to_char(interval));
730: sch_curr_values, sch_type
731: into l_sch_id, l_sch_exists, l_sch_perm, l_sch_owner_req_id,
732: l_requested_start_date, l_request_date, l_sch_date1, l_sch_date2,
733: l_sch_name, l_sch_curr_values, l_sch_type
734: from fnd_conc_requests_form_v
735: where request_id = get_sch_desc.request_id;
736:
737:
738:
823: function get_notifications(request_id in number) return varchar2 is
824:
825: cursor notifications(req_id number) is
826: select substrb(display_name,1,80) dname
827: from fnd_conc_pp_actions pp,
828: wf_roles wf
829: where pp.concurrent_request_id = req_id
830: and pp.action_type = 2
831: and wf.orig_system_id = pp.orig_system_id
852: return null;
853: end;
854:
855: -- This function will return request diagnostics for a given request_id.
856: -- This is a wrapper on top of fnd_conc.diagnose procedure.
857:
858: function diagnostics( request_id IN number ) return varchar2 is
859: phase varchar2(80);
860: status varchar2(80);
859: phase varchar2(80);
860: status varchar2(80);
861: diag varchar2(2000);
862: begin
863: fnd_conc.diagnose(request_id, phase, status, diag );
864:
865: return diag;
866: end;
867:
881: (select R.phase_code,
882: decode(nvl(A.Action_type,0), 6, O.file_name, R.outfile_name),
883: decode(nvl(A.action_type,0), 6, O.file_size, R.ofile_size),
884: R.save_output_flag
885: from fnd_concurrent_requests R,
886: fnd_conc_pp_actions A,
887: fnd_conc_req_outputs O
888: where R.request_id = A.concurrent_request_id (+)
889: and R.request_id = O.concurrent_request_id (+)
882: decode(nvl(A.Action_type,0), 6, O.file_name, R.outfile_name),
883: decode(nvl(A.action_type,0), 6, O.file_size, R.ofile_size),
884: R.save_output_flag
885: from fnd_concurrent_requests R,
886: fnd_conc_pp_actions A,
887: fnd_conc_req_outputs O
888: where R.request_id = A.concurrent_request_id (+)
889: and R.request_id = O.concurrent_request_id (+)
890: and R.request_id = req_id
883: decode(nvl(A.action_type,0), 6, O.file_size, R.ofile_size),
884: R.save_output_flag
885: from fnd_concurrent_requests R,
886: fnd_conc_pp_actions A,
887: fnd_conc_req_outputs O
888: where R.request_id = A.concurrent_request_id (+)
889: and R.request_id = O.concurrent_request_id (+)
890: and R.request_id = req_id
891: order by A.action_type desc)
942: --
943: function layout_enabled ( ProgramApplName varchar2,
944: ProgramShortName varchar2) return boolean is
945: sqlstmt varchar2(1000) := 'select count(*) from ' ||
946: ' xdo_templates_vl T, fnd_concurrent_programs P, ' ||
947: ' fnd_application A ' ||
948: ' where DS_APP_SHORT_NAME= :1 and data_source_code= :2 ' ||
949: ' and template_status = ''E'' and sysdate between ' ||
950: ' start_date and nvl(end_date, sysdate) ' ||
993: return FALSE;
994:
995: end;
996:
997: end FND_CONC_SSWA;