[Home] [Help]
PACKAGE BODY: APPS.MSD_DEM_SSL_RS
Source
1 package body msd_dem_ssl_rs as
2 /* $Header: msddemrunrsb.pls 120.4 2011/03/28 11:58:13 sjagathe ship $ */
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 for_spf NUMBER DEFAULT 2)
13
14 is
15
16 l_success boolean := false;
17 l_submit_failed exception;
18
19 l_req_id number;
20 updateFlag number;
21
22 begin
23
24 IF (for_spf = 2) -- Demand Managament
25 THEN
26
27 l_success := fnd_submit.set_request_set('MSD','MSDDEMRSCSBHFFV4');
28
29 if not l_success then
30 raise l_submit_failed;
31 end if;
32
33 -- E1VCP Integration Fix#9842448 Stage05 to Update TP_SITE_CODE
34 -- Updating TP_SITE_CODE with LOCATION
35
36 updateFlag:= MSC_UTIL.SYS_NO;
37 l_success := fnd_submit.submit_program('MSC','MSCE1TPSITECODE','Stage05', instance,updateFlag);
38
39 if not l_success then
40 raise l_submit_failed;
41 end if;
42 -- END of E1VCP Fix#9842448
43
44 l_success := fnd_submit.submit_program('MSD','MSDDEMLD','STAGE10', instance, 1440, file_seperator, control_path, data_path, 3, null,
45 null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null, null,
46 null, null, null, null, null, null, null, null, null, null, file_name, auto_run);
47 if not l_success then
48 raise l_submit_failed;
49 end if;
50
51 l_success := fnd_submit.submit_program('MSD','MSDDEMSDP','STAGE20', instance);
52 if not l_success then
53 raise l_submit_failed;
54 end if;
55
56 l_success := fnd_submit.submit_program('MSD','MSDDEMCMB','STAGE30', instance, 1);
57 if not l_success then
58 raise l_submit_failed;
59 end if;
60
61 l_success := fnd_submit.submit_program('MSD','MSDDEMPST','STAGE35', 'EQ_BIIO_CTO_DATA', instance, 1);
62 if not l_success then
63 raise l_submit_failed;
64 end if;
65
66 l_success := fnd_submit.submit_program('MSD','MSDDEMPST','STAGE40', 'EQ_BIIO_CTO_BASE_MODEL', instance, 1);
67 if not l_success then
68 raise l_submit_failed;
69 end if;
70
71 l_success := fnd_submit.submit_program('MSD','MSDDEMPST','STAGE40', 'EQ_BIIO_CTO_LEVEL', instance, 1);
72 if not l_success then
73 raise l_submit_failed;
74 end if;
75
76 l_success := fnd_submit.submit_program('MSD','MSDDEMPST','STAGE40', 'EQ_SALES_TMPL_ITEM_OPTIONS', instance, 1);
77 if not l_success then
78 raise l_submit_failed;
79 end if;
80
81 l_success := fnd_submit.submit_program('MSD','MSDDEMPST','STAGE40', 'EQ_BIIO_CTO_DATA_EPP', instance, 1);
82 if not l_success then
83 raise l_submit_failed;
84 end if;
85
86 l_success := fnd_submit.submit_program('MSD','MSDDEMPST','STAGE40', 'EQ_BIIO_CTO_CHILD', instance, 1); --bug#9466697 nallkuma
87 if not l_success then
88 raise l_submit_failed;
89 end if;
90
91 l_success := fnd_submit.submit_program('MSD','MSDDEMCLT','STAGE50', instance, 2);
92 if not l_success then
93 raise l_submit_failed;
94 end if;
95
96 l_success := fnd_submit.submit_program('MSD','MSDDEMCLT','STAGE50', instance, 1);
97 if not l_success then
98 raise l_submit_failed;
99 end if;
100
101 l_success := fnd_submit.submit_program('MSD','MSDDEMPST','STAGE50', 'EQ_SALES_TMPL_ITEM', instance, 2);
102 if not l_success then
103 raise l_submit_failed;
104 end if;
105
106 l_success := fnd_submit.submit_program('MSD','MSDDEMPST','STAGE50', 'EQ_BIIO_CTO_POPULATION', instance, 1);
107 if not l_success then
108 raise l_submit_failed;
109 end if;
110
111 l_success := fnd_submit.submit_program('MSD','MSDDEMPST','STAGE50', 'EQ_BIIO_CTO_POPULATION_SITE', instance, 1); --bug#9466697 nallkuma
112 if not l_success then
113 raise l_submit_failed;
114 end if;
115
116 l_success := fnd_submit.submit_program('MSD','MSDDEMPST','STAGE50', 'EQ_BIIO_CTO_POPULATION_SC', instance, 1); --bug#9466697 nallkuma
117 if not l_success then
118 raise l_submit_failed;
119 end if;
120
121 l_success := fnd_submit.submit_program('MSD','MSDDEMPST','STAGE50', 'EQ_BIIO_CTO_POPULATION_DC', instance, 1); --bug#9466697 nallkuma
122 if not l_success then
123 raise l_submit_failed;
124 end if;
125
126 l_success := fnd_submit.submit_program('MSD','MSDDEMARD','STAGE60', auto_run);
127 if not l_success then
128 raise l_submit_failed;
129 end if;
130
131 -- E1VCP Integration Fix#9842448 Stage90 to Update TP_SITE_CODE
132 -- Updating TP_SITE_CODE with BILL_TO or SHIP_TO
133
134 updateFlag:= MSC_UTIL.SYS_YES;
135 l_success := fnd_submit.submit_program('MSC','MSCE1TPSITECODE','Stage90', instance,updateFlag);
136
137 if not l_success then
138 raise l_submit_failed;
139 end if;
140 -- END of E1VCP Fix#9842448
141
142 l_req_id := fnd_submit.submit_set(NULL,FALSE);
143
144 ELSE -- Service Parts Forecasting
145
146 BEGIN
147 l_req_id := null;
148 l_req_id := fnd_request.submit_request('MSD', 'MSDSPFCSF', NULL, NULL, FALSE, instance, auto_run, file_seperator, control_path,
149 data_path, file_name);
150
151 EXCEPTION
152 WHEN OTHERS THEN
153 retcode := -1;
154 errbuf := substr(SQLERRM,1,150);
155 msd_dem_common_utilities.log_message ('msd_dem_ssl_rs.run_rs - ERROR ...' || TO_CHAR(systimestamp, 'DD-MON-YYYY HH24:MI:SS'));
156 msd_dem_common_utilities.log_message ('Error while submitting request for collecting shipment history');
157 msd_dem_common_utilities.log_message (errbuf);
158 raise l_submit_failed;
159
160 END;
161
162 END IF;
163
164 commit;
165
166 retcode := 0;
167
168 exception
169 when l_submit_failed then
170 errbuf := 'Launching Request Set failed';
171 msd_dem_common_utilities.log_message(errbuf);
172 msd_dem_common_utilities.log_debug(errbuf);
173 retcode := -1;
174 when others then
175 errbuf := substr(SQLERRM,1,150);
176 msd_dem_common_utilities.log_message(errbuf);
177 msd_dem_common_utilities.log_debug(errbuf);
178 retcode := -1;
179
180 end;
181
182 end msd_dem_ssl_rs;
183