428: mydebug('p_parent_lot_control_code: ' || p_parent_lot_control_code );
429: END IF;
430:
431: IF fnd_api.to_boolean(p_init_msg_list) THEN
432: fnd_msg_pub.initialize;
433: END IF;
434:
435: -- Initialize API return status to success
436: IF p_parent_object_type IS NULL THEN
539: END IF;
540: -- validate that the parent and child are different objects
541: IF l_object_id = l_parent_object_id THEN
542: fnd_message.set_name('INV', 'INV_EAM_GENEALOGY_SAME_CH_PAR');
543: fnd_msg_pub.ADD;
544: RAISE lg_exc_error;
545: END IF;
546:
547: -- determine the child org
566:
567: -- validate that the start date is not null
568: IF p_start_date_active IS NULL THEN
569: fnd_message.set_name('INV', 'INV_EAM_GEN_NULL_START_DATE');
570: fnd_msg_pub.ADD;
571: RAISE lg_exc_error;
572: END IF;
573:
574: -- validate that the end date, if not null, is greater than the start date
576: IF p_start_date_active > p_end_date_active THEN
577: fnd_message.set_name('INV', 'INV_EAM_START_END_DATE_INVALID');
578: fnd_message.set_token('ENTITY1', TO_CHAR(p_start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
579: fnd_message.set_token('ENTITY2', TO_CHAR(p_end_date_active, 'DD-MON-YYYY HH24:MI:SS'));
580: fnd_msg_pub.ADD;
581: RAISE lg_exc_error;
582: END IF;
583: END IF;
584:
603: AND msi.organization_id = l_parent_org_id;
604:
605: IF l_parent_item_type IS NULL THEN
606: fnd_message.set_name('INV', 'INV_EAM_PARENT_ITEM_TYPE');
607: fnd_msg_pub.ADD;
608: RAISE lg_exc_error;
609: END IF;
610:
611: IF p_inventory_item_id IS NOT NULL THEN
624: AND msi.organization_id = l_org_id;
625:
626: IF l_child_item_type IS NULL THEN
627: fnd_message.set_name('INV', 'INV_EAM_CHILD_ITEM_TYPE');
628: fnd_msg_pub.ADD;
629: RAISE lg_exc_error;
630: END IF;
631:
632:
635: IF ((l_parent_item_type = 3)
636: AND (l_child_item_type = 1)
637: ) THEN
638: fnd_message.set_name('INV', 'INV_EAM_ASSET_REBUILD_PARENT');
639: fnd_msg_pub.ADD;
640: RAISE lg_exc_error;
641: END IF;
642:
643: -- *** End of eam change to allow parent rebuildables ***
650: IF p_origin_txn_id IS NULL THEN
651: IF p_genealogy_origin <> 3 THEN
652: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
653: fnd_message.set_token('ENTITY1', 'p_genealogy_origin');
654: fnd_msg_pub.ADD;
655: RAISE lg_exc_error;
656: END IF;
657: END IF;
658:
710: fnd_message.set_token('ENTITY3', TO_CHAR(i.start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
711: fnd_message.set_token('ENTITY4', TO_CHAR(i.end_date_active, 'DD-MON-YYYY HH24:MI:SS'));
712: fnd_message.set_token('ENTITY5', TO_CHAR(p_start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
713: fnd_message.set_token('ENTITY6', TO_CHAR(p_end_date_active, 'DD-MON-YYYY HH24:MI:SS'));
714: fnd_msg_pub.ADD;
715: RAISE lg_exc_error;
716: END IF;
717: ELSE
718: IF (p_start_date_active <= i.end_date_active) THEN
737: fnd_message.set_token('ENTITY2', l_parent_instance_number);
738: fnd_message.set_token('ENTITY3', TO_CHAR(i.start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
739: fnd_message.set_token('ENTITY4', TO_CHAR(i.end_date_active, 'DD-MON-YYYY HH24:MI:SS'));
740: fnd_message.set_token('ENTITY5', TO_CHAR(p_start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
741: fnd_msg_pub.ADD;
742: RAISE lg_exc_error;
743: END IF;
744: END IF;
745: ELSE
764: fnd_message.set_token('ENTITY1', l_instance_number);
765: fnd_message.set_token('ENTITY2', l_parent_instance_number);
766: fnd_message.set_token('ENTITY3', TO_CHAR(i.start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
767: fnd_message.set_token('ENTITY4', TO_CHAR(p_start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
768: fnd_msg_pub.ADD;
769: RAISE lg_exc_error;
770: ELSIF (p_start_date_active >= i.start_date_active)
771: OR (p_end_date_active >= i.start_date_active) THEN
772:
790: fnd_message.set_token('ENTITY2', l_parent_instance_number);
791: fnd_message.set_token('ENTITY3', TO_CHAR(i.start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
792: fnd_message.set_token('ENTITY4', TO_CHAR(p_start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
793: fnd_message.set_token('ENTITY5', TO_CHAR(p_end_date_active, 'DD-MON-YYYY HH24:MI:SS'));
794: fnd_msg_pub.ADD;
795: RAISE lg_exc_error;
796: END IF;
797: END IF;
798: END LOOP;
833:
834: fnd_message.set_name('INV', 'INV_EAM_GENEALOGY_LOOP');
835: fnd_message.set_token('ENTITY1', l_parent_instance_number);
836: fnd_message.set_token('ENTITY2', l_instance_number);
837: fnd_msg_pub.ADD;
838: RAISE lg_exc_error;
839: END IF;
840: EXCEPTION
841: WHEN NO_DATA_FOUND THEN
1041: IF (l_debug = 1) THEN mydebug( 'Commit work' ); END IF;
1042: END IF;
1043:
1044: -- Standard call to get message count and if count is 1, get message info.
1045: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1046: ELSE
1047: IF (l_debug = 1) THEN mydebug( 'Record Already present ' ); END IF;
1048: END IF;
1049: mydebug('Out of procedure ...: ' || g_mod_name );
1055:
1056: --Bug 10160996: Fix savepoint issue
1057: ROLLBACK TO save_insert_genealogy;
1058: x_return_status := lg_ret_sts_error;
1059: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1060: WHEN lg_exc_unexpected_error THEN
1061: IF (l_debug = 1) THEN
1062: mydebug('exception G_UNEXC_ERROR'|| x_msg_data);
1063: END IF;
1064:
1065: --Bug 10160996: Fix savepoint issue
1066: ROLLBACK TO save_insert_genealogy;
1067: x_return_status := lg_ret_sts_unexp_error;
1068: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1069: WHEN OTHERS THEN
1070: IF (l_debug = 1) THEN
1071: mydebug('exception WHEN OTHERS'|| x_msg_data);
1072: END IF;
1074: --Bug 10160996: Fix savepoint issue
1075: ROLLBACK TO save_insert_genealogy;
1076: x_return_status := lg_ret_sts_unexp_error;
1077:
1078: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1079: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1080: END IF;
1081:
1082: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1075: ROLLBACK TO save_insert_genealogy;
1076: x_return_status := lg_ret_sts_unexp_error;
1077:
1078: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1079: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1080: END IF;
1081:
1082: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1083: END insert_genealogy;
1078: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1079: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1080: END IF;
1081:
1082: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1083: END insert_genealogy;
1084:
1085: PROCEDURE update_genealogy(
1086: p_api_version IN NUMBER
1121: END IF;
1122:
1123: -- Initialize message list if p_init_msg_list is set to TRUE.
1124: IF fnd_api.to_boolean(p_init_msg_list) THEN
1125: fnd_msg_pub.initialize;
1126: END IF;
1127:
1128: -- Initialize API return status to success
1129: x_return_status := lg_ret_sts_success;
1132: -- Check for the mandatory parameters
1133: IF p_object_type IS NULL THEN
1134: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1135: fnd_message.set_token('ATTRIBUTE', 'p_object_type');
1136: fnd_msg_pub.ADD;
1137: RAISE lg_exc_error;
1138: END IF;
1139:
1140: IF p_object_id IS NULL THEN
1143: OR p_org_id IS NULL THEN
1144: IF p_object_number IS NULL THEN
1145: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1146: fnd_message.set_token('ATTRIBUTE', 'p_object_number');
1147: fnd_msg_pub.ADD;
1148: END IF;
1149:
1150: IF p_inventory_item_id IS NULL THEN
1151: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1149:
1150: IF p_inventory_item_id IS NULL THEN
1151: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1152: fnd_message.set_token('ATTRIBUTE', 'p_inventory_item_id');
1153: fnd_msg_pub.ADD;
1154: END IF;
1155:
1156: IF p_org_id IS NULL THEN
1157: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1155:
1156: IF p_org_id IS NULL THEN
1157: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1158: fnd_message.set_token('ATTRIBUTE', 'p_org_id');
1159: fnd_msg_pub.ADD;
1160: END IF;
1161:
1162: RAISE lg_exc_error;
1163: END IF;
1168: IF p_object_type < 1
1169: OR p_object_type > 2 THEN
1170: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1171: fnd_message.set_token('ENTITY1', 'p_object_type');
1172: fnd_msg_pub.ADD;
1173: RAISE lg_exc_error;
1174: END IF;
1175:
1176: -- Validate the existence of object number in MTL_SERIAL_NUMBERS
1185:
1186: IF l_dummy = 0 THEN
1187: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1188: fnd_message.set_token('ENTITY1', 'p_object_id');
1189: fnd_msg_pub.ADD;
1190: RAISE lg_exc_error;
1191: END IF;
1192:
1193: l_object_id := p_object_id;
1202: EXCEPTION
1203: WHEN NO_DATA_FOUND THEN
1204: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1205: fnd_message.set_token('ENTITY1', 'p_object_number, p_inventory_item_id and p_org_id combination');
1206: fnd_msg_pub.ADD;
1207: RAISE lg_exc_error;
1208: END;
1209: END IF;
1210: ELSIF p_object_type = 2 THEN
1216:
1217: IF l_dummy = 0 THEN
1218: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1219: fnd_message.set_token('ENTITY1', 'p_object_id');
1220: fnd_msg_pub.ADD;
1221: RAISE lg_exc_error;
1222: END IF;
1223:
1224: l_object_id := p_object_id;
1233: EXCEPTION
1234: WHEN NO_DATA_FOUND THEN
1235: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1236: fnd_message.set_token('ENTITY1', 'p_object_number, p_inventory_item_id and p_org_id combination');
1237: fnd_msg_pub.ADD;
1238: RAISE lg_exc_error;
1239: END;
1240: END IF;
1241: END IF;
1249:
1250: IF l_dummy = 0 THEN
1251: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1252: fnd_message.set_token('ENTITY1', 'p_genealogy_origin');
1253: fnd_msg_pub.ADD;
1254: RAISE lg_exc_error;
1255: END IF;
1256: END IF;
1257:
1265: IF p_genealogy_type NOT IN (1, 2, 3, 5)
1266: AND p_genealogy_type IS NOT NULL THEN
1267: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1268: fnd_message.set_token('ENTITY1', 'P_genealogy_type');
1269: fnd_msg_pub.ADD;
1270: RAISE lg_exc_error;
1271: END IF;
1272:
1273: IF p_object_type = 2 THEN
1273: IF p_object_type = 2 THEN
1274: IF p_genealogy_type NOT IN (1, 5) THEN
1275: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1276: fnd_message.set_token('ENTITY1', 'P_genealogy_type');
1277: fnd_msg_pub.ADD;
1278: RAISE lg_exc_error;
1279: END IF;
1280: END IF;
1281:
1283: -- If it does, check whether there exists a NULL end date for the last entry of the object
1284: IF p_genealogy_type = 5 THEN
1285: IF p_end_date_active IS NULL THEN
1286: fnd_message.set_name('INV', 'INV_EAM_NULL_END_DATE');
1287: fnd_msg_pub.ADD;
1288: RAISE lg_exc_error;
1289: END IF;
1290:
1291: BEGIN
1308: IF (p_end_date_active < l_dummy_date) THEN
1309: fnd_message.set_name('INV', 'INV_EAM_END_START_DATE_INVALID');
1310: fnd_message.set_token('ENTITY1', TO_CHAR(p_end_date_active, 'DD-MON-YYYY HH24:MI:SS'));
1311: fnd_message.set_token('ENTITY2', TO_CHAR(l_dummy_date, 'DD-MON-YYYY HH24:MI:SS'));
1312: fnd_msg_pub.ADD;
1313: RAISE lg_exc_error;
1314: END IF;
1315: EXCEPTION
1316: WHEN NO_DATA_FOUND THEN
1314: END IF;
1315: EXCEPTION
1316: WHEN NO_DATA_FOUND THEN
1317: fnd_message.set_name('INV', 'INV_EAM_GEN_NOEXIST');
1318: fnd_msg_pub.ADD;
1319: RAISE lg_exc_error;
1320: END;
1321: END IF;
1322:
1339: COMMIT WORK;
1340: END IF;
1341:
1342: -- Standard call to get message count and if count is 1, get message info.
1343: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1344: EXCEPTION
1345: WHEN lg_exc_error THEN
1346: ROLLBACK TO update_genealogy_pub;
1347: x_return_status := lg_ret_sts_error;
1344: EXCEPTION
1345: WHEN lg_exc_error THEN
1346: ROLLBACK TO update_genealogy_pub;
1347: x_return_status := lg_ret_sts_error;
1348: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1349: WHEN lg_exc_unexpected_error THEN
1350: ROLLBACK TO update_genealogy_pub;
1351: x_return_status := lg_ret_sts_unexp_error;
1352: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1348: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1349: WHEN lg_exc_unexpected_error THEN
1350: ROLLBACK TO update_genealogy_pub;
1351: x_return_status := lg_ret_sts_unexp_error;
1352: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1353: WHEN OTHERS THEN
1354: ROLLBACK TO update_genealogy_pub;
1355: x_return_status := lg_ret_sts_unexp_error;
1356:
1353: WHEN OTHERS THEN
1354: ROLLBACK TO update_genealogy_pub;
1355: x_return_status := lg_ret_sts_unexp_error;
1356:
1357: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1358: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1359: END IF;
1360:
1361: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1354: ROLLBACK TO update_genealogy_pub;
1355: x_return_status := lg_ret_sts_unexp_error;
1356:
1357: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1358: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1359: END IF;
1360:
1361: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1362: END update_genealogy;
1357: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1358: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1359: END IF;
1360:
1361: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1362: END update_genealogy;
1363:
1364: PROCEDURE insert_flow_genealogy(
1365: p_api_version IN NUMBER
1447: END IF;
1448:
1449: -- Initialize message list if p_init_msg_list is set to TRUE.
1450: IF fnd_api.to_boolean(p_init_msg_list) THEN
1451: fnd_msg_pub.initialize;
1452: END IF;
1453:
1454: x_msg_count := 0;
1455: x_return_status := lg_ret_sts_success;
1455: x_return_status := lg_ret_sts_success;
1456:
1457: IF p_transaction_source_id IS NULL THEN
1458: fnd_message.set_name('INV', 'INV_MISSING_REQUIRED_PARAMETER');
1459: fnd_msg_pub.ADD;
1460: RAISE lg_exc_error;
1461: END IF;
1462:
1463: IF p_completion_transaction_id IS NULL THEN
1461: END IF;
1462:
1463: IF p_completion_transaction_id IS NULL THEN
1464: fnd_message.set_name('INV', 'INV_MISSING_REQUIRED_PARAMETER');
1465: fnd_msg_pub.ADD;
1466: RAISE lg_exc_error;
1467: END IF;
1468:
1469: OPEN childlotmmtt(p_transaction_source_id, p_completion_transaction_id);
1578: COMMIT WORK;
1579: END IF;
1580:
1581: -- Standard call to get message count and if count is 1, get message info.
1582: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1583: EXCEPTION
1584: WHEN lg_exc_error THEN
1585: IF (l_debug = 1) THEN
1586: mydebug('exception G_EXC_ERROR'|| x_msg_data);
1588:
1589: --Bug 10160996: Fix savepoint issue
1590: ROLLBACK TO apiinsert_genealogy_apipub;
1591: x_return_status := lg_ret_sts_error;
1592: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1593: WHEN lg_exc_unexpected_error THEN
1594: IF (l_debug = 1) THEN
1595: mydebug('exception G_UNEXC_ERROR'|| x_msg_data);
1596: END IF;
1597:
1598: --Bug 10160996: Fix savepoint issue
1599: ROLLBACK TO apiinsert_genealogy_apipub;
1600: x_return_status := lg_ret_sts_unexp_error;
1601: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1602: WHEN OTHERS THEN
1603: IF (l_debug = 1) THEN
1604: mydebug('exception WHEN OTHERS'|| x_msg_data);
1605: END IF;
1607: --Bug 10160996: Fix savepoint issue
1608: ROLLBACK TO apiinsert_genealogy_apipub;
1609: x_return_status := lg_ret_sts_unexp_error;
1610:
1611: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1612: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1613: END IF;
1614:
1615: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1608: ROLLBACK TO apiinsert_genealogy_apipub;
1609: x_return_status := lg_ret_sts_unexp_error;
1610:
1611: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1612: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1613: END IF;
1614:
1615: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1616: END insert_flow_genealogy;
1611: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1612: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1613: END IF;
1614:
1615: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1616: END insert_flow_genealogy;
1617:
1618:
1619:
1641: END IF;
1642:
1643: -- Initialize message list if p_init_msg_list is set to TRUE.
1644: IF fnd_api.to_boolean(p_init_msg_list) THEN
1645: fnd_msg_pub.initialize;
1646: END IF;
1647:
1648: -- Initialize API return status to success
1649: x_return_status := lg_ret_sts_success;
1662: COMMIT WORK;
1663: END IF;
1664:
1665: -- Standard call to get message count and if count is 1, get message info.
1666: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1667: EXCEPTION
1668: WHEN lg_exc_error THEN
1669: ROLLBACK TO inv_eam_genealogy;
1670: x_return_status := lg_ret_sts_error;
1667: EXCEPTION
1668: WHEN lg_exc_error THEN
1669: ROLLBACK TO inv_eam_genealogy;
1670: x_return_status := lg_ret_sts_error;
1671: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1672: WHEN lg_exc_unexpected_error THEN
1673: ROLLBACK TO inv_eam_genealogy;
1674: x_return_status := lg_ret_sts_unexp_error;
1675: fnd_msg_pub.count_and_get(
1671: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1672: WHEN lg_exc_unexpected_error THEN
1673: ROLLBACK TO inv_eam_genealogy;
1674: x_return_status := lg_ret_sts_unexp_error;
1675: fnd_msg_pub.count_and_get(
1676: p_count => x_msg_count
1677: ,p_data => x_msg_data);
1678: WHEN OTHERS THEN
1679: ROLLBACK TO inv_eam_genealogy;
1678: WHEN OTHERS THEN
1679: ROLLBACK TO inv_eam_genealogy;
1680: x_return_status := lg_ret_sts_unexp_error;
1681:
1682: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1683: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1684: END IF;
1685:
1686: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1679: ROLLBACK TO inv_eam_genealogy;
1680: x_return_status := lg_ret_sts_unexp_error;
1681:
1682: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1683: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1684: END IF;
1685:
1686: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1687:
1682: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1683: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1684: END IF;
1685:
1686: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1687:
1688: END Delete_EAM_Row;
1689:
1690: PROCEDURE parameter_validations(
1805:
1806: x_return_status := lg_ret_sts_error; -- R12
1807: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1808: fnd_message.set_token('ATTRIBUTE', 'p_object_type');
1809: fnd_msg_pub.ADD;
1810: END IF;
1811:
1812: IF p_object_id IS NULL THEN
1813: IF (p_debug = 1) THEN mydebug('p_object_id is null'); END IF;
1817: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_object_number'); END IF;
1818:
1819: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1820: fnd_message.set_token('ATTRIBUTE', 'p_object_number');
1821: fnd_msg_pub.ADD;
1822: END IF;
1823:
1824: --R12 IF p_inventory_item_id IS NULL THEN
1825: IF p_object_type <> 5 AND p_inventory_item_id IS NULL THEN
1828: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_inventory_item_id'); END IF;
1829:
1830: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1831: fnd_message.set_token('ATTRIBUTE', 'p_inventory_item_id');
1832: fnd_msg_pub.ADD;
1833: END IF;
1834:
1835: IF p_org_id IS NULL THEN
1836: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_org_id'); END IF;
1836: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_org_id'); END IF;
1837:
1838: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1839: fnd_message.set_token('ATTRIBUTE', 'p_org_id');
1840: fnd_msg_pub.ADD;
1841: END IF;
1842:
1843: x_return_status := lg_ret_sts_error; -- R12
1844: END IF;
1857: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_object_number'); END IF;
1858:
1859: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1860: fnd_message.set_token('ATTRIBUTE', 'p_parent_object_number');
1861: fnd_msg_pub.ADD;
1862: END IF;
1863:
1864: IF p_parent_object_type <> 5 AND p_parent_inventory_item_id IS NULL THEN
1865: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_inventory_item_id'); END IF;
1865: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_inventory_item_id'); END IF;
1866:
1867: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1868: fnd_message.set_token('ATTRIBUTE', 'p_parent_inventory_item_id');
1869: fnd_msg_pub.ADD;
1870: END IF;
1871:
1872: IF p_parent_org_id IS NULL THEN
1873: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_org_id'); END IF;
1873: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_org_id'); END IF;
1874:
1875: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1876: fnd_message.set_token('ATTRIBUTE', 'p_parent_org_id');
1877: fnd_msg_pub.ADD;
1878: END IF;
1879:
1880: x_return_status := lg_ret_sts_error; -- R12
1881: END IF;
1889: x_return_status := lg_ret_sts_error; -- R12
1890: IF (p_debug = 1) THEN mydebug('INV_FIELD_INVALID - p_object_type'); END IF;
1891: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1892: fnd_message.set_token('ENTITY1', 'p_object_type');
1893: fnd_msg_pub.ADD;
1894: END IF;
1895:
1896: IF (p_parent_object_type < 1 OR p_parent_object_type > 5) THEN
1897: x_return_status := lg_ret_sts_error; -- R12
1897: x_return_status := lg_ret_sts_error; -- R12
1898: IF (p_debug = 1) THEN mydebug('INV_FIELD_INVALID - p_parent_object_type'); END IF;
1899: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1900: fnd_message.set_token('ENTITY1', 'p_parent_object_type');
1901: fnd_msg_pub.ADD;
1902: END IF;
1903:
1904: -- R12 Genealogy Enhancements : Validate second set of object and parent object details
1905:
1933: IF (p_debug = 1) THEN mydebug('no data found ...child mtl_serial_numbers '); END IF;
1934: x_return_status := lg_ret_sts_error; -- R12
1935: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1936: fnd_message.set_token('ATTRIBUTE', 'l_inventory_item_id');
1937: fnd_msg_pub.ADD;
1938: END ;
1939:
1940: IF (p_debug = 1) THEN mydebug('l_inventory_item_id :' || l_inventory_item_id); END IF;
1941: END IF;
1974: x_return_status := lg_ret_sts_error; -- R12
1975: IF (p_debug = 1) THEN mydebug('no data found ...parent mtl_serial_numbers '); END IF;
1976: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1977: fnd_message.set_token('ATTRIBUTE', 'l_parent_inventory_item_id');
1978: fnd_msg_pub.ADD;
1979: END ;
1980: IF (p_debug = 1) THEN mydebug('l_parent_inventory_item_id '|| l_parent_inventory_item_id ); END IF;
1981: END IF;
1982: IF l_parent_inventory_item_id is NOT NULL THEN
2000: IF (p_debug = 1) THEN mydebug('{{- p_object_type2 can only be = 1 (lot) }} '); END IF;
2001: x_return_status := lg_ret_sts_error; -- R12
2002: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2003: fnd_message.set_token('ENTITY1', 'l_object_type2');
2004: fnd_msg_pub.ADD;
2005: ELSE
2006: IF (l_object_type2 IS NULL )
2007: THEN
2008: IF (p_debug = 1) THEN mydebug('If P_object_type2 is null assign 1 (lot)'); END IF;
2023: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_object_number2'); END IF;
2024:
2025: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
2026: fnd_message.set_token('ATTRIBUTE', 'p_object_number2');
2027: fnd_msg_pub.ADD;
2028: END IF;
2029: IF p_object_type <> 5 AND p_inventory_item_id IS NULL THEN
2030: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_inventory_item_id'); END IF;
2031:
2030: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_inventory_item_id'); END IF;
2031:
2032: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
2033: fnd_message.set_token('ATTRIBUTE', 'p_inventory_item_id');
2034: fnd_msg_pub.ADD;
2035: END IF;
2036:
2037:
2038: IF p_org_id IS NULL THEN
2039: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_org_id'); END IF;
2040:
2041: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
2042: fnd_message.set_token('ATTRIBUTE', 'p_org_id');
2043: fnd_msg_pub.ADD;
2044: END IF;
2045:
2046: x_return_status := lg_ret_sts_error; -- R12
2047: --RAISE lg_exc_error;
2058: IF (l_parent_object_type2 IS NOT NULL AND l_parent_object_type2 <> 1) THEN
2059: IF (p_debug = 1) THEN mydebug('{{- p_parent_object_type2 can only be = 1 (lot) }} '); END IF;
2060: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2061: fnd_message.set_token('ENTITY1', 'l_parent_object_type2');
2062: fnd_msg_pub.ADD;
2063: RAISE lg_exc_error;
2064: ELSE
2065: IF (l_parent_object_type2 IS NULL )
2066: THEN
2083: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_object_number2'); END IF;
2084:
2085: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
2086: fnd_message.set_token('ATTRIBUTE', 'p_parent_object_number2');
2087: fnd_msg_pub.ADD;
2088: END IF;
2089:
2090: IF l_parent_object_type2 <> 5 AND p_parent_inventory_item_id IS NULL THEN
2091: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_inventory_item_id'); END IF;
2091: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_inventory_item_id'); END IF;
2092:
2093: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
2094: fnd_message.set_token('ATTRIBUTE', 'p_parent_inventory_item_id');
2095: fnd_msg_pub.ADD;
2096: END IF;
2097:
2098: IF p_parent_org_id IS NULL THEN
2099: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_org_id'); END IF;
2099: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_org_id'); END IF;
2100:
2101: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
2102: fnd_message.set_token('ATTRIBUTE', 'p_parent_org_id');
2103: fnd_msg_pub.ADD;
2104: END IF;
2105:
2106: x_return_status := lg_ret_sts_error; -- R12
2107: --RAISE lg_exc_error;
2160: x_return_status := lg_ret_sts_error; -- R12
2161: IF (p_debug = 1) THEN mydebug('lot not found using - p_object_id'); END IF;
2162: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2163: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2164: fnd_msg_pub.ADD;
2165: --RAISE lg_exc_error;
2166: END IF;
2167: END IF;
2168:
2185: x_return_status := lg_ret_sts_error; -- R12
2186: IF (p_debug = 1) THEN mydebug('lot not found using - p_object_number,'); END IF;
2187: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2188: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2189: fnd_msg_pub.ADD;
2190: --RAISE lg_exc_error;
2191: END;
2192: END IF;
2193: ELSIF p_object_type = 2 THEN
2202: x_return_status := lg_ret_sts_error; -- R12
2203: IF (p_debug = 1) THEN mydebug('Serial not found using - p_object_id,'); END IF;
2204: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2205: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2206: fnd_msg_pub.ADD;
2207: -- RAISE lg_exc_error;
2208: END IF;
2209: END IF;
2210:
2227: x_return_status := lg_ret_sts_error; -- R12
2228: IF (p_debug = 1) THEN mydebug('Serial not found using - p_object_number,'); END IF;
2229: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2230: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2231: fnd_msg_pub.ADD;
2232: --RAISE lg_exc_error;
2233: END;
2234: END IF;
2235: ELSIF p_object_type = 5 THEN
2243: x_return_status := lg_ret_sts_error; -- R12
2244: IF (p_debug = 1) THEN mydebug('Job not found using - p_object_id,'); END IF;
2245: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2246: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2247: fnd_msg_pub.ADD;
2248: --RAISE lg_exc_error;
2249: END IF;
2250:
2251: l_object_id := p_object_id;
2266: x_return_status := lg_ret_sts_error; -- R12
2267: IF (p_debug = 1) THEN mydebug('Job not found using - p_object_number,'); END IF;
2268: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2269: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2270: fnd_msg_pub.ADD;
2271: --RAISE lg_exc_error;
2272: END;
2273: END IF;
2274: END IF;
2296: x_return_status := lg_ret_sts_error; -- R12
2297: IF (p_debug = 1) THEN mydebug('Lot not found using - p_parent_object_id,'); END IF;
2298: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2299: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2300: fnd_msg_pub.ADD;
2301: --RAISE lg_exc_error;
2302: END IF;
2303: END IF;
2304:
2321: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2322: x_return_status := lg_ret_sts_error; -- R12
2323: IF (p_debug = 1) THEN mydebug('Lot not found using - p_parent_object_number,'); END IF;
2324: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2325: fnd_msg_pub.ADD;
2326: --RAISE lg_exc_error;
2327: END;
2328: END IF;
2329: ELSIF p_parent_object_type = 2 THEN
2341: x_return_status := lg_ret_sts_error; -- R12
2342: IF (p_debug = 1) THEN mydebug('Serial not found using - p_parent_object_id,'); END IF;
2343: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2344: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2345: fnd_msg_pub.ADD;
2346: --RAISE lg_exc_error;
2347: END IF;
2348: END IF;
2349:
2366: x_return_status := lg_ret_sts_error; -- R12
2367: IF (p_debug = 1) THEN mydebug('Serial not found using - p_parent_object_number,'); END IF;
2368: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2369: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2370: fnd_msg_pub.ADD;
2371: --RAISE lg_exc_error;
2372: END;
2373: END IF;
2374: ELSIF p_parent_object_type = 5 THEN
2383: x_return_status := lg_ret_sts_error; -- R12
2384: IF (p_debug = 1) THEN mydebug('Job not found using - p_parent_object_id,'); END IF;
2385: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2386: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2387: fnd_msg_pub.ADD;
2388: -- RAISE lg_exc_error;
2389: END IF;
2390:
2391: l_parent_object_id := p_parent_object_id;
2406: x_return_status := lg_ret_sts_error; -- R12
2407: IF (p_debug = 1) THEN mydebug('Job not found using - p_parent_object_number,'); END IF;
2408: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2409: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2410: fnd_msg_pub.ADD;
2411: --RAISE lg_exc_error;
2412: END;
2413: END IF;
2414: END IF;
2437: x_return_status := lg_ret_sts_error; -- R12
2438: IF (p_debug = 1) THEN mydebug('Lot not found using - p_object_id2,'); END IF;
2439: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2440: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2441: fnd_msg_pub.ADD;
2442: --RAISE lg_exc_error;
2443: END IF;
2444: END IF;
2445:
2458: x_return_status := lg_ret_sts_error; -- R12
2459: IF (p_debug = 1) THEN mydebug('Lot not found using - p_object_number2,'); END IF;
2460: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2461: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2462: fnd_msg_pub.ADD;
2463: --RAISE lg_exc_error;
2464: END;
2465: ELSE
2466: l_object_id2 := NULL;
2490: x_return_status := lg_ret_sts_error; -- R12
2491: IF (p_debug = 1) THEN mydebug('Lot not found using - p_parent_object_id2,'); END IF;
2492: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2493: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2494: fnd_msg_pub.ADD;
2495: --RAISE lg_exc_error;
2496: END IF;
2497: END IF;
2498:
2510: WHEN NO_DATA_FOUND THEN
2511: x_return_status := lg_ret_sts_error; -- R12
2512: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2513: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2514: fnd_msg_pub.ADD;
2515: IF (p_debug = 1) THEN mydebug('Lot not found using - p_parent_object_number2,'); END IF;
2516: --RAISE lg_exc_error;
2517: END;
2518: ELSE
2540: IF l_dummy = 0 THEN
2541: x_return_status := lg_ret_sts_error; -- R12
2542: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2543: fnd_message.set_token('ENTITY1', 'p_genealogy_origin:' || TO_CHAR(p_genealogy_origin));
2544: fnd_msg_pub.ADD;
2545: IF (p_debug = 1) THEN mydebug('Gene. Origin not found in mfg_lookups,'); END IF;
2546: --RAISE lg_exc_error;
2547: END IF;
2548: END IF;
2562: AND p_genealogy_type IS NOT NULL THEN
2563: x_return_status := lg_ret_sts_error; -- R12
2564: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2565: fnd_message.set_token('ENTITY1', 'P_genealogy_type');
2566: fnd_msg_pub.ADD;
2567: IF (p_debug = 1) THEN mydebug('Gene. Type is invalid ,'); END IF;
2568: --RAISE lg_exc_error;
2569: END IF;
2570: END IF;
2574: {{ IF p_object_type = 2 THEN }}
2575: {{ IF p_genealogy_type NOT IN (1, 5) THEN }}
2576: fnd_message.set_name('INV', {{' INV_FIELD_INVALID'}});
2577: fnd_message.set_token('ENTITY1', 'P_genealogy_type');
2578: fnd_msg_pub.ADD;
2579: RAISE lg_exc_error;
2580: END IF;
2581: END IF; */
2582:
2599: fnd_message.set_token('ENTITY1', 'p_object_number');
2600: ELSIF l_parent_object_id IS NULL THEN
2601: fnd_message.set_token('ENTITY1', 'p_parent_object_number');
2602: END IF;
2603: fnd_msg_pub.ADD;
2604: IF (p_debug = 1) THEN mydebug('Gene. Type is invalid ,'); END IF;
2605: END IF;
2606:
2607: IF x_return_status = lg_ret_sts_error
2641: EXCEPTION
2642: WHEN lg_exc_error THEN
2643: IF (p_debug = 1) THEN mydebug('exception G_EXC_ERROR'|| x_msg_data); END IF;
2644: x_return_status := lg_ret_sts_error;
2645: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2646: WHEN lg_exc_unexpected_error THEN
2647: IF (p_debug = 1) THEN mydebug('exception G_UNEXC_ERROR'|| x_msg_data); END IF;
2648: x_return_status := lg_ret_sts_unexp_error;
2649: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2645: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2646: WHEN lg_exc_unexpected_error THEN
2647: IF (p_debug = 1) THEN mydebug('exception G_UNEXC_ERROR'|| x_msg_data); END IF;
2648: x_return_status := lg_ret_sts_unexp_error;
2649: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2650: WHEN OTHERS THEN
2651: IF (p_debug = 1) THEN mydebug('exception WHEN OTHERS'|| x_msg_data); END IF;
2652: x_return_status := lg_ret_sts_unexp_error;
2653: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2649: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2650: WHEN OTHERS THEN
2651: IF (p_debug = 1) THEN mydebug('exception WHEN OTHERS'|| x_msg_data); END IF;
2652: x_return_status := lg_ret_sts_unexp_error;
2653: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2654: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2655: END IF;
2656: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2657:
2650: WHEN OTHERS THEN
2651: IF (p_debug = 1) THEN mydebug('exception WHEN OTHERS'|| x_msg_data); END IF;
2652: x_return_status := lg_ret_sts_unexp_error;
2653: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2654: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2655: END IF;
2656: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2657:
2658: END parameter_validations;
2652: x_return_status := lg_ret_sts_unexp_error;
2653: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2654: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2655: END IF;
2656: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2657:
2658: END parameter_validations;
2659:
2660: -- R12 genealogy Enhancements : Added a new procedure to update genealogy
2765: mydebug('p_transaction_type: ' || p_transaction_type );
2766: END IF;
2767:
2768: IF fnd_api.to_boolean(p_init_msg_list) THEN
2769: fnd_msg_pub.initialize;
2770: END IF;
2771:
2772: IF p_parent_object_type IS NULL THEN
2773: l_parent_object_type := p_object_type;
3028: WHEN lg_exc_error THEN
3029: IF (l_debug = 1) THEN mydebug('exception G_EXC_ERROR'|| x_msg_data); END IF;
3030: ROLLBACK TO save_update_genealogy;
3031: x_return_status := lg_ret_sts_error;
3032: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
3033:
3034: WHEN lg_exc_unexpected_error THEN
3035: IF (l_debug = 1) THEN mydebug('exception G_UNEXC_ERROR'|| x_msg_data); END IF;
3036: ROLLBACK TO save_update_genealogy;
3034: WHEN lg_exc_unexpected_error THEN
3035: IF (l_debug = 1) THEN mydebug('exception G_UNEXC_ERROR'|| x_msg_data); END IF;
3036: ROLLBACK TO save_update_genealogy;
3037: x_return_status := lg_ret_sts_unexp_error;
3038: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
3039: WHEN OTHERS THEN
3040: IF (l_debug = 1) THEN mydebug('exception WHEN OTHERS'|| x_msg_data); END IF;
3041: ROLLBACK TO save_update_genealogy;
3042: x_return_status := lg_ret_sts_unexp_error;
3039: WHEN OTHERS THEN
3040: IF (l_debug = 1) THEN mydebug('exception WHEN OTHERS'|| x_msg_data); END IF;
3041: ROLLBACK TO save_update_genealogy;
3042: x_return_status := lg_ret_sts_unexp_error;
3043: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3044: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3045: END IF;
3046: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
3047: END update_genealogy;
3040: IF (l_debug = 1) THEN mydebug('exception WHEN OTHERS'|| x_msg_data); END IF;
3041: ROLLBACK TO save_update_genealogy;
3042: x_return_status := lg_ret_sts_unexp_error;
3043: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3044: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3045: END IF;
3046: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
3047: END update_genealogy;
3048: END inv_genealogy_pub;
3042: x_return_status := lg_ret_sts_unexp_error;
3043: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3044: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3045: END IF;
3046: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
3047: END update_genealogy;
3048: END inv_genealogy_pub;