1: PACKAGE BODY HZ_PERSON_CUST_BO_PUB AS
2: /*$Header: ARHBPABB.pls 120.20 2008/02/06 10:14:13 vsegu ship $ */
3: PROCEDURE do_create_person_cust_bo(
4: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
6: p_person_cust_obj IN OUT NOCOPY HZ_PERSON_CUST_BO,
7: p_created_by_module IN VARCHAR2,
8: p_obj_source IN VARCHAR2 := null,
1: PACKAGE BODY HZ_PERSON_CUST_BO_PUB AS
2: /*$Header: ARHBPABB.pls 120.20 2008/02/06 10:14:13 vsegu ship $ */
3: PROCEDURE do_create_person_cust_bo(
4: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
6: p_person_cust_obj IN OUT NOCOPY HZ_PERSON_CUST_BO,
7: p_created_by_module IN VARCHAR2,
8: p_obj_source IN VARCHAR2 := null,
9: x_return_status OUT NOCOPY VARCHAR2,
12: x_person_id OUT NOCOPY NUMBER
13: );
14:
15: PROCEDURE do_update_person_cust_bo(
16: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
17: p_person_cust_obj IN OUT NOCOPY HZ_PERSON_CUST_BO,
18: p_created_by_module IN VARCHAR2,
19: p_obj_source IN VARCHAR2 := null,
20: x_return_status OUT NOCOPY VARCHAR2,
23: x_person_id OUT NOCOPY NUMBER
24: );
25:
26: PROCEDURE do_save_person_cust_bo(
27: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
28: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
29: p_person_cust_obj IN OUT NOCOPY HZ_PERSON_CUST_BO,
30: p_created_by_module IN VARCHAR2,
31: p_obj_source IN VARCHAR2 := null,
24: );
25:
26: PROCEDURE do_save_person_cust_bo(
27: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
28: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
29: p_person_cust_obj IN OUT NOCOPY HZ_PERSON_CUST_BO,
30: p_created_by_module IN VARCHAR2,
31: p_obj_source IN VARCHAR2 := null,
32: x_return_status OUT NOCOPY VARCHAR2,
39: --
40: -- DESCRIPTION
41: -- Create person customer account.
42: PROCEDURE do_create_person_cust_bo(
43: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
44: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
45: p_person_cust_obj IN OUT NOCOPY HZ_PERSON_CUST_BO,
46: p_created_by_module IN VARCHAR2,
47: p_obj_source IN VARCHAR2 := null,
40: -- DESCRIPTION
41: -- Create person customer account.
42: PROCEDURE do_create_person_cust_bo(
43: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
44: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
45: p_person_cust_obj IN OUT NOCOPY HZ_PERSON_CUST_BO,
46: p_created_by_module IN VARCHAR2,
47: p_obj_source IN VARCHAR2 := null,
48: x_return_status OUT NOCOPY VARCHAR2,
63: -- Standard start of API savepoint
64: SAVEPOINT do_create_person_cust_pub;
65:
66: -- initialize API return status to success.
67: x_return_status := FND_API.G_RET_STS_SUCCESS;
68:
69: -- Initialize message list if p_init_msg_list is set to TRUE
70: IF FND_API.to_Boolean(p_init_msg_list) THEN
71: FND_MSG_PUB.initialize;
66: -- initialize API return status to success.
67: x_return_status := FND_API.G_RET_STS_SUCCESS;
68:
69: -- Initialize message list if p_init_msg_list is set to TRUE
70: IF FND_API.to_Boolean(p_init_msg_list) THEN
71: FND_MSG_PUB.initialize;
72: END IF;
73:
74: -- Debug info.
78: p_msg_level=>fnd_log.level_procedure);
79: END IF;
80:
81: -- Base on p_validate_bo_flag, check the completeness of business objects
82: IF(p_validate_bo_flag = FND_API.G_TRUE) THEN
83: HZ_REGISTRY_VALIDATE_BO_PVT.get_bus_obj_struct(
84: p_bus_object_code => 'PERSON_CUST',
85: x_bus_object => l_bus_object
86: );
90: p_ca_objs => p_person_cust_obj.account_objs
91: );
92:
93: IF NOT(l_valid_obj) THEN
94: RAISE fnd_api.g_exc_error;
95: END IF;
96:
97: -- find out if raise event at the end
98: l_raise_event := HZ_PARTY_BO_PVT.is_raising_create_event(
123:
124: l_cbm := HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE;
125:
126: HZ_PERSON_BO_PUB.do_create_person_bo(
127: p_init_msg_list => fnd_api.g_false,
128: p_validate_bo_flag => FND_API.G_FALSE,
129: p_person_obj => p_person_cust_obj.person_obj,
130: p_created_by_module => HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE,
131: p_obj_source => p_obj_source,
124: l_cbm := HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE;
125:
126: HZ_PERSON_BO_PUB.do_create_person_bo(
127: p_init_msg_list => fnd_api.g_false,
128: p_validate_bo_flag => FND_API.G_FALSE,
129: p_person_obj => p_person_cust_obj.person_obj,
130: p_created_by_module => HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE,
131: p_obj_source => p_obj_source,
132: x_return_status => x_return_status,
136: x_person_os => l_person_os,
137: x_person_osr => l_person_osr
138: );
139:
140: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
141: RAISE fnd_api.g_exc_error;
142: END IF;
143:
144: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
137: x_person_osr => l_person_osr
138: );
139:
140: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
141: RAISE fnd_api.g_exc_error;
142: END IF;
143:
144: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
145:
156: p_parent_osr => l_person_osr,
157: p_parent_obj_type => 'PERSON'
158: );
159:
160: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
161: RAISE fnd_api.g_exc_error;
162: END IF;
163: END IF;
164:
157: p_parent_obj_type => 'PERSON'
158: );
159:
160: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
161: RAISE fnd_api.g_exc_error;
162: END IF;
163: END IF;
164:
165: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
202: p_msg_level=>fnd_log.level_procedure);
203: END IF;
204:
205: EXCEPTION
206: WHEN fnd_api.g_exc_error THEN
207: ROLLBACK TO do_create_person_cust_pub;
208:
209: -- reset Global variable
210: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
213: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
214: FND_MESSAGE.SET_TOKEN('OBJECT', 'PERSON_CUST');
215: FND_MSG_PUB.ADD;
216:
217: x_return_status := fnd_api.g_ret_sts_error;
218:
219: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
220: p_count => x_msg_count,
221: p_data => x_msg_data);
215: FND_MSG_PUB.ADD;
216:
217: x_return_status := fnd_api.g_ret_sts_error;
218:
219: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
220: p_count => x_msg_count,
221: p_data => x_msg_data);
222:
223: -- Debug info.
232: p_prefix=>l_debug_prefix,
233: p_msg_level=>fnd_log.level_procedure);
234: END IF;
235:
236: WHEN fnd_api.g_exc_unexpected_error THEN
237: ROLLBACK TO do_create_person_cust_pub;
238:
239: -- reset Global variable
240: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
243: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
244: FND_MESSAGE.SET_TOKEN('OBJECT', 'PERSON_CUST');
245: FND_MSG_PUB.ADD;
246:
247: x_return_status := fnd_api.g_ret_sts_unexp_error;
248:
249: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
250: p_count => x_msg_count,
251: p_data => x_msg_data);
245: FND_MSG_PUB.ADD;
246:
247: x_return_status := fnd_api.g_ret_sts_unexp_error;
248:
249: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
250: p_count => x_msg_count,
251: p_data => x_msg_data);
252:
253: -- Debug info.
273: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
274: FND_MESSAGE.SET_TOKEN('OBJECT', 'PERSON_CUST');
275: FND_MSG_PUB.ADD;
276:
277: x_return_status := fnd_api.g_ret_sts_unexp_error;
278:
279: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
280: fnd_message.set_token('ERROR' ,SQLERRM);
281: fnd_msg_pub.add;
279: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
280: fnd_message.set_token('ERROR' ,SQLERRM);
281: fnd_msg_pub.add;
282:
283: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
284: p_count => x_msg_count,
285: p_data => x_msg_data);
286:
287: -- Debug info.
298: END IF;
299: END do_create_person_cust_bo;
300:
301: PROCEDURE create_person_cust_bo(
302: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
303: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
304: p_person_cust_obj IN HZ_PERSON_CUST_BO,
305: p_created_by_module IN VARCHAR2,
306: x_return_status OUT NOCOPY VARCHAR2,
299: END do_create_person_cust_bo;
300:
301: PROCEDURE create_person_cust_bo(
302: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
303: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
304: p_person_cust_obj IN HZ_PERSON_CUST_BO,
305: p_created_by_module IN VARCHAR2,
306: x_return_status OUT NOCOPY VARCHAR2,
307: x_msg_count OUT NOCOPY NUMBER,
324: );
325: END create_person_cust_bo;
326:
327: PROCEDURE create_person_cust_bo(
328: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
329: p_person_cust_obj IN HZ_PERSON_CUST_BO,
330: p_created_by_module IN VARCHAR2,
331: p_obj_source IN VARCHAR2 := null,
332: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
328: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
329: p_person_cust_obj IN HZ_PERSON_CUST_BO,
330: p_created_by_module IN VARCHAR2,
331: p_obj_source IN VARCHAR2 := null,
332: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
333: x_return_status OUT NOCOPY VARCHAR2,
334: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
335: x_return_obj OUT NOCOPY HZ_PERSON_CUST_BO,
336: x_person_id OUT NOCOPY NUMBER
340: l_pc_obj HZ_PERSON_CUST_BO;
341: BEGIN
342: l_pc_obj := p_person_cust_obj;
343: do_create_person_cust_bo(
344: p_init_msg_list => fnd_api.g_true,
345: p_validate_bo_flag => p_validate_bo_flag,
346: p_person_cust_obj => l_pc_obj,
347: p_created_by_module => p_created_by_module,
348: p_obj_source => p_obj_source,
354: x_messages := HZ_PARTY_BO_PVT.return_all_messages(
355: x_return_status => x_return_status,
356: x_msg_count => l_msg_count,
357: x_msg_data => l_msg_data);
358: IF FND_API.to_Boolean(p_return_obj_flag) THEN
359: x_return_obj := l_pc_obj;
360: END IF;
361: END create_person_cust_bo;
362:
364: --
365: -- DESCRIPTION
366: -- Update person customer account.
367: PROCEDURE do_update_person_cust_bo(
368: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
369: p_person_cust_obj IN OUT NOCOPY HZ_PERSON_CUST_BO,
370: p_created_by_module IN VARCHAR2,
371: p_obj_source IN VARCHAR2 := null,
372: x_return_status OUT NOCOPY VARCHAR2,
386: -- Standard start of API savepoint
387: SAVEPOINT do_update_person_cust_pub;
388:
389: -- initialize API return status to success.
390: x_return_status := FND_API.G_RET_STS_SUCCESS;
391:
392: -- Initialize message list if p_init_msg_list is set to TRUE
393: IF FND_API.to_Boolean(p_init_msg_list) THEN
394: FND_MSG_PUB.initialize;
389: -- initialize API return status to success.
390: x_return_status := FND_API.G_RET_STS_SUCCESS;
391:
392: -- Initialize message list if p_init_msg_list is set to TRUE
393: IF FND_API.to_Boolean(p_init_msg_list) THEN
394: FND_MSG_PUB.initialize;
395: END IF;
396:
397: -- Debug info.
423: x_return_status => x_return_status,
424: x_msg_count => x_msg_count,
425: x_msg_data => x_msg_data);
426:
427: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
428: RAISE FND_API.G_EXC_ERROR;
429: END IF;
430:
431: -- get person_id and then call
424: x_msg_count => x_msg_count,
425: x_msg_data => x_msg_data);
426:
427: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
428: RAISE FND_API.G_EXC_ERROR;
429: END IF;
430:
431: -- get person_id and then call
432: l_per_raise_event := HZ_PARTY_BO_PVT.is_raising_update_event(
457: HZ_PARTY_BO_PVT.G_CALL_UPDATE_CUST_BO := 'Y';
458: l_cbm := HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE;
459:
460: HZ_PERSON_BO_PUB.do_update_person_bo(
461: p_init_msg_list => fnd_api.g_false,
462: p_person_obj => p_person_cust_obj.person_obj,
463: p_created_by_module => HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE,
464: p_obj_source => p_obj_source,
465: x_return_status => x_return_status,
469: x_person_os => l_person_os,
470: x_person_osr => l_person_osr
471: );
472:
473: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
474: RAISE fnd_api.g_exc_error;
475: END IF;
476:
477: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
470: x_person_osr => l_person_osr
471: );
472:
473: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
474: RAISE fnd_api.g_exc_error;
475: END IF;
476:
477: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
478:
489: p_parent_osr => l_person_osr,
490: p_parent_obj_type => 'PERSON'
491: );
492:
493: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
494: RAISE fnd_api.g_exc_error;
495: END IF;
496: END IF;
497:
490: p_parent_obj_type => 'PERSON'
491: );
492:
493: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
494: RAISE fnd_api.g_exc_error;
495: END IF;
496: END IF;
497:
498: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
537: p_prefix=>l_debug_prefix,
538: p_msg_level=>fnd_log.level_procedure);
539: END IF;
540: EXCEPTION
541: WHEN fnd_api.g_exc_error THEN
542: ROLLBACK TO do_update_person_cust_pub;
543:
544: -- reset Global variable
545: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
549: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
550: FND_MESSAGE.SET_TOKEN('OBJECT', 'PERSON_CUST');
551: FND_MSG_PUB.ADD;
552:
553: x_return_status := fnd_api.g_ret_sts_error;
554:
555: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
556: p_count => x_msg_count,
557: p_data => x_msg_data);
551: FND_MSG_PUB.ADD;
552:
553: x_return_status := fnd_api.g_ret_sts_error;
554:
555: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
556: p_count => x_msg_count,
557: p_data => x_msg_data);
558:
559: -- Debug info.
568: p_prefix=>l_debug_prefix,
569: p_msg_level=>fnd_log.level_procedure);
570: END IF;
571:
572: WHEN fnd_api.g_exc_unexpected_error THEN
573: ROLLBACK TO do_update_person_cust_pub;
574:
575: -- reset Global variable
576: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
580: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
581: FND_MESSAGE.SET_TOKEN('OBJECT', 'PERSON_CUST');
582: FND_MSG_PUB.ADD;
583:
584: x_return_status := fnd_api.g_ret_sts_unexp_error;
585:
586: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
587: p_count => x_msg_count,
588: p_data => x_msg_data);
582: FND_MSG_PUB.ADD;
583:
584: x_return_status := fnd_api.g_ret_sts_unexp_error;
585:
586: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
587: p_count => x_msg_count,
588: p_data => x_msg_data);
589:
590: -- Debug info.
611: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
612: FND_MESSAGE.SET_TOKEN('OBJECT', 'PERSON_CUST');
613: FND_MSG_PUB.ADD;
614:
615: x_return_status := fnd_api.g_ret_sts_unexp_error;
616:
617: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
618: fnd_message.set_token('ERROR' ,SQLERRM);
619: fnd_msg_pub.add;
617: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
618: fnd_message.set_token('ERROR' ,SQLERRM);
619: fnd_msg_pub.add;
620:
621: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
622: p_count => x_msg_count,
623: p_data => x_msg_data);
624:
625: -- Debug info.
636: END IF;
637: END do_update_person_cust_bo;
638:
639: PROCEDURE update_person_cust_bo(
640: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
641: p_person_cust_obj IN HZ_PERSON_CUST_BO,
642: p_created_by_module IN VARCHAR2,
643: x_return_status OUT NOCOPY VARCHAR2,
644: x_msg_count OUT NOCOPY NUMBER,
663: PROCEDURE update_person_cust_bo(
664: p_person_cust_obj IN HZ_PERSON_CUST_BO,
665: p_created_by_module IN VARCHAR2,
666: p_obj_source IN VARCHAR2 := null,
667: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
668: x_return_status OUT NOCOPY VARCHAR2,
669: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
670: x_return_obj OUT NOCOPY HZ_PERSON_CUST_BO,
671: x_person_id OUT NOCOPY NUMBER
675: l_pc_obj HZ_PERSON_CUST_BO;
676: BEGIN
677: l_pc_obj := p_person_cust_obj;
678: do_update_person_cust_bo(
679: p_init_msg_list => fnd_api.g_true,
680: p_person_cust_obj => l_pc_obj,
681: p_created_by_module => p_created_by_module,
682: p_obj_source => p_obj_source,
683: x_return_status => x_return_status,
688: x_messages := HZ_PARTY_BO_PVT.return_all_messages(
689: x_return_status => x_return_status,
690: x_msg_count => l_msg_count,
691: x_msg_data => l_msg_data);
692: IF FND_API.to_Boolean(p_return_obj_flag) THEN
693: x_return_obj := l_pc_obj;
694: END IF;
695: END update_person_cust_bo;
696:
698: --
699: -- DESCRIPTION
700: -- Create or update person customer account.
701: PROCEDURE do_save_person_cust_bo(
702: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
703: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
704: p_person_cust_obj IN OUT NOCOPY HZ_PERSON_CUST_BO,
705: p_created_by_module IN VARCHAR2,
706: p_obj_source IN VARCHAR2 := null,
699: -- DESCRIPTION
700: -- Create or update person customer account.
701: PROCEDURE do_save_person_cust_bo(
702: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
703: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
704: p_person_cust_obj IN OUT NOCOPY HZ_PERSON_CUST_BO,
705: p_created_by_module IN VARCHAR2,
706: p_obj_source IN VARCHAR2 := null,
707: x_return_status OUT NOCOPY VARCHAR2,
715: l_debug_prefix VARCHAR2(30) := '';
716: l_create_update_flag VARCHAR2(1);
717: BEGIN
718: -- initialize API return status to success.
719: x_return_status := FND_API.G_RET_STS_SUCCESS;
720:
721: -- Initialize message list if p_init_msg_list is set to TRUE
722: IF FND_API.to_Boolean(p_init_msg_list) THEN
723: FND_MSG_PUB.initialize;
718: -- initialize API return status to success.
719: x_return_status := FND_API.G_RET_STS_SUCCESS;
720:
721: -- Initialize message list if p_init_msg_list is set to TRUE
722: IF FND_API.to_Boolean(p_init_msg_list) THEN
723: FND_MSG_PUB.initialize;
724: END IF;
725:
726: -- Debug info.
749: FND_MSG_PUB.ADD;
750: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
751: FND_MESSAGE.SET_TOKEN('OBJECT', 'PERSON_CUST');
752: FND_MSG_PUB.ADD;
753: RAISE FND_API.G_EXC_ERROR;
754: END IF;
755:
756: IF(l_create_update_flag = 'C') THEN
757: do_create_person_cust_bo(
754: END IF;
755:
756: IF(l_create_update_flag = 'C') THEN
757: do_create_person_cust_bo(
758: p_init_msg_list => fnd_api.g_false,
759: p_validate_bo_flag => p_validate_bo_flag,
760: p_person_cust_obj => p_person_cust_obj,
761: p_created_by_module => p_created_by_module,
762: p_obj_source => p_obj_source,
766: x_person_id => x_person_id
767: );
768: ELSIF(l_create_update_flag = 'U') THEN
769: do_update_person_cust_bo(
770: p_init_msg_list => fnd_api.g_false,
771: p_person_cust_obj => p_person_cust_obj,
772: p_created_by_module => p_created_by_module,
773: p_obj_source => p_obj_source,
774: x_return_status => x_return_status,
776: x_msg_data => x_msg_data,
777: x_person_id => x_person_id
778: );
779: ELSE
780: RAISE FND_API.G_EXC_ERROR;
781: END IF;
782:
783: -- Debug info.
784: IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
792: p_prefix=>l_debug_prefix,
793: p_msg_level=>fnd_log.level_procedure);
794: END IF;
795: EXCEPTION
796: WHEN fnd_api.g_exc_error THEN
797: x_return_status := fnd_api.g_ret_sts_error;
798:
799: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
800: p_count => x_msg_count,
793: p_msg_level=>fnd_log.level_procedure);
794: END IF;
795: EXCEPTION
796: WHEN fnd_api.g_exc_error THEN
797: x_return_status := fnd_api.g_ret_sts_error;
798:
799: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
800: p_count => x_msg_count,
801: p_data => x_msg_data);
795: EXCEPTION
796: WHEN fnd_api.g_exc_error THEN
797: x_return_status := fnd_api.g_ret_sts_error;
798:
799: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
800: p_count => x_msg_count,
801: p_data => x_msg_data);
802:
803: -- Debug info.
812: p_prefix=>l_debug_prefix,
813: p_msg_level=>fnd_log.level_procedure);
814: END IF;
815:
816: WHEN fnd_api.g_exc_unexpected_error THEN
817: x_return_status := fnd_api.g_ret_sts_unexp_error;
818:
819: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
820: p_count => x_msg_count,
813: p_msg_level=>fnd_log.level_procedure);
814: END IF;
815:
816: WHEN fnd_api.g_exc_unexpected_error THEN
817: x_return_status := fnd_api.g_ret_sts_unexp_error;
818:
819: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
820: p_count => x_msg_count,
821: p_data => x_msg_data);
815:
816: WHEN fnd_api.g_exc_unexpected_error THEN
817: x_return_status := fnd_api.g_ret_sts_unexp_error;
818:
819: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
820: p_count => x_msg_count,
821: p_data => x_msg_data);
822:
823: -- Debug info.
832: p_prefix=>l_debug_prefix,
833: p_msg_level=>fnd_log.level_procedure);
834: END IF;
835: WHEN OTHERS THEN
836: x_return_status := fnd_api.g_ret_sts_unexp_error;
837:
838: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
839: fnd_message.set_token('ERROR' ,SQLERRM);
840: fnd_msg_pub.add;
838: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
839: fnd_message.set_token('ERROR' ,SQLERRM);
840: fnd_msg_pub.add;
841:
842: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
843: p_count => x_msg_count,
844: p_data => x_msg_data);
845:
846: -- Debug info.
857: END IF;
858: END do_save_person_cust_bo;
859:
860: PROCEDURE save_person_cust_bo(
861: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
862: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
863: p_person_cust_obj IN HZ_PERSON_CUST_BO,
864: p_created_by_module IN VARCHAR2,
865: x_return_status OUT NOCOPY VARCHAR2,
858: END do_save_person_cust_bo;
859:
860: PROCEDURE save_person_cust_bo(
861: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
862: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
863: p_person_cust_obj IN HZ_PERSON_CUST_BO,
864: p_created_by_module IN VARCHAR2,
865: x_return_status OUT NOCOPY VARCHAR2,
866: x_msg_count OUT NOCOPY NUMBER,
883: );
884: END save_person_cust_bo;
885:
886: PROCEDURE save_person_cust_bo(
887: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
888: p_person_cust_obj IN HZ_PERSON_CUST_BO,
889: p_created_by_module IN VARCHAR2,
890: p_obj_source IN VARCHAR2 := null,
891: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
887: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
888: p_person_cust_obj IN HZ_PERSON_CUST_BO,
889: p_created_by_module IN VARCHAR2,
890: p_obj_source IN VARCHAR2 := null,
891: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
892: x_return_status OUT NOCOPY VARCHAR2,
893: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
894: x_return_obj OUT NOCOPY HZ_PERSON_CUST_BO,
895: x_person_id OUT NOCOPY NUMBER
899: l_pc_obj HZ_PERSON_CUST_BO;
900: BEGIN
901: l_pc_obj := p_person_cust_obj;
902: do_save_person_cust_bo(
903: p_init_msg_list => fnd_api.g_true,
904: p_validate_bo_flag => p_validate_bo_flag,
905: p_person_cust_obj => l_pc_obj,
906: p_created_by_module => p_created_by_module,
907: p_obj_source => p_obj_source,
913: x_messages := HZ_PARTY_BO_PVT.return_all_messages(
914: x_return_status => x_return_status,
915: x_msg_count => l_msg_count,
916: x_msg_data => l_msg_data);
917: IF FND_API.to_Boolean(p_return_obj_flag) THEN
918: x_return_obj := l_pc_obj;
919: END IF;
920: END save_person_cust_bo;
921:
929: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
930: --
931: -- ARGUMENTS
932: -- IN:
933: -- p_init_msg_list Initialize message stack if it is set to FND_API.G_TRUE. Default is FND_API.G_FALSE.
934: -- p_person_id Person ID.
935: -- p_person_os Person orig system.
936: -- p_person_osr Person orig system reference.
937:
937:
938: -- OUT:
939: -- x_person_cust_obj Logical person customer record.
940: -- x_return_status Return status after the call. The status can
941: -- be fnd_api.g_ret_sts_success (success),
942: -- fnd_api.g_ret_sts_error (error),
943: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
944: -- x_msg_count Number of messages in message stack.
945: -- x_msg_data Message text if x_msg_count is 1.
938: -- OUT:
939: -- x_person_cust_obj Logical person customer record.
940: -- x_return_status Return status after the call. The status can
941: -- be fnd_api.g_ret_sts_success (success),
942: -- fnd_api.g_ret_sts_error (error),
943: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
944: -- x_msg_count Number of messages in message stack.
945: -- x_msg_data Message text if x_msg_count is 1.
946: --
939: -- x_person_cust_obj Logical person customer record.
940: -- x_return_status Return status after the call. The status can
941: -- be fnd_api.g_ret_sts_success (success),
942: -- fnd_api.g_ret_sts_error (error),
943: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
944: -- x_msg_count Number of messages in message stack.
945: -- x_msg_data Message text if x_msg_count is 1.
946: --
947: -- NOTES
972:
973:
974:
975: PROCEDURE get_person_cust_bo(
976: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
977: p_person_id IN NUMBER,
978: p_person_os IN VARCHAR2,
979: p_person_osr IN VARCHAR2,
980: x_person_cust_obj OUT NOCOPY HZ_PERSON_CUST_BO,
989: l_person_osr varchar2(255);
990: BEGIN
991:
992: -- initialize API return status to success.
993: x_return_status := FND_API.G_RET_STS_SUCCESS;
994:
995: -- Initialize message list if p_init_msg_list is set to TRUE
996: IF FND_API.to_Boolean(p_init_msg_list) THEN
997: FND_MSG_PUB.initialize;
992: -- initialize API return status to success.
993: x_return_status := FND_API.G_RET_STS_SUCCESS;
994:
995: -- Initialize message list if p_init_msg_list is set to TRUE
996: IF FND_API.to_Boolean(p_init_msg_list) THEN
997: FND_MSG_PUB.initialize;
998: END IF;
999:
1000:
1020: x_return_status => x_return_status,
1021: x_msg_count => x_msg_count,
1022: x_msg_data => x_msg_data);
1023:
1024: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1025: RAISE fnd_api.g_exc_error;
1026: END IF;
1027:
1028: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_person_cust_bo(
1021: x_msg_count => x_msg_count,
1022: x_msg_data => x_msg_data);
1023:
1024: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1025: RAISE fnd_api.g_exc_error;
1026: END IF;
1027:
1028: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_person_cust_bo(
1029: p_init_msg_list => fnd_api.g_false,
1025: RAISE fnd_api.g_exc_error;
1026: END IF;
1027:
1028: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_person_cust_bo(
1029: p_init_msg_list => fnd_api.g_false,
1030: p_person_id => l_person_id,
1031: p_action_type => NULL,
1032: x_person_cust_obj => x_person_cust_obj,
1033: x_return_status => x_return_status,
1033: x_return_status => x_return_status,
1034: x_msg_count => x_msg_count,
1035: x_msg_data => x_msg_data);
1036:
1037: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1038: RAISE FND_API.G_EXC_ERROR;
1039: END IF;
1040:
1041:
1034: x_msg_count => x_msg_count,
1035: x_msg_data => x_msg_data);
1036:
1037: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1038: RAISE FND_API.G_EXC_ERROR;
1039: END IF;
1040:
1041:
1042: -- Debug info.
1056:
1057:
1058: EXCEPTION
1059:
1060: WHEN fnd_api.g_exc_error THEN
1061: x_return_status := fnd_api.g_ret_sts_error;
1062:
1063: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1064: p_count => x_msg_count,
1057:
1058: EXCEPTION
1059:
1060: WHEN fnd_api.g_exc_error THEN
1061: x_return_status := fnd_api.g_ret_sts_error;
1062:
1063: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1064: p_count => x_msg_count,
1065: p_data => x_msg_data);
1059:
1060: WHEN fnd_api.g_exc_error THEN
1061: x_return_status := fnd_api.g_ret_sts_error;
1062:
1063: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1064: p_count => x_msg_count,
1065: p_data => x_msg_data);
1066:
1067: -- Debug info.
1075: hz_utility_v2pub.debug(p_message=>'hz_person_cust_bo_pub.get_person_cust_bo (-)',
1076: p_prefix=>l_debug_prefix,
1077: p_msg_level=>fnd_log.level_procedure);
1078: END IF;
1079: WHEN fnd_api.g_exc_unexpected_error THEN
1080: x_return_status := fnd_api.g_ret_sts_unexp_error;
1081:
1082: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1083: p_count => x_msg_count,
1076: p_prefix=>l_debug_prefix,
1077: p_msg_level=>fnd_log.level_procedure);
1078: END IF;
1079: WHEN fnd_api.g_exc_unexpected_error THEN
1080: x_return_status := fnd_api.g_ret_sts_unexp_error;
1081:
1082: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1083: p_count => x_msg_count,
1084: p_data => x_msg_data);
1078: END IF;
1079: WHEN fnd_api.g_exc_unexpected_error THEN
1080: x_return_status := fnd_api.g_ret_sts_unexp_error;
1081:
1082: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1083: p_count => x_msg_count,
1084: p_data => x_msg_data);
1085:
1086: -- Debug info.
1095: p_prefix=>l_debug_prefix,
1096: p_msg_level=>fnd_log.level_procedure);
1097: END IF;
1098: WHEN OTHERS THEN
1099: x_return_status := fnd_api.g_ret_sts_unexp_error;
1100:
1101: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1102: fnd_message.set_token('ERROR' ,SQLERRM);
1103: fnd_msg_pub.add;
1101: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1102: fnd_message.set_token('ERROR' ,SQLERRM);
1103: fnd_msg_pub.add;
1104:
1105: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1106: p_count => x_msg_count,
1107: p_data => x_msg_data);
1108:
1109: -- Debug info.
1132: l_msg_data VARCHAR2(2000);
1133: l_msg_count NUMBER;
1134: BEGIN
1135: get_person_cust_bo(
1136: p_init_msg_list => fnd_api.g_true,
1137: p_person_id => p_person_id,
1138: p_person_os => p_person_os,
1139: p_person_osr => p_person_osr,
1140: x_person_cust_obj => x_person_cust_obj,
1163: -- ARGUMENTS
1164: -- IN:
1165: -- p_init_msg_list Initialize message stack if it is set to
1166: -- p_event_id BES Event identifier.
1167: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
1168: -- OUT:
1169: -- x_person_cust_objs One or more created logical person customer.
1170: -- x_return_status Return status after the call. The status can
1171: -- be fnd_api.g_ret_sts_success (success),
1167: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
1168: -- OUT:
1169: -- x_person_cust_objs One or more created logical person customer.
1170: -- x_return_status Return status after the call. The status can
1171: -- be fnd_api.g_ret_sts_success (success),
1172: -- fnd_api.g_ret_sts_error (error),
1173: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1174: -- x_msg_count Number of messages in message stack.
1175: -- x_msg_data Message text if x_msg_count is 1.
1168: -- OUT:
1169: -- x_person_cust_objs One or more created logical person customer.
1170: -- x_return_status Return status after the call. The status can
1171: -- be fnd_api.g_ret_sts_success (success),
1172: -- fnd_api.g_ret_sts_error (error),
1173: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1174: -- x_msg_count Number of messages in message stack.
1175: -- x_msg_data Message text if x_msg_count is 1.
1176: --
1169: -- x_person_cust_objs One or more created logical person customer.
1170: -- x_return_status Return status after the call. The status can
1171: -- be fnd_api.g_ret_sts_success (success),
1172: -- fnd_api.g_ret_sts_error (error),
1173: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1174: -- x_msg_count Number of messages in message stack.
1175: -- x_msg_data Message text if x_msg_count is 1.
1176: --
1177: -- NOTES
1197: */
1198:
1199:
1200: PROCEDURE get_person_custs_created(
1201: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1202: p_event_id IN NUMBER,
1203: x_person_cust_objs OUT NOCOPY HZ_PERSON_CUST_BO_TBL,
1204: x_return_status OUT NOCOPY VARCHAR2,
1205: x_msg_count OUT NOCOPY NUMBER,
1208: l_debug_prefix VARCHAR2(30) := '';
1209: begin
1210:
1211: -- initialize API return status to success.
1212: x_return_status := FND_API.G_RET_STS_SUCCESS;
1213:
1214: -- Initialize message list if p_init_msg_list is set to TRUE
1215: IF FND_API.to_Boolean(p_init_msg_list) THEN
1216: FND_MSG_PUB.initialize;
1211: -- initialize API return status to success.
1212: x_return_status := FND_API.G_RET_STS_SUCCESS;
1213:
1214: -- Initialize message list if p_init_msg_list is set to TRUE
1215: IF FND_API.to_Boolean(p_init_msg_list) THEN
1216: FND_MSG_PUB.initialize;
1217: END IF;
1218:
1219:
1229: p_event_type => 'C',
1230: p_bo_code => 'PERSON_CUST',
1231: x_return_status => x_return_status);
1232:
1233: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1234: RAISE FND_API.G_EXC_ERROR;
1235: END IF;
1236:
1237: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_person_custs_created(
1230: p_bo_code => 'PERSON_CUST',
1231: x_return_status => x_return_status);
1232:
1233: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1234: RAISE FND_API.G_EXC_ERROR;
1235: END IF;
1236:
1237: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_person_custs_created(
1238: p_init_msg_list => fnd_api.g_false,
1234: RAISE FND_API.G_EXC_ERROR;
1235: END IF;
1236:
1237: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_person_custs_created(
1238: p_init_msg_list => fnd_api.g_false,
1239: p_event_id => p_event_id,
1240: x_person_cust_objs => x_person_cust_objs,
1241: x_return_status => x_return_status,
1242: x_msg_count => x_msg_count,
1241: x_return_status => x_return_status,
1242: x_msg_count => x_msg_count,
1243: x_msg_data => x_msg_data);
1244:
1245: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1246: RAISE FND_API.G_EXC_ERROR;
1247: END IF;
1248:
1249:
1242: x_msg_count => x_msg_count,
1243: x_msg_data => x_msg_data);
1244:
1245: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1246: RAISE FND_API.G_EXC_ERROR;
1247: END IF;
1248:
1249:
1250:
1265:
1266:
1267: EXCEPTION
1268:
1269: WHEN fnd_api.g_exc_error THEN
1270: x_return_status := fnd_api.g_ret_sts_error;
1271:
1272: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1273: p_count => x_msg_count,
1266:
1267: EXCEPTION
1268:
1269: WHEN fnd_api.g_exc_error THEN
1270: x_return_status := fnd_api.g_ret_sts_error;
1271:
1272: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1273: p_count => x_msg_count,
1274: p_data => x_msg_data);
1268:
1269: WHEN fnd_api.g_exc_error THEN
1270: x_return_status := fnd_api.g_ret_sts_error;
1271:
1272: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1273: p_count => x_msg_count,
1274: p_data => x_msg_data);
1275:
1276: -- Debug info.
1284: hz_utility_v2pub.debug(p_message=>'hz_person_cust_bo_pub.get_person_custs_created(-)',
1285: p_prefix=>l_debug_prefix,
1286: p_msg_level=>fnd_log.level_procedure);
1287: END IF;
1288: WHEN fnd_api.g_exc_unexpected_error THEN
1289: x_return_status := fnd_api.g_ret_sts_unexp_error;
1290:
1291: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1292: p_count => x_msg_count,
1285: p_prefix=>l_debug_prefix,
1286: p_msg_level=>fnd_log.level_procedure);
1287: END IF;
1288: WHEN fnd_api.g_exc_unexpected_error THEN
1289: x_return_status := fnd_api.g_ret_sts_unexp_error;
1290:
1291: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1292: p_count => x_msg_count,
1293: p_data => x_msg_data);
1287: END IF;
1288: WHEN fnd_api.g_exc_unexpected_error THEN
1289: x_return_status := fnd_api.g_ret_sts_unexp_error;
1290:
1291: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1292: p_count => x_msg_count,
1293: p_data => x_msg_data);
1294:
1295: -- Debug info.
1304: p_prefix=>l_debug_prefix,
1305: p_msg_level=>fnd_log.level_procedure);
1306: END IF;
1307: WHEN OTHERS THEN
1308: x_return_status := fnd_api.g_ret_sts_unexp_error;
1309:
1310: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1311: fnd_message.set_token('ERROR' ,SQLERRM);
1312: fnd_msg_pub.add;
1310: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1311: fnd_message.set_token('ERROR' ,SQLERRM);
1312: fnd_msg_pub.add;
1313:
1314: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1315: p_count => x_msg_count,
1316: p_data => x_msg_data);
1317:
1318: -- Debug info.
1339: l_msg_data VARCHAR2(2000);
1340: l_msg_count NUMBER;
1341: BEGIN
1342: get_person_custs_created(
1343: p_init_msg_list => fnd_api.g_true,
1344: p_event_id => p_event_id,
1345: x_person_cust_objs => x_person_cust_objs,
1346: x_return_status => x_return_status,
1347: x_msg_count => l_msg_count,
1371: -- ARGUMENTS
1372: -- IN:
1373: -- p_init_msg_list Initialize message stack if it is set to
1374: -- p_event_id BES Event identifier.
1375: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
1376: -- OUT:
1377: -- x_person_cust_objs One or more created logical person.
1378: -- x_return_status Return status after the call. The status can
1379: -- be fnd_api.g_ret_sts_success (success),
1375: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
1376: -- OUT:
1377: -- x_person_cust_objs One or more created logical person.
1378: -- x_return_status Return status after the call. The status can
1379: -- be fnd_api.g_ret_sts_success (success),
1380: -- fnd_api.g_ret_sts_error (error),
1381: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1382: -- x_msg_count Number of messages in message stack.
1383: -- x_msg_data Message text if x_msg_count is 1.
1376: -- OUT:
1377: -- x_person_cust_objs One or more created logical person.
1378: -- x_return_status Return status after the call. The status can
1379: -- be fnd_api.g_ret_sts_success (success),
1380: -- fnd_api.g_ret_sts_error (error),
1381: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1382: -- x_msg_count Number of messages in message stack.
1383: -- x_msg_data Message text if x_msg_count is 1.
1384: --
1377: -- x_person_cust_objs One or more created logical person.
1378: -- x_return_status Return status after the call. The status can
1379: -- be fnd_api.g_ret_sts_success (success),
1380: -- fnd_api.g_ret_sts_error (error),
1381: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1382: -- x_msg_count Number of messages in message stack.
1383: -- x_msg_data Message text if x_msg_count is 1.
1384: --
1385: -- NOTES
1401: them to the caller.
1402: */
1403:
1404: PROCEDURE get_person_custs_updated(
1405: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1406: p_event_id IN NUMBER,
1407: x_person_cust_objs OUT NOCOPY HZ_PERSON_CUST_BO_TBL,
1408: x_return_status OUT NOCOPY VARCHAR2,
1409: x_msg_count OUT NOCOPY NUMBER,
1413: l_debug_prefix VARCHAR2(30) := '';
1414: begin
1415:
1416: -- initialize API return status to success.
1417: x_return_status := FND_API.G_RET_STS_SUCCESS;
1418:
1419: -- Initialize message list if p_init_msg_list is set to TRUE
1420: IF FND_API.to_Boolean(p_init_msg_list) THEN
1421: FND_MSG_PUB.initialize;
1416: -- initialize API return status to success.
1417: x_return_status := FND_API.G_RET_STS_SUCCESS;
1418:
1419: -- Initialize message list if p_init_msg_list is set to TRUE
1420: IF FND_API.to_Boolean(p_init_msg_list) THEN
1421: FND_MSG_PUB.initialize;
1422: END IF;
1423:
1424:
1434: p_event_type => 'U',
1435: p_bo_code => 'PERSON_CUST',
1436: x_return_status => x_return_status);
1437:
1438: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1439: RAISE FND_API.G_EXC_ERROR;
1440: END IF;
1441:
1442: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_person_custs_updated(
1435: p_bo_code => 'PERSON_CUST',
1436: x_return_status => x_return_status);
1437:
1438: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1439: RAISE FND_API.G_EXC_ERROR;
1440: END IF;
1441:
1442: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_person_custs_updated(
1443: p_init_msg_list => fnd_api.g_false,
1439: RAISE FND_API.G_EXC_ERROR;
1440: END IF;
1441:
1442: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_person_custs_updated(
1443: p_init_msg_list => fnd_api.g_false,
1444: p_event_id => p_event_id,
1445: x_person_cust_objs => x_person_cust_objs,
1446: x_return_status => x_return_status,
1447: x_msg_count => x_msg_count,
1446: x_return_status => x_return_status,
1447: x_msg_count => x_msg_count,
1448: x_msg_data => x_msg_data);
1449:
1450: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1451: RAISE FND_API.G_EXC_ERROR;
1452: END IF;
1453:
1454:
1447: x_msg_count => x_msg_count,
1448: x_msg_data => x_msg_data);
1449:
1450: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1451: RAISE FND_API.G_EXC_ERROR;
1452: END IF;
1453:
1454:
1455:
1470:
1471:
1472: EXCEPTION
1473:
1474: WHEN fnd_api.g_exc_error THEN
1475: x_return_status := fnd_api.g_ret_sts_error;
1476:
1477: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1478: p_count => x_msg_count,
1471:
1472: EXCEPTION
1473:
1474: WHEN fnd_api.g_exc_error THEN
1475: x_return_status := fnd_api.g_ret_sts_error;
1476:
1477: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1478: p_count => x_msg_count,
1479: p_data => x_msg_data);
1473:
1474: WHEN fnd_api.g_exc_error THEN
1475: x_return_status := fnd_api.g_ret_sts_error;
1476:
1477: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1478: p_count => x_msg_count,
1479: p_data => x_msg_data);
1480:
1481: -- Debug info.
1489: hz_utility_v2pub.debug(p_message=>'hz_person_cust_bo_pub.get_person_custs_updated(-)',
1490: p_prefix=>l_debug_prefix,
1491: p_msg_level=>fnd_log.level_procedure);
1492: END IF;
1493: WHEN fnd_api.g_exc_unexpected_error THEN
1494: x_return_status := fnd_api.g_ret_sts_unexp_error;
1495:
1496: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1497: p_count => x_msg_count,
1490: p_prefix=>l_debug_prefix,
1491: p_msg_level=>fnd_log.level_procedure);
1492: END IF;
1493: WHEN fnd_api.g_exc_unexpected_error THEN
1494: x_return_status := fnd_api.g_ret_sts_unexp_error;
1495:
1496: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1497: p_count => x_msg_count,
1498: p_data => x_msg_data);
1492: END IF;
1493: WHEN fnd_api.g_exc_unexpected_error THEN
1494: x_return_status := fnd_api.g_ret_sts_unexp_error;
1495:
1496: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1497: p_count => x_msg_count,
1498: p_data => x_msg_data);
1499:
1500: -- Debug info.
1509: p_prefix=>l_debug_prefix,
1510: p_msg_level=>fnd_log.level_procedure);
1511: END IF;
1512: WHEN OTHERS THEN
1513: x_return_status := fnd_api.g_ret_sts_unexp_error;
1514:
1515: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1516: fnd_message.set_token('ERROR' ,SQLERRM);
1517: fnd_msg_pub.add;
1515: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1516: fnd_message.set_token('ERROR' ,SQLERRM);
1517: fnd_msg_pub.add;
1518:
1519: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1520: p_count => x_msg_count,
1521: p_data => x_msg_data);
1522:
1523: -- Debug info.
1544: l_msg_data VARCHAR2(2000);
1545: l_msg_count NUMBER;
1546: BEGIN
1547: get_person_custs_updated(
1548: p_init_msg_list => fnd_api.g_true,
1549: p_event_id => p_event_id,
1550: x_person_cust_objs => x_person_cust_objs,
1551: x_return_status => x_return_status,
1552: x_msg_count => l_msg_count,
1572: -- IN:
1573: -- p_init_msg_list Initialize message stack if it is set to
1574: -- p_event_id BES Event identifier.
1575: -- p_person_cust_id Person customer identifier.
1576: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
1577: -- OUT:
1578: -- x_person_cust_obj One updated logical person.
1579: -- x_return_status Return status after the call. The status can
1580: -- be fnd_api.g_ret_sts_success (success),
1576: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
1577: -- OUT:
1578: -- x_person_cust_obj One updated logical person.
1579: -- x_return_status Return status after the call. The status can
1580: -- be fnd_api.g_ret_sts_success (success),
1581: -- fnd_api.g_ret_sts_error (error),
1582: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1583: -- x_msg_count Number of messages in message stack.
1584: -- x_msg_data Message text if x_msg_count is 1.
1577: -- OUT:
1578: -- x_person_cust_obj One updated logical person.
1579: -- x_return_status Return status after the call. The status can
1580: -- be fnd_api.g_ret_sts_success (success),
1581: -- fnd_api.g_ret_sts_error (error),
1582: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1583: -- x_msg_count Number of messages in message stack.
1584: -- x_msg_data Message text if x_msg_count is 1.
1585: --
1578: -- x_person_cust_obj One updated logical person.
1579: -- x_return_status Return status after the call. The status can
1580: -- be fnd_api.g_ret_sts_success (success),
1581: -- fnd_api.g_ret_sts_error (error),
1582: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1583: -- x_msg_count Number of messages in message stack.
1584: -- x_msg_data Message text if x_msg_count is 1.
1585: --
1586: -- NOTES
1590: -- 06-JUN-2005 AWU Created.
1591: --
1592:
1593: PROCEDURE get_person_cust_updated(
1594: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1595: p_event_id IN NUMBER,
1596: p_person_cust_id IN NUMBER,
1597: x_person_cust_obj OUT NOCOPY HZ_PERSON_CUST_BO,
1598: x_return_status OUT NOCOPY VARCHAR2,
1602: l_debug_prefix VARCHAR2(30) := '';
1603: begin
1604:
1605: -- initialize API return status to success.
1606: x_return_status := FND_API.G_RET_STS_SUCCESS;
1607:
1608: -- Initialize message list if p_init_msg_list is set to TRUE
1609: IF FND_API.to_Boolean(p_init_msg_list) THEN
1610: FND_MSG_PUB.initialize;
1605: -- initialize API return status to success.
1606: x_return_status := FND_API.G_RET_STS_SUCCESS;
1607:
1608: -- Initialize message list if p_init_msg_list is set to TRUE
1609: IF FND_API.to_Boolean(p_init_msg_list) THEN
1610: FND_MSG_PUB.initialize;
1611: END IF;
1612:
1613:
1623: p_event_type => 'U',
1624: p_bo_code => 'PERSON_CUST',
1625: x_return_status => x_return_status);
1626:
1627: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1628: RAISE FND_API.G_EXC_ERROR;
1629: END IF;
1630:
1631: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_person_cust_updated(
1624: p_bo_code => 'PERSON_CUST',
1625: x_return_status => x_return_status);
1626:
1627: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1628: RAISE FND_API.G_EXC_ERROR;
1629: END IF;
1630:
1631: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_person_cust_updated(
1632: p_init_msg_list => fnd_api.g_false,
1628: RAISE FND_API.G_EXC_ERROR;
1629: END IF;
1630:
1631: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_person_cust_updated(
1632: p_init_msg_list => fnd_api.g_false,
1633: p_event_id => p_event_id,
1634: p_person_cust_id => p_person_cust_id,
1635: x_person_cust_obj => x_person_cust_obj,
1636: x_return_status => x_return_status,
1636: x_return_status => x_return_status,
1637: x_msg_count => x_msg_count,
1638: x_msg_data => x_msg_data);
1639:
1640: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1641: RAISE FND_API.G_EXC_ERROR;
1642: END IF;
1643:
1644:
1637: x_msg_count => x_msg_count,
1638: x_msg_data => x_msg_data);
1639:
1640: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1641: RAISE FND_API.G_EXC_ERROR;
1642: END IF;
1643:
1644:
1645:
1660:
1661:
1662: EXCEPTION
1663:
1664: WHEN fnd_api.g_exc_error THEN
1665: x_return_status := fnd_api.g_ret_sts_error;
1666:
1667: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1668: p_count => x_msg_count,
1661:
1662: EXCEPTION
1663:
1664: WHEN fnd_api.g_exc_error THEN
1665: x_return_status := fnd_api.g_ret_sts_error;
1666:
1667: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1668: p_count => x_msg_count,
1669: p_data => x_msg_data);
1663:
1664: WHEN fnd_api.g_exc_error THEN
1665: x_return_status := fnd_api.g_ret_sts_error;
1666:
1667: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1668: p_count => x_msg_count,
1669: p_data => x_msg_data);
1670:
1671: -- Debug info.
1679: hz_utility_v2pub.debug(p_message=>'hz_person_cust_bo_pub.get_person_cust_updated(-)',
1680: p_prefix=>l_debug_prefix,
1681: p_msg_level=>fnd_log.level_procedure);
1682: END IF;
1683: WHEN fnd_api.g_exc_unexpected_error THEN
1684: x_return_status := fnd_api.g_ret_sts_unexp_error;
1685:
1686: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1687: p_count => x_msg_count,
1680: p_prefix=>l_debug_prefix,
1681: p_msg_level=>fnd_log.level_procedure);
1682: END IF;
1683: WHEN fnd_api.g_exc_unexpected_error THEN
1684: x_return_status := fnd_api.g_ret_sts_unexp_error;
1685:
1686: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1687: p_count => x_msg_count,
1688: p_data => x_msg_data);
1682: END IF;
1683: WHEN fnd_api.g_exc_unexpected_error THEN
1684: x_return_status := fnd_api.g_ret_sts_unexp_error;
1685:
1686: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1687: p_count => x_msg_count,
1688: p_data => x_msg_data);
1689:
1690: -- Debug info.
1699: p_prefix=>l_debug_prefix,
1700: p_msg_level=>fnd_log.level_procedure);
1701: END IF;
1702: WHEN OTHERS THEN
1703: x_return_status := fnd_api.g_ret_sts_unexp_error;
1704:
1705: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1706: fnd_message.set_token('ERROR' ,SQLERRM);
1707: fnd_msg_pub.add;
1705: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1706: fnd_message.set_token('ERROR' ,SQLERRM);
1707: fnd_msg_pub.add;
1708:
1709: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1710: p_count => x_msg_count,
1711: p_data => x_msg_data);
1712:
1713: -- Debug info.
1735: l_msg_data VARCHAR2(2000);
1736: l_msg_count NUMBER;
1737: BEGIN
1738: get_person_cust_updated(
1739: p_init_msg_list => fnd_api.g_true,
1740: p_event_id => p_event_id,
1741: p_person_cust_id => p_person_cust_id,
1742: x_person_cust_obj => x_person_cust_obj,
1743: x_return_status => x_return_status,
1751: END get_person_cust_updated;
1752:
1753: -- get TCA identifiers for create event
1754: PROCEDURE get_ids_person_custs_created (
1755: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1756: p_event_id IN NUMBER,
1757: x_person_cust_ids OUT NOCOPY HZ_EXTRACT_BO_UTIL_PVT.BO_ID_TBL,
1758: x_return_status OUT NOCOPY VARCHAR2,
1759: x_msg_count OUT NOCOPY NUMBER,
1763: l_debug_prefix VARCHAR2(30) := '';
1764:
1765: begin
1766: -- initialize API return status to success.
1767: x_return_status := FND_API.G_RET_STS_SUCCESS;
1768:
1769: -- Initialize message list if p_init_msg_list is set to TRUE
1770: IF FND_API.to_Boolean(p_init_msg_list) THEN
1771: FND_MSG_PUB.initialize;
1766: -- initialize API return status to success.
1767: x_return_status := FND_API.G_RET_STS_SUCCESS;
1768:
1769: -- Initialize message list if p_init_msg_list is set to TRUE
1770: IF FND_API.to_Boolean(p_init_msg_list) THEN
1771: FND_MSG_PUB.initialize;
1772: END IF;
1773:
1774:
1784: p_event_type => 'C',
1785: p_bo_code => 'PERSON_CUST',
1786: x_return_status => x_return_status);
1787:
1788: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1789: RAISE FND_API.G_EXC_ERROR;
1790: END IF;
1791:
1792: HZ_EXTRACT_BO_UTIL_PVT.get_bo_root_ids(
1785: p_bo_code => 'PERSON_CUST',
1786: x_return_status => x_return_status);
1787:
1788: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1789: RAISE FND_API.G_EXC_ERROR;
1790: END IF;
1791:
1792: HZ_EXTRACT_BO_UTIL_PVT.get_bo_root_ids(
1793: p_init_msg_list => fnd_api.g_false,
1789: RAISE FND_API.G_EXC_ERROR;
1790: END IF;
1791:
1792: HZ_EXTRACT_BO_UTIL_PVT.get_bo_root_ids(
1793: p_init_msg_list => fnd_api.g_false,
1794: p_event_id => p_event_id,
1795: x_obj_root_ids => x_person_cust_ids,
1796: x_return_status => x_return_status,
1797: x_msg_count => x_msg_count,
1796: x_return_status => x_return_status,
1797: x_msg_count => x_msg_count,
1798: x_msg_data => x_msg_data);
1799:
1800: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1801: RAISE FND_API.G_EXC_ERROR;
1802: END IF;
1803:
1804:
1797: x_msg_count => x_msg_count,
1798: x_msg_data => x_msg_data);
1799:
1800: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1801: RAISE FND_API.G_EXC_ERROR;
1802: END IF;
1803:
1804:
1805: -- Debug info.
1819:
1820:
1821: EXCEPTION
1822:
1823: WHEN fnd_api.g_exc_error THEN
1824: x_return_status := fnd_api.g_ret_sts_error;
1825:
1826: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1827: p_count => x_msg_count,
1820:
1821: EXCEPTION
1822:
1823: WHEN fnd_api.g_exc_error THEN
1824: x_return_status := fnd_api.g_ret_sts_error;
1825:
1826: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1827: p_count => x_msg_count,
1828: p_data => x_msg_data);
1822:
1823: WHEN fnd_api.g_exc_error THEN
1824: x_return_status := fnd_api.g_ret_sts_error;
1825:
1826: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1827: p_count => x_msg_count,
1828: p_data => x_msg_data);
1829:
1830: -- Debug info.
1838: hz_utility_v2pub.debug(p_message=>'get_ids_person_custs_created(-)',
1839: p_prefix=>l_debug_prefix,
1840: p_msg_level=>fnd_log.level_procedure);
1841: END IF;
1842: WHEN fnd_api.g_exc_unexpected_error THEN
1843: x_return_status := fnd_api.g_ret_sts_unexp_error;
1844:
1845: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1846: p_count => x_msg_count,
1839: p_prefix=>l_debug_prefix,
1840: p_msg_level=>fnd_log.level_procedure);
1841: END IF;
1842: WHEN fnd_api.g_exc_unexpected_error THEN
1843: x_return_status := fnd_api.g_ret_sts_unexp_error;
1844:
1845: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1846: p_count => x_msg_count,
1847: p_data => x_msg_data);
1841: END IF;
1842: WHEN fnd_api.g_exc_unexpected_error THEN
1843: x_return_status := fnd_api.g_ret_sts_unexp_error;
1844:
1845: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1846: p_count => x_msg_count,
1847: p_data => x_msg_data);
1848:
1849: -- Debug info.
1858: p_prefix=>l_debug_prefix,
1859: p_msg_level=>fnd_log.level_procedure);
1860: END IF;
1861: WHEN OTHERS THEN
1862: x_return_status := fnd_api.g_ret_sts_unexp_error;
1863:
1864: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1865: fnd_message.set_token('ERROR' ,SQLERRM);
1866: fnd_msg_pub.add;
1864: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1865: fnd_message.set_token('ERROR' ,SQLERRM);
1866: fnd_msg_pub.add;
1867:
1868: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1869: p_count => x_msg_count,
1870: p_data => x_msg_data);
1871:
1872: -- Debug info.
1886:
1887:
1888: -- get TCA identifiers for update event
1889: PROCEDURE get_ids_person_custs_updated (
1890: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1891: p_event_id IN NUMBER,
1892: x_person_cust_ids OUT NOCOPY HZ_EXTRACT_BO_UTIL_PVT.BO_ID_TBL,
1893: x_return_status OUT NOCOPY VARCHAR2,
1894: x_msg_count OUT NOCOPY NUMBER,
1897: l_debug_prefix VARCHAR2(30) := '';
1898:
1899: begin
1900: -- initialize API return status to success.
1901: x_return_status := FND_API.G_RET_STS_SUCCESS;
1902:
1903: -- Initialize message list if p_init_msg_list is set to TRUE
1904: IF FND_API.to_Boolean(p_init_msg_list) THEN
1905: FND_MSG_PUB.initialize;
1900: -- initialize API return status to success.
1901: x_return_status := FND_API.G_RET_STS_SUCCESS;
1902:
1903: -- Initialize message list if p_init_msg_list is set to TRUE
1904: IF FND_API.to_Boolean(p_init_msg_list) THEN
1905: FND_MSG_PUB.initialize;
1906: END IF;
1907:
1908:
1918: p_event_type => 'U',
1919: p_bo_code => 'PERSON_CUST',
1920: x_return_status => x_return_status);
1921:
1922: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1923: RAISE FND_API.G_EXC_ERROR;
1924: END IF;
1925:
1926: HZ_EXTRACT_BO_UTIL_PVT.get_bo_root_ids(
1919: p_bo_code => 'PERSON_CUST',
1920: x_return_status => x_return_status);
1921:
1922: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1923: RAISE FND_API.G_EXC_ERROR;
1924: END IF;
1925:
1926: HZ_EXTRACT_BO_UTIL_PVT.get_bo_root_ids(
1927: p_init_msg_list => fnd_api.g_false,
1923: RAISE FND_API.G_EXC_ERROR;
1924: END IF;
1925:
1926: HZ_EXTRACT_BO_UTIL_PVT.get_bo_root_ids(
1927: p_init_msg_list => fnd_api.g_false,
1928: p_event_id => p_event_id,
1929: x_obj_root_ids => x_person_cust_ids,
1930: x_return_status => x_return_status,
1931: x_msg_count => x_msg_count,
1930: x_return_status => x_return_status,
1931: x_msg_count => x_msg_count,
1932: x_msg_data => x_msg_data);
1933:
1934: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1935: RAISE FND_API.G_EXC_ERROR;
1936: END IF;
1937:
1938:
1931: x_msg_count => x_msg_count,
1932: x_msg_data => x_msg_data);
1933:
1934: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1935: RAISE FND_API.G_EXC_ERROR;
1936: END IF;
1937:
1938:
1939: -- Debug info.
1953:
1954:
1955: EXCEPTION
1956:
1957: WHEN fnd_api.g_exc_error THEN
1958: x_return_status := fnd_api.g_ret_sts_error;
1959:
1960: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1961: p_count => x_msg_count,
1954:
1955: EXCEPTION
1956:
1957: WHEN fnd_api.g_exc_error THEN
1958: x_return_status := fnd_api.g_ret_sts_error;
1959:
1960: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1961: p_count => x_msg_count,
1962: p_data => x_msg_data);
1956:
1957: WHEN fnd_api.g_exc_error THEN
1958: x_return_status := fnd_api.g_ret_sts_error;
1959:
1960: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1961: p_count => x_msg_count,
1962: p_data => x_msg_data);
1963:
1964: -- Debug info.
1972: hz_utility_v2pub.debug(p_message=>'get_ids_person_custs_updated(-)',
1973: p_prefix=>l_debug_prefix,
1974: p_msg_level=>fnd_log.level_procedure);
1975: END IF;
1976: WHEN fnd_api.g_exc_unexpected_error THEN
1977: x_return_status := fnd_api.g_ret_sts_unexp_error;
1978:
1979: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1980: p_count => x_msg_count,
1973: p_prefix=>l_debug_prefix,
1974: p_msg_level=>fnd_log.level_procedure);
1975: END IF;
1976: WHEN fnd_api.g_exc_unexpected_error THEN
1977: x_return_status := fnd_api.g_ret_sts_unexp_error;
1978:
1979: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1980: p_count => x_msg_count,
1981: p_data => x_msg_data);
1975: END IF;
1976: WHEN fnd_api.g_exc_unexpected_error THEN
1977: x_return_status := fnd_api.g_ret_sts_unexp_error;
1978:
1979: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1980: p_count => x_msg_count,
1981: p_data => x_msg_data);
1982:
1983: -- Debug info.
1992: p_prefix=>l_debug_prefix,
1993: p_msg_level=>fnd_log.level_procedure);
1994: END IF;
1995: WHEN OTHERS THEN
1996: x_return_status := fnd_api.g_ret_sts_unexp_error;
1997:
1998: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1999: fnd_message.set_token('ERROR' ,SQLERRM);
2000: fnd_msg_pub.add;
1998: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1999: fnd_message.set_token('ERROR' ,SQLERRM);
2000: fnd_msg_pub.add;
2001:
2002: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2003: p_count => x_msg_count,
2004: p_data => x_msg_data);
2005:
2006: -- Debug info.
2022: --
2023: -- DESCRIPTION
2024: -- Create person customer account.
2025: PROCEDURE do_create_person_cust_v2_bo(
2026: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2027: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
2028: p_person_cust_v2_obj IN OUT NOCOPY HZ_PERSON_CUST_V2_BO,
2029: p_created_by_module IN VARCHAR2,
2030: p_obj_source IN VARCHAR2 := null,
2023: -- DESCRIPTION
2024: -- Create person customer account.
2025: PROCEDURE do_create_person_cust_v2_bo(
2026: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2027: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
2028: p_person_cust_v2_obj IN OUT NOCOPY HZ_PERSON_CUST_V2_BO,
2029: p_created_by_module IN VARCHAR2,
2030: p_obj_source IN VARCHAR2 := null,
2031: x_return_status OUT NOCOPY VARCHAR2,
2046: -- Standard start of API savepoint
2047: SAVEPOINT do_create_person_cust_v2_pub;
2048:
2049: -- initialize API return status to success.
2050: x_return_status := FND_API.G_RET_STS_SUCCESS;
2051:
2052: -- Initialize message list if p_init_msg_list is set to TRUE
2053: IF FND_API.to_Boolean(p_init_msg_list) THEN
2054: FND_MSG_PUB.initialize;
2049: -- initialize API return status to success.
2050: x_return_status := FND_API.G_RET_STS_SUCCESS;
2051:
2052: -- Initialize message list if p_init_msg_list is set to TRUE
2053: IF FND_API.to_Boolean(p_init_msg_list) THEN
2054: FND_MSG_PUB.initialize;
2055: END IF;
2056:
2057: -- Debug info.
2061: p_msg_level=>fnd_log.level_procedure);
2062: END IF;
2063:
2064: -- Base on p_validate_bo_flag, check the completeness of business objects
2065: IF(p_validate_bo_flag = FND_API.G_TRUE) THEN
2066: HZ_REGISTRY_VALIDATE_BO_PVT.get_bus_obj_struct(
2067: p_bus_object_code => 'PERSON_CUST',
2068: x_bus_object => l_bus_object
2069: );
2073: p_ca_v2_objs => p_person_cust_v2_obj.account_objs
2074: );
2075:
2076: IF NOT(l_valid_obj) THEN
2077: RAISE fnd_api.g_exc_error;
2078: END IF;
2079:
2080: -- find out if raise event at the end
2081: l_raise_event := HZ_PARTY_BO_PVT.is_raising_create_event(
2106:
2107: l_cbm := HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE;
2108:
2109: HZ_PERSON_BO_PUB.do_create_person_bo(
2110: p_init_msg_list => fnd_api.g_false,
2111: p_validate_bo_flag => FND_API.G_FALSE,
2112: p_person_obj => p_person_cust_v2_obj.person_obj,
2113: p_created_by_module => HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE,
2114: p_obj_source => p_obj_source,
2107: l_cbm := HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE;
2108:
2109: HZ_PERSON_BO_PUB.do_create_person_bo(
2110: p_init_msg_list => fnd_api.g_false,
2111: p_validate_bo_flag => FND_API.G_FALSE,
2112: p_person_obj => p_person_cust_v2_obj.person_obj,
2113: p_created_by_module => HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE,
2114: p_obj_source => p_obj_source,
2115: x_return_status => x_return_status,
2119: x_person_os => l_person_os,
2120: x_person_osr => l_person_osr
2121: );
2122:
2123: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2124: RAISE fnd_api.g_exc_error;
2125: END IF;
2126:
2127: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
2120: x_person_osr => l_person_osr
2121: );
2122:
2123: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2124: RAISE fnd_api.g_exc_error;
2125: END IF;
2126:
2127: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
2128:
2139: p_parent_osr => l_person_osr,
2140: p_parent_obj_type => 'PERSON'
2141: );
2142:
2143: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2144: RAISE fnd_api.g_exc_error;
2145: END IF;
2146: END IF;
2147:
2140: p_parent_obj_type => 'PERSON'
2141: );
2142:
2143: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2144: RAISE fnd_api.g_exc_error;
2145: END IF;
2146: END IF;
2147:
2148: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
2185: p_msg_level=>fnd_log.level_procedure);
2186: END IF;
2187:
2188: EXCEPTION
2189: WHEN fnd_api.g_exc_error THEN
2190: ROLLBACK TO do_create_person_cust_v2_pub;
2191:
2192: -- reset Global variable
2193: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
2196: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
2197: FND_MESSAGE.SET_TOKEN('OBJECT', 'PERSON_CUST');
2198: FND_MSG_PUB.ADD;
2199:
2200: x_return_status := fnd_api.g_ret_sts_error;
2201:
2202: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2203: p_count => x_msg_count,
2204: p_data => x_msg_data);
2198: FND_MSG_PUB.ADD;
2199:
2200: x_return_status := fnd_api.g_ret_sts_error;
2201:
2202: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2203: p_count => x_msg_count,
2204: p_data => x_msg_data);
2205:
2206: -- Debug info.
2215: p_prefix=>l_debug_prefix,
2216: p_msg_level=>fnd_log.level_procedure);
2217: END IF;
2218:
2219: WHEN fnd_api.g_exc_unexpected_error THEN
2220: ROLLBACK TO do_create_person_cust_v2_pub;
2221:
2222: -- reset Global variable
2223: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
2226: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
2227: FND_MESSAGE.SET_TOKEN('OBJECT', 'PERSON_CUST');
2228: FND_MSG_PUB.ADD;
2229:
2230: x_return_status := fnd_api.g_ret_sts_unexp_error;
2231:
2232: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2233: p_count => x_msg_count,
2234: p_data => x_msg_data);
2228: FND_MSG_PUB.ADD;
2229:
2230: x_return_status := fnd_api.g_ret_sts_unexp_error;
2231:
2232: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2233: p_count => x_msg_count,
2234: p_data => x_msg_data);
2235:
2236: -- Debug info.
2256: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
2257: FND_MESSAGE.SET_TOKEN('OBJECT', 'PERSON_CUST');
2258: FND_MSG_PUB.ADD;
2259:
2260: x_return_status := fnd_api.g_ret_sts_unexp_error;
2261:
2262: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2263: fnd_message.set_token('ERROR' ,SQLERRM);
2264: fnd_msg_pub.add;
2262: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2263: fnd_message.set_token('ERROR' ,SQLERRM);
2264: fnd_msg_pub.add;
2265:
2266: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2267: p_count => x_msg_count,
2268: p_data => x_msg_data);
2269:
2270: -- Debug info.
2282: END do_create_person_cust_v2_bo;
2283:
2284:
2285: PROCEDURE create_person_cust_v2_bo(
2286: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
2287: p_person_cust_v2_obj IN HZ_PERSON_CUST_V2_BO,
2288: p_created_by_module IN VARCHAR2,
2289: p_obj_source IN VARCHAR2 := null,
2290: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
2286: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
2287: p_person_cust_v2_obj IN HZ_PERSON_CUST_V2_BO,
2288: p_created_by_module IN VARCHAR2,
2289: p_obj_source IN VARCHAR2 := null,
2290: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
2291: x_return_status OUT NOCOPY VARCHAR2,
2292: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
2293: x_return_obj OUT NOCOPY HZ_PERSON_CUST_V2_BO,
2294: x_person_id OUT NOCOPY NUMBER
2298: l_pc_obj HZ_PERSON_CUST_V2_BO;
2299: BEGIN
2300: l_pc_obj := p_person_cust_v2_obj;
2301: do_create_person_cust_v2_bo(
2302: p_init_msg_list => fnd_api.g_true,
2303: p_validate_bo_flag => p_validate_bo_flag,
2304: p_person_cust_v2_obj => l_pc_obj,
2305: p_created_by_module => p_created_by_module,
2306: p_obj_source => p_obj_source,
2312: x_messages := HZ_PARTY_BO_PVT.return_all_messages(
2313: x_return_status => x_return_status,
2314: x_msg_count => l_msg_count,
2315: x_msg_data => l_msg_data);
2316: IF FND_API.to_Boolean(p_return_obj_flag) THEN
2317: x_return_obj := l_pc_obj;
2318: END IF;
2319: END create_person_cust_v2_bo;
2320:
2322: --
2323: -- DESCRIPTION
2324: -- Update person customer account.
2325: PROCEDURE do_update_person_cust_v2_bo(
2326: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2327: p_person_cust_v2_obj IN OUT NOCOPY HZ_PERSON_CUST_V2_BO,
2328: p_created_by_module IN VARCHAR2,
2329: p_obj_source IN VARCHAR2 := null,
2330: x_return_status OUT NOCOPY VARCHAR2,
2344: -- Standard start of API savepoint
2345: SAVEPOINT do_update_person_cust_v2_pub;
2346:
2347: -- initialize API return status to success.
2348: x_return_status := FND_API.G_RET_STS_SUCCESS;
2349:
2350: -- Initialize message list if p_init_msg_list is set to TRUE
2351: IF FND_API.to_Boolean(p_init_msg_list) THEN
2352: FND_MSG_PUB.initialize;
2347: -- initialize API return status to success.
2348: x_return_status := FND_API.G_RET_STS_SUCCESS;
2349:
2350: -- Initialize message list if p_init_msg_list is set to TRUE
2351: IF FND_API.to_Boolean(p_init_msg_list) THEN
2352: FND_MSG_PUB.initialize;
2353: END IF;
2354:
2355: -- Debug info.
2381: x_return_status => x_return_status,
2382: x_msg_count => x_msg_count,
2383: x_msg_data => x_msg_data);
2384:
2385: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2386: RAISE FND_API.G_EXC_ERROR;
2387: END IF;
2388:
2389: -- get person_id and then call
2382: x_msg_count => x_msg_count,
2383: x_msg_data => x_msg_data);
2384:
2385: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2386: RAISE FND_API.G_EXC_ERROR;
2387: END IF;
2388:
2389: -- get person_id and then call
2390: l_per_raise_event := HZ_PARTY_BO_PVT.is_raising_update_event(
2415: HZ_PARTY_BO_PVT.G_CALL_UPDATE_CUST_BO := 'Y';
2416: l_cbm := HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE;
2417:
2418: HZ_PERSON_BO_PUB.do_update_person_bo(
2419: p_init_msg_list => fnd_api.g_false,
2420: p_person_obj => p_person_cust_v2_obj.person_obj,
2421: p_created_by_module => HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE,
2422: p_obj_source => p_obj_source,
2423: x_return_status => x_return_status,
2427: x_person_os => l_person_os,
2428: x_person_osr => l_person_osr
2429: );
2430:
2431: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2432: RAISE fnd_api.g_exc_error;
2433: END IF;
2434:
2435: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
2428: x_person_osr => l_person_osr
2429: );
2430:
2431: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2432: RAISE fnd_api.g_exc_error;
2433: END IF;
2434:
2435: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
2436:
2447: p_parent_osr => l_person_osr,
2448: p_parent_obj_type => 'PERSON'
2449: );
2450:
2451: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2452: RAISE fnd_api.g_exc_error;
2453: END IF;
2454: END IF;
2455:
2448: p_parent_obj_type => 'PERSON'
2449: );
2450:
2451: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2452: RAISE fnd_api.g_exc_error;
2453: END IF;
2454: END IF;
2455:
2456: HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE := l_cbm;
2495: p_prefix=>l_debug_prefix,
2496: p_msg_level=>fnd_log.level_procedure);
2497: END IF;
2498: EXCEPTION
2499: WHEN fnd_api.g_exc_error THEN
2500: ROLLBACK TO do_update_person_cust_v2_pub;
2501:
2502: -- reset Global variable
2503: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
2507: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
2508: FND_MESSAGE.SET_TOKEN('OBJECT', 'PERSON_CUST');
2509: FND_MSG_PUB.ADD;
2510:
2511: x_return_status := fnd_api.g_ret_sts_error;
2512:
2513: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2514: p_count => x_msg_count,
2515: p_data => x_msg_data);
2509: FND_MSG_PUB.ADD;
2510:
2511: x_return_status := fnd_api.g_ret_sts_error;
2512:
2513: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2514: p_count => x_msg_count,
2515: p_data => x_msg_data);
2516:
2517: -- Debug info.
2526: p_prefix=>l_debug_prefix,
2527: p_msg_level=>fnd_log.level_procedure);
2528: END IF;
2529:
2530: WHEN fnd_api.g_exc_unexpected_error THEN
2531: ROLLBACK TO do_update_person_cust_v2_pub;
2532:
2533: -- reset Global variable
2534: HZ_UTILITY_V2PUB.G_CALLING_API := NULL;
2538: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
2539: FND_MESSAGE.SET_TOKEN('OBJECT', 'PERSON_CUST');
2540: FND_MSG_PUB.ADD;
2541:
2542: x_return_status := fnd_api.g_ret_sts_unexp_error;
2543:
2544: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2545: p_count => x_msg_count,
2546: p_data => x_msg_data);
2540: FND_MSG_PUB.ADD;
2541:
2542: x_return_status := fnd_api.g_ret_sts_unexp_error;
2543:
2544: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2545: p_count => x_msg_count,
2546: p_data => x_msg_data);
2547:
2548: -- Debug info.
2569: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
2570: FND_MESSAGE.SET_TOKEN('OBJECT', 'PERSON_CUST');
2571: FND_MSG_PUB.ADD;
2572:
2573: x_return_status := fnd_api.g_ret_sts_unexp_error;
2574:
2575: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2576: fnd_message.set_token('ERROR' ,SQLERRM);
2577: fnd_msg_pub.add;
2575: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2576: fnd_message.set_token('ERROR' ,SQLERRM);
2577: fnd_msg_pub.add;
2578:
2579: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2580: p_count => x_msg_count,
2581: p_data => x_msg_data);
2582:
2583: -- Debug info.
2597: PROCEDURE update_person_cust_v2_bo(
2598: p_person_cust_v2_obj IN HZ_PERSON_CUST_V2_BO,
2599: p_created_by_module IN VARCHAR2,
2600: p_obj_source IN VARCHAR2 := null,
2601: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
2602: x_return_status OUT NOCOPY VARCHAR2,
2603: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
2604: x_return_obj OUT NOCOPY HZ_PERSON_CUST_V2_BO,
2605: x_person_id OUT NOCOPY NUMBER
2609: l_pc_obj HZ_PERSON_CUST_V2_BO;
2610: BEGIN
2611: l_pc_obj := p_person_cust_v2_obj;
2612: do_update_person_cust_v2_bo(
2613: p_init_msg_list => fnd_api.g_true,
2614: p_person_cust_v2_obj => l_pc_obj,
2615: p_created_by_module => p_created_by_module,
2616: p_obj_source => p_obj_source,
2617: x_return_status => x_return_status,
2622: x_messages := HZ_PARTY_BO_PVT.return_all_messages(
2623: x_return_status => x_return_status,
2624: x_msg_count => l_msg_count,
2625: x_msg_data => l_msg_data);
2626: IF FND_API.to_Boolean(p_return_obj_flag) THEN
2627: x_return_obj := l_pc_obj;
2628: END IF;
2629: END update_person_cust_v2_bo;
2630:
2632: --
2633: -- DESCRIPTION
2634: -- Create or update person customer account.
2635: PROCEDURE do_save_person_cust_v2_bo(
2636: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2637: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
2638: p_person_cust_v2_obj IN OUT NOCOPY HZ_PERSON_CUST_V2_BO,
2639: p_created_by_module IN VARCHAR2,
2640: p_obj_source IN VARCHAR2 := null,
2633: -- DESCRIPTION
2634: -- Create or update person customer account.
2635: PROCEDURE do_save_person_cust_v2_bo(
2636: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2637: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
2638: p_person_cust_v2_obj IN OUT NOCOPY HZ_PERSON_CUST_V2_BO,
2639: p_created_by_module IN VARCHAR2,
2640: p_obj_source IN VARCHAR2 := null,
2641: x_return_status OUT NOCOPY VARCHAR2,
2649: l_debug_prefix VARCHAR2(30) := '';
2650: l_create_update_flag VARCHAR2(1);
2651: BEGIN
2652: -- initialize API return status to success.
2653: x_return_status := FND_API.G_RET_STS_SUCCESS;
2654:
2655: -- Initialize message list if p_init_msg_list is set to TRUE
2656: IF FND_API.to_Boolean(p_init_msg_list) THEN
2657: FND_MSG_PUB.initialize;
2652: -- initialize API return status to success.
2653: x_return_status := FND_API.G_RET_STS_SUCCESS;
2654:
2655: -- Initialize message list if p_init_msg_list is set to TRUE
2656: IF FND_API.to_Boolean(p_init_msg_list) THEN
2657: FND_MSG_PUB.initialize;
2658: END IF;
2659:
2660: -- Debug info.
2683: FND_MSG_PUB.ADD;
2684: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
2685: FND_MESSAGE.SET_TOKEN('OBJECT', 'PERSON_CUST');
2686: FND_MSG_PUB.ADD;
2687: RAISE FND_API.G_EXC_ERROR;
2688: END IF;
2689:
2690: IF(l_create_update_flag = 'C') THEN
2691: do_create_person_cust_v2_bo(
2688: END IF;
2689:
2690: IF(l_create_update_flag = 'C') THEN
2691: do_create_person_cust_v2_bo(
2692: p_init_msg_list => fnd_api.g_false,
2693: p_validate_bo_flag => p_validate_bo_flag,
2694: p_person_cust_v2_obj => p_person_cust_v2_obj,
2695: p_created_by_module => p_created_by_module,
2696: p_obj_source => p_obj_source,
2700: x_person_id => x_person_id
2701: );
2702: ELSIF(l_create_update_flag = 'U') THEN
2703: do_update_person_cust_v2_bo(
2704: p_init_msg_list => fnd_api.g_false,
2705: p_person_cust_v2_obj => p_person_cust_v2_obj,
2706: p_created_by_module => p_created_by_module,
2707: p_obj_source => p_obj_source,
2708: x_return_status => x_return_status,
2710: x_msg_data => x_msg_data,
2711: x_person_id => x_person_id
2712: );
2713: ELSE
2714: RAISE FND_API.G_EXC_ERROR;
2715: END IF;
2716:
2717: -- Debug info.
2718: IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
2726: p_prefix=>l_debug_prefix,
2727: p_msg_level=>fnd_log.level_procedure);
2728: END IF;
2729: EXCEPTION
2730: WHEN fnd_api.g_exc_error THEN
2731: x_return_status := fnd_api.g_ret_sts_error;
2732:
2733: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2734: p_count => x_msg_count,
2727: p_msg_level=>fnd_log.level_procedure);
2728: END IF;
2729: EXCEPTION
2730: WHEN fnd_api.g_exc_error THEN
2731: x_return_status := fnd_api.g_ret_sts_error;
2732:
2733: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2734: p_count => x_msg_count,
2735: p_data => x_msg_data);
2729: EXCEPTION
2730: WHEN fnd_api.g_exc_error THEN
2731: x_return_status := fnd_api.g_ret_sts_error;
2732:
2733: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2734: p_count => x_msg_count,
2735: p_data => x_msg_data);
2736:
2737: -- Debug info.
2746: p_prefix=>l_debug_prefix,
2747: p_msg_level=>fnd_log.level_procedure);
2748: END IF;
2749:
2750: WHEN fnd_api.g_exc_unexpected_error THEN
2751: x_return_status := fnd_api.g_ret_sts_unexp_error;
2752:
2753: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2754: p_count => x_msg_count,
2747: p_msg_level=>fnd_log.level_procedure);
2748: END IF;
2749:
2750: WHEN fnd_api.g_exc_unexpected_error THEN
2751: x_return_status := fnd_api.g_ret_sts_unexp_error;
2752:
2753: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2754: p_count => x_msg_count,
2755: p_data => x_msg_data);
2749:
2750: WHEN fnd_api.g_exc_unexpected_error THEN
2751: x_return_status := fnd_api.g_ret_sts_unexp_error;
2752:
2753: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2754: p_count => x_msg_count,
2755: p_data => x_msg_data);
2756:
2757: -- Debug info.
2766: p_prefix=>l_debug_prefix,
2767: p_msg_level=>fnd_log.level_procedure);
2768: END IF;
2769: WHEN OTHERS THEN
2770: x_return_status := fnd_api.g_ret_sts_unexp_error;
2771:
2772: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2773: fnd_message.set_token('ERROR' ,SQLERRM);
2774: fnd_msg_pub.add;
2772: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2773: fnd_message.set_token('ERROR' ,SQLERRM);
2774: fnd_msg_pub.add;
2775:
2776: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2777: p_count => x_msg_count,
2778: p_data => x_msg_data);
2779:
2780: -- Debug info.
2791: END IF;
2792: END do_save_person_cust_v2_bo;
2793:
2794: PROCEDURE save_person_cust_v2_bo(
2795: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
2796: p_person_cust_v2_obj IN HZ_PERSON_CUST_V2_BO,
2797: p_created_by_module IN VARCHAR2,
2798: p_obj_source IN VARCHAR2 := null,
2799: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
2795: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
2796: p_person_cust_v2_obj IN HZ_PERSON_CUST_V2_BO,
2797: p_created_by_module IN VARCHAR2,
2798: p_obj_source IN VARCHAR2 := null,
2799: p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
2800: x_return_status OUT NOCOPY VARCHAR2,
2801: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
2802: x_return_obj OUT NOCOPY HZ_PERSON_CUST_V2_BO,
2803: x_person_id OUT NOCOPY NUMBER
2807: l_pc_obj HZ_PERSON_CUST_V2_BO;
2808: BEGIN
2809: l_pc_obj := p_person_cust_v2_obj;
2810: do_save_person_cust_v2_bo(
2811: p_init_msg_list => fnd_api.g_true,
2812: p_validate_bo_flag => p_validate_bo_flag,
2813: p_person_cust_v2_obj => l_pc_obj,
2814: p_created_by_module => p_created_by_module,
2815: p_obj_source => p_obj_source,
2821: x_messages := HZ_PARTY_BO_PVT.return_all_messages(
2822: x_return_status => x_return_status,
2823: x_msg_count => l_msg_count,
2824: x_msg_data => l_msg_data);
2825: IF FND_API.to_Boolean(p_return_obj_flag) THEN
2826: x_return_obj := l_pc_obj;
2827: END IF;
2828: END save_person_cust_v2_bo;
2829:
2837: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
2838: --
2839: -- ARGUMENTS
2840: -- IN:
2841: -- p_init_msg_list Initialize message stack if it is set to FND_API.G_TRUE. Default is FND_API.G_FALSE.
2842: -- p_person_id Person ID.
2843: -- p_person_os Person orig system.
2844: -- p_person_osr Person orig system reference.
2845:
2845:
2846: -- OUT:
2847: -- x_person_cust_v2_obj Logical person customer record.
2848: -- x_return_status Return status after the call. The status can
2849: -- be fnd_api.g_ret_sts_success (success),
2850: -- fnd_api.g_ret_sts_error (error),
2851: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2852: -- x_msg_count Number of messages in message stack.
2853: -- x_msg_data Message text if x_msg_count is 1.
2846: -- OUT:
2847: -- x_person_cust_v2_obj Logical person customer record.
2848: -- x_return_status Return status after the call. The status can
2849: -- be fnd_api.g_ret_sts_success (success),
2850: -- fnd_api.g_ret_sts_error (error),
2851: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2852: -- x_msg_count Number of messages in message stack.
2853: -- x_msg_data Message text if x_msg_count is 1.
2854: --
2847: -- x_person_cust_v2_obj Logical person customer record.
2848: -- x_return_status Return status after the call. The status can
2849: -- be fnd_api.g_ret_sts_success (success),
2850: -- fnd_api.g_ret_sts_error (error),
2851: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2852: -- x_msg_count Number of messages in message stack.
2853: -- x_msg_data Message text if x_msg_count is 1.
2854: --
2855: -- NOTES
2880:
2881:
2882:
2883: PROCEDURE get_person_cust_v2_bo(
2884: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2885: p_person_id IN NUMBER,
2886: p_person_os IN VARCHAR2,
2887: p_person_osr IN VARCHAR2,
2888: x_person_cust_v2_obj OUT NOCOPY HZ_PERSON_CUST_V2_BO,
2897: l_person_osr varchar2(255);
2898: BEGIN
2899:
2900: -- initialize API return status to success.
2901: x_return_status := FND_API.G_RET_STS_SUCCESS;
2902:
2903: -- Initialize message list if p_init_msg_list is set to TRUE
2904: IF FND_API.to_Boolean(p_init_msg_list) THEN
2905: FND_MSG_PUB.initialize;
2900: -- initialize API return status to success.
2901: x_return_status := FND_API.G_RET_STS_SUCCESS;
2902:
2903: -- Initialize message list if p_init_msg_list is set to TRUE
2904: IF FND_API.to_Boolean(p_init_msg_list) THEN
2905: FND_MSG_PUB.initialize;
2906: END IF;
2907:
2908:
2928: x_return_status => x_return_status,
2929: x_msg_count => x_msg_count,
2930: x_msg_data => x_msg_data);
2931:
2932: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2933: RAISE fnd_api.g_exc_error;
2934: END IF;
2935:
2936: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_person_cust_v2_bo(
2929: x_msg_count => x_msg_count,
2930: x_msg_data => x_msg_data);
2931:
2932: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2933: RAISE fnd_api.g_exc_error;
2934: END IF;
2935:
2936: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_person_cust_v2_bo(
2937: p_init_msg_list => fnd_api.g_false,
2933: RAISE fnd_api.g_exc_error;
2934: END IF;
2935:
2936: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_person_cust_v2_bo(
2937: p_init_msg_list => fnd_api.g_false,
2938: p_person_id => l_person_id,
2939: p_action_type => NULL,
2940: x_person_cust_v2_obj => x_person_cust_v2_obj,
2941: x_return_status => x_return_status,
2941: x_return_status => x_return_status,
2942: x_msg_count => x_msg_count,
2943: x_msg_data => x_msg_data);
2944:
2945: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2946: RAISE FND_API.G_EXC_ERROR;
2947: END IF;
2948:
2949:
2942: x_msg_count => x_msg_count,
2943: x_msg_data => x_msg_data);
2944:
2945: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2946: RAISE FND_API.G_EXC_ERROR;
2947: END IF;
2948:
2949:
2950: -- Debug info.
2964:
2965:
2966: EXCEPTION
2967:
2968: WHEN fnd_api.g_exc_error THEN
2969: x_return_status := fnd_api.g_ret_sts_error;
2970:
2971: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2972: p_count => x_msg_count,
2965:
2966: EXCEPTION
2967:
2968: WHEN fnd_api.g_exc_error THEN
2969: x_return_status := fnd_api.g_ret_sts_error;
2970:
2971: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2972: p_count => x_msg_count,
2973: p_data => x_msg_data);
2967:
2968: WHEN fnd_api.g_exc_error THEN
2969: x_return_status := fnd_api.g_ret_sts_error;
2970:
2971: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2972: p_count => x_msg_count,
2973: p_data => x_msg_data);
2974:
2975: -- Debug info.
2983: hz_utility_v2pub.debug(p_message=>'hz_person_cust_bo_pub.get_person_cust_v2_bo (-)',
2984: p_prefix=>l_debug_prefix,
2985: p_msg_level=>fnd_log.level_procedure);
2986: END IF;
2987: WHEN fnd_api.g_exc_unexpected_error THEN
2988: x_return_status := fnd_api.g_ret_sts_unexp_error;
2989:
2990: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2991: p_count => x_msg_count,
2984: p_prefix=>l_debug_prefix,
2985: p_msg_level=>fnd_log.level_procedure);
2986: END IF;
2987: WHEN fnd_api.g_exc_unexpected_error THEN
2988: x_return_status := fnd_api.g_ret_sts_unexp_error;
2989:
2990: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2991: p_count => x_msg_count,
2992: p_data => x_msg_data);
2986: END IF;
2987: WHEN fnd_api.g_exc_unexpected_error THEN
2988: x_return_status := fnd_api.g_ret_sts_unexp_error;
2989:
2990: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2991: p_count => x_msg_count,
2992: p_data => x_msg_data);
2993:
2994: -- Debug info.
3003: p_prefix=>l_debug_prefix,
3004: p_msg_level=>fnd_log.level_procedure);
3005: END IF;
3006: WHEN OTHERS THEN
3007: x_return_status := fnd_api.g_ret_sts_unexp_error;
3008:
3009: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3010: fnd_message.set_token('ERROR' ,SQLERRM);
3011: fnd_msg_pub.add;
3009: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3010: fnd_message.set_token('ERROR' ,SQLERRM);
3011: fnd_msg_pub.add;
3012:
3013: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3014: p_count => x_msg_count,
3015: p_data => x_msg_data);
3016:
3017: -- Debug info.
3040: l_msg_data VARCHAR2(2000);
3041: l_msg_count NUMBER;
3042: BEGIN
3043: get_person_cust_v2_bo(
3044: p_init_msg_list => fnd_api.g_true,
3045: p_person_id => p_person_id,
3046: p_person_os => p_person_os,
3047: p_person_osr => p_person_osr,
3048: x_person_cust_v2_obj => x_person_cust_v2_obj,
3071: -- ARGUMENTS
3072: -- IN:
3073: -- p_init_msg_list Initialize message stack if it is set to
3074: -- p_event_id BES Event identifier.
3075: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
3076: -- OUT:
3077: -- x_person_cust_v2_objs One or more created logical person customer.
3078: -- x_return_status Return status after the call. The status can
3079: -- be fnd_api.g_ret_sts_success (success),
3075: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
3076: -- OUT:
3077: -- x_person_cust_v2_objs One or more created logical person customer.
3078: -- x_return_status Return status after the call. The status can
3079: -- be fnd_api.g_ret_sts_success (success),
3080: -- fnd_api.g_ret_sts_error (error),
3081: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3082: -- x_msg_count Number of messages in message stack.
3083: -- x_msg_data Message text if x_msg_count is 1.
3076: -- OUT:
3077: -- x_person_cust_v2_objs One or more created logical person customer.
3078: -- x_return_status Return status after the call. The status can
3079: -- be fnd_api.g_ret_sts_success (success),
3080: -- fnd_api.g_ret_sts_error (error),
3081: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3082: -- x_msg_count Number of messages in message stack.
3083: -- x_msg_data Message text if x_msg_count is 1.
3084: --
3077: -- x_person_cust_v2_objs One or more created logical person customer.
3078: -- x_return_status Return status after the call. The status can
3079: -- be fnd_api.g_ret_sts_success (success),
3080: -- fnd_api.g_ret_sts_error (error),
3081: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3082: -- x_msg_count Number of messages in message stack.
3083: -- x_msg_data Message text if x_msg_count is 1.
3084: --
3085: -- NOTES
3105: */
3106:
3107:
3108: PROCEDURE get_v2_person_custs_created(
3109: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3110: p_event_id IN NUMBER,
3111: x_person_cust_v2_objs OUT NOCOPY HZ_PERSON_CUST_V2_BO_TBL,
3112: x_return_status OUT NOCOPY VARCHAR2,
3113: x_msg_count OUT NOCOPY NUMBER,
3116: l_debug_prefix VARCHAR2(30) := '';
3117: begin
3118:
3119: -- initialize API return status to success.
3120: x_return_status := FND_API.G_RET_STS_SUCCESS;
3121:
3122: -- Initialize message list if p_init_msg_list is set to TRUE
3123: IF FND_API.to_Boolean(p_init_msg_list) THEN
3124: FND_MSG_PUB.initialize;
3119: -- initialize API return status to success.
3120: x_return_status := FND_API.G_RET_STS_SUCCESS;
3121:
3122: -- Initialize message list if p_init_msg_list is set to TRUE
3123: IF FND_API.to_Boolean(p_init_msg_list) THEN
3124: FND_MSG_PUB.initialize;
3125: END IF;
3126:
3127:
3137: p_event_type => 'C',
3138: p_bo_code => 'PERSON_CUST',
3139: x_return_status => x_return_status);
3140:
3141: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3142: RAISE FND_API.G_EXC_ERROR;
3143: END IF;
3144:
3145: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_v2_person_custs_created(
3138: p_bo_code => 'PERSON_CUST',
3139: x_return_status => x_return_status);
3140:
3141: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3142: RAISE FND_API.G_EXC_ERROR;
3143: END IF;
3144:
3145: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_v2_person_custs_created(
3146: p_init_msg_list => fnd_api.g_false,
3142: RAISE FND_API.G_EXC_ERROR;
3143: END IF;
3144:
3145: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_v2_person_custs_created(
3146: p_init_msg_list => fnd_api.g_false,
3147: p_event_id => p_event_id,
3148: x_person_cust_v2_objs => x_person_cust_v2_objs,
3149: x_return_status => x_return_status,
3150: x_msg_count => x_msg_count,
3149: x_return_status => x_return_status,
3150: x_msg_count => x_msg_count,
3151: x_msg_data => x_msg_data);
3152:
3153: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3154: RAISE FND_API.G_EXC_ERROR;
3155: END IF;
3156:
3157:
3150: x_msg_count => x_msg_count,
3151: x_msg_data => x_msg_data);
3152:
3153: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3154: RAISE FND_API.G_EXC_ERROR;
3155: END IF;
3156:
3157:
3158:
3173:
3174:
3175: EXCEPTION
3176:
3177: WHEN fnd_api.g_exc_error THEN
3178: x_return_status := fnd_api.g_ret_sts_error;
3179:
3180: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3181: p_count => x_msg_count,
3174:
3175: EXCEPTION
3176:
3177: WHEN fnd_api.g_exc_error THEN
3178: x_return_status := fnd_api.g_ret_sts_error;
3179:
3180: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3181: p_count => x_msg_count,
3182: p_data => x_msg_data);
3176:
3177: WHEN fnd_api.g_exc_error THEN
3178: x_return_status := fnd_api.g_ret_sts_error;
3179:
3180: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3181: p_count => x_msg_count,
3182: p_data => x_msg_data);
3183:
3184: -- Debug info.
3192: hz_utility_v2pub.debug(p_message=>'hz_person_cust_bo_pub.get_v2_person_custs_created(-)',
3193: p_prefix=>l_debug_prefix,
3194: p_msg_level=>fnd_log.level_procedure);
3195: END IF;
3196: WHEN fnd_api.g_exc_unexpected_error THEN
3197: x_return_status := fnd_api.g_ret_sts_unexp_error;
3198:
3199: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3200: p_count => x_msg_count,
3193: p_prefix=>l_debug_prefix,
3194: p_msg_level=>fnd_log.level_procedure);
3195: END IF;
3196: WHEN fnd_api.g_exc_unexpected_error THEN
3197: x_return_status := fnd_api.g_ret_sts_unexp_error;
3198:
3199: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3200: p_count => x_msg_count,
3201: p_data => x_msg_data);
3195: END IF;
3196: WHEN fnd_api.g_exc_unexpected_error THEN
3197: x_return_status := fnd_api.g_ret_sts_unexp_error;
3198:
3199: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3200: p_count => x_msg_count,
3201: p_data => x_msg_data);
3202:
3203: -- Debug info.
3212: p_prefix=>l_debug_prefix,
3213: p_msg_level=>fnd_log.level_procedure);
3214: END IF;
3215: WHEN OTHERS THEN
3216: x_return_status := fnd_api.g_ret_sts_unexp_error;
3217:
3218: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3219: fnd_message.set_token('ERROR' ,SQLERRM);
3220: fnd_msg_pub.add;
3218: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3219: fnd_message.set_token('ERROR' ,SQLERRM);
3220: fnd_msg_pub.add;
3221:
3222: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3223: p_count => x_msg_count,
3224: p_data => x_msg_data);
3225:
3226: -- Debug info.
3247: l_msg_data VARCHAR2(2000);
3248: l_msg_count NUMBER;
3249: BEGIN
3250: get_v2_person_custs_created(
3251: p_init_msg_list => fnd_api.g_true,
3252: p_event_id => p_event_id,
3253: x_person_cust_v2_objs => x_person_cust_v2_objs,
3254: x_return_status => x_return_status,
3255: x_msg_count => l_msg_count,
3277: -- ARGUMENTS
3278: -- IN:
3279: -- p_init_msg_list Initialize message stack if it is set to
3280: -- p_event_id BES Event identifier.
3281: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
3282: -- OUT:
3283: -- x_person_cust_v2_objs One or more created logical person.
3284: -- x_return_status Return status after the call. The status can
3285: -- be fnd_api.g_ret_sts_success (success),
3281: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
3282: -- OUT:
3283: -- x_person_cust_v2_objs One or more created logical person.
3284: -- x_return_status Return status after the call. The status can
3285: -- be fnd_api.g_ret_sts_success (success),
3286: -- fnd_api.g_ret_sts_error (error),
3287: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3288: -- x_msg_count Number of messages in message stack.
3289: -- x_msg_data Message text if x_msg_count is 1.
3282: -- OUT:
3283: -- x_person_cust_v2_objs One or more created logical person.
3284: -- x_return_status Return status after the call. The status can
3285: -- be fnd_api.g_ret_sts_success (success),
3286: -- fnd_api.g_ret_sts_error (error),
3287: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3288: -- x_msg_count Number of messages in message stack.
3289: -- x_msg_data Message text if x_msg_count is 1.
3290: --
3283: -- x_person_cust_v2_objs One or more created logical person.
3284: -- x_return_status Return status after the call. The status can
3285: -- be fnd_api.g_ret_sts_success (success),
3286: -- fnd_api.g_ret_sts_error (error),
3287: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3288: -- x_msg_count Number of messages in message stack.
3289: -- x_msg_data Message text if x_msg_count is 1.
3290: --
3291: -- NOTES
3307: them to the caller.
3308: */
3309:
3310: PROCEDURE get_v2_person_custs_updated(
3311: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3312: p_event_id IN NUMBER,
3313: x_person_cust_v2_objs OUT NOCOPY HZ_PERSON_CUST_V2_BO_TBL,
3314: x_return_status OUT NOCOPY VARCHAR2,
3315: x_msg_count OUT NOCOPY NUMBER,
3319: l_debug_prefix VARCHAR2(30) := '';
3320: begin
3321:
3322: -- initialize API return status to success.
3323: x_return_status := FND_API.G_RET_STS_SUCCESS;
3324:
3325: -- Initialize message list if p_init_msg_list is set to TRUE
3326: IF FND_API.to_Boolean(p_init_msg_list) THEN
3327: FND_MSG_PUB.initialize;
3322: -- initialize API return status to success.
3323: x_return_status := FND_API.G_RET_STS_SUCCESS;
3324:
3325: -- Initialize message list if p_init_msg_list is set to TRUE
3326: IF FND_API.to_Boolean(p_init_msg_list) THEN
3327: FND_MSG_PUB.initialize;
3328: END IF;
3329:
3330:
3340: p_event_type => 'U',
3341: p_bo_code => 'PERSON_CUST',
3342: x_return_status => x_return_status);
3343:
3344: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3345: RAISE FND_API.G_EXC_ERROR;
3346: END IF;
3347:
3348: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_v2_person_custs_updated(
3341: p_bo_code => 'PERSON_CUST',
3342: x_return_status => x_return_status);
3343:
3344: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3345: RAISE FND_API.G_EXC_ERROR;
3346: END IF;
3347:
3348: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_v2_person_custs_updated(
3349: p_init_msg_list => fnd_api.g_false,
3345: RAISE FND_API.G_EXC_ERROR;
3346: END IF;
3347:
3348: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_v2_person_custs_updated(
3349: p_init_msg_list => fnd_api.g_false,
3350: p_event_id => p_event_id,
3351: x_person_cust_v2_objs => x_person_cust_v2_objs,
3352: x_return_status => x_return_status,
3353: x_msg_count => x_msg_count,
3352: x_return_status => x_return_status,
3353: x_msg_count => x_msg_count,
3354: x_msg_data => x_msg_data);
3355:
3356: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3357: RAISE FND_API.G_EXC_ERROR;
3358: END IF;
3359:
3360:
3353: x_msg_count => x_msg_count,
3354: x_msg_data => x_msg_data);
3355:
3356: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3357: RAISE FND_API.G_EXC_ERROR;
3358: END IF;
3359:
3360:
3361:
3376:
3377:
3378: EXCEPTION
3379:
3380: WHEN fnd_api.g_exc_error THEN
3381: x_return_status := fnd_api.g_ret_sts_error;
3382:
3383: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3384: p_count => x_msg_count,
3377:
3378: EXCEPTION
3379:
3380: WHEN fnd_api.g_exc_error THEN
3381: x_return_status := fnd_api.g_ret_sts_error;
3382:
3383: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3384: p_count => x_msg_count,
3385: p_data => x_msg_data);
3379:
3380: WHEN fnd_api.g_exc_error THEN
3381: x_return_status := fnd_api.g_ret_sts_error;
3382:
3383: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3384: p_count => x_msg_count,
3385: p_data => x_msg_data);
3386:
3387: -- Debug info.
3395: hz_utility_v2pub.debug(p_message=>'hz_person_cust_bo_pub.get_v2_person_custs_updated(-)',
3396: p_prefix=>l_debug_prefix,
3397: p_msg_level=>fnd_log.level_procedure);
3398: END IF;
3399: WHEN fnd_api.g_exc_unexpected_error THEN
3400: x_return_status := fnd_api.g_ret_sts_unexp_error;
3401:
3402: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3403: p_count => x_msg_count,
3396: p_prefix=>l_debug_prefix,
3397: p_msg_level=>fnd_log.level_procedure);
3398: END IF;
3399: WHEN fnd_api.g_exc_unexpected_error THEN
3400: x_return_status := fnd_api.g_ret_sts_unexp_error;
3401:
3402: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3403: p_count => x_msg_count,
3404: p_data => x_msg_data);
3398: END IF;
3399: WHEN fnd_api.g_exc_unexpected_error THEN
3400: x_return_status := fnd_api.g_ret_sts_unexp_error;
3401:
3402: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3403: p_count => x_msg_count,
3404: p_data => x_msg_data);
3405:
3406: -- Debug info.
3415: p_prefix=>l_debug_prefix,
3416: p_msg_level=>fnd_log.level_procedure);
3417: END IF;
3418: WHEN OTHERS THEN
3419: x_return_status := fnd_api.g_ret_sts_unexp_error;
3420:
3421: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3422: fnd_message.set_token('ERROR' ,SQLERRM);
3423: fnd_msg_pub.add;
3421: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3422: fnd_message.set_token('ERROR' ,SQLERRM);
3423: fnd_msg_pub.add;
3424:
3425: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3426: p_count => x_msg_count,
3427: p_data => x_msg_data);
3428:
3429: -- Debug info.
3450: l_msg_data VARCHAR2(2000);
3451: l_msg_count NUMBER;
3452: BEGIN
3453: get_v2_person_custs_updated(
3454: p_init_msg_list => fnd_api.g_true,
3455: p_event_id => p_event_id,
3456: x_person_cust_v2_objs => x_person_cust_v2_objs,
3457: x_return_status => x_return_status,
3458: x_msg_count => l_msg_count,
3478: -- IN:
3479: -- p_init_msg_list Initialize message stack if it is set to
3480: -- p_event_id BES Event identifier.
3481: -- p_person_cust_id Person customer identifier.
3482: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
3483: -- OUT:
3484: -- x_person_cust_v2_obj One updated logical person.
3485: -- x_return_status Return status after the call. The status can
3486: -- be fnd_api.g_ret_sts_success (success),
3482: -- FND_API.G_TRUE. Default is FND_API.G_FALSE.
3483: -- OUT:
3484: -- x_person_cust_v2_obj One updated logical person.
3485: -- x_return_status Return status after the call. The status can
3486: -- be fnd_api.g_ret_sts_success (success),
3487: -- fnd_api.g_ret_sts_error (error),
3488: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3489: -- x_msg_count Number of messages in message stack.
3490: -- x_msg_data Message text if x_msg_count is 1.
3483: -- OUT:
3484: -- x_person_cust_v2_obj One updated logical person.
3485: -- x_return_status Return status after the call. The status can
3486: -- be fnd_api.g_ret_sts_success (success),
3487: -- fnd_api.g_ret_sts_error (error),
3488: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3489: -- x_msg_count Number of messages in message stack.
3490: -- x_msg_data Message text if x_msg_count is 1.
3491: --
3484: -- x_person_cust_v2_obj One updated logical person.
3485: -- x_return_status Return status after the call. The status can
3486: -- be fnd_api.g_ret_sts_success (success),
3487: -- fnd_api.g_ret_sts_error (error),
3488: -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3489: -- x_msg_count Number of messages in message stack.
3490: -- x_msg_data Message text if x_msg_count is 1.
3491: --
3492: -- NOTES
3496: -- 04-FEB-2008 vsegu Created.
3497: --
3498:
3499: PROCEDURE get_v2_person_cust_updated(
3500: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3501: p_event_id IN NUMBER,
3502: p_person_cust_id IN NUMBER,
3503: x_person_cust_v2_obj OUT NOCOPY HZ_PERSON_CUST_V2_BO,
3504: x_return_status OUT NOCOPY VARCHAR2,
3508: l_debug_prefix VARCHAR2(30) := '';
3509: begin
3510:
3511: -- initialize API return status to success.
3512: x_return_status := FND_API.G_RET_STS_SUCCESS;
3513:
3514: -- Initialize message list if p_init_msg_list is set to TRUE
3515: IF FND_API.to_Boolean(p_init_msg_list) THEN
3516: FND_MSG_PUB.initialize;
3511: -- initialize API return status to success.
3512: x_return_status := FND_API.G_RET_STS_SUCCESS;
3513:
3514: -- Initialize message list if p_init_msg_list is set to TRUE
3515: IF FND_API.to_Boolean(p_init_msg_list) THEN
3516: FND_MSG_PUB.initialize;
3517: END IF;
3518:
3519:
3529: p_event_type => 'U',
3530: p_bo_code => 'PERSON_CUST',
3531: x_return_status => x_return_status);
3532:
3533: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3534: RAISE FND_API.G_EXC_ERROR;
3535: END IF;
3536:
3537: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_v2_person_cust_updated(
3530: p_bo_code => 'PERSON_CUST',
3531: x_return_status => x_return_status);
3532:
3533: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3534: RAISE FND_API.G_EXC_ERROR;
3535: END IF;
3536:
3537: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_v2_person_cust_updated(
3538: p_init_msg_list => fnd_api.g_false,
3534: RAISE FND_API.G_EXC_ERROR;
3535: END IF;
3536:
3537: HZ_EXTRACT_PERSON_CUST_BO_PVT.get_v2_person_cust_updated(
3538: p_init_msg_list => fnd_api.g_false,
3539: p_event_id => p_event_id,
3540: p_person_cust_id => p_person_cust_id,
3541: x_person_cust_v2_obj => x_person_cust_v2_obj,
3542: x_return_status => x_return_status,
3542: x_return_status => x_return_status,
3543: x_msg_count => x_msg_count,
3544: x_msg_data => x_msg_data);
3545:
3546: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3547: RAISE FND_API.G_EXC_ERROR;
3548: END IF;
3549:
3550:
3543: x_msg_count => x_msg_count,
3544: x_msg_data => x_msg_data);
3545:
3546: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3547: RAISE FND_API.G_EXC_ERROR;
3548: END IF;
3549:
3550:
3551:
3566:
3567:
3568: EXCEPTION
3569:
3570: WHEN fnd_api.g_exc_error THEN
3571: x_return_status := fnd_api.g_ret_sts_error;
3572:
3573: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3574: p_count => x_msg_count,
3567:
3568: EXCEPTION
3569:
3570: WHEN fnd_api.g_exc_error THEN
3571: x_return_status := fnd_api.g_ret_sts_error;
3572:
3573: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3574: p_count => x_msg_count,
3575: p_data => x_msg_data);
3569:
3570: WHEN fnd_api.g_exc_error THEN
3571: x_return_status := fnd_api.g_ret_sts_error;
3572:
3573: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3574: p_count => x_msg_count,
3575: p_data => x_msg_data);
3576:
3577: -- Debug info.
3585: hz_utility_v2pub.debug(p_message=>'hz_person_cust_bo_pub.get_v2_person_cust_updated(-)',
3586: p_prefix=>l_debug_prefix,
3587: p_msg_level=>fnd_log.level_procedure);
3588: END IF;
3589: WHEN fnd_api.g_exc_unexpected_error THEN
3590: x_return_status := fnd_api.g_ret_sts_unexp_error;
3591:
3592: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3593: p_count => x_msg_count,
3586: p_prefix=>l_debug_prefix,
3587: p_msg_level=>fnd_log.level_procedure);
3588: END IF;
3589: WHEN fnd_api.g_exc_unexpected_error THEN
3590: x_return_status := fnd_api.g_ret_sts_unexp_error;
3591:
3592: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3593: p_count => x_msg_count,
3594: p_data => x_msg_data);
3588: END IF;
3589: WHEN fnd_api.g_exc_unexpected_error THEN
3590: x_return_status := fnd_api.g_ret_sts_unexp_error;
3591:
3592: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3593: p_count => x_msg_count,
3594: p_data => x_msg_data);
3595:
3596: -- Debug info.
3605: p_prefix=>l_debug_prefix,
3606: p_msg_level=>fnd_log.level_procedure);
3607: END IF;
3608: WHEN OTHERS THEN
3609: x_return_status := fnd_api.g_ret_sts_unexp_error;
3610:
3611: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3612: fnd_message.set_token('ERROR' ,SQLERRM);
3613: fnd_msg_pub.add;
3611: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3612: fnd_message.set_token('ERROR' ,SQLERRM);
3613: fnd_msg_pub.add;
3614:
3615: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3616: p_count => x_msg_count,
3617: p_data => x_msg_data);
3618:
3619: -- Debug info.
3641: l_msg_data VARCHAR2(2000);
3642: l_msg_count NUMBER;
3643: BEGIN
3644: get_v2_person_cust_updated(
3645: p_init_msg_list => fnd_api.g_true,
3646: p_event_id => p_event_id,
3647: p_person_cust_id => p_person_cust_id,
3648: x_person_cust_v2_obj => x_person_cust_v2_obj,
3649: x_return_status => x_return_status,