PACKAGE BODY: APPS.MSD_DEM_SSL_RS

Source

1 package body msd_dem_ssl_rs as
2 /* $Header: msddemrunrsb.pls 120.0.12000000.2 2007/09/24 11:18:46 nallkuma noship $ */
3 
4 procedure run_rs(errbuf             out nocopy varchar2,
5                  retcode             out nocopy number,
6 								 instance number,
7 					  		 auto_run number,
8 								 file_seperator varchar,
9 								 control_path varchar2,
10 								 data_path varchar2,
11 								 file_name varchar2)
12 
13 is
14 
15 l_success boolean := false;
16 l_submit_failed exception;
17 
18 l_req_id number;
19 
20 begin
21 
22 		l_success := fnd_submit.set_request_set('MSD','MSDDEMLFD');
23 
24 		if not l_success then
25       raise l_submit_failed;
26     end if;
27 
28     l_success := fnd_submit.submit_program('MSD','MSDDEMLD','STAGE10', instance, 1440, file_seperator, control_path, data_path, 3, null,
29     																			null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null,
30     																			null, null, null, null, null, null, null, null, null, null, file_name, auto_run);
31     if not l_success then
32       raise l_submit_failed;
33     end if;
34 
35     l_success := fnd_submit.submit_program('MSD','MSDDEMSDP','STAGE20', instance);
36     if not l_success then
37       raise l_submit_failed;
38     end if;
39 
40     l_success := fnd_submit.submit_program('MSD','MSDDEMCLT','STAGE30', instance, 1);
41     if not l_success then
42       raise l_submit_failed;
43     end if;
44 
45     l_success := fnd_submit.submit_program('MSD','MSDDEMCLT','STAGE30', instance, 2);
46     if not l_success then
47       raise l_submit_failed;
48     end if;
49 
50     l_success := fnd_submit.submit_program('MSD','MSDDEMARD','STAGE40', auto_run);
51     if not l_success then
52       raise l_submit_failed;
53     end if;
54 
55     l_req_id := fnd_submit.submit_set(NULL,FALSE);
56 
57     commit;
58 
59     retcode := 0;
60 
61 		exception
62 				when l_submit_failed then
63 					 errbuf  := 'Launching Request Set failed';
64            msd_dem_common_utilities.log_message(errbuf);
65            msd_dem_common_utilities.log_debug(errbuf);
66            retcode := -1;
67         when others then
68         	 errbuf  := substr(SQLERRM,1,150);
69            msd_dem_common_utilities.log_message(errbuf);
70            msd_dem_common_utilities.log_debug(errbuf);
71            retcode := -1;
72 
73 end;
74 
75 end msd_dem_ssl_rs;
76