7: -- WARNING: This procedure is overloaded
8: -- ***********************************************
9: PROCEDURE Get_TP_Address
10: ( p_api_version_number IN NUMBER,
11: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
12: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
13: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
15: p_return_status OUT NOCOPY VARCHAR2,
8: -- ***********************************************
9: PROCEDURE Get_TP_Address
10: ( p_api_version_number IN NUMBER,
11: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
12: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
13: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
15: p_return_status OUT NOCOPY VARCHAR2,
16: p_msg_count OUT NOCOPY NUMBER,
9: PROCEDURE Get_TP_Address
10: ( p_api_version_number IN NUMBER,
11: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
12: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
13: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
15: p_return_status OUT NOCOPY VARCHAR2,
16: p_msg_count OUT NOCOPY NUMBER,
17: p_msg_data OUT NOCOPY VARCHAR2,
10: ( p_api_version_number IN NUMBER,
11: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
12: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
13: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
15: p_return_status OUT NOCOPY VARCHAR2,
16: p_msg_count OUT NOCOPY NUMBER,
17: p_msg_data OUT NOCOPY VARCHAR2,
18: p_translator_code IN VARCHAR2,
85: SAVEPOINT Get_TP_Address_PVT;
86:
87: -- Standard call to check for call compatibility.
88:
89: if NOT FND_API.Compatible_API_Call
90: (
91: l_api_version_number,
92: p_api_version_number,
93: l_api_name,
93: l_api_name,
94: G_PKG_NAME
95: )
96: then
97: raise FND_API.G_EXC_UNEXPECTED_ERROR;
98: end if;
99:
100: -- Initialize message list if p_init_msg_list is set to TRUE.
101:
98: end if;
99:
100: -- Initialize message list if p_init_msg_list is set to TRUE.
101:
102: if FND_API.to_Boolean( p_init_msg_list)
103: then
104: FND_MSG_PUB.initialize;
105: end if;
106:
105: end if;
106:
107: -- Initialize API return status to success
108:
109: p_return_status := FND_API.G_RET_STS_SUCCESS;
110:
111:
112: if ( p_info_type = EC_Trading_Partner_PVT.G_CUSTOMER)
113: then
138: l_entity_address_id := bank.branch_party_id;
139: EC_DEBUG.PL(3, 'l_entity_address_id: ',l_entity_address_id);
140: end loop;
141: else
142: raise FND_API.G_EXC_UNEXPECTED_ERROR;
143: end if;
144:
145: if l_entity_id is NULL
146: and l_entity_address_id is NULL
158:
159: -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
160: -- the API exception handler.
161:
162: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
163: then
164:
165: -- Unexpected error, abort processing.
166:
163: then
164:
165: -- Unexpected error, abort processing.
166:
167: raise FND_API.G_EXC_UNEXPECTED_ERROR;
168:
169: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
170:
171: -- Error, abort processing
165: -- Unexpected error, abort processing.
166:
167: raise FND_API.G_EXC_UNEXPECTED_ERROR;
168:
169: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
170:
171: -- Error, abort processing
172:
173: raise FND_API.G_EXC_ERROR;
169: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
170:
171: -- Error, abort processing
172:
173: raise FND_API.G_EXC_ERROR;
174:
175: end if;
176:
177: -- Standard check of p_simulate and p_commit parameters
175: end if;
176:
177: -- Standard check of p_simulate and p_commit parameters
178:
179: if FND_API.To_Boolean( p_simulate)
180: then
181: ROLLBACK to Get_TP_Address_PVT;
182:
183: elsif FND_API.To_Boolean( p_commit)
179: if FND_API.To_Boolean( p_simulate)
180: then
181: ROLLBACK to Get_TP_Address_PVT;
182:
183: elsif FND_API.To_Boolean( p_commit)
184: then
185: commit work;
186: end if;
187:
195:
196: EC_DEBUG.POP('EC_Trading_Partner_PVT.Get_TP_Address');
197: EXCEPTION
198:
199: WHEN FND_API.G_EXC_ERROR THEN
200:
201: Rollback to Get_TP_Address_PVT;
202: p_return_status := FND_API.G_RET_STS_ERROR;
203:
198:
199: WHEN FND_API.G_EXC_ERROR THEN
200:
201: Rollback to Get_TP_Address_PVT;
202: p_return_status := FND_API.G_RET_STS_ERROR;
203:
204: FND_MSG_PUB.Count_And_Get
205: (
206: p_count => p_msg_count,
206: p_count => p_msg_count,
207: p_data => p_msg_data
208: );
209:
210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
211:
212: Rollback to Get_TP_Address_PVT;
213: p_return_status := FND_API.G_RET_STS_ERROR;
214:
209:
210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
211:
212: Rollback to Get_TP_Address_PVT;
213: p_return_status := FND_API.G_RET_STS_ERROR;
214:
215: FND_MSG_PUB.Count_And_Get
216: (
217: p_count => p_msg_count,
221: WHEN OTHERS THEN
222: EC_DEBUG.PL(0,'EC','ECE_ERROR_CODE','ERROR_CODE',SQLCODE);
223: EC_DEBUG.PL(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
224: Rollback to Get_TP_Address_PVT;
225: p_return_status := FND_API.G_RET_STS_ERROR;
226:
227: if FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
228: then
229: FND_MSG_PUB.Add_Exc_Msg
250: -- the automotive team
251: -- ***********************************************
252: PROCEDURE Get_TP_Address_Ref
253: ( p_api_version_number IN NUMBER,
254: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
255: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
256: p_commit IN VARCHAR2 := FND_API.G_FALSE,
257: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
258: p_return_status OUT NOCOPY VARCHAR2,
251: -- ***********************************************
252: PROCEDURE Get_TP_Address_Ref
253: ( p_api_version_number IN NUMBER,
254: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
255: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
256: p_commit IN VARCHAR2 := FND_API.G_FALSE,
257: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
258: p_return_status OUT NOCOPY VARCHAR2,
259: p_msg_count OUT NOCOPY NUMBER,
252: PROCEDURE Get_TP_Address_Ref
253: ( p_api_version_number IN NUMBER,
254: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
255: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
256: p_commit IN VARCHAR2 := FND_API.G_FALSE,
257: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
258: p_return_status OUT NOCOPY VARCHAR2,
259: p_msg_count OUT NOCOPY NUMBER,
260: p_msg_data OUT NOCOPY VARCHAR2,
253: ( p_api_version_number IN NUMBER,
254: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
255: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
256: p_commit IN VARCHAR2 := FND_API.G_FALSE,
257: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
258: p_return_status OUT NOCOPY VARCHAR2,
259: p_msg_count OUT NOCOPY NUMBER,
260: p_msg_data OUT NOCOPY VARCHAR2,
261: -- p_translator_code IN VARCHAR2,
328: SAVEPOINT Get_TP_Address_Ref_PVT;
329:
330: -- Standard call to check for call compatibility.
331:
332: if NOT FND_API.Compatible_API_Call
333: (
334: l_api_version_number,
335: p_api_version_number,
336: l_api_name,
336: l_api_name,
337: G_PKG_NAME
338: )
339: then
340: raise FND_API.G_EXC_UNEXPECTED_ERROR;
341: end if;
342:
343: -- Initialize message list if p_init_msg_list is set to TRUE.
344:
341: end if;
342:
343: -- Initialize message list if p_init_msg_list is set to TRUE.
344:
345: if FND_API.to_Boolean( p_init_msg_list)
346: then
347: FND_MSG_PUB.initialize;
348: end if;
349:
348: end if;
349:
350: -- Initialize API return status to success
351:
352: p_return_status := FND_API.G_RET_STS_SUCCESS;
353:
354:
355: if ( p_info_type = EC_Trading_Partner_PVT.G_CUSTOMER)
356: then
381: EC_DEBUG.PL(3, 'l_entity_id: ',l_entity_id);
382: EC_DEBUG.PL(3, 'l_entity_address_id: ',l_entity_address_id);
383: end loop;
384: else
385: raise FND_API.G_EXC_UNEXPECTED_ERROR;
386: end if;
387:
388: if l_entity_id is NULL
389: and l_entity_address_id is NULL
398:
399: -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
400: -- the API exception handler.
401:
402: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
403: then
404:
405: -- Unexpected error, abort processing.
406:
403: then
404:
405: -- Unexpected error, abort processing.
406:
407: raise FND_API.G_EXC_UNEXPECTED_ERROR;
408:
409: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
410:
411: -- Error, abort processing
405: -- Unexpected error, abort processing.
406:
407: raise FND_API.G_EXC_UNEXPECTED_ERROR;
408:
409: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
410:
411: -- Error, abort processing
412:
413: raise FND_API.G_EXC_ERROR;
409: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
410:
411: -- Error, abort processing
412:
413: raise FND_API.G_EXC_ERROR;
414:
415: end if;
416:
417: -- Standard check of p_simulate and p_commit parameters
415: end if;
416:
417: -- Standard check of p_simulate and p_commit parameters
418:
419: if FND_API.To_Boolean( p_simulate)
420: then
421: ROLLBACK to Get_TP_Address_Ref_PVT;
422:
423: elsif FND_API.To_Boolean( p_commit)
419: if FND_API.To_Boolean( p_simulate)
420: then
421: ROLLBACK to Get_TP_Address_Ref_PVT;
422:
423: elsif FND_API.To_Boolean( p_commit)
424: then
425: commit work;
426: end if;
427:
435:
436: EC_DEBUG.POP('EC_Trading_Partner_PVT.Get_TP_Address_Ref');
437: EXCEPTION
438:
439: WHEN FND_API.G_EXC_ERROR THEN
440:
441: Rollback to Get_TP_Address_Ref_PVT;
442: p_return_status := FND_API.G_RET_STS_ERROR;
443:
438:
439: WHEN FND_API.G_EXC_ERROR THEN
440:
441: Rollback to Get_TP_Address_Ref_PVT;
442: p_return_status := FND_API.G_RET_STS_ERROR;
443:
444: FND_MSG_PUB.Count_And_Get
445: (
446: p_count => p_msg_count,
446: p_count => p_msg_count,
447: p_data => p_msg_data
448: );
449:
450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
451:
452: Rollback to Get_TP_Address_Ref_PVT;
453: p_return_status := FND_API.G_RET_STS_ERROR;
454:
449:
450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
451:
452: Rollback to Get_TP_Address_Ref_PVT;
453: p_return_status := FND_API.G_RET_STS_ERROR;
454:
455: FND_MSG_PUB.Count_And_Get
456: (
457: p_count => p_msg_count,
462:
463: EC_DEBUG.PL(0,'EC','ECE_ERROR_CODE','ERROR_CODE',SQLCODE);
464: EC_DEBUG.PL(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
465: Rollback to Get_TP_Address_Ref_PVT;
466: p_return_status := FND_API.G_RET_STS_ERROR;
467:
468: if FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
469: then
470: FND_MSG_PUB.Add_Exc_Msg
487: -- procedure Get_TP_Location_Code
488: -- ***********************************************
489: PROCEDURE Get_TP_Location_Code
490: ( p_api_version_number IN NUMBER,
491: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
492: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
493: p_commit IN VARCHAR2 := FND_API.G_FALSE,
494: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
495: p_return_status OUT NOCOPY VARCHAR2,
488: -- ***********************************************
489: PROCEDURE Get_TP_Location_Code
490: ( p_api_version_number IN NUMBER,
491: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
492: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
493: p_commit IN VARCHAR2 := FND_API.G_FALSE,
494: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
495: p_return_status OUT NOCOPY VARCHAR2,
496: p_msg_count OUT NOCOPY NUMBER,
489: PROCEDURE Get_TP_Location_Code
490: ( p_api_version_number IN NUMBER,
491: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
492: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
493: p_commit IN VARCHAR2 := FND_API.G_FALSE,
494: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
495: p_return_status OUT NOCOPY VARCHAR2,
496: p_msg_count OUT NOCOPY NUMBER,
497: p_msg_data OUT NOCOPY VARCHAR2,
490: ( p_api_version_number IN NUMBER,
491: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
492: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
493: p_commit IN VARCHAR2 := FND_API.G_FALSE,
494: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
495: p_return_status OUT NOCOPY VARCHAR2,
496: p_msg_count OUT NOCOPY NUMBER,
497: p_msg_data OUT NOCOPY VARCHAR2,
498: p_entity_address_id IN NUMBER,
558: SAVEPOINT Get_TP_Location_Code_PVT;
559:
560: -- Standard call to check for call compatibility.
561:
562: if NOT FND_API.Compatible_API_Call
563: (
564: l_api_version_number,
565: p_api_version_number,
566: l_api_name,
566: l_api_name,
567: G_PKG_NAME
568: )
569: then
570: raise FND_API.G_EXC_UNEXPECTED_ERROR;
571: end if;
572:
573: -- Initialize message list if p_init_msg_list is set to TRUE.
574:
571: end if;
572:
573: -- Initialize message list if p_init_msg_list is set to TRUE.
574:
575: if FND_API.to_Boolean( p_init_msg_list)
576: then
577: FND_MSG_PUB.initialize;
578: end if;
579:
578: end if;
579:
580: -- Initialize API return status to success
581:
582: p_return_status := FND_API.G_RET_STS_SUCCESS;
583:
584:
585: if ( p_info_type = EC_Trading_Partner_PVT.G_CUSTOMER)
586: then
613: EC_DEBUG.PL(3, 'bank.tp_reference_ext1',bank.tp_reference_ext1);
614: EC_DEBUG.PL(3, 'bank.tp_reference_ext2',bank.tp_reference_ext2);
615: end loop;
616: else
617: raise FND_API.G_EXC_UNEXPECTED_ERROR;
618: end if;
619:
620: if l_location_code_ext is NULL
621: then
630:
631: -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
632: -- the API exception handler.
633:
634: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
635: then
636:
637: -- Unexpected error, abort processing.
638:
635: then
636:
637: -- Unexpected error, abort processing.
638:
639: raise FND_API.G_EXC_UNEXPECTED_ERROR;
640:
641: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
642:
643: -- Error, abort processing
637: -- Unexpected error, abort processing.
638:
639: raise FND_API.G_EXC_UNEXPECTED_ERROR;
640:
641: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
642:
643: -- Error, abort processing
644:
645: raise FND_API.G_EXC_ERROR;
641: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
642:
643: -- Error, abort processing
644:
645: raise FND_API.G_EXC_ERROR;
646:
647: end if;
648:
649: -- Standard check of p_simulate and p_commit parameters
647: end if;
648:
649: -- Standard check of p_simulate and p_commit parameters
650:
651: if FND_API.To_Boolean( p_simulate)
652: then
653: ROLLBACK to Get_TP_Location_Code_PVT;
654:
655: elsif FND_API.To_Boolean( p_commit)
651: if FND_API.To_Boolean( p_simulate)
652: then
653: ROLLBACK to Get_TP_Location_Code_PVT;
654:
655: elsif FND_API.To_Boolean( p_commit)
656: then
657: commit work;
658: end if;
659:
667:
668: EC_DEBUG.POP('EC_Trading_Partner_PVT.Get_TP_Location_Code');
669: EXCEPTION
670:
671: WHEN FND_API.G_EXC_ERROR THEN
672:
673: Rollback to Get_TP_Location_Code_PVT;
674: p_return_status := FND_API.G_RET_STS_ERROR;
675:
670:
671: WHEN FND_API.G_EXC_ERROR THEN
672:
673: Rollback to Get_TP_Location_Code_PVT;
674: p_return_status := FND_API.G_RET_STS_ERROR;
675:
676: FND_MSG_PUB.Count_And_Get
677: (
678: p_count => p_msg_count,
678: p_count => p_msg_count,
679: p_data => p_msg_data
680: );
681:
682: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
683:
684: Rollback to Get_TP_Location_Code_PVT;
685: p_return_status := FND_API.G_RET_STS_ERROR;
686:
681:
682: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
683:
684: Rollback to Get_TP_Location_Code_PVT;
685: p_return_status := FND_API.G_RET_STS_ERROR;
686:
687: FND_MSG_PUB.Count_And_Get
688: (
689: p_count => p_msg_count,
694: EC_DEBUG.PL(0,'EC','ECE_ERROR_CODE','ERROR_CODE',SQLCODE);
695: EC_DEBUG.PL(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
696:
697: Rollback to Get_TP_Location_Code_PVT;
698: p_return_status := FND_API.G_RET_STS_ERROR;
699:
700: if FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
701: then
702: FND_MSG_PUB.Add_Exc_Msg
716: end Get_TP_Location_Code;
717:
718: FUNCTION IS_ENTITY_ENABLED
719: ( p_api_version_number IN NUMBER,
720: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
721: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
722: p_commit IN VARCHAR2 := FND_API.G_FALSE,
723: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
724: p_return_status OUT NOCOPY VARCHAR2,
717:
718: FUNCTION IS_ENTITY_ENABLED
719: ( p_api_version_number IN NUMBER,
720: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
721: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
722: p_commit IN VARCHAR2 := FND_API.G_FALSE,
723: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
724: p_return_status OUT NOCOPY VARCHAR2,
725: p_msg_count OUT NOCOPY NUMBER,
718: FUNCTION IS_ENTITY_ENABLED
719: ( p_api_version_number IN NUMBER,
720: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
721: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
722: p_commit IN VARCHAR2 := FND_API.G_FALSE,
723: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
724: p_return_status OUT NOCOPY VARCHAR2,
725: p_msg_count OUT NOCOPY NUMBER,
726: p_msg_data OUT NOCOPY VARCHAR2,
719: ( p_api_version_number IN NUMBER,
720: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
721: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
722: p_commit IN VARCHAR2 := FND_API.G_FALSE,
723: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
724: p_return_status OUT NOCOPY VARCHAR2,
725: p_msg_count OUT NOCOPY NUMBER,
726: p_msg_data OUT NOCOPY VARCHAR2,
727: p_transaction_type IN VARCHAR2,
785: SAVEPOINT Get_TP_Location_Code_PVT;
786:
787: -- Standard call to check for call compatibility.
788:
789: if NOT FND_API.Compatible_API_Call
790: (
791: l_api_version_number,
792: p_api_version_number,
793: l_api_name,
793: l_api_name,
794: G_PKG_NAME
795: )
796: then
797: raise FND_API.G_EXC_UNEXPECTED_ERROR;
798: end if;
799:
800: -- Initialize message list if p_init_msg_list is set to TRUE.
801:
798: end if;
799:
800: -- Initialize message list if p_init_msg_list is set to TRUE.
801:
802: if FND_API.to_Boolean( p_init_msg_list)
803: then
804: FND_MSG_PUB.initialize;
805: end if;
806:
805: end if;
806:
807: -- Initialize API return status to success
808:
809: p_return_status := FND_API.G_RET_STS_SUCCESS;
810:
811:
812: if ( p_entity_type = EC_Trading_Partner_PVT.G_CUSTOMER)
813: then
833: x_tp_detail_id := addr.tp_detail_id;
834: EC_DEBUG.PL(3, 'x_tp_detail_id: ',x_tp_detail_id);
835: end loop;
836: else
837: raise FND_API.G_EXC_UNEXPECTED_ERROR;
838: end if;
839:
840: if x_tp_detail_id is null
841: then
845: end if;
846:
847: -- Standard check of p_simulate and p_commit parameters
848:
849: if FND_API.To_Boolean( p_simulate)
850: then
851: ROLLBACK to Get_TP_Location_Code_PVT;
852:
853: elsif FND_API.To_Boolean( p_commit)
849: if FND_API.To_Boolean( p_simulate)
850: then
851: ROLLBACK to Get_TP_Location_Code_PVT;
852:
853: elsif FND_API.To_Boolean( p_commit)
854: then
855: commit work;
856: end if;
857:
863: );
864:
865: EC_DEBUG.POP('EC_Trading_Partner_PVT.IS_ENTITY_ENABLED');
866: EXCEPTION
867: WHEN FND_API.G_EXC_ERROR THEN
868:
869: Rollback to Get_TP_Location_Code_PVT;
870: p_return_status := FND_API.G_RET_STS_ERROR;
871:
866: EXCEPTION
867: WHEN FND_API.G_EXC_ERROR THEN
868:
869: Rollback to Get_TP_Location_Code_PVT;
870: p_return_status := FND_API.G_RET_STS_ERROR;
871:
872: FND_MSG_PUB.Count_And_Get
873: (
874: p_count => p_msg_count,
874: p_count => p_msg_count,
875: p_data => p_msg_data
876: );
877:
878: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
879:
880: Rollback to Get_TP_Location_Code_PVT;
881: p_return_status := FND_API.G_RET_STS_ERROR;
882:
877:
878: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
879:
880: Rollback to Get_TP_Location_Code_PVT;
881: p_return_status := FND_API.G_RET_STS_ERROR;
882:
883: FND_MSG_PUB.Count_And_Get
884: (
885: p_count => p_msg_count,
890: EC_DEBUG.PL(0,'EC','ECE_ERROR_CODE','ERROR_CODE',SQLCODE);
891: EC_DEBUG.PL(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
892:
893: Rollback to Get_TP_Location_Code_PVT;
894: p_return_status := FND_API.G_RET_STS_ERROR;
895:
896: if FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
897: then
898: FND_MSG_PUB.Add_Exc_Msg