21: l_sys_parm_rec ar_system_parameters_all%rowtype;
22: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
23: Begin
24:
25: x_return_status := FND_API.G_RET_STS_SUCCESS;
26:
27: IF l_debug_level > 0 THEN
28: oe_debug_pub.add( 'ENTERING PROCEDURE INITIALIZE_GLOBAL' ) ;
29: END IF;
70:
71: IF l_debug_level > 0 THEN
72: oe_debug_pub.add( 'PROBLEM IN CALL TO INITIALIZE_GLOBAL. ABORT PROCESSING'||SQLERRM ) ;
73: END IF;
74: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75:
76: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
77: THEN
78: OE_MSG_PUB.Add_Exc_Msg
202:
203:
204: Initialize_Global(x_return_status);
205:
206: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
207: x_return_status := FND_API.G_RET_STS_ERROR;
208: RETURN;
209: END IF;
210:
203:
204: Initialize_Global(x_return_status);
205:
206: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
207: x_return_status := FND_API.G_RET_STS_ERROR;
208: RETURN;
209: END IF;
210:
211:
208: RETURN;
209: END IF;
210:
211:
212: x_return_status := FND_API.G_RET_STS_SUCCESS;
213:
214:
215: x_sold_to_customer_id := p_sold_to_customer_id;
216: x_ship_to_customer_id := p_ship_to_customer_id;
327:
328: fnd_message.set_name('ONT','ONT_OI_INL_SET_PARAMETER');
329: fnd_message.set_token('TYPE', 'Customers, Addresses or Contacts');
330: oe_msg_pub.add;
331: x_return_status := FND_API.G_RET_STS_ERROR;
332: RETURN;
333:
334: ELSIF G_ONT_ADD_CUSTOMER = 'P' THEN /* Address and contact can be added to an exisiting customer */
335:
362: IF l_debug_level > 0 THEN
363: oe_debug_pub.add('l_sold_to_customer_rec.customer_id :'||l_sold_to_customer_rec.customer_id);
364: END IF;
365:
366: IF NVL(l_sold_to_customer_rec.customer_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
367:
368: Check_Duplicate_Customer( p_customer_record => l_sold_to_customer_rec
369: , p_type => 'SOLD_TO'
370: , x_customer_id => l_new_sold_to_org_id
369: , p_type => 'SOLD_TO'
370: , x_customer_id => l_new_sold_to_org_id
371: );
372:
373: IF l_new_sold_to_org_id = FND_API.G_MISS_NUM THEN
374: oe_msg_pub.delete_msg(oe_msg_pub.g_msg_count);
375: ELSE
376: x_sold_to_customer_id := l_new_sold_to_org_id;
377: p_customer_info_tbl(l_sold_to_cust_index).new_account_id := l_new_sold_to_org_id;
388:
389: Update_Customer (p_customer_rec => l_sold_to_customer_rec
390: , x_return_status =>x_return_status
391: );
392: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
393:
394: IF l_debug_level > 0 THEN
395: oe_debug_pub.add ('Updating Customer information failed,returning');
396: END IF;
405:
406: END IF;
407:
408:
409: IF NVL(l_new_sold_to_org_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
410:
411: Check_Customer_Fields(l_sold_to_customer_rec,x_return_status);
412:
413: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
409: IF NVL(l_new_sold_to_org_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
410:
411: Check_Customer_Fields(l_sold_to_customer_rec,x_return_status);
412:
413: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
414: IF l_debug_level > 0 THEN
415: oe_debug_pub.add ('Check_Customer_Fields failed,returning');
416: END IF;
417:
419: END IF;
420:
421: Validate_Customer_Fields(l_sold_to_customer_rec,x_return_status);
422:
423: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
424: IF l_debug_level > 0 THEN
425: oe_debug_pub.add ('Validate_Customer_Fields failed,returning');
426: END IF;
427:
428: RETURN;
429: END IF;
430: END IF;
431:
432: IF NVL(l_new_sold_to_org_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
433: Create_account (
434: p_header_customer_info_rec => l_sold_to_customer_rec,
435: x_cust_account_id =>l_new_sold_to_org_id,
436: x_party_id =>l_new_sold_to_party_id,
447: oe_debug_pub.add(' Create_account : x_msg_count :'||x_msg_count);
448: oe_debug_pub.add(' Create_account : x_msg_data :'||x_msg_data);
449: END IF;
450:
451: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
452: oe_msg_pub.transfer_msg_stack;
453: RETURN;
454: END IF;
455:
484: IF l_debug_level > 0 THEN
485: oe_debug_pub.add('l_ship_to_customer_rec.customer_id :'||l_ship_to_customer_rec.customer_id);
486: END IF;
487:
488: IF NVL(l_ship_to_customer_rec.customer_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
489: Check_Duplicate_Customer( p_customer_record => l_ship_to_customer_rec
490: , p_type => 'SHIP_TO'
491: , x_customer_id => l_new_ship_to_customer_id
492: );
490: , p_type => 'SHIP_TO'
491: , x_customer_id => l_new_ship_to_customer_id
492: );
493:
494: IF l_new_ship_to_customer_id = FND_API.G_MISS_NUM THEN
495: oe_msg_pub.delete_msg(oe_msg_pub.g_msg_count);
496: ELSE
497: x_ship_to_customer_id := l_new_ship_to_customer_id;
498: p_customer_info_tbl(l_ship_to_cust_index).new_account_id := l_new_ship_to_customer_id;
510: THEN
511: Update_Customer (p_customer_rec => l_ship_to_customer_rec
512: , x_return_status =>x_return_status
513: );
514: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
515: IF l_debug_level > 0 THEN
516: oe_debug_pub.add('Update_Customer failed ,returning');
517: END IF;
518: RETURN;
523: x_ship_to_customer_id := l_ship_to_customer_rec.customer_id;
524: p_customer_info_tbl(l_ship_to_cust_index).new_account_id := l_ship_to_customer_rec.customer_id;
525: END IF;
526:
527: IF NVL(l_new_ship_to_customer_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
528:
529: Check_Customer_Fields(l_ship_to_customer_rec,x_return_status);
530:
531: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
527: IF NVL(l_new_ship_to_customer_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
528:
529: Check_Customer_Fields(l_ship_to_customer_rec,x_return_status);
530:
531: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
532: IF l_debug_level > 0 THEN
533: oe_debug_pub.add('Check_Customer_Fields failed ,returning');
534: END IF;
535:
537: END IF;
538:
539: Validate_Customer_Fields(l_ship_to_customer_rec,x_return_status);
540:
541: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
542: IF l_debug_level > 0 THEN
543: oe_debug_pub.add('Validate_Customer_Fields failed ,returning');
544: END IF;
545:
547: END IF;
548:
549: END IF;
550:
551: IF NVL(l_new_ship_to_customer_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
552: THEN
553: Create_account (
554: p_header_customer_info_rec => l_ship_to_customer_rec,
555: x_cust_account_id =>l_new_ship_to_customer_id,
566: oe_debug_pub.add(' Create_account : x_msg_count :'||x_msg_count);
567: oe_debug_pub.add(' Create_account : x_msg_data :'||x_msg_data);
568: END IF;
569:
570: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
571: oe_msg_pub.transfer_msg_stack;
572: RETURN;
573: END IF;
574: END IF;
588: IF l_debug_level > 0 THEN
589: oe_debug_pub.add('l_bill_to_customer_rec.customer_id:'||l_bill_to_customer_rec.customer_id);
590: END IF;
591:
592: IF NVL(l_bill_to_customer_rec.customer_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
593:
594: Check_Duplicate_Customer( p_customer_record => l_bill_to_customer_rec
595: , p_type => 'BILL_TO'
596: , x_customer_id => l_new_bill_to_customer_id
596: , x_customer_id => l_new_bill_to_customer_id
597: );
598:
599:
600: IF l_new_bill_to_customer_id = FND_API.G_MISS_NUM THEN
601: oe_msg_pub.delete_msg(oe_msg_pub.g_msg_count);
602: ELSE
603: x_bill_to_customer_id := l_new_bill_to_customer_id;
604: p_customer_info_tbl(l_bill_to_cust_index).new_account_id := l_new_bill_to_customer_id;
616: Update_Customer (p_customer_rec => l_bill_to_customer_rec
617: , x_return_status =>x_return_status
618: );
619:
620: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
621: IF l_debug_level > 0 THEN
622: oe_debug_pub.add('Update_Customer failed ,returning');
623: END IF;
624: RETURN;
631: p_customer_info_tbl(l_bill_to_cust_index).new_account_id := l_bill_to_customer_rec.customer_id;
632:
633: END IF;
634:
635: IF NVL(l_new_bill_to_customer_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
636:
637: Check_Customer_Fields(l_bill_to_customer_rec,x_return_status);
638:
639: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
635: IF NVL(l_new_bill_to_customer_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
636:
637: Check_Customer_Fields(l_bill_to_customer_rec,x_return_status);
638:
639: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
640: IF l_debug_level > 0 THEN
641: oe_debug_pub.add('Check_Customer_Fields failed ,returning');
642: END IF;
643:
645: END IF;
646:
647: Validate_Customer_Fields(l_bill_to_customer_rec,x_return_status);
648:
649: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
650: IF l_debug_level > 0 THEN
651: oe_debug_pub.add('Validate_Customer_Fields failed ,returning');
652: END IF;
653:
655: END IF;
656:
657: END IF;
658:
659: IF NVL(l_new_bill_to_customer_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
660: THEN
661: Create_account (
662: p_header_customer_info_rec => l_bill_to_customer_rec,
663: x_cust_account_id =>l_new_bill_to_customer_id,
674: oe_debug_pub.add(' Create_account : x_msg_count :'||x_msg_count);
675: oe_debug_pub.add(' Create_account : x_msg_data :'||x_msg_data);
676: END IF;
677:
678: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
679: oe_msg_pub.transfer_msg_stack;
680: RETURN;
681: END IF;
682:
698: IF l_debug_level > 0 THEN
699: oe_Debug_pub.add('l_deliver_to_customer_rec.customer_id:'||l_deliver_to_customer_rec.customer_id);
700: END IF;
701:
702: IF NVL(l_deliver_to_customer_rec.customer_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
703:
704: Check_Duplicate_Customer( p_customer_record => l_deliver_to_customer_rec
705: , p_type => 'DELIVER_TO'
706: , x_customer_id => l_new_deliver_to_cust_id
706: , x_customer_id => l_new_deliver_to_cust_id
707: );
708:
709:
710: IF l_new_deliver_to_cust_id = FND_API.G_MISS_NUM THEN
711: oe_msg_pub.delete_msg(oe_msg_pub.g_msg_count);
712: ELSE
713: x_deliver_to_customer_id := l_new_deliver_to_cust_id;
714: p_customer_info_tbl(l_deliver_to_cust_index).new_account_id := l_new_deliver_to_cust_id;
726:
727: Update_Customer (p_customer_rec => l_deliver_to_customer_rec
728: , x_return_status =>x_return_status
729: );
730: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
731: IF l_debug_level > 0 THEN
732: oe_debug_pub.add('Update_Customer failed ,returning');
733: END IF;
734:
742: p_customer_info_tbl(l_deliver_to_cust_index).new_account_id := l_deliver_to_customer_rec.customer_id;
743:
744: END IF;
745:
746: IF NVL(l_new_deliver_to_cust_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
747:
748: Check_Customer_Fields(l_deliver_to_customer_rec,x_return_status);
749:
750: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
746: IF NVL(l_new_deliver_to_cust_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
747:
748: Check_Customer_Fields(l_deliver_to_customer_rec,x_return_status);
749:
750: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
751: IF l_debug_level > 0 THEN
752: oe_debug_pub.add('Check_Customer_Fields failed ,returning');
753: END IF;
754:
756: END IF;
757:
758: Validate_Customer_Fields(l_deliver_to_customer_rec,x_return_status);
759:
760: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
761: IF l_debug_level > 0 THEN
762: oe_debug_pub.add('Validate_Customer_Fields failed ,returning');
763: END IF;
764:
767:
768:
769: END IF;
770:
771: IF NVL(l_new_deliver_to_cust_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
772: THEN
773: Create_account ( p_header_customer_info_rec => l_deliver_to_customer_rec,
774: x_cust_account_id =>l_new_deliver_to_cust_id,
775: x_party_id =>l_new_deliver_to_party_id ,
787: oe_debug_pub.add(' Create_account : x_msg_data :'||x_msg_data);
788: END IF;
789:
790:
791: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
792: oe_msg_pub.transfer_msg_stack;
793: RETURN;
794: END IF;
795:
800: END IF;
801:
802:
803: --Create Relationship b/w customers
804: IF ( NVL(x_sold_to_customer_id,FND_API.G_MISS_NUM)<> FND_API.G_MISS_NUM ) THEN
805:
806: Create_relationships ( p_sold_to_customer_id => x_sold_to_customer_id,
807: p_ship_to_customer_id => x_ship_to_customer_id,
808: p_bill_to_customer_id => x_bill_to_customer_id,
816: oe_debug_pub.add('Create_relationships :x_msg_data : '||x_msg_count);
817: oe_debug_pub.add('Create_relationships :x_msg_data : '||x_msg_data);
818: END IF;
819:
820: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
821: oe_msg_pub.transfer_msg_stack;
822: RETURN;
823: END IF;
824:
869:
870: IF l_ship_addr_found THEN
871:
872: IF NOT IS_VALID_ID( p_customer_id => l_customer_id ) THEN
873: x_return_status := FND_API.G_RET_STS_ERROR;
874: FND_MESSAGE.set_name('ONT','OE_INVALID_ATTRIBUTE');
875: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','CUSTOMER_ID');
876: OE_MSG_PUB.Add;
877: RETURN;
896: , x_msg_count => x_msg_count
897: , x_msg_data => x_msg_data
898: ) ;
899:
900: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
901: RETURN;
902: END IF;
903: END IF;
904:
945:
946: IF l_bill_addr_found THEN
947:
948: IF NOT IS_VALID_ID( p_customer_id => l_customer_id ) THEN
949: x_return_status := FND_API.G_RET_STS_ERROR;
950: FND_MESSAGE.set_name('ONT','OE_INVALID_ATTRIBUTE');
951: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','CUSTOMER_ID');
952: OE_MSG_PUB.Add;
953: RETURN;
972: , x_msg_count => x_msg_count
973: , x_msg_data => x_msg_data
974: ) ;
975:
976: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
977: RETURN;
978: END IF;
979:
980: END IF;
1020:
1021: IF l_deliver_addr_found THEN
1022:
1023: IF NOT IS_VALID_ID( p_customer_id => l_customer_id ) THEN
1024: x_return_status := FND_API.G_RET_STS_ERROR;
1025: FND_MESSAGE.set_name('ONT','OE_INVALID_ATTRIBUTE');
1026: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','CUSTOMER_ID');
1027: OE_MSG_PUB.Add;
1028: RETURN;
1047: , x_msg_count => x_msg_count
1048: , x_msg_data => x_msg_data
1049: ) ;
1050:
1051: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1052: RETURN;
1053: END IF;
1054:
1055: END IF;
1095:
1096: IF l_sold_addr_found THEN
1097:
1098: IF NOT IS_VALID_ID( p_customer_id => l_customer_id ) THEN
1099: x_return_status := FND_API.G_RET_STS_ERROR;
1100: FND_MESSAGE.set_name('ONT','OE_INVALID_ATTRIBUTE');
1101: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','CUSTOMER_ID');
1102: OE_MSG_PUB.Add;
1103: RETURN;
1121: , x_msg_count => x_msg_count
1122: , x_msg_data => x_msg_data
1123: ) ;
1124:
1125: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1126: RETURN;
1127: END IF;
1128:
1129: END IF;
1174:
1175: IF l_sold_cont_found THEN
1176:
1177: IF NOT IS_VALID_ID( p_customer_id => l_customer_id ) THEN
1178: x_return_status := FND_API.G_RET_STS_ERROR;
1179: FND_MESSAGE.set_name('ONT','OE_INVALID_ATTRIBUTE');
1180: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','CUSTOMER_ID');
1181: OE_MSG_PUB.Add;
1182: RETURN;
1195: , x_msg_count => x_msg_count
1196: , x_msg_data => x_msg_data
1197: );
1198:
1199: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1200: oe_msg_pub.transfer_msg_stack;
1201: x_return_status := FND_API.G_RET_STS_ERROR;
1202: RETURN;
1203: END IF;
1197: );
1198:
1199: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1200: oe_msg_pub.transfer_msg_stack;
1201: x_return_status := FND_API.G_RET_STS_ERROR;
1202: RETURN;
1203: END IF;
1204:
1205: END IF;
1245:
1246: IF l_ship_cont_found THEN
1247:
1248: IF NOT IS_VALID_ID( p_customer_id => l_customer_id ) THEN
1249: x_return_status := FND_API.G_RET_STS_ERROR;
1250: FND_MESSAGE.set_name('ONT','OE_INVALID_ATTRIBUTE');
1251: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','CUSTOMER_ID');
1252: OE_MSG_PUB.Add;
1253: RETURN;
1266: , x_msg_count => x_msg_count
1267: , x_msg_data => x_msg_data
1268: );
1269:
1270: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1271: oe_msg_pub.transfer_msg_stack;
1272: x_return_status := FND_API.G_RET_STS_ERROR;
1273: RETURN;
1274: END IF;
1268: );
1269:
1270: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1271: oe_msg_pub.transfer_msg_stack;
1272: x_return_status := FND_API.G_RET_STS_ERROR;
1273: RETURN;
1274: END IF;
1275:
1276: END IF;
1318:
1319: IF l_bill_cont_found THEN
1320:
1321: IF NOT IS_VALID_ID( p_customer_id => l_customer_id ) THEN
1322: x_return_status := FND_API.G_RET_STS_ERROR;
1323: FND_MESSAGE.set_name('ONT','OE_INVALID_ATTRIBUTE');
1324: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','CUSTOMER_ID');
1325: OE_MSG_PUB.Add;
1326: RETURN;
1339: , x_msg_count => x_msg_count
1340: , x_msg_data => x_msg_data
1341: );
1342:
1343: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1344: oe_msg_pub.transfer_msg_stack;
1345: x_return_status := FND_API.G_RET_STS_ERROR;
1346: RETURN;
1347: END IF;
1341: );
1342:
1343: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1344: oe_msg_pub.transfer_msg_stack;
1345: x_return_status := FND_API.G_RET_STS_ERROR;
1346: RETURN;
1347: END IF;
1348:
1349: END IF;
1390:
1391: IF l_deliver_cont_found THEN
1392:
1393: IF NOT IS_VALID_ID( p_customer_id => l_customer_id ) THEN
1394: x_return_status := FND_API.G_RET_STS_ERROR;
1395: FND_MESSAGE.set_name('ONT','OE_INVALID_ATTRIBUTE');
1396: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','CUSTOMER_ID');
1397: OE_MSG_PUB.Add;
1398: RETURN;
1411: , x_msg_count => x_msg_count
1412: , x_msg_data => x_msg_data
1413: );
1414:
1415: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1416: oe_msg_pub.transfer_msg_stack;
1417: x_return_status := FND_API.G_RET_STS_ERROR;
1418: RETURN;
1419: END IF;
1413: );
1414:
1415: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1416: oe_msg_pub.transfer_msg_stack;
1417: x_return_status := FND_API.G_RET_STS_ERROR;
1418: RETURN;
1419: END IF;
1420:
1421: END IF;
1434: IF l_debug_level > 0 THEN
1435: oe_debug_pub.add('OE_CUSTOMER_INFO_PVT.get_customer_info_ids : Other Errors :'||SQLERRM);
1436: END IF;
1437:
1438: x_return_status := FND_API.G_RET_STS_ERROR;
1439:
1440: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1441: THEN
1442: OE_MSG_PUB.Add_Exc_Msg
1483: IF l_debug_level > 0 THEN
1484: oe_debug_pub.add('Entering OE_CUSTOMER_INFO_PVT.Create_account');
1485: END IF;
1486:
1487: x_return_status := FND_API.G_RET_STS_SUCCESS;
1488: l_customer_info_rec := p_header_customer_info_rec;
1489:
1490: IF G_AUTO_PARTY_NUMBERING = 'Y' THEN
1491: l_party_number := NULL;
1521: ELSE
1522: FND_MESSAGE.set_name('ONT','OE_INVALID_ATTRIBUTE');
1523: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','PARTY_ID');
1524: OE_MSG_PUB.Add;
1525: x_return_status := FND_API.G_RET_STS_ERROR;
1526:
1527: END IF;
1528: END IF;
1529:
1615: oe_debug_pub.add('Create_account TCA CALL:x_cust_account_id:'||x_cust_account_id);
1616: oe_debug_pub.add('Create_account TCA CALL:x_cust_account_number:'||l_cust_account_number);
1617: END IF;
1618:
1619: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1620: RETURN;
1621: END IF;
1622:
1623: IF NVL(l_customer_info_rec.email_address,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR Then
1619: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1620: RETURN;
1621: END IF;
1622:
1623: IF NVL(l_customer_info_rec.email_address,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR Then
1624:
1625: oe_oe_inline_address.create_contact_point
1626: (
1627: in_contact_point_type => 'EMAIL',
1645: oe_debug_pub.add('create_contact_point EMAIL TCA CALL:x_msg_data:'||x_msg_data);
1646: END IF;
1647:
1648:
1649: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1650: RETURN;
1651: END IF;
1652:
1653:
1652:
1653:
1654: END IF;
1655:
1656: IF NVL(l_customer_info_rec.phone_number,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR Then
1657:
1658: oe_oe_inline_address.create_contact_point
1659: (in_contact_point_type =>'PHONE',
1660: in_owner_table_id=>x_party_id,
1673: oe_debug_pub.add('create_contact_point PHONE TCA CALL:x_msg_count:'||x_msg_count);
1674: oe_debug_pub.add('create_contact_point PHONE TCA CALL:x_msg_data:'||x_msg_data);
1675: END IF;
1676:
1677: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1678: RETURN;
1679: END IF;
1680:
1681: END IF;
1681: END IF;
1682:
1683: Exception
1684: WHEN OTHERS THEN
1685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1686:
1687: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1688: THEN
1689: OE_MSG_PUB.Add_Exc_Msg
1714: IF l_debug_level > 0 THEN
1715: oe_debug_pub.add('Entering OE_CUSTOMER_INFO_PVT.Create_relationships ');
1716: END IF;
1717:
1718: x_return_status := FND_API.G_RET_STS_SUCCESS;
1719:
1720: l_rel_flag := OE_Sys_Parameters.Value('CUSTOMER_RELATIONSHIPS_FLAG');
1721:
1722: IF l_rel_flag <> 'Y' THEN
1725: END IF;
1726: RETURN;
1727: END IF;
1728:
1729: IF NVL(p_sold_to_customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1730: AND NVL(p_ship_to_customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1731: AND p_sold_to_customer_id <> p_ship_to_customer_id
1732: AND NOT check_relation_exists ( p_sold_to_customer_id,p_ship_to_customer_id )
1733: THEN
1726: RETURN;
1727: END IF;
1728:
1729: IF NVL(p_sold_to_customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1730: AND NVL(p_ship_to_customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1731: AND p_sold_to_customer_id <> p_ship_to_customer_id
1732: AND NOT check_relation_exists ( p_sold_to_customer_id,p_ship_to_customer_id )
1733: THEN
1734: oe_oe_inline_address.create_cust_relationship( p_cust_acct_id => p_sold_to_customer_id
1745: oe_debug_pub.add('Create_relationships TCA CALL:x_msg_count:'||x_msg_count);
1746: oe_debug_pub.add('Create_relationships TCA CALL:x_msg_data:'||x_msg_data);
1747: END IF;
1748:
1749: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1750: RETURN;
1751: END IF;
1752:
1753: END IF;
1751: END IF;
1752:
1753: END IF;
1754:
1755: IF NVL(p_sold_to_customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1756: AND NVL(p_bill_to_customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1757: AND p_sold_to_customer_id <> p_bill_to_customer_id
1758: AND NOT check_relation_exists ( p_sold_to_customer_id,p_bill_to_customer_id )
1759: THEN
1752:
1753: END IF;
1754:
1755: IF NVL(p_sold_to_customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1756: AND NVL(p_bill_to_customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1757: AND p_sold_to_customer_id <> p_bill_to_customer_id
1758: AND NOT check_relation_exists ( p_sold_to_customer_id,p_bill_to_customer_id )
1759: THEN
1760:
1772: oe_debug_pub.add('Create_relationships TCA CALL:x_msg_count:'||x_msg_count);
1773: oe_debug_pub.add('Create_relationships TCA CALL:x_msg_data:'||x_msg_data);
1774: END IF;
1775:
1776: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1777: RETURN;
1778: END IF;
1779:
1780: END IF;
1778: END IF;
1779:
1780: END IF;
1781:
1782: IF NVL(p_sold_to_customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1783: AND NVL(p_deliver_to_cust_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1784: AND p_sold_to_customer_id <> p_deliver_to_cust_id
1785: AND NOT check_relation_exists ( p_sold_to_customer_id,p_deliver_to_cust_id )
1786: THEN
1779:
1780: END IF;
1781:
1782: IF NVL(p_sold_to_customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1783: AND NVL(p_deliver_to_cust_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1784: AND p_sold_to_customer_id <> p_deliver_to_cust_id
1785: AND NOT check_relation_exists ( p_sold_to_customer_id,p_deliver_to_cust_id )
1786: THEN
1787:
1800: oe_debug_pub.add('Create_relationships TCA CALL:x_msg_data:'||x_msg_data);
1801: END IF;
1802:
1803:
1804: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1805: RETURN;
1806: END IF;
1807:
1808: END IF;
1812: END IF;
1813:
1814: Exception
1815: WHEN OTHERS THEN
1816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1817:
1818: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1819: THEN
1820: OE_MSG_PUB.Add_Exc_Msg
1852: --
1853:
1854: BEGIN
1855:
1856: x_return_status := FND_API.G_RET_STS_SUCCESS;
1857:
1858: IF l_debug_level > 0 THEN
1859: oe_debug_pub.add('Entering OE_CUSTOMER_INFO_PVT.Create_Party_Site');
1860: END IF;
1933: oe_debug_pub.add('End of Step 1:Create Location :x_msg_data:'||x_msg_data);
1934: oe_debug_pub.add('End of Step 1:Create Location :x_location_id:'||x_location_id);
1935: END IF;
1936:
1937: IF x_return_status <> FND_API.G_RET_STS_SUCCESS then
1938: return;
1939: END IF;
1940:
1941: IF l_debug_level > 0 THEN
1975:
1976:
1977: EXCEPTION
1978: WHEN OTHERS THEN
1979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1980:
1981: IF l_debug_level > 0 THEN
1982: oe_debug_pub.add('Unexpected error in OE_CUSTOMER_INFO_PVT.Create_Party_Site '||SQLERRM);
1983: END IF;
2014: --
2015:
2016: BEGIN
2017:
2018: x_return_status := FND_API.G_RET_STS_SUCCESS;
2019:
2020: IF l_debug_level > 0 THEN
2021: oe_debug_pub.add('Entering OE_CUSTOMER_INFO_PVT.Create_Cust_Account_Site');
2022: END IF;
2069:
2070:
2071: EXCEPTION
2072: WHEN OTHERS THEN
2073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2074:
2075: IF l_debug_level > 0 THEN
2076: oe_debug_pub.add('Unexpected error in OE_CUSTOMER_INFO_PVT.Create_Cust_Account_Site '||SQLERRM);
2077: END IF;
2123: HZ_CUST_ACCOUNT_SITE_V2PUB.Create_Cust_Site_Use
2124: (
2125: p_cust_site_use_rec => l_acct_site_uses,
2126: p_customer_profile_rec => l_cust_profile_rec,
2127: p_create_profile => FND_API.G_FALSE,
2128: x_return_status => x_return_status,
2129: x_msg_count => x_msg_count,
2130: x_msg_data => x_msg_data,
2131: x_site_use_id => x_site_use_id
2144: END IF;
2145:
2146: EXCEPTION
2147: WHEN OTHERS THEN
2148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2149:
2150: IF l_debug_level > 0 THEN
2151: oe_debug_pub.add('Unexpected error in OE_CUSTOMER_INFO_PVT.Create_Acct_Site_Uses '||SQLERRM);
2152: END IF;
2181: l_msg_data VARCHAR2(4000);
2182: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2183: BEGIN
2184:
2185: x_party_site_id := FND_API.G_MISS_NUM;
2186:
2187: IF l_debug_level > 0 THEN
2188: oe_debug_pub.add('Entering OE_CUSTOMER_INFO_PVT.Check_Party_Site_Exists : p_party_id'||p_party_id);
2189: END IF;
2197: END IF;
2198:
2199:
2200: HZ_LOCATION_V2PUB.get_location_rec(
2201: p_init_msg_list => FND_API.G_TRUE,
2202: p_location_id => i.location_id,
2203: x_location_rec => l_location_rec,
2204: x_return_status => l_return_status,
2205: x_msg_count => l_msg_count,
2210: oe_debug_pub.add('l_return_status :'||l_return_status);
2211: oe_debug_pub.add('l_msg_data :'||l_msg_data);
2212: END IF;
2213:
2214: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2215: x_party_site_id := FND_API.G_MISS_NUM;
2216: oe_msg_pub.transfer_msg_stack;
2217: RETURN;
2218: END IF;
2211: oe_debug_pub.add('l_msg_data :'||l_msg_data);
2212: END IF;
2213:
2214: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2215: x_party_site_id := FND_API.G_MISS_NUM;
2216: oe_msg_pub.transfer_msg_stack;
2217: RETURN;
2218: END IF;
2219:
2218: END IF;
2219:
2220:
2221: --Check for match
2222: IF NVL(l_location_rec.country,FND_API.G_MISS_CHAR) = NVL(p_address_rec.country,FND_API.G_MISS_CHAR)
2223: AND NVL(l_location_rec.state,FND_API.G_MISS_CHAR) = NVL(p_address_rec.state,FND_API.G_MISS_CHAR)
2224: AND NVL(l_location_rec.city,FND_API.G_MISS_CHAR) = NVL(p_address_rec.city,FND_API.G_MISS_CHAR)
2225: AND NVL(l_location_rec.county,FND_API.G_MISS_CHAR) = NVL(p_address_rec.county,FND_API.G_MISS_CHAR)
2226: AND NVL(l_location_rec.ADDRESS1,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR)
2219:
2220:
2221: --Check for match
2222: IF NVL(l_location_rec.country,FND_API.G_MISS_CHAR) = NVL(p_address_rec.country,FND_API.G_MISS_CHAR)
2223: AND NVL(l_location_rec.state,FND_API.G_MISS_CHAR) = NVL(p_address_rec.state,FND_API.G_MISS_CHAR)
2224: AND NVL(l_location_rec.city,FND_API.G_MISS_CHAR) = NVL(p_address_rec.city,FND_API.G_MISS_CHAR)
2225: AND NVL(l_location_rec.county,FND_API.G_MISS_CHAR) = NVL(p_address_rec.county,FND_API.G_MISS_CHAR)
2226: AND NVL(l_location_rec.ADDRESS1,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR)
2227: AND NVL(l_location_rec.ADDRESS2,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS2,FND_API.G_MISS_CHAR)
2220:
2221: --Check for match
2222: IF NVL(l_location_rec.country,FND_API.G_MISS_CHAR) = NVL(p_address_rec.country,FND_API.G_MISS_CHAR)
2223: AND NVL(l_location_rec.state,FND_API.G_MISS_CHAR) = NVL(p_address_rec.state,FND_API.G_MISS_CHAR)
2224: AND NVL(l_location_rec.city,FND_API.G_MISS_CHAR) = NVL(p_address_rec.city,FND_API.G_MISS_CHAR)
2225: AND NVL(l_location_rec.county,FND_API.G_MISS_CHAR) = NVL(p_address_rec.county,FND_API.G_MISS_CHAR)
2226: AND NVL(l_location_rec.ADDRESS1,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR)
2227: AND NVL(l_location_rec.ADDRESS2,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS2,FND_API.G_MISS_CHAR)
2228: AND NVL(l_location_rec.ADDRESS3,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS3,FND_API.G_MISS_CHAR)
2221: --Check for match
2222: IF NVL(l_location_rec.country,FND_API.G_MISS_CHAR) = NVL(p_address_rec.country,FND_API.G_MISS_CHAR)
2223: AND NVL(l_location_rec.state,FND_API.G_MISS_CHAR) = NVL(p_address_rec.state,FND_API.G_MISS_CHAR)
2224: AND NVL(l_location_rec.city,FND_API.G_MISS_CHAR) = NVL(p_address_rec.city,FND_API.G_MISS_CHAR)
2225: AND NVL(l_location_rec.county,FND_API.G_MISS_CHAR) = NVL(p_address_rec.county,FND_API.G_MISS_CHAR)
2226: AND NVL(l_location_rec.ADDRESS1,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR)
2227: AND NVL(l_location_rec.ADDRESS2,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS2,FND_API.G_MISS_CHAR)
2228: AND NVL(l_location_rec.ADDRESS3,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS3,FND_API.G_MISS_CHAR)
2229: AND NVL(l_location_rec.ADDRESS4,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS4,FND_API.G_MISS_CHAR)
2222: IF NVL(l_location_rec.country,FND_API.G_MISS_CHAR) = NVL(p_address_rec.country,FND_API.G_MISS_CHAR)
2223: AND NVL(l_location_rec.state,FND_API.G_MISS_CHAR) = NVL(p_address_rec.state,FND_API.G_MISS_CHAR)
2224: AND NVL(l_location_rec.city,FND_API.G_MISS_CHAR) = NVL(p_address_rec.city,FND_API.G_MISS_CHAR)
2225: AND NVL(l_location_rec.county,FND_API.G_MISS_CHAR) = NVL(p_address_rec.county,FND_API.G_MISS_CHAR)
2226: AND NVL(l_location_rec.ADDRESS1,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR)
2227: AND NVL(l_location_rec.ADDRESS2,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS2,FND_API.G_MISS_CHAR)
2228: AND NVL(l_location_rec.ADDRESS3,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS3,FND_API.G_MISS_CHAR)
2229: AND NVL(l_location_rec.ADDRESS4,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS4,FND_API.G_MISS_CHAR)
2230: THEN
2223: AND NVL(l_location_rec.state,FND_API.G_MISS_CHAR) = NVL(p_address_rec.state,FND_API.G_MISS_CHAR)
2224: AND NVL(l_location_rec.city,FND_API.G_MISS_CHAR) = NVL(p_address_rec.city,FND_API.G_MISS_CHAR)
2225: AND NVL(l_location_rec.county,FND_API.G_MISS_CHAR) = NVL(p_address_rec.county,FND_API.G_MISS_CHAR)
2226: AND NVL(l_location_rec.ADDRESS1,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR)
2227: AND NVL(l_location_rec.ADDRESS2,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS2,FND_API.G_MISS_CHAR)
2228: AND NVL(l_location_rec.ADDRESS3,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS3,FND_API.G_MISS_CHAR)
2229: AND NVL(l_location_rec.ADDRESS4,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS4,FND_API.G_MISS_CHAR)
2230: THEN
2231:
2224: AND NVL(l_location_rec.city,FND_API.G_MISS_CHAR) = NVL(p_address_rec.city,FND_API.G_MISS_CHAR)
2225: AND NVL(l_location_rec.county,FND_API.G_MISS_CHAR) = NVL(p_address_rec.county,FND_API.G_MISS_CHAR)
2226: AND NVL(l_location_rec.ADDRESS1,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR)
2227: AND NVL(l_location_rec.ADDRESS2,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS2,FND_API.G_MISS_CHAR)
2228: AND NVL(l_location_rec.ADDRESS3,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS3,FND_API.G_MISS_CHAR)
2229: AND NVL(l_location_rec.ADDRESS4,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS4,FND_API.G_MISS_CHAR)
2230: THEN
2231:
2232: IF l_debug_level > 0 THEN
2225: AND NVL(l_location_rec.county,FND_API.G_MISS_CHAR) = NVL(p_address_rec.county,FND_API.G_MISS_CHAR)
2226: AND NVL(l_location_rec.ADDRESS1,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR)
2227: AND NVL(l_location_rec.ADDRESS2,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS2,FND_API.G_MISS_CHAR)
2228: AND NVL(l_location_rec.ADDRESS3,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS3,FND_API.G_MISS_CHAR)
2229: AND NVL(l_location_rec.ADDRESS4,FND_API.G_MISS_CHAR) = NVL(p_address_rec.ADDRESS4,FND_API.G_MISS_CHAR)
2230: THEN
2231:
2232: IF l_debug_level > 0 THEN
2233: oe_debug_pub.add(' MATCH FOUND : Party Site Exists');
2253: IF l_debug_level > 0 THEN
2254: oe_debug_pub.add('Other errors in Check_Party_Site_Exists: '||SQLERRM);
2255: END IF;
2256:
2257: x_party_site_id := FND_API.G_MISS_NUM;
2258:
2259: END Check_Party_Site_Exists;
2260:
2261: /*This procedure checks whether a party site has already got a account site */
2271: IF l_debug_level > 0 THEN
2272: oe_debug_pub.add('Entering OE_CUSTOMER_INFO_PVT.Check_Cust_Site_Exists');
2273: END IF;
2274:
2275: x_cust_acct_site_id := FND_API.G_MISS_NUM;
2276:
2277: SELECT cust_acct_site_id
2278: INTO x_cust_acct_site_id
2279: FROM hz_cust_acct_sites
2289: END IF;
2290:
2291: EXCEPTION
2292: WHEN OTHERS THEN
2293: x_cust_acct_site_id := FND_API.G_MISS_NUM;
2294:
2295: IF l_debug_level > 0 THEN
2296: oe_debug_pub.add('Other Errors :'||SQLERRM);
2297: END IF;
2385: x_account_site_id NUMBER;
2386:
2387: BEGIN
2388:
2389: x_return_status := FND_API.G_RET_STS_SUCCESS;
2390:
2391: IF l_debug_level > 0 THEN
2392: oe_debug_pub.add('Entering procedure OE_CUSTOMER_INFO_PVT.Create_Addresses');
2393: oe_debug_pub.add('p_address_usage:'||p_address_usage);
2405: ELSE
2406: l_site_customer_id := p_customer_id;
2407: END IF;
2408:
2409: IF NVL( l_addr_rec.site_use_id ,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
2410:
2411:
2412: Value_To_Id_Address ( p_address_record => l_addr_rec
2413: , p_sold_to_org_id => p_sold_to_customer_id
2414: , p_site_customer_id => l_site_customer_id
2415: , p_site_usage => p_address_usage
2416: , x_site_usage_id => x_site_use_id);
2417:
2418: IF x_site_use_id = FND_API.G_MISS_NUM THEN
2419: oe_msg_pub.delete_msg(oe_msg_pub.g_msg_count);
2420: ELSE
2421: IF p_address_usage = 'SHIP_TO' THEN
2422: x_ship_to_org_id := x_site_use_id;
2449: oe_debug_pub.add('Update_Location :x_msg_count'||x_msg_count);
2450: oe_debug_pub.add('Update_Location :x_msg_data'||x_msg_data);
2451: END IF;
2452:
2453: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2454: oe_msg_pub.transfer_msg_stack;
2455: RETURN;
2456: END IF;
2457:
2476: ELSE
2477: l_location_number := l_addr_rec.location_number;
2478: END IF;
2479:
2480: IF NVL(x_site_use_id ,FND_API.G_MISS_NUM ) = FND_API.G_MISS_NUM THEN
2481: Check_Duplicate_Address ( p_address_record => l_addr_rec
2482: , p_sold_to_org_id => p_sold_to_customer_id
2483: , p_site_customer_id => l_site_customer_id
2484: , p_site_usage => p_address_usage
2483: , p_site_customer_id => l_site_customer_id
2484: , p_site_usage => p_address_usage
2485: , x_site_usage_id => x_site_use_id);
2486:
2487: IF x_site_use_id = FND_API.G_MISS_NUM THEN
2488: oe_msg_pub.delete_msg(oe_msg_pub.g_msg_count);
2489: ELSE
2490: IF p_address_usage = 'SHIP_TO' THEN
2491: x_ship_to_org_id := x_site_use_id;
2500: END IF;
2501: END IF;
2502:
2503:
2504: IF NVL(x_site_use_id ,FND_API.G_MISS_NUM ) = FND_API.G_MISS_NUM THEN
2505:
2506: Check_Party_Site_Exists( p_party_id => Get_Party_ID(p_customer_id),
2507: p_address_rec =>l_addr_rec,
2508: x_party_site_id => x_party_site_id
2507: p_address_rec =>l_addr_rec,
2508: x_party_site_id => x_party_site_id
2509: );
2510:
2511: IF x_party_site_id <> FND_API.G_MISS_NUM THEN
2512:
2513: Check_Cust_Site_Exists ( p_party_site_id =>x_party_site_id,
2514: p_cust_account_id =>p_customer_id,
2515: x_cust_acct_site_id =>x_account_site_id
2516: );
2517: END IF;
2518:
2519:
2520: IF x_account_site_id <> FND_API.G_MISS_NUM THEN
2521:
2522: IF l_debug_level > 0 THEN
2523: oe_debug_pub.add('This site is aleary created ,so check create site usage alone');
2524: END IF;
2527: Check_site_usage_exists ( p_cust_acct_site_id => x_account_site_id
2528: ,p_site_usage => p_address_usage
2529: ,x_site_use_id => x_site_use_id);
2530:
2531: IF x_site_use_id <> FND_API.G_MISS_NUM THEN
2532: IF l_debug_level > 0 THEN
2533: oe_debug_pub.add(p_address_usage||': Site Usage already exists ');
2534: oe_debug_pub.add(p_address_usage||': Create_Acct_Site_Uses:x_site_use_id'||x_site_use_id);
2535: END IF;
2552: oe_debug_pub.add(p_address_usage||': Create_Acct_Site_Uses: x_msg_data'||x_msg_data);
2553: oe_debug_pub.add(p_address_usage||': Create_Acct_Site_Uses:x_site_use_id'||x_site_use_id);
2554: END IF;
2555:
2556: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2557: oe_msg_pub.transfer_msg_stack;
2558: RETURN;
2559: END IF;
2560:
2563: oe_debug_pub.add('Create both site and site usage');
2564: END IF;
2565:
2566:
2567: IF x_party_site_id = FND_API.G_MISS_NUM THEN
2568: Create_Party_Site
2569: ( p_party_id => Get_Party_ID(p_customer_id),
2570: p_address_rec => l_addr_rec,
2571: x_location_id => x_location_id,
2574: x_msg_count =>x_msg_count,
2575: x_msg_data =>x_msg_data
2576: );
2577:
2578: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2579: oe_msg_pub.transfer_msg_stack;
2580: RETURN;
2581: END IF;
2582:
2609: oe_debug_pub.add(p_address_usage||': Create_Cust_Account_Site: x_msg_data'||x_msg_data);
2610: oe_debug_pub.add(p_address_usage||': Create_Cust_Account_Site:x_ship_account_site_id'||x_ship_account_site_id);
2611: END IF;
2612:
2613: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2614: oe_msg_pub.transfer_msg_stack;
2615: RETURN;
2616: END IF;
2617:
2631: oe_debug_pub.add(p_address_usage||': Create_Acct_Site_Uses: x_msg_data'||x_msg_data);
2632: oe_debug_pub.add(p_address_usage||': Create_Acct_Site_Uses:x_site_use_id'||x_site_use_id);
2633: END IF;
2634:
2635: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2636: oe_msg_pub.transfer_msg_stack;
2637: RETURN;
2638: END IF;
2639:
2667: END IF;
2668:
2669: EXCEPTION
2670: WHEN OTHERS THEN
2671: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2672:
2673: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2674: THEN
2675: OE_MSG_PUB.Add_Exc_Msg
2685: ,x_return_status OUT NOCOPY VARCHAR2 ) IS
2686: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2687: BEGIN
2688:
2689: x_return_status := FND_API.G_RET_STS_SUCCESS;
2690:
2691: IF p_customer_record.customer_type IS NULL THEN
2692: fnd_message.set_name('ONT','ONT_PO_INL_REQD');
2693: fnd_message.set_token('API_NAME', 'CREATE_ACCOUNT');
2692: fnd_message.set_name('ONT','ONT_PO_INL_REQD');
2693: fnd_message.set_token('API_NAME', 'CREATE_ACCOUNT');
2694: fnd_message.set_token('FIELD_REQD', 'CUSTOMER_TYPE');
2695: oe_msg_pub.add;
2696: x_return_status := FND_API.G_RET_STS_ERROR;
2697:
2698: IF l_debug_level > 0 THEN
2699: oe_debug_pub.add( 'CUSTOMER TYPE REQUIRED BUT NOT ENTERED' ) ;
2700: END IF;
2709: fnd_message.set_name('ONT','ONT_PO_INL_REQD');
2710: fnd_message.set_token('API_NAME', 'CREATE_ACCOUNT');
2711: fnd_message.set_token('FIELD_REQD', 'ORGANIZATION_NAME');
2712: oe_msg_pub.add;
2713: x_return_status := FND_API.G_RET_STS_ERROR;
2714:
2715: IF l_debug_level > 0 THEN
2716: oe_debug_pub.add( 'ORGANIZATION NAME REQUIRED BUT NOT ENTERED' ) ;
2717: END IF;
2728: fnd_message.set_name('ONT','ONT_PO_INL_REQD');
2729: fnd_message.set_token('API_NAME', 'CREATE_ACCOUNT');
2730: fnd_message.set_token('FIELD_REQD', 'PERSON_FIRST_NAME');
2731: oe_msg_pub.add;
2732: x_return_status := FND_API.G_RET_STS_ERROR;
2733:
2734: IF l_debug_level > 0 THEN
2735: oe_debug_pub.add( 'PERSON FIRST/LAST NAME REQUIRED BUT NOT ENTERED' ) ;
2736: END IF;
2744: fnd_message.set_name('ONT','ONT_PO_INL_REQD');
2745: fnd_message.set_token('API_NAME', 'CREATE_ACCOUNT');
2746: fnd_message.set_token('FIELD_REQD', 'EMAIL_ADDRESS');
2747: oe_msg_pub.add;
2748: x_return_status := FND_API.G_RET_STS_ERROR;
2749:
2750: IF l_debug_level > 0 THEN
2751: oe_debug_pub.add( 'EMAIL REQUIRED BUT NOT ENTERED' ) ;
2752: END IF;
2758: fnd_message.set_name('ONT','ONT_PO_INL_REQD');
2759: fnd_message.set_token('API_NAME', 'CREATE_ACCOUNT');
2760: fnd_message.set_token('FIELD_REQD', 'PARTY_NUMBER');
2761: oe_msg_pub.add;
2762: x_return_status := FND_API.G_RET_STS_ERROR;
2763:
2764: IF l_debug_level > 0 THEN
2765: oe_debug_pub.add( 'PARTY NUMBER REQUIRED BUT NOT ENTERED' ) ;
2766: END IF;
2773: fnd_message.set_name('ONT','ONT_PO_INL_REQD');
2774: fnd_message.set_token('API_NAME', 'CREATE_ACCOUNT');
2775: fnd_message.set_token('FIELD_REQD', 'CUSTOMER_NUMBER');
2776: oe_msg_pub.add;
2777: x_return_status := FND_API.G_RET_STS_ERROR;
2778:
2779: IF l_debug_level > 0 THEN
2780: oe_debug_pub.add( 'CUSTOMER NUMBER REQUIRED BUT NOT ENTERED' ) ;
2781: END IF;
2792: x_party_id NUMBER;
2793: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2794:
2795: BEGIN
2796: x_return_status := FND_API.G_RET_STS_SUCCESS;
2797:
2798: IF p_customer_record.customer_type NOT IN ('ORGANIZATION','PERSON') THEN
2799: FND_MESSAGE.set_name('ONT','OE_INVALID_ATTRIBUTE');
2800: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','PARTY_ID');
2798: IF p_customer_record.customer_type NOT IN ('ORGANIZATION','PERSON') THEN
2799: FND_MESSAGE.set_name('ONT','OE_INVALID_ATTRIBUTE');
2800: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','PARTY_ID');
2801: OE_MSG_PUB.Add;
2802: x_return_status := FND_API.G_RET_STS_ERROR;
2803: END IF;
2804:
2805: EXCEPTION
2806: WHEN OTHERS THEN
2817:
2818: IF l_debug_level >0 THEN
2819: oe_debug_pub.add('Entering OE_CUSTOMER_INFO_PVT.Check_Duplicate_Customer');
2820: END IF;
2821: x_customer_id := FND_API.G_MISS_NUM;
2822:
2823: IF p_customer_record.customer_type = 'ORGANIZATION' THEN
2824: IF p_type = 'SOLD_TO' THEN
2825: x_customer_id := Oe_value_to_id.sold_to_org(
2972:
2973:
2974: EXCEPTION
2975: WHEN OTHERS THEN
2976: x_site_usage_id := FND_API.G_MISS_NUM;
2977: END Check_Duplicate_Address;
2978:
2979: Procedure Value_To_Id_Address ( p_address_record IN OE_ORDER_PUB.CUSTOMER_INFO_REC_TYPE
2980: , p_sold_to_org_id IN NUMBER
3047: END IF;
3048:
3049: EXCEPTION
3050: WHEN OTHERS THEN
3051: x_site_usage_id := FND_API.G_MISS_NUM;
3052: END Value_To_Id_Address;
3053:
3054: Procedure Check_Contact_Fields (p_contact_record IN OE_ORDER_PUB.CUSTOMER_INFO_REC_TYPE
3055: ,x_return_status OUT NOCOPY VARCHAR2 ) IS
3054: Procedure Check_Contact_Fields (p_contact_record IN OE_ORDER_PUB.CUSTOMER_INFO_REC_TYPE
3055: ,x_return_status OUT NOCOPY VARCHAR2 ) IS
3056: BEGIN
3057:
3058: x_return_status := FND_API.G_RET_STS_SUCCESS;
3059:
3060: IF p_contact_record.person_first_name IS NULL
3061: AND p_contact_record.person_last_name IS NULL
3062:
3064: fnd_message.set_name('ONT','ONT_PO_INL_REQD');
3065: fnd_message.set_token('API_NAME', 'CREATE_CONTACT');
3066: fnd_message.set_token('FIELD_REQD', 'PERSON_FIRST_NAME');
3067: oe_msg_pub.add;
3068: x_return_status := FND_API.G_RET_STS_ERROR;
3069:
3070: END IF;
3071:
3072: EXCEPTION
3078: Procedure Validate_Contact_Fields (p_contact_record IN OE_ORDER_PUB.CUSTOMER_INFO_REC_TYPE
3079: ,x_return_status OUT NOCOPY VARCHAR2 ) IS
3080: BEGIN
3081:
3082: x_return_status := FND_API.G_RET_STS_SUCCESS;
3083:
3084: IF G_AUTO_CONTACT_NUMBERING = 'N' THEN
3085: IF p_contact_record.contact_number IS NULL THEN
3086: fnd_message.set_name('ONT','ONT_PO_INL_REQD');
3086: fnd_message.set_name('ONT','ONT_PO_INL_REQD');
3087: fnd_message.set_token('API_NAME', 'CREATE_CONTACT');
3088: fnd_message.set_token('FIELD_REQD', 'CONTACT_NUMBER');
3089: oe_msg_pub.add;
3090: x_return_status := FND_API.G_RET_STS_ERROR;
3091: END IF;
3092: END IF;
3093:
3094: EXCEPTION
3110: RETURN l_party_id;
3111:
3112: EXCEPTION
3113: WHEN OTHERS THEN
3114: RETURN FND_API.G_MISS_NUM;
3115: END Get_Party_ID;
3116:
3117: /* This procedure is used to update a address location.This will be called from create_address procedure if
3118: bot ID and Value are passed for address related fields and OE_GLOBALS.G_UPDATE_ON_ID is TRUE
3129: l_location_id NUMBER;
3130: x_ver_number NUMBER;
3131: BEGIN
3132:
3133: x_return_status := FND_API.G_RET_STS_SUCCESS;
3134:
3135: l_location_id := Get_Location_id ( p_site_usage_code => p_site_usage_code
3136: , p_site_use_id => p_site_use_id
3137: );
3135: l_location_id := Get_Location_id ( p_site_usage_code => p_site_usage_code
3136: , p_site_use_id => p_site_use_id
3137: );
3138:
3139: IF l_location_id <> FND_API.G_MISS_NUM THEN
3140: l_location_rec.location_id := l_location_id;
3141: l_location_rec.address1 := p_address_rec.address1;
3142: l_location_rec.address2 := p_address_rec.address2;
3143: l_location_rec.address3 := p_address_rec.address3;
3149:
3150: x_ver_number := Get_obj_version_number(p_location_id => l_location_id);
3151:
3152: HZ_LOCATION_V2PUB.UPDATE_LOCATION (
3153: p_init_msg_list => FND_API.G_TRUE,
3154: p_location_rec => l_location_rec,
3155: p_object_version_number => x_ver_number,
3156: x_return_status =>x_return_status,
3157: x_msg_count =>x_msg_count,
3158: x_msg_data =>x_msg_data
3159: );
3160:
3161: ELSE
3162: x_return_status := FND_API.G_RET_STS_ERROR;
3163: END IF;
3164:
3165: EXCEPTION
3166: WHEN OTHERS THEN
3163: END IF;
3164:
3165: EXCEPTION
3166: WHEN OTHERS THEN
3167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3168:
3169: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3170: THEN
3171: OE_MSG_PUB.Add_Exc_Msg
3247: END IF;
3248: FND_MESSAGE.set_name('ONT','OE_INVALID_ATTRIBUTE');
3249: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','SITE_USE_ID');
3250: OE_MSG_PUB.Add;
3251: return FND_API.G_MISS_NUM;
3252: END Get_Location_id;
3253:
3254:
3255: /* This procedure will be called from Create_Account procedure if both ID and Value is passed
3273: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3274:
3275: BEGIN
3276:
3277: x_return_status := FND_API.G_RET_STS_SUCCESS;
3278:
3279: IF l_debug_level > 0 THEN
3280: oe_debug_pub.add('Entering OE_CUSTOMER_INFO_PVT.Update_Customer ');
3281: END IF;
3280: oe_debug_pub.add('Entering OE_CUSTOMER_INFO_PVT.Update_Customer ');
3281: END IF;
3282:
3283: IF NOT IS_VALID_ID ( p_customer_id => p_customer_rec.customer_id ) THEN
3284: x_return_status := FND_API.G_RET_STS_ERROR;
3285: RETURN;
3286: END IF;
3287:
3288:
3297: l_organization_rec.organization_name := p_customer_rec.organization_name;
3298: x_version_number := Get_obj_version_number(p_party_id => l_party_id);
3299:
3300: hz_party_v2pub.update_organization (
3301: p_init_msg_list => FND_API.G_TRUE,
3302: p_organization_rec => l_organization_rec,
3303: p_party_object_version_number => x_version_number,
3304: x_profile_id =>x_profile_id,
3305: x_return_status =>x_return_status,
3316: l_person_rec.party_rec := l_party_rec;
3317: x_version_number := Get_obj_version_number(p_party_id => l_party_id);
3318:
3319: hz_party_v2pub.update_person (
3320: p_init_msg_list => FND_API.G_TRUE,
3321: p_person_rec => l_person_rec,
3322: p_party_object_version_number => x_version_number,
3323: x_profile_id =>x_profile_id,
3324: x_return_status =>x_return_status,
3327:
3328:
3329: END IF;
3330:
3331: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3332: oe_msg_pub.transfer_msg_stack;
3333: RETURN;
3334: END IF;
3335:
3353: );
3354:
3355: END IF;
3356:
3357: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3358: oe_msg_pub.transfer_msg_stack;
3359: RETURN;
3360: END IF;
3361:
3374: x_msg_data=>x_msg_data
3375: );
3376: END IF;
3377:
3378: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3379: oe_msg_pub.transfer_msg_stack;
3380: RETURN;
3381: END IF;
3382:
3388: l_cust_acct_rec.account_name := p_customer_rec.account_description;
3389: l_cust_acct_rec.cust_account_id := p_customer_rec.customer_id;
3390:
3391: HZ_CUST_ACCOUNT_V2PUB.UPDATE_CUST_ACCOUNT (
3392: p_init_msg_list => FND_API.G_TRUE,
3393: p_cust_account_rec => l_cust_acct_rec,
3394: p_object_version_number => x_version_number,
3395: x_return_status => x_return_status,
3396: x_msg_count =>x_msg_count,
3398: );
3399: END IF;
3400:
3401:
3402: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3403: oe_msg_pub.transfer_msg_stack;
3404: RETURN;
3405: END IF;
3406:
3412: END IF;
3413:
3414: EXCEPTION
3415: WHEN OTHERS THEN
3416: x_return_status := FND_API.G_RET_STS_ERROR;
3417: END Update_Customer;
3418:
3419: /* This procedure is called from Get_Customer_Info_Ids procedure to create contacts */
3420:
3447: l_customer_id NUMBER;
3448: l_site_use_id NUMBER;
3449: BEGIN
3450:
3451: x_return_status := FND_API.G_RET_STS_SUCCESS;
3452:
3453: IF l_debug_level > 0 THEN
3454: oe_debug_pub.add('Entering OE_CUSTMER_INFO_PVT.Create_Contact');
3455: END IF;
3456:
3457: l_contact_rec := p_customer_info_tbl(p_customer_rec_index);
3458:
3459:
3460: IF NVL( l_contact_rec.contact_id ,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
3461:
3462: Value_To_Id_Contact ( p_contact_record => l_contact_rec
3463: , p_customer_id => p_customer_id
3464: , p_site_usage_code => p_usage_code
3464: , p_site_usage_code => p_usage_code
3465: , p_site_usage_id => l_site_use_id
3466: , x_contact_id => x_contact_id
3467: );
3468: IF x_contact_id = FND_API.G_MISS_NUM THEN
3469: oe_msg_pub.delete_msg(oe_msg_pub.g_msg_count);
3470: ELSE
3471: IF p_usage_code = 'SOLD_TO' THEN
3472: x_sold_to_contact_id := x_contact_id;
3495: oe_debug_pub.add('Update_Location :x_msg_count'||x_msg_count);
3496: oe_debug_pub.add('Update_Location :x_msg_data'||x_msg_data);
3497: END IF;
3498:
3499: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3500: oe_msg_pub.transfer_msg_stack;
3501: RETURN;
3502: END IF;
3503:
3516: x_contact_id :=l_contact_rec.contact_id;
3517:
3518: END IF;
3519:
3520: IF NVL(x_contact_id , FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
3521:
3522: Check_Contact_Fields (l_contact_rec,x_return_status);
3523:
3524: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3520: IF NVL(x_contact_id , FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
3521:
3522: Check_Contact_Fields (l_contact_rec,x_return_status);
3523:
3524: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3525: RETURN;
3526: END IF;
3527:
3528: Validate_Contact_Fields(l_contact_rec,x_return_status);
3526: END IF;
3527:
3528: Validate_Contact_Fields(l_contact_rec,x_return_status);
3529:
3530: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3531: RETURN;
3532: END IF;
3533:
3534: oe_oe_inline_address.create_contact(
3604: oe_debug_pub.add('Create Contact out_cont_name :'||out_cont_name);
3605:
3606: END IF;
3607:
3608: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3609: oe_msg_pub.transfer_msg_stack;
3610: RETURN;
3611: END IF;
3612:
3631:
3632: EXCEPTION
3633: WHEN OTHERS THEN
3634:
3635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3636:
3637: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3638: THEN
3639: OE_MSG_PUB.Add_Exc_Msg
3654: RETURN BOOLEAN
3655: IS
3656: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3657: BEGIN
3658: IF NVL(p_customer_rec.customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3659: IF NVL(p_customer_rec.organization_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3660: OR NVL(p_customer_rec.account_description,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3661: OR NVL(p_customer_rec.customer_number,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3662: OR NVL(p_customer_rec.person_first_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3655: IS
3656: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3657: BEGIN
3658: IF NVL(p_customer_rec.customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3659: IF NVL(p_customer_rec.organization_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3660: OR NVL(p_customer_rec.account_description,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3661: OR NVL(p_customer_rec.customer_number,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3662: OR NVL(p_customer_rec.person_first_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3663: OR NVL(p_customer_rec.person_middle_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3656: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3657: BEGIN
3658: IF NVL(p_customer_rec.customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3659: IF NVL(p_customer_rec.organization_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3660: OR NVL(p_customer_rec.account_description,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3661: OR NVL(p_customer_rec.customer_number,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3662: OR NVL(p_customer_rec.person_first_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3663: OR NVL(p_customer_rec.person_middle_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3664: OR NVL(p_customer_rec.person_last_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3657: BEGIN
3658: IF NVL(p_customer_rec.customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3659: IF NVL(p_customer_rec.organization_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3660: OR NVL(p_customer_rec.account_description,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3661: OR NVL(p_customer_rec.customer_number,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3662: OR NVL(p_customer_rec.person_first_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3663: OR NVL(p_customer_rec.person_middle_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3664: OR NVL(p_customer_rec.person_last_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3665: OR NVL(p_customer_rec.person_title,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3658: IF NVL(p_customer_rec.customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3659: IF NVL(p_customer_rec.organization_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3660: OR NVL(p_customer_rec.account_description,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3661: OR NVL(p_customer_rec.customer_number,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3662: OR NVL(p_customer_rec.person_first_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3663: OR NVL(p_customer_rec.person_middle_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3664: OR NVL(p_customer_rec.person_last_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3665: OR NVL(p_customer_rec.person_title,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3666: OR NVL(p_customer_rec.person_name_suffix,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3659: IF NVL(p_customer_rec.organization_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3660: OR NVL(p_customer_rec.account_description,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3661: OR NVL(p_customer_rec.customer_number,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3662: OR NVL(p_customer_rec.person_first_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3663: OR NVL(p_customer_rec.person_middle_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3664: OR NVL(p_customer_rec.person_last_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3665: OR NVL(p_customer_rec.person_title,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3666: OR NVL(p_customer_rec.person_name_suffix,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3667: THEN
3660: OR NVL(p_customer_rec.account_description,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3661: OR NVL(p_customer_rec.customer_number,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3662: OR NVL(p_customer_rec.person_first_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3663: OR NVL(p_customer_rec.person_middle_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3664: OR NVL(p_customer_rec.person_last_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3665: OR NVL(p_customer_rec.person_title,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3666: OR NVL(p_customer_rec.person_name_suffix,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3667: THEN
3668: IF l_debug_level > 0 THEN
3661: OR NVL(p_customer_rec.customer_number,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3662: OR NVL(p_customer_rec.person_first_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3663: OR NVL(p_customer_rec.person_middle_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3664: OR NVL(p_customer_rec.person_last_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3665: OR NVL(p_customer_rec.person_title,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3666: OR NVL(p_customer_rec.person_name_suffix,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3667: THEN
3668: IF l_debug_level > 0 THEN
3669: oe_debug_pub.add('Both ID and Value Passed for Customer record');
3662: OR NVL(p_customer_rec.person_first_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3663: OR NVL(p_customer_rec.person_middle_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3664: OR NVL(p_customer_rec.person_last_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3665: OR NVL(p_customer_rec.person_title,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3666: OR NVL(p_customer_rec.person_name_suffix,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3667: THEN
3668: IF l_debug_level > 0 THEN
3669: oe_debug_pub.add('Both ID and Value Passed for Customer record');
3670: END IF;
3681: IS
3682: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3683: BEGIN
3684:
3685: IF NVL(p_address_rec.site_use_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3686:
3687: IF NVL(p_address_rec.country,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3688: OR NVL(p_address_rec.state,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3689: OR NVL(p_address_rec.city,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3683: BEGIN
3684:
3685: IF NVL(p_address_rec.site_use_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3686:
3687: IF NVL(p_address_rec.country,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3688: OR NVL(p_address_rec.state,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3689: OR NVL(p_address_rec.city,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3690: OR NVL(p_address_rec.county,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3691: OR NVL(p_address_rec.postal_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3684:
3685: IF NVL(p_address_rec.site_use_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3686:
3687: IF NVL(p_address_rec.country,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3688: OR NVL(p_address_rec.state,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3689: OR NVL(p_address_rec.city,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3690: OR NVL(p_address_rec.county,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3691: OR NVL(p_address_rec.postal_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3692: OR NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3685: IF NVL(p_address_rec.site_use_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3686:
3687: IF NVL(p_address_rec.country,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3688: OR NVL(p_address_rec.state,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3689: OR NVL(p_address_rec.city,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3690: OR NVL(p_address_rec.county,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3691: OR NVL(p_address_rec.postal_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3692: OR NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3693: OR NVL(p_address_rec.ADDRESS2,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3686:
3687: IF NVL(p_address_rec.country,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3688: OR NVL(p_address_rec.state,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3689: OR NVL(p_address_rec.city,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3690: OR NVL(p_address_rec.county,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3691: OR NVL(p_address_rec.postal_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3692: OR NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3693: OR NVL(p_address_rec.ADDRESS2,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3694: OR NVL(p_address_rec.ADDRESS3,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3687: IF NVL(p_address_rec.country,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3688: OR NVL(p_address_rec.state,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3689: OR NVL(p_address_rec.city,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3690: OR NVL(p_address_rec.county,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3691: OR NVL(p_address_rec.postal_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3692: OR NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3693: OR NVL(p_address_rec.ADDRESS2,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3694: OR NVL(p_address_rec.ADDRESS3,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3695: OR NVL(p_address_rec.ADDRESS4,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3688: OR NVL(p_address_rec.state,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3689: OR NVL(p_address_rec.city,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3690: OR NVL(p_address_rec.county,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3691: OR NVL(p_address_rec.postal_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3692: OR NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3693: OR NVL(p_address_rec.ADDRESS2,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3694: OR NVL(p_address_rec.ADDRESS3,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3695: OR NVL(p_address_rec.ADDRESS4,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3696: THEN
3689: OR NVL(p_address_rec.city,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3690: OR NVL(p_address_rec.county,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3691: OR NVL(p_address_rec.postal_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3692: OR NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3693: OR NVL(p_address_rec.ADDRESS2,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3694: OR NVL(p_address_rec.ADDRESS3,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3695: OR NVL(p_address_rec.ADDRESS4,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3696: THEN
3697: IF l_debug_level > 0 THEN
3690: OR NVL(p_address_rec.county,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3691: OR NVL(p_address_rec.postal_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3692: OR NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3693: OR NVL(p_address_rec.ADDRESS2,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3694: OR NVL(p_address_rec.ADDRESS3,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3695: OR NVL(p_address_rec.ADDRESS4,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3696: THEN
3697: IF l_debug_level > 0 THEN
3698: oe_debug_pub.add('Both ID and Value Passed for address record');
3691: OR NVL(p_address_rec.postal_code,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3692: OR NVL(p_address_rec.ADDRESS1,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3693: OR NVL(p_address_rec.ADDRESS2,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3694: OR NVL(p_address_rec.ADDRESS3,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3695: OR NVL(p_address_rec.ADDRESS4,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3696: THEN
3697: IF l_debug_level > 0 THEN
3698: oe_debug_pub.add('Both ID and Value Passed for address record');
3699: END IF;
3710: RETURN BOOLEAN
3711: IS
3712: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3713: BEGIN
3714: IF NVL(p_contact_rec.contact_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3715: IF NVL(p_contact_rec.person_first_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3716: OR NVL(p_contact_rec.person_middle_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3717: OR NVL(p_contact_rec.person_last_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3718: OR NVL(p_contact_rec.person_title,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3711: IS
3712: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3713: BEGIN
3714: IF NVL(p_contact_rec.contact_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3715: IF NVL(p_contact_rec.person_first_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3716: OR NVL(p_contact_rec.person_middle_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3717: OR NVL(p_contact_rec.person_last_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3718: OR NVL(p_contact_rec.person_title,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3719: OR NVL(p_contact_rec.person_name_suffix,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3712: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3713: BEGIN
3714: IF NVL(p_contact_rec.contact_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3715: IF NVL(p_contact_rec.person_first_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3716: OR NVL(p_contact_rec.person_middle_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3717: OR NVL(p_contact_rec.person_last_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3718: OR NVL(p_contact_rec.person_title,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3719: OR NVL(p_contact_rec.person_name_suffix,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3720: THEN
3713: BEGIN
3714: IF NVL(p_contact_rec.contact_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3715: IF NVL(p_contact_rec.person_first_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3716: OR NVL(p_contact_rec.person_middle_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3717: OR NVL(p_contact_rec.person_last_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3718: OR NVL(p_contact_rec.person_title,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3719: OR NVL(p_contact_rec.person_name_suffix,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3720: THEN
3721: IF l_debug_level > 0 THEN
3714: IF NVL(p_contact_rec.contact_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3715: IF NVL(p_contact_rec.person_first_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3716: OR NVL(p_contact_rec.person_middle_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3717: OR NVL(p_contact_rec.person_last_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3718: OR NVL(p_contact_rec.person_title,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3719: OR NVL(p_contact_rec.person_name_suffix,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3720: THEN
3721: IF l_debug_level > 0 THEN
3722: oe_debug_pub.add('Both ID and Value Passed for Customer record');
3715: IF NVL(p_contact_rec.person_first_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3716: OR NVL(p_contact_rec.person_middle_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3717: OR NVL(p_contact_rec.person_last_name,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3718: OR NVL(p_contact_rec.person_title,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3719: OR NVL(p_contact_rec.person_name_suffix,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3720: THEN
3721: IF l_debug_level > 0 THEN
3722: oe_debug_pub.add('Both ID and Value Passed for Customer record');
3723: END IF;
3767: IS
3768: l_exists varchar2(1);
3769: BEGIN
3770:
3771: IF NVL(p_customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3772: RETURN ( oe_validate.customer(p_customer_id => p_customer_id ));
3773: END IF;
3774:
3775: IF NVL(p_party_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3771: IF NVL(p_customer_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3772: RETURN ( oe_validate.customer(p_customer_id => p_customer_id ));
3773: END IF;
3774:
3775: IF NVL(p_party_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
3776: select 'Y'
3777: into l_exists
3778: from HZ_PARTIES
3779: Where party_id = p_party_id;
3796: , x_contact_id OUT NOCOPY NUMBER
3797: )IS
3798: l_contact_name VARCHAR2(5000);
3799: BEGIN
3800: x_contact_id := FND_API.G_MISS_NUM;
3801:
3802: Select p_contact_record.person_last_name
3803: || DECODE(p_contact_record.person_first_name, NULL, NULL, ', '
3804: || p_contact_record.PERSON_FIRST_NAME)
3814:
3815:
3816: EXCEPTION
3817: WHEN OTHERS THEN
3818: x_contact_id := FND_API.G_MISS_NUM;
3819:
3820: END Value_To_Id_contact;
3821:
3822: /*This function checks whether the passed site usage already exits for the passed account site */
3825: ,x_site_use_id OUT NOCOPY NUMBER)
3826: IS
3827: BEGIN
3828:
3829: x_site_use_id := FND_API.G_MISS_NUM;
3830:
3831: SELECT site_uses.site_use_id
3832: INTO x_site_use_id
3833: FROM hz_cust_acct_sites acct_site,
3844:
3845:
3846: EXCEPTION
3847: WHEN OTHERS THEN
3848: x_site_use_id := FND_API.G_MISS_NUM;
3849: END Check_site_usage_exists;
3850:
3851: FUNCTION Get_Party_Type ( p_party_id IN NUMBER )RETURN VARCHAR2
3852: IS
3910: WHEN OTHERS THEN
3911: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
3912: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','CONTACT_ID');
3913: OE_MSG_PUB.Add;
3914: x_return_status := FND_API.G_RET_STS_ERROR;
3915: End;
3916:
3917: l_party_rec.party_id := l_party_id;
3918: l_person_rec.party_rec := l_party_rec;
3923: l_person_rec.person_name_suffix := p_contact_rec.person_name_suffix;
3924: x_version_number := Get_obj_version_number(p_party_id => l_party_id);
3925:
3926: hz_party_v2pub.update_person (
3927: p_init_msg_list => FND_API.G_TRUE,
3928: p_person_rec => l_person_rec,
3929: p_party_object_version_number => x_version_number,
3930: x_profile_id =>x_profile_id,
3931: x_return_status =>x_return_status,
3933: x_msg_data => x_msg_data );
3934:
3935:
3936:
3937: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3938: oe_msg_pub.transfer_msg_stack;
3939: RETURN;
3940: END IF;
3941:
3959: );
3960:
3961: END IF;
3962:
3963: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3964: oe_msg_pub.transfer_msg_stack;
3965: RETURN;
3966: END IF;
3967:
3980: x_msg_data=>x_msg_data
3981: );
3982: END IF;
3983:
3984: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3985: oe_msg_pub.transfer_msg_stack;
3986: RETURN;
3987: END IF;
3988:
3996: END IF;
3997:
3998: EXCEPTION
3999: WHEN OTHERS THEN
4000: x_return_status := FND_API.G_RET_STS_ERROR;
4001:
4002: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4003: THEN
4004: OE_MSG_PUB.Add_Exc_Msg