DBA Data[Home] [Help]

PACKAGE BODY: APPS.MSC_COPY_PLAN

Source


1 PACKAGE BODY MSC_COPY_PLAN AS
2 /* $Header: MSCCPPLB.pls 115.2 2004/08/09 12:16:57 alsriniv ship $  */
3  function COPY_PLAN (
4                      p_application IN varchar2 default null,
5                      p_program     IN varchar2 default null,
6                      p_description IN varchar2 default null,
7                      p_start_time  IN varchar2 default null,
8                      p_sub_request IN boolean  default false,
9                      p_source_plan_id IN number default null,
10                      p_dest_plan_name IN varchar2 default null,
11                      p_dest_plan_desc IN varchar2 default null,
12                      p_dest_org_selection IN number default null,
13                      p_dest_atp IN number default null,
14                      p_dest_production IN number default null,
15                      p_dest_notifications IN number default null,
16                      p_dest_inactive_on IN varchar2,
17                      p_organization_id  IN number default null,
18                      p_sr_instance_id IN number default null) return number IS
19 l_return_code number;
20 begin
21   l_return_code := fnd_request.submit_request(p_application,
22                                        p_program,
23                                        p_description,
24                                        p_start_time,
25                                        p_sub_request,
26                                        p_source_plan_id,
27                                        p_dest_plan_name,
28                                        p_dest_plan_desc,
29                                        p_dest_org_selection,
30                                        p_dest_atp,
31                                        p_dest_production,
32                                        p_dest_notifications,
33                                        p_dest_inactive_on,
34                                        p_organization_id,
35                                        p_sr_instance_id);
36    if l_return_code <> 0 then
37         commit;
38    end if;
39    return  l_return_code;
40 
41 end COPY_PLAN;
42 end msc_copy_plan;