[Home] [Help]
207: profile_priority_number := to_number(profile_priority_char);
208:
209: Select min(nvl(request_priority, profile_priority_number))
210: Into program_priority
211: From Fnd_Concurrent_Programs P,
212: Fnd_Request_Set_Programs S
213: Where S.set_application_id = app_id
214: and S.request_set_id = set_id
215: and P.concurrent_program_id = S.concurrent_program_id
486: -- Get next request ID from sequence
487: -- only if it is a normal call without P_DEFERRED_MODE or its deferred call
488: if ( (P_DEFERRED_MODE) OR (P_DEF_REQUEST_ID = 0)) then
489: begin
490: Select Fnd_Concurrent_Requests_S.nextval
491: Into cur_request_id
492: From Sys.Dual;
493: exception
494: when no_data_found then
548: argument96, argument97, argument98, argument99, argument100,
549: Sysdate, FND_GLOBAL.conc_login_id, Sysdate,
550: FND_GLOBAL.conc_login_id, FND_GLOBAL.conc_login_id
551: From Fnd_Application FA,
552: Fnd_Concurrent_Programs FCP
553: Where
554: FCP.Enabled_Flag = 'Y'
555: And (FCP.Application_ID = FA.Application_ID And
556: Concurrent_Program_Name = Upper (program))
562: --
563: -- raising business event for request submitted
564: -- bug6623316
565: --
566: discard_status:=fnd_concurrent_business_event.raise_cp_bi_event(cur_request_id,fnd_concurrent_business_event.request_submitted);
567:
568: return (cur_request_id);
569: else
570: -- see if it is deferred call or normal call
717:
718:
719: -- Someone specified a schedule to use.
720: -- If it is a Specific schedule, figure out the correct start date to use.
721: -- If it is a Periodic schedule, populate the correct fields in FND_CONCURRENT_REQUESTS.
722: if (P_USES_REL_CLASS = 1) then
723: begin
724: select class_type, class_info, date1, date2
725: into schedule_type, schedule_info, sch_req_date, sch_end_date
764: begin
765: select fcpoi.node_name1
766: into P_NODE_NAME1
767: from fnd_conc_prog_onsite_info fcpoi,
768: fnd_concurrent_programs fcp,
769: fnd_application fa
770: where fcp.application_id = fcpoi.program_application_id
771: and fcp.concurrent_program_id = fcpoi.concurrent_program_id
772: and fa.application_id = fcp.application_id
782: begin
783: select fcpoi.connstr1
784: into P_CONNSTR1
785: from fnd_conc_prog_onsite_info fcpoi,
786: fnd_concurrent_programs fcp,
787: fnd_application fa
788: where fcp.application_id = fcpoi.program_application_id
789: and fcp.concurrent_program_id = fcpoi.concurrent_program_id
790: and fa.application_id = fcp.application_id
908: fcp_printer, print_style, reqrd_flag, minwid,
909: minlen, execcode, saveout, prtflg,
910: qctlflg, program_priority, request_set_flag,
911: submit_ops_id, portlet_ref, mult_pending_req
912: From Fnd_Concurrent_Programs P, Fnd_Application A
913: Where Upper(Concurrent_Program_Name) = upper(program)
914: And P.Application_ID = A.Application_ID
915: And Upper(A.Application_Short_Name) = upper(application);
916:
928: -- definition of pending: phase_code in P and hold_flag in N and
929: -- requested_start_date lessthan sysdate
930: begin
931: select count(*) into no_pending_req
932: from fnd_concurrent_requests
933: where program_application_id = prog_appl_id
934: And concurrent_program_id = conc_prog_id
935: And phase_code = 'P'
936: and hold_flag='N' and requested_start_date <= sysdate;
1690: end;
1691: end if;
1692:
1693: Insert
1694: Into Fnd_Concurrent_Requests (
1695: Request_Id, security_group_id,
1696: Phase_Code, Status_Code,
1697: Priority, Parent_Request_ID, Priority_Request_ID,
1698: Description, Req_Information,
1817: submit.argument23, submit.argument24,
1818: submit.argument25
1819:
1820: From Fnd_Application FA,
1821: Fnd_Concurrent_Programs FCP,
1822: Fnd_Oracle_Userid
1823: Where
1824: Oracle_Username = oraclacct
1825: And FCP.Enabled_Flag = 'Y'
1964: Decode(P_REPEAT_INTERVAL_TYPE,
1965: 'START', 'S', 'C')),
1966: null, null,
1967: Requested_start_date, resubmit_end_date
1968: From Fnd_Concurrent_Requests
1969: Where Request_ID = cur_request_id;
1970:
1971: if (sql%rowcount = 0) then
1972: raise relclass_insert_error;
2026: IF (P_USES_REL_CLASS = 1 AND schedule_type = 'X') THEN
2027: begin
2028: select c.resubmit_interval, c.resubmit_interval_unit_code, c.resubmit_interval_type_code
2029: into adv_sch_ri, adv_sch_riuc, adv_sch_ritc
2030: from fnd_conc_release_classes c, fnd_concurrent_requests r
2031: where r.request_id = cur_request_id and r.release_class_id = c.release_class_id
2032: and r.release_class_app_id = c.application_id;
2033: exception when others then
2034: adv_sch_ri := null;
2034: adv_sch_ri := null;
2035: adv_sch_riuc := null;
2036: adv_sch_ritc := null;
2037: end;
2038: update fnd_concurrent_requests fcr
2039: set fcr.resubmit_interval = nvl(adv_sch_ri,1),
2040: fcr.resubmit_interval_unit_code = nvl(adv_sch_riuc,'DAYS'),
2041: fcr.resubmit_interval_type_code = nvl(adv_sch_ritc,'START'),
2042: fcr.status_code = 'P'
2045: --
2046: -- raising business event for request submitted
2047: -- bug6623316
2048: --
2049: discard_status:=fnd_concurrent_business_event.raise_cp_bi_event(cur_request_id,fnd_concurrent_business_event.request_submitted);
2050:
2051: return (cur_request_id);
2052:
2053: exception
2108: when insert_error then -- Find the problem
2109: begin -- Is the program enabled?
2110: Select null
2111: Into Dummy
2112: From Fnd_Concurrent_Programs
2113: Where Application_ID = prog_appl_id
2114: And upper (Concurrent_Program_Name) = upper (program)
2115: And Enabled_Flag = 'Y';
2116:
2306:
2307: select fcpt.user_concurrent_program_name, fcp.concurrent_program_id,
2308: fa.application_id, printer_name
2309: into user_prog_name, conc_prog_id, conc_app_id, fcp_printer
2310: from fnd_concurrent_programs fcp, fnd_concurrent_programs_tl fcpt, fnd_application fa
2311: where fcp.concurrent_program_id=fcpt.concurrent_program_id
2312: and fcp.application_id=fcpt.application_id
2313: and fa.application_id=fcp.application_id
2314: and fcpt.language = userenv('LANG')
3648: -- Check to see if this is going to be an MLS request
3649: select decode(nvl(MLS_EXECUTABLE_ID, -1), -1, 'N', 'Y'),
3650: srs_flag
3651: into func_exists, srsflag
3652: from fnd_concurrent_programs FCP, fnd_application FA
3653: where FCP.CONCURRENT_PROGRAM_NAME = UPPER(program)
3654: and FA.APPLICATION_SHORT_NAME = UPPER(application)
3655: and FCP.APPLICATION_ID = FA.APPLICATION_ID;
3656:
3779: begin
3780: begin -- Is the program name correct?
3781: Select concurrent_program_id
3782: Into prog_id
3783: From Fnd_concurrent_programs
3784: Where concurrent_program_name = command
3785: and application_id = 0;
3786:
3787: exception
3820:
3821: begin -- Is the svc inst short name correct?
3822: Select Concurrent_queue_id
3823: Into mgr_id
3824: From Fnd_Concurrent_queues
3825: Where Application_id = mgr_app_id
3826: and Concurrent_queue_name = service;
3827: exception
3828: when no_data_found then
3837: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3838: return (0);
3839: end; -- Is the svc inst short name correct?
3840:
3841: my_descr := fnd_concurrent.Build_Svc_Ctrl_Desc(
3842: mgr_id, mgr_app_id, null, command);
3843:
3844: if (not (P_DB_TRIGGER_MODE)) then
3845: savepoint start_of_qc_submission;
3852: return(0);
3853: end if;
3854:
3855: begin -- Update queue cntrl code
3856: update fnd_concurrent_queues
3857: set CONTROL_CODE = decode(prog_id, 0, 'A', 1, 'D', 2, 'V', 3, 'R',
3858: 4, 'T', 5, 'D', 6, 'A', 7, 'O', 8, 'Q', null)
3859: where concurrent_queue_id = mgr_id
3860: and application_id = mgr_app_id;
3891: begin
3892: begin -- Is the program name correct?
3893: Select concurrent_program_id
3894: Into prog_id
3895: From Fnd_concurrent_programs
3896: Where concurrent_program_name = command
3897: and application_id = 0;
3898:
3899: exception
3929: 'ROUTINE', 'submit_svc_ctl__by_app', FALSE);
3930: return (0);
3931: end; -- Is the appl short name correct?
3932:
3933: my_descr := fnd_concurrent.Build_Svc_Ctrl_Desc(
3934: -1, mgr_app_id, svc_type, command);
3935:
3936: if (not (P_DB_TRIGGER_MODE)) then
3937: savepoint start_of_qc_submission;
3944: return(0);
3945: end if;
3946:
3947: begin -- Update queue cntrl code
3948: update fnd_concurrent_queues
3949: set CONTROL_CODE = decode(prog_id, 0, 'A', 1, 'D', 2, 'V', 3, 'R',
3950: 4, 'T', 5, 'D', 6, 'A', 7, 'O', 8, 'Q', null)
3951: where
3952: /* either CM or TM and request is for mgrs (or both) */
4000: begin
4001: begin -- Is the program name correct?
4002: Select concurrent_program_id
4003: Into prog_id
4004: From Fnd_concurrent_programs
4005: Where concurrent_program_name = command
4006: and application_id = 0;
4007:
4008: exception
4037: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
4038: return (0);
4039: end; -- Is the svc name correct?
4040:
4041: my_descr := fnd_concurrent.Build_Svc_Ctrl_Desc(-3, svc_id, null, command);
4042:
4043: if (not (P_DB_TRIGGER_MODE)) then
4044: savepoint start_of_qc_submission;
4045: end if;
4050: return(0);
4051: end if;
4052:
4053: begin -- Update queue cntrl code
4054: update fnd_concurrent_queues
4055: set CONTROL_CODE = decode(prog_id, 0, 'A', 1, 'D', 2, 'V', 3, 'R',
4056: 4, 'T', 5, 'D', 6, 'A', 7, 'O', 8, 'Q', null)
4057: where manager_type = to_char(svc_id);
4058: exception
4097: begin
4098: begin -- Is the program name correct?
4099: Select concurrent_program_id
4100: Into prog_id
4101: From Fnd_concurrent_programs
4102: Where concurrent_program_name = command
4103: and application_id = 0;
4104:
4105: exception
4115: 'ROUTINE', 'submit_svc_ctl_cpinfra', FALSE);
4116: return (0);
4117: end; -- Is the program name correct?
4118:
4119: my_descr := fnd_concurrent.Build_Svc_Ctrl_Desc(-2, null, null, command);
4120:
4121: if (not (P_DB_TRIGGER_MODE)) then
4122: savepoint start_of_qc_submission;
4123: end if;
4128: return(0);
4129: end if;
4130:
4131: begin -- Update queue cntrl code
4132: update fnd_concurrent_queues
4133: set CONTROL_CODE = decode(prog_id, 0, 'A', 1, 'D', 2, 'V', 3, 'R',
4134: 4, 'T', 5, 'D', 6, 'A', 7, 'O', 8, 'Q', null)
4135: where manager_type in ('1','3','4','5');
4136: exception
4175: begin
4176: begin -- Is the program name correct?
4177: Select concurrent_program_id
4178: Into prog_id
4179: From Fnd_concurrent_programs
4180: Where concurrent_program_name = command
4181: and application_id = 0;
4182:
4183: exception
4193: 'ROUTINE', 'submit_svc_ctl_cpall', FALSE);
4194: return (0);
4195: end; -- Is the program name correct?
4196:
4197: my_descr := fnd_concurrent.Build_Svc_Ctrl_Desc(-4, null, null, command);
4198:
4199: if (not (P_DB_TRIGGER_MODE)) then
4200: savepoint start_of_qc_submission;
4201: end if;
4278: -- Purpose
4279: -- Called for setting global request id and the request id will be used while creating actual request
4280: --
4281: -- Arguments
4282: -- request_id - used while creating actual request in fnd_concurrent_request
4283: --
4284: function set_def_request_id (request_id IN number)
4285: return boolean is
4286: begin