[Home] [Help]
157: profile_priority_number := to_number(profile_priority_char);
158:
159: Select min(nvl(request_priority, profile_priority_number))
160: Into program_priority
161: From Fnd_Concurrent_Programs P,
162: Fnd_Request_Set_Programs S
163: Where S.set_application_id = app_id
164: and S.request_set_id = set_id
165: and P.concurrent_program_id = S.concurrent_program_id
437: -- Get next request ID from sequence
438: -- only if it is a normal call without P_DEFERRED_MODE or its deferred call
439: if ( (P_DEFERRED_MODE) OR (P_DEF_REQUEST_ID = 0)) then
440: begin
441: Select Fnd_Concurrent_Requests_S.nextval
442: Into cur_request_id
443: From Sys.Dual;
444: exception
445: when no_data_found then
499: argument96, argument97, argument98, argument99, argument100,
500: Sysdate, FND_GLOBAL.conc_login_id, Sysdate,
501: FND_GLOBAL.conc_login_id, FND_GLOBAL.conc_login_id
502: From Fnd_Application FA,
503: Fnd_Concurrent_Programs FCP
504: Where
505: FCP.Enabled_Flag = 'Y'
506: And (FCP.Application_ID = FA.Application_ID And
507: Concurrent_Program_Name = Upper (program))
513: --
514: -- raising business event for request submitted
515: -- bug6623316
516: --
517: discard_status:=fnd_concurrent_business_event.raise_cp_bi_event(cur_request_id,fnd_concurrent_business_event.request_submitted);
518:
519: return (cur_request_id);
520: else
521: -- see if it is deferred call or normal call
673:
674:
675: -- Someone specified a schedule to use.
676: -- If it is a Specific schedule, figure out the correct start date to use.
677: -- If it is a Periodic schedule, populate the correct fields in FND_CONCURRENT_REQUESTS.
678: if (P_USES_REL_CLASS = 1) then
679: begin
680: select class_type, class_info, date1, date2
681: into schedule_type, schedule_info, sch_req_date, sch_end_date
720: begin
721: select fcpoi.node_name1
722: into P_NODE_NAME1
723: from fnd_conc_prog_onsite_info fcpoi,
724: fnd_concurrent_programs fcp,
725: fnd_application fa
726: where fcp.application_id = fcpoi.program_application_id
727: and fcp.concurrent_program_id = fcpoi.concurrent_program_id
728: and fa.application_id = fcp.application_id
738: begin
739: select fcpoi.connstr1
740: into P_CONNSTR1
741: from fnd_conc_prog_onsite_info fcpoi,
742: fnd_concurrent_programs fcp,
743: fnd_application fa
744: where fcp.application_id = fcpoi.program_application_id
745: and fcp.concurrent_program_id = fcpoi.concurrent_program_id
746: and fa.application_id = fcp.application_id
849: fcp_printer, print_style, reqrd_flag, minwid,
850: minlen, execcode, saveout, prtflg,
851: qctlflg, program_priority, request_set_flag,
852: submit_ops_id, portlet_ref, mult_pending_req
853: From Fnd_Concurrent_Programs P, Fnd_Application A
854: Where Upper(Concurrent_Program_Name) = upper(program)
855: And P.Application_ID = A.Application_ID
856: And Upper(A.Application_Short_Name) = upper(application);
857:
869: -- definition of pending: phase_code in P and hold_flag in N and
870: -- requested_start_date lessthan sysdate
871: begin
872: select count(*) into no_pending_req
873: from fnd_concurrent_requests
874: where program_application_id = prog_appl_id
875: And concurrent_program_id = conc_prog_id
876: And phase_code = 'P'
877: and hold_flag='N' and requested_start_date <= sysdate;
1585: end;
1586: end if;
1587:
1588: Insert
1589: Into Fnd_Concurrent_Requests (
1590: Request_Id, security_group_id,
1591: Phase_Code, Status_Code,
1592: Priority, Parent_Request_ID, Priority_Request_ID,
1593: Description, Req_Information,
1712: submit.argument23, submit.argument24,
1713: submit.argument25
1714:
1715: From Fnd_Application FA,
1716: Fnd_Concurrent_Programs FCP,
1717: Fnd_Oracle_Userid
1718: Where
1719: Oracle_Username = oraclacct
1720: And FCP.Enabled_Flag = 'Y'
1859: Decode(P_REPEAT_INTERVAL_TYPE,
1860: 'START', 'S', 'C')),
1861: null, null,
1862: Requested_start_date, resubmit_end_date
1863: From Fnd_Concurrent_Requests
1864: Where Request_ID = cur_request_id;
1865:
1866: if (sql%rowcount = 0) then
1867: raise relclass_insert_error;
1921: IF (P_USES_REL_CLASS = 1 AND schedule_type = 'X') THEN
1922: begin
1923: select c.resubmit_interval, c.resubmit_interval_unit_code, c.resubmit_interval_type_code
1924: into adv_sch_ri, adv_sch_riuc, adv_sch_ritc
1925: from fnd_conc_release_classes c, fnd_concurrent_requests r
1926: where r.request_id = cur_request_id and r.release_class_id = c.release_class_id
1927: and r.release_class_app_id = c.application_id;
1928: exception when others then
1929: adv_sch_ri := null;
1929: adv_sch_ri := null;
1930: adv_sch_riuc := null;
1931: adv_sch_ritc := null;
1932: end;
1933: update fnd_concurrent_requests fcr
1934: set fcr.resubmit_interval = nvl(adv_sch_ri,1),
1935: fcr.resubmit_interval_unit_code = nvl(adv_sch_riuc,'DAYS'),
1936: fcr.resubmit_interval_type_code = nvl(adv_sch_ritc,'START'),
1937: fcr.status_code = 'P'
1940: --
1941: -- raising business event for request submitted
1942: -- bug6623316
1943: --
1944: discard_status:=fnd_concurrent_business_event.raise_cp_bi_event(cur_request_id,fnd_concurrent_business_event.request_submitted);
1945:
1946: return (cur_request_id);
1947:
1948: exception
2003: when insert_error then -- Find the problem
2004: begin -- Is the program enabled?
2005: Select null
2006: Into Dummy
2007: From Fnd_Concurrent_Programs
2008: Where Application_ID = prog_appl_id
2009: And upper (Concurrent_Program_Name) = upper (program)
2010: And Enabled_Flag = 'Y';
2011:
3092: begin
3093: begin -- Is the program name correct?
3094: Select concurrent_program_id
3095: Into prog_id
3096: From Fnd_concurrent_programs
3097: Where concurrent_program_name = command
3098: and application_id = 0;
3099:
3100: exception
3133:
3134: begin -- Is the svc inst short name correct?
3135: Select Concurrent_queue_id
3136: Into mgr_id
3137: From Fnd_Concurrent_queues
3138: Where Application_id = mgr_app_id
3139: and Concurrent_queue_name = service;
3140: exception
3141: when no_data_found then
3150: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3151: return (0);
3152: end; -- Is the svc inst short name correct?
3153:
3154: my_descr := fnd_concurrent.Build_Svc_Ctrl_Desc(
3155: mgr_id, mgr_app_id, null, command);
3156:
3157: if (not (P_DB_TRIGGER_MODE)) then
3158: savepoint start_of_qc_submission;
3165: return(0);
3166: end if;
3167:
3168: begin -- Update queue cntrl code
3169: update fnd_concurrent_queues
3170: set CONTROL_CODE = decode(prog_id, 0, 'A', 1, 'D', 2, 'V', 3, 'R',
3171: 4, 'T', 5, 'D', 6, 'A', 7, 'O', 8, 'Q', null)
3172: where concurrent_queue_id = mgr_id
3173: and application_id = mgr_app_id;
3204: begin
3205: begin -- Is the program name correct?
3206: Select concurrent_program_id
3207: Into prog_id
3208: From Fnd_concurrent_programs
3209: Where concurrent_program_name = command
3210: and application_id = 0;
3211:
3212: exception
3242: 'ROUTINE', 'submit_svc_ctl__by_app', FALSE);
3243: return (0);
3244: end; -- Is the appl short name correct?
3245:
3246: my_descr := fnd_concurrent.Build_Svc_Ctrl_Desc(
3247: -1, mgr_app_id, svc_type, command);
3248:
3249: if (not (P_DB_TRIGGER_MODE)) then
3250: savepoint start_of_qc_submission;
3257: return(0);
3258: end if;
3259:
3260: begin -- Update queue cntrl code
3261: update fnd_concurrent_queues
3262: set CONTROL_CODE = decode(prog_id, 0, 'A', 1, 'D', 2, 'V', 3, 'R',
3263: 4, 'T', 5, 'D', 6, 'A', 7, 'O', 8, 'Q', null)
3264: where
3265: /* either CM or TM and request is for mgrs (or both) */
3313: begin
3314: begin -- Is the program name correct?
3315: Select concurrent_program_id
3316: Into prog_id
3317: From Fnd_concurrent_programs
3318: Where concurrent_program_name = command
3319: and application_id = 0;
3320:
3321: exception
3350: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
3351: return (0);
3352: end; -- Is the svc name correct?
3353:
3354: my_descr := fnd_concurrent.Build_Svc_Ctrl_Desc(-3, svc_id, null, command);
3355:
3356: if (not (P_DB_TRIGGER_MODE)) then
3357: savepoint start_of_qc_submission;
3358: end if;
3363: return(0);
3364: end if;
3365:
3366: begin -- Update queue cntrl code
3367: update fnd_concurrent_queues
3368: set CONTROL_CODE = decode(prog_id, 0, 'A', 1, 'D', 2, 'V', 3, 'R',
3369: 4, 'T', 5, 'D', 6, 'A', 7, 'O', 8, 'Q', null)
3370: where manager_type = to_char(svc_id);
3371: exception
3410: begin
3411: begin -- Is the program name correct?
3412: Select concurrent_program_id
3413: Into prog_id
3414: From Fnd_concurrent_programs
3415: Where concurrent_program_name = command
3416: and application_id = 0;
3417:
3418: exception
3428: 'ROUTINE', 'submit_svc_ctl_cpinfra', FALSE);
3429: return (0);
3430: end; -- Is the program name correct?
3431:
3432: my_descr := fnd_concurrent.Build_Svc_Ctrl_Desc(-2, null, null, command);
3433:
3434: if (not (P_DB_TRIGGER_MODE)) then
3435: savepoint start_of_qc_submission;
3436: end if;
3441: return(0);
3442: end if;
3443:
3444: begin -- Update queue cntrl code
3445: update fnd_concurrent_queues
3446: set CONTROL_CODE = decode(prog_id, 0, 'A', 1, 'D', 2, 'V', 3, 'R',
3447: 4, 'T', 5, 'D', 6, 'A', 7, 'O', 8, 'Q', null)
3448: where manager_type in ('1','3','4','5');
3449: exception
3488: begin
3489: begin -- Is the program name correct?
3490: Select concurrent_program_id
3491: Into prog_id
3492: From Fnd_concurrent_programs
3493: Where concurrent_program_name = command
3494: and application_id = 0;
3495:
3496: exception
3506: 'ROUTINE', 'submit_svc_ctl_cpall', FALSE);
3507: return (0);
3508: end; -- Is the program name correct?
3509:
3510: my_descr := fnd_concurrent.Build_Svc_Ctrl_Desc(-4, null, null, command);
3511:
3512: if (not (P_DB_TRIGGER_MODE)) then
3513: savepoint start_of_qc_submission;
3514: end if;
3591: -- Purpose
3592: -- Called for setting global request id and the request id will be used while creating actual request
3593: --
3594: -- Arguments
3595: -- request_id - used while creating actual request in fnd_concurrent_request
3596: --
3597: function set_def_request_id (request_id IN number)
3598: return boolean is
3599: begin