[Home] [Help]
264:
265: SAVEPOINT do_create_ship_to_location_PUB;
266:
267: -- Initialize
268: x_return_status := FND_API.G_RET_STS_SUCCESS;
269: select userenv('LANG') into l_language from dual;
270:
271: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
272: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
792: 'In EXCP_USER_DEFINED block');
793: end if;
794:
795: Rollback to do_create_ship_to_location_PUB;
796: x_return_status := FND_API.G_RET_STS_ERROR;
797: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
798: P_API_NAME => L_API_NAME
799: ,P_PKG_NAME => G_PKG_NAME
800: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
801: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
802: ,X_MSG_COUNT => x_MSG_COUNT
803: ,X_MSG_DATA => x_MSG_DATA
804: ,X_RETURN_STATUS => x_RETURN_STATUS);
805: WHEN FND_API.G_EXC_ERROR THEN
806:
807: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
808: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
809: 'csp.plsql.CSP_SHIP_TO_ADDRESS_PVT.do_create_ship_to_location',
806:
807: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
808: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
809: 'csp.plsql.CSP_SHIP_TO_ADDRESS_PVT.do_create_ship_to_location',
810: 'In FND_API.G_EXC_ERROR block');
811: end if;
812:
813: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
814: P_API_NAME => L_API_NAME
817: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
818: ,X_MSG_COUNT => x_MSG_COUNT
819: ,X_MSG_DATA => x_MSG_DATA
820: ,X_RETURN_STATUS => x_RETURN_STATUS);
821: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
822:
823: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
824: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
825: 'csp.plsql.CSP_SHIP_TO_ADDRESS_PVT.do_create_ship_to_location',
822:
823: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
824: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
825: 'csp.plsql.CSP_SHIP_TO_ADDRESS_PVT.do_create_ship_to_location',
826: 'In FND_API.G_EXC_UNEXPECTED_ERROR block');
827: end if;
828:
829: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
830: P_API_NAME => L_API_NAME
852: FND_MSG_PUB.ADD;
853: fnd_msg_pub.count_and_get
854: ( p_count => x_msg_count
855: , p_data => x_msg_data);
856: x_return_status := FND_API.G_RET_STS_ERROR;
857:
858: END do_create_ship_to_location;
859:
860:
924: BEGIN
925: SAVEPOINT do_update_ship_to_location_PUB;
926:
927: -- initialize
928: x_return_status := FND_API.G_RET_STS_SUCCESS;
929: select userenv('LANG') into l_language from dual;
930:
931: /* OPEN l_inv_location_csr;
932: FETCH l_inv_location_csr INTO
1072: -- Exception Block
1073: EXCEPTION
1074: WHEN EXCP_USER_DEFINED THEN
1075: Rollback to do_update_ship_to_location_PUB;
1076: x_return_status := FND_API.G_RET_STS_ERROR;
1077: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1078: P_API_NAME => L_API_NAME
1079: ,P_PKG_NAME => G_PKG_NAME
1080: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1081: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
1082: ,X_MSG_COUNT => x_MSG_COUNT
1083: ,X_MSG_DATA => x_MSG_DATA
1084: ,X_RETURN_STATUS => x_RETURN_STATUS);
1085: WHEN FND_API.G_EXC_ERROR THEN
1086: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1087: P_API_NAME => L_API_NAME
1088: ,P_PKG_NAME => G_PKG_NAME
1089: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1090: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
1091: ,X_MSG_COUNT => x_MSG_COUNT
1092: ,X_MSG_DATA => x_MSG_DATA
1093: ,X_RETURN_STATUS => x_RETURN_STATUS);
1094: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1095: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1096: P_API_NAME => L_API_NAME
1097: ,P_PKG_NAME => G_PKG_NAME
1098: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1108: FND_MSG_PUB.ADD;
1109: fnd_msg_pub.count_and_get
1110: ( p_count => x_msg_count
1111: , p_data => x_msg_data);
1112: x_return_status := FND_API.G_RET_STS_ERROR;
1113:
1114: END do_update_ship_to_location;
1115:
1116:
1310: x_msg_count => x_msg_count,
1311: x_msg_data => x_msg_data,
1312: x_return_status => x_return_status);
1313:
1314: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1315: Rollback to do_create_site_use_PUB;
1316: /*FND_MESSAGE.SET_NAME ('CSP', 'CSP_SITE_USE_API_ERROR');
1317: FND_MESSAGE.SET_TOKEN ('TEXT', x_msg_data);
1318: FND_MSG_PUB.ADD;*/
1431: x_msg_count => x_msg_count,
1432: x_msg_data => x_msg_data,
1433: x_return_status => x_return_status);
1434:
1435: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1436: Rollback to do_create_site_use_PUB;
1437: /*FND_MESSAGE.SET_NAME ('CSP', 'CSP_SITE_USE_API_ERROR');
1438: FND_MESSAGE.SET_TOKEN ('TEXT', x_msg_data);
1439: FND_MSG_PUB.ADD;*/
1443: -- Exception Block
1444: EXCEPTION
1445: WHEN EXCP_USER_DEFINED THEN
1446: Rollback to do_create_site_use_PUB;
1447: x_return_status := FND_API.G_RET_STS_ERROR;
1448: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1449: P_API_NAME => L_API_NAME
1450: ,P_PKG_NAME => G_PKG_NAME
1451: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1452: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
1453: ,X_MSG_COUNT => x_MSG_COUNT
1454: ,X_MSG_DATA => x_MSG_DATA
1455: ,X_RETURN_STATUS => x_RETURN_STATUS);
1456: WHEN FND_API.G_EXC_ERROR THEN
1457: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1458: P_API_NAME => L_API_NAME
1459: ,P_PKG_NAME => G_PKG_NAME
1460: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1461: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
1462: ,X_MSG_COUNT => x_MSG_COUNT
1463: ,X_MSG_DATA => x_MSG_DATA
1464: ,X_RETURN_STATUS => x_RETURN_STATUS);
1465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1466: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1467: P_API_NAME => L_API_NAME
1468: ,P_PKG_NAME => G_PKG_NAME
1469: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1479: FND_MSG_PUB.ADD;
1480: fnd_msg_pub.count_and_get
1481: ( p_count => x_msg_count
1482: , p_data => x_msg_data);
1483: x_return_status := FND_API.G_RET_STS_ERROR;
1484:
1485: END do_create_site_use;
1486:
1487:
2100: x_msg_count => x_msg_count,
2101: x_msg_data => x_msg_data,
2102: x_return_status => x_return_status);
2103:
2104: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2105: Rollback to do_update_site_use_PUB;
2106: /* FND_MESSAGE.SET_NAME ('CSP', 'CSP_SITE_USE_API_ERROR');
2107: FND_MESSAGE.SET_TOKEN ('TEXT', x_msg_data);
2108: FND_MSG_PUB.ADD;*/
2340: x_msg_count => x_msg_count,
2341: x_msg_data => x_msg_data,
2342: x_return_status => x_return_status);
2343:
2344: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2345: Rollback to do_update_site_use_PUB;
2346: /* FND_MESSAGE.SET_NAME ('CSP', 'CSP_SITE_USE_API_ERROR');
2347: FND_MESSAGE.SET_TOKEN ('TEXT', x_msg_data);
2348: FND_MSG_PUB.ADD;*/
2577: x_msg_count => x_msg_count,
2578: x_msg_data => x_msg_data,
2579: x_return_status => x_return_status);
2580:
2581: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2582: Rollback to do_update_site_use_PUB;
2583: /* FND_MESSAGE.SET_NAME ('CSP', 'CSP_SITE_USE_API_ERROR');
2584: FND_MESSAGE.SET_TOKEN ('TEXT', x_msg_data);
2585: FND_MSG_PUB.ADD;*/
2594: -- Exception Block
2595: EXCEPTION
2596: WHEN EXCP_USER_DEFINED THEN
2597: Rollback to do_update_site_use_PUB;
2598: x_return_status := FND_API.G_RET_STS_ERROR;
2599: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2600: P_API_NAME => L_API_NAME
2601: ,P_PKG_NAME => G_PKG_NAME
2602: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2603: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
2604: ,X_MSG_COUNT => x_MSG_COUNT
2605: ,X_MSG_DATA => x_MSG_DATA
2606: ,X_RETURN_STATUS => x_RETURN_STATUS);
2607: WHEN FND_API.G_EXC_ERROR THEN
2608: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2609: P_API_NAME => L_API_NAME
2610: ,P_PKG_NAME => G_PKG_NAME
2611: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2612: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
2613: ,X_MSG_COUNT => x_MSG_COUNT
2614: ,X_MSG_DATA => x_MSG_DATA
2615: ,X_RETURN_STATUS => x_RETURN_STATUS);
2616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2617: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2618: P_API_NAME => L_API_NAME
2619: ,P_PKG_NAME => G_PKG_NAME
2620: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2630: FND_MSG_PUB.ADD;
2631: fnd_msg_pub.count_and_get
2632: ( p_count => x_msg_count
2633: , p_data => x_msg_data);
2634: x_return_status := FND_API.G_RET_STS_ERROR;
2635:
2636: END do_update_site_use;
2637: ------------------------------------------------------------------------------------------
2638: -- Procedure Name : ship_to_address_handler
3146:
3147: -- initialize message list
3148: FND_MSG_PUB.initialize;
3149:
3150: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3151: p_api_version_number,
3152: l_api_name,
3153: G_PKG_NAME) THEN
3154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3150: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3151: p_api_version_number,
3152: l_api_name,
3153: G_PKG_NAME) THEN
3154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3155: END IF;
3156:
3157: x_return_status := FND_API.G_RET_STS_SUCCESS;
3158: select userenv('LANG') into s_language from dual;
3153: G_PKG_NAME) THEN
3154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3155: END IF;
3156:
3157: x_return_status := FND_API.G_RET_STS_SUCCESS;
3158: select userenv('LANG') into s_language from dual;
3159: csp_ship_to_address_pvt.g_rs_cust_relation_id := null;
3160: csp_ship_to_address_pvt.call_internal_hook('CSP_SHIP_TO_ADDRESS_PVT','SHIP_TO_ADDRESS_HANDLER','B',x_return_status);
3161:
3874: ,x_msg_count => x_msg_count
3875: ,x_msg_data => x_msg_data);
3876: END IF;
3877:
3878: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3879: Rollback to ship_to_address_handler_PUB;
3880: /*FND_MESSAGE.SET_NAME ('CSP', 'CSP_SITE_USE_API_ERROR');
3881: FND_MESSAGE.SET_TOKEN ('TEXT', x_msg_data);
3882: FND_MSG_PUB.ADD;*/
4098: ,x_msg_count => x_msg_count
4099: ,x_msg_data => x_msg_data);
4100: END IF;
4101:
4102: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4103: Rollback to ship_to_address_handler_PUB;
4104: /*FND_MESSAGE.SET_NAME ('CSP', 'CSP_SITE_USE_API_ERROR');
4105: FND_MESSAGE.SET_TOKEN ('TEXT', x_msg_data);
4106: FND_MSG_PUB.ADD;*/
4271: x_return_status => x_return_status,
4272: x_msg_count => x_msg_count,
4273: x_msg_data => x_msg_data);
4274:
4275: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4276: Rollback to ship_to_address_handler_PUB;
4277: /*FND_MESSAGE.SET_NAME ('CSP', 'CSP_SITE_USE_API_ERROR');
4278: FND_MESSAGE.SET_TOKEN ('TEXT', x_msg_data);
4279: FND_MSG_PUB.ADD;*/
4295: ELSIF l_process_type = 'UPDATE' THEN
4296: csp_ship_to_address_pvt.call_internal_hook('CSP_SHIP_TO_ADDRESS_PVT','UPDATE_LOCATION','A',x_return_status);
4297: END IF;
4298: -- If no error occurs, commit.
4299: IF p_commit = FND_API.G_TRUE THEN
4300: COMMIT;
4301: END IF;
4302:
4303: fnd_msg_pub.count_and_get
4307: -- Exception Block --
4308: EXCEPTION
4309: WHEN EXCP_USER_DEFINED THEN
4310: Rollback to ship_to_address_handler_PUB;
4311: x_return_status := FND_API.G_RET_STS_ERROR;
4312: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
4313: P_API_NAME => L_API_NAME
4314: ,P_PKG_NAME => G_PKG_NAME
4315: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
4316: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
4317: ,X_MSG_COUNT => X_MSG_COUNT
4318: ,X_MSG_DATA => X_MSG_DATA
4319: ,X_RETURN_STATUS => X_RETURN_STATUS);
4320: WHEN FND_API.G_EXC_ERROR THEN
4321: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
4322: P_API_NAME => L_API_NAME
4323: ,P_PKG_NAME => G_PKG_NAME
4324: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
4325: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
4326: ,X_MSG_COUNT => X_MSG_COUNT
4327: ,X_MSG_DATA => X_MSG_DATA
4328: ,X_RETURN_STATUS => X_RETURN_STATUS);
4329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4330: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
4331: P_API_NAME => L_API_NAME
4332: ,P_PKG_NAME => G_PKG_NAME
4333: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
4343: FND_MSG_PUB.ADD;
4344: fnd_msg_pub.count_and_get
4345: ( p_count => x_msg_count
4346: , p_data => x_msg_data);
4347: x_return_status := FND_API.G_RET_STS_ERROR;
4348:
4349: END ship_to_address_handler;
4350:
4351:
4423:
4424: -- initialize message list
4425: FND_MSG_PUB.initialize;
4426:
4427: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4428: p_api_version_number,
4429: l_api_name,
4430: G_PKG_NAME) THEN
4431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4427: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4428: p_api_version_number,
4429: l_api_name,
4430: G_PKG_NAME) THEN
4431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4432: END IF;
4433:
4434: x_return_status := FND_API.G_RET_STS_SUCCESS;
4435:
4430: G_PKG_NAME) THEN
4431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4432: END IF;
4433:
4434: x_return_status := FND_API.G_RET_STS_SUCCESS;
4435:
4436: -- If site use id is null, return error.
4437: IF p_site_use_id IS NULL THEN
4438: FND_MESSAGE.SET_NAME ('CSP', 'CSP_SITE_USE_ID_REQD');
4519: END IF;
4520:
4521: EXCEPTION
4522: WHEN EXCP_USER_DEFINED THEN
4523: x_return_status := FND_API.G_RET_STS_ERROR;
4524: fnd_msg_pub.count_and_get
4525: ( p_count => x_msg_count
4526: , p_data => x_msg_data);
4527: WHEN FND_API.G_EXC_ERROR THEN
4523: x_return_status := FND_API.G_RET_STS_ERROR;
4524: fnd_msg_pub.count_and_get
4525: ( p_count => x_msg_count
4526: , p_data => x_msg_data);
4527: WHEN FND_API.G_EXC_ERROR THEN
4528: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
4529: P_API_NAME => L_API_NAME
4530: ,P_PKG_NAME => G_PKG_NAME
4531: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
4532: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
4533: ,X_MSG_COUNT => x_MSG_COUNT
4534: ,X_MSG_DATA => x_MSG_DATA
4535: ,X_RETURN_STATUS => x_RETURN_STATUS);
4536: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4537: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
4538: P_API_NAME => L_API_NAME
4539: ,P_PKG_NAME => G_PKG_NAME
4540: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
4550: FND_MSG_PUB.ADD;
4551: fnd_msg_pub.count_and_get
4552: ( p_count => x_msg_count
4553: , p_data => x_msg_data);
4554: x_return_status := FND_API.G_RET_STS_ERROR;
4555:
4556: END site_to_invloc_linkage; */
4557: PROCEDURE site_to_invloc_linkage
4558: (p_customer_id IN NUMBER
4652:
4653: -- initialize message list
4654: FND_MSG_PUB.initialize;
4655:
4656: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4657: p_api_version_number,
4658: l_api_name,
4659: G_PKG_NAME) THEN
4660:
4660:
4661: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
4662: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4663: 'csp.plsql.CSP_SHIP_TO_ADDRESS_PVT.site_to_invloc_linkage',
4664: 'In FND_API.Compatible_API_Call');
4665: end if;
4666:
4667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4668: END IF;
4663: 'csp.plsql.CSP_SHIP_TO_ADDRESS_PVT.site_to_invloc_linkage',
4664: 'In FND_API.Compatible_API_Call');
4665: end if;
4666:
4667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4668: END IF;
4669:
4670: x_return_status := FND_API.G_RET_STS_SUCCESS;
4671:
4666:
4667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4668: END IF;
4669:
4670: x_return_status := FND_API.G_RET_STS_SUCCESS;
4671:
4672: -- If site use id is null, return error.
4673: IF p_site_use_id IS NULL THEN
4674: FND_MESSAGE.SET_NAME ('CSP', 'CSP_SITE_USE_ID_REQD');
5065: END IF;
5066: END IF;
5067: EXCEPTION
5068: WHEN EXCP_USER_DEFINED THEN
5069: x_return_status := FND_API.G_RET_STS_ERROR;
5070: fnd_msg_pub.count_and_get
5071: ( p_count => x_msg_count
5072: , p_data => x_msg_data);
5073: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5074: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5075: 'csp.plsql.CSP_SHIP_TO_ADDRESS_PVT.site_to_invloc_linkage',
5076: 'In EXCP_USER_DEFINED block');
5077: end if;
5078: WHEN FND_API.G_EXC_ERROR THEN
5079: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
5080: P_API_NAME => L_API_NAME
5081: ,P_PKG_NAME => G_PKG_NAME
5082: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
5086: ,X_RETURN_STATUS => x_RETURN_STATUS);
5087: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5088: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5089: 'csp.plsql.CSP_SHIP_TO_ADDRESS_PVT.site_to_invloc_linkage',
5090: 'In FND_API.G_EXC_ERROR block');
5091: end if;
5092: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5093: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
5094: P_API_NAME => L_API_NAME
5088: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5089: 'csp.plsql.CSP_SHIP_TO_ADDRESS_PVT.site_to_invloc_linkage',
5090: 'In FND_API.G_EXC_ERROR block');
5091: end if;
5092: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5093: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
5094: P_API_NAME => L_API_NAME
5095: ,P_PKG_NAME => G_PKG_NAME
5096: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
5100: ,X_RETURN_STATUS => x_RETURN_STATUS);
5101: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5102: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5103: 'csp.plsql.CSP_SHIP_TO_ADDRESS_PVT.site_to_invloc_linkage',
5104: 'In FND_API.G_EXC_UNEXPECTED_ERROR block');
5105: end if;
5106: WHEN OTHERS THEN
5107: Rollback to site_to_invloc_linkage_PUB;
5108: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5116: FND_MSG_PUB.ADD;
5117: fnd_msg_pub.count_and_get
5118: ( p_count => x_msg_count
5119: , p_data => x_msg_data);
5120: x_return_status := FND_API.G_RET_STS_ERROR;
5121:
5122: END site_to_invloc_linkage;
5123: PROCEDURE call_internal_hook (
5124: p_package_name IN VARCHAR2,
5148: l_module_name,
5149: 'BEGIN...');
5150: end if;
5151:
5152: x_return_status := fnd_api.g_ret_sts_success;
5153:
5154: FOR i IN c1
5155: LOOP
5156: v_cursorid := DBMS_SQL.open_cursor;
5180: l_module_name,
5181: 'x_return_status = ' || x_return_status);
5182: end if;
5183:
5184: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
5185: THEN
5186: fnd_message.set_name ('JTF', 'JTF_TASK_MISSING_RETURN_STATUS');
5187: fnd_message.set_token (
5188: 'P_PROCEDURE',
5188: 'P_PROCEDURE',
5189: i.hook_package || '.' || i.hook_api,false
5190: );
5191: fnd_msg_pub.add;
5192: x_return_status := fnd_api.g_ret_sts_unexp_error;
5193: RAISE fnd_api.g_exc_unexpected_error;
5194: x_return_status := fnd_api.g_ret_sts_unexp_error;
5195: RAISE fnd_api.g_exc_unexpected_error;
5196: END IF;
5189: i.hook_package || '.' || i.hook_api,false
5190: );
5191: fnd_msg_pub.add;
5192: x_return_status := fnd_api.g_ret_sts_unexp_error;
5193: RAISE fnd_api.g_exc_unexpected_error;
5194: x_return_status := fnd_api.g_ret_sts_unexp_error;
5195: RAISE fnd_api.g_exc_unexpected_error;
5196: END IF;
5197:
5190: );
5191: fnd_msg_pub.add;
5192: x_return_status := fnd_api.g_ret_sts_unexp_error;
5193: RAISE fnd_api.g_exc_unexpected_error;
5194: x_return_status := fnd_api.g_ret_sts_unexp_error;
5195: RAISE fnd_api.g_exc_unexpected_error;
5196: END IF;
5197:
5198: IF x_return_status IS NULL
5191: fnd_msg_pub.add;
5192: x_return_status := fnd_api.g_ret_sts_unexp_error;
5193: RAISE fnd_api.g_exc_unexpected_error;
5194: x_return_status := fnd_api.g_ret_sts_unexp_error;
5195: RAISE fnd_api.g_exc_unexpected_error;
5196: END IF;
5197:
5198: IF x_return_status IS NULL
5199: THEN
5198: IF x_return_status IS NULL
5199: THEN
5200: fnd_message.set_name ('JTF', 'JTF_TASK_MISSING_RETURN_STATUS');
5201: fnd_msg_pub.add;
5202: x_return_status := fnd_api.g_ret_sts_unexp_error;
5203: RAISE fnd_api.g_exc_unexpected_error;
5204: END IF;
5205: END LOOP;
5206: EXCEPTION
5199: THEN
5200: fnd_message.set_name ('JTF', 'JTF_TASK_MISSING_RETURN_STATUS');
5201: fnd_msg_pub.add;
5202: x_return_status := fnd_api.g_ret_sts_unexp_error;
5203: RAISE fnd_api.g_exc_unexpected_error;
5204: END IF;
5205: END LOOP;
5206: EXCEPTION
5207: WHEN fnd_api.g_exc_unexpected_error
5203: RAISE fnd_api.g_exc_unexpected_error;
5204: END IF;
5205: END LOOP;
5206: EXCEPTION
5207: WHEN fnd_api.g_exc_unexpected_error
5208: THEN
5209: x_return_status := fnd_api.g_ret_sts_unexp_error;
5210: WHEN OTHERS
5211: THEN
5205: END LOOP;
5206: EXCEPTION
5207: WHEN fnd_api.g_exc_unexpected_error
5208: THEN
5209: x_return_status := fnd_api.g_ret_sts_unexp_error;
5210: WHEN OTHERS
5211: THEN
5212: fnd_message.set_name ('JTF', 'JTF_TASK_UNKNOWN_ERROR');
5213: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM,false);
5211: THEN
5212: fnd_message.set_name ('JTF', 'JTF_TASK_UNKNOWN_ERROR');
5213: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM,false);
5214: fnd_msg_pub.add;
5215: x_return_status := fnd_api.g_ret_sts_unexp_error;
5216: END;
5217:
5218: PROCEDURE cust_inv_loc_link
5219: ( p_api_version IN NUMBER
5216: END;
5217:
5218: PROCEDURE cust_inv_loc_link
5219: ( p_api_version IN NUMBER
5220: ,p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE
5221: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5222: ,px_location_id IN OUT NOCOPY NUMBER
5223: ,p_party_site_id IN NUMBER
5224: ,p_cust_account_id IN NUMBER
5217:
5218: PROCEDURE cust_inv_loc_link
5219: ( p_api_version IN NUMBER
5220: ,p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE
5221: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5222: ,px_location_id IN OUT NOCOPY NUMBER
5223: ,p_party_site_id IN NUMBER
5224: ,p_cust_account_id IN NUMBER
5225: ,p_customer_id IN NUMBER
5455: ,X_MSG_COUNT => l_msg_count
5456: ,X_MSG_DATA => l_msg_data
5457: );
5458:
5459: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5460: RAISE FND_API.G_EXC_ERROR;
5461: END IF;
5462: px_location_id := l_location_id;
5463: ELSE
5456: ,X_MSG_DATA => l_msg_data
5457: );
5458:
5459: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5460: RAISE FND_API.G_EXC_ERROR;
5461: END IF;
5462: px_location_id := l_location_id;
5463: ELSE
5464: px_location_id := l_inv_location_id;
5468: null;
5469: END IF;
5470: END If;
5471: EXCEPTION
5472: WHEN FND_API.G_EXC_ERROR THEN
5473: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
5474: P_API_NAME => L_API_NAME
5475: ,P_PKG_NAME => G_PKG_NAME
5476: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
5477: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
5478: ,X_MSG_COUNT => X_MSG_COUNT
5479: ,X_MSG_DATA => X_MSG_DATA
5480: ,X_RETURN_STATUS => X_RETURN_STATUS);
5481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5482: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
5483: P_API_NAME => L_API_NAME
5484: ,P_PKG_NAME => G_PKG_NAME
5485: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
5495: FND_MSG_PUB.ADD;
5496: fnd_msg_pub.count_and_get
5497: ( p_count => x_msg_count
5498: , p_data => x_msg_data);
5499: x_return_status := FND_API.G_RET_STS_ERROR;
5500:
5501: END;
5502:
5503: -- bug # 8333969
5503: -- bug # 8333969
5504: PROCEDURE rs_primary_ship_to_addr
5505: (
5506: p_api_version IN NUMBER
5507: ,p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE
5508: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5509: ,p_rs_type IN VARCHAR2
5510: ,p_rs_id IN NUMBER
5511: ,p_rs_site_use_id IN NUMBER
5504: PROCEDURE rs_primary_ship_to_addr
5505: (
5506: p_api_version IN NUMBER
5507: ,p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE
5508: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5509: ,p_rs_type IN VARCHAR2
5510: ,p_rs_id IN NUMBER
5511: ,p_rs_site_use_id IN NUMBER
5512: ,x_return_status OUT NOCOPY VARCHAR2
5563: || ',p_rs_id=' || p_rs_id
5564: || ',p_rs_site_use_id=' || p_rs_site_use_id);
5565: end if;
5566:
5567: x_return_status := FND_API.G_RET_STS_SUCCESS;
5568:
5569: IF FND_API.to_Boolean(p_Init_Msg_List)
5570: THEN
5571: FND_MSG_PUB.initialize;
5565: end if;
5566:
5567: x_return_status := FND_API.G_RET_STS_SUCCESS;
5568:
5569: IF FND_API.to_Boolean(p_Init_Msg_List)
5570: THEN
5571: FND_MSG_PUB.initialize;
5572: END IF;
5573:
5625: || ',x_msg_data=' || x_msg_data);
5626: end if;
5627:
5628: -- Step 4: Update customer account site record to non primary
5629: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
5630: update HZ_CUST_ACCT_SITES_ALL
5631: set bill_to_flag = 'Y',
5632: ship_to_flag = 'Y'
5633: where cust_account_id = l_customer_id
5673: || ',x_msg_data=' || x_msg_data);
5674: end if;
5675:
5676: -- Step 6: Update customer account site record to primary
5677: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
5678: update HZ_CUST_ACCT_SITES_ALL
5679: set bill_to_flag = 'P',
5680: ship_to_flag = 'P'
5681: where cust_account_id = l_customer_id
5686: return;
5687: END IF;
5688:
5689: -- Step 7: COMMIT if requried
5690: IF p_commit = FND_API.G_TRUE THEN
5691: COMMIT;
5692: END IF;
5693:
5694: END; -- End of rs_primary_ship_to_addr
5695:
5696: PROCEDURE rs_inactivate_ship_to
5697: (
5698: p_api_version IN NUMBER
5699: ,p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE
5700: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5701: ,p_rs_type IN VARCHAR2
5702: ,p_rs_id IN NUMBER
5703: ,p_rs_site_use_id IN NUMBER
5696: PROCEDURE rs_inactivate_ship_to
5697: (
5698: p_api_version IN NUMBER
5699: ,p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE
5700: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5701: ,p_rs_type IN VARCHAR2
5702: ,p_rs_id IN NUMBER
5703: ,p_rs_site_use_id IN NUMBER
5704: ,x_return_status OUT NOCOPY VARCHAR2
5739: || ',p_rs_id=' || p_rs_id
5740: || ',p_rs_site_use_id=' || p_rs_site_use_id);
5741: end if;
5742:
5743: x_return_status := FND_API.G_RET_STS_SUCCESS;
5744:
5745: IF FND_API.to_Boolean(p_Init_Msg_List)
5746: THEN
5747: FND_MSG_PUB.initialize;
5741: end if;
5742:
5743: x_return_status := FND_API.G_RET_STS_SUCCESS;
5744:
5745: IF FND_API.to_Boolean(p_Init_Msg_List)
5746: THEN
5747: FND_MSG_PUB.initialize;
5748: END IF;
5749:
5790: || ',x_msg_data=' || x_msg_data);
5791: end if;
5792:
5793: -- Step 3: COMMIT if required
5794: IF x_return_status = FND_API.G_RET_STS_SUCCESS
5795: AND p_commit = FND_API.G_TRUE
5796: THEN
5797: COMMIT;
5798: END IF;
5791: end if;
5792:
5793: -- Step 3: COMMIT if required
5794: IF x_return_status = FND_API.G_RET_STS_SUCCESS
5795: AND p_commit = FND_API.G_TRUE
5796: THEN
5797: COMMIT;
5798: END IF;
5799:
5865: || ', p_hr_location_id=' || p_hr_location_id
5866: || ', p_customer_id=' || p_customer_id);
5867: end if;
5868:
5869: x_return_status := FND_API.G_RET_STS_SUCCESS;
5870: l_current_org_id := mo_global.get_current_org_id;
5871:
5872: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5873: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5877:
5878: -- get cust_site record in src ou
5879: po_moac_utils_pvt.set_org_context(p_src_org_id);
5880: hz_cust_account_site_v2pub.get_cust_acct_site_rec (
5881: p_init_msg_list => FND_API.G_TRUE,
5882: p_cust_acct_site_id => p_cust_site_id,
5883: x_cust_acct_site_rec => v_cust_acct_site_rec,
5884: x_return_status => x_return_status,
5885: x_msg_count => x_msg_count,
5885: x_msg_count => x_msg_count,
5886: x_msg_data => x_msg_data);
5887: po_moac_utils_pvt.set_org_context(l_current_org_id);
5888:
5889: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5890: l_msg := x_msg_data;
5891: FND_MESSAGE.SET_NAME('CSP', 'CSP_COPY_SITE_ERRORS');
5892: FND_MESSAGE.SET_TOKEN('CSP_MSG', l_msg, FALSE);
5893: FND_MSG_PUB.ADD;
5893: FND_MSG_PUB.ADD;
5894: fnd_msg_pub.count_and_get
5895: ( p_count => x_msg_count
5896: , p_data => x_msg_data);
5897: x_return_status := FND_API.G_RET_STS_ERROR;
5898: RAISE FND_API.G_EXC_ERROR;
5899: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5900:
5901: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5894: fnd_msg_pub.count_and_get
5895: ( p_count => x_msg_count
5896: , p_data => x_msg_data);
5897: x_return_status := FND_API.G_RET_STS_ERROR;
5898: RAISE FND_API.G_EXC_ERROR;
5899: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5900:
5901: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5902: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5895: ( p_count => x_msg_count
5896: , p_data => x_msg_data);
5897: x_return_status := FND_API.G_RET_STS_ERROR;
5898: RAISE FND_API.G_EXC_ERROR;
5899: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5900:
5901: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5902: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5903: l_module_name,
5912:
5913: -- now create same site in source ou
5914: po_moac_utils_pvt.set_org_context(p_dest_org_id);
5915: hz_cust_account_site_v2pub.create_cust_acct_site (
5916: p_init_msg_list => FND_API.G_TRUE,
5917: p_cust_acct_site_rec => v_cust_acct_site_rec,
5918: x_cust_acct_site_id => x_cust_acct_site_id,
5919: x_return_status => x_return_status,
5920: x_msg_count => x_msg_count,
5920: x_msg_count => x_msg_count,
5921: x_msg_data => x_msg_data);
5922: po_moac_utils_pvt.set_org_context(l_current_org_id);
5923:
5924: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5925: l_msg := x_msg_data;
5926: FND_MESSAGE.SET_NAME('CSP', 'CSP_COPY_SITE_ERRORS');
5927: FND_MESSAGE.SET_TOKEN('CSP_MSG', l_msg, FALSE);
5928: FND_MSG_PUB.ADD;
5928: FND_MSG_PUB.ADD;
5929: fnd_msg_pub.count_and_get
5930: ( p_count => x_msg_count
5931: , p_data => x_msg_data);
5932: x_return_status := FND_API.G_RET_STS_ERROR;
5933: RAISE FND_API.G_EXC_ERROR;
5934: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5935:
5936: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5929: fnd_msg_pub.count_and_get
5930: ( p_count => x_msg_count
5931: , p_data => x_msg_data);
5932: x_return_status := FND_API.G_RET_STS_ERROR;
5933: RAISE FND_API.G_EXC_ERROR;
5934: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5935:
5936: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5937: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5930: ( p_count => x_msg_count
5931: , p_data => x_msg_data);
5932: x_return_status := FND_API.G_RET_STS_ERROR;
5933: RAISE FND_API.G_EXC_ERROR;
5934: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5935:
5936: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5937: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5938: l_module_name,
5946: EXIT WHEN get_cust_acct_site_uses%NOTFOUND;
5947:
5948: po_moac_utils_pvt.set_org_context(p_src_org_id);
5949: hz_cust_account_site_v2pub.get_cust_site_use_rec (
5950: p_init_msg_list => FND_API.G_TRUE,
5951: p_site_use_id => l_cust_acct_site_use_id,
5952: x_cust_site_use_rec => v_cust_site_use_rec,
5953: x_customer_profile_rec => v_customer_profile_rec,
5954: x_return_status => x_return_status,
5955: x_msg_count => x_msg_count,
5956: x_msg_data => x_msg_data);
5957: po_moac_utils_pvt.set_org_context(l_current_org_id);
5958:
5959: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5960: l_msg := x_msg_data;
5961: FND_MESSAGE.SET_NAME('CSP', 'CSP_COPY_SITE_ERRORS');
5962: FND_MESSAGE.SET_TOKEN('CSP_MSG', l_msg, FALSE);
5963: FND_MSG_PUB.ADD;
5963: FND_MSG_PUB.ADD;
5964: fnd_msg_pub.count_and_get
5965: ( p_count => x_msg_count
5966: , p_data => x_msg_data);
5967: x_return_status := FND_API.G_RET_STS_ERROR;
5968: RAISE FND_API.G_EXC_ERROR;
5969: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5970:
5971: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5964: fnd_msg_pub.count_and_get
5965: ( p_count => x_msg_count
5966: , p_data => x_msg_data);
5967: x_return_status := FND_API.G_RET_STS_ERROR;
5968: RAISE FND_API.G_EXC_ERROR;
5969: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5970:
5971: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5972: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5965: ( p_count => x_msg_count
5966: , p_data => x_msg_data);
5967: x_return_status := FND_API.G_RET_STS_ERROR;
5968: RAISE FND_API.G_EXC_ERROR;
5969: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5970:
5971: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5972: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
5973: l_module_name,
6004:
6005: -- do lots of stuff here
6006: po_moac_utils_pvt.set_org_context(p_src_org_id);
6007: hz_cust_account_site_v2pub.get_cust_acct_site_rec (
6008: p_init_msg_list => FND_API.G_TRUE,
6009: p_cust_acct_site_id => v_bill_site_id,
6010: x_cust_acct_site_rec => v_bill_acct_site_rec,
6011: x_return_status => x_return_status,
6012: x_msg_count => x_msg_count,
6012: x_msg_count => x_msg_count,
6013: x_msg_data => x_msg_data);
6014: po_moac_utils_pvt.set_org_context(l_current_org_id);
6015:
6016: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6017: l_msg := x_msg_data;
6018: FND_MESSAGE.SET_NAME('CSP', 'CSP_COPY_SITE_ERRORS');
6019: FND_MESSAGE.SET_TOKEN('CSP_MSG', l_msg, FALSE);
6020: FND_MSG_PUB.ADD;
6020: FND_MSG_PUB.ADD;
6021: fnd_msg_pub.count_and_get
6022: ( p_count => x_msg_count
6023: , p_data => x_msg_data);
6024: x_return_status := FND_API.G_RET_STS_ERROR;
6025: RAISE FND_API.G_EXC_ERROR;
6026: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6027:
6028: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6021: fnd_msg_pub.count_and_get
6022: ( p_count => x_msg_count
6023: , p_data => x_msg_data);
6024: x_return_status := FND_API.G_RET_STS_ERROR;
6025: RAISE FND_API.G_EXC_ERROR;
6026: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6027:
6028: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6029: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6022: ( p_count => x_msg_count
6023: , p_data => x_msg_data);
6024: x_return_status := FND_API.G_RET_STS_ERROR;
6025: RAISE FND_API.G_EXC_ERROR;
6026: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6027:
6028: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6029: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6030: l_module_name,
6039:
6040: -- now create same site in source ou
6041: po_moac_utils_pvt.set_org_context(p_dest_org_id);
6042: hz_cust_account_site_v2pub.create_cust_acct_site (
6043: p_init_msg_list => FND_API.G_TRUE,
6044: p_cust_acct_site_rec => v_bill_acct_site_rec,
6045: x_cust_acct_site_id => x_bill_acct_site_id,
6046: x_return_status => x_return_status,
6047: x_msg_count => x_msg_count,
6047: x_msg_count => x_msg_count,
6048: x_msg_data => x_msg_data);
6049: po_moac_utils_pvt.set_org_context(l_current_org_id);
6050:
6051: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6052: l_msg := x_msg_data;
6053: FND_MESSAGE.SET_NAME('CSP', 'CSP_COPY_SITE_ERRORS');
6054: FND_MESSAGE.SET_TOKEN('CSP_MSG', l_msg, FALSE);
6055: FND_MSG_PUB.ADD;
6055: FND_MSG_PUB.ADD;
6056: fnd_msg_pub.count_and_get
6057: ( p_count => x_msg_count
6058: , p_data => x_msg_data);
6059: x_return_status := FND_API.G_RET_STS_ERROR;
6060: RAISE FND_API.G_EXC_ERROR;
6061: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6062:
6063: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6056: fnd_msg_pub.count_and_get
6057: ( p_count => x_msg_count
6058: , p_data => x_msg_data);
6059: x_return_status := FND_API.G_RET_STS_ERROR;
6060: RAISE FND_API.G_EXC_ERROR;
6061: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6062:
6063: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6064: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6057: ( p_count => x_msg_count
6058: , p_data => x_msg_data);
6059: x_return_status := FND_API.G_RET_STS_ERROR;
6060: RAISE FND_API.G_EXC_ERROR;
6061: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6062:
6063: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6064: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6065: l_module_name,
6069: l_bill_acct_site_use_id := v_ship_bill_site;
6070:
6071: po_moac_utils_pvt.set_org_context(p_src_org_id);
6072: hz_cust_account_site_v2pub.get_cust_site_use_rec (
6073: p_init_msg_list => FND_API.G_TRUE,
6074: p_site_use_id => l_bill_acct_site_use_id,
6075: x_cust_site_use_rec => v_bill_site_use_rec,
6076: x_customer_profile_rec => v_bill_cust_profile_rec,
6077: x_return_status => x_return_status,
6078: x_msg_count => x_msg_count,
6079: x_msg_data => x_msg_data);
6080: po_moac_utils_pvt.set_org_context(l_current_org_id);
6081:
6082: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6083: l_msg := x_msg_data;
6084: FND_MESSAGE.SET_NAME('CSP', 'CSP_COPY_SITE_ERRORS');
6085: FND_MESSAGE.SET_TOKEN('CSP_MSG', l_msg, FALSE);
6086: FND_MSG_PUB.ADD;
6086: FND_MSG_PUB.ADD;
6087: fnd_msg_pub.count_and_get
6088: ( p_count => x_msg_count
6089: , p_data => x_msg_data);
6090: x_return_status := FND_API.G_RET_STS_ERROR;
6091: RAISE FND_API.G_EXC_ERROR;
6092: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6093:
6094: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6087: fnd_msg_pub.count_and_get
6088: ( p_count => x_msg_count
6089: , p_data => x_msg_data);
6090: x_return_status := FND_API.G_RET_STS_ERROR;
6091: RAISE FND_API.G_EXC_ERROR;
6092: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6093:
6094: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6095: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6088: ( p_count => x_msg_count
6089: , p_data => x_msg_data);
6090: x_return_status := FND_API.G_RET_STS_ERROR;
6091: RAISE FND_API.G_EXC_ERROR;
6092: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6093:
6094: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6095: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6096: l_module_name,
6104: v_bill_site_use_rec.cust_acct_site_id := x_bill_acct_site_id;
6105:
6106: po_moac_utils_pvt.set_org_context(p_dest_org_id);
6107: hz_cust_account_site_v2pub.create_cust_site_use (
6108: p_init_msg_list => FND_API.G_TRUE,
6109: p_cust_site_use_rec => v_bill_site_use_rec,
6110: p_customer_profile_rec => v_bill_cust_profile_rec,
6111: p_create_profile => FND_API.G_FALSE,
6112: p_create_profile_amt => FND_API.G_FALSE,
6107: hz_cust_account_site_v2pub.create_cust_site_use (
6108: p_init_msg_list => FND_API.G_TRUE,
6109: p_cust_site_use_rec => v_bill_site_use_rec,
6110: p_customer_profile_rec => v_bill_cust_profile_rec,
6111: p_create_profile => FND_API.G_FALSE,
6112: p_create_profile_amt => FND_API.G_FALSE,
6113: x_site_use_id => x_site_use_id,
6114: x_return_status => x_return_status,
6115: x_msg_count => x_msg_count,
6108: p_init_msg_list => FND_API.G_TRUE,
6109: p_cust_site_use_rec => v_bill_site_use_rec,
6110: p_customer_profile_rec => v_bill_cust_profile_rec,
6111: p_create_profile => FND_API.G_FALSE,
6112: p_create_profile_amt => FND_API.G_FALSE,
6113: x_site_use_id => x_site_use_id,
6114: x_return_status => x_return_status,
6115: x_msg_count => x_msg_count,
6116: x_msg_data => x_msg_data);
6115: x_msg_count => x_msg_count,
6116: x_msg_data => x_msg_data);
6117: po_moac_utils_pvt.set_org_context(l_current_org_id);
6118:
6119: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6120: l_msg := x_msg_data;
6121: FND_MESSAGE.SET_NAME('CSP', 'CSP_COPY_SITE_ERRORS');
6122: FND_MESSAGE.SET_TOKEN('CSP_MSG', l_msg, FALSE);
6123: FND_MSG_PUB.ADD;
6123: FND_MSG_PUB.ADD;
6124: fnd_msg_pub.count_and_get
6125: ( p_count => x_msg_count
6126: , p_data => x_msg_data);
6127: x_return_status := FND_API.G_RET_STS_ERROR;
6128: po_moac_utils_pvt.set_org_context(l_current_org_id);
6129: RAISE FND_API.G_EXC_ERROR;
6130: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6131:
6125: ( p_count => x_msg_count
6126: , p_data => x_msg_data);
6127: x_return_status := FND_API.G_RET_STS_ERROR;
6128: po_moac_utils_pvt.set_org_context(l_current_org_id);
6129: RAISE FND_API.G_EXC_ERROR;
6130: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6131:
6132: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6133: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6126: , p_data => x_msg_data);
6127: x_return_status := FND_API.G_RET_STS_ERROR;
6128: po_moac_utils_pvt.set_org_context(l_current_org_id);
6129: RAISE FND_API.G_EXC_ERROR;
6130: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6131:
6132: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6133: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6134: l_module_name,
6154: end if;
6155:
6156: po_moac_utils_pvt.set_org_context(p_dest_org_id);
6157: hz_cust_account_site_v2pub.create_cust_site_use (
6158: p_init_msg_list => FND_API.G_TRUE,
6159: p_cust_site_use_rec => v_cust_site_use_rec,
6160: p_customer_profile_rec => v_customer_profile_rec,
6161: p_create_profile => FND_API.G_FALSE,
6162: p_create_profile_amt => FND_API.G_FALSE,
6157: hz_cust_account_site_v2pub.create_cust_site_use (
6158: p_init_msg_list => FND_API.G_TRUE,
6159: p_cust_site_use_rec => v_cust_site_use_rec,
6160: p_customer_profile_rec => v_customer_profile_rec,
6161: p_create_profile => FND_API.G_FALSE,
6162: p_create_profile_amt => FND_API.G_FALSE,
6163: x_site_use_id => x_site_use_id,
6164: x_return_status => x_return_status,
6165: x_msg_count => x_msg_count,
6158: p_init_msg_list => FND_API.G_TRUE,
6159: p_cust_site_use_rec => v_cust_site_use_rec,
6160: p_customer_profile_rec => v_customer_profile_rec,
6161: p_create_profile => FND_API.G_FALSE,
6162: p_create_profile_amt => FND_API.G_FALSE,
6163: x_site_use_id => x_site_use_id,
6164: x_return_status => x_return_status,
6165: x_msg_count => x_msg_count,
6166: x_msg_data => x_msg_data);
6165: x_msg_count => x_msg_count,
6166: x_msg_data => x_msg_data);
6167: po_moac_utils_pvt.set_org_context(l_current_org_id);
6168:
6169: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6170: l_msg := x_msg_data;
6171: FND_MESSAGE.SET_NAME('CSP', 'CSP_COPY_SITE_ERRORS');
6172: FND_MESSAGE.SET_TOKEN('CSP_MSG', l_msg, FALSE);
6173: FND_MSG_PUB.ADD;
6173: FND_MSG_PUB.ADD;
6174: fnd_msg_pub.count_and_get
6175: ( p_count => x_msg_count
6176: , p_data => x_msg_data);
6177: x_return_status := FND_API.G_RET_STS_ERROR;
6178: po_moac_utils_pvt.set_org_context(l_current_org_id);
6179: RAISE FND_API.G_EXC_ERROR;
6180: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6181:
6175: ( p_count => x_msg_count
6176: , p_data => x_msg_data);
6177: x_return_status := FND_API.G_RET_STS_ERROR;
6178: po_moac_utils_pvt.set_org_context(l_current_org_id);
6179: RAISE FND_API.G_EXC_ERROR;
6180: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6181:
6182: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6183: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6176: , p_data => x_msg_data);
6177: x_return_status := FND_API.G_RET_STS_ERROR;
6178: po_moac_utils_pvt.set_org_context(l_current_org_id);
6179: RAISE FND_API.G_EXC_ERROR;
6180: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6181:
6182: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6183: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6184: l_module_name,
6217: l_module_name,
6218: 'arp_clas_pkg.insert_po_loc_associations... x_return_status=' || x_return_status);
6219: end if;
6220:
6221: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6222: l_msg := x_msg_data;
6223: FND_MESSAGE.SET_NAME('CSP', 'CSP_COPY_SITE_ERRORS');
6224: FND_MESSAGE.SET_TOKEN('CSP_MSG', l_msg, FALSE);
6225: FND_MSG_PUB.ADD;
6225: FND_MSG_PUB.ADD;
6226: fnd_msg_pub.count_and_get
6227: ( p_count => x_msg_count
6228: , p_data => x_msg_data);
6229: x_return_status := FND_API.G_RET_STS_ERROR;
6230: RAISE FND_API.G_EXC_ERROR;
6231: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6232:
6233: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6226: fnd_msg_pub.count_and_get
6227: ( p_count => x_msg_count
6228: , p_data => x_msg_data);
6229: x_return_status := FND_API.G_RET_STS_ERROR;
6230: RAISE FND_API.G_EXC_ERROR;
6231: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6232:
6233: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6234: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6227: ( p_count => x_msg_count
6228: , p_data => x_msg_data);
6229: x_return_status := FND_API.G_RET_STS_ERROR;
6230: RAISE FND_API.G_EXC_ERROR;
6231: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6232:
6233: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
6234: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
6235: l_module_name,
6359: || ', p_primary_flag=' || p_primary_flag
6360: || ', p_status=' || p_status);
6361: end if;
6362:
6363: x_return_status := FND_API.G_RET_STS_SUCCESS;
6364:
6365: if p_location_id is not null then
6366: open get_loc_details;
6367: fetch get_loc_details into