[Home] [Help]
PACKAGE BODY: APPS.MSD_SRP_SSL_RS
Source
1 package body msd_srp_ssl_rs as
2 /* $Header: msdsrprunrsb.pls 120.0 2007/11/07 10:24:40 vrepaka noship $ */
3
4 procedure run_rs(errbuf out nocopy varchar2,
5 retcode out nocopy number,
6 instance number,
7 file_seperator varchar,
8 control_path varchar2,
9 data_path varchar2,
10 file_name varchar2)
11
12 is
13
14 l_success boolean := false;
15 l_submit_failed exception;
16 l_req_id number;
17
18 begin
19
20 l_success := fnd_submit.set_request_set('MSD','MSDSRPFFLD');
21 if not l_success then
22 raise l_submit_failed;
23 end if;
24
25 if instr(file_name,'InstallBaseHistory') > 0 then
26 l_success := fnd_submit.submit_program('MSD','MSDSRPLD','STAGE10', instance, 1440, file_seperator, control_path, data_path, 3, null,null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null,
27 null, null, null, null, null, null, null, null, null, null,null,1,file_name);
28 if not l_success then
29 raise l_submit_failed;
30 end if;
31 l_success := fnd_submit.submit_program('MSD','MSDSRPPP','STAGE20',instance,1);
32 if not l_success then
33 raise l_submit_failed;
34 end if;
35 end if;
36
37 IF instr(file_name,'FldSerUsgHist')>0 THEN
38 l_success := fnd_submit.submit_program('MSD','MSDSRPLD','STAGE10', instance, 1440, file_seperator, control_path, data_path, 3, null,null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null,
39 null, null, null, null, null, null, null, null, null, null,null,1,null,file_name);
40 if not l_success then
41 raise l_submit_failed;
42 end if;
43 l_success := fnd_submit.submit_program('MSD','MSDSRPPP','STAGE20',instance,2);
44 if not l_success then
45 raise l_submit_failed;
46 end if;
47 end if;
48
49 IF instr(file_name,'DptRepUsgHist')>0 THEN
50 l_success := fnd_submit.submit_program('MSD','MSDSRPLD','STAGE10', instance, 1440, file_seperator, control_path, data_path, 3, null,null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null,
51 null, null, null, null, null, null, null, null, null, null,null,1,null,null,file_name);
52 if not l_success then
53 raise l_submit_failed;
54 end if;
55 l_success := fnd_submit.submit_program('MSD','MSDSRPPP','STAGE20',instance,3);
56 if not l_success then
57 raise l_submit_failed;
58 end if;
59 end if;
60
61 IF instr(file_name,'SerPartRetHist')>0 THEN
62 l_success := fnd_submit.submit_program('MSD','MSDSRPLD','STAGE10', instance, 1440, file_seperator, control_path, data_path, 3, null,null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null,
63 null, null, null, null, null, null, null, null, null, null,null,1,null,null,null,file_name);
64 if not l_success then
65 raise l_submit_failed;
66 end if;
67 l_success := fnd_submit.submit_program('MSD','MSDSRPPP','STAGE20',instance,4);
68 if not l_success then
69 raise l_submit_failed;
70 end if;
71 end if;
72
73 IF instr(file_name,'FailureRates')>0 THEN
74 l_success := fnd_submit.submit_program('MSD','MSDSRPLD','STAGE10', instance, 1440, file_seperator, control_path, data_path, 3, null,null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null,
75 null, null, null, null, null, null, null, null, null, null,null,1,null,null,null,null,file_name);
76 if not l_success then
77 raise l_submit_failed;
78 end if;
79 l_success := fnd_submit.submit_program('MSD','MSDSRPPP','STAGE20',instance,5);
80 if not l_success then
81 raise l_submit_failed;
82 end if;
83 end if;
84
85 IF instr(file_name,'PrdRetHist')>0 THEN
86 l_success := fnd_submit.submit_program('MSD','MSDSRPLD','STAGE10', instance, 1440, file_seperator, control_path, data_path, 3, null,null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null,
87 null, null, null, null, null, null, null, null, null, null,null,1,null,null,null,null,null,file_name);
88 if not l_success then
89 raise l_submit_failed;
90 end if;
91 l_success := fnd_submit.submit_program('MSD','MSDSRPPP','STAGE20',instance,6);
92 if not l_success then
93 raise l_submit_failed;
94 end if;
95 end if;
96
97 IF instr(file_name,'ForecastData')>0 THEN
98 l_success := fnd_submit.submit_program('MSD','MSDSRPLD','STAGE10', instance, 1440, file_seperator, control_path, data_path, 3, null,null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null,
99 null, null, null, null, null, null, null, null, null, null,null,1,null,null,null,null,null,null,file_name);
100 if not l_success then
101 raise l_submit_failed;
102 end if;
103 l_success := fnd_submit.submit_program('MSD','MSDSRPPP','STAGE20',instance,7);
104 if not l_success then
105 raise l_submit_failed;
106 end if;
107
108 end if;
109
110 l_req_id := fnd_submit.submit_set(NULL,FALSE);
111 commit;
112
113 retcode := 0;
114 exception
115 when l_submit_failed then
116 errbuf := 'Launching Request Set failed for SRP Streams';
117 msd_dem_common_utilities.log_message(errbuf);
118 msd_dem_common_utilities.log_debug(errbuf);
119 retcode := -1;
120 when others then
121 errbuf := substr(SQLERRM,1,150);
122 msd_dem_common_utilities.log_message(errbuf);
123 msd_dem_common_utilities.log_debug(errbuf);
124 retcode := -1;
125
126 end;
127
128 end msd_srp_ssl_rs;
129
130