[Home] [Help]
PACKAGE BODY: APPS.JTF_AM_WF_EVENTS_PUB
Source
1 PACKAGE BODY jtf_am_wf_events_pub AS
2 /* $Header: jtfamwpb.pls 120.3 2006/08/18 07:05:01 mpadhiar noship $ */
3
4 /*****************************************************************************************
5 ******************************************************************************************/
6
7 /* Package variables. */
8
9 G_PKG_NAME VARCHAR2(30) := 'JTF_AM_WF_EVENTS_PUB';
10
11 /*****Commented out this function for Enh. No 3076744 by SBARAT, 13/09/2004 and new one has been written below*****/
12
13 /*FUNCTION item_key(p_event_name IN VARCHAR2) RETURN VARCHAR2*/
14 /* Return Item_Key according to Resource Event to be raised
15 Item_Key is <Event_Name>-jtf_rs_wf_event_guid_s.nextval */
16 /*IS
17 l_key varchar2(240);
18 BEGIN
19 SELECT p_event_name ||'-'|| JTF_AM_WF_SR_EVENT_S.nextval INTO l_key FROM DUAL;
20 RETURN l_key;
21 END item_key;*/
22
23 /*************************End of Comments***********************/
24
25
26 /*********** Modified function Item_Key for all document types done for Enh. No 3076744 by SBARAT, 15/09/2004***********/
27
28 FUNCTION item_key(p_event_name IN VARCHAR2) RETURN VARCHAR2
29 /* Return Item_Key according to Resource Event to be raised
30 Item_Key is <Event_Name>-jtf_rs_wf_event_guid_s.nextval */
31 IS
32 l_key varchar2(240);
33 l_str varchar2(1000);
34 l_doc_type varchar2(10);
35 l_sequence varchar2(10);
36 BEGIN
37 SELECT Upper(Substr(p_event_name,22,(Instr(p_event_name,'.',1,5)-22))) into l_doc_type from dual;
38 l_str:='SELECT JTF_AM_WF_'||l_doc_type||'_EVENT_S.nextval FROM DUAL';
39 EXECUTE IMMEDIATE l_str Into l_sequence;
40 l_key:=p_event_name ||'-'|| l_sequence;
41 RETURN l_key;
42 END item_key;
43
44 /****************** End of Changes for Enh. No 3076744 by SBARAT, 15/09/2004***************/
45
46
47 PROCEDURE assign_sr_resource
48 (P_API_VERSION IN NUMBER,
49 P_INIT_MSG_LIST IN VARCHAR2,
50 P_COMMIT IN VARCHAR2,
51 P_CONTRACT_ID IN NUMBER ,
52 P_CUSTOMER_PRODUCT_ID IN NUMBER ,
53 P_CATEGORY_ID IN NUMBER ,
54 P_INVENTORY_ITEM_ID IN NUMBER ,
55 P_INVENTORY_ORG_ID IN NUMBER ,
56 P_PROBLEM_CODE IN VARCHAR2 ,
57 P_SR_REC IN JTF_ASSIGN_PUB.JTF_SERV_REQ_REC_TYPE,
58 P_SR_TASK_REC IN JTF_ASSIGN_PUB.JTF_SRV_TASK_REC_TYPE,
59 P_BUSINESS_PROCESS_ID IN NUMBER,
60 P_BUSINESS_PROCESS_DATE IN DATE,
61 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
62 X_MSG_COUNT OUT NOCOPY NUMBER,
63 X_MSG_DATA OUT NOCOPY VARCHAR2,
64 --Added for Bug # 5386560
65 P_INVENTORY_COMPONENT_ID IN NUMBER DEFAULT NULL
66 --Added for Bug # 5386560 Ends here
67 ) IS
68
69 l_api_version CONSTANT NUMBER := 1.0;
70 l_api_name CONSTANT VARCHAR2(30) := 'ASSIGN_RESOURCE';
71 l_sysdate date := trunc(sysdate);
72
73 l_list WF_PARAMETER_LIST_T;
74 l_key varchar2(240);
75 l_exist varchar2(30);
76 l_event_name varchar2(240) := 'oracle.apps.jtf.jasg.sr.assign';
77
78 BEGIN
79
80 x_return_status := fnd_api.g_ret_sts_success;
81 savepoint asg_publish_save;
82
83 IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
84 RAISE fnd_api.g_exc_unexpected_error;
85 END IF;
86
87 --Initialize the message List if P_INIT_MSG_LIST is NOT NULL and set to TRUE
88 if p_init_msg_list is not NULL AND fnd_api.to_boolean(p_init_msg_list)
89 then
90 fnd_msg_pub.Initialize;
91 end if;
92
93 --Get the item key
94 l_key := item_key(l_event_name);
95
96 -- initialization of object variables
97
98
99 IF(p_sr_rec.SERVICE_REQUEST_ID is not null)
100 THEN
101 wf_event.AddParameterToList('SERVICE_REQUEST_ID',p_sr_rec.SERVICE_REQUEST_ID,l_list);
102 ELSE
103 wf_event.AddParameterToList('SERVICE_REQUEST_ID',p_sr_task_rec.SERVICE_REQUEST_ID, l_list);
104 END IF;
105
106 wf_event.AddParameterToList('CONTRACT_ID',p_contract_id,l_list);
107 wf_event.AddParameterToList('CUSTOMER_PRODUT_ID',p_customer_product_id,l_list);
108 wf_event.AddParameterToList('CATEGORY_ID',p_category_id,l_list);
109 wf_event.AddParameterToList('INVENTORY_ITEM_ID',p_inventory_item_id,l_list);
110 wf_event.AddParameterToList('INVENTORY_ORG_ID',p_inventory_org_id,l_list);
111 --Added for Bug # 5386560
112 wf_event.AddParameterToList('INVENTORY_COMPONENT_ID',p_inventory_component_id,l_list);
113 --Added for Bug # 5386560 Ends here
114 wf_event.AddParameterToList('PROBLEM_CODE',p_problem_code,l_list);
115 wf_event.AddParameterToList('BUSINESS_PROCESS_ID',p_business_process_id,l_list);
116 wf_event.AddParameterToList('BUSINESS_PROCESS_DATE',p_business_process_date,l_list);
117 wf_event.AddParameterToList('TASK_ID',p_sr_task_rec.task_id, l_list);
118 wf_event.AddParameterToList('TASK_TYPE_ID',p_sr_task_rec.task_type_id, l_list);
119 wf_event.AddParameterToList('TASK_STATUS_ID',p_sr_task_rec.task_status_id,l_list);
120 wf_event.AddParameterToList('TASK_PRIORITY_ID',p_sr_task_rec.task_priority_id,l_list);
121
122 IF(p_sr_rec.PARTY_ID is not null)
123 THEN
124 wf_event.AddParameterToList('PARTY_ID',p_sr_rec.PARTY_ID,l_list);
125 ELSE
126 wf_event.AddParameterToList('PARTY_ID',p_sr_task_rec.PARTY_ID, l_list);
127 END IF;
128 IF(p_sr_rec.COUNTRY is not null)
129 THEN
130 wf_event.AddParameterToList('COUNTRY',p_sr_rec.COUNTRY,l_list);
131 ELSE
132 wf_event.AddParameterToList('COUNTRY',p_sr_task_rec.COUNTRY, l_list);
133 END IF;
134
135 IF(p_sr_rec.PARTY_SITE_ID is not null)
136 THEN
137 wf_event.AddParameterToList('PARTY_SITE_ID',p_sr_rec.PARTY_SITE_ID,l_list);
138 ELSE
139 wf_event.AddParameterToList('PARTY_SITE_ID',p_sr_task_rec.PARTY_SITE_ID, l_list);
140 END IF;
141
142 IF(p_sr_rec.CITY is not null)
143 THEN
144 wf_event.AddParameterToList('CITY',p_sr_rec.CITY,l_list);
145 ELSE
146 wf_event.AddParameterToList('CITY',p_sr_task_rec.CITY, l_list);
147 END IF;
148 IF(p_sr_rec.POSTAL_CODE is not null)
149 THEN
150 wf_event.AddParameterToList('POSTAL_CODE',p_sr_rec.POSTAL_CODE,l_list);
151 ELSE
152 wf_event.AddParameterToList('POSTAL_CODE',p_sr_task_rec.POSTAL_CODE, l_list);
153 END IF;
154 IF(p_sr_rec.STATE is not null)
155 THEN
156 wf_event.AddParameterToList('STATE',p_sr_rec.STATE,l_list);
157 ELSE
158 wf_event.AddParameterToList('STATE',p_sr_task_rec.STATE, l_list);
159 END IF;
160 IF(p_sr_rec.AREA_CODE is not null)
161 THEN
162 wf_event.AddParameterToList('AREA_CODE',p_sr_rec.AREA_CODE ,l_list);
163 ELSE
164 wf_event.AddParameterToList('AREA_CODE',p_sr_task_rec.AREA_CODE, l_list);
165 END IF;
166 IF(p_sr_rec.COUNTY is not null)
167 THEN
168 wf_event.AddParameterToList('COUNTY',p_sr_rec.COUNTY,l_list);
169 ELSE
170 wf_event.AddParameterToList('COUNTY',p_sr_task_rec.COUNTY, l_list);
171 END IF;
172 IF(p_sr_rec.COMP_NAME_RANGE is not null)
173 THEN
174 wf_event.AddParameterToList('COMP_NAME_RANGE',p_sr_rec.COMP_NAME_RANGE,l_list);
175 ELSE
176 wf_event.AddParameterToList('COMP_NAME_RANGE',p_sr_task_rec.COMP_NAME_RANGE, l_list);
177 END IF;
178 IF(p_sr_rec.PROVINCE is not null)
179 THEN
180 wf_event.AddParameterToList('PROVINCE',p_sr_rec.PROVINCE,l_list);
181 ELSE
182 wf_event.AddParameterToList('PROVINCE',p_sr_task_rec.PROVINCE, l_list);
183 END IF;
184 IF(p_sr_rec.INCIDENT_SEVERITY_ID is not null)
185 THEN
186 wf_event.AddParameterToList('INCIDENT_SEVERITY_ID',p_sr_rec.INCIDENT_SEVERITY_ID,l_list);
187 ELSE
188 wf_event.AddParameterToList('INCIDENT_SEVERITY_ID',p_sr_task_rec.INCIDENT_SEVERITY_ID, l_list);
189 END IF;
190 IF(p_sr_rec.SERVICE_REQUEST_ID is not null)
191 THEN
192 wf_event.AddParameterToList('INCIDENT_URGENCY_ID',p_sr_rec.INCIDENT_URGENCY_ID,l_list);
193 ELSE
194 wf_event.AddParameterToList('INCIDENT_URGENCY_ID',p_sr_task_rec.INCIDENT_URGENCY_ID, l_list);
195 END IF;
196 IF(p_sr_rec.SERVICE_REQUEST_ID is not null)
197 THEN
198 wf_event.AddParameterToList('PROBLEM_CODE',p_sr_rec.PROBLEM_CODE,l_list);
199 ELSE
200 wf_event.AddParameterToList('PROBLEM_CODE',p_sr_task_rec.PROBLEM_CODE, l_list);
201 END IF;
202
203 IF(p_sr_rec.INCIDENT_STATUS_ID is not null)
204 THEN
205 wf_event.AddParameterToList('INCIDENT_STATUS_ID',p_sr_rec.INCIDENT_STATUS_ID,l_list);
206 ELSE
207 wf_event.AddParameterToList('INCIDENT_STATUS_ID',p_sr_task_rec.INCIDENT_STATUS_ID, l_list);
208 END IF;
209
210 IF(p_sr_rec.PLATFORM_ID is not null)
211 THEN
212 wf_event.AddParameterToList('PLATFORM_ID',p_sr_rec.PLATFORM_ID,l_list);
213 ELSE
214 wf_event.AddParameterToList('PLATFORM_ID',p_sr_task_rec.PLATFORM_ID, l_list);
215 END IF;
216
217 IF(p_sr_rec.SUPPORT_SITE_ID is not null)
218 THEN
219 wf_event.AddParameterToList('SUPPORT_SITE_ID',p_sr_rec.SUPPORT_SITE_ID,l_list);
220 ELSE
221 wf_event.AddParameterToList('SUPPORT_SITE_ID',p_sr_task_rec.SUPPORT_SITE_ID, l_list);
222 END IF;
223 IF(p_sr_rec.CUSTOMER_SITE_ID is not null)
224 THEN
225 wf_event.AddParameterToList('CUSTOMER_SITE_ID',p_sr_rec.CUSTOMER_SITE_ID,l_list);
226 ELSE
227 wf_event.AddParameterToList('CUSTOMER_SITE_ID',p_sr_task_rec.CUSTOMER_SITE_ID, l_list);
228 END IF;
229 IF(p_sr_rec.SR_CREATION_CHANNEL is not null)
230 THEN
231 wf_event.AddParameterToList('SR_CREATION_CHANNEL',p_sr_rec.SR_CREATION_CHANNEL,l_list);
232 ELSE
233 wf_event.AddParameterToList('SR_CREATION_CHANNEL',p_sr_task_rec.SR_CREATION_CHANNEL, l_list);
234 END IF;
235 IF(p_sr_rec.INVENTORY_ITEM_ID is not null)
236 THEN
237 wf_event.AddParameterToList('INVENTORY_ITEM_ID',p_sr_rec.INVENTORY_ITEM_ID,l_list);
238 ELSE
239 wf_event.AddParameterToList('INVENTORY_ITEM_ID',p_sr_task_rec.INVENTORY_ITEM_ID, l_list);
240 END IF;
241 IF(p_sr_rec.SQUAL_NUM12 is not null)
242 THEN
243 wf_event.AddParameterToList('SQUAL_NUM12',p_sr_rec.SQUAL_NUM12,l_list);
244 ELSE
245 wf_event.AddParameterToList('SQUAL_NUM12',p_sr_task_rec.SQUAL_NUM12, l_list);
246 END IF;
247 IF(p_sr_rec.SQUAL_NUM13 is not null)
248 THEN
249 wf_event.AddParameterToList('SQUAL_NUM13',p_sr_rec.SQUAL_NUM13,l_list);
250 ELSE
251 wf_event.AddParameterToList('SQUAL_NUM13',p_sr_task_rec.SQUAL_NUM13, l_list);
252 END IF;
253 IF(p_sr_rec.SQUAL_NUM13 is not null)
254 THEN
255 wf_event.AddParameterToList('SQUAL_NUM13',p_sr_rec.SQUAL_NUM13,l_list);
256 ELSE
257 wf_event.AddParameterToList('SQUAL_NUM13',p_sr_task_rec.SQUAL_NUM13, l_list);
258 END IF;
259 IF(p_sr_rec.SQUAL_NUM14 is not null)
260 THEN
261 wf_event.AddParameterToList('SQUAL_NUM14',p_sr_rec.SQUAL_NUM14,l_list);
262 ELSE
263 wf_event.AddParameterToList('SQUAL_NUM14',p_sr_task_rec.SQUAL_NUM14, l_list);
264 END IF;
265 IF(p_sr_rec.SQUAL_NUM15 is not null)
266 THEN
267 wf_event.AddParameterToList('SQUAL_NUM15',p_sr_rec.SQUAL_NUM15,l_list);
268 ELSE
269 wf_event.AddParameterToList('SQUAL_NUM15',p_sr_task_rec.SQUAL_NUM15, l_list);
270 END IF;
271 IF(p_sr_rec.SQUAL_NUM16 is not null)
272 THEN
273 wf_event.AddParameterToList('SQUAL_NUM16',p_sr_rec.SQUAL_NUM16,l_list);
274 ELSE
275 wf_event.AddParameterToList('SQUAL_NUM16',p_sr_task_rec.SQUAL_NUM16, l_list);
276 END IF;
277 IF(p_sr_rec.SQUAL_NUM17 is not null)
278 THEN
279 wf_event.AddParameterToList('SQUAL_NUM17',p_sr_rec.SQUAL_NUM17,l_list);
280 ELSE
281 wf_event.AddParameterToList('SQUAL_NUM17',p_sr_task_rec.SQUAL_NUM17, l_list);
282 END IF;
283 IF(p_sr_rec.SQUAL_NUM18 is not null)
284 THEN
285 wf_event.AddParameterToList('SQUAL_NUM18',p_sr_rec.SQUAL_NUM18,l_list);
286 ELSE
287 wf_event.AddParameterToList('SQUAL_NUM18',p_sr_task_rec.SQUAL_NUM18, l_list);
288 END IF;
289 IF(p_sr_rec.SQUAL_NUM19 is not null)
290 THEN
291 wf_event.AddParameterToList('SQUAL_NUM19',p_sr_rec.SQUAL_NUM19 ,l_list);
292 ELSE
293 wf_event.AddParameterToList('SQUAL_NUM19',p_sr_task_rec.SQUAL_NUM19 , l_list);
294 END IF;
295 IF(p_sr_rec.SQUAL_CHAR11 is not null)
296 THEN
300 END IF;
297 wf_event.AddParameterToList('SQUAL_CHAR11',p_sr_rec.SQUAL_CHAR11,l_list);
298 ELSE
299 wf_event.AddParameterToList('SQUAL_CHAR11',p_sr_task_rec.SQUAL_CHAR11, l_list);
301 IF(p_sr_rec.SQUAL_CHAR13 is not null)
302 THEN
303 wf_event.AddParameterToList('SQUAL_CHAR13',p_sr_rec.SQUAL_CHAR13,l_list);
304 ELSE
305 wf_event.AddParameterToList('SQUAL_CHAR13',p_sr_task_rec.SQUAL_CHAR13, l_list);
306 END IF;
307 IF(p_sr_rec.SQUAL_CHAR20 is not null)
308 THEN
309 wf_event.AddParameterToList('SQUAL_CHAR20',p_sr_rec.SQUAL_CHAR20,l_list);
310 ELSE
311 wf_event.AddParameterToList('SQUAL_CHAR20',p_sr_task_rec.SQUAL_CHAR20, l_list);
312 END IF;
313 IF(p_sr_rec.SQUAL_CHAR21 is not null)
314 THEN
315 wf_event.AddParameterToList('SQUAL_CHAR21',p_sr_rec.SQUAL_CHAR21,l_list);
316 ELSE
317 wf_event.AddParameterToList('SQUAL_CHAR21',p_sr_task_rec.SQUAL_CHAR21, l_list);
318 END IF;
319 /********** Start of addition by SBARAT on 10/01/2005 for Enh 4112155 ***************/
320 IF(p_sr_rec.ITEM_COMPONENT is not null)
321 THEN
322 wf_event.AddParameterToList('ITEM_COMPONENT',p_sr_rec.ITEM_COMPONENT,l_list);
323 ELSE
324 wf_event.AddParameterToList('ITEM_COMPONENT',p_sr_task_rec.ITEM_COMPONENT, l_list);
325 END IF;
326 IF(p_sr_rec.ITEM_SUBCOMPONENT is not null)
327 THEN
328 wf_event.AddParameterToList('ITEM_SUBCOMPONENT',p_sr_rec.ITEM_SUBCOMPONENT,l_list);
329 ELSE
330 wf_event.AddParameterToList('ITEM_SUBCOMPONENT',p_sr_task_rec.ITEM_SUBCOMPONENT, l_list);
331 END IF;
332 /********** End of addition by SBARAT on 10/01/2005 for Enh 4112155 ***************/
333
334 -- Raise Event
335 wf_event.raise(
336 p_event_name => l_event_name
337 ,p_event_key => l_key
338 ,p_event_data => null
339 ,p_parameters => l_list
340 );
341
342 l_list.DELETE;
343
344 EXCEPTION when OTHERS then
345 ROLLBACK TO asg_publish_save;
346 x_return_status := fnd_api.g_ret_sts_unexp_error;
347
348 END assign_sr_resource;
349
350 /*********** Added by SBARAT on 01/11/2004 for Enh-3919046 ***********/
351
352 PROCEDURE assign_dr_resource
353 (P_API_VERSION IN NUMBER,
354 P_INIT_MSG_LIST IN VARCHAR2,
355 P_COMMIT IN VARCHAR2,
356 P_CONTRACT_ID IN NUMBER ,
357 P_CUSTOMER_PRODUCT_ID IN NUMBER ,
358 P_CATEGORY_ID IN NUMBER ,
359 P_INVENTORY_ITEM_ID IN NUMBER ,
360 P_INVENTORY_ORG_ID IN NUMBER ,
361 P_PROBLEM_CODE IN VARCHAR2 ,
362 P_DR_REC IN JTF_ASSIGN_PUB.JTF_DR_REC_TYPE,
363 P_BUSINESS_PROCESS_ID IN NUMBER,
364 P_BUSINESS_PROCESS_DATE IN DATE,
365 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
366 X_MSG_COUNT OUT NOCOPY NUMBER,
367 X_MSG_DATA OUT NOCOPY VARCHAR2
368 ) IS
369
370 l_api_version CONSTANT NUMBER := 1.0;
371 l_api_name CONSTANT VARCHAR2(30) := 'ASSIGN_RESOURCE';
372 l_sysdate date := trunc(sysdate);
373
374 l_list WF_PARAMETER_LIST_T;
375 l_key varchar2(240);
376 l_exist varchar2(30);
377 l_event_name varchar2(240) := 'oracle.apps.jtf.jasg.dr.assign';
378
379 BEGIN
380
381 x_return_status := fnd_api.g_ret_sts_success;
382 savepoint asg_publish_save;
383
384 IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
385 RAISE fnd_api.g_exc_unexpected_error;
386 END IF;
387
388 --Initialize the message List if P_INIT_MSG_LIST is NOT NULL and set to TRUE
389 if p_init_msg_list is not NULL AND fnd_api.to_boolean(p_init_msg_list)
390 then
391 fnd_msg_pub.Initialize;
392 end if;
393
394 --Get the item key
395 l_key := item_key(l_event_name);
396
397 -- initialization of object variables
398
399
400 wf_event.AddParameterToList('SERVICE_REQUEST_ID',p_dr_rec.SERVICE_REQUEST_ID, l_list);
401
402 wf_event.AddParameterToList('CONTRACT_ID',p_contract_id,l_list);
403 wf_event.AddParameterToList('CUSTOMER_PRODUT_ID',p_customer_product_id,l_list);
404 wf_event.AddParameterToList('CATEGORY_ID',p_category_id,l_list);
405 wf_event.AddParameterToList('INVENTORY_ITEM_ID',p_inventory_item_id,l_list);
406 wf_event.AddParameterToList('INVENTORY_ORG_ID',p_inventory_org_id,l_list);
407
408 IF (p_problem_code IS NOT NULL)
409 THEN
410 wf_event.AddParameterToList('PROBLEM_CODE',p_problem_code,l_list);
411 ELSE
412 wf_event.AddParameterToList('PROBLEM_CODE',p_dr_rec.PROBLEM_CODE, l_list);
413 END IF;
414
415 wf_event.AddParameterToList('BUSINESS_PROCESS_ID',p_business_process_id,l_list);
416 wf_event.AddParameterToList('BUSINESS_PROCESS_DATE',p_business_process_date,l_list);
417 wf_event.AddParameterToList('TASK_ID',p_dr_rec.task_id, l_list);
418 wf_event.AddParameterToList('TASK_TYPE_ID',p_dr_rec.task_type_id, l_list);
419 wf_event.AddParameterToList('TASK_STATUS_ID',p_dr_rec.task_status_id,l_list);
420 wf_event.AddParameterToList('TASK_PRIORITY_ID',p_dr_rec.task_priority_id,l_list);
421
422 wf_event.AddParameterToList('PARTY_ID',p_dr_rec.PARTY_ID, l_list);
423 wf_event.AddParameterToList('COUNTRY',p_dr_rec.COUNTRY, l_list);
424 wf_event.AddParameterToList('PARTY_SITE_ID',p_dr_rec.PARTY_SITE_ID, l_list);
425 wf_event.AddParameterToList('CITY',p_dr_rec.CITY, l_list);
426 wf_event.AddParameterToList('POSTAL_CODE',p_dr_rec.POSTAL_CODE, l_list);
430 wf_event.AddParameterToList('COMP_NAME_RANGE',p_dr_rec.COMP_NAME_RANGE, l_list);
427 wf_event.AddParameterToList('STATE',p_dr_rec.STATE, l_list);
428 wf_event.AddParameterToList('AREA_CODE',p_dr_rec.AREA_CODE, l_list);
429 wf_event.AddParameterToList('COUNTY',p_dr_rec.COUNTY, l_list);
431 wf_event.AddParameterToList('PROVINCE',p_dr_rec.PROVINCE, l_list);
432 wf_event.AddParameterToList('INCIDENT_SEVERITY_ID',p_dr_rec.INCIDENT_SEVERITY_ID, l_list);
433 wf_event.AddParameterToList('INCIDENT_URGENCY_ID',p_dr_rec.INCIDENT_URGENCY_ID, l_list);
434 wf_event.AddParameterToList('INCIDENT_STATUS_ID',p_dr_rec.INCIDENT_STATUS_ID, l_list);
435 wf_event.AddParameterToList('PLATFORM_ID',p_dr_rec.PLATFORM_ID, l_list);
436 wf_event.AddParameterToList('SUPPORT_SITE_ID',p_dr_rec.SUPPORT_SITE_ID, l_list);
437 wf_event.AddParameterToList('CUSTOMER_SITE_ID',p_dr_rec.CUSTOMER_SITE_ID, l_list);
438 wf_event.AddParameterToList('SR_CREATION_CHANNEL',p_dr_rec.SR_CREATION_CHANNEL, l_list);
439 wf_event.AddParameterToList('INVENTORY_ITEM_ID',p_dr_rec.INVENTORY_ITEM_ID, l_list);
440 wf_event.AddParameterToList('SQUAL_NUM12',p_dr_rec.SQUAL_NUM12, l_list);
441 wf_event.AddParameterToList('SQUAL_NUM13',p_dr_rec.SQUAL_NUM13, l_list);
442 wf_event.AddParameterToList('SQUAL_NUM13',p_dr_rec.SQUAL_NUM13, l_list);
443 wf_event.AddParameterToList('SQUAL_NUM14',p_dr_rec.SQUAL_NUM14, l_list);
444 wf_event.AddParameterToList('SQUAL_NUM15',p_dr_rec.SQUAL_NUM15, l_list);
445 wf_event.AddParameterToList('SQUAL_NUM16',p_dr_rec.SQUAL_NUM16, l_list);
446 wf_event.AddParameterToList('SQUAL_NUM17',p_dr_rec.SQUAL_NUM17, l_list);
447 wf_event.AddParameterToList('SQUAL_NUM18',p_dr_rec.SQUAL_NUM18, l_list);
448 wf_event.AddParameterToList('SQUAL_NUM19',p_dr_rec.SQUAL_NUM19 , l_list);
449 wf_event.AddParameterToList('SQUAL_CHAR11',p_dr_rec.SQUAL_CHAR11, l_list);
450 wf_event.AddParameterToList('SQUAL_CHAR13',p_dr_rec.SQUAL_CHAR13, l_list);
451 wf_event.AddParameterToList('SQUAL_CHAR20',p_dr_rec.SQUAL_CHAR20, l_list);
452 wf_event.AddParameterToList('SQUAL_CHAR21',p_dr_rec.SQUAL_CHAR21, l_list);
453 wf_event.AddParameterToList('ATTRIBUTE1',p_dr_rec.ATTRIBUTE1, l_list);
454 wf_event.AddParameterToList('ATTRIBUTE2',p_dr_rec.ATTRIBUTE2, l_list);
455 wf_event.AddParameterToList('ATTRIBUTE3',p_dr_rec.ATTRIBUTE3, l_list);
456 wf_event.AddParameterToList('ATTRIBUTE4',p_dr_rec.ATTRIBUTE4, l_list);
457 wf_event.AddParameterToList('ATTRIBUTE5',p_dr_rec.ATTRIBUTE5, l_list);
458 wf_event.AddParameterToList('ATTRIBUTE6',p_dr_rec.ATTRIBUTE6, l_list);
459 wf_event.AddParameterToList('ATTRIBUTE7',p_dr_rec.ATTRIBUTE7, l_list);
460 wf_event.AddParameterToList('ATTRIBUTE8',p_dr_rec.ATTRIBUTE8, l_list);
461 wf_event.AddParameterToList('ATTRIBUTE9',p_dr_rec.ATTRIBUTE9, l_list);
462 wf_event.AddParameterToList('ATTRIBUTE10',p_dr_rec.ATTRIBUTE10, l_list);
463 wf_event.AddParameterToList('ATTRIBUTE11',p_dr_rec.ATTRIBUTE11, l_list);
464 wf_event.AddParameterToList('ATTRIBUTE12',p_dr_rec.ATTRIBUTE12, l_list);
465 wf_event.AddParameterToList('ATTRIBUTE13',p_dr_rec.ATTRIBUTE13, l_list);
466 wf_event.AddParameterToList('ATTRIBUTE14',p_dr_rec.ATTRIBUTE14, l_list);
467 wf_event.AddParameterToList('ATTRIBUTE15',p_dr_rec.ATTRIBUTE15, l_list);
468
469
470 -- Raise Event
471 wf_event.raise(
472 p_event_name => l_event_name
473 ,p_event_key => l_key
474 ,p_event_data => null
475 ,p_parameters => l_list
476 );
477
478 l_list.DELETE;
479
480 EXCEPTION when OTHERS then
481 ROLLBACK TO asg_publish_save;
482 x_return_status := fnd_api.g_ret_sts_unexp_error;
483
484 END assign_dr_resource;
485
486 /*********** End of addition by SBARAT on 01/11/2004 for Enh-3919046 ***********/
487
488
489 /********************** Start of Addition for Enh. No 3076744 by SBARAT, 20/09/2004 ************************/
490
491 PROCEDURE assign_task_resource
492 (P_API_VERSION IN NUMBER,
493 P_INIT_MSG_LIST IN VARCHAR2,
494 P_COMMIT IN VARCHAR2,
495 P_BUSINESS_PROCESS_ID IN NUMBER,
496 P_BUSINESS_PROCESS_DATE IN DATE,
497 P_TASK_ID IN JTF_TASKS_VL.TASK_ID%TYPE,
498 P_CONTRACT_ID IN NUMBER,
499 P_CUSTOMER_PRODUCT_ID IN NUMBER,
500 P_CATEGORY_ID IN NUMBER,
501 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
502 X_MSG_COUNT OUT NOCOPY NUMBER,
503 X_MSG_DATA OUT NOCOPY VARCHAR2
504 ) IS
505
506 l_api_version CONSTANT NUMBER := 1.0;
507 l_api_name CONSTANT VARCHAR2(30) := 'ASSIGN_RESOURCE';
508 l_sysdate date := trunc(sysdate);
509
510 l_list WF_PARAMETER_LIST_T;
511 l_key varchar2(240);
512 l_exist varchar2(30);
513 l_event_name varchar2(240) := 'oracle.apps.jtf.jasg.task.assign';
514
515 BEGIN
516
517 x_return_status := fnd_api.g_ret_sts_success;
518 savepoint asg_task_publish_save;
519
520 IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
521 RAISE fnd_api.g_exc_unexpected_error;
522 END IF;
523
524 --Initialize the message List if P_INIT_MSG_LIST is NOT NULL and set to TRUE
525 if p_init_msg_list is not NULL AND fnd_api.to_boolean(p_init_msg_list)
526 then
527 fnd_msg_pub.Initialize;
528 end if;
529
530 --Get the item key
531 l_key := item_key(l_event_name);
532
533 -- initialization of object variables
534
535 wf_event.AddParameterToList('BUSINESS_PROCESS_ID',p_business_process_id,l_list);
536 wf_event.AddParameterToList('BUSINESS_PROCESS_DATE',p_business_process_date,l_list);
540 wf_event.AddParameterToList('CATEGORY_ID',p_category_id,l_list);
537 wf_event.AddParameterToList('TASK_ID',p_task_id,l_list);
538 wf_event.AddParameterToList('CONTRACT_ID',p_contract_id,l_list);
539 wf_event.AddParameterToList('CUSTOMER_PRODUCT_ID',p_customer_product_id,l_list);
541
542
543 -- Raise Event
544 wf_event.raise(
545 p_event_name => l_event_name
546 ,p_event_key => l_key
547 ,p_event_data => null
548 ,p_parameters => l_list
549 );
550
551 l_list.DELETE;
552
553 EXCEPTION when OTHERS then
554 ROLLBACK TO asg_task_publish_save;
555 x_return_status := fnd_api.g_ret_sts_unexp_error;
556
557 END assign_task_resource;
558
559
560 PROCEDURE assign_esc_resource
561 (P_API_VERSION IN NUMBER,
562 P_INIT_MSG_LIST IN VARCHAR2,
563 P_COMMIT IN VARCHAR2,
564 P_ESC_REC IN JTF_ASSIGN_PUB.Escalations_rec_type,
565 P_BUSINESS_PROCESS_ID IN NUMBER,
566 P_BUSINESS_PROCESS_DATE IN DATE,
567 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
568 X_MSG_COUNT OUT NOCOPY NUMBER,
569 X_MSG_DATA OUT NOCOPY VARCHAR2
570 ) IS
571
572 l_api_version CONSTANT NUMBER := 1.0;
573 l_api_name CONSTANT VARCHAR2(30) := 'ASSIGN_RESOURCE';
574 l_sysdate date := trunc(sysdate);
575
576 l_list WF_PARAMETER_LIST_T;
577 l_key varchar2(240);
578 l_exist varchar2(30);
579 l_event_name varchar2(240) := 'oracle.apps.jtf.jasg.esc.assign';
580
581 BEGIN
582
583 x_return_status := fnd_api.g_ret_sts_success;
584 savepoint asg_esc_publish_save;
585
586 IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
587 RAISE fnd_api.g_exc_unexpected_error;
588 END IF;
589
590 --Initialize the message List if P_INIT_MSG_LIST is NOT NULL and set to TRUE
591 if p_init_msg_list is not NULL AND fnd_api.to_boolean(p_init_msg_list)
592 then
593 fnd_msg_pub.Initialize;
594 end if;
595
596 --Get the item key
597 l_key := item_key(l_event_name);
598
599 -- initialization of object variables
600
601 wf_event.AddParameterToList('SOURCE_OBJECT_ID',p_esc_rec.source_object_id,l_list);
602 wf_event.AddParameterToList('SOURCE_OBJECT_TYPE',p_esc_rec.source_object_type,l_list);
603 wf_event.AddParameterToList('BUSINESS_PROCESS_ID',p_business_process_id,l_list);
604 wf_event.AddParameterToList('BUSINESS_PROCESS_DATE',p_business_process_date,l_list);
605
606
607 -- Raise Event
608 wf_event.raise(
609 p_event_name => l_event_name
610 ,p_event_key => l_key
611 ,p_event_data => null
612 ,p_parameters => l_list
613 );
614
615 l_list.DELETE;
616
617 EXCEPTION when OTHERS then
618 ROLLBACK TO asg_esc_publish_save;
619 x_return_status := fnd_api.g_ret_sts_unexp_error;
620
621 END assign_esc_resource;
622
623
624 PROCEDURE assign_def_resource
625 (P_API_VERSION IN NUMBER,
626 P_INIT_MSG_LIST IN VARCHAR2,
627 P_COMMIT IN VARCHAR2,
628 P_CONTRACT_ID IN NUMBER,
629 P_CUSTOMER_PRODUCT_ID IN NUMBER,
630 P_CATEGORY_ID IN NUMBER,
631 P_DEF_MGMT_REC IN JTF_ASSIGN_PUB.JTF_DEF_MGMT_rec_type,
632 P_BUSINESS_PROCESS_ID IN NUMBER,
633 P_BUSINESS_PROCESS_DATE IN DATE,
634 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
635 X_MSG_COUNT OUT NOCOPY NUMBER,
636 X_MSG_DATA OUT NOCOPY VARCHAR2
637 ) IS
638
639
640 l_api_version CONSTANT NUMBER := 1.0;
641 l_api_name CONSTANT VARCHAR2(30) := 'ASSIGN_RESOURCE';
642 l_sysdate date := trunc(sysdate);
643
644 l_list WF_PARAMETER_LIST_T;
645 l_key varchar2(240);
646 l_exist varchar2(30);
647 l_event_name varchar2(240) := 'oracle.apps.jtf.jasg.def.assign';
648
649 BEGIN
650
651 x_return_status := fnd_api.g_ret_sts_success;
652 savepoint asg_def_publish_save;
653
654 IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
655 RAISE fnd_api.g_exc_unexpected_error;
656 END IF;
657
658 --Initialize the message List if P_INIT_MSG_LIST is NOT NULL and set to TRUE
659 if p_init_msg_list is not NULL AND fnd_api.to_boolean(p_init_msg_list)
660 then
661 fnd_msg_pub.Initialize;
662 end if;
663
664 --Get the item key
665 l_key := item_key(l_event_name);
666
667 -- initialization of object variables
668
669 wf_event.AddParameterToList('CONTRACT_ID',p_contract_id,l_list);
670 wf_event.AddParameterToList('CUSTOMER_PRODUCT_ID',p_customer_product_id,l_list);
671 wf_event.AddParameterToList('CATEGORY_ID',p_category_id,l_list);
672
673 wf_event.AddParameterToList('SQUAL_CHAR01',p_def_mgmt_rec.squal_char01,l_list);
674 wf_event.AddParameterToList('SQUAL_CHAR02',p_def_mgmt_rec.squal_char02,l_list);
675 wf_event.AddParameterToList('SQUAL_CHAR03',p_def_mgmt_rec.squal_char03,l_list);
676 wf_event.AddParameterToList('SQUAL_CHAR04',p_def_mgmt_rec.squal_char04,l_list);
680 wf_event.AddParameterToList('SQUAL_CHAR08',p_def_mgmt_rec.squal_char08,l_list);
677 wf_event.AddParameterToList('SQUAL_CHAR05',p_def_mgmt_rec.squal_char05,l_list);
678 wf_event.AddParameterToList('SQUAL_CHAR06',p_def_mgmt_rec.squal_char06,l_list);
679 wf_event.AddParameterToList('SQUAL_CHAR07',p_def_mgmt_rec.squal_char07,l_list);
681 wf_event.AddParameterToList('SQUAL_CHAR09',p_def_mgmt_rec.squal_char09,l_list);
682 wf_event.AddParameterToList('SQUAL_CHAR10',p_def_mgmt_rec.squal_char10,l_list);
683 wf_event.AddParameterToList('SQUAL_CHAR11',p_def_mgmt_rec.squal_char11,l_list);
684 wf_event.AddParameterToList('SQUAL_CHAR12',p_def_mgmt_rec.squal_char12,l_list);
685 wf_event.AddParameterToList('SQUAL_CHAR13',p_def_mgmt_rec.squal_char13,l_list);
686 wf_event.AddParameterToList('SQUAL_CHAR14',p_def_mgmt_rec.squal_char14,l_list);
687 wf_event.AddParameterToList('SQUAL_CHAR15',p_def_mgmt_rec.squal_char15,l_list);
688 wf_event.AddParameterToList('SQUAL_CHAR16',p_def_mgmt_rec.squal_char16,l_list);
689 wf_event.AddParameterToList('SQUAL_CHAR17',p_def_mgmt_rec.squal_char17,l_list);
690 wf_event.AddParameterToList('SQUAL_CHAR18',p_def_mgmt_rec.squal_char18,l_list);
691 wf_event.AddParameterToList('SQUAL_CHAR19',p_def_mgmt_rec.squal_char19,l_list);
692 wf_event.AddParameterToList('SQUAL_CHAR20',p_def_mgmt_rec.squal_char20,l_list);
693 wf_event.AddParameterToList('SQUAL_CHAR21',p_def_mgmt_rec.squal_char21,l_list);
694 wf_event.AddParameterToList('SQUAL_CHAR22',p_def_mgmt_rec.squal_char22,l_list);
695 wf_event.AddParameterToList('SQUAL_CHAR23',p_def_mgmt_rec.squal_char23,l_list);
696 wf_event.AddParameterToList('SQUAL_CHAR24',p_def_mgmt_rec.squal_char24,l_list);
697 wf_event.AddParameterToList('SQUAL_CHAR25',p_def_mgmt_rec.squal_char25,l_list);
698
699 wf_event.AddParameterToList('SQUAL_NUM01',p_def_mgmt_rec.squal_num01,l_list);
700 wf_event.AddParameterToList('SQUAL_NUM02',p_def_mgmt_rec.squal_num02,l_list);
701 wf_event.AddParameterToList('SQUAL_NUM03',p_def_mgmt_rec.squal_num03,l_list);
702 wf_event.AddParameterToList('SQUAL_NUM04',p_def_mgmt_rec.squal_num04,l_list);
703 wf_event.AddParameterToList('SQUAL_NUM05',p_def_mgmt_rec.squal_num05,l_list);
704 wf_event.AddParameterToList('SQUAL_NUM06',p_def_mgmt_rec.squal_num06,l_list);
705 wf_event.AddParameterToList('SQUAL_NUM07',p_def_mgmt_rec.squal_num07,l_list);
706 wf_event.AddParameterToList('SQUAL_NUM08',p_def_mgmt_rec.squal_num08,l_list);
707 wf_event.AddParameterToList('SQUAL_NUM09',p_def_mgmt_rec.squal_num09,l_list);
708 wf_event.AddParameterToList('SQUAL_NUM10',p_def_mgmt_rec.squal_num10,l_list);
709 wf_event.AddParameterToList('SQUAL_NUM11',p_def_mgmt_rec.squal_num11,l_list);
710 wf_event.AddParameterToList('SQUAL_NUM12',p_def_mgmt_rec.squal_num12,l_list);
711 wf_event.AddParameterToList('SQUAL_NUM13',p_def_mgmt_rec.squal_num13,l_list);
712 wf_event.AddParameterToList('SQUAL_NUM14',p_def_mgmt_rec.squal_num14,l_list);
713 wf_event.AddParameterToList('SQUAL_NUM15',p_def_mgmt_rec.squal_num15,l_list);
714 wf_event.AddParameterToList('SQUAL_NUM16',p_def_mgmt_rec.squal_num16,l_list);
715 wf_event.AddParameterToList('SQUAL_NUM17',p_def_mgmt_rec.squal_num17,l_list);
716 wf_event.AddParameterToList('SQUAL_NUM18',p_def_mgmt_rec.squal_num18,l_list);
717 wf_event.AddParameterToList('SQUAL_NUM19',p_def_mgmt_rec.squal_num19,l_list);
718 wf_event.AddParameterToList('SQUAL_NUM20',p_def_mgmt_rec.squal_num20,l_list);
719 wf_event.AddParameterToList('SQUAL_NUM21',p_def_mgmt_rec.squal_num21,l_list);
720 wf_event.AddParameterToList('SQUAL_NUM22',p_def_mgmt_rec.squal_num22,l_list);
721 wf_event.AddParameterToList('SQUAL_NUM23',p_def_mgmt_rec.squal_num23,l_list);
722 wf_event.AddParameterToList('SQUAL_NUM24',p_def_mgmt_rec.squal_num24,l_list);
723 wf_event.AddParameterToList('SQUAL_NUM25',p_def_mgmt_rec.squal_num25,l_list);
724
725 wf_event.AddParameterToList('ATTRIBUTE1',p_def_mgmt_rec.attribute1,l_list);
726 wf_event.AddParameterToList('ATTRIBUTE2',p_def_mgmt_rec.attribute2,l_list);
727 wf_event.AddParameterToList('ATTRIBUTE3',p_def_mgmt_rec.attribute3,l_list);
728 wf_event.AddParameterToList('ATTRIBUTE4',p_def_mgmt_rec.attribute4,l_list);
729 wf_event.AddParameterToList('ATTRIBUTE5',p_def_mgmt_rec.attribute5,l_list);
730 wf_event.AddParameterToList('ATTRIBUTE6',p_def_mgmt_rec.attribute6,l_list);
731 wf_event.AddParameterToList('ATTRIBUTE7',p_def_mgmt_rec.attribute7,l_list);
732 wf_event.AddParameterToList('ATTRIBUTE8',p_def_mgmt_rec.attribute8,l_list);
733 wf_event.AddParameterToList('ATTRIBUTE9',p_def_mgmt_rec.attribute9,l_list);
734 wf_event.AddParameterToList('ATTRIBUTE10',p_def_mgmt_rec.attribute10,l_list);
735 wf_event.AddParameterToList('ATTRIBUTE11',p_def_mgmt_rec.attribute11,l_list);
736 wf_event.AddParameterToList('ATTRIBUTE12',p_def_mgmt_rec.attribute12,l_list);
737 wf_event.AddParameterToList('ATTRIBUTE13',p_def_mgmt_rec.attribute13,l_list);
738 wf_event.AddParameterToList('ATTRIBUTE14',p_def_mgmt_rec.attribute14,l_list);
739 wf_event.AddParameterToList('ATTRIBUTE15',p_def_mgmt_rec.attribute15,l_list);
740
741
742 wf_event.AddParameterToList('BUSINESS_PROCESS_ID',p_business_process_id,l_list);
743 wf_event.AddParameterToList('BUSINESS_PROCESS_DATE',p_business_process_date,l_list);
744
745
746 -- Raise Event
747 wf_event.raise(
748 p_event_name => l_event_name
749 ,p_event_key => l_key
750 ,p_event_data => null
751 ,p_parameters => l_list
752 );
753
754 l_list.DELETE;
755
756 EXCEPTION when OTHERS then
757 ROLLBACK TO asg_def_publish_save;
758 x_return_status := fnd_api.g_ret_sts_unexp_error;
759
760 END assign_def_resource;
761
762
763 PROCEDURE assign_acc_resource
764 (P_API_VERSION IN NUMBER,
765 P_INIT_MSG_LIST IN VARCHAR2,
766 P_COMMIT IN VARCHAR2,
767 P_ACCOUNT_REC IN JTF_ASSIGN_PUB.JTF_Account_rec_type,
768 P_BUSINESS_PROCESS_ID IN NUMBER,
772 X_MSG_DATA OUT NOCOPY VARCHAR2
769 P_BUSINESS_PROCESS_DATE IN DATE,
770 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
771 X_MSG_COUNT OUT NOCOPY NUMBER,
773 ) IS
774
775 l_api_version CONSTANT NUMBER := 1.0;
776 l_api_name CONSTANT VARCHAR2(30) := 'ASSIGN_RESOURCE';
777 l_sysdate date := trunc(sysdate);
778
779 l_list WF_PARAMETER_LIST_T;
780 l_key varchar2(240);
781 l_exist varchar2(30);
782 l_event_name varchar2(240) := 'oracle.apps.jtf.jasg.acc.assign';
783
784 BEGIN
785
786 x_return_status := fnd_api.g_ret_sts_success;
787 savepoint asg_acc_publish_save;
788
789 IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
790 RAISE fnd_api.g_exc_unexpected_error;
791 END IF;
792
793 --Initialize the message List if P_INIT_MSG_LIST is NOT NULL and set to TRUE
794 if p_init_msg_list is not NULL AND fnd_api.to_boolean(p_init_msg_list)
795 then
796 fnd_msg_pub.Initialize;
797 end if;
798
799 --Get the item key
800 l_key := item_key(l_event_name);
801
802 -- initialization of object variables
803
804 wf_event.AddParameterToList('CITY',p_account_rec.city,l_list);
805 wf_event.AddParameterToList('POSTAL_CODE',p_account_rec.postal_code,l_list);
806 wf_event.AddParameterToList('STATE',p_account_rec.state,l_list);
807 wf_event.AddParameterToList('PROVINCE',p_account_rec.province,l_list);
808 wf_event.AddParameterToList('COUNTY',p_account_rec.county,l_list);
809 wf_event.AddParameterToList('COUNTRY',p_account_rec.country,l_list);
810 wf_event.AddParameterToList('INTEREST_TYPE_ID',p_account_rec.interest_type_id,l_list);
811 wf_event.AddParameterToList('PRIMARY_INTEREST_ID',p_account_rec.primary_interest_id,l_list);
812 wf_event.AddParameterToList('SECONDARY_INTEREST_ID',p_account_rec.secondary_interest_id,l_list);
813 wf_event.AddParameterToList('CONTACT_INTEREST_TYPE_ID',p_account_rec.contact_interest_type_id,l_list);
814 wf_event.AddParameterToList('CONTACT_PRIMARY_INTEREST_ID',p_account_rec.contact_primary_interest_id,l_list);
815 wf_event.AddParameterToList('CONTACT_SECONDARY_INTEREST_ID',p_account_rec.contact_secondary_interest_id,l_list);
816 wf_event.AddParameterToList('PARTY_SITE_ID',p_account_rec.party_site_id,l_list);
817 wf_event.AddParameterToList('PARTY_ID',p_account_rec.party_id,l_list);
818 wf_event.AddParameterToList('PARTNER_ID',p_account_rec.partner_id,l_list);
819 wf_event.AddParameterToList('NUM_OF_EMPLOYEES',p_account_rec.num_of_employees,l_list);
820 wf_event.AddParameterToList('CATEGORY_CODE',p_account_rec.category_code,l_list);
821 wf_event.AddParameterToList('PARTY_RELATIONSHIP_ID',p_account_rec.party_relationship_id,l_list);
822 wf_event.AddParameterToList('SIC_CODE',p_account_rec.sic_code,l_list);
823 wf_event.AddParameterToList('ATTRIBUTE1',p_account_rec.attribute1,l_list);
824 wf_event.AddParameterToList('ATTRIBUTE2',p_account_rec.attribute2,l_list);
825 wf_event.AddParameterToList('ATTRIBUTE3',p_account_rec.attribute3,l_list);
826 wf_event.AddParameterToList('ATTRIBUTE4',p_account_rec.attribute4,l_list);
827 wf_event.AddParameterToList('ATTRIBUTE5',p_account_rec.attribute5,l_list);
828 wf_event.AddParameterToList('ATTRIBUTE6',p_account_rec.attribute6,l_list);
829 wf_event.AddParameterToList('ATTRIBUTE7',p_account_rec.attribute7,l_list);
830 wf_event.AddParameterToList('ATTRIBUTE8',p_account_rec.attribute8,l_list);
831 wf_event.AddParameterToList('ATTRIBUTE9',p_account_rec.attribute9,l_list);
832 wf_event.AddParameterToList('ATTRIBUTE10',p_account_rec.attribute10,l_list);
833 wf_event.AddParameterToList('ATTRIBUTE11',p_account_rec.attribute11,l_list);
834 wf_event.AddParameterToList('ATTRIBUTE12',p_account_rec.attribute12,l_list);
835 wf_event.AddParameterToList('ATTRIBUTE13',p_account_rec.attribute13,l_list);
836 wf_event.AddParameterToList('ATTRIBUTE14',p_account_rec.attribute14,l_list);
837 wf_event.AddParameterToList('ATTRIBUTE15',p_account_rec.attribute15,l_list);
838 wf_event.AddParameterToList('ORG_ID',p_account_rec.org_id,l_list);
839
840
841 wf_event.AddParameterToList('BUSINESS_PROCESS_ID',p_business_process_id,l_list);
842 wf_event.AddParameterToList('BUSINESS_PROCESS_DATE',p_business_process_date,l_list);
843
844
845 -- Raise Event
846 wf_event.raise(
847 p_event_name => l_event_name
848 ,p_event_key => l_key
849 ,p_event_data => null
850 ,p_parameters => l_list
851 );
852
853 l_list.DELETE;
854
855 EXCEPTION when OTHERS then
856 ROLLBACK TO asg_acc_publish_save;
857 x_return_status := fnd_api.g_ret_sts_unexp_error;
858
859 END assign_acc_resource;
860
861
862 PROCEDURE assign_oppr_resource
863 (P_API_VERSION IN NUMBER,
864 P_INIT_MSG_LIST IN VARCHAR2,
865 P_COMMIT IN VARCHAR2,
866 P_OPPR_REC IN JTF_ASSIGN_PUB.JTF_Oppor_rec_type,
867 P_BUSINESS_PROCESS_ID IN NUMBER,
868 P_BUSINESS_PROCESS_DATE IN DATE,
869 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
870 X_MSG_COUNT OUT NOCOPY NUMBER,
871 X_MSG_DATA OUT NOCOPY VARCHAR2
872 ) IS
873
874
875 l_api_version CONSTANT NUMBER := 1.0;
876 l_api_name CONSTANT VARCHAR2(30) := 'ASSIGN_RESOURCE';
877 l_sysdate date := trunc(sysdate);
878
879 l_list WF_PARAMETER_LIST_T;
880 l_key varchar2(240);
881 l_exist varchar2(30);
882 l_event_name varchar2(240) := 'oracle.apps.jtf.jasg.oppr.assign';
883
884 BEGIN
885
886 x_return_status := fnd_api.g_ret_sts_success;
887 savepoint asg_oppr_publish_save;
888
889 IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
890 RAISE fnd_api.g_exc_unexpected_error;
891 END IF;
892
893 --Initialize the message List if P_INIT_MSG_LIST is NOT NULL and set to TRUE
894 if p_init_msg_list is not NULL AND fnd_api.to_boolean(p_init_msg_list)
895 then
896 fnd_msg_pub.Initialize;
897 end if;
898
899 --Get the item key
900 l_key := item_key(l_event_name);
901
902 -- initialization of object variables
903
904 wf_event.AddParameterToList('LEAD_ID',p_oppr_rec.lead_id,l_list);
905 wf_event.AddParameterToList('LEAD_LINE_ID',p_oppr_rec.lead_line_id,l_list);
906 wf_event.AddParameterToList('CITY',p_oppr_rec.city,l_list);
907 wf_event.AddParameterToList('POSTAL_CODE',p_oppr_rec.postal_code,l_list);
911 wf_event.AddParameterToList('COUNTRY',p_oppr_rec.country,l_list);
908 wf_event.AddParameterToList('STATE',p_oppr_rec.state,l_list);
909 wf_event.AddParameterToList('PROVINCE',p_oppr_rec.province,l_list);
910 wf_event.AddParameterToList('COUNTY',p_oppr_rec.county,l_list);
912 wf_event.AddParameterToList('INTEREST_TYPE_ID',p_oppr_rec.interest_type_id,l_list);
913 wf_event.AddParameterToList('PRIMARY_INTEREST_ID',p_oppr_rec.primary_interest_id,l_list);
914 wf_event.AddParameterToList('SECONDARY_INTEREST_ID',p_oppr_rec.secondary_interest_id,l_list);
915 wf_event.AddParameterToList('CONTACT_INTEREST_TYPE_ID',p_oppr_rec.contact_interest_type_id,l_list);
916 wf_event.AddParameterToList('CONTACT_PRIMARY_INTEREST_ID',p_oppr_rec.contact_primary_interest_id,l_list);
917 wf_event.AddParameterToList('CONTACT_SECONDARY_INTEREST_ID',p_oppr_rec.contact_secondary_interest_id,l_list);
918 wf_event.AddParameterToList('PARTY_SITE_ID',p_oppr_rec.party_site_id,l_list);
919 wf_event.AddParameterToList('AREA_CODE',p_oppr_rec.area_code,l_list);
920 wf_event.AddParameterToList('PARTY_ID',p_oppr_rec.party_id,l_list);
921 wf_event.AddParameterToList('COMP_NAME_RANGE',p_oppr_rec.comp_name_range,l_list);
922 wf_event.AddParameterToList('PARTNER_ID',p_oppr_rec.partner_id,l_list);
923 wf_event.AddParameterToList('NUM_OF_EMPLOYEES',p_oppr_rec.num_of_employees,l_list);
924 wf_event.AddParameterToList('CATEGORY_CODE',p_oppr_rec.category_code,l_list);
925 wf_event.AddParameterToList('PARTY_RELATIONSHIP_ID',p_oppr_rec.party_relationship_id,l_list);
926 wf_event.AddParameterToList('SIC_CODE',p_oppr_rec.sic_code,l_list);
927 wf_event.AddParameterToList('TARGET_SEGMENT_CURRENT',p_oppr_rec.target_segment_current,l_list);
928 wf_event.AddParameterToList('TOTAL_AMOUNT',p_oppr_rec.total_amount,l_list);
929 wf_event.AddParameterToList('CURRENCY_CODE',p_oppr_rec.currency_code,l_list);
930 wf_event.AddParameterToList('PRICING_DATE',p_oppr_rec.pricing_date,l_list);
931 wf_event.AddParameterToList('CHANNEL_CODE',p_oppr_rec.channel_code,l_list);
932 wf_event.AddParameterToList('INVENTORY_ITEM_ID',p_oppr_rec.inventory_item_id,l_list);
933 wf_event.AddParameterToList('OPP_INTEREST_TYPE_ID',p_oppr_rec.opp_interest_type_id,l_list);
934 wf_event.AddParameterToList('OPP_PRIMARY_INTEREST_ID',p_oppr_rec.opp_primary_interest_id,l_list);
935 wf_event.AddParameterToList('OPP_SECONDARY_INTEREST_ID',p_oppr_rec.opp_secondary_interest_id,l_list);
936 wf_event.AddParameterToList('OPCLSS_INTEREST_TYPE_ID',p_oppr_rec.opclss_interest_type_id,l_list);
937 wf_event.AddParameterToList('OPCLSS_PRIMARY_INTEREST_ID',p_oppr_rec.opclss_primary_interest_id,l_list);
938 wf_event.AddParameterToList('OPCLSS_SECONDARY_INTEREST_ID',p_oppr_rec.opclss_secondary_interest_id,l_list);
939 wf_event.AddParameterToList('ATTRIBUTE1',p_oppr_rec.attribute1,l_list);
940 wf_event.AddParameterToList('ATTRIBUTE2',p_oppr_rec.attribute2,l_list);
941 wf_event.AddParameterToList('ATTRIBUTE3',p_oppr_rec.attribute3,l_list);
942 wf_event.AddParameterToList('ATTRIBUTE4',p_oppr_rec.attribute4,l_list);
943 wf_event.AddParameterToList('ATTRIBUTE5',p_oppr_rec.attribute5,l_list);
944 wf_event.AddParameterToList('ATTRIBUTE6',p_oppr_rec.attribute6,l_list);
945 wf_event.AddParameterToList('ATTRIBUTE7',p_oppr_rec.attribute7,l_list);
946 wf_event.AddParameterToList('ATTRIBUTE8',p_oppr_rec.attribute8,l_list);
947 wf_event.AddParameterToList('ATTRIBUTE9',p_oppr_rec.attribute9,l_list);
948 wf_event.AddParameterToList('ATTRIBUTE10',p_oppr_rec.attribute10,l_list);
949 wf_event.AddParameterToList('ATTRIBUTE11',p_oppr_rec.attribute11,l_list);
950 wf_event.AddParameterToList('ATTRIBUTE12',p_oppr_rec.attribute12,l_list);
951 wf_event.AddParameterToList('ATTRIBUTE13',p_oppr_rec.attribute13,l_list);
952 wf_event.AddParameterToList('ATTRIBUTE14',p_oppr_rec.attribute14,l_list);
953 wf_event.AddParameterToList('ATTRIBUTE15',p_oppr_rec.attribute15,l_list);
954 wf_event.AddParameterToList('ORG_ID',p_oppr_rec.org_id,l_list);
955
956
957 wf_event.AddParameterToList('BUSINESS_PROCESS_ID',p_business_process_id,l_list);
958 wf_event.AddParameterToList('BUSINESS_PROCESS_DATE',p_business_process_date,l_list);
959
960
961 -- Raise Event
962 wf_event.raise(
963 p_event_name => l_event_name
964 ,p_event_key => l_key
965 ,p_event_data => null
966 ,p_parameters => l_list
967 );
968
969 l_list.DELETE;
970
971 EXCEPTION when OTHERS then
972 ROLLBACK TO asg_oppr_publish_save;
973 x_return_status := fnd_api.g_ret_sts_unexp_error;
974
975 END assign_oppr_resource;
976
977
978 PROCEDURE assign_lead_resource
979 (P_API_VERSION IN NUMBER,
980 P_INIT_MSG_LIST IN VARCHAR2,
981 P_COMMIT IN VARCHAR2,
982 P_LEAD_REC IN JTF_ASSIGN_PUB.JTF_Lead_rec_type,
983 P_LEAD_BULK_REC IN JTF_TERRITORY_PUB.JTF_Lead_BULK_rec_type,
984 P_BUSINESS_PROCESS_ID IN NUMBER,
985 P_BUSINESS_PROCESS_DATE IN DATE,
986 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
987 X_MSG_COUNT OUT NOCOPY NUMBER,
988 X_MSG_DATA OUT NOCOPY VARCHAR2
989 ) IS
990
991 l_api_version CONSTANT NUMBER := 1.0;
992 l_api_name CONSTANT VARCHAR2(30) := 'ASSIGN_RESOURCE';
996 l_key varchar2(240);
993 l_sysdate date := trunc(sysdate);
994
995 l_list WF_PARAMETER_LIST_T;
997 l_exist varchar2(30);
998 l_event_name varchar2(240) := 'oracle.apps.jtf.jasg.lead.assign';
999 i Number;
1000
1001 BEGIN
1002
1003 x_return_status := fnd_api.g_ret_sts_success;
1004 savepoint asg_lead_publish_save;
1005
1006 IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1007 RAISE fnd_api.g_exc_unexpected_error;
1008 END IF;
1009
1010 --Initialize the message List if P_INIT_MSG_LIST is NOT NULL and set to TRUE
1011 if p_init_msg_list is not NULL AND fnd_api.to_boolean(p_init_msg_list)
1012 then
1013 fnd_msg_pub.Initialize;
1014 end if;
1015
1016 IF (p_lead_bulk_rec.PARTY_ID.COUNT > 0)
1017 THEN
1018 i := p_lead_bulk_rec.PARTY_ID.FIRST;
1019 WHILE (i <= p_lead_bulk_rec.PARTY_ID.LAST)
1020 LOOP
1021
1022 --Get the item key
1023 l_key := item_key(l_event_name);
1024
1025 -- initialization of object variables
1026 -- Code modified by SBARAT on 14/07/2005 for bug# 4164758
1027 -- checking existancy before initializing
1028
1029 IF p_lead_bulk_rec.SALES_LEAD_ID.Exists(i)
1030 THEN
1031 wf_event.AddParameterToList('SALES_LEAD_ID',p_lead_bulk_rec.SALES_LEAD_ID(i),l_list);
1032 ELSE
1033 wf_event.AddParameterToList('SALES_LEAD_ID',NULL,l_list);
1034 END IF;
1035
1036 IF p_lead_bulk_rec.SALES_LEAD_LINE_ID.Exists(i)
1037 THEN
1038 wf_event.AddParameterToList('SALES_LEAD_LINE_ID',p_lead_bulk_rec.SALES_LEAD_LINE_ID(i),l_list);
1039 ELSE
1040 wf_event.AddParameterToList('SALES_LEAD_LINE_ID',NULL,l_list);
1041 END IF;
1042
1043 IF p_lead_bulk_rec.CITY.Exists(i)
1044 THEN
1045 wf_event.AddParameterToList('CITY',p_lead_bulk_rec.CITY(i),l_list);
1046 ELSE
1047 wf_event.AddParameterToList('CITY',NULL,l_list);
1048 END IF;
1049
1050 IF p_lead_bulk_rec.POSTAL_CODE.Exists(i)
1051 THEN
1052 wf_event.AddParameterToList('POSTAL_CODE',p_lead_bulk_rec.POSTAL_CODE(i),l_list);
1053 ELSE
1054 wf_event.AddParameterToList('POSTAL_CODE',NULL,l_list);
1055 END IF;
1056
1057 IF p_lead_bulk_rec.STATE.Exists(i)
1058 THEN
1059 wf_event.AddParameterToList('STATE',p_lead_bulk_rec.STATE(i),l_list);
1060 ELSE
1061 wf_event.AddParameterToList('STATE',NULL,l_list);
1062 END IF;
1063
1064 IF p_lead_bulk_rec.PROVINCE.Exists(i)
1065 THEN
1066 wf_event.AddParameterToList('PROVINCE',p_lead_bulk_rec.PROVINCE(i),l_list);
1067 ELSE
1068 wf_event.AddParameterToList('PROVINCE',NULL,l_list);
1069 END IF;
1070
1071 IF p_lead_bulk_rec.COUNTY.Exists(i)
1072 THEN
1073 wf_event.AddParameterToList('COUNTY',p_lead_bulk_rec.COUNTY(i),l_list);
1074 ELSE
1075 wf_event.AddParameterToList('COUNTY',NULL,l_list);
1076 END IF;
1077
1078 IF p_lead_bulk_rec.COUNTRY.Exists(i)
1079 THEN
1080 wf_event.AddParameterToList('COUNTRY',p_lead_bulk_rec.COUNTRY(i),l_list);
1081 ELSE
1082 wf_event.AddParameterToList('COUNTRY',NULL,l_list);
1083 END IF;
1084
1085 IF p_lead_bulk_rec.INTEREST_TYPE_ID.Exists(i)
1086 THEN
1087 wf_event.AddParameterToList('INTEREST_TYPE_ID',p_lead_bulk_rec.INTEREST_TYPE_ID(i),l_list);
1088 ELSE
1089 wf_event.AddParameterToList('INTEREST_TYPE_ID',NULL,l_list);
1090 END IF;
1091
1092 IF p_lead_bulk_rec.PRIMARY_INTEREST_ID.Exists(i)
1093 THEN
1094 wf_event.AddParameterToList('PRIMARY_INTEREST_ID',p_lead_bulk_rec.PRIMARY_INTEREST_ID(i),l_list);
1095 ELSE
1096 wf_event.AddParameterToList('PRIMARY_INTEREST_ID',NULL,l_list);
1097 END IF;
1098
1099 IF p_lead_bulk_rec.SECONDARY_INTEREST_ID.Exists(i)
1100 THEN
1101 wf_event.AddParameterToList('SECONDARY_INTEREST_ID',p_lead_bulk_rec.SECONDARY_INTEREST_ID(i),l_list);
1102 ELSE
1103 wf_event.AddParameterToList('SECONDARY_INTEREST_ID',NULL,l_list);
1104 END IF;
1105
1106 IF p_lead_bulk_rec.PARTY_SITE_ID.Exists(i)
1107 THEN
1108 wf_event.AddParameterToList('PARTY_SITE_ID',p_lead_bulk_rec.PARTY_SITE_ID(i),l_list);
1109 ELSE
1110 wf_event.AddParameterToList('PARTY_SITE_ID',NULL,l_list);
1111 END IF;
1112
1113 IF p_lead_bulk_rec.AREA_CODE.Exists(i)
1114 THEN
1115 wf_event.AddParameterToList('AREA_CODE',p_lead_bulk_rec.AREA_CODE(i),l_list);
1116 ELSE
1117 wf_event.AddParameterToList('AREA_CODE',NULL,l_list);
1118 END IF;
1119
1120 IF p_lead_bulk_rec.PARTY_ID.Exists(i)
1121 THEN
1122 wf_event.AddParameterToList('PARTY_ID',p_lead_bulk_rec.PARTY_ID(i),l_list);
1123 ELSE
1124 wf_event.AddParameterToList('PARTY_ID',NULL,l_list);
1125 END IF;
1126
1127 IF p_lead_bulk_rec.COMP_NAME_RANGE.Exists(i)
1128 THEN
1129 wf_event.AddParameterToList('COMP_NAME_RANGE',p_lead_bulk_rec.COMP_NAME_RANGE(i),l_list);
1130 ELSE
1131 wf_event.AddParameterToList('COMP_NAME_RANGE',NULL,l_list);
1132 END IF;
1133
1134 IF p_lead_bulk_rec.PARTNER_ID.Exists(i)
1135 THEN
1139 END IF;
1136 wf_event.AddParameterToList('PARTNER_ID',p_lead_bulk_rec.PARTNER_ID(i),l_list);
1137 ELSE
1138 wf_event.AddParameterToList('PARTNER_ID',NULL,l_list);
1140
1141 IF p_lead_bulk_rec.NUM_OF_EMPLOYEES.Exists(i)
1142 THEN
1143 wf_event.AddParameterToList('NUM_OF_EMPLOYEES',p_lead_bulk_rec.NUM_OF_EMPLOYEES(i),l_list);
1144 ELSE
1145 wf_event.AddParameterToList('NUM_OF_EMPLOYEES',NULL,l_list);
1146 END IF;
1147
1148 IF p_lead_bulk_rec.CATEGORY_CODE.Exists(i)
1149 THEN
1150 wf_event.AddParameterToList('CATEGORY_CODE',p_lead_bulk_rec.CATEGORY_CODE(i),l_list);
1151 ELSE
1152 wf_event.AddParameterToList('CATEGORY_CODE',NULL,l_list);
1153 END IF;
1154
1155 IF p_lead_bulk_rec.PARTY_RELATIONSHIP_ID.Exists(i)
1156 THEN
1157 wf_event.AddParameterToList('PARTY_RELATIONSHIP_ID',p_lead_bulk_rec.PARTY_RELATIONSHIP_ID(i),l_list);
1158 ELSE
1159 wf_event.AddParameterToList('PARTY_RELATIONSHIP_ID',NULL,l_list);
1160 END IF;
1161
1162 IF p_lead_bulk_rec.SIC_CODE.Exists(i)
1163 THEN
1164 wf_event.AddParameterToList('SIC_CODE',p_lead_bulk_rec.SIC_CODE(i),l_list);
1165 ELSE
1166 wf_event.AddParameterToList('SIC_CODE',NULL,l_list);
1167 END IF;
1168
1169 IF p_lead_bulk_rec.BUDGET_AMOUNT.Exists(i)
1170 THEN
1171 wf_event.AddParameterToList('BUDGET_AMOUNT',p_lead_bulk_rec.BUDGET_AMOUNT(i),l_list);
1172 ELSE
1173 wf_event.AddParameterToList('BUDGET_AMOUNT',NULL,l_list);
1174 END IF;
1175
1176 IF p_lead_bulk_rec.CURRENCY_CODE.Exists(i)
1177 THEN
1178 wf_event.AddParameterToList('CURRENCY_CODE',p_lead_bulk_rec.CURRENCY_CODE(i),l_list);
1179 ELSE
1180 wf_event.AddParameterToList('CURRENCY_CODE',NULL,l_list);
1181 END IF;
1182
1183 IF p_lead_bulk_rec.PRICING_DATE.Exists(i)
1184 THEN
1185 wf_event.AddParameterToList('PRICING_DATE',p_lead_bulk_rec.PRICING_DATE(i),l_list);
1186 ELSE
1187 wf_event.AddParameterToList('PRICING_DATE',NULL,l_list);
1188 END IF;
1189
1190 IF p_lead_bulk_rec.SOURCE_PROMOTION_ID.Exists(i)
1191 THEN
1192 wf_event.AddParameterToList('SOURCE_PROMOTION_ID',p_lead_bulk_rec.SOURCE_PROMOTION_ID(i),l_list);
1193 ELSE
1194 wf_event.AddParameterToList('SOURCE_PROMOTION_ID',NULL,l_list);
1195 END IF;
1196
1197 IF p_lead_bulk_rec.INVENTORY_ITEM_ID.Exists(i)
1198 THEN
1199 wf_event.AddParameterToList('INVENTORY_ITEM_ID',p_lead_bulk_rec.INVENTORY_ITEM_ID(i),l_list);
1200 ELSE
1201 wf_event.AddParameterToList('INVENTORY_ITEM_ID',NULL,l_list);
1202 END IF;
1203
1204 IF p_lead_bulk_rec.LEAD_INTEREST_TYPE_ID.Exists(i)
1205 THEN
1206 wf_event.AddParameterToList('LEAD_INTEREST_TYPE_ID',p_lead_bulk_rec.LEAD_INTEREST_TYPE_ID(i),l_list);
1207 ELSE
1208 wf_event.AddParameterToList('LEAD_INTEREST_TYPE_ID',NULL,l_list);
1209 END IF;
1210
1211 IF p_lead_bulk_rec.LEAD_PRIMARY_INTEREST_ID.Exists(i)
1212 THEN
1213 wf_event.AddParameterToList('LEAD_PRIMARY_INTEREST_ID',p_lead_bulk_rec.LEAD_PRIMARY_INTEREST_ID(i),l_list);
1214 ELSE
1215 wf_event.AddParameterToList('LEAD_PRIMARY_INTEREST_ID',NULL,l_list);
1216 END IF;
1217
1218 IF p_lead_bulk_rec.LEAD_SECONDARY_INTEREST_ID.Exists(i)
1219 THEN
1220 wf_event.AddParameterToList('LEAD_SECONDARY_INTEREST_ID',p_lead_bulk_rec.LEAD_SECONDARY_INTEREST_ID(i),l_list);
1221 ELSE
1222 wf_event.AddParameterToList('LEAD_SECONDARY_INTEREST_ID',NULL,l_list);
1223 END IF;
1224
1225 IF p_lead_bulk_rec.PURCHASE_AMOUNT.Exists(i)
1226 THEN
1227 wf_event.AddParameterToList('PURCHASE_AMOUNT',p_lead_bulk_rec.PURCHASE_AMOUNT(i),l_list);
1228 ELSE
1229 wf_event.AddParameterToList('PURCHASE_AMOUNT',NULL,l_list);
1230 END IF;
1231
1232 IF p_lead_bulk_rec.ATTRIBUTE1.Exists(i)
1233 THEN
1234 wf_event.AddParameterToList('ATTRIBUTE1',p_lead_bulk_rec.ATTRIBUTE1(i),l_list);
1235 ELSE
1236 wf_event.AddParameterToList('ATTRIBUTE1',NULL,l_list);
1237 END IF;
1238
1239 IF p_lead_bulk_rec.ATTRIBUTE2.Exists(i)
1240 THEN
1241 wf_event.AddParameterToList('ATTRIBUTE2',p_lead_bulk_rec.ATTRIBUTE2(i),l_list);
1242 ELSE
1243 wf_event.AddParameterToList('ATTRIBUTE2',NULL,l_list);
1244 END IF;
1245
1246 IF p_lead_bulk_rec.ATTRIBUTE3.Exists(i)
1247 THEN
1248 wf_event.AddParameterToList('ATTRIBUTE3',p_lead_bulk_rec.ATTRIBUTE3(i),l_list);
1249 ELSE
1250 wf_event.AddParameterToList('ATTRIBUTE3',NULL,l_list);
1251 END IF;
1252
1253 IF p_lead_bulk_rec.ATTRIBUTE4.Exists(i)
1254 THEN
1255 wf_event.AddParameterToList('ATTRIBUTE4',p_lead_bulk_rec.ATTRIBUTE4(i),l_list);
1256 ELSE
1257 wf_event.AddParameterToList('ATTRIBUTE4',NULL,l_list);
1258 END IF;
1259
1260 IF p_lead_bulk_rec.ATTRIBUTE5.Exists(i)
1261 THEN
1262 wf_event.AddParameterToList('ATTRIBUTE5',p_lead_bulk_rec.ATTRIBUTE5(i),l_list);
1263 ELSE
1264 wf_event.AddParameterToList('ATTRIBUTE5',NULL,l_list);
1265 END IF;
1266
1267 IF p_lead_bulk_rec.ATTRIBUTE6.Exists(i)
1268 THEN
1269 wf_event.AddParameterToList('ATTRIBUTE6',p_lead_bulk_rec.ATTRIBUTE6(i),l_list);
1270 ELSE
1271 wf_event.AddParameterToList('ATTRIBUTE6',NULL,l_list);
1272 END IF;
1273
1274 IF p_lead_bulk_rec.ATTRIBUTE7.Exists(i)
1275 THEN
1276 wf_event.AddParameterToList('ATTRIBUTE7',p_lead_bulk_rec.ATTRIBUTE7(i),l_list);
1277 ELSE
1281 IF p_lead_bulk_rec.ATTRIBUTE8.Exists(i)
1278 wf_event.AddParameterToList('ATTRIBUTE7',NULL,l_list);
1279 END IF;
1280
1282 THEN
1283 wf_event.AddParameterToList('ATTRIBUTE8',p_lead_bulk_rec.ATTRIBUTE8(i),l_list);
1284 ELSE
1285 wf_event.AddParameterToList('ATTRIBUTE8',NULL,l_list);
1286 END IF;
1287
1288 IF p_lead_bulk_rec.ATTRIBUTE9.Exists(i)
1289 THEN
1290 wf_event.AddParameterToList('ATTRIBUTE9',p_lead_bulk_rec.ATTRIBUTE9(i),l_list);
1291 ELSE
1292 wf_event.AddParameterToList('ATTRIBUTE9',NULL,l_list);
1293 END IF;
1294
1295 IF p_lead_bulk_rec.ATTRIBUTE10.Exists(i)
1296 THEN
1297 wf_event.AddParameterToList('ATTRIBUTE10',p_lead_bulk_rec.ATTRIBUTE10(i),l_list);
1298 ELSE
1299 wf_event.AddParameterToList('ATTRIBUTE10',NULL,l_list);
1300 END IF;
1301
1302 IF p_lead_bulk_rec.ATTRIBUTE11.Exists(i)
1303 THEN
1304 wf_event.AddParameterToList('ATTRIBUTE11',p_lead_bulk_rec.ATTRIBUTE11(i),l_list);
1305 ELSE
1306 wf_event.AddParameterToList('ATTRIBUTE11',NULL,l_list);
1307 END IF;
1308
1309 IF p_lead_bulk_rec.ATTRIBUTE12.Exists(i)
1310 THEN
1311 wf_event.AddParameterToList('ATTRIBUTE12',p_lead_bulk_rec.ATTRIBUTE12(i),l_list);
1312 ELSE
1313 wf_event.AddParameterToList('ATTRIBUTE12',NULL,l_list);
1314 END IF;
1315
1316 IF p_lead_bulk_rec.ATTRIBUTE13.Exists(i)
1317 THEN
1318 wf_event.AddParameterToList('ATTRIBUTE13',p_lead_bulk_rec.ATTRIBUTE13(i),l_list);
1319 ELSE
1320 wf_event.AddParameterToList('ATTRIBUTE13',NULL,l_list);
1321 END IF;
1322
1323 IF p_lead_bulk_rec.ATTRIBUTE14.Exists(i)
1324 THEN
1325 wf_event.AddParameterToList('ATTRIBUTE14',p_lead_bulk_rec.ATTRIBUTE14(i),l_list);
1326 ELSE
1327 wf_event.AddParameterToList('ATTRIBUTE14',NULL,l_list);
1328 END IF;
1329
1330 IF p_lead_bulk_rec.ATTRIBUTE15.Exists(i)
1331 THEN
1332 wf_event.AddParameterToList('ATTRIBUTE15',p_lead_bulk_rec.ATTRIBUTE15(i),l_list);
1333 ELSE
1334 wf_event.AddParameterToList('ATTRIBUTE15',NULL,l_list);
1335 END IF;
1336
1337 IF p_lead_bulk_rec.ORG_ID.Exists(i)
1338 THEN
1339 wf_event.AddParameterToList('ORG_ID',p_lead_bulk_rec.ORG_ID(i),l_list);
1340 ELSE
1341 wf_event.AddParameterToList('ORG_ID',NULL,l_list);
1342 END IF;
1343
1344 IF p_lead_bulk_rec.SQUAL_NUM06.Exists(i)
1345 THEN
1346 wf_event.AddParameterToList('SQUAL_NUM06',p_lead_bulk_rec.SQUAL_NUM06(i),l_list);
1347 ELSE
1348 wf_event.AddParameterToList('SQUAL_NUM06',NULL,l_list);
1349 END IF;
1350
1351 IF p_lead_bulk_rec.SQUAL_NUM01.Exists(i)
1352 THEN
1353 wf_event.AddParameterToList('SQUAL_NUM01',p_lead_bulk_rec.SQUAL_NUM01(i),l_list);
1354 ELSE
1355 wf_event.AddParameterToList('SQUAL_NUM01',NULL,l_list);
1356 END IF;
1357
1358 IF p_lead_bulk_rec.CAR_CURRENCY_CODE.Exists(i)
1359 THEN
1360 wf_event.AddParameterToList('CAR_CURRENCY_CODE',p_lead_bulk_rec.CAR_CURRENCY_CODE(i),l_list);
1361 ELSE
1362 wf_event.AddParameterToList('CAR_CURRENCY_CODE',NULL,l_list);
1363 END IF;
1364
1365 wf_event.AddParameterToList('BUSINESS_PROCESS_ID',p_business_process_id,l_list);
1366 wf_event.AddParameterToList('BUSINESS_PROCESS_DATE',p_business_process_date,l_list);
1367
1368 -- Raise Event
1369 wf_event.raise(
1370 p_event_name => l_event_name
1371 ,p_event_key => l_key
1372 ,p_event_data => null
1373 ,p_parameters => l_list
1374 );
1375
1376 l_list.DELETE;
1377
1378 i:=p_lead_bulk_rec.PARTY_ID.NEXT(i);
1379
1380 END LOOP;
1381
1382 ELSE
1383
1384 --Get the item key
1385 l_key := item_key(l_event_name);
1386
1387 -- initialization of object variables
1388
1389 wf_event.AddParameterToList('SALES_LEAD_ID',p_lead_rec.SALES_LEAD_ID,l_list);
1390 wf_event.AddParameterToList('SALES_LEAD_LINE_ID',p_lead_rec.SALES_LEAD_LINE_ID,l_list);
1391 wf_event.AddParameterToList('CITY',p_lead_rec.CITY,l_list);
1392 wf_event.AddParameterToList('POSTAL_CODE',p_lead_rec.POSTAL_CODE,l_list);
1393 wf_event.AddParameterToList('STATE',p_lead_rec.STATE,l_list);
1394 wf_event.AddParameterToList('PROVINCE',p_lead_rec.PROVINCE,l_list);
1395 wf_event.AddParameterToList('COUNTY',p_lead_rec.COUNTY,l_list);
1396 wf_event.AddParameterToList('COUNTRY',p_lead_rec.COUNTRY,l_list);
1397 wf_event.AddParameterToList('INTEREST_TYPE_ID',p_lead_rec.INTEREST_TYPE_ID,l_list);
1398 wf_event.AddParameterToList('PRIMARY_INTEREST_ID',p_lead_rec.PRIMARY_INTEREST_ID,l_list);
1399 wf_event.AddParameterToList('SECONDARY_INTEREST_ID',p_lead_rec.SECONDARY_INTEREST_ID,l_list);
1400 wf_event.AddParameterToList('CONTACT_INTEREST_TYPE_ID',p_lead_rec.CONTACT_INTEREST_TYPE_ID,l_list);
1401 wf_event.AddParameterToList('CONTACT_PRIMARY_INTEREST_ID',p_lead_rec.CONTACT_PRIMARY_INTEREST_ID,l_list);
1402 wf_event.AddParameterToList('CONTACT_SECONDARY_INTEREST_ID',p_lead_rec.CONTACT_SECONDARY_INTEREST_ID,l_list);
1403 wf_event.AddParameterToList('PARTY_SITE_ID',p_lead_rec.PARTY_SITE_ID,l_list);
1404 wf_event.AddParameterToList('AREA_CODE',p_lead_rec.AREA_CODE,l_list);
1405 wf_event.AddParameterToList('PARTY_ID',p_lead_rec.PARTY_ID,l_list);
1406 wf_event.AddParameterToList('COMP_NAME_RANGE',p_lead_rec.COMP_NAME_RANGE,l_list);
1407 wf_event.AddParameterToList('PARTNER_ID',p_lead_rec.PARTNER_ID,l_list);
1408 wf_event.AddParameterToList('NUM_OF_EMPLOYEES',p_lead_rec.NUM_OF_EMPLOYEES,l_list);
1412 wf_event.AddParameterToList('BUDGET_AMOUNT',p_lead_rec.BUDGET_AMOUNT,l_list);
1409 wf_event.AddParameterToList('CATEGORY_CODE',p_lead_rec.CATEGORY_CODE,l_list);
1410 wf_event.AddParameterToList('PARTY_RELATIONSHIP_ID',p_lead_rec.PARTY_RELATIONSHIP_ID,l_list);
1411 wf_event.AddParameterToList('SIC_CODE',p_lead_rec.SIC_CODE,l_list);
1413 wf_event.AddParameterToList('CURRENCY_CODE',p_lead_rec.CURRENCY_CODE,l_list);
1414 wf_event.AddParameterToList('PRICING_DATE',p_lead_rec.PRICING_DATE,l_list);
1415 wf_event.AddParameterToList('SOURCE_PROMOTION_ID',p_lead_rec.SOURCE_PROMOTION_ID,l_list);
1416 wf_event.AddParameterToList('INVENTORY_ITEM_ID',p_lead_rec.INVENTORY_ITEM_ID,l_list);
1417 wf_event.AddParameterToList('LEAD_INTEREST_TYPE_ID',p_lead_rec.LEAD_INTEREST_TYPE_ID,l_list);
1418 wf_event.AddParameterToList('LEAD_PRIMARY_INTEREST_ID',p_lead_rec.LEAD_PRIMARY_INTEREST_ID,l_list);
1419 wf_event.AddParameterToList('LEAD_SECONDARY_INTEREST_ID',p_lead_rec.LEAD_SECONDARY_INTEREST_ID,l_list);
1420 wf_event.AddParameterToList('PURCHASE_AMOUNT',p_lead_rec.PURCHASE_AMOUNT,l_list);
1421 wf_event.AddParameterToList('ATTRIBUTE1',p_lead_rec.ATTRIBUTE1,l_list);
1422 wf_event.AddParameterToList('ATTRIBUTE2',p_lead_rec.ATTRIBUTE2,l_list);
1423 wf_event.AddParameterToList('ATTRIBUTE3',p_lead_rec.ATTRIBUTE3,l_list);
1424 wf_event.AddParameterToList('ATTRIBUTE4',p_lead_rec.ATTRIBUTE4,l_list);
1425 wf_event.AddParameterToList('ATTRIBUTE5',p_lead_rec.ATTRIBUTE5,l_list);
1426 wf_event.AddParameterToList('ATTRIBUTE6',p_lead_rec.ATTRIBUTE6,l_list);
1427 wf_event.AddParameterToList('ATTRIBUTE7',p_lead_rec.ATTRIBUTE7,l_list);
1428 wf_event.AddParameterToList('ATTRIBUTE8',p_lead_rec.ATTRIBUTE8,l_list);
1429 wf_event.AddParameterToList('ATTRIBUTE9',p_lead_rec.ATTRIBUTE9,l_list);
1430 wf_event.AddParameterToList('ATTRIBUTE10',p_lead_rec.ATTRIBUTE10,l_list);
1431 wf_event.AddParameterToList('ATTRIBUTE11',p_lead_rec.ATTRIBUTE11,l_list);
1432 wf_event.AddParameterToList('ATTRIBUTE12',p_lead_rec.ATTRIBUTE12,l_list);
1433 wf_event.AddParameterToList('ATTRIBUTE13',p_lead_rec.ATTRIBUTE13,l_list);
1434 wf_event.AddParameterToList('ATTRIBUTE14',p_lead_rec.ATTRIBUTE14,l_list);
1435 wf_event.AddParameterToList('ATTRIBUTE15',p_lead_rec.ATTRIBUTE15,l_list);
1436 wf_event.AddParameterToList('ORG_ID',p_lead_rec.ORG_ID,l_list);
1437 wf_event.AddParameterToList('BUSINESS_PROCESS_ID',p_business_process_id,l_list);
1438 wf_event.AddParameterToList('BUSINESS_PROCESS_DATE',p_business_process_date,l_list);
1439
1440 -- Raise Event
1441 wf_event.raise(
1442 p_event_name => l_event_name
1443 ,p_event_key => l_key
1444 ,p_event_data => null
1445 ,p_parameters => l_list
1446 );
1447
1448 l_list.DELETE;
1449
1450 END IF;
1451
1452 EXCEPTION when OTHERS then
1453 ROLLBACK TO asg_lead_publish_save;
1454 x_return_status := fnd_api.g_ret_sts_unexp_error;
1455
1456 END assign_lead_resource;
1457
1458 /********************** End of Addition for Enh. No 3076744 by SBARAT, 20/09/2004 ************************/
1459
1460 END jtf_am_wf_events_pub;