[Home] [Help]
PACKAGE BODY: APPS.HZ_BUSINESS_EVENT_V2PVT
Source
1 PACKAGE BODY hz_business_event_v2pvt AS
2 /*$Header: ARH2BESB.pls 120.21 2006/03/24 07:23:44 svemuri ship $ */
3
4 --G_EXECUTE_API_CALLOUT CONSTANT VARCHAR2(100) := FND_PROFILE.VALUE('HZ_EXECUTE_API_CALLOUTS');
5 G_EXECUTE_API_CALLOUT CONSTANT VARCHAR2(1) := 'Y';
6
7 --------------------------------------
8 -- public procedures and functions
9 --------------------------------------
10
11 -- HZ_PARTY_V2PUB
12
13 PROCEDURE create_person_event (
14 p_person_rec IN HZ_PARTY_V2PUB.PERSON_REC_TYPE
15 ) IS
16
17 l_list WF_PARAMETER_LIST_T;
18 l_param WF_PARAMETER_T;
19 l_key VARCHAR2(240);
20 l_exist VARCHAR2(1);
21 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.Person.create';
22
23 BEGIN
24 SAVEPOINT create_person_event;
25 -- Raise Event ONLY if profile is set to 'Y'.
26 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
27 -- delete from HZ_PARAMS exists.
28
29 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
30
31 -- commenting the following line as part of bug4369710 fix
32 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
33
34
35 --Get the item key
36 l_key := HZ_EVENT_PKG.item_key( l_event_name );
37
38 -- commenting the following line(s) as part of bug4369710 fix
39 /*
40 IF l_exist = 'Y' THEN
41 --Set Parameter
42 HZ_PARAM_PKG.SetParameter( l_key, p_person_rec, 'NEW' );
43 END IF;
44 */
45 -- initialization of object variables
46 l_list := WF_PARAMETER_LIST_T();
47
48 -- Add Context values to the list
49 hz_event_pkg.AddParamEnvToList(l_list);
50
51 l_param := WF_PARAMETER_T( NULL, NULL );
52
53 -- fill the parameters list
54 l_list.extend;
55 l_param.SetName( 'PARTY_ID' );
56 l_param.SetValue( p_person_rec.party_rec.party_id );
57 l_list(l_list.last) := l_param;
58
59
60 -- Raise Event
61 HZ_EVENT_PKG.raise_event(
62 p_event_name => l_event_name,
63 p_event_key => l_key,
64 p_parameters => l_list );
65
66 l_list.DELETE;
67
68 END IF;
69 EXCEPTION
70 WHEN OTHERS THEN
71 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
72 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
73 FND_MSG_PUB.ADD;
74 ROLLBACK TO create_person_event;
75
76 END create_person_event;
77
78 PROCEDURE update_person_event (
79 p_person_rec IN HZ_PARTY_V2PUB.PERSON_REC_TYPE,
80 p_old_person_rec IN HZ_PARTY_V2PUB.PERSON_REC_TYPE
81 ) IS
82
83 l_list WF_PARAMETER_LIST_T;
84 l_param WF_PARAMETER_T;
85 l_key VARCHAR2(240);
86 l_exist VARCHAR2(1);
87 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.Person.update';
88
89 BEGIN
90 SAVEPOINT update_person_event;
91 -- Raise Event ONLY if profile is set to 'Y'.
92 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
93 -- delete from HZ_PARAMS exists.
94 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
95
96 -- commenting the following line(s) as part of bug4369710 fix
97 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
98
99 --Get the item key
100 l_key := HZ_EVENT_PKG.item_key( l_event_name );
101
102 -- commenting the following line(s) as part of bug4369710 fix
103 /*
104 IF l_exist = 'Y' THEN
105
106 --Set Parameter
107 HZ_PARAM_PKG.SetParameter( l_key, p_person_rec, 'NEW' );
108 HZ_PARAM_PKG.SetParameter( l_key, p_old_person_rec, 'OLD' );
109 END IF;
110 */
111
112 -- initialization of object variables
113 l_list := WF_PARAMETER_LIST_T();
114
115 -- Add Context values to the list
116 hz_event_pkg.AddParamEnvToList(l_list);
117 l_param := WF_PARAMETER_T( NULL, NULL );
118
119 -- fill the parameters list
120 l_list.extend;
121 l_param.SetName( 'PARTY_ID' );
122 l_param.SetValue( p_person_rec.party_rec.party_id );
123 l_list(l_list.last) := l_param;
124
125 -- Raise Event
126 HZ_EVENT_PKG.raise_event(
127 p_event_name => l_event_name,
128 p_event_key => l_key,
129 p_parameters => l_list );
130
131 l_list.DELETE;
132
133 END IF;
134 EXCEPTION
135 WHEN OTHERS THEN
136 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
137 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
138 FND_MSG_PUB.ADD;
139 ROLLBACK TO update_person_event;
140
141 END update_person_event;
142
143 PROCEDURE create_group_event (
144 p_group_rec IN HZ_PARTY_V2PUB.GROUP_REC_TYPE
145 ) IS
146
147 l_list WF_PARAMETER_LIST_T;
148 l_param WF_PARAMETER_T;
149 l_key VARCHAR2(240);
150 l_exist VARCHAR2(1);
151 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.Group.create';
152
153 BEGIN
154 SAVEPOINT create_group_event;
155 -- Raise Event ONLY if profile is set to 'Y'.
156 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
157 -- delete from HZ_PARAMS exists.
158
159 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
160
161 -- commenting the following line(s) as part of bug4369710 fix
162 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
163
164 --Get the item key
165 l_key := HZ_EVENT_PKG.item_key( l_event_name );
166
167 -- commenting the following line(s) as part of bug4369710 fix
168 /*
169 IF l_exist = 'Y' THEN
170 --Set Parameter
171 HZ_PARAM_PKG.SetParameter( l_key, p_group_rec, 'NEW' );
172 END IF;
173 */
174
175 -- initialization of object variables
176 l_list := WF_PARAMETER_LIST_T();
177
178
179 -- Add Context values to the list
180 hz_event_pkg.AddParamEnvToList(l_list);
181 l_param := WF_PARAMETER_T( NULL, NULL );
182
183 -- fill the parameters list
184 l_list.extend;
185 l_param.SetName( 'PARTY_ID' );
186 l_param.SetValue( p_group_rec.party_rec.party_id );
187 l_list(l_list.last) := l_param;
188
189 -- Raise Event
190 HZ_EVENT_PKG.raise_event(
191 p_event_name => l_event_name,
192 p_event_key => l_key,
193 p_parameters => l_list );
194
195 l_list.DELETE;
196
197 END IF;
198 EXCEPTION
199 WHEN OTHERS THEN
200 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
201 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
202 FND_MSG_PUB.ADD;
203 ROLLBACK TO create_group_event;
204
205 END create_group_event;
206
207 PROCEDURE update_group_event (
208 p_group_rec IN HZ_PARTY_V2PUB.GROUP_REC_TYPE,
209 p_old_group_rec IN HZ_PARTY_V2PUB.GROUP_REC_TYPE
210 ) IS
211
212 l_list WF_PARAMETER_LIST_T;
213 l_param WF_PARAMETER_T;
214 l_key VARCHAR2(240);
215 l_exist VARCHAR2(1);
216 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.Group.update';
217
218 BEGIN
219 SAVEPOINT update_group_event;
220 -- Raise Event ONLY if profile is set to 'Y'.
221 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
222 -- delete from HZ_PARAMS exists.
223
224 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
225
226 -- commenting the following line(s) as part of bug4369710 fix
227 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
228
229 --Get the item key
230 l_key := HZ_EVENT_PKG.item_key( l_event_name );
231
232 -- commenting the following line(s) as part of bug4369710 fix
233 /*
234 IF l_exist = 'Y' THEN
235 --Set Parameter
236 HZ_PARAM_PKG.SetParameter( l_key, p_group_rec, 'NEW' );
237 HZ_PARAM_PKG.SetParameter( l_key, p_old_group_rec, 'OLD' );
238 END IF;
239 */
240 -- initialization of object variables
241 l_list := WF_PARAMETER_LIST_T();
242
243
244 -- Add Context values to the list
245 hz_event_pkg.AddParamEnvToList(l_list);
246 l_param := WF_PARAMETER_T( NULL, NULL );
247
248 -- fill the parameters list
249 l_list.extend;
250 l_param.SetName( 'PARTY_ID' );
251 l_param.SetValue( p_group_rec.party_rec.party_id );
252 l_list(l_list.last) := l_param;
253
254 -- Raise Event
255 HZ_EVENT_PKG.raise_event(
256 p_event_name => l_event_name,
257 p_event_key => l_key,
258 p_parameters => l_list );
259
260 l_list.DELETE;
261
262 END IF;
263 EXCEPTION
264 WHEN OTHERS THEN
265 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
266 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
267 FND_MSG_PUB.ADD;
268 ROLLBACK TO update_group_event;
269
270 END update_group_event;
271
272 PROCEDURE create_organization_event (
273 p_organization_rec IN HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE
274 ) IS
275
276 l_list WF_PARAMETER_LIST_T;
277 l_param WF_PARAMETER_T;
278 l_key VARCHAR2(240);
279 l_exist VARCHAR2(1);
280 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.Organization.create';
281
282 BEGIN
283 SAVEPOINT create_organization_event;
284 -- Raise Event ONLY if profile is set to 'Y'.
285 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
286 -- delete from HZ_PARAMS exists.
287 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
288
289 -- commenting the following line(s) as part of bug4369710 fix
290 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
291
292 --Get the item key
293 l_key := HZ_EVENT_PKG.item_key( l_event_name );
294
295 -- commenting the following line(s) as part of bug4369710 fix
296 /*
297 IF l_exist = 'Y' THEN
298 --Set Parameter
299 HZ_PARAM_PKG.SetParameter( l_key, p_organization_rec, 'NEW' );
300 END IF;
301 */
302
303 -- initialization of object variables
304 l_list := WF_PARAMETER_LIST_T();
305
306 -- Add Context values to the list
307 hz_event_pkg.AddParamEnvToList(l_list);
308 l_param := WF_PARAMETER_T( NULL, NULL );
309
310
311 -- fill the parameters list
312 l_list.extend;
313 l_param.SetName( 'PARTY_ID' );
314 l_param.SetValue( p_organization_rec.party_rec.party_id );
315 l_list(l_list.last) := l_param;
316
317 -- Raise Event
318 HZ_EVENT_PKG.raise_event(
319 p_event_name => l_event_name,
320 p_event_key => l_key,
321 p_parameters => l_list );
322
323 l_list.DELETE;
324
325 END IF;
326 EXCEPTION
327 WHEN OTHERS THEN
328 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
329 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
330 FND_MSG_PUB.ADD;
331 ROLLBACK TO create_organization_event;
332
333 END create_organization_event;
334
335 PROCEDURE update_organization_event (
336 p_organization_rec IN HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE,
337 p_old_organization_rec IN HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE
338 ) IS
339
340 l_list WF_PARAMETER_LIST_T;
341 l_param WF_PARAMETER_T;
342 l_key VARCHAR2(240);
343 l_exist VARCHAR2(1);
344 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.Organization.update';
345
346 BEGIN
347 SAVEPOINT update_organization_event;
348 -- Raise Event ONLY if profile is set to 'Y'.
349 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
350 -- delete from HZ_PARAMS exists.
351
352 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
353
354 -- commenting the following line(s) as part of bug4369710 fix
358 l_key := HZ_EVENT_PKG.item_key( l_event_name );
355 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
356
357 --Get the item key
359
360 -- commenting the following line(s) as part of bug4369710 fix
361 /*
362 IF l_exist = 'Y' THEN
363
364 --Set Parameter
365 HZ_PARAM_PKG.SetParameter( l_key, p_organization_rec, 'NEW' );
366 HZ_PARAM_PKG.SetParameter( l_key, p_old_organization_rec, 'OLD' );
367 END IF;
368 */
369 -- initialization of object variables
370 l_list := WF_PARAMETER_LIST_T();
371
372 -- Add Context values to the list
373 hz_event_pkg.AddParamEnvToList(l_list);
374 l_param := WF_PARAMETER_T( NULL, NULL );
375
376
377 -- fill the parameters list
378 l_list.extend;
379 l_param.SetName( 'PARTY_ID' );
380 l_param.SetValue( p_organization_rec.party_rec.party_id );
381 l_list(l_list.last) := l_param;
382
383 -- Raise Event
384 HZ_EVENT_PKG.raise_event(
385 p_event_name => l_event_name,
386 p_event_key => l_key,
387 p_parameters => l_list );
388
389 l_list.DELETE;
390
391 END IF;
392 EXCEPTION
393 WHEN OTHERS THEN
394 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
395 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
396 FND_MSG_PUB.ADD;
397 ROLLBACK TO update_organization_event;
398
399 END update_organization_event;
400
401 -- HZ_RELATIONSHIP_V2PUB
402
403 PROCEDURE create_relationship_event (
404 p_relationship_rec IN HZ_RELATIONSHIP_V2PUB.RELATIONSHIP_REC_TYPE,
405 p_party_created IN VARCHAR2
406 ) IS
407
408 l_list WF_PARAMETER_LIST_T;
409 l_param WF_PARAMETER_T;
410 l_key VARCHAR2(240);
411 l_exist VARCHAR2(1);
412 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.Relationship.create';
413
414 BEGIN
415 SAVEPOINT create_relationship_event;
416 -- Raise Event ONLY if profile is set to 'Y'.
417 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
418 -- delete from HZ_PARAMS exists.
419
420 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
421
422 -- commenting the following line(s) as part of bug4369710 fix
423 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
424
425 --Get the item key
426 l_key := HZ_EVENT_PKG.item_key( l_event_name );
427
428 -- commenting the following line(s) as part of bug4369710 fix
429 /*
430 IF l_exist = 'Y' THEN
431 --Set Parameter
432 HZ_PARAM_PKG.SetParameter( l_key, p_relationship_rec, 'NEW' );
433 HZ_PARAM_PKG.SetParameter( l_key, 'P_PARTY_CREATED', p_party_created, 'NEW' );
434 END IF;
435 */
436
437 -- initialization of object variables
438 l_list := WF_PARAMETER_LIST_T();
439
440 -- Add Context values to the list
441 hz_event_pkg.AddParamEnvToList(l_list);
442 l_param := WF_PARAMETER_T( NULL, NULL );
443
444
445 -- fill the parameters list
446 l_list.extend;
447 l_param.SetName( 'RELATIONSHIP_ID' );
448 l_param.SetValue( p_relationship_rec.relationship_id );
449 l_list(l_list.last) := l_param;
450
451 l_list.extend;
452 l_param.SetName( 'P_PARTY_CREATED' );
453 l_param.SetValue( p_party_created );
454 l_list(l_list.last) := l_param;
455
456 -- Raise Event
457 HZ_EVENT_PKG.raise_event(
458 p_event_name => l_event_name,
459 p_event_key => l_key,
460 p_parameters => l_list );
461
462 l_list.DELETE;
463
464 END IF;
465 EXCEPTION
466 WHEN OTHERS THEN
467 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
468 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
469 FND_MSG_PUB.ADD;
470 ROLLBACK TO create_relationship_event;
471
472 END create_relationship_event;
473
474 PROCEDURE update_relationship_event (
475 p_relationship_rec IN HZ_RELATIONSHIP_V2PUB.RELATIONSHIP_REC_TYPE,
476 p_old_relationship_rec IN HZ_RELATIONSHIP_V2PUB.RELATIONSHIP_REC_TYPE
477 ) IS
478
479 l_list WF_PARAMETER_LIST_T;
480 l_param WF_PARAMETER_T;
481 l_key VARCHAR2(240);
482 l_exist VARCHAR2(1);
483 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.Relationship.update';
484
485 BEGIN
486 SAVEPOINT update_relationship_event;
487 -- Raise Event ONLY if profile is set to 'Y'.
488 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
489 -- delete from HZ_PARAMS exists.
490
491 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
492
496 --Get the item key
493 -- commenting the following line(s) as part of bug4369710 fix
494 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
495
497 l_key := HZ_EVENT_PKG.item_key( l_event_name );
498
499 -- commenting the following line(s) as part of bug4369710 fix
500 /*
501 IF l_exist = 'Y' THEN
502
503 --Set Parameter
504 HZ_PARAM_PKG.SetParameter( l_key, p_relationship_rec, 'NEW' );
505 HZ_PARAM_PKG.SetParameter( l_key, p_old_relationship_rec, 'OLD' );
506 END IF;
507 */
508
509 -- initialization of object variables
510 l_list := WF_PARAMETER_LIST_T();
511
512 -- Add Context values to the list
513 hz_event_pkg.AddParamEnvToList(l_list);
514 l_param := WF_PARAMETER_T( NULL, NULL );
515
516
517 -- fill the parameters list
518 l_list.extend;
519 l_param.SetName( 'RELATIONSHIP_ID' );
520 l_param.SetValue( p_relationship_rec.relationship_id );
521 l_list(l_list.last) := l_param;
522
523 -- Raise Event
524 HZ_EVENT_PKG.raise_event(
525 p_event_name => l_event_name,
526 p_event_key => l_key,
527 p_parameters => l_list );
528
529 l_list.DELETE;
530
531 END IF;
532 EXCEPTION
533 WHEN OTHERS THEN
534 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
535 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
536 FND_MSG_PUB.ADD;
537 ROLLBACK TO update_relationship_event;
538
539 END update_relationship_event;
540
541 -- HZ_PARTY_SITE_V2PUB
542
543 PROCEDURE create_party_site_event (
544 p_party_site_rec IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE
545 ) IS
546
547 l_list WF_PARAMETER_LIST_T;
548 l_param WF_PARAMETER_T;
549 l_key VARCHAR2(240);
550 l_exist VARCHAR2(1);
551 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.PartySite.create';
552
553 BEGIN
554 SAVEPOINT create_party_site_event;
555 -- Raise Event ONLY if profile is set to 'Y'.
556 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
557 -- delete from HZ_PARAMS exists.
558
559 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
560
561 -- commenting the following line(s) as part of bug4369710 fix
562 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
563
564 --Get the item key
565 l_key := HZ_EVENT_PKG.item_key( l_event_name );
566
567 -- commenting the following line(s) as part of bug4369710 fix
568 /*
569 IF l_exist = 'Y' THEN
570 --Set Parameter
571 HZ_PARAM_PKG.SetParameter( l_key, p_party_site_rec, 'NEW' );
572 END IF;
573 */
574 -- initialization of object variables
575 l_list := WF_PARAMETER_LIST_T();
576
577 -- Add Context values to the list
578 hz_event_pkg.AddParamEnvToList(l_list);
579 l_param := WF_PARAMETER_T( NULL, NULL );
580
581
582 -- fill the parameters list
583 l_list.extend;
584 l_param.SetName( 'PARTY_SITE_ID' );
585 l_param.SetValue( p_party_site_rec.party_site_id );
586 l_list(l_list.last) := l_param;
587
588 -- Raise Event
589 HZ_EVENT_PKG.raise_event(
590 p_event_name => l_event_name,
591 p_event_key => l_key,
592 p_parameters => l_list );
593
594 l_list.DELETE;
595
596 END IF;
597 EXCEPTION
598 WHEN OTHERS THEN
599 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
600 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
601 FND_MSG_PUB.ADD;
602 ROLLBACK TO create_party_site_event;
603 END create_party_site_event;
604
605 PROCEDURE update_party_site_event (
606 p_party_site_rec IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
607 p_old_party_site_rec IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE
608 ) IS
609
610 l_list WF_PARAMETER_LIST_T;
611 l_param WF_PARAMETER_T;
612 l_key VARCHAR2(240);
613 l_exist VARCHAR2(1);
614 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.PartySite.update';
615
616 BEGIN
617 SAVEPOINT update_party_site_event;
618 -- Raise Event ONLY if profile is set to 'Y'.
619 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
620 -- delete from HZ_PARAMS exists.
621
622 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
623
624 -- commenting the following line(s) as part of bug4369710 fix
625 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
626
627 --Get the item key
628 l_key := HZ_EVENT_PKG.item_key( l_event_name );
629
630 -- commenting the following line(s) as part of bug4369710 fix
634 --Set Parameter
631 /*
632 IF l_exist = 'Y' THEN
633
635 HZ_PARAM_PKG.SetParameter( l_key, p_party_site_rec, 'NEW' );
636 HZ_PARAM_PKG.SetParameter( l_key, p_old_party_site_rec, 'OLD' );
637 END IF;
638 */
639
640 -- initialization of object variables
641 l_list := WF_PARAMETER_LIST_T();
642
643 -- Add Context values to the list
644 hz_event_pkg.AddParamEnvToList(l_list);
645 l_param := WF_PARAMETER_T( NULL, NULL );
646
647
648 -- fill the parameters list
649 l_list.extend;
650 l_param.SetName( 'PARTY_SITE_ID' );
651 l_param.SetValue( p_party_site_rec.party_site_id );
652 l_list(l_list.last) := l_param;
653
654 -- Raise Event
655 HZ_EVENT_PKG.raise_event(
656 p_event_name => l_event_name,
657 p_event_key => l_key,
658 p_parameters => l_list );
659
660 l_list.DELETE;
661
662 END IF;
663 EXCEPTION
664 WHEN OTHERS THEN
665 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
666 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
667 FND_MSG_PUB.ADD;
668 ROLLBACK TO update_party_site_event;
669
670 END update_party_site_event;
671
672 PROCEDURE create_party_site_use_event (
673 p_party_site_use_rec IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_USE_REC_TYPE
674 ) IS
675
676 l_list WF_PARAMETER_LIST_T;
677 l_param WF_PARAMETER_T;
678 l_key VARCHAR2(240);
679 l_exist VARCHAR2(1);
680 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.PartySiteUse.create';
681
682 BEGIN
683 SAVEPOINT create_party_site_use_event;
684 -- Raise Event ONLY if profile is set to 'Y'.
685 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
686 -- delete from HZ_PARAMS exists.
687
688 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
689
690 -- commenting the following line(s) as part of bug4369710 fix
691 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
692
693 --Get the item key
694 l_key := HZ_EVENT_PKG.item_key( l_event_name );
695
696 -- commenting the following line(s) as part of bug4369710 fix
697 /*
698 IF l_exist = 'Y' THEN
699 --Set Parameter
700 HZ_PARAM_PKG.SetParameter( l_key, p_party_site_use_rec, 'NEW' );
701 END IF;
702 */
703
704 -- initialization of object variables
705 l_list := WF_PARAMETER_LIST_T();
706
707 -- Add Context values to the list
708 hz_event_pkg.AddParamEnvToList(l_list);
709 l_param := WF_PARAMETER_T( NULL, NULL );
710
711
712 -- fill the parameters list
713 l_list.extend;
714 l_param.SetName( 'PARTY_SITE_USE_ID' );
715 l_param.SetValue( p_party_site_use_rec.party_site_use_id );
716 l_list(l_list.last) := l_param;
717
718 -- Raise Event
719 HZ_EVENT_PKG.raise_event(
720 p_event_name => l_event_name,
721 p_event_key => l_key,
722 p_parameters => l_list );
723
724 l_list.DELETE;
725
726 END IF;
727 EXCEPTION
728 WHEN OTHERS THEN
729 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
730 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
731 FND_MSG_PUB.ADD;
732 ROLLBACK TO create_party_site_use_event;
733
734 END create_party_site_use_event;
735
736 PROCEDURE update_party_site_use_event (
737 p_party_site_use_rec IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_USE_REC_TYPE,
738 p_old_party_site_use_rec IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_USE_REC_TYPE
739 ) IS
740
741 l_list WF_PARAMETER_LIST_T;
742 l_param WF_PARAMETER_T;
743 l_key VARCHAR2(240);
744 l_exist VARCHAR2(1);
745 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.PartySiteUse.update';
746
747 BEGIN
748 SAVEPOINT update_party_site_use_event;
749 -- Raise Event ONLY if profile is set to 'Y'.
750 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
751 -- delete from HZ_PARAMS exists.
752
753 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
754
755 -- commenting the following line(s) as part of bug4369710 fix
756 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
757
758 --Get the item key
759 l_key := HZ_EVENT_PKG.item_key( l_event_name );
760
761 -- commenting the following line(s) as part of bug4369710 fix
762 /*
763 IF l_exist = 'Y' THEN
764
765 --Set Parameter
766 HZ_PARAM_PKG.SetParameter( l_key, p_party_site_use_rec, 'NEW' );
767 HZ_PARAM_PKG.SetParameter( l_key, p_old_party_site_use_rec, 'OLD' );
768 END IF;
769 */
773 -- Add Context values to the list
770 -- initialization of object variables
771 l_list := WF_PARAMETER_LIST_T();
772
774 hz_event_pkg.AddParamEnvToList(l_list);
775 l_param := WF_PARAMETER_T( NULL, NULL );
776
777
778 -- fill the parameters list
779 l_list.extend;
780 l_param.SetName( 'PARTY_SITE_USE_ID' );
781 l_param.SetValue( p_party_site_use_rec.party_site_use_id );
782 l_list(l_list.last) := l_param;
783
784 -- Raise Event
785 HZ_EVENT_PKG.raise_event(
786 p_event_name => l_event_name,
787 p_event_key => l_key,
788 p_parameters => l_list );
789
790 l_list.DELETE;
791
792 END IF;
793 EXCEPTION
794 WHEN OTHERS THEN
795 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
796 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
797 FND_MSG_PUB.ADD;
798 ROLLBACK TO update_party_site_use_event;
799
800 END update_party_site_use_event;
801
802 -- HZ_PARTY_CONTACT_V2PUB
803
804 PROCEDURE create_org_contact_event (
805 p_org_contact_rec IN HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_REC_TYPE
806
807 ) IS
808
809 l_list WF_PARAMETER_LIST_T;
810 l_param WF_PARAMETER_T;
811 l_key VARCHAR2(240);
812 l_exist VARCHAR2(1);
813 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.OrgContact.create';
814
815 BEGIN
816 SAVEPOINT create_org_contact_event;
817 -- Raise Event ONLY if profile is set to 'Y'.
818 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
819 -- delete from HZ_PARAMS exists.
820
821 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
822
823 -- commenting the following line(s) as part of bug4369710 fix
824 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
825
826 --Get the item key
827 l_key := HZ_EVENT_PKG.item_key( l_event_name );
828
829 -- commenting the following line(s) as part of bug4369710 fix
830 /* IF l_exist = 'Y' THEN
831 --Set Parameter
832 HZ_PARAM_PKG.SetParameter( l_key, p_org_contact_rec, 'NEW' );
833 END IF;
834 */
835 -- initialization of object variables
836 l_list := WF_PARAMETER_LIST_T();
837
838 -- Add Context values to the list
839 hz_event_pkg.AddParamEnvToList(l_list);
840 l_param := WF_PARAMETER_T( NULL, NULL );
841
842
843 -- fill the parameters list
844 l_list.extend;
845 l_param.SetName( 'ORG_CONTACT_ID' );
846 l_param.SetValue( p_org_contact_rec.org_contact_id );
847 l_list(l_list.last) := l_param;
848
849 -- Raise Event
850 HZ_EVENT_PKG.raise_event(
851 p_event_name => l_event_name,
852 p_event_key => l_key,
853 p_parameters => l_list );
854
855 l_list.DELETE;
856
857 END IF;
858 EXCEPTION
859 WHEN OTHERS THEN
860 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
861 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
862 FND_MSG_PUB.ADD;
863 ROLLBACK TO create_org_contact_event;
864
865 END create_org_contact_event;
866
867 PROCEDURE update_org_contact_event (
868 p_org_contact_rec IN HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_REC_TYPE,
869 p_old_org_contact_rec IN HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_REC_TYPE
870 ) IS
871
872 l_list WF_PARAMETER_LIST_T;
873 l_param WF_PARAMETER_T;
874 l_key VARCHAR2(240);
875 l_exist VARCHAR2(1);
876 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.OrgContact.update';
877
878 BEGIN
879 SAVEPOINT update_org_contact_event;
880 -- Raise Event ONLY if profile is set to 'Y'.
881 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
882 -- delete from HZ_PARAMS exists.
883
884 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
885
886 -- commenting the following line(s) as part of bug4369710 fix
887 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
888
889 --Get the item key
890 l_key := HZ_EVENT_PKG.item_key( l_event_name );
891
892 -- commenting the following line(s) as part of bug4369710 fix
893 /*
894 IF l_exist = 'Y' THEN
895
896 --Set Parameter
897 HZ_PARAM_PKG.SetParameter( l_key, p_org_contact_rec, 'NEW' );
898 HZ_PARAM_PKG.SetParameter( l_key, p_old_org_contact_rec, 'OLD' );
899 END IF;
900 */
901
902 -- initialization of object variables
903 l_list := WF_PARAMETER_LIST_T();
904
905 -- Add Context values to the list
906 hz_event_pkg.AddParamEnvToList(l_list);
907 l_param := WF_PARAMETER_T( NULL, NULL );
908
912 l_param.SetName( 'ORG_CONTACT_ID' );
909
910 -- fill the parameters list
911 l_list.extend;
913 l_param.SetValue( p_org_contact_rec.org_contact_id );
914 l_list(l_list.last) := l_param;
915
916 -- Raise Event
917 HZ_EVENT_PKG.raise_event(
918 p_event_name => l_event_name,
919 p_event_key => l_key,
920 p_parameters => l_list );
921
922 l_list.DELETE;
923
924 END IF;
925 EXCEPTION
926 WHEN OTHERS THEN
927 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
928 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
929 FND_MSG_PUB.ADD;
930 ROLLBACK TO update_org_contact_event;
931
932 END update_org_contact_event;
933
934 PROCEDURE create_org_contact_role_event (
935 p_org_contact_role_rec IN HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_ROLE_REC_TYPE
936 ) IS
937
938 l_list WF_PARAMETER_LIST_T;
939 l_param WF_PARAMETER_T;
940 l_key VARCHAR2(240);
941 l_exist VARCHAR2(1);
942 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.OrgContactRole.create';
943
944 BEGIN
945 SAVEPOINT create_org_contact_role_event;
946 -- Raise Event ONLY if profile is set to 'Y'.
947 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
948 -- delete from HZ_PARAMS exists.
949
950 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
951
952 -- commenting the following line(s) as part of bug4369710 fix
953 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
954
955 --Get the item key
956 l_key := HZ_EVENT_PKG.item_key( l_event_name );
957
958 -- commenting the following line(s) as part of bug4369710 fix
959 /*
960 IF l_exist = 'Y' THEN
961 --Set Parameter
962 HZ_PARAM_PKG.SetParameter( l_key, p_org_contact_role_rec, 'NEW' );
963 END IF;
964 */
965 -- initialization of object variables
966 l_list := WF_PARAMETER_LIST_T();
967
968 -- Add Context values to the list
969 hz_event_pkg.AddParamEnvToList(l_list);
970 l_param := WF_PARAMETER_T( NULL, NULL );
971
972
973 -- fill the parameters list
974 l_list.extend;
975 l_param.SetName( 'ORG_CONTACT_ROLE_ID' );
976 l_param.SetValue( p_org_contact_role_rec.org_contact_role_id );
977 l_list(l_list.last) := l_param;
978
979 -- Raise Event
980 HZ_EVENT_PKG.raise_event(
981 p_event_name => l_event_name,
982 p_event_key => l_key,
983 p_parameters => l_list );
984
985 l_list.DELETE;
986
987 END IF;
988 EXCEPTION
989 WHEN OTHERS THEN
990 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
991 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
992 FND_MSG_PUB.ADD;
993 ROLLBACK TO create_org_contact_role_event;
994
995 END create_org_contact_role_event;
996
997 PROCEDURE update_org_contact_role_event (
998 p_org_contact_role_rec IN HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_ROLE_REC_TYPE,
999 p_old_org_contact_role_rec IN HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_ROLE_REC_TYPE
1000 ) IS
1001
1002 l_list WF_PARAMETER_LIST_T;
1003 l_param WF_PARAMETER_T;
1004 l_key VARCHAR2(240);
1005 l_exist VARCHAR2(1);
1006 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.OrgContactRole.update';
1007
1008 BEGIN
1009 SAVEPOINT update_org_contact_role_event;
1010 -- Raise Event ONLY if profile is set to 'Y'.
1011 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
1012 -- delete from HZ_PARAMS exists.
1013
1014 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
1015
1016 -- commenting the following line(s) as part of bug4369710 fix
1017 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
1018
1019 --Get the item key
1020 l_key := HZ_EVENT_PKG.item_key( l_event_name );
1021
1022 -- commenting the following line(s) as part of bug4369710 fix
1023 /*
1024 IF l_exist = 'Y' THEN
1025
1026 --Set Parameter
1027 HZ_PARAM_PKG.SetParameter( l_key, p_org_contact_role_rec, 'NEW' );
1028 HZ_PARAM_PKG.SetParameter( l_key, p_old_org_contact_role_rec, 'OLD');
1029 END IF;
1030 */
1031 -- initialization of object variables
1032 l_list := WF_PARAMETER_LIST_T();
1033
1034 -- Add Context values to the list
1035 hz_event_pkg.AddParamEnvToList(l_list);
1036 l_param := WF_PARAMETER_T( NULL, NULL );
1037
1038
1039 -- fill the parameters list
1040 l_list.extend;
1041 l_param.SetName( 'ORG_CONTACT_ROLE_ID' );
1042 l_param.SetValue( p_org_contact_role_rec.org_contact_role_id );
1043 l_list(l_list.last) := l_param;
1044
1048 p_event_key => l_key,
1045 -- Raise Event
1046 HZ_EVENT_PKG.raise_event(
1047 p_event_name => l_event_name,
1049 p_parameters => l_list );
1050
1051 l_list.DELETE;
1052
1053 END IF;
1054 EXCEPTION
1055 WHEN OTHERS THEN
1056 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1057 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1058 FND_MSG_PUB.ADD;
1059 ROLLBACK TO update_org_contact_role_event;
1060
1061 END update_org_contact_role_event;
1062
1063 --HZ_LOCATION_V2PUB
1064
1065 PROCEDURE create_location_event (
1066 p_location_rec IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE
1067 ) IS
1068
1069 l_list WF_PARAMETER_LIST_T;
1070 l_param WF_PARAMETER_T;
1071 l_key VARCHAR2(240);
1072 l_exist VARCHAR2(1);
1073 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.Location.create';
1074
1075 BEGIN
1076 SAVEPOINT create_location_event;
1077 -- Raise Event ONLY if profile is set to 'Y'.
1078 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
1079 -- delete from HZ_PARAMS exists.
1080
1081 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
1082
1083 -- commenting the following line(s) as part of bug4369710 fix
1084 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
1085
1086 --Get the item key
1087 l_key := HZ_EVENT_PKG.item_key( l_event_name );
1088
1089 -- commenting the following line(s) as part of bug4369710 fix
1090 /*
1091 IF l_exist = 'Y' THEN
1092 --Set Parameter
1093 HZ_PARAM_PKG.SetParameter( l_key, p_location_rec, 'NEW' );
1094 END IF;
1095 */
1096 -- initialization of object variables
1097 l_list := WF_PARAMETER_LIST_T();
1098
1099 -- Add Context values to the list
1100 hz_event_pkg.AddParamEnvToList(l_list);
1101 l_param := WF_PARAMETER_T( NULL, NULL );
1102
1103
1104 -- fill the parameters list
1105 l_list.extend;
1106 l_param.SetName( 'LOCATION_ID' );
1107 l_param.SetValue( p_location_rec.location_id );
1108 l_list(l_list.last) := l_param;
1109
1110 -- Raise Event
1111 HZ_EVENT_PKG.raise_event(
1112 p_event_name => l_event_name,
1113 p_event_key => l_key,
1114 p_parameters => l_list );
1115
1116 l_list.DELETE;
1117
1118 END IF;
1119 EXCEPTION
1120 WHEN OTHERS THEN
1121 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1122 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1123 FND_MSG_PUB.ADD;
1124 ROLLBACK TO create_location_event;
1125
1126 END create_location_event;
1127
1128 PROCEDURE update_location_event (
1129 p_location_rec IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
1130 p_old_location_rec IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE
1131 ) IS
1132
1133 l_list WF_PARAMETER_LIST_T;
1134 l_param WF_PARAMETER_T;
1135 l_key VARCHAR2(240);
1136 l_exist VARCHAR2(1);
1137 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.Location.update';
1138
1139 BEGIN
1140 SAVEPOINT update_location_event;
1141 -- Raise Event ONLY if profile is set to 'Y'.
1142 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
1143 -- delete from HZ_PARAMS exists.
1144
1145
1146 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
1147
1148 -- commenting the following line(s) as part of bug4369710 fix
1149 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
1150
1151 --Get the item key
1152 l_key := HZ_EVENT_PKG.item_key( l_event_name );
1153
1154 -- commenting the following line(s) as part of bug4369710 fix
1155 /*
1156 IF l_exist = 'Y' THEN
1157
1158 --Set Parameter
1159 HZ_PARAM_PKG.SetParameter( l_key, p_location_rec, 'NEW' );
1160 HZ_PARAM_PKG.SetParameter( l_key, p_old_location_rec, 'OLD' );
1161 END IF;
1162 */
1163 -- initialization of object variables
1164 l_list := WF_PARAMETER_LIST_T();
1165
1166 -- Add Context values to the list
1167 hz_event_pkg.AddParamEnvToList(l_list);
1168 l_param := WF_PARAMETER_T( NULL, NULL );
1169
1170
1171 -- fill the parameters list
1172 l_list.extend;
1173 l_param.SetName( 'LOCATION_ID' );
1174 l_param.SetValue( p_location_rec.location_id );
1175 l_list(l_list.last) := l_param;
1176
1177 -- Raise Event
1178 HZ_EVENT_PKG.raise_event(
1179 p_event_name => l_event_name,
1180 p_event_key => l_key,
1181 p_parameters => l_list );
1182
1183 l_list.DELETE;
1184
1185 END IF;
1186 EXCEPTION
1187 WHEN OTHERS THEN
1191 ROLLBACK TO update_location_event;
1188 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1189 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1190 FND_MSG_PUB.ADD;
1192
1193 END update_location_event;
1194
1195 -- HZ_CONTACT_POINT_V2PUB
1196
1197
1198 -- MODIFICATION HISTORY:
1199 -- 19-NOV-2001 Joe del Callar Bug 2116225: Added support for bank
1200 -- consolidation - param p_eft_rec.
1201 PROCEDURE create_contact_point_event (
1202 p_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
1203 p_edi_rec IN hz_contact_point_v2pub.edi_rec_type,
1204 p_eft_rec IN hz_contact_point_v2pub.eft_rec_type,
1205 p_email_rec IN hz_contact_point_v2pub.email_rec_type,
1206 p_phone_rec IN hz_contact_point_v2pub.phone_rec_type,
1207 p_telex_rec IN hz_contact_point_v2pub.telex_rec_type,
1208 p_web_rec IN hz_contact_point_v2pub.web_rec_type
1209 ) IS
1210
1211 l_list WF_PARAMETER_LIST_T;
1212 l_param WF_PARAMETER_T;
1213 l_key VARCHAR2(240);
1214 l_exist VARCHAR2(1);
1215 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.ContactPoint.create';
1216
1217 BEGIN
1218 SAVEPOINT create_contact_point_event;
1219 -- Raise Event ONLY if profile is set to 'Y'.
1220 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
1221 -- delete from HZ_PARAMS exists.
1222
1223
1224 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
1225
1226 -- commenting the following line(s) as part of bug4369710 fix
1227 -- l_exist := hz_event_pkg.exist_subscription( l_event_name );
1228
1229 --Get the item key
1230 l_key := hz_event_pkg.item_key( l_event_name );
1231
1232 -- commenting the following line(s) as part of bug4369710 fix
1233 /*
1234 IF l_exist = 'Y' THEN
1235 --Set Parameter
1236 hz_param_pkg.setparameter( l_key, p_contact_point_rec, 'NEW' );
1237 hz_param_pkg.setparameter( l_key, p_edi_rec, 'NEW' );
1238 hz_param_pkg.setparameter( l_key, p_email_rec, 'NEW' );
1239 hz_param_pkg.setparameter( l_key, p_phone_rec, 'NEW' );
1240 hz_param_pkg.setparameter( l_key, p_telex_rec, 'NEW' );
1241 hz_param_pkg.setparameter( l_key, p_web_rec, 'NEW' );
1242 hz_param_pkg.setparameter( l_key, p_eft_rec, 'NEW' );
1243 END IF;
1244 */
1245 -- initialization of object variables
1246 l_list := WF_PARAMETER_LIST_T();
1247
1248 -- Add Context values to the list
1249 hz_event_pkg.addparamenvtolist(l_list);
1250 l_param := WF_PARAMETER_T( NULL, NULL );
1251
1252
1253 -- fill the parameters list
1254 l_list.extend;
1255 l_param.setname( 'CONTACT_POINT_ID' );
1256 l_param.setvalue( p_contact_point_rec.contact_point_id );
1257 l_list(l_list.last) := l_param;
1258
1259 -- Raise Event
1260 hz_event_pkg.raise_event(
1261 p_event_name => l_event_name,
1262 p_event_key => l_key,
1263 p_parameters => l_list );
1264
1265 l_list.delete;
1266
1267 END IF;
1268 EXCEPTION
1269 WHEN OTHERS THEN
1270 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1271 fnd_message.set_token('ERROR', SQLERRM);
1272 fnd_msg_pub.add;
1273 ROLLBACK TO create_contact_point_event;
1274 END create_contact_point_event;
1275
1276
1277 -- MODIFICATION HISTORY:
1278 -- 19-NOV-2001 Joe del Callar Bug 2116225: Added support for bank
1279 -- consolidation - params p_eft_rec and
1280 -- p_old_eft_rec.
1281 PROCEDURE update_contact_point_event (
1282 p_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
1283 p_old_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
1284 p_edi_rec IN hz_contact_point_v2pub.edi_rec_type,
1285 p_old_edi_rec IN hz_contact_point_v2pub.edi_rec_type,
1286 p_eft_rec IN hz_contact_point_v2pub.eft_rec_type,
1287 p_old_eft_rec IN hz_contact_point_v2pub.eft_rec_type,
1288 p_email_rec IN hz_contact_point_v2pub.email_rec_type,
1289 p_old_email_rec IN hz_contact_point_v2pub.email_rec_type,
1290 p_phone_rec IN hz_contact_point_v2pub.phone_rec_type,
1291 p_old_phone_rec IN hz_contact_point_v2pub.phone_rec_type,
1292 p_telex_rec IN hz_contact_point_v2pub.telex_rec_type,
1293 p_old_telex_rec IN hz_contact_point_v2pub.telex_rec_type,
1294 p_web_rec IN hz_contact_point_v2pub.web_rec_type,
1295 p_old_web_rec IN hz_contact_point_v2pub.web_rec_type
1296 ) IS
1297
1298 l_list WF_PARAMETER_LIST_T;
1299 l_param WF_PARAMETER_T;
1300 l_key VARCHAR2(240);
1301 l_exist VARCHAR2(1);
1302 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.ContactPoint.update';
1303
1304 BEGIN
1305 SAVEPOINT update_contact_point_event;
1306 -- Raise Event ONLY if profile is set to 'Y'.
1307 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
1311 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
1308 -- delete from HZ_PARAMS exists.
1309
1310
1312
1313 -- commenting the following line(s) as part of bug4369710 fix
1314 --l_exist := hz_event_pkg.exist_subscription( l_event_name );
1315
1316 --Get the item key
1317 l_key := hz_event_pkg.item_key( l_event_name );
1318
1319 -- commenting the following line(s) as part of bug4369710 fix
1320 /*
1321 IF l_exist = 'Y' THEN
1322
1323 --Set Parameter
1324 hz_param_pkg.setparameter( l_key, p_contact_point_rec, 'NEW' );
1325 hz_param_pkg.setparameter( l_key, p_edi_rec, 'NEW' );
1326 hz_param_pkg.setparameter( l_key, p_email_rec, 'NEW' );
1327 hz_param_pkg.setparameter( l_key, p_phone_rec, 'NEW' );
1328 hz_param_pkg.setparameter( l_key, p_telex_rec, 'NEW' );
1329 hz_param_pkg.setparameter( l_key, p_web_rec, 'NEW' );
1330 hz_param_pkg.setparameter( l_key, p_eft_rec, 'NEW' );
1331 hz_param_pkg.setparameter( l_key, p_old_contact_point_rec, 'OLD' );
1332 hz_param_pkg.setparameter( l_key, p_old_edi_rec, 'OLD' );
1333 hz_param_pkg.setparameter( l_key, p_old_email_rec, 'OLD' );
1334 hz_param_pkg.setparameter( l_key, p_old_phone_rec, 'OLD' );
1335 hz_param_pkg.setparameter( l_key, p_old_telex_rec, 'OLD' );
1336 hz_param_pkg.setparameter( l_key, p_old_web_rec, 'OLD' );
1337 hz_param_pkg.setparameter( l_key, p_old_eft_rec, 'OLD' );
1338 END IF;
1339 */
1340 -- initialization of object variables
1341 l_list := WF_PARAMETER_LIST_T();
1342
1343 -- Add Context values to the list
1344 hz_event_pkg.addparamenvtolist(l_list);
1345 l_param := WF_PARAMETER_T( NULL, NULL );
1346
1347
1348 -- fill the parameters list
1349 l_list.extend;
1350 l_param.setname( 'CONTACT_POINT_ID' );
1351 l_param.setvalue( p_contact_point_rec.contact_point_id );
1352 l_list(l_list.last) := l_param;
1353
1354 -- Raise Event
1355 hz_event_pkg.raise_event(
1356 p_event_name => l_event_name,
1357 p_event_key => l_key,
1358 p_parameters => l_list );
1359
1360 l_list.delete;
1361
1362 END IF;
1363 EXCEPTION
1364 WHEN OTHERS THEN
1365 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1366 fnd_message.set_token('ERROR', SQLERRM);
1367 fnd_msg_pub.add;
1368 ROLLBACK TO update_contact_point_event;
1369 END update_contact_point_event;
1370
1371 -- HZ_CONTACT_PREFERENCE_V2PUB
1372
1373 PROCEDURE create_contact_prefer_event (
1374 p_contact_preference_rec IN HZ_CONTACT_PREFERENCE_V2PUB.CONTACT_PREFERENCE_REC_TYPE
1375 ) IS
1376
1377 l_list WF_PARAMETER_LIST_T;
1378 l_param WF_PARAMETER_T;
1379 l_key VARCHAR2(240);
1380 l_exist VARCHAR2(1);
1381 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.ContactPreference.create';
1382
1383 BEGIN
1384 SAVEPOINT create_contact_prefer_event;
1385 -- Raise Event ONLY if profile is set to 'Y'.
1386 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
1387 -- delete from HZ_PARAMS exists.
1388
1389
1390 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
1391
1392 -- commenting the following line(s) as part of bug4369710 fix
1393 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
1394
1395 --Get the item key
1396 l_key := HZ_EVENT_PKG.item_key( l_event_name );
1397
1398 -- commenting the following line(s) as part of bug4369710 fix
1399 /*
1400 IF l_exist = 'Y' THEN
1401 --Set Parameter
1402 hz_param_pkg.setparameter( l_key, p_contact_preference_rec, 'NEW' );
1403 END IF;
1404 */
1405 -- initialization of object variables
1406 l_list := WF_PARAMETER_LIST_T();
1407
1408 hz_event_pkg.AddParamEnvToList(l_list);
1409 l_param := WF_PARAMETER_T( NULL, NULL );
1410
1411 -- fill the parameters list
1412 l_list.extend;
1413 l_param.SetName( 'CONTACT_PREFERENCE_ID' );
1414 l_param.SetValue( p_contact_preference_rec.contact_preference_id );
1415 l_list(l_list.last) := l_param;
1416
1417 -- Raise Event
1418 HZ_EVENT_PKG.raise_event(
1419 p_event_name => l_event_name,
1420 p_event_key => l_key,
1421 p_parameters => l_list );
1422
1423 l_list.DELETE;
1424
1425 END IF;
1426 EXCEPTION
1427 WHEN OTHERS THEN
1428 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1429 fnd_message.set_token('ERROR' ,SQLERRM);
1430 fnd_msg_pub.add;
1431 ROLLBACK TO create_contact_prefer_event;
1432
1433 END create_contact_prefer_event;
1434
1435 PROCEDURE update_contact_prefer_event (
1436 p_contact_preference_rec IN HZ_CONTACT_PREFERENCE_V2PUB.CONTACT_PREFERENCE_REC_TYPE,
1437 p_old_contact_preference_rec IN HZ_CONTACT_PREFERENCE_V2PUB.CONTACT_PREFERENCE_REC_TYPE
1438 ) IS
1439
1443 l_exist VARCHAR2(1);
1440 l_list WF_PARAMETER_LIST_T;
1441 l_param WF_PARAMETER_T;
1442 l_key VARCHAR2(240);
1444 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.ContactPreference.update';
1445
1446 BEGIN
1447 SAVEPOINT update_contact_prefer_event;
1448 -- Raise Event ONLY if profile is set to 'Y'.
1449 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
1450 -- delete from HZ_PARAMS exists.
1451
1452
1453 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
1454
1455 -- commenting the following line(s) as part of bug4369710 fix
1456 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
1457
1458 --Get the item key
1459 l_key := HZ_EVENT_PKG.item_key( l_event_name );
1460
1461 -- commenting the following line(s) as part of bug4369710 fix
1462 /*
1463 IF l_exist = 'Y' THEN
1464
1465 --Set Parameter
1466 hz_param_pkg.setparameter( l_key, p_contact_preference_rec, 'NEW' );
1467 hz_param_pkg.setparameter( l_key, p_old_contact_preference_rec, 'OLD' );
1468 END IF;
1469 */
1470 -- initialization of object variables
1471 l_list := WF_PARAMETER_LIST_T();
1472
1473 -- Add Context values to the list
1474 hz_event_pkg.AddParamEnvToList(l_list);
1475 l_param := WF_PARAMETER_T( NULL, NULL );
1476
1477 -- fill the parameters list
1478 l_list.extend;
1479 l_param.SetName( 'CONTACT_PREFERENCE_ID' );
1480 l_param.SetValue( p_contact_preference_rec.contact_preference_id );
1481 l_list(l_list.last) := l_param;
1482
1483 -- Raise Event
1484 HZ_EVENT_PKG.raise_event(
1485 p_event_name => l_event_name,
1486 p_event_key => l_key,
1487 p_parameters => l_list );
1488
1489 l_list.DELETE;
1490
1491 END IF;
1492 EXCEPTION
1493 WHEN OTHERS THEN
1494 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1495 fnd_message.set_token('ERROR' ,SQLERRM);
1496 fnd_msg_pub.add;
1497 ROLLBACK TO update_contact_prefer_event;
1498
1499 END update_contact_prefer_event;
1500
1501 -- HZ_CUST_ACCOUNT_V2PUB
1502
1503 PROCEDURE create_cust_account_event (
1504 p_cust_account_rec IN HZ_CUST_ACCOUNT_V2PUB.CUST_ACCOUNT_REC_TYPE,
1505 p_person_rec IN HZ_PARTY_V2PUB.PERSON_REC_TYPE,
1506 p_customer_profile_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
1507 p_create_profile_amt IN VARCHAR2
1508 ) IS
1509
1510 l_list WF_PARAMETER_LIST_T;
1511 l_param WF_PARAMETER_T;
1512 l_key VARCHAR2(240);
1513 l_exist VARCHAR2(1);
1514 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CustAccount.create';
1515
1516 BEGIN
1517 SAVEPOINT create_cust_account_event;
1518 -- Raise Event ONLY if profile is set to 'Y'.
1519 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
1520 -- delete from HZ_PARAMS exists.
1521
1522
1523 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
1524
1525 -- commenting the following line(s) as part of bug4369710 fix
1526 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
1527
1528 --Get the item key
1529 l_key := HZ_EVENT_PKG.item_key( l_event_name );
1530
1531 -- commenting the following line(s) as part of bug4369710 fix
1532 /*
1533 IF l_exist = 'Y' THEN
1534 --Set Parameter
1535 hz_param_pkg.setparameter( l_key, p_cust_account_rec, 'NEW' );
1536 hz_param_pkg.setparameter( l_key, p_person_rec, 'NEW' );
1537 hz_param_pkg.setparameter( l_key, p_customer_profile_rec, 'NEW' );
1538 hz_param_pkg.setparameter( l_key, 'P_CREATE_PROFILE_AMT', p_create_profile_amt, 'NEW' );
1539 END IF;
1540 */
1541 -- initialization of object variables
1542 l_list := WF_PARAMETER_LIST_T();
1543
1544 -- Add Context values to the list
1545 hz_event_pkg.AddParamEnvToList(l_list);
1546 l_param := WF_PARAMETER_T( NULL, NULL );
1547
1548 -- fill the parameters list
1549 l_list.extend;
1550 l_param.SetName( 'CUST_ACCOUNT_ID' );
1551 l_param.SetValue( p_cust_account_rec.cust_account_id );
1552 l_list(l_list.last) := l_param;
1553
1554 l_list.extend;
1555 l_param.SetName( 'PARTY_ID' );
1556 l_param.SetValue( p_person_rec.party_rec.party_id );
1557 l_list(l_list.last) := l_param;
1558
1559 l_list.extend;
1560 l_param.SetName( 'CUST_ACCOUNT_PROFILE_ID' );
1561 l_param.SetValue( p_customer_profile_rec.cust_account_profile_id );
1562 l_list(l_list.last) := l_param;
1563
1564 l_list.extend;
1565 l_param.SetName( 'P_CREATE_PROFILE_AMT' );
1566 l_param.SetValue( p_create_profile_amt );
1567 l_list(l_list.last) := l_param;
1568
1572 p_event_key => l_key,
1569 -- Raise Event
1570 HZ_EVENT_PKG.raise_event(
1571 p_event_name => l_event_name,
1573 p_parameters => l_list );
1574
1575 l_list.DELETE;
1576
1577 END IF;
1578 EXCEPTION
1579 WHEN OTHERS THEN
1580 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1581 fnd_message.set_token('ERROR' ,SQLERRM);
1582 fnd_msg_pub.add;
1583 ROLLBACK TO create_cust_account_event;
1584
1585 END create_cust_account_event;
1586
1587 PROCEDURE create_cust_account_event (
1588 p_cust_account_rec IN HZ_CUST_ACCOUNT_V2PUB.CUST_ACCOUNT_REC_TYPE,
1589 p_organization_rec IN HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE,
1590 p_customer_profile_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
1591 p_create_profile_amt IN VARCHAR2
1592 ) IS
1593
1594 l_list WF_PARAMETER_LIST_T;
1595 l_param WF_PARAMETER_T;
1596 l_key VARCHAR2(240);
1597 l_exist VARCHAR2(1);
1598 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CustAccount.create';
1599
1600 BEGIN
1601 SAVEPOINT create_cust_account_event;
1602 -- Raise Event ONLY if profile is set to 'Y'.
1603 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
1604 -- delete from HZ_PARAMS exists.
1605
1606
1607 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
1608
1609 -- commenting the following line(s) as part of bug4369710 fix
1610 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
1611
1612 --Get the item key
1613 l_key := HZ_EVENT_PKG.item_key( l_event_name );
1614
1615 -- commenting the following line(s) as part of bug4369710 fix
1616 /*
1617 IF l_exist = 'Y' THEN
1618 --Set Parameter
1619 hz_param_pkg.setparameter( l_key, p_cust_account_rec, 'NEW' );
1620 hz_param_pkg.setparameter( l_key, p_organization_rec, 'NEW' );
1621 hz_param_pkg.setparameter( l_key, p_customer_profile_rec, 'NEW' );
1622 hz_param_pkg.setparameter( l_key, 'P_CREATE_PROFILE_AMT', p_create_profile_amt, 'NEW' );
1623 END IF;
1624 */
1625 -- initialization of object variables
1626 l_list := WF_PARAMETER_LIST_T();
1627
1628 -- Add Context values to the list
1629 hz_event_pkg.AddParamEnvToList(l_list);
1630 l_param := WF_PARAMETER_T( NULL, NULL );
1631
1632 -- fill the parameters list
1633 l_list.extend;
1634 l_param.SetName( 'CUST_ACCOUNT_ID' );
1635 l_param.SetValue( p_cust_account_rec.cust_account_id );
1636 l_list(l_list.last) := l_param;
1637
1638 l_list.extend;
1639 l_param.SetName( 'PARTY_ID' );
1640 l_param.SetValue( p_organization_rec.party_rec.party_id );
1641 l_list(l_list.last) := l_param;
1642
1643 l_list.extend;
1644 l_param.SetName( 'CUST_ACCOUNT_PROFILE_ID' );
1645 l_param.SetValue( p_customer_profile_rec.cust_account_profile_id );
1646 l_list(l_list.last) := l_param;
1647
1648 l_list.extend;
1649 l_param.SetName( 'P_CREATE_PROFILE_AMT' );
1650 l_param.SetValue( p_create_profile_amt );
1651 l_list(l_list.last) := l_param;
1652
1653 -- Raise Event
1654 HZ_EVENT_PKG.raise_event(
1655 p_event_name => l_event_name,
1656 p_event_key => l_key,
1657 p_parameters => l_list );
1658
1659 l_list.DELETE;
1660
1661 END IF;
1662 EXCEPTION
1663 WHEN OTHERS THEN
1664 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1665 fnd_message.set_token('ERROR' ,SQLERRM);
1666 fnd_msg_pub.add;
1667 ROLLBACK TO create_cust_account_event;
1668
1669 END create_cust_account_event;
1670
1671 PROCEDURE update_cust_account_event (
1672 p_cust_account_rec IN HZ_CUST_ACCOUNT_V2PUB.CUST_ACCOUNT_REC_TYPE,
1673 p_old_cust_account_rec IN HZ_CUST_ACCOUNT_V2PUB.CUST_ACCOUNT_REC_TYPE
1674 ) IS
1675
1676 l_list WF_PARAMETER_LIST_T;
1677 l_param WF_PARAMETER_T;
1678 l_key VARCHAR2(240);
1679 l_exist VARCHAR2(1);
1680 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CustAccount.update';
1681
1682 BEGIN
1683 SAVEPOINT update_cust_account_event;
1684 -- Raise Event ONLY if profile is set to 'Y'.
1685 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
1686 -- delete from HZ_PARAMS exists.
1687
1688
1689 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
1690
1691 -- commenting the following line(s) as part of bug4369710 fix
1692 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
1693
1694 --Get the item key
1695 l_key := HZ_EVENT_PKG.item_key( l_event_name );
1696
1697 -- commenting the following line(s) as part of bug4369710 fix
1698 /*
1699 IF l_exist = 'Y' THEN
1703 hz_param_pkg.setparameter( l_key, p_old_cust_account_rec, 'OLD' );
1700
1701 --Set Parameter
1702 hz_param_pkg.setparameter( l_key, p_cust_account_rec, 'NEW' );
1704 END IF;
1705 */
1706 -- initialization of object variables
1707 l_list := WF_PARAMETER_LIST_T();
1708
1709 -- Add Context values to the list
1710 hz_event_pkg.AddParamEnvToList(l_list);
1711 l_param := WF_PARAMETER_T( NULL, NULL );
1712
1713 -- fill the parameters list
1714 l_list.extend;
1715 l_param.SetName( 'CUST_ACCOUNT_ID' );
1716 l_param.SetValue( p_cust_account_rec.cust_account_id );
1717 l_list(l_list.last) := l_param;
1718
1719 -- Raise Event
1720 HZ_EVENT_PKG.raise_event(
1721 p_event_name => l_event_name,
1722 p_event_key => l_key,
1723 p_parameters => l_list );
1724
1725 l_list.DELETE;
1726
1727 END IF;
1728 EXCEPTION
1729 WHEN OTHERS THEN
1730 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1731 fnd_message.set_token('ERROR' ,SQLERRM);
1732 fnd_msg_pub.add;
1733 ROLLBACK TO update_cust_account_event;
1734
1735 END update_cust_account_event;
1736
1737 PROCEDURE create_cust_acct_relate_event (
1738 p_cust_acct_relate_rec IN HZ_CUST_ACCOUNT_V2PUB.CUST_ACCT_RELATE_REC_TYPE
1739 ) IS
1740
1741 l_list WF_PARAMETER_LIST_T;
1742 l_param WF_PARAMETER_T;
1743 l_key VARCHAR2(240);
1744 l_exist VARCHAR2(1);
1745 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CustAcctRelate.create';
1746
1747 BEGIN
1748 SAVEPOINT create_cust_acct_relate_event;
1749 -- Raise Event ONLY if profile is set to 'Y'.
1750 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
1751 -- delete from HZ_PARAMS exists.
1752
1753 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
1754
1755 -- commenting the following line(s) as part of bug4369710 fix
1756 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
1757
1758 --Get the item key
1759 l_key := HZ_EVENT_PKG.item_key( l_event_name );
1760
1761 -- commenting the following line(s) as part of bug4369710 fix
1762 /*
1763 IF l_exist = 'Y' THEN
1764 --Set Parameter
1765 hz_param_pkg.setparameter( l_key, p_cust_acct_relate_rec, 'NEW' );
1766 END IF;
1767 */
1768 -- initialization of object variables
1769 l_list := WF_PARAMETER_LIST_T();
1770
1771 -- Add Context values to the list
1772 /* 3456489. Added org_id as a parameter. */
1773 hz_event_pkg.AddParamEnvToList(x_list => l_list,
1774 p_org_id => p_cust_acct_relate_rec.org_id);
1775 l_param := WF_PARAMETER_T( NULL, NULL );
1776
1777 -- fill the parameters list
1778 l_list.extend;
1779 l_param.SetName( 'CUST_ACCOUNT_ID' );
1780 l_param.SetValue( p_cust_acct_relate_rec.cust_account_id );
1781 l_list(l_list.last) := l_param;
1782
1783 l_list.extend;
1784 l_param.SetName( 'RELATED_CUST_ACCOUNT_ID' );
1785 l_param.SetValue( p_cust_acct_relate_rec.related_cust_account_id );
1786 l_list(l_list.last) := l_param;
1787
1788 -- Raise Event
1789 HZ_EVENT_PKG.raise_event(
1790 p_event_name => l_event_name,
1791 p_event_key => l_key,
1792 p_parameters => l_list );
1793
1794 l_list.DELETE;
1795
1796 END IF;
1797 EXCEPTION
1798 WHEN OTHERS THEN
1799 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1800 fnd_message.set_token('ERROR' ,SQLERRM);
1801 fnd_msg_pub.add;
1802 ROLLBACK TO create_cust_acct_relate_event;
1803
1804 END create_cust_acct_relate_event;
1805
1806 PROCEDURE update_cust_acct_relate_event (
1807 p_cust_acct_relate_rec IN HZ_CUST_ACCOUNT_V2PUB.CUST_ACCT_RELATE_REC_TYPE,
1808 p_old_cust_acct_relate_rec IN HZ_CUST_ACCOUNT_V2PUB.CUST_ACCT_RELATE_REC_TYPE
1809 ) IS
1810
1811 l_list WF_PARAMETER_LIST_T;
1812 l_param WF_PARAMETER_T;
1813 l_key VARCHAR2(240);
1814 l_exist VARCHAR2(1);
1815 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CustAcctRelate.update';
1816
1817 BEGIN
1818 SAVEPOINT update_cust_acct_relate_event;
1819 -- Raise Event ONLY if profile is set to 'Y'.
1820 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
1821 -- delete from HZ_PARAMS exists.
1822
1823
1824 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
1825
1826 -- commenting the following line(s) as part of bug4369710 fix
1827 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
1828
1829 --Get the item key
1830 l_key := HZ_EVENT_PKG.item_key( l_event_name );
1831
1832 -- commenting the following line(s) as part of bug4369710 fix
1833 /*
1834 IF l_exist = 'Y' THEN
1835
1839 END IF;
1836 --Set Parameter
1837 hz_param_pkg.setparameter( l_key, p_cust_acct_relate_rec, 'NEW' );
1838 hz_param_pkg.setparameter( l_key, p_old_cust_acct_relate_rec, 'OLD' );
1840 */
1841 -- initialization of object variables
1842 l_list := WF_PARAMETER_LIST_T();
1843
1844 -- Add Context values to the list
1845 /* 3456489. Added org_id as a parameter. */
1846 hz_event_pkg.AddParamEnvToList(x_list => l_list,
1847 p_org_id => p_cust_acct_relate_rec.org_id);
1848 l_param := WF_PARAMETER_T( NULL, NULL );
1849
1850 -- fill the parameters list
1851 l_list.extend;
1852 l_param.SetName( 'CUST_ACCOUNT_ID' );
1853 l_param.SetValue( p_cust_acct_relate_rec.cust_account_id );
1854 l_list(l_list.last) := l_param;
1855
1856 l_list.extend;
1857 l_param.SetName( 'RELATED_CUST_ACCOUNT_ID' );
1858 l_param.SetValue( p_cust_acct_relate_rec.related_cust_account_id );
1859 l_list(l_list.last) := l_param;
1860
1861 -- Raise Event
1862 HZ_EVENT_PKG.raise_event(
1863 p_event_name => l_event_name,
1864 p_event_key => l_key,
1865 p_parameters => l_list );
1866
1867 l_list.DELETE;
1868
1869 END IF;
1870 EXCEPTION
1871 WHEN OTHERS THEN
1872 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1873 fnd_message.set_token('ERROR' ,SQLERRM);
1874 fnd_msg_pub.add;
1875 ROLLBACK TO update_cust_acct_relate_event;
1876
1877 END update_cust_acct_relate_event;
1878
1879 -- HZ_CUSTOMER_PROFILE_V2PUB
1880
1881 PROCEDURE create_customer_profile_event (
1882 p_customer_profile_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
1883 p_create_profile_amt IN VARCHAR2
1884 ) IS
1885
1886 l_list WF_PARAMETER_LIST_T;
1887 l_param WF_PARAMETER_T;
1888 l_key VARCHAR2(240);
1889 l_exist VARCHAR2(1);
1890 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CustomerProfile.create';
1891
1892 BEGIN
1893 SAVEPOINT create_customer_profile_event;
1894 -- Raise Event ONLY if profile is set to 'Y'.
1895 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
1896 -- delete from HZ_PARAMS exists.
1897
1898
1899 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
1900
1901 -- commenting the following line(s) as part of bug4369710 fix
1902 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
1903
1904 --Get the item key
1905 l_key := HZ_EVENT_PKG.item_key( l_event_name );
1906
1907 -- commenting the following line(s) as part of bug4369710 fix
1908 /*
1909 IF l_exist = 'Y' THEN
1910 --Set Parameter
1911 hz_param_pkg.setparameter( l_key, p_customer_profile_rec, 'NEW' );
1912 hz_param_pkg.setparameter( l_key, 'P_CREATE_PROFILE_AMT', p_create_profile_amt, 'NEW' );
1913 END IF;
1914 */
1915 -- initialization of object variables
1916 l_list := WF_PARAMETER_LIST_T();
1917
1918 -- Add Context values to the list
1919 hz_event_pkg.AddParamEnvToList(l_list);
1920 l_param := WF_PARAMETER_T( NULL, NULL );
1921
1922 -- fill the parameters list
1923 l_list.extend;
1924 l_param.SetName( 'CUST_ACCOUNT_PROFILE_ID' );
1925 l_param.SetValue( p_customer_profile_rec.cust_account_profile_id );
1926 l_list(l_list.last) := l_param;
1927
1928 l_list.extend;
1929 l_param.SetName( 'P_CREATE_PROFILE_AMT' );
1930 l_param.SetValue( p_create_profile_amt );
1931 l_list(l_list.last) := l_param;
1932
1933 -- Raise Event
1934 HZ_EVENT_PKG.raise_event(
1935 p_event_name => l_event_name,
1936 p_event_key => l_key,
1937 p_parameters => l_list );
1938
1939 l_list.DELETE;
1940
1941 END IF;
1942 EXCEPTION
1943 WHEN OTHERS THEN
1944 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1945 fnd_message.set_token('ERROR' ,SQLERRM);
1946 fnd_msg_pub.add;
1947 ROLLBACK TO create_customer_profile_event;
1948
1949 END create_customer_profile_event;
1950
1951 PROCEDURE update_customer_profile_event (
1952 p_customer_profile_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
1953 p_old_customer_profile_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE
1954 ) IS
1955
1956 l_list WF_PARAMETER_LIST_T;
1957 l_param WF_PARAMETER_T;
1958 l_key VARCHAR2(240);
1959 l_exist VARCHAR2(1);
1960 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CustomerProfile.update';
1961
1962 BEGIN
1963 SAVEPOINT update_customer_profile_event;
1964 -- Raise Event ONLY if profile is set to 'Y'.
1965 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
1966 -- delete from HZ_PARAMS exists.
1967
1971 -- commenting the following line(s) as part of bug4369710 fix
1968
1969 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
1970
1972 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
1973
1974 --Get the item key
1975 l_key := HZ_EVENT_PKG.item_key( l_event_name );
1976
1977 -- commenting the following line(s) as part of bug4369710 fix
1978 /*
1979 IF l_exist = 'Y' THEN
1980
1981 --Set Parameter
1982 hz_param_pkg.setparameter( l_key, p_customer_profile_rec, 'NEW' );
1983 hz_param_pkg.setparameter( l_key, p_old_customer_profile_rec, 'OLD' );
1984 END IF;
1985 */
1986 -- initialization of object variables
1987 l_list := WF_PARAMETER_LIST_T();
1988
1989 -- Add Context values to the list
1990 hz_event_pkg.AddParamEnvToList(l_list);
1991 l_param := WF_PARAMETER_T( NULL, NULL );
1992
1993 -- fill the parameters list
1994 l_list.extend;
1995 l_param.SetName( 'CUST_ACCOUNT_PROFILE_ID' );
1996 l_param.SetValue( p_customer_profile_rec.cust_account_profile_id );
1997 l_list(l_list.last) := l_param;
1998
1999 -- Raise Event
2000 HZ_EVENT_PKG.raise_event(
2001 p_event_name => l_event_name,
2002 p_event_key => l_key,
2003 p_parameters => l_list );
2004
2005 l_list.DELETE;
2006
2007 END IF;
2008 EXCEPTION
2009 WHEN OTHERS THEN
2010 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2011 fnd_message.set_token('ERROR' ,SQLERRM);
2012 fnd_msg_pub.add;
2013 ROLLBACK TO update_customer_profile_event;
2014
2015 END update_customer_profile_event;
2016
2017 PROCEDURE create_cust_profile_amt_event (
2018 p_cust_profile_amt_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUST_PROFILE_AMT_REC_TYPE
2019 ) IS
2020
2021 l_list WF_PARAMETER_LIST_T;
2022 l_param WF_PARAMETER_T;
2023 l_key VARCHAR2(240);
2024 l_exist VARCHAR2(1);
2025 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CustProfileAmt.create';
2026
2027 BEGIN
2028 SAVEPOINT create_cust_profile_amt_event;
2029 -- Raise Event ONLY if profile is set to 'Y'.
2030 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
2031 -- delete from HZ_PARAMS exists.
2032
2033
2034 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
2035
2036 -- commenting the following line(s) as part of bug4369710 fix
2037 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
2038
2039 --Get the item key
2040 l_key := HZ_EVENT_PKG.item_key( l_event_name );
2041
2042 -- commenting the following line(s) as part of bug4369710 fix
2043 /*
2044 IF l_exist = 'Y' THEN
2045 --Set Parameter
2046 hz_param_pkg.setparameter( l_key, p_cust_profile_amt_rec, 'NEW' );
2047 END IF;
2048 */
2049 -- initialization of object variables
2050 l_list := WF_PARAMETER_LIST_T();
2051
2052 -- Add Context values to the list
2053 hz_event_pkg.AddParamEnvToList(l_list);
2054 l_param := WF_PARAMETER_T( NULL, NULL );
2055
2056 -- fill the parameters list
2057 l_list.extend;
2058 l_param.SetName( 'CUST_ACCT_PROFILE_AMT_ID' );
2059 l_param.SetValue( p_cust_profile_amt_rec.cust_acct_profile_amt_id );
2060 l_list(l_list.last) := l_param;
2061
2062 -- Raise Event
2063 HZ_EVENT_PKG.raise_event(
2064 p_event_name => l_event_name,
2065 p_event_key => l_key,
2066 p_parameters => l_list );
2067
2068 l_list.DELETE;
2069
2070 END IF;
2071 EXCEPTION
2072 WHEN OTHERS THEN
2073 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2074 fnd_message.set_token('ERROR' ,SQLERRM);
2075 fnd_msg_pub.add;
2076 ROLLBACK TO create_cust_profile_amt_event;
2077
2078
2079 END create_cust_profile_amt_event;
2080
2081 PROCEDURE update_cust_profile_amt_event (
2082 p_cust_profile_amt_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUST_PROFILE_AMT_REC_TYPE,
2083 p_old_cust_profile_amt_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUST_PROFILE_AMT_REC_TYPE
2084 ) IS
2085
2086 l_list WF_PARAMETER_LIST_T;
2087 l_param WF_PARAMETER_T;
2088 l_key VARCHAR2(240);
2089 l_exist VARCHAR2(1);
2090 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CustProfileAmt.update';
2091
2092 BEGIN
2093 SAVEPOINT update_cust_profile_amt_event;
2094 -- Raise Event ONLY if profile is set to 'Y'.
2095 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
2096 -- delete from HZ_PARAMS exists.
2097
2098 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
2099
2100 -- commenting the following line(s) as part of bug4369710 fix
2101 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
2102
2103 --Get the item key
2107 /*
2104 l_key := HZ_EVENT_PKG.item_key( l_event_name );
2105
2106 -- commenting the following line(s) as part of bug4369710 fix
2108 IF l_exist = 'Y' THEN
2109 --Set Parameter
2110 hz_param_pkg.setparameter( l_key, p_cust_profile_amt_rec, 'NEW' );
2111 hz_param_pkg.setparameter( l_key, p_old_cust_profile_amt_rec, 'OLD');
2112 END IF;
2113 */
2114 -- initialization of object variables
2115 l_list := WF_PARAMETER_LIST_T();
2116
2117 -- Add Context values to the list
2118 hz_event_pkg.AddParamEnvToList(l_list);
2119 l_param := WF_PARAMETER_T( NULL, NULL );
2120
2121 -- fill the parameters list
2122 l_list.extend;
2123 l_param.SetName( 'CUST_ACCT_PROFILE_AMT_ID' );
2124 l_param.SetValue( p_cust_profile_amt_rec.cust_acct_profile_amt_id );
2125 l_list(l_list.last) := l_param;
2126
2127 -- Raise Event
2128 HZ_EVENT_PKG.raise_event(
2129 p_event_name => l_event_name,
2130 p_event_key => l_key,
2131 p_parameters => l_list );
2132
2133 l_list.DELETE;
2134
2135 END IF;
2136 EXCEPTION
2137 WHEN OTHERS THEN
2138 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2139 fnd_message.set_token('ERROR' ,SQLERRM);
2140 fnd_msg_pub.add;
2141 ROLLBACK TO update_cust_profile_amt_event;
2142
2143 END update_cust_profile_amt_event;
2144
2145 -- HZ_CUST_ACCOUNT_SITE_V2PUB
2146
2147 PROCEDURE create_cust_acct_site_event (
2148 p_cust_acct_site_rec IN HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_ACCT_SITE_REC_TYPE
2149 ) IS
2150
2151 l_list WF_PARAMETER_LIST_T;
2152 l_param WF_PARAMETER_T;
2153 l_key VARCHAR2(240);
2154 l_exist VARCHAR2(1);
2155 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CustAcctSite.create';
2156
2157 BEGIN
2158 SAVEPOINT create_cust_acct_site_event;
2159 -- Raise Event ONLY if profile is set to 'Y'.
2160 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
2161 -- delete from HZ_PARAMS exists.
2162
2163
2164 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
2165
2166 -- commenting the following line(s) as part of bug4369710 fix
2167 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
2168
2169 --Get the item key
2170 l_key := HZ_EVENT_PKG.item_key( l_event_name );
2171
2172 -- commenting the following line(s) as part of bug4369710 fix
2173 /*
2174 IF l_exist = 'Y' THEN
2175 --Set Parameter
2176 hz_param_pkg.setparameter( l_key, p_cust_acct_site_rec, 'NEW' );
2177 END IF;
2178 */
2179 -- initialization of object variables
2180 l_list := WF_PARAMETER_LIST_T();
2181
2182 -- Add Context values to the list
2183 /* 3456489. Added org_id as a parameter. */
2184 hz_event_pkg.AddParamEnvToList(x_list => l_list,
2185 p_org_id => p_cust_acct_site_rec.org_id);
2186 l_param := WF_PARAMETER_T( NULL, NULL );
2187
2188 -- fill the parameters list
2189 l_list.extend;
2190 l_param.SetName( 'CUST_ACCT_SITE_ID' );
2191 l_param.SetValue( p_cust_acct_site_rec.cust_acct_site_id );
2192 l_list(l_list.last) := l_param;
2193
2194 -- Raise Event
2195 HZ_EVENT_PKG.raise_event(
2196 p_event_name => l_event_name,
2197 p_event_key => l_key,
2198 p_parameters => l_list );
2199
2200 l_list.DELETE;
2201
2202 END IF;
2203 EXCEPTION
2204 WHEN OTHERS THEN
2205 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2206 fnd_message.set_token('ERROR' ,SQLERRM);
2207 fnd_msg_pub.add;
2208 ROLLBACK TO create_cust_acct_site_event;
2209
2210 END create_cust_acct_site_event;
2211
2212 PROCEDURE update_cust_acct_site_event (
2213 p_cust_acct_site_rec IN HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_ACCT_SITE_REC_TYPE,
2214 p_old_cust_acct_site_rec IN HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_ACCT_SITE_REC_TYPE
2215 ) IS
2216
2217 l_list WF_PARAMETER_LIST_T;
2218 l_param WF_PARAMETER_T;
2219 l_key VARCHAR2(240);
2220 l_exist VARCHAR2(1);
2221 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CustAcctSite.update';
2222
2223 BEGIN
2224 SAVEPOINT update_cust_acct_site_event;
2225 -- Raise Event ONLY if profile is set to 'Y'.
2226 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
2227 -- delete from HZ_PARAMS exists.
2228
2229 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
2230
2231 -- commenting the following line(s) as part of bug4369710 fix
2232 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
2233
2234 --Get the item key
2235 l_key := HZ_EVENT_PKG.item_key( l_event_name );
2236
2237 -- commenting the following line(s) as part of bug4369710 fix
2238 /*
2242 hz_param_pkg.setparameter( l_key, p_cust_acct_site_rec, 'NEW' );
2239 IF l_exist = 'Y' THEN
2240
2241 --Set Parameter
2243 hz_param_pkg.setparameter( l_key, p_old_cust_acct_site_rec, 'OLD');
2244 END IF;
2245 */
2246 -- initialization of object variables
2247 l_list := WF_PARAMETER_LIST_T();
2248
2249 -- Add Context values to the list
2250 /* 3456489. Added org_id as a parameter. */
2251 hz_event_pkg.AddParamEnvToList(x_list => l_list,
2252 p_org_id => p_cust_acct_site_rec.org_id);
2253 l_param := WF_PARAMETER_T( NULL, NULL );
2254
2255 -- fill the parameters list
2256 l_list.extend;
2257 l_param.SetName( 'CUST_ACCT_SITE_ID' );
2258 l_param.SetValue( p_cust_acct_site_rec.cust_acct_site_id );
2259 l_list(l_list.last) := l_param;
2260
2261 -- Raise Event
2262 HZ_EVENT_PKG.raise_event(
2263 p_event_name => l_event_name,
2264 p_event_key => l_key,
2265 p_parameters => l_list );
2266
2267 l_list.DELETE;
2268
2269 END IF;
2270 EXCEPTION
2271 WHEN OTHERS THEN
2272 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2273 fnd_message.set_token('ERROR' ,SQLERRM);
2274 fnd_msg_pub.add;
2275 ROLLBACK TO update_cust_acct_site_event;
2276
2277 END update_cust_acct_site_event;
2278
2279 PROCEDURE create_cust_site_use_event (
2280 p_cust_site_use_rec IN HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_SITE_USE_REC_TYPE,
2281 p_customer_profile_rec IN HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
2282 p_create_profile IN VARCHAR2,
2283 p_create_profile_amt IN VARCHAR2
2284 ) IS
2285
2286 l_list WF_PARAMETER_LIST_T;
2287 l_param WF_PARAMETER_T;
2288 l_key VARCHAR2(240);
2289 l_exist VARCHAR2(1);
2290 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CustAcctSiteUse.create';
2291
2292 BEGIN
2293 SAVEPOINT create_cust_site_use_event;
2294 -- Raise Event ONLY if profile is set to 'Y'.
2295 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
2296 -- delete from HZ_PARAMS exists.
2297
2298
2299 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
2300
2301 -- commenting the following line(s) as part of bug4369710 fix
2302 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
2303
2304 --Get the item key
2305 l_key := HZ_EVENT_PKG.item_key( l_event_name );
2306
2307 -- commenting the following line(s) as part of bug4369710 fix
2308 /*
2309 IF l_exist = 'Y' THEN
2310 --Set Parameter
2311 hz_param_pkg.setparameter( l_key, p_cust_site_use_rec, 'NEW' );
2312 hz_param_pkg.setparameter( l_key, p_customer_profile_rec, 'NEW' );
2313 hz_param_pkg.setparameter( l_key, 'P_CREATE_PROFILE', p_create_profile, 'NEW' );
2314 hz_param_pkg.setparameter( l_key, 'P_CREATE_PROFILE_AMT', p_create_profile_amt, 'NEW' );
2315 END IF;
2316 */
2317 -- initialization of object variables
2318 l_list := WF_PARAMETER_LIST_T();
2319
2320 -- Add Context values to the list
2321 /* 3456489. Added org_id as a parameter. */
2322 hz_event_pkg.AddParamEnvToList(x_list => l_list,
2323 p_org_id => p_cust_site_use_rec.org_id);
2324 l_param := WF_PARAMETER_T( NULL, NULL );
2325
2326 -- fill the parameters list
2327 l_list.extend;
2328 l_param.SetName( 'SITE_USE_ID' );
2329 l_param.SetValue( p_cust_site_use_rec.site_use_id );
2330 l_list(l_list.last) := l_param;
2331
2332 l_list.extend;
2333 l_param.SetName( 'CUST_ACCOUNT_PROFILE_ID' );
2334 l_param.SetValue( p_customer_profile_rec.cust_account_profile_id );
2335 l_list(l_list.last) := l_param;
2336
2337 l_list.extend;
2338 l_param.SetName( 'P_CREATE_PROFILE' );
2339 l_param.SetValue( p_create_profile );
2340 l_list(l_list.last) := l_param;
2341
2342 l_list.extend;
2343 l_param.SetName( 'P_CREATE_PROFILE_AMT' );
2344 l_param.SetValue( p_create_profile_amt );
2345 l_list(l_list.last) := l_param;
2346
2347 -- Raise Event
2348 HZ_EVENT_PKG.raise_event(
2349 p_event_name => l_event_name,
2350 p_event_key => l_key,
2351 p_parameters => l_list );
2352
2353 l_list.DELETE;
2354
2355 END IF;
2356 EXCEPTION
2357 WHEN OTHERS THEN
2358 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2359 fnd_message.set_token('ERROR' ,SQLERRM);
2360 fnd_msg_pub.add;
2361 ROLLBACK TO create_cust_site_use_event;
2362
2363 END create_cust_site_use_event;
2364
2365 PROCEDURE update_cust_site_use_event (
2366 p_cust_site_use_rec IN HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_SITE_USE_REC_TYPE,
2367 p_old_cust_site_use_rec IN HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_SITE_USE_REC_TYPE
2368 ) IS
2369
2373 l_exist VARCHAR2(1);
2370 l_list WF_PARAMETER_LIST_T;
2371 l_param WF_PARAMETER_T;
2372 l_key VARCHAR2(240);
2374 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CustAcctSiteUse.update';
2375
2376 BEGIN
2377 SAVEPOINT update_cust_site_use_event;
2378 -- Raise Event ONLY if profile is set to 'Y'.
2379 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
2380 -- delete from HZ_PARAMS exists.
2381
2382
2383 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
2384
2385 -- commenting the following line(s) as part of bug4369710 fix
2386 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
2387
2388 --Get the item key
2389 l_key := HZ_EVENT_PKG.item_key( l_event_name );
2390
2391 -- commenting the following line(s) as part of bug4369710 fix
2392 /*
2393 IF l_exist = 'Y' THEN
2394 --Set Parameter
2395 hz_param_pkg.setparameter( l_key, p_cust_site_use_rec, 'NEW' );
2396 hz_param_pkg.setparameter( l_key, p_old_cust_site_use_rec, 'OLD' );
2397 END IF;
2398 */
2399 -- initialization of object variables
2400 l_list := WF_PARAMETER_LIST_T();
2401
2402 -- Add Context values to the list
2403 /* 3456489. Added org_id as a parameter. */
2404 hz_event_pkg.AddParamEnvToList(x_list => l_list,
2405 p_org_id => p_cust_site_use_rec.org_id);
2406 l_param := WF_PARAMETER_T( NULL, NULL );
2407
2408 -- fill the parameters list
2409 l_list.extend;
2410 l_param.SetName( 'SITE_USE_ID' );
2411 l_param.SetValue( p_cust_site_use_rec.site_use_id );
2412 l_list(l_list.last) := l_param;
2413
2414 -- Raise Event
2415 HZ_EVENT_PKG.raise_event(
2416 p_event_name => l_event_name,
2417 p_event_key => l_key,
2418 p_parameters => l_list );
2419
2420 l_list.DELETE;
2421
2422 END IF;
2423 EXCEPTION
2424 WHEN OTHERS THEN
2425 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2426 fnd_message.set_token('ERROR' ,SQLERRM);
2427 fnd_msg_pub.add;
2428 ROLLBACK TO update_cust_site_use_event;
2429
2430 END update_cust_site_use_event;
2431
2432 -- HZ_CUST_ACCOUNT_ROLE_V2PUB
2433
2434 PROCEDURE create_cust_account_role_event (
2435 p_cust_account_role_rec IN HZ_CUST_ACCOUNT_ROLE_V2PUB.CUST_ACCOUNT_ROLE_REC_TYPE
2436 ) IS
2437
2438 l_list WF_PARAMETER_LIST_T;
2439 l_param WF_PARAMETER_T;
2440 l_key VARCHAR2(240);
2441 l_exist VARCHAR2(1);
2442 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CustAccountRole.create';
2443
2444 BEGIN
2445 SAVEPOINT create_cust_account_role_event;
2446 -- Raise Event ONLY if profile is set to 'Y'.
2447 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
2448 -- delete from HZ_PARAMS exists.
2449
2450
2451 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
2452
2453 -- commenting the following line(s) as part of bug4369710 fix
2454 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
2455
2456 --Get the item key
2457 l_key := HZ_EVENT_PKG.item_key( l_event_name );
2458
2459 -- commenting the following line(s) as part of bug4369710 fix
2460 /*
2461 IF l_exist = 'Y' THEN
2462 --Set Parameter
2463 hz_param_pkg.setparameter( l_key, p_cust_account_role_rec, 'NEW' );
2464 END IF;
2465 */
2466 -- initialization of object variables
2467 l_list := WF_PARAMETER_LIST_T();
2468
2469 -- Add Context values to the list
2470 hz_event_pkg.AddParamEnvToList(l_list);
2471 l_param := WF_PARAMETER_T( NULL, NULL );
2472
2473 -- fill the parameters list
2474 l_list.extend;
2475 l_param.SetName( 'CUST_ACCOUNT_ROLE_ID' );
2476 l_param.SetValue( p_cust_account_role_rec.cust_account_role_id );
2477 l_list(l_list.last) := l_param;
2478
2479 -- Raise Event
2480 HZ_EVENT_PKG.raise_event(
2481 p_event_name => l_event_name,
2482 p_event_key => l_key,
2483 p_parameters => l_list );
2484
2485 l_list.DELETE;
2486
2487 END IF;
2488 EXCEPTION
2489 WHEN OTHERS THEN
2490 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2491 fnd_message.set_token('ERROR' ,SQLERRM);
2492 fnd_msg_pub.add;
2493 ROLLBACK TO create_cust_account_role_event;
2494
2495 END create_cust_account_role_event;
2496
2497 PROCEDURE update_cust_account_role_event (
2498 p_cust_account_role_rec IN HZ_CUST_ACCOUNT_ROLE_V2PUB.CUST_ACCOUNT_ROLE_REC_TYPE,
2499 p_old_cust_account_role_rec IN HZ_CUST_ACCOUNT_ROLE_V2PUB.CUST_ACCOUNT_ROLE_REC_TYPE
2500 ) IS
2501
2502 l_list WF_PARAMETER_LIST_T;
2503 l_param WF_PARAMETER_T;
2507
2504 l_key VARCHAR2(240);
2505 l_exist VARCHAR2(1);
2506 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CustAccountRole.update';
2508 BEGIN
2509 SAVEPOINT update_cust_account_role_event;
2510 -- Raise Event ONLY if profile is set to 'Y'.
2511 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
2512 -- delete from HZ_PARAMS exists.
2513
2514
2515 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
2516
2517 -- commenting the following line(s) as part of bug4369710 fix
2518 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
2519
2520 --Get the item key
2521 l_key := HZ_EVENT_PKG.item_key( l_event_name );
2522
2523 -- commenting the following line(s) as part of bug4369710 fix
2524 /*
2525 IF l_exist = 'Y' THEN
2526
2527 --Set Parameter
2528 hz_param_pkg.setparameter( l_key, p_cust_account_role_rec, 'NEW' );
2529 hz_param_pkg.setparameter( l_key, p_old_cust_account_role_rec, 'OLD');
2530 END IF;
2531 */
2532 -- initialization of object variables
2533 l_list := WF_PARAMETER_LIST_T();
2534
2535 -- Add Context values to the list
2536 hz_event_pkg.AddParamEnvToList(l_list);
2537 l_param := WF_PARAMETER_T( NULL, NULL );
2538
2539 -- fill the parameters list
2540 l_list.extend;
2541 l_param.SetName( 'CUST_ACCOUNT_ROLE_ID' );
2542 l_param.SetValue( p_cust_account_role_rec.cust_account_role_id );
2543 l_list(l_list.last) := l_param;
2544
2545 -- Raise Event
2546 HZ_EVENT_PKG.raise_event(
2547 p_event_name => l_event_name,
2548 p_event_key => l_key,
2549 p_parameters => l_list );
2550
2551 l_list.DELETE;
2552
2553 END IF;
2554 EXCEPTION
2555 WHEN OTHERS THEN
2556 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2557 fnd_message.set_token('ERROR' ,SQLERRM);
2558 fnd_msg_pub.add;
2559 ROLLBACK TO update_cust_account_role_event;
2560
2561 END update_cust_account_role_event;
2562
2563 PROCEDURE create_role_resp_event (
2564 p_role_responsibility_rec IN HZ_CUST_ACCOUNT_ROLE_V2PUB.ROLE_RESPONSIBILITY_REC_TYPE
2565 ) IS
2566
2567 l_list WF_PARAMETER_LIST_T;
2568 l_param WF_PARAMETER_T;
2569 l_key VARCHAR2(240);
2570 l_exist VARCHAR2(1);
2571 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.RoleResponsibility.create';
2572
2573 BEGIN
2574 SAVEPOINT create_role_resp_event;
2575 -- Raise Event ONLY if profile is set to 'Y'.
2576 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
2577 -- delete from HZ_PARAMS exists.
2578
2579
2580 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
2581
2582 -- commenting the following line(s) as part of bug4369710 fix
2583 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
2584
2585 --Get the item key
2586 l_key := HZ_EVENT_PKG.item_key( l_event_name );
2587
2588 -- commenting the following line(s) as part of bug4369710 fix
2589 /*
2590 IF l_exist = 'Y' THEN
2591 --Set Parameter
2592 hz_param_pkg.setparameter( l_key, p_role_responsibility_rec, 'NEW' );
2593 END IF;
2594 */
2595 -- initialization of object variables
2596 l_list := WF_PARAMETER_LIST_T();
2597
2598 -- Add Context values to the list
2599 hz_event_pkg.AddParamEnvToList(l_list);
2600 l_param := WF_PARAMETER_T( NULL, NULL );
2601
2602 -- fill the parameters list
2603 l_list.extend;
2604 l_param.SetName( 'RESPONSIBILITY_ID' );
2605 l_param.SetValue( p_role_responsibility_rec.responsibility_id );
2606 l_list(l_list.last) := l_param;
2607
2608 -- Raise Event
2609 HZ_EVENT_PKG.raise_event(
2610 p_event_name => l_event_name,
2611 p_event_key => l_key,
2612 p_parameters => l_list );
2613
2614 l_list.DELETE;
2615
2616 END IF;
2617 EXCEPTION
2618 WHEN OTHERS THEN
2619 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2620 fnd_message.set_token('ERROR' ,SQLERRM);
2621 fnd_msg_pub.add;
2622 ROLLBACK TO create_role_resp_event;
2623
2624 END create_role_resp_event;
2625
2626 PROCEDURE update_role_resp_event (
2627 p_role_responsibility_rec IN HZ_CUST_ACCOUNT_ROLE_V2PUB.ROLE_RESPONSIBILITY_REC_TYPE,
2628 p_old_role_responsibility_rec IN HZ_CUST_ACCOUNT_ROLE_V2PUB.ROLE_RESPONSIBILITY_REC_TYPE
2629 ) IS
2630
2631 l_list WF_PARAMETER_LIST_T;
2632 l_param WF_PARAMETER_T;
2633 l_key VARCHAR2(240);
2634 l_exist VARCHAR2(1);
2635 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.RoleResponsibility.update';
2636
2637 BEGIN
2638 SAVEPOINT update_role_resp_event;
2642
2639 -- Raise Event ONLY if profile is set to 'Y'.
2640 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
2641 -- delete from HZ_PARAMS exists.
2643
2644 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
2645
2646 -- commenting the following line(s) as part of bug4369710 fix
2647 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
2648
2649 --Get the item key
2650 l_key := HZ_EVENT_PKG.item_key( l_event_name );
2651
2652 -- commenting the following line(s) as part of bug4369710 fix
2653 /*
2654 IF l_exist = 'Y' THEN
2655
2656 --Set Parameter
2657 hz_param_pkg.setparameter( l_key, p_role_responsibility_rec, 'NEW' );
2658 hz_param_pkg.setparameter( l_key, p_old_role_responsibility_rec, 'OLD');
2659 END IF;
2660 */
2661 -- initialization of object variables
2662 l_list := WF_PARAMETER_LIST_T();
2663
2664 -- Add Context values to the list
2665 hz_event_pkg.AddParamEnvToList(l_list);
2666 l_param := WF_PARAMETER_T( NULL, NULL );
2667
2668 -- fill the parameters list
2669 l_list.extend;
2670 l_param.SetName( 'RESPONSIBILITY_ID' );
2671 l_param.SetValue( p_role_responsibility_rec.responsibility_id );
2672 l_list(l_list.last) := l_param;
2673
2674 -- Raise Event
2675 HZ_EVENT_PKG.raise_event(
2676 p_event_name => l_event_name,
2677 p_event_key => l_key,
2678 p_parameters => l_list );
2679
2680 l_list.DELETE;
2681
2682 END IF;
2683 EXCEPTION
2684 WHEN OTHERS THEN
2685 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2686 fnd_message.set_token('ERROR' ,SQLERRM);
2687 fnd_msg_pub.add;
2688 ROLLBACK TO update_role_resp_event;
2689
2690 END update_role_resp_event;
2691
2692 -- HZ_CLASSIFICATION_V2PUB
2693
2694 PROCEDURE create_class_category_event (
2695 p_class_category_rec IN HZ_CLASSIFICATION_V2PUB.CLASS_CATEGORY_REC_TYPE
2696 ) IS
2697
2698 l_list WF_PARAMETER_LIST_T;
2699 l_param WF_PARAMETER_T;
2700 l_key VARCHAR2(240);
2701 l_exist VARCHAR2(1);
2702 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.ClassCategory.create';
2703
2704 BEGIN
2705 SAVEPOINT create_class_category_event;
2706 -- Raise Event ONLY if profile is set to 'Y'.
2707 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
2708 -- delete from HZ_PARAMS exists.
2709
2710
2711 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
2712
2713 -- commenting the following line(s) as part of bug4369710 fix
2714 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
2715
2716 --Get the item key
2717 l_key := HZ_EVENT_PKG.item_key( l_event_name );
2718
2719 -- commenting the following line(s) as part of bug4369710 fix
2720 /*
2721 IF l_exist = 'Y' THEN
2722 --Set Parameter
2723 hz_param_pkg.setparameter( l_key, p_class_category_rec, 'NEW' );
2724 END IF;
2725 */
2726 -- initialization of object variables
2727 l_list := WF_PARAMETER_LIST_T();
2728
2729 -- Add Context values to the list
2730 hz_event_pkg.AddParamEnvToList(l_list);
2731 l_param := WF_PARAMETER_T( NULL, NULL );
2732
2733 -- fill the parameters list
2734 l_list.extend;
2735 l_param.SetName( 'CLASS_CATEGORY' );
2736 l_param.SetValue( p_class_category_rec.class_category );
2737 l_list(l_list.last) := l_param;
2738
2739 -- Raise Event
2740 HZ_EVENT_PKG.raise_event(
2741 p_event_name => l_event_name,
2742 p_event_key => l_key,
2743 p_parameters => l_list );
2744
2745 l_list.DELETE;
2746
2747 END IF;
2748 EXCEPTION
2749 WHEN OTHERS THEN
2750 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2751 fnd_message.set_token('ERROR' ,SQLERRM);
2752 fnd_msg_pub.add;
2753 ROLLBACK TO create_class_category_event;
2754
2755 END create_class_category_event;
2756
2757 PROCEDURE update_class_category_event (
2758 p_class_category_rec IN HZ_CLASSIFICATION_V2PUB.CLASS_CATEGORY_REC_TYPE,
2759 p_old_class_category_rec IN HZ_CLASSIFICATION_V2PUB.CLASS_CATEGORY_REC_TYPE
2760 ) IS
2761
2762 l_list WF_PARAMETER_LIST_T;
2763 l_param WF_PARAMETER_T;
2764 l_key VARCHAR2(240);
2765 l_exist VARCHAR2(1);
2766 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.ClassCategory.update';
2767
2768 BEGIN
2769 SAVEPOINT update_class_category_event;
2770 -- Raise Event ONLY if profile is set to 'Y'.
2771 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
2772 -- delete from HZ_PARAMS exists.
2773
2774
2775 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
2776
2780 --Get the item key
2777 -- commenting the following line(s) as part of bug4369710 fix
2778 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
2779
2781 l_key := HZ_EVENT_PKG.item_key( l_event_name );
2782
2783 -- commenting the following line(s) as part of bug4369710 fix
2784 /*
2785 IF l_exist = 'Y' THEN
2786
2787 --Set Parameter
2788 hz_param_pkg.setparameter( l_key, p_class_category_rec, 'NEW' );
2789 hz_param_pkg.setparameter( l_key, p_old_class_category_rec, 'OLD' );
2790 END IF;
2791 */
2792 -- initialization of object variables
2793 l_list := WF_PARAMETER_LIST_T();
2794
2795 -- Add Context values to the list
2796 hz_event_pkg.AddParamEnvToList(l_list);
2797 l_param := WF_PARAMETER_T( NULL, NULL );
2798
2799 -- fill the parameters list
2800 l_list.extend;
2801 l_param.SetName( 'CLASS_CATEGORY' );
2802 l_param.SetValue( p_class_category_rec.class_category );
2803 l_list(l_list.last) := l_param;
2804
2805 -- Raise Event
2806 HZ_EVENT_PKG.raise_event(
2807 p_event_name => l_event_name,
2808 p_event_key => l_key,
2809 p_parameters => l_list );
2810
2811 l_list.DELETE;
2812
2813 END IF;
2814 EXCEPTION
2815 WHEN OTHERS THEN
2816 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2817 fnd_message.set_token('ERROR' ,SQLERRM);
2818 fnd_msg_pub.add;
2819 ROLLBACK TO update_class_category_event;
2820
2821 END update_class_category_event;
2822
2823 -- Added as part of bug 5053099
2824 PROCEDURE create_class_code_event (
2825 p_class_code_rec IN HZ_CLASSIFICATION_V2PUB.CLASS_CODE_REC_TYPE
2826 ) IS
2827
2828 l_list WF_PARAMETER_LIST_T;
2829 l_param WF_PARAMETER_T;
2830 l_key VARCHAR2(240);
2831 l_exist VARCHAR2(1);
2832 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.ClassCode.create';
2833
2834 BEGIN
2835 SAVEPOINT create_class_code_event;
2836 -- Raise Event ONLY if profile is set to 'Y'.
2837 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
2838 -- delete from HZ_PARAMS exists.
2839
2840
2841 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
2842
2843 --Get the item key
2844 l_key := HZ_EVENT_PKG.item_key( l_event_name );
2845
2846 -- initialization of object variables
2847 l_list := WF_PARAMETER_LIST_T();
2848
2849 -- Add Context values to the list
2850 hz_event_pkg.AddParamEnvToList(l_list);
2851 l_param := WF_PARAMETER_T( NULL, NULL );
2852
2853 -- fill the parameters list
2854 l_list.extend;
2855 l_param.SetName( 'CLASS_CATEGORY' );
2856 l_param.SetValue( p_class_code_rec.type );
2857 l_list(l_list.last) := l_param;
2858
2859 l_list.extend;
2860 l_param.SetName( 'CLASS_CODE' );
2861 l_param.SetValue( p_class_code_rec.code );
2862 l_list(l_list.last) := l_param;
2863
2864 -- Raise Event
2865 HZ_EVENT_PKG.raise_event(
2866 p_event_name => l_event_name,
2867 p_event_key => l_key,
2868 p_parameters => l_list );
2869
2870 l_list.DELETE;
2871
2872 END IF;
2873 EXCEPTION
2874 WHEN OTHERS THEN
2875 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2876 fnd_message.set_token('ERROR' ,SQLERRM);
2877 fnd_msg_pub.add;
2878 ROLLBACK TO create_class_codey_event;
2879
2880 END create_class_code_event;
2881
2882 -- Added as part of bug 5053099
2883 PROCEDURE update_class_code_event (
2884 p_class_code_rec IN HZ_CLASSIFICATION_V2PUB.CLASS_CODE_REC_TYPE,
2885 p_old_class_code_rec IN HZ_CLASSIFICATION_V2PUB.CLASS_CODE_REC_TYPE
2886 ) IS
2887
2888 l_list WF_PARAMETER_LIST_T;
2889 l_param WF_PARAMETER_T;
2890 l_key VARCHAR2(240);
2891 l_exist VARCHAR2(1);
2892 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.ClassCode.update';
2893
2894 BEGIN
2895 SAVEPOINT update_class_code_event;
2896 -- Raise Event ONLY if profile is set to 'Y'.
2897 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
2898 -- delete from HZ_PARAMS exists.
2899
2900
2901 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
2902
2903
2904 --Get the item key
2905 l_key := HZ_EVENT_PKG.item_key( l_event_name );
2906
2907 -- initialization of object variables
2908 l_list := WF_PARAMETER_LIST_T();
2909
2910 -- Add Context values to the list
2911 hz_event_pkg.AddParamEnvToList(l_list);
2912 l_param := WF_PARAMETER_T( NULL, NULL );
2913
2914 -- fill the parameters list
2915 l_list.extend;
2916 l_param.SetName( 'CLASS_CATEGORY' );
2917 l_param.SetValue( p_class_code_rec.type );
2921 l_param.SetName( 'CLASS_CODE' );
2918 l_list(l_list.last) := l_param;
2919
2920 l_list.extend;
2922 l_param.SetValue( p_class_code_rec.code );
2923 l_list(l_list.last) := l_param;
2924
2925 -- Raise Event
2926 HZ_EVENT_PKG.raise_event(
2927 p_event_name => l_event_name,
2928 p_event_key => l_key,
2929 p_parameters => l_list );
2930
2931 l_list.DELETE;
2932
2933 END IF;
2934 EXCEPTION
2935 WHEN OTHERS THEN
2936 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2937 fnd_message.set_token('ERROR' ,SQLERRM);
2938 fnd_msg_pub.add;
2939 ROLLBACK TO update_class_category_event;
2940
2941 END update_class_code_event;
2942
2943
2944 PROCEDURE create_class_code_rel_event (
2945 p_class_code_relation_rec IN HZ_CLASSIFICATION_V2PUB.CLASS_CODE_RELATION_REC_TYPE
2946 ) IS
2947
2948 l_list WF_PARAMETER_LIST_T;
2949 l_param WF_PARAMETER_T;
2950 l_key VARCHAR2(240);
2951 l_exist VARCHAR2(1);
2952 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.ClassCodeRelation.create';
2953
2954 BEGIN
2955 SAVEPOINT create_class_code_rel_event;
2956 -- Raise Event ONLY if profile is set to 'Y'.
2957 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
2958 -- delete from HZ_PARAMS exists.
2959
2960
2961 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
2962
2963 -- commenting the following line(s) as part of bug4369710 fix
2964 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
2965
2966 --Get the item key
2967 l_key := HZ_EVENT_PKG.item_key( l_event_name );
2968
2969 -- commenting the following line(s) as part of bug4369710 fix
2970 /*
2971 IF l_exist = 'Y' THEN
2972 --Set Parameter
2973 hz_param_pkg.setparameter( l_key, p_class_code_relation_rec, 'NEW' );
2974 END IF;
2975 */
2976 -- initialization of object variables
2977 l_list := WF_PARAMETER_LIST_T();
2978
2979 -- Add Context values to the list
2980 hz_event_pkg.AddParamEnvToList(l_list);
2981 l_param := WF_PARAMETER_T( NULL, NULL );
2982
2983 -- fill the parameters list
2984 l_list.extend;
2985 l_param.SetName( 'CLASS_CATEGORY' );
2986 l_param.SetValue( p_class_code_relation_rec.class_category );
2987 l_list(l_list.last) := l_param;
2988
2989 l_list.extend;
2990 l_param.SetName( 'CLASS_CODE' );
2991 l_param.SetValue( p_class_code_relation_rec.class_code );
2992 l_list(l_list.last) := l_param;
2993
2994 l_list.extend;
2995 l_param.SetName( 'SUB_CLASS_CODE' );
2996 l_param.SetValue( p_class_code_relation_rec.sub_class_code );
2997 l_list(l_list.last) := l_param;
2998
2999 -- Raise Event
3000 HZ_EVENT_PKG.raise_event(
3001 p_event_name => l_event_name,
3002 p_event_key => l_key,
3003 p_parameters => l_list );
3004
3005 l_list.DELETE;
3006
3007 END IF;
3008 EXCEPTION
3009 WHEN OTHERS THEN
3010 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3011 fnd_message.set_token('ERROR' ,SQLERRM);
3012 fnd_msg_pub.add;
3013 ROLLBACK TO create_class_code_rel_event;
3014
3015 END create_class_code_rel_event;
3016
3017 PROCEDURE update_class_code_rel_event (
3018 p_class_code_relation_rec IN HZ_CLASSIFICATION_V2PUB.CLASS_CODE_RELATION_REC_TYPE,
3019 p_old_class_code_relation_rec IN HZ_CLASSIFICATION_V2PUB.CLASS_CODE_RELATION_REC_TYPE
3020 ) IS
3021
3022 l_list WF_PARAMETER_LIST_T;
3023 l_param WF_PARAMETER_T;
3024 l_key VARCHAR2(240);
3025 l_exist VARCHAR2(1);
3026 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.ClassCodeRelation.update';
3027
3028 BEGIN
3029 SAVEPOINT update_class_code_rel_event;
3030 -- Raise Event ONLY if profile is set to 'Y'.
3031 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3032 -- delete from HZ_PARAMS exists.
3033
3034
3035 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3036
3037 -- commenting the following line(s) as part of bug4369710 fix
3038 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
3039
3040 --Get the item key
3041 l_key := HZ_EVENT_PKG.item_key( l_event_name );
3042
3043 -- commenting the following line(s) as part of bug4369710 fix
3044 /*
3045 IF l_exist = 'Y' THEN
3046
3047 --Set Parameter
3048 hz_param_pkg.setparameter( l_key, p_class_code_relation_rec, 'NEW' );
3049 hz_param_pkg.setparameter( l_key, p_old_class_code_relation_rec, 'OLD' );
3050 END IF;
3051 */
3052 -- initialization of object variables
3053 l_list := WF_PARAMETER_LIST_T();
3054
3055 -- Add Context values to the list
3059 -- fill the parameters list
3056 hz_event_pkg.AddParamEnvToList(l_list);
3057 l_param := WF_PARAMETER_T( NULL, NULL );
3058
3060 l_list.extend;
3061 l_param.SetName( 'CLASS_CATEGORY' );
3062 l_param.SetValue( p_class_code_relation_rec.class_category );
3063 l_list(l_list.last) := l_param;
3064
3065 l_list.extend;
3066 l_param.SetName( 'CLASS_CODE' );
3067 l_param.SetValue( p_class_code_relation_rec.class_code );
3068 l_list(l_list.last) := l_param;
3069
3070 l_list.extend;
3071 l_param.SetName( 'SUB_CLASS_CODE' );
3072 l_param.SetValue( p_class_code_relation_rec.sub_class_code );
3073 l_list(l_list.last) := l_param;
3074
3075 -- Raise Event
3076 HZ_EVENT_PKG.raise_event(
3077 p_event_name => l_event_name,
3078 p_event_key => l_key,
3079 p_parameters => l_list );
3080
3081 l_list.DELETE;
3082
3083 END IF;
3084 EXCEPTION
3085 WHEN OTHERS THEN
3086 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3087 fnd_message.set_token('ERROR' ,SQLERRM);
3088 fnd_msg_pub.add;
3089 ROLLBACK TO update_class_code_rel_event;
3090
3091 END update_class_code_rel_event;
3092
3093 PROCEDURE create_code_assignment_event (
3094 p_code_assignment_rec IN HZ_CLASSIFICATION_V2PUB.CODE_ASSIGNMENT_REC_TYPE
3095 ) IS
3096
3097 l_list WF_PARAMETER_LIST_T;
3098 l_param WF_PARAMETER_T;
3099 l_key VARCHAR2(240);
3100 l_exist VARCHAR2(1);
3101 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CodeAssignment.create';
3102
3103 BEGIN
3104 SAVEPOINT create_code_assignment_event;
3105 -- Raise Event ONLY if profile is set to 'Y'.
3106 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3107 -- delete from HZ_PARAMS exists.
3108
3109
3110 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3111
3112 -- commenting the following line(s) as part of bug4369710 fix
3113 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
3114
3115
3116 --Get the item key
3117 l_key := HZ_EVENT_PKG.item_key( l_event_name );
3118
3119 -- commenting the following line(s) as part of bug4369710 fix
3120 /*
3121 IF l_exist = 'Y' THEN
3122 --Set Parameter
3123 hz_param_pkg.setparameter( l_key, p_code_assignment_rec, 'NEW' );
3124 END IF;
3125 */
3126 -- initialization of object variables
3127 l_list := WF_PARAMETER_LIST_T();
3128
3129 -- Add Context values to the list
3130 hz_event_pkg.AddParamEnvToList(l_list);
3131 l_param := WF_PARAMETER_T( NULL, NULL );
3132
3133 -- fill the parameters list
3134 l_list.extend;
3135 l_param.SetName( 'CODE_ASSIGNMENT_ID' );
3136 l_param.SetValue( p_code_assignment_rec.code_assignment_id );
3137 l_list(l_list.last) := l_param;
3138
3139 -- Raise Event
3140 HZ_EVENT_PKG.raise_event(
3141 p_event_name => l_event_name,
3142 p_event_key => l_key,
3143 p_parameters => l_list );
3144
3145 l_list.DELETE;
3146
3147 END IF;
3148 EXCEPTION
3149 WHEN OTHERS THEN
3150 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3151 fnd_message.set_token('ERROR' ,SQLERRM);
3152 fnd_msg_pub.add;
3153 ROLLBACK TO create_code_assignment_event;
3154
3155 END create_code_assignment_event;
3156
3157 PROCEDURE update_code_assignment_event (
3158 p_code_assignment_rec IN HZ_CLASSIFICATION_V2PUB.CODE_ASSIGNMENT_REC_TYPE,
3159 p_old_code_assignment_rec IN HZ_CLASSIFICATION_V2PUB.CODE_ASSIGNMENT_REC_TYPE
3160 ) IS
3161
3162 l_list WF_PARAMETER_LIST_T;
3163 l_param WF_PARAMETER_T;
3164 l_key VARCHAR2(240);
3165 l_exist VARCHAR2(1);
3166 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.CodeAssignment.update';
3167
3168 BEGIN
3169 SAVEPOINT update_code_assignment_event;
3170 -- Raise Event ONLY if profile is set to 'Y'.
3171 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3172 -- delete from HZ_PARAMS exists.
3173
3174
3175
3176 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3177
3178 -- commenting the following line(s) as part of bug4369710 fix
3179 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
3180
3181 --Get the item key
3182 l_key := HZ_EVENT_PKG.item_key( l_event_name );
3183
3184 -- commenting the following line(s) as part of bug4369710 fix
3185 /*
3186 IF l_exist = 'Y' THEN
3187
3188 --Set Parameter
3189 hz_param_pkg.setparameter( l_key, p_code_assignment_rec, 'NEW' );
3190 hz_param_pkg.setparameter( l_key, p_old_code_assignment_rec, 'OLD' );
3191 END IF;
3192 */
3193 -- initialization of object variables
3197 hz_event_pkg.AddParamEnvToList(l_list);
3194 l_list := WF_PARAMETER_LIST_T();
3195
3196 -- Add Context values to the list
3198 l_param := WF_PARAMETER_T( NULL, NULL );
3199
3200 -- fill the parameters list
3201 l_list.extend;
3202 l_param.SetName( 'CODE_ASSIGNMENT_ID' );
3203 l_param.SetValue( p_code_assignment_rec.code_assignment_id );
3204 l_list(l_list.last) := l_param;
3205
3206 -- Raise Event
3207 HZ_EVENT_PKG.raise_event(
3208 p_event_name => l_event_name,
3209 p_event_key => l_key,
3210 p_parameters => l_list );
3211
3212 l_list.DELETE;
3213
3214 END IF;
3215 EXCEPTION
3216 WHEN OTHERS THEN
3217 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3218 fnd_message.set_token('ERROR' ,SQLERRM);
3219 fnd_msg_pub.add;
3220 ROLLBACK TO update_code_assignment_event;
3221
3222 END update_code_assignment_event;
3223
3224 PROCEDURE create_class_cat_use_event (
3225 p_class_category_use_rec IN HZ_CLASSIFICATION_V2PUB.CLASS_CATEGORY_USE_REC_TYPE
3226 ) IS
3227
3228 l_list WF_PARAMETER_LIST_T;
3229 l_param WF_PARAMETER_T;
3230 l_key VARCHAR2(240);
3231 l_exist VARCHAR2(1);
3232 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.ClassCategoryUse.create';
3233
3234 BEGIN
3235 SAVEPOINT create_class_cat_use_event;
3236 -- Raise Event ONLY if profile is set to 'Y'.
3237 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3238 -- delete from HZ_PARAMS exists.
3239
3240
3241 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3242
3243 -- commenting the following line(s) as part of bug4369710 fix
3244 --l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
3245
3246
3247 --Get the item key
3248 l_key := HZ_EVENT_PKG.item_key( l_event_name );
3249
3250 -- commenting the following line(s) as part of bug4369710 fix
3251 /*
3252 IF l_exist = 'Y' THEN
3253 --Set Parameter
3254 hz_param_pkg.setparameter( l_key, p_class_category_use_rec, 'NEW' );
3255 END IF;
3256 */
3257 -- initialization of object variables
3258 l_list := WF_PARAMETER_LIST_T();
3259
3260 -- Add Context values to the list
3261 hz_event_pkg.AddParamEnvToList(l_list);
3262 l_param := WF_PARAMETER_T( NULL, NULL );
3263
3264 -- fill the parameters list
3265 l_list.extend;
3266 l_param.SetName( 'CLASS_CATEGORY' );
3267 l_param.SetValue( p_class_category_use_rec.class_category );
3268 l_list(l_list.last) := l_param;
3269
3270 l_list.extend;
3271 l_param.SetName( 'OWNER_TABLE' );
3272 l_param.SetValue( p_class_category_use_rec.owner_table );
3273 l_list(l_list.last) := l_param;
3274
3275 l_list.extend;
3276 l_param.SetName( 'COLUMN_NAME' );
3277 l_param.SetValue( p_class_category_use_rec.column_name );
3278 l_list(l_list.last) := l_param;
3279
3280 -- Raise Event
3281 HZ_EVENT_PKG.raise_event(
3282 p_event_name => l_event_name,
3283 p_event_key => l_key,
3284 p_parameters => l_list );
3285
3286 l_list.DELETE;
3287
3288 END IF;
3289 EXCEPTION
3290 WHEN OTHERS THEN
3291 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3292 fnd_message.set_token('ERROR' ,SQLERRM);
3293 fnd_msg_pub.add;
3294 ROLLBACK TO create_class_cat_use_event;
3295
3296 END create_class_cat_use_event;
3297
3298 PROCEDURE update_class_cat_use_event (
3299 p_class_category_use_rec IN HZ_CLASSIFICATION_V2PUB.CLASS_CATEGORY_USE_REC_TYPE,
3300 p_old_class_category_use_rec IN HZ_CLASSIFICATION_V2PUB.CLASS_CATEGORY_USE_REC_TYPE
3301 ) IS
3302
3303 l_list WF_PARAMETER_LIST_T;
3304 l_param WF_PARAMETER_T;
3305 l_key VARCHAR2(240);
3306 l_exist VARCHAR2(1);
3307 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.ClassCategoryUse.update';
3308
3309 BEGIN
3310 SAVEPOINT update_class_cat_use_event;
3311 -- Raise Event ONLY if profile is set to 'Y'.
3312 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3313 -- delete from HZ_PARAMS exists.
3314
3315
3316 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3317
3318 -- commenting the following line(s) as part of bug4369710 fix
3319 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
3320
3321 --Get the item key
3322 l_key := HZ_EVENT_PKG.item_key( l_event_name );
3323
3324 -- commenting the following line(s) as part of bug4369710 fix
3325 /*
3326 IF l_exist = 'Y' THEN
3327
3328 --Set Parameter
3329 hz_param_pkg.setparameter( l_key, p_class_category_use_rec, 'NEW' );
3330 hz_param_pkg.setparameter( l_key, p_old_class_category_use_rec, 'OLD' );
3334 l_list := WF_PARAMETER_LIST_T();
3331 END IF;
3332 */
3333 -- initialization of object variables
3335
3336 -- Add Context values to the list
3337 hz_event_pkg.AddParamEnvToList(l_list);
3338 l_param := WF_PARAMETER_T( NULL, NULL );
3339
3340 -- fill the parameters list
3341 l_list.extend;
3342 l_param.SetName( 'CLASS_CATEGORY' );
3343 l_param.SetValue( p_class_category_use_rec.class_category );
3344 l_list(l_list.last) := l_param;
3345
3346 l_list.extend;
3347 l_param.SetName( 'OWNER_TABLE' );
3348 l_param.SetValue( p_class_category_use_rec.owner_table );
3349 l_list(l_list.last) := l_param;
3350
3351 l_list.extend;
3352 l_param.SetName( 'COLUMN_NAME' );
3353 l_param.SetValue( p_class_category_use_rec.column_name );
3354 l_list(l_list.last) := l_param;
3355
3356 -- Raise Event
3357 HZ_EVENT_PKG.raise_event(
3358 p_event_name => l_event_name,
3359 p_event_key => l_key,
3360 p_parameters => l_list );
3361
3362 l_list.DELETE;
3363
3364 END IF;
3365 EXCEPTION
3366 WHEN OTHERS THEN
3367 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3368 fnd_message.set_token('ERROR' ,SQLERRM);
3369 fnd_msg_pub.add;
3370 ROLLBACK TO update_class_cat_use_event;
3371
3372 END update_class_cat_use_event;
3373
3374 -- HZ_PERSON_INFO_V2PUB
3375
3376 PROCEDURE create_person_language_event (
3377 p_person_language_rec IN HZ_PERSON_INFO_V2PUB.PERSON_LANGUAGE_REC_TYPE
3378 ) IS
3379
3380 l_list WF_PARAMETER_LIST_T;
3381 l_param WF_PARAMETER_T;
3382 l_key VARCHAR2(240);
3383 l_exist VARCHAR2(1);
3384 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.PersonLanguage.create';
3385
3386 BEGIN
3387 SAVEPOINT create_person_language_event;
3388 -- Raise Event ONLY if profile is set to 'Y'.
3389 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3390 -- delete from HZ_PARAMS exists.
3391
3392
3393 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3394
3395 -- commenting the following line(s) as part of bug4369710 fix
3396 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
3397
3398 --Get the item key
3399 l_key := HZ_EVENT_PKG.item_key( l_event_name );
3400
3401 -- commenting the following line(s) as part of bug4369710 fix
3402 /*
3403 IF l_exist = 'Y' THEN
3404 --Set Parameter
3405 hz_param_pkg.setparameter( l_key, p_person_language_rec, 'NEW' );
3406 END IF;
3407 */
3408 -- initialization of object variables
3409 l_list := WF_PARAMETER_LIST_T();
3410
3411 -- Add Context values to the list
3412 hz_event_pkg.AddParamEnvToList(l_list);
3413 l_param := WF_PARAMETER_T( NULL, NULL );
3414
3415 -- fill the parameters list
3416 l_list.extend;
3417 l_param.SetName( 'LANGUAGE_USE_REFERENCE_ID' );
3418 l_param.SetValue( p_person_language_rec.language_use_reference_id );
3419 l_list(l_list.last) := l_param;
3420
3421 -- Raise Event
3422 HZ_EVENT_PKG.raise_event(
3423 p_event_name => l_event_name,
3424 p_event_key => l_key,
3425 p_parameters => l_list );
3426
3427 l_list.DELETE;
3428
3429 END IF;
3430 EXCEPTION
3431 WHEN OTHERS THEN
3432 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3433 fnd_message.set_token('ERROR' ,SQLERRM);
3434 fnd_msg_pub.add;
3435 ROLLBACK TO create_person_language_event;
3436
3437 END create_person_language_event;
3438
3439 PROCEDURE update_person_language_event (
3440 p_person_language_rec IN HZ_PERSON_INFO_V2PUB.PERSON_LANGUAGE_REC_TYPE,
3441 p_old_person_language_rec IN HZ_PERSON_INFO_V2PUB.PERSON_LANGUAGE_REC_TYPE
3442 ) IS
3443
3444 l_list WF_PARAMETER_LIST_T;
3445 l_param WF_PARAMETER_T;
3446 l_key VARCHAR2(240);
3447 l_exist VARCHAR2(1);
3448 l_event_name VARCHAR2(240) := 'oracle.apps.ar.hz.PersonLanguage.update';
3449
3450 BEGIN
3451 SAVEPOINT update_person_language_event;
3452 -- Raise Event ONLY if profile is set to 'Y'.
3453 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3454 -- delete from HZ_PARAMS exists.
3455
3456
3457 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3458
3459 -- commenting the following line(s) as part of bug4369710 fix
3460 -- l_exist := HZ_EVENT_PKG.exist_subscription( l_event_name );
3461
3462 --Get the item key
3463 l_key := HZ_EVENT_PKG.item_key( l_event_name );
3464
3465 -- commenting the following line(s) as part of bug4369710 fix
3466 /*
3467 IF l_exist = 'Y' THEN
3468 --Set Parameter
3472 */
3469 hz_param_pkg.setparameter( l_key, p_person_language_rec, 'NEW' );
3470 hz_param_pkg.setparameter( l_key, p_old_person_language_rec, 'OLD');
3471 END IF;
3473 -- initialization of object variables
3474 l_list := WF_PARAMETER_LIST_T();
3475
3476 -- Add Context values to the list
3477 hz_event_pkg.AddParamEnvToList(l_list);
3478 l_param := WF_PARAMETER_T( NULL, NULL );
3479
3480 -- fill the parameters list
3481 l_list.extend;
3482 l_param.SetName( 'LANGUAGE_USE_REFERENCE_ID' );
3483 l_param.SetValue( p_person_language_rec.language_use_reference_id );
3484 l_list(l_list.last) := l_param;
3485
3486 -- Raise Event
3487 HZ_EVENT_PKG.raise_event(
3488 p_event_name => l_event_name,
3489 p_event_key => l_key,
3490 p_parameters => l_list );
3491
3492 l_list.DELETE;
3493
3494 END IF;
3495 EXCEPTION
3496 WHEN OTHERS THEN
3497 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3498 fnd_message.set_token('ERROR' ,SQLERRM);
3499 fnd_msg_pub.add;
3500 ROLLBACK TO update_person_language_event;
3501
3502 END update_person_language_event;
3503
3504
3505
3506 -- HZ_CUST_ACCT_INFO_PUB
3507 /* Bug No : 4580024
3508 PROCEDURE create_bill_pref_event
3509 ( p_billing_preferences_rec IN HZ_CUST_ACCT_INFO_PUB.BILLING_PREFERENCES_REC_TYPE)
3510 IS
3511 l_list wf_parameter_list_t;
3512 l_param wf_parameter_t;
3513 l_key varchar2(240);
3514 l_yn varchar2(1);
3515 l_event_name varchar2(240) := 'oracle.apps.ar.hz.BillingPreference.create';
3516 BEGIN
3517 SAVEPOINT create_bill_pref_event;
3518
3519 -- Raise Event ONLY if profile is set to 'Y'.
3520 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3521 -- delete from HZ_PARAMS exists.
3522
3523
3524 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3525 -- commenting the following line as part of bug4369710 fix
3526 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
3527
3528 --Get the item key
3529 l_key := HZ_EVENT_PKG.item_key(l_event_name);
3530 -- commenting the following line as part of bug4369710 fix
3531
3532 IF l_yn = 'Y' THEN
3533 --Set Parameter
3534 hz_param_pkg.setparameter(l_key, p_billing_preferences_rec, 'NEW');
3535 END IF;
3536
3537 -- initialization of object variables
3538 l_list := wf_parameter_list_t();
3539
3540 -- Add Context values to the list
3541 hz_event_pkg.AddParamEnvToList(l_list);
3542 l_param := WF_PARAMETER_T( NULL, NULL );
3543
3544 -- fill the parameters list
3545 l_list.extend;
3546 l_param.SetName('BILLING_PREFERENCES_ID');
3547 l_param.SetValue(P_BILLING_PREFERENCES_REC.BILLING_PREFERENCES_ID);
3548 l_list(l_list.last) := l_param;
3549
3550 -- Raise Event
3551 hz_event_pkg.raise_event( p_event_name => l_event_name
3552 ,p_event_key => l_key
3553 ,p_parameters => l_list);
3554 l_list.DELETE;
3555
3556
3557 END IF;
3558 EXCEPTION
3559 WHEN OTHERS THEN
3560 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3561 fnd_message.set_token('ERROR' ,SQLERRM);
3562 fnd_msg_pub.add;
3563 ROLLBACK TO create_bill_pref_event;
3564 END create_bill_pref_event;
3565
3566
3567 PROCEDURE update_bill_pref_event
3568 ( p_billing_preferences_rec IN HZ_CUST_ACCT_INFO_PUB.BILLING_PREFERENCES_REC_TYPE)
3569 IS
3570 l_list wf_parameter_list_t;
3571 l_param wf_parameter_t;
3572 l_key varchar2(240);
3573 l_yn varchar2(1);
3574 l_event_name varchar2(240) := 'oracle.apps.ar.hz.BillingPreference.update';
3575 BEGIN
3576 SAVEPOINT update_bill_pref_event;
3577 -- Raise Event ONLY if profile is set to 'Y'.
3578 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3579 -- delete from HZ_PARAMS exists.
3580
3581
3582 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3583 -- commenting the following line as part of bug4369710 fix
3584 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
3585
3586 --Get the item key
3587 l_key := HZ_EVENT_PKG.item_key(l_event_name);
3588 -- commenting the following line as part of bug4369710 fix
3589
3590 IF l_yn = 'Y' THEN
3591 --Set Parameter
3592 hz_param_pkg.setparameter(l_key, p_billing_preferences_rec, 'NEW');
3593 END IF;
3594
3595 -- initialization of object variables
3596 l_list := wf_parameter_list_t();
3597
3598 -- Add Context values to the list
3599 hz_event_pkg.AddParamEnvToList(l_list);
3600 l_param := WF_PARAMETER_T( NULL, NULL );
3601
3602 -- fill the parameters list
3603 l_list.extend;
3604 l_param.SetName('BILLING_PREFERENCES_ID');
3605 l_param.SetValue(P_BILLING_PREFERENCES_REC.BILLING_PREFERENCES_ID);
3606 l_list(l_list.last) := l_param;
3607
3608 -- Raise Event
3609 hz_event_pkg.raise_event( p_event_name => l_event_name
3610 ,p_event_key => l_key
3611 ,p_parameters => l_list);
3612 l_list.DELETE;
3613
3614 END IF;
3615 EXCEPTION
3616 WHEN OTHERS THEN
3620 ROLLBACK TO update_bill_pref_event;
3617 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3618 fnd_message.set_token('ERROR' ,SQLERRM);
3619 fnd_msg_pub.add;
3621 END update_bill_pref_event;
3622
3623
3624 PROCEDURE create_bank_acct_uses_event
3625 ( p_bank_acct_uses_rec IN HZ_CUST_ACCT_INFO_PUB.BANK_ACCT_USES_REC_TYPE )
3626 IS
3627 l_list wf_parameter_list_t;
3628 l_param wf_parameter_t;
3629 l_key varchar2(240);
3630 l_yn varchar2(1);
3631 l_event_name varchar2(240) := 'oracle.apps.ar.hz.BankAccountUse.create';
3632 BEGIN
3633 SAVEPOINT create_bank_acct_uses_event;
3634 -- Raise Event ONLY if profile is set to 'Y'.
3635 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3636 -- delete from HZ_PARAMS exists.
3637
3638
3639 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3640 -- commenting the following line as part of bug4369710 fix
3641 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
3642
3643 --Get the item key
3644 l_key := HZ_EVENT_PKG.item_key(l_event_name);
3645 -- commenting the following line as part of bug4369710 fix
3646
3647 IF l_yn = 'Y' THEN
3648 --Set Parameter
3649 hz_param_pkg.setparameter(l_key, p_bank_acct_uses_rec, 'NEW');
3650 END IF;
3651
3652 -- initialization of object variables
3653 l_list := wf_parameter_list_t();
3654
3655 -- Add Context values to the list
3656 hz_event_pkg.AddParamEnvToList(l_list);
3657 l_param := WF_PARAMETER_T( NULL, NULL );
3658
3659 -- fill the parameters list
3660 l_list.extend;
3661 l_param.SetName('BANK_ACCOUNT_USES_ID');
3662 l_param.SetValue(P_BANK_ACCT_USES_REC.BANK_ACCOUNT_USES_ID);
3663 l_list(l_list.last) := l_param;
3664
3665 -- Raise Event
3666 hz_event_pkg.raise_event( p_event_name => l_event_name
3667 ,p_event_key => l_key
3668 ,p_parameters => l_list);
3669 l_list.DELETE;
3670
3671 END IF;
3672 EXCEPTION
3673 WHEN OTHERS THEN
3674 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3675 fnd_message.set_token('ERROR' ,SQLERRM);
3676 fnd_msg_pub.add;
3677 ROLLBACK TO create_bank_acct_uses_event;
3678 END create_bank_acct_uses_event;
3679
3680
3681 PROCEDURE update_bank_acct_uses_event
3682 ( p_bank_acct_uses_rec IN HZ_CUST_ACCT_INFO_PUB.BANK_ACCT_USES_REC_TYPE )
3683 IS
3684 l_list wf_parameter_list_t;
3685 l_param wf_parameter_t;
3686 l_key varchar2(240);
3687 l_yn varchar2(1);
3688 l_event_name varchar2(240) := 'oracle.apps.ar.hz.BankAccountUse.update';
3689 BEGIN
3690 SAVEPOINT update_bank_acct_uses_event;
3691 -- Raise Event ONLY if profile is set to 'Y'.
3692 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3693 -- delete from HZ_PARAMS exists.
3694
3695
3696 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3697 -- commenting the following line as part of bug4369710 fix
3698 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
3699
3700 --Get the item key
3701 l_key := HZ_EVENT_PKG.item_key(l_event_name);
3702 -- commenting the following line as part of bug4369710 fix
3703
3704 IF l_yn = 'Y' THEN
3705 --Set Parameter
3706 hz_param_pkg.setparameter(l_key, p_bank_acct_uses_rec, 'NEW');
3707 END IF;
3708
3709 -- initialization of object variables
3710 l_list := wf_parameter_list_t();
3711
3712 -- Add Context values to the list
3713 hz_event_pkg.AddParamEnvToList(l_list);
3714 l_param := WF_PARAMETER_T( NULL, NULL );
3715
3716 -- fill the parameters list
3717 l_list.extend;
3718 l_param.SetName('BANK_ACCOUNT_USES_ID');
3719 l_param.SetValue(P_BANK_ACCT_USES_REC.BANK_ACCOUNT_USES_ID);
3720 l_list(l_list.last) := l_param;
3721
3722 -- Raise Event
3723 hz_event_pkg.raise_event( p_event_name => l_event_name
3724 ,p_event_key => l_key
3725 ,p_parameters => l_list);
3726 l_list.DELETE;
3727
3728 END IF;
3729 EXCEPTION
3730 WHEN OTHERS THEN
3731 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3732 fnd_message.set_token('ERROR' ,SQLERRM);
3733 fnd_msg_pub.add;
3734 ROLLBACK TO create_bank_acct_uses_event;
3735 END update_bank_acct_uses_event;
3736
3737
3738 PROCEDURE create_suspension_act_event
3739 ( p_suspension_activity_rec IN HZ_CUST_ACCT_INFO_PUB.SUSPENSION_ACTIVITY_REC_TYPE )
3740 IS
3741 l_list wf_parameter_list_t;
3742 l_param wf_parameter_t;
3743 l_key varchar2(240);
3744 l_yn varchar2(1);
3745 l_event_name varchar2(240) := 'oracle.apps.ar.hz.SuspensionActivity.create';
3746 BEGIN
3747 SAVEPOINT create_suspension_act_event;
3748 -- Raise Event ONLY if profile is set to 'Y'.
3749 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3750 -- delete from HZ_PARAMS exists.
3751
3752
3753 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3754 -- commenting the following line as part of bug4369710 fix
3755 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
3756
3757 --Get the item key
3758 l_key := HZ_EVENT_PKG.item_key(l_event_name);
3759 -- commenting the following line as part of bug4369710 fix
3760
3761 IF l_yn = 'Y' THEN
3762 --Set Parameter
3766 -- initialization of object variables
3763 hz_param_pkg.setparameter(l_key, p_suspension_activity_rec, 'NEW');
3764 END IF;
3765
3767 l_list := wf_parameter_list_t();
3768
3769 -- Add Context values to the list
3770 hz_event_pkg.AddParamEnvToList(l_list);
3771 l_param := WF_PARAMETER_T( NULL, NULL );
3772
3773 -- fill the parameters list
3774 l_list.extend;
3775 l_param.SetName('SUSPENSION_ACTIVITY_ID');
3776 l_param.SetValue(P_SUSPENSION_ACTIVITY_REC.SUSPENSION_ACTIVITY_ID);
3777 l_list(l_list.last) := l_param;
3778
3779 -- Raise Event
3780 hz_event_pkg.raise_event( p_event_name => l_event_name
3781 ,p_event_key => l_key
3782 ,p_parameters => l_list);
3783 l_list.DELETE;
3784
3785 END IF;
3786 EXCEPTION
3787 WHEN OTHERS THEN
3788 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3789 fnd_message.set_token('ERROR' ,SQLERRM);
3790 fnd_msg_pub.add;
3791 ROLLBACK TO create_suspension_act_event;
3792 END create_suspension_act_event;
3793
3794
3795 PROCEDURE update_suspension_act_event
3796 ( p_suspension_activity_rec IN HZ_CUST_ACCT_INFO_PUB.SUSPENSION_ACTIVITY_REC_TYPE )
3797 IS
3798 l_list wf_parameter_list_t;
3799 l_param wf_parameter_t;
3800 l_key varchar2(240);
3801 l_yn varchar2(1);
3802 l_event_name varchar2(240) := 'oracle.apps.ar.hz.SuspensionActivity.update';
3803 BEGIN
3804 SAVEPOINT update_suspension_act_event;
3805 -- Raise Event ONLY if profile is set to 'Y'.
3806 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3807 -- delete from HZ_PARAMS exists.
3808
3809
3810 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3811 -- commenting the following line as part of bug4369710 fix
3812 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
3813
3814 --Get the item key
3815 l_key := HZ_EVENT_PKG.item_key(l_event_name);
3816
3817 IF l_yn = 'Y' THEN
3818 --Set Parameter
3819 hz_param_pkg.setparameter(l_key, p_suspension_activity_rec, 'NEW');
3820 END IF;
3821
3822 -- initialization of object variables
3823 l_list := wf_parameter_list_t();
3824
3825 -- Add Context values to the list
3826 hz_event_pkg.AddParamEnvToList(l_list);
3827 l_param := WF_PARAMETER_T( NULL, NULL );
3828
3829 -- fill the parameters list
3830 l_list.extend;
3831 l_param.SetName('SUSPENSION_ACTIVITY_ID');
3832 l_param.SetValue(P_SUSPENSION_ACTIVITY_REC.SUSPENSION_ACTIVITY_ID);
3833 l_list(l_list.last) := l_param;
3834
3835 -- Raise Event
3836 hz_event_pkg.raise_event( p_event_name => l_event_name
3837 ,p_event_key => l_key
3838 ,p_parameters => l_list);
3839 l_list.DELETE;
3840
3841 END IF;
3842 EXCEPTION
3843 WHEN OTHERS THEN
3844 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3845 fnd_message.set_token('ERROR' ,SQLERRM);
3846 fnd_msg_pub.add;
3847 ROLLBACK TO update_suspension_act_event;
3848 END update_suspension_act_event;
3849
3850 Bug No : 4580024 */
3851
3852 -- HZ_ORG_INFO_PUB
3853
3854 PROCEDURE create_stock_markets_event
3855 ( p_stock_markets_rec IN HZ_ORG_INFO_PUB.STOCK_MARKETS_REC_TYPE )
3856 IS
3857 l_list wf_parameter_list_t;
3858 l_param wf_parameter_t;
3859 l_key varchar2(240);
3860 l_yn varchar2(1);
3861 l_event_name varchar2(240) := 'oracle.apps.ar.hz.StockMarket.create';
3862 BEGIN
3863 SAVEPOINT create_stock_markets_event;
3864
3865 -- Raise Event ONLY if profile is set to 'Y'.
3866 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3867 -- delete from HZ_PARAMS exists.
3868
3869
3870 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3871 -- commenting the following line as part of bug4369710 fix
3872 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
3873
3874 --Get the item key
3875 l_key := HZ_EVENT_PKG.item_key(l_event_name);
3876 -- commenting the following line as part of bug4369710 fix
3877 /*
3878 IF l_yn = 'Y' THEN
3879 --Set Parameter
3880 hz_param_pkg.setparameter(l_key, p_stock_markets_rec, 'NEW');
3881 END IF;
3882 */
3883 -- initialization of object variables
3884 l_list := wf_parameter_list_t();
3885
3886 -- Add Context values to the list
3887 hz_event_pkg.AddParamEnvToList(l_list);
3888 l_param := WF_PARAMETER_T( NULL, NULL );
3889
3890 -- fill the parameters list
3891 l_list.extend;
3892 l_param.SetName('STOCK_EXCHANGE_ID');
3893 l_param.SetValue(P_STOCK_MARKETS_REC.STOCK_EXCHANGE_ID);
3894 l_list(l_list.last) := l_param;
3895
3896 -- Raise Event
3897 hz_event_pkg.raise_event( p_event_name => l_event_name
3898 ,p_event_key => l_key
3899 ,p_parameters => l_list);
3900 l_list.DELETE;
3901
3902 END IF;
3903 EXCEPTION
3904 WHEN OTHERS THEN
3905 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3906 fnd_message.set_token('ERROR' ,SQLERRM);
3907 fnd_msg_pub.add;
3908 ROLLBACK TO create_stock_markets_event;
3909
3910 END create_stock_markets_event;
3911
3915 IS
3912
3913 PROCEDURE update_stock_markets_event
3914 ( p_stock_markets_rec IN HZ_ORG_INFO_PUB.STOCK_MARKETS_REC_TYPE )
3916 l_list wf_parameter_list_t;
3917 l_param wf_parameter_t;
3918 l_key varchar2(240);
3919 l_yn varchar2(1);
3920 l_event_name varchar2(240) := 'oracle.apps.ar.hz.StockMarket.update';
3921 BEGIN
3922 SAVEPOINT update_stock_markets_event;
3923 -- Raise Event ONLY if profile is set to 'Y'.
3924 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3925 -- delete from HZ_PARAMS exists.
3926
3927
3928 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3929 -- commenting the following line as part of bug4369710 fix
3930 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
3931
3932 --Get the item key
3933 l_key := HZ_EVENT_PKG.item_key(l_event_name);
3934 -- commenting the following line as part of bug4369710 fix
3935 /*
3936 IF l_yn = 'Y' THEN
3937 --Set Parameter
3938 hz_param_pkg.setparameter(l_key, p_stock_markets_rec, 'NEW');
3939 END IF;
3940 */
3941 -- initialization of object variables
3942 l_list := wf_parameter_list_t();
3943
3944 -- Add Context values to the list
3945 hz_event_pkg.AddParamEnvToList(l_list);
3946 l_param := WF_PARAMETER_T( NULL, NULL );
3947
3948 -- fill the parameters list
3949 l_list.extend;
3950 l_param.SetName('STOCK_EXCHANGE_ID');
3951 l_param.SetValue(P_STOCK_MARKETS_REC.STOCK_EXCHANGE_ID);
3952 l_list(l_list.last) := l_param;
3953
3954 -- Raise Event
3955 hz_event_pkg.raise_event( p_event_name => l_event_name
3956 ,p_event_key => l_key
3957 ,p_parameters => l_list);
3958 l_list.DELETE;
3959
3960 END IF;
3961 EXCEPTION
3962 WHEN OTHERS THEN
3963 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3964 fnd_message.set_token('ERROR' ,SQLERRM);
3965 fnd_msg_pub.add;
3966 ROLLBACK TO update_stock_markets_event;
3967
3968 END update_stock_markets_event;
3969
3970
3971 PROCEDURE create_sec_issued_event
3972 ( p_security_issued_rec IN HZ_ORG_INFO_PUB.SECURITY_ISSUED_REC_TYPE )
3973 IS
3974 l_list wf_parameter_list_t;
3975 l_param wf_parameter_t;
3976 l_key varchar2(240);
3977 l_yn varchar2(1);
3978 l_event_name varchar2(240) := 'oracle.apps.ar.hz.SecurityIssued.create';
3979 BEGIN
3980 SAVEPOINT create_sec_issued_event;
3981 -- Raise Event ONLY if profile is set to 'Y'.
3982 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
3983 -- delete from HZ_PARAMS exists.
3984
3985
3986 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
3987 -- commenting the following line as part of bug4369710 fix
3988 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
3989
3990 --Get the item key
3991 l_key := HZ_EVENT_PKG.item_key(l_event_name);
3992 -- commenting the following line as part of bug4369710 fix
3993 /*
3994 IF l_yn = 'Y' THEN
3995 --Set Parameter
3996 hz_param_pkg.setparameter(l_key, p_security_issued_rec, 'NEW');
3997 END IF;
3998 */
3999 -- initialization of object variables
4000 l_list := wf_parameter_list_t();
4001
4002 -- Add Context values to the list
4003 hz_event_pkg.AddParamEnvToList(l_list);
4004 l_param := WF_PARAMETER_T( NULL, NULL );
4005
4006 -- fill the parameters list
4007 l_list.extend;
4008 l_param.SetName('SECURITY_ISSUED_ID');
4009 l_param.SetValue(P_SECURITY_ISSUED_REC.SECURITY_ISSUED_ID);
4010 l_list(l_list.last) := l_param;
4011
4012 -- Raise Event
4013 hz_event_pkg.raise_event( p_event_name => l_event_name
4014 ,p_event_key => l_key
4015 ,p_parameters => l_list);
4016 l_list.DELETE;
4017
4018 END IF;
4019 EXCEPTION
4020 WHEN OTHERS THEN
4021 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4022 fnd_message.set_token('ERROR' ,SQLERRM);
4023 fnd_msg_pub.add;
4024 ROLLBACK TO create_sec_issued_event;
4025
4026 END create_sec_issued_event;
4027
4028
4029 PROCEDURE update_sec_issued_event
4030 ( p_security_issued_rec IN HZ_ORG_INFO_PUB.SECURITY_ISSUED_REC_TYPE )
4031 IS
4032 l_list wf_parameter_list_t;
4033 l_param wf_parameter_t;
4034 l_key varchar2(240);
4035 l_yn varchar2(1);
4036 l_event_name varchar2(240) := 'oracle.apps.ar.hz.SecurityIssued.update';
4037 BEGIN
4038 SAVEPOINT update_sec_issued_event;
4039 -- Raise Event ONLY if profile is set to 'Y'.
4040 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4041 -- delete from HZ_PARAMS exists.
4042
4043
4044 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4045 -- commenting the following line as part of bug4369710 fix
4046 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4047
4048 --Get the item key
4049 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4050 -- commenting the following line as part of bug4369710 fix
4051 /*
4052 IF l_yn = 'Y' THEN
4053 --Set Parameter
4054 hz_param_pkg.setparameter(l_key, p_security_issued_rec, 'NEW');
4055 END IF;
4056 */
4057 -- initialization of object variables
4058 l_list := wf_parameter_list_t();
4059
4063
4060 -- Add Context values to the list
4061 hz_event_pkg.AddParamEnvToList(l_list);
4062 l_param := WF_PARAMETER_T( NULL, NULL );
4064 -- fill the parameters list
4065 l_list.extend;
4066 l_param.SetName('SECURITY_ISSUED_ID');
4067 l_param.SetValue(P_SECURITY_ISSUED_REC.SECURITY_ISSUED_ID);
4068 l_list(l_list.last) := l_param;
4069
4070 -- Raise Event
4071 hz_event_pkg.raise_event( p_event_name => l_event_name
4072 ,p_event_key => l_key
4073 ,p_parameters => l_list);
4074 l_list.DELETE;
4075
4076 END IF;
4077 EXCEPTION
4078 WHEN OTHERS THEN
4079 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4080 fnd_message.set_token('ERROR' ,SQLERRM);
4081 fnd_msg_pub.add;
4082 ROLLBACK TO update_sec_issued_event;
4083
4084 END update_sec_issued_event;
4085
4086 PROCEDURE create_fin_reports_event
4087 ( p_financial_reports_rec IN HZ_ORGANIZATION_INFO_V2PUB.FINANCIAL_REPORT_REC_TYPE )
4088 IS
4089 l_list wf_parameter_list_t;
4090 l_param wf_parameter_t;
4091 l_key varchar2(240);
4092 l_yn varchar2(1);
4093 l_event_name varchar2(240) := 'oracle.apps.ar.hz.FinancialReport.create';
4094 BEGIN
4095 SAVEPOINT create_fin_reports_event;
4096
4097 -- Raise Event ONLY if profile is set to 'Y'.
4098 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4099 -- delete from HZ_PARAMS exists.
4100
4101
4102 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4103 -- commenting the following line as part of bug4369710 fix
4104 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4105
4106 --Get the item key
4107 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4108 -- commenting the following line as part of bug4369710 fix
4109 /*
4110 IF l_yn = 'Y' THEN
4111 --Set Parameter
4112 hz_param_pkg.setparameter(l_key, p_financial_reports_rec, 'NEW');
4113 END IF;
4114 */
4115 -- initialization of object variables
4116 l_list := wf_parameter_list_t();
4117
4118 -- Add Context values to the list
4119 hz_event_pkg.AddParamEnvToList(l_list);
4120 l_param := WF_PARAMETER_T( NULL, NULL );
4121
4122 -- fill the parameters list
4123 l_list.extend;
4124 l_param.SetName('FINANCIAL_REPORT_ID');
4125 l_param.SetValue(P_FINANCIAL_REPORTS_REC.FINANCIAL_REPORT_ID);
4126 l_list(l_list.last) := l_param;
4127
4128 -- Raise Event
4129 hz_event_pkg.raise_event( p_event_name => l_event_name
4130 ,p_event_key => l_key
4131 ,p_parameters => l_list);
4132 l_list.DELETE;
4133
4134 END IF;
4135 EXCEPTION
4136 WHEN OTHERS THEN
4137 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4138 fnd_message.set_token('ERROR' ,SQLERRM);
4139 fnd_msg_pub.add;
4140 ROLLBACK TO create_fin_reports_event;
4141
4142 END create_fin_reports_event;
4143
4144
4145 PROCEDURE update_fin_reports_event
4146 ( p_financial_reports_rec IN HZ_ORGANIZATION_INFO_V2PUB.FINANCIAL_REPORT_REC_TYPE,
4147 p_old_financial_reports_rec IN HZ_ORGANIZATION_INFO_V2PUB.FINANCIAL_REPORT_REC_TYPE )
4148 IS
4149 l_list wf_parameter_list_t;
4150 l_param wf_parameter_t;
4151 l_key varchar2(240);
4152 l_yn varchar2(1);
4153 l_event_name varchar2(240) := 'oracle.apps.ar.hz.FinancialReport.update';
4154 BEGIN
4155 SAVEPOINT update_fin_reports_event;
4156 -- Raise Event ONLY if profile is set to 'Y'.
4157 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4158 -- delete from HZ_PARAMS exists.
4159
4160
4161 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4162 -- commenting the following line as part of bug4369710 fix
4163 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4164
4165 --Get the item key
4166 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4167 -- commenting the following line as part of bug4369710 fix
4168 /*
4169 IF l_yn = 'Y' THEN
4170 --Set Parameter
4171 hz_param_pkg.setparameter(l_key, p_financial_reports_rec, 'NEW');
4172 hz_param_pkg.setparameter(l_key, p_old_financial_reports_rec, 'OLD');
4173 END IF;
4174 */
4175 -- initialization of object variables
4176 l_list := wf_parameter_list_t();
4177
4178 -- Add Context values to the list
4179 hz_event_pkg.AddParamEnvToList(l_list);
4180 l_param := WF_PARAMETER_T( NULL, NULL );
4181
4182 -- fill the parameters list
4183 l_list.extend;
4184 l_param.SetName('FINANCIAL_REPORT_ID');
4185 l_param.SetValue(P_FINANCIAL_REPORTS_REC.FINANCIAL_REPORT_ID);
4186 l_list(l_list.last) := l_param;
4187
4188 -- Raise Event
4189 hz_event_pkg.raise_event( p_event_name => l_event_name
4190 ,p_event_key => l_key
4191 ,p_parameters => l_list);
4192 l_list.DELETE;
4193
4194 END IF;
4195 EXCEPTION
4196 WHEN OTHERS THEN
4197 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4198 fnd_message.set_token('ERROR' ,SQLERRM);
4199 fnd_msg_pub.add;
4200 ROLLBACK TO update_fin_reports_event;
4201
4202 END update_fin_reports_event;
4203
4204
4205 PROCEDURE create_fin_numbers_event
4209 l_param wf_parameter_t;
4206 ( p_financial_numbers_rec IN HZ_ORGANIZATION_INFO_V2PUB.FINANCIAL_NUMBER_REC_TYPE )
4207 IS
4208 l_list wf_parameter_list_t;
4210 l_key varchar2(240);
4211 l_yn varchar2(1);
4212 l_event_name varchar2(240) := 'oracle.apps.ar.hz.FinancialNumber.create';
4213 BEGIN
4214 -- Raise Event ONLY if profile is set to 'Y'.
4215 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4216 -- delete from HZ_PARAMS exists.
4217
4218
4219 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4220
4221 -- commenting the following line as part of bug4369710 fix
4222 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4223
4224 --Get the item key
4225 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4226 -- commenting the following line as part of bug4369710 fix
4227 /*
4228 IF l_yn = 'Y' THEN
4229 --Set Parameter
4230 hz_param_pkg.setparameter(l_key, p_financial_numbers_rec, 'NEW');
4231 END IF;
4232 */
4233 -- initialization of object variables
4234 l_list := wf_parameter_list_t();
4235
4236 -- Add Context values to the list
4237 hz_event_pkg.AddParamEnvToList(l_list);
4238 l_param := WF_PARAMETER_T( NULL, NULL );
4239
4240 -- fill the parameters list
4241 l_list.extend;
4242 l_param.SetName('FINANCIAL_NUMBER_ID');
4243 l_param.SetValue(P_FINANCIAL_NUMBERS_REC.FINANCIAL_NUMBER_ID);
4244 l_list(l_list.last) := l_param;
4245
4246 -- Raise Event
4247 hz_event_pkg.raise_event( p_event_name => l_event_name
4248 ,p_event_key => l_key
4249 ,p_parameters => l_list);
4250 l_list.DELETE;
4251
4252 END IF;
4253 EXCEPTION
4254 WHEN OTHERS THEN
4255 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4256 fnd_message.set_token('ERROR' ,SQLERRM);
4257 fnd_msg_pub.add;
4258 ROLLBACK TO create_fin_numbers_event;
4259
4260 END create_fin_numbers_event;
4261
4262
4263 PROCEDURE update_fin_numbers_event
4264 ( p_financial_numbers_rec IN HZ_ORGANIZATION_INFO_V2PUB.FINANCIAL_NUMBER_REC_TYPE ,
4265 p_old_financial_numbers_rec IN HZ_ORGANIZATION_INFO_V2PUB.FINANCIAL_NUMBER_REC_TYPE )
4266 IS
4267 l_list wf_parameter_list_t;
4268 l_param wf_parameter_t;
4269 l_key varchar2(240);
4270 l_yn varchar2(1);
4271 l_event_name varchar2(240) := 'oracle.apps.ar.hz.FinancialNumber.update';
4272 BEGIN
4273 SAVEPOINT update_fin_numbers_events;
4274 -- Raise Event ONLY if profile is set to 'Y'.
4275 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4276 -- delete from HZ_PARAMS exists.
4277
4278
4279 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4280 -- commenting the following line as part of bug4369710 fix
4281 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4282
4283 --Get the item key
4284 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4285 -- commenting the following line as part of bug4369710 fix
4286 /*
4287 IF l_yn = 'Y' THEN
4288 --Set Parameter
4289 hz_param_pkg.setparameter(l_key, p_financial_numbers_rec, 'NEW');
4290 hz_param_pkg.setparameter(l_key, p_old_financial_numbers_rec, 'OLD');
4291 END IF;
4292 */
4293 -- initialization of object variables
4294 l_list := wf_parameter_list_t();
4295
4296 -- Add Context values to the list
4297 hz_event_pkg.AddParamEnvToList(l_list);
4298 l_param := WF_PARAMETER_T( NULL, NULL );
4299
4300 -- fill the parameters list
4301 l_list.extend;
4302 l_param.SetName('FINANCIAL_NUMBER_ID');
4303 l_param.SetValue(P_FINANCIAL_NUMBERS_REC.FINANCIAL_NUMBER_ID);
4304 l_list(l_list.last) := l_param;
4305
4306 -- Raise Event
4307 hz_event_pkg.raise_event( p_event_name => l_event_name
4308 ,p_event_key => l_key
4309 ,p_parameters => l_list);
4310 l_list.DELETE;
4311
4312 END IF;
4313 EXCEPTION
4314 WHEN OTHERS THEN
4315 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4316 fnd_message.set_token('ERROR' ,SQLERRM);
4317 fnd_msg_pub.add;
4318 ROLLBACK TO update_fin_numbers_event;
4319 END update_fin_numbers_event;
4320
4321
4322 PROCEDURE create_certifications_event
4323 ( p_certifications_rec IN HZ_ORG_INFO_PUB.CERTIFICATIONS_REC_TYPE )
4324 IS
4325 l_list wf_parameter_list_t;
4326 l_param wf_parameter_t;
4327 l_key varchar2(240);
4328 l_yn varchar2(1);
4329 l_event_name varchar2(240) := 'oracle.apps.ar.hz.Certification.create';
4330 BEGIN
4331 SAVEPOINT create_certifications_event;
4332
4333 -- Raise Event ONLY if profile is set to 'Y'.
4334 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4335 -- delete from HZ_PARAMS exists.
4336
4337
4338 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4339 -- commenting the following line as part of bug4369710 fix
4340 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4341
4342 --Get the item key
4343 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4344 -- commenting the following line as part of bug4369710 fix
4345 /*
4346 IF l_yn = 'Y' THEN
4347 --Set Parameter
4351 -- initialization of object variables
4348 hz_param_pkg.setparameter(l_key, p_certifications_rec, 'NEW');
4349 END IF;
4350 */
4352 l_list := wf_parameter_list_t();
4353
4354 -- Add Context values to the list
4355 hz_event_pkg.AddParamEnvToList(l_list);
4356 l_param := WF_PARAMETER_T( NULL, NULL );
4357
4358 -- fill the parameters list
4359 l_list.extend;
4360 l_param.SetName('CERTIFICATION_ID');
4361 l_param.SetValue(P_CERTIFICATIONS_REC.CERTIFICATION_ID);
4362 l_list(l_list.last) := l_param;
4363
4364 -- Raise Event
4365 hz_event_pkg.raise_event( p_event_name => l_event_name
4366 ,p_event_key => l_key
4367 ,p_parameters => l_list);
4368 l_list.DELETE;
4369
4370 END IF;
4371 EXCEPTION
4372 WHEN OTHERS THEN
4373 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4374 fnd_message.set_token('ERROR' ,SQLERRM);
4375 fnd_msg_pub.add;
4376 ROLLBACK TO create_certifications_event;
4377 END create_certifications_event;
4378
4379
4380 PROCEDURE update_certifications_event
4381 ( p_certifications_rec IN HZ_ORG_INFO_PUB.CERTIFICATIONS_REC_TYPE )
4382 IS
4383 l_list wf_parameter_list_t;
4384 l_param wf_parameter_t;
4385 l_key varchar2(240);
4386 l_yn varchar2(1);
4387 l_event_name varchar2(240) := 'oracle.apps.ar.hz.Certification.update';
4388 BEGIN
4389 SAVEPOINT update_certifications_event;
4390
4391 -- Raise Event ONLY if profile is set to 'Y'.
4392 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4393 -- delete from HZ_PARAMS exists.
4394
4395
4396 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4397 -- commenting the following line as part of bug4369710 fix
4398 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4399
4400 --Get the item key
4401 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4402 -- commenting the following line as part of bug4369710 fix
4403 /*
4404 IF l_yn = 'Y' THEN
4405 --Set Parameter
4406 hz_param_pkg.setparameter(l_key, p_certifications_rec, 'NEW');
4407 END IF;
4408 */
4409 -- initialization of object variables
4410 l_list := wf_parameter_list_t();
4411
4412 -- Add Context values to the list
4413 hz_event_pkg.AddParamEnvToList(l_list);
4414 l_param := WF_PARAMETER_T( NULL, NULL );
4415
4416 -- fill the parameters list
4417 l_list.extend;
4418 l_param.SetName('CERTIFICATION_ID');
4419 l_param.SetValue(P_CERTIFICATIONS_REC.CERTIFICATION_ID);
4420 l_list(l_list.last) := l_param;
4421
4422 -- Raise Event
4423 hz_event_pkg.raise_event( p_event_name => l_event_name
4424 ,p_event_key => l_key
4425 ,p_parameters => l_list);
4426 l_list.DELETE;
4427
4428 END IF;
4429 EXCEPTION
4430 WHEN OTHERS THEN
4431 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4432 fnd_message.set_token('ERROR' ,SQLERRM);
4433 fnd_msg_pub.add;
4434 ROLLBACK TO update_certifications_event;
4435 END update_certifications_event;
4436
4437 -- HZ_PERSON_INFO_V2PUB
4438
4439 PROCEDURE create_person_interest_event
4440 (p_per_interest_rec IN HZ_PERSON_INFO_V2PUB.PERSON_INTEREST_REC_TYPE)
4441 IS
4442 l_list wf_parameter_list_t;
4443 l_param wf_parameter_t;
4444 l_key varchar2(240);
4445 l_yn varchar2(1);
4446 l_event_name varchar2(240) := 'oracle.apps.ar.hz.PersonInterest.create';
4447 BEGIN
4448 SAVEPOINT create_per_interest_event;
4449 -- Raise Event ONLY if profile is set to 'Y'.
4450 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4451 -- delete from HZ_PARAMS exists.
4452
4453
4454 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4455 -- commenting the following line as part of bug4369710 fix
4456 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4457
4458 --Get the item key
4459 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4460 -- commenting the following line as part of bug4369710 fix
4461 /*
4462 IF l_yn = 'Y' THEN
4463 --Set Parameter
4464 hz_param_pkg.setparameter(l_key, p_per_interest_rec, 'NEW');
4465 END IF;
4466 */
4467 -- initialization of object variables
4468 l_list := wf_parameter_list_t();
4469
4470 -- Add Context values to the list
4471 hz_event_pkg.AddParamEnvToList(l_list);
4472 l_param := WF_PARAMETER_T( NULL, NULL );
4473
4474 -- fill the parameters list
4475 l_list.extend;
4476 l_param.SetName('PERSON_INTEREST_ID');
4477 l_param.SetValue(P_PER_INTEREST_REC.PERSON_INTEREST_ID);
4478 l_list(l_list.last) := l_param;
4479
4480 -- Raise Event
4481 hz_event_pkg.raise_event( p_event_name => l_event_name
4482 ,p_event_key => l_key
4483 ,p_parameters => l_list);
4484 l_list.DELETE;
4485
4486 END IF;
4487 EXCEPTION
4488 WHEN OTHERS THEN
4489 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4490 fnd_message.set_token('ERROR' ,SQLERRM);
4491 fnd_msg_pub.add;
4492 ROLLBACK TO create_per_interest_event;
4493
4494 END create_person_interest_event;
4495
4496
4500 )
4497 PROCEDURE update_person_interest_event
4498 (p_per_interest_rec IN HZ_PERSON_INFO_V2PUB.PERSON_INTEREST_REC_TYPE,
4499 p_old_per_interest_rec IN HZ_PERSON_INFO_V2PUB.PERSON_INTEREST_REC_TYPE
4501 IS
4502 l_list wf_parameter_list_t;
4503 l_param wf_parameter_t;
4504 l_key varchar2(240);
4505 l_yn varchar2(1);
4506 l_event_name varchar2(240) := 'oracle.apps.ar.hz.PersonInterest.update';
4507 BEGIN
4508 SAVEPOINT update_per_interest_event;
4509 -- Raise Event ONLY if profile is set to 'Y'.
4510 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4511 -- delete from HZ_PARAMS exists.
4512
4513
4514 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4515 -- commenting the following line as part of bug4369710 fix
4516 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4517
4518 --Get the item key
4519 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4520 -- commenting the following line as part of bug4369710 fix
4521 /*
4522 IF l_yn = 'Y' THEN
4523 --Set Parameter
4524 hz_param_pkg.setparameter(l_key, p_per_interest_rec, 'NEW');
4525 hz_param_pkg.setparameter(l_key, p_old_per_interest_rec, 'OLD');
4526 END IF;
4527 */
4528 -- initialization of object variables
4529 l_list := wf_parameter_list_t();
4530
4531 -- Add Context values to the list
4532 hz_event_pkg.AddParamEnvToList(l_list);
4533 l_param := WF_PARAMETER_T( NULL, NULL );
4534
4535 -- fill the parameters list
4536 l_list.extend;
4537 l_param.SetName('PERSON_INTEREST_ID');
4538 l_param.SetValue(P_PER_INTEREST_REC.PERSON_INTEREST_ID);
4539 l_list(l_list.last):= l_param;
4540
4541 -- Raise Event
4542 hz_event_pkg.raise_event( p_event_name => l_event_name
4543 ,p_event_key => l_key
4544 ,p_parameters => l_list);
4545 l_list.DELETE;
4546
4547 END IF;
4548 EXCEPTION
4549 WHEN OTHERS THEN
4550 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4551 fnd_message.set_token('ERROR' ,SQLERRM);
4552 fnd_msg_pub.add;
4553 ROLLBACK TO update_per_interest_event;
4554
4555 END update_person_interest_event;
4556
4557
4558 PROCEDURE create_citizenship_event
4559 (p_citizenship_rec IN HZ_PERSON_INFO_V2PUB.CITIZENSHIP_REC_TYPE)
4560 IS
4561 l_list wf_parameter_list_t;
4562 l_param wf_parameter_t;
4563 l_key varchar2(240);
4564 l_yn varchar2(1);
4565 l_event_name varchar2(240) := 'oracle.apps.ar.hz.Citizenship.create';
4566 BEGIN
4567 SAVEPOINT create_citizenship_event;
4568 -- Raise Event ONLY if profile is set to 'Y'.
4569 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4570 -- delete from HZ_PARAMS exists.
4571
4572
4573 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4574 -- commenting the following line as part of bug4369710 fix
4575 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4576
4577 --Get the item key
4578 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4579 -- commenting the following line as part of bug4369710 fix
4580 /*
4581 IF l_yn = 'Y' THEN
4582 --Set Parameter
4583 hz_param_pkg.setparameter(l_key, p_citizenship_rec, 'NEW');
4584 END IF;
4585 */
4586 -- initialization of object variables
4587 l_list := wf_parameter_list_t();
4588
4589 -- Add Context values to the list
4590 hz_event_pkg.AddParamEnvToList(l_list);
4591 l_param := WF_PARAMETER_T( NULL, NULL );
4592
4593 -- fill the parameters list
4594 l_list.extend;
4595 l_param.SetName('CITIZENSHIP_ID');
4596 l_param.SetValue(P_CITIZENSHIP_REC.CITIZENSHIP_ID);
4597 l_list(l_list.last) := l_param;
4598
4599 -- Raise Event
4600 hz_event_pkg.raise_event( p_event_name => l_event_name
4601 ,p_event_key => l_key
4602 ,p_parameters => l_list);
4603 l_list.DELETE;
4604
4605 END IF;
4606 EXCEPTION
4607 WHEN OTHERS THEN
4608 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4609 fnd_message.set_token('ERROR' ,SQLERRM);
4610 fnd_msg_pub.add;
4611 ROLLBACK TO create_citizenship_event;
4612
4613 END create_citizenship_event;
4614
4615
4616
4617 PROCEDURE update_citizenship_event
4618 (p_citizenship_rec IN HZ_PERSON_INFO_V2PUB.CITIZENSHIP_REC_TYPE,
4619 p_old_citizenship_rec IN HZ_PERSON_INFO_V2PUB.CITIZENSHIP_REC_TYPE
4620 )
4621 IS
4622 l_list wf_parameter_list_t;
4623 l_param wf_parameter_t;
4624 l_key varchar2(240);
4625 l_yn varchar2(1);
4626 l_event_name varchar2(240) := 'oracle.apps.ar.hz.Citizenship.update';
4627 BEGIN
4628 SAVEPOINT update_citizenship_event;
4629 -- Raise Event ONLY if profile is set to 'Y'.
4630 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4631 -- delete from HZ_PARAMS exists.
4632
4633
4634 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4635 -- commenting the following line as part of bug4369710 fix
4636 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4637
4638 --Get the item key
4639 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4640 -- commenting the following line as part of bug4369710 fix
4641 /*
4642 IF l_yn = 'Y' THEN
4646 END IF;
4643 --Set Parameter
4644 hz_param_pkg.setparameter(l_key, p_citizenship_rec, 'NEW');
4645 hz_param_pkg.setparameter(l_key, p_old_citizenship_rec, 'OLD');
4647 */
4648 -- initialization of object variables
4649 l_list := wf_parameter_list_t();
4650
4651 -- Add Context values
4652 hz_event_pkg.AddParamEnvToList(l_list);
4653 l_param := WF_PARAMETER_T( NULL, NULL );
4654
4655 -- fill the parameters list
4656 l_list.extend;
4657 l_param.SetName('CITIZENSHIP_ID');
4658 l_param.SetValue(P_CITIZENSHIP_REC.CITIZENSHIP_ID);
4659 l_list(l_list.last) := l_param;
4660
4661 -- Raise Event
4662 hz_event_pkg.raise_event( p_event_name => l_event_name
4663 ,p_event_key => l_key
4664 ,p_parameters => l_list);
4665 l_list.DELETE;
4666
4667 END IF;
4668 EXCEPTION
4669 WHEN OTHERS THEN
4670 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4671 fnd_message.set_token('ERROR' ,SQLERRM);
4672 fnd_msg_pub.add;
4673 ROLLBACK TO update_citizenship_event;
4674
4675 END update_citizenship_event;
4676
4677 -- HZ_PERSON_INFO_V2PUB
4678
4679 PROCEDURE create_education_event
4680 (p_education_rec IN HZ_PERSON_INFO_V2PUB.EDUCATION_REC_TYPE)
4681 IS
4682 l_list wf_parameter_list_t;
4683 l_param wf_parameter_t;
4684 l_key varchar2(240);
4685 l_yn varchar2(1);
4686 l_event_name varchar2(240) := 'oracle.apps.ar.hz.Education.create';
4687 BEGIN
4688 SAVEPOINT create_education_event;
4689 -- Raise Event ONLY if profile is set to 'Y'.
4690 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4691 -- delete from HZ_PARAMS exists.
4692
4693
4694 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4695 -- commenting the following line as part of bug4369710 fix
4696 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4697
4698 --Get the item key
4699 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4700 -- commenting the following line as part of bug4369710 fix
4701 /*
4702 IF l_yn = 'Y' THEN
4703 --Set Parameter
4704 hz_param_pkg.setparameter(l_key, p_education_rec, 'NEW');
4705 END IF;
4706 */
4707 -- initialization of object variables
4708 l_list := wf_parameter_list_t();
4709
4710 -- Add Context values to the list
4711 hz_event_pkg.AddParamEnvToList(l_list);
4712 l_param := WF_PARAMETER_T( NULL, NULL );
4713
4714 -- fill the parameters list
4715 l_list.extend;
4716 l_param.SetName('EDUCATION_ID');
4717 l_param.SetValue(P_EDUCATION_REC.EDUCATION_ID);
4718 l_list(l_list.last) := l_param;
4719
4720 -- Raise Event
4721 hz_event_pkg.raise_event( p_event_name => l_event_name
4722 ,p_event_key => l_key
4723 ,p_parameters => l_list);
4724 l_list.DELETE;
4725
4726 END IF;
4727 EXCEPTION
4728 WHEN OTHERS THEN
4729 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4730 fnd_message.set_token('ERROR' ,SQLERRM);
4731 fnd_msg_pub.add;
4732 ROLLBACK TO create_education_event;
4733
4734 END create_education_event;
4735
4736
4737
4738 PROCEDURE update_education_event
4739 (p_education_rec IN HZ_PERSON_INFO_V2PUB.EDUCATION_REC_TYPE,
4740 p_old_education_rec IN HZ_PERSON_INFO_V2PUB.EDUCATION_REC_TYPE
4741 )
4742 IS
4743 l_list wf_parameter_list_t;
4744 l_param wf_parameter_t;
4745 l_key varchar2(240);
4746 l_yn varchar2(1);
4747 l_event_name varchar2(240) := 'oracle.apps.ar.hz.Education.update';
4748 BEGIN
4749 SAVEPOINT update_education_event;
4750 -- Raise Event ONLY if profile is set to 'Y'.
4751 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4752 -- delete from HZ_PARAMS exists.
4753
4754
4755 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4756 -- commenting the following line as part of bug4369710 fix
4757 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4758
4759 --Get the item key
4760 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4761 -- commenting the following line as part of bug4369710 fix
4762 /*
4763 IF l_yn = 'Y' THEN
4764 --Set Parameter
4765 hz_param_pkg.setparameter(l_key, p_education_rec, 'NEW');
4766 hz_param_pkg.setparameter(l_key, p_old_education_rec, 'OLD');
4767 END IF;
4768 */
4769 -- initialization of object variables
4770 l_list := wf_parameter_list_t();
4771
4772 -- Add Context values to the list
4773 hz_event_pkg.AddParamEnvToList(l_list);
4774 l_param := WF_PARAMETER_T( NULL, NULL );
4775
4776 -- fill the parameters list
4777 l_list.extend;
4778 l_param.SetName('EDUCATION_ID');
4779 l_param.SetValue(P_EDUCATION_REC.EDUCATION_ID);
4780 l_list(l_list.last) := l_param;
4781
4782 -- Raise Event
4783 hz_event_pkg.raise_event( p_event_name => l_event_name
4784 ,p_event_key => l_key
4785 ,p_parameters => l_list);
4786 l_list.DELETE;
4787
4788 END IF;
4789 EXCEPTION
4790 WHEN OTHERS THEN
4791 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4795
4792 fnd_message.set_token('ERROR' ,SQLERRM);
4793 fnd_msg_pub.add;
4794 ROLLBACK TO update_education_event;
4796 END update_education_event;
4797
4798 -- HZ_PERSON_INFO_V2PUB
4799
4800 PROCEDURE update_emp_history_event
4801 (p_emp_history_rec IN HZ_PERSON_INFO_V2PUB.EMPLOYMENT_HISTORY_REC_TYPE,
4802 p_old_emp_history_rec IN HZ_PERSON_INFO_V2PUB.EMPLOYMENT_HISTORY_REC_TYPE
4803 )
4804 IS
4805 l_list wf_parameter_list_t;
4806 l_param wf_parameter_t;
4807 l_key varchar2(240);
4808 l_yn varchar2(1);
4809 l_event_name varchar2(240) := 'oracle.apps.ar.hz.EmploymentHistory.update';
4810 BEGIN
4811 SAVEPOINT update_emp_history_event;
4812 -- Raise Event ONLY if profile is set to 'Y'.
4813 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4814 -- delete from HZ_PARAMS exists.
4815
4816
4817 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4818 -- commenting the following line as part of bug4369710 fix
4819 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4820
4821 --Get the item key
4822 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4823 -- commenting the following line as part of bug4369710 fix
4824 /*
4825 IF l_yn = 'Y' THEN
4826 --Set Parameter
4827 hz_param_pkg.setparameter(l_key, p_emp_history_rec , 'NEW');
4828 hz_param_pkg.setparameter(l_key, p_old_emp_history_rec , 'OLD');
4829 END IF;
4830 */
4831 -- initialization of object variables
4832 l_list := wf_parameter_list_t();
4833
4834 -- Add Context values to the list
4835 hz_event_pkg.AddParamEnvToList(l_list);
4836 l_param := WF_PARAMETER_T( NULL, NULL );
4837
4838 -- fill the parameters list
4839 l_list.extend;
4840 l_param.SetName('EMPLOYMENT_HISTORY_ID');
4841 l_param.SetValue(P_EMP_HISTORY_REC.EMPLOYMENT_HISTORY_ID);
4842 l_list(l_list.last) := l_param;
4843
4844 -- Raise Event
4845 hz_event_pkg.raise_event( p_event_name => l_event_name
4846 ,p_event_key => l_key
4847 ,p_parameters => l_list);
4848 l_list.DELETE;
4849
4850 END IF;
4851 EXCEPTION
4852 WHEN OTHERS THEN
4853 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4854 fnd_message.set_token('ERROR' ,SQLERRM);
4855 fnd_msg_pub.add;
4856 ROLLBACK TO update_emp_history_event;
4857
4858 END update_emp_history_event;
4859
4860
4861 PROCEDURE create_emp_history_event
4862 (p_emp_history_rec IN HZ_PERSON_INFO_V2PUB.EMPLOYMENT_HISTORY_REC_TYPE)
4863 IS
4864 l_list wf_parameter_list_t;
4865 l_param wf_parameter_t;
4866 l_key varchar2(240);
4867 l_yn varchar2(1);
4868 l_event_name varchar2(240) := 'oracle.apps.ar.hz.EmploymentHistory.create';
4869 BEGIN
4870 SAVEPOINT create_emp_history_event;
4871 -- Raise Event ONLY if profile is set to 'Y'.
4872 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4873 -- delete from HZ_PARAMS exists.
4874
4875
4876 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4877 -- commenting the following line as part of bug4369710 fix
4878 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4879
4880 --Get the item key
4881 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4882 -- commenting the following line as part of bug4369710 fix
4883 /*
4884 IF l_yn = 'Y' THEN
4885 --Set Parameter
4886 hz_param_pkg.setparameter(l_key, p_emp_history_rec , 'NEW');
4887 END IF;
4888 */
4889 -- initialization of object variables
4890 l_list := wf_parameter_list_t();
4891
4892 -- Add Context values to the list
4893 hz_event_pkg.AddParamEnvToList(l_list);
4894 l_param := WF_PARAMETER_T( NULL, NULL );
4895
4896 -- fill the parameters list
4897 l_list.extend;
4898 l_param.SetName('EMPLOYMENT_HISTORY_ID');
4899 l_param.SetValue(P_EMP_HISTORY_REC.EMPLOYMENT_HISTORY_ID);
4900 l_list(l_list.last) := l_param;
4901
4902 -- Raise Event
4903 hz_event_pkg.raise_event( p_event_name => l_event_name
4904 ,p_event_key => l_key
4905 ,p_parameters => l_list);
4906 l_list.DELETE;
4907
4908 END IF;
4909 EXCEPTION
4910 WHEN OTHERS THEN
4911 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4912 fnd_message.set_token('ERROR' ,SQLERRM);
4913 fnd_msg_pub.add;
4914 ROLLBACK TO create_emp_history_event;
4915
4916 END create_emp_history_event;
4917
4918
4919 PROCEDURE create_work_class_event
4920 (p_work_class_rec IN HZ_PERSON_INFO_V2PUB.WORK_CLASS_REC_TYPE)
4921 IS
4922 l_list wf_parameter_list_t;
4923 l_param wf_parameter_t;
4924 l_key varchar2(240);
4925 l_yn varchar2(1);
4926 l_event_name varchar2(240) := 'oracle.apps.ar.hz.WorkClass.create';
4927 BEGIN
4928 SAVEPOINT create_work_class_event;
4929 -- Raise Event ONLY if profile is set to 'Y'.
4930 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4931 -- delete from HZ_PARAMS exists.
4932
4933
4934 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4935 -- commenting the following line as part of bug4369710 fix
4936 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4937
4938 --Get the item key
4942 IF l_yn = 'Y' THEN
4939 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4940 -- commenting the following line as part of bug4369710 fix
4941 /*
4943 --Set Parameter
4944 hz_param_pkg.setparameter(l_key, p_work_class_rec , 'NEW');
4945 END IF;
4946 */
4947 -- initialization of object variables
4948 l_list := wf_parameter_list_t();
4949
4950 -- Add Context values to the list
4951 hz_event_pkg.AddParamEnvToList(l_list);
4952 l_param := WF_PARAMETER_T( NULL, NULL );
4953
4954 -- fill the parameters list
4955 l_list.extend;
4956 l_param.SetName('WORK_CLASS_ID');
4957 l_param.SetValue(P_WORK_CLASS_REC.WORK_CLASS_ID);
4958 l_list(l_list.last) := l_param;
4959
4960 -- Raise Event
4961 hz_event_pkg.raise_event( p_event_name => l_event_name
4962 ,p_event_key => l_key
4963 ,p_parameters => l_list);
4964 l_list.DELETE;
4965
4966 END IF;
4967 EXCEPTION
4968 WHEN OTHERS THEN
4969 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4970 fnd_message.set_token('ERROR' ,SQLERRM);
4971 fnd_msg_pub.add;
4972 ROLLBACK TO create_work_class_event;
4973
4974 END create_work_class_event;
4975
4976
4977 PROCEDURE update_work_class_event
4978 (p_work_class_rec IN HZ_PERSON_INFO_V2PUB.WORK_CLASS_REC_TYPE,
4979 p_old_work_class_rec IN HZ_PERSON_INFO_V2PUB.WORK_CLASS_REC_TYPE)
4980 IS
4981 l_list wf_parameter_list_t;
4982 l_param wf_parameter_t;
4983 l_key varchar2(240);
4984 l_yn varchar2(1);
4985 l_event_name varchar2(240) := 'oracle.apps.ar.hz.WorkClass.update';
4986 BEGIN
4987 SAVEPOINT update_work_class_event;
4988 -- Raise Event ONLY if profile is set to 'Y'.
4989 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
4990 -- delete from HZ_PARAMS exists.
4991
4992
4993 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
4994 -- commenting the following line as part of bug4369710 fix
4995 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
4996
4997 --Get the item key
4998 l_key := HZ_EVENT_PKG.item_key(l_event_name);
4999 -- commenting the following line as part of bug4369710 fix
5000 /*
5001 IF l_yn = 'Y' THEN
5002 --Set Parameter
5006 */
5003 hz_param_pkg.setparameter(l_key, p_work_class_rec , 'NEW');
5004 hz_param_pkg.setparameter(l_key, p_old_work_class_rec , 'OLD');
5005 END IF;
5007 -- initialization of object variables
5008 l_list := wf_parameter_list_t();
5009
5010 -- Add Context values to the list
5011 hz_event_pkg.AddParamEnvToList(l_list);
5012 l_param := WF_PARAMETER_T( NULL, NULL );
5013
5014 -- fill the parameters list
5015 l_list.extend;
5016 l_param.SetName('WORK_CLASS_ID');
5017 l_param.SetValue(P_WORK_CLASS_REC.WORK_CLASS_ID);
5018 l_list(l_list.last) := l_param;
5019
5020 -- Raise Event
5021 hz_event_pkg.raise_event( p_event_name => l_event_name
5022 ,p_event_key => l_key
5023 ,p_parameters => l_list);
5024 l_list.DELETE;
5025
5026 END IF;
5027 EXCEPTION
5028 WHEN OTHERS THEN
5029 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5030 fnd_message.set_token('ERROR' ,SQLERRM);
5031 fnd_msg_pub.add;
5032 ROLLBACK TO update_work_class_event;
5033
5034 END update_work_class_event;
5035
5036
5037
5038 -- HZ_PARTY_INFO_PUB
5039
5040 PROCEDURE create_credit_ratings_event
5041 (p_credit_ratings_rec IN HZ_PARTY_INFO_V2PUB.CREDIT_RATING_REC_TYPE)
5042 IS
5043 l_list wf_parameter_list_t;
5044 l_param wf_parameter_t;
5045 l_key varchar2(240);
5046 l_yn varchar2(1);
5047 l_event_name varchar2(240) := 'oracle.apps.ar.hz.CreditRating.create';
5048 BEGIN
5049 SAVEPOINT create_credit_ratings_event;
5050 -- Raise Event ONLY if profile is set to 'Y'.
5051 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
5052 -- delete from HZ_PARAMS exists.
5053
5054
5055 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
5056 -- commenting the following line as part of bug4369710 fix
5057 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
5058
5059 -- initialization of object variables
5060 l_list := wf_parameter_list_t();
5061
5062 -- Add Context values to the list
5063 hz_event_pkg.AddParamEnvToList(l_list);
5064 l_param := WF_PARAMETER_T( NULL, NULL );
5065
5066 -- fill the parameters list
5067 l_list.extend;
5068 l_param.SetName('CREDIT_RATING_ID');
5069 l_param.SetValue(P_CREDIT_RATINGS_REC.CREDIT_RATING_ID);
5070 l_list(l_list.last) := l_param;
5071
5072 --Get the item key
5073 l_key := HZ_EVENT_PKG.item_key(l_event_name);
5074 -- commenting the following line as part of bug4369710 fix
5075 /*
5076 IF l_yn = 'Y' THEN
5077 --Set Parameter
5078 hz_param_pkg.setparameter(l_key, p_credit_ratings_rec, 'NEW');
5079 END IF;
5080 */
5081 -- Raise Event
5082 hz_event_pkg.raise_event( p_event_name => l_event_name
5083 ,p_event_key => l_key
5084 ,p_parameters => l_list);
5085 l_list.DELETE;
5086
5087 END IF;
5088 EXCEPTION
5089 WHEN OTHERS THEN
5090 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5091 fnd_message.set_token('ERROR' ,SQLERRM);
5092 fnd_msg_pub.add;
5093 ROLLBACK TO create_credit_ratings_event;
5094
5095 END create_credit_ratings_event;
5096
5097
5098 PROCEDURE update_credit_ratings_event
5099 (p_credit_ratings_rec IN HZ_PARTY_INFO_V2PUB.CREDIT_RATING_REC_TYPE,
5100 p_old_credit_ratings_rec IN HZ_PARTY_INFO_V2PUB.CREDIT_RATING_REC_TYPE)
5101 IS
5102 l_list wf_parameter_list_t;
5103 l_param wf_parameter_t;
5104 l_key varchar2(240);
5105 l_yn varchar2(1);
5106 l_event_name varchar2(240) := 'oracle.apps.ar.hz.CreditRating.update';
5107 BEGIN
5108 SAVEPOINT update_credit_ratings_event;
5109 -- Raise Event ONLY if profile is set to 'Y'.
5110 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
5111 -- delete from HZ_PARAMS exists.
5112
5113
5114 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
5115 -- commenting the following line as part of bug4369710 fix
5116 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
5117
5118 --Get the item key
5119 l_key := HZ_EVENT_PKG.item_key(l_event_name);
5120
5121 -- initialization of object variables
5122 l_list := wf_parameter_list_t();
5123
5124 -- Add Context values to the list
5125 hz_event_pkg.AddParamEnvToList(l_list);
5126 l_param := WF_PARAMETER_T( NULL, NULL );
5127
5128 -- fill the parameters list
5129 l_list.extend;
5130 l_param.SetName('CREDIT_RATING_ID');
5131 l_param.SetValue(P_CREDIT_RATINGS_REC.CREDIT_RATING_ID);
5132 l_list(l_list.last) := l_param;
5133 -- commenting the following line as part of bug4369710 fix
5134 /*
5135 IF l_yn = 'Y' THEN
5136 --Set Parameter
5137 hz_param_pkg.setparameter(l_key, p_credit_ratings_rec, 'NEW');
5138 hz_param_pkg.setparameter(l_key, p_old_credit_ratings_rec, 'OLD');
5139 END IF;
5140 */
5141 -- Raise Event
5142 hz_event_pkg.raise_event( p_event_name => l_event_name
5143 ,p_event_key => l_key
5144 ,p_parameters => l_list);
5145 l_list.DELETE;
5146
5147 END IF;
5148 EXCEPTION
5149 WHEN OTHERS THEN
5150 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5151 fnd_message.set_token('ERROR' ,SQLERRM);
5152 fnd_msg_pub.add;
5153 ROLLBACK TO update_credit_ratings_event;
5154
5155 END update_credit_ratings_event;
5156
5157
5158 PROCEDURE create_fin_profile_event
5159 (p_financial_profile_rec IN HZ_PARTY_INFO_PUB.FINANCIAL_PROFILE_REC_TYPE)
5160 IS
5164 l_yn varchar2(1);
5161 l_list wf_parameter_list_t;
5162 l_param wf_parameter_t;
5163 l_key varchar2(240);
5165 l_event_name varchar2(240) := 'oracle.apps.ar.hz.FinancialProfile.create';
5166 BEGIN
5167 SAVEPOINT create_fin_profile_event;
5168 -- Raise Event ONLY if profile is set to 'Y'.
5169 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
5170 -- delete from HZ_PARAMS exists.
5171
5172
5173 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
5174 -- commenting the following line as part of bug4369710 fix
5175 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
5176
5177 --Get the item key
5178 l_key := HZ_EVENT_PKG.item_key(l_event_name);
5179
5180 -- initialization of object variables
5181 l_list := wf_parameter_list_t();
5182
5183 -- Add Context values to the list
5184 hz_event_pkg.AddParamEnvToList(l_list);
5185 l_param := WF_PARAMETER_T( NULL, NULL );
5186
5187 -- fill the parameters list
5188 l_list.extend;
5189 l_param.SetName('FINANCIAL_PROFILE_ID');
5190 l_param.SetValue(P_FINANCIAL_PROFILE_REC.FINANCIAL_PROFILE_ID);
5191 l_list(l_list.last) := l_param;
5192 -- commenting the following line as part of bug4369710 fix
5193 /*
5194 IF l_yn = 'Y' THEN
5195 --Set Parameter
5196 hz_param_pkg.setparameter(l_key, p_financial_profile_rec, 'NEW');
5197 END IF;
5198 */
5199 -- Raise Event
5200 hz_event_pkg.raise_event( p_event_name => l_event_name
5201 ,p_event_key => l_key
5202 ,p_parameters => l_list);
5203 l_list.DELETE;
5204
5205 END IF;
5206 EXCEPTION
5207 WHEN OTHERS THEN
5208 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5209 fnd_message.set_token('ERROR' ,SQLERRM);
5210 fnd_msg_pub.add;
5211 ROLLBACK TO create_fin_profile_event;
5212
5213 END create_fin_profile_event;
5214
5215
5216 PROCEDURE update_fin_profile_event
5217 (p_financial_profile_rec IN HZ_PARTY_INFO_PUB.FINANCIAL_PROFILE_REC_TYPE)
5218 IS
5219 l_list wf_parameter_list_t;
5220 l_param wf_parameter_t;
5221 l_key varchar2(240);
5222 l_yn varchar2(1);
5223 l_event_name varchar2(240) := 'oracle.apps.ar.hz.FinancialProfile.update';
5224 BEGIN
5225 -- Raise Event ONLY if profile is set to 'Y'.
5226 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
5227 -- delete from HZ_PARAMS exists.
5228
5229
5230 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
5231 -- commenting the following line as part of bug4369710 fix
5232 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
5233
5234 --Get the item key
5235 l_key := HZ_EVENT_PKG.item_key(l_event_name);
5236
5237 -- initialization of object variables
5238 l_list := wf_parameter_list_t();
5239
5240 -- Add Context values to the list
5241 hz_event_pkg.AddParamEnvToList(l_list);
5242 l_param := WF_PARAMETER_T( NULL, NULL );
5243
5244 -- fill the parameters list
5245 l_list.extend;
5246 l_param.SetName('FINANCIAL_PROFILE_ID');
5247 l_param.SetValue(P_FINANCIAL_PROFILE_REC.FINANCIAL_PROFILE_ID);
5248 l_list(l_list.last) := l_param;
5249 -- commenting the following line as part of bug4369710 fix
5250 /*
5251 IF l_yn = 'Y' THEN
5252 --Set Parameter
5253 hz_param_pkg.setparameter(l_key, p_financial_profile_rec, 'NEW');
5254 END IF;
5255 */
5256 -- Raise Event
5257 hz_event_pkg.raise_event( p_event_name => l_event_name
5258 ,p_event_key => l_key
5259 ,p_parameters => l_list);
5260 l_list.DELETE;
5261
5262 END IF;
5263 EXCEPTION
5264 WHEN OTHERS THEN
5265 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5266 fnd_message.set_token('ERROR' ,SQLERRM);
5267 fnd_msg_pub.add;
5268 ROLLBACK TO update_fin_profile_event;
5269
5270 END update_fin_profile_event;
5271
5272 PROCEDURE create_orig_system_ref_event (
5273 p_orig_sys_reference_rec IN HZ_ORIG_SYSTEM_REF_PUB.ORIG_SYS_REFERENCE_REC_TYPE
5274 ) is
5275 l_list wf_parameter_list_t;
5276 l_param wf_parameter_t;
5277 l_key varchar2(240);
5278 l_yn varchar2(1);
5279 l_event_name varchar2(240) := 'oracle.apps.ar.hz.origSystemRef.create';
5280 BEGIN
5281 SAVEPOINT create_orig_system_ref_event;
5282 -- Raise Event ONLY if profile is set to 'Y'.
5283 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
5284 -- delete from HZ_PARAMS exists.
5285
5286
5287 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
5288 -- commenting the following line as part of bug4369710 fix
5289 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
5290
5291 --Get the item key
5292 l_key := HZ_EVENT_PKG.item_key(l_event_name);
5293
5294 -- initialization of object variables
5295 l_list := wf_parameter_list_t();
5296
5297 -- Add Context values to the list
5298 hz_event_pkg.AddParamEnvToList(l_list);
5299 l_param := WF_PARAMETER_T( NULL, NULL );
5300
5301 -- fill the parameters list
5302 l_list.extend;
5303 l_param.SetName('ORIG_SYSTEM_REF_ID');
5304 l_param.SetValue(P_ORIG_SYS_REFERENCE_REC.ORIG_SYSTEM_REF_ID);
5305 l_list(l_list.last) := l_param;
5306 -- commenting the following line as part of bug4369710 fix
5307 /*
5308 IF l_yn = 'Y' THEN
5309 --Set Parameter
5310 hz_param_pkg.setparameter(l_key, p_orig_sys_reference_rec, 'NEW');
5311 END IF;
5312 */
5313 -- Raise Event
5314 hz_event_pkg.raise_event( p_event_name => l_event_name
5315 ,p_event_key => l_key
5316 ,p_parameters => l_list);
5317 l_list.DELETE;
5318
5319 END IF;
5320 EXCEPTION
5324 fnd_msg_pub.add;
5321 WHEN OTHERS THEN
5322 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5323 fnd_message.set_token('ERROR' ,SQLERRM);
5325 ROLLBACK TO create_orig_system_ref_event;
5326
5327 END create_orig_system_ref_event;
5328
5329 PROCEDURE update_orig_system_ref_event (
5330 p_orig_sys_reference_rec IN HZ_ORIG_SYSTEM_REF_PUB.ORIG_SYS_REFERENCE_REC_TYPE,
5331 p_old_orig_sys_reference_re IN HZ_ORIG_SYSTEM_REF_PUB.ORIG_SYS_REFERENCE_REC_TYPE
5332 )
5333 IS
5334 l_list wf_parameter_list_t;
5335 l_param wf_parameter_t;
5336 l_key varchar2(240);
5337 l_yn varchar2(1);
5338 l_event_name varchar2(240) := 'oracle.apps.ar.hz.origSystemRef.update';
5339 BEGIN
5340
5341 SAVEPOINT update_orig_system_ref_event;
5342 -- Raise Event ONLY if profile is set to 'Y'.
5343 -- Populate HZ_PARAMS only if Profile is set to 'Y' AMD a subscription to
5344 -- delete from HZ_PARAMS exists.
5345
5346
5347 IF G_EXECUTE_API_CALLOUT = 'Y' THEN
5348 -- commenting the following line as part of bug4369710 fix
5349 -- l_yn := hz_event_pkg.exist_subscription(l_event_name);
5350
5351 --Get the item key
5352 l_key := HZ_EVENT_PKG.item_key(l_event_name);
5353 -- commenting the following line as part of bug4369710 fix
5354 /*
5355 IF l_yn = 'Y' THEN
5356 --Set Parameter
5357 HZ_PARAM_PKG.SetParameter( l_key, p_orig_sys_reference_rec, 'NEW' );
5358 HZ_PARAM_PKG.SetParameter( l_key, p_orig_sys_reference_rec, 'OLD' );
5359 END IF;
5360 */
5361 -- initialization of object variables
5362 l_list := wf_parameter_list_t();
5363
5364 -- Add Context values to the list
5365 hz_event_pkg.AddParamEnvToList(l_list);
5366 l_param := WF_PARAMETER_T( NULL, NULL );
5367
5368 -- fill the parameters list
5369 l_list.extend;
5370 l_param.SetName('ORIG_SYSTEM_REF_ID');
5371 l_param.SetValue(P_ORIG_SYS_REFERENCE_REC.ORIG_SYSTEM_REF_ID);
5372 l_list(l_list.last) := l_param;
5373
5374 -- Raise Event
5375 hz_event_pkg.raise_event( p_event_name => l_event_name
5376 ,p_event_key => l_key
5377 ,p_parameters => l_list);
5378 l_list.DELETE;
5379
5380 END IF;
5381 EXCEPTION
5382 WHEN OTHERS THEN
5383 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5384 fnd_message.set_token('ERROR' ,SQLERRM);
5385 fnd_msg_pub.add;
5386 ROLLBACK TO update_orig_system_ref_event;
5387
5388 END update_orig_system_ref_event;
5389
5390 END hz_business_event_v2pvt;