[Home] [Help]
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
537: IF (l_debug = 1) THEN mydebug(' Start of EAM Validations'); END IF;
538: -- validate that the parent and child are different objects
539: IF l_object_id = l_parent_object_id THEN
540: fnd_message.set_name('INV', 'INV_EAM_GENEALOGY_SAME_CH_PAR');
541: fnd_msg_pub.ADD;
542: RAISE lg_exc_error;
543: END IF;
544:
545: -- determine the child org
564:
565: -- validate that the start date is not null
566: IF p_start_date_active IS NULL THEN
567: fnd_message.set_name('INV', 'INV_EAM_GEN_NULL_START_DATE');
568: fnd_msg_pub.ADD;
569: RAISE lg_exc_error;
570: END IF;
571:
572: -- validate that the end date, if not null, is greater than the start date
574: IF p_start_date_active > p_end_date_active THEN
575: fnd_message.set_name('INV', 'INV_EAM_START_END_DATE_INVALID');
576: fnd_message.set_token('ENTITY1', TO_CHAR(p_start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
577: fnd_message.set_token('ENTITY2', TO_CHAR(p_end_date_active, 'DD-MON-YYYY HH24:MI:SS'));
578: fnd_msg_pub.ADD;
579: RAISE lg_exc_error;
580: END IF;
581: END IF;
582:
601: AND msi.organization_id = l_parent_org_id;
602:
603: IF l_parent_item_type IS NULL THEN
604: fnd_message.set_name('INV', 'INV_EAM_PARENT_ITEM_TYPE');
605: fnd_msg_pub.ADD;
606: RAISE lg_exc_error;
607: END IF;
608:
609: IF p_inventory_item_id IS NOT NULL THEN
622: AND msi.organization_id = l_org_id;
623:
624: IF l_child_item_type IS NULL THEN
625: fnd_message.set_name('INV', 'INV_EAM_CHILD_ITEM_TYPE');
626: fnd_msg_pub.ADD;
627: RAISE lg_exc_error;
628: END IF;
629:
630:
633: IF ((l_parent_item_type = 3)
634: AND (l_child_item_type = 1)
635: ) THEN
636: fnd_message.set_name('INV', 'INV_EAM_ASSET_REBUILD_PARENT');
637: fnd_msg_pub.ADD;
638: RAISE lg_exc_error;
639: END IF;
640:
641: -- *** End of eam change to allow parent rebuildables ***
648: IF p_origin_txn_id IS NULL THEN
649: IF p_genealogy_origin <> 3 THEN
650: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
651: fnd_message.set_token('ENTITY1', 'p_genealogy_origin');
652: fnd_msg_pub.ADD;
653: RAISE lg_exc_error;
654: END IF;
655: END IF;
656:
708: fnd_message.set_token('ENTITY3', TO_CHAR(i.start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
709: fnd_message.set_token('ENTITY4', TO_CHAR(i.end_date_active, 'DD-MON-YYYY HH24:MI:SS'));
710: fnd_message.set_token('ENTITY5', TO_CHAR(p_start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
711: fnd_message.set_token('ENTITY6', TO_CHAR(p_end_date_active, 'DD-MON-YYYY HH24:MI:SS'));
712: fnd_msg_pub.ADD;
713: RAISE lg_exc_error;
714: END IF;
715: ELSE
716: IF (p_start_date_active <= i.end_date_active) THEN
735: fnd_message.set_token('ENTITY2', l_parent_instance_number);
736: fnd_message.set_token('ENTITY3', TO_CHAR(i.start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
737: fnd_message.set_token('ENTITY4', TO_CHAR(i.end_date_active, 'DD-MON-YYYY HH24:MI:SS'));
738: fnd_message.set_token('ENTITY5', TO_CHAR(p_start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
739: fnd_msg_pub.ADD;
740: RAISE lg_exc_error;
741: END IF;
742: END IF;
743: ELSE
762: fnd_message.set_token('ENTITY1', l_instance_number);
763: fnd_message.set_token('ENTITY2', l_parent_instance_number);
764: fnd_message.set_token('ENTITY3', TO_CHAR(i.start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
765: fnd_message.set_token('ENTITY4', TO_CHAR(p_start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
766: fnd_msg_pub.ADD;
767: RAISE lg_exc_error;
768: ELSIF (p_start_date_active >= i.start_date_active)
769: OR (p_end_date_active >= i.start_date_active) THEN
770:
788: fnd_message.set_token('ENTITY2', l_parent_instance_number);
789: fnd_message.set_token('ENTITY3', TO_CHAR(i.start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
790: fnd_message.set_token('ENTITY4', TO_CHAR(p_start_date_active, 'DD-MON-YYYY HH24:MI:SS'));
791: fnd_message.set_token('ENTITY5', TO_CHAR(p_end_date_active, 'DD-MON-YYYY HH24:MI:SS'));
792: fnd_msg_pub.ADD;
793: RAISE lg_exc_error;
794: END IF;
795: END IF;
796: END LOOP;
831:
832: fnd_message.set_name('INV', 'INV_EAM_GENEALOGY_LOOP');
833: fnd_message.set_token('ENTITY1', l_parent_instance_number);
834: fnd_message.set_token('ENTITY2', l_instance_number);
835: fnd_msg_pub.ADD;
836: RAISE lg_exc_error;
837: END IF;
838: EXCEPTION
839: WHEN NO_DATA_FOUND THEN
1024: IF (l_debug = 1) THEN mydebug( 'Commit work' ); END IF;
1025: END IF;
1026:
1027: -- Standard call to get message count and if count is 1, get message info.
1028: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1029: ELSE
1030: IF (l_debug = 1) THEN mydebug( 'Record Already present ' ); END IF;
1031: END IF;
1032: mydebug('Out of procedure ...: ' || g_mod_name );
1037: END IF;
1038:
1039: ROLLBACK TO apiinsert_genealogy_apipub;
1040: x_return_status := lg_ret_sts_error;
1041: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1042: WHEN lg_exc_unexpected_error THEN
1043: IF (l_debug = 1) THEN
1044: mydebug('exception G_UNEXC_ERROR'|| x_msg_data);
1045: END IF;
1045: END IF;
1046:
1047: ROLLBACK TO apiinsert_genealogy_apipub;
1048: x_return_status := lg_ret_sts_unexp_error;
1049: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1050: WHEN OTHERS THEN
1051: IF (l_debug = 1) THEN
1052: mydebug('exception WHEN OTHERS'|| x_msg_data);
1053: END IF;
1054:
1055: ROLLBACK TO apiinsert_genealogy_apipub;
1056: x_return_status := lg_ret_sts_unexp_error;
1057:
1058: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1059: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1060: END IF;
1061:
1062: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1055: ROLLBACK TO apiinsert_genealogy_apipub;
1056: x_return_status := lg_ret_sts_unexp_error;
1057:
1058: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1059: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1060: END IF;
1061:
1062: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1063: END insert_genealogy;
1058: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1059: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1060: END IF;
1061:
1062: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1063: END insert_genealogy;
1064:
1065: PROCEDURE update_genealogy(
1066: p_api_version IN NUMBER
1101: END IF;
1102:
1103: -- Initialize message list if p_init_msg_list is set to TRUE.
1104: IF fnd_api.to_boolean(p_init_msg_list) THEN
1105: fnd_msg_pub.initialize;
1106: END IF;
1107:
1108: -- Initialize API return status to success
1109: x_return_status := lg_ret_sts_success;
1112: -- Check for the mandatory parameters
1113: IF p_object_type IS NULL THEN
1114: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1115: fnd_message.set_token('ATTRIBUTE', 'p_object_type');
1116: fnd_msg_pub.ADD;
1117: RAISE lg_exc_error;
1118: END IF;
1119:
1120: IF p_object_id IS NULL THEN
1123: OR p_org_id IS NULL THEN
1124: IF p_object_number IS NULL THEN
1125: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1126: fnd_message.set_token('ATTRIBUTE', 'p_object_number');
1127: fnd_msg_pub.ADD;
1128: END IF;
1129:
1130: IF p_inventory_item_id IS NULL THEN
1131: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1129:
1130: IF p_inventory_item_id IS NULL THEN
1131: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1132: fnd_message.set_token('ATTRIBUTE', 'p_inventory_item_id');
1133: fnd_msg_pub.ADD;
1134: END IF;
1135:
1136: IF p_org_id IS NULL THEN
1137: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1135:
1136: IF p_org_id IS NULL THEN
1137: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1138: fnd_message.set_token('ATTRIBUTE', 'p_org_id');
1139: fnd_msg_pub.ADD;
1140: END IF;
1141:
1142: RAISE lg_exc_error;
1143: END IF;
1148: IF p_object_type < 1
1149: OR p_object_type > 2 THEN
1150: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1151: fnd_message.set_token('ENTITY1', 'p_object_type');
1152: fnd_msg_pub.ADD;
1153: RAISE lg_exc_error;
1154: END IF;
1155:
1156: -- Validate the existence of object number in MTL_SERIAL_NUMBERS
1165:
1166: IF l_dummy = 0 THEN
1167: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1168: fnd_message.set_token('ENTITY1', 'p_object_id');
1169: fnd_msg_pub.ADD;
1170: RAISE lg_exc_error;
1171: END IF;
1172:
1173: l_object_id := p_object_id;
1182: EXCEPTION
1183: WHEN NO_DATA_FOUND THEN
1184: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1185: fnd_message.set_token('ENTITY1', 'p_object_number, p_inventory_item_id and p_org_id combination');
1186: fnd_msg_pub.ADD;
1187: RAISE lg_exc_error;
1188: END;
1189: END IF;
1190: ELSIF p_object_type = 2 THEN
1196:
1197: IF l_dummy = 0 THEN
1198: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1199: fnd_message.set_token('ENTITY1', 'p_object_id');
1200: fnd_msg_pub.ADD;
1201: RAISE lg_exc_error;
1202: END IF;
1203:
1204: l_object_id := p_object_id;
1213: EXCEPTION
1214: WHEN NO_DATA_FOUND THEN
1215: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1216: fnd_message.set_token('ENTITY1', 'p_object_number, p_inventory_item_id and p_org_id combination');
1217: fnd_msg_pub.ADD;
1218: RAISE lg_exc_error;
1219: END;
1220: END IF;
1221: END IF;
1229:
1230: IF l_dummy = 0 THEN
1231: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1232: fnd_message.set_token('ENTITY1', 'p_genealogy_origin');
1233: fnd_msg_pub.ADD;
1234: RAISE lg_exc_error;
1235: END IF;
1236: END IF;
1237:
1245: IF p_genealogy_type NOT IN (1, 2, 3, 5)
1246: AND p_genealogy_type IS NOT NULL THEN
1247: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1248: fnd_message.set_token('ENTITY1', 'P_genealogy_type');
1249: fnd_msg_pub.ADD;
1250: RAISE lg_exc_error;
1251: END IF;
1252:
1253: IF p_object_type = 2 THEN
1253: IF p_object_type = 2 THEN
1254: IF p_genealogy_type NOT IN (1, 5) THEN
1255: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1256: fnd_message.set_token('ENTITY1', 'P_genealogy_type');
1257: fnd_msg_pub.ADD;
1258: RAISE lg_exc_error;
1259: END IF;
1260: END IF;
1261:
1263: -- If it does, check whether there exists a NULL end date for the last entry of the object
1264: IF p_genealogy_type = 5 THEN
1265: IF p_end_date_active IS NULL THEN
1266: fnd_message.set_name('INV', 'INV_EAM_NULL_END_DATE');
1267: fnd_msg_pub.ADD;
1268: RAISE lg_exc_error;
1269: END IF;
1270:
1271: BEGIN
1288: IF (p_end_date_active < l_dummy_date) THEN
1289: fnd_message.set_name('INV', 'INV_EAM_END_START_DATE_INVALID');
1290: fnd_message.set_token('ENTITY1', TO_CHAR(p_end_date_active, 'DD-MON-YYYY HH24:MI:SS'));
1291: fnd_message.set_token('ENTITY2', TO_CHAR(l_dummy_date, 'DD-MON-YYYY HH24:MI:SS'));
1292: fnd_msg_pub.ADD;
1293: RAISE lg_exc_error;
1294: END IF;
1295: EXCEPTION
1296: WHEN NO_DATA_FOUND THEN
1294: END IF;
1295: EXCEPTION
1296: WHEN NO_DATA_FOUND THEN
1297: fnd_message.set_name('INV', 'INV_EAM_GEN_NOEXIST');
1298: fnd_msg_pub.ADD;
1299: RAISE lg_exc_error;
1300: END;
1301: END IF;
1302:
1319: COMMIT WORK;
1320: END IF;
1321:
1322: -- Standard call to get message count and if count is 1, get message info.
1323: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1324: EXCEPTION
1325: WHEN lg_exc_error THEN
1326: ROLLBACK TO update_genealogy_pub;
1327: x_return_status := lg_ret_sts_error;
1324: EXCEPTION
1325: WHEN lg_exc_error THEN
1326: ROLLBACK TO update_genealogy_pub;
1327: x_return_status := lg_ret_sts_error;
1328: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1329: WHEN lg_exc_unexpected_error THEN
1330: ROLLBACK TO update_genealogy_pub;
1331: x_return_status := lg_ret_sts_unexp_error;
1332: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1328: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1329: WHEN lg_exc_unexpected_error THEN
1330: ROLLBACK TO update_genealogy_pub;
1331: x_return_status := lg_ret_sts_unexp_error;
1332: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1333: WHEN OTHERS THEN
1334: ROLLBACK TO update_genealogy_pub;
1335: x_return_status := lg_ret_sts_unexp_error;
1336:
1333: WHEN OTHERS THEN
1334: ROLLBACK TO update_genealogy_pub;
1335: x_return_status := lg_ret_sts_unexp_error;
1336:
1337: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1338: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1339: END IF;
1340:
1341: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1334: ROLLBACK TO update_genealogy_pub;
1335: x_return_status := lg_ret_sts_unexp_error;
1336:
1337: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1338: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1339: END IF;
1340:
1341: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1342: END update_genealogy;
1337: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1338: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1339: END IF;
1340:
1341: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1342: END update_genealogy;
1343:
1344: PROCEDURE insert_flow_genealogy(
1345: p_api_version IN NUMBER
1427: END IF;
1428:
1429: -- Initialize message list if p_init_msg_list is set to TRUE.
1430: IF fnd_api.to_boolean(p_init_msg_list) THEN
1431: fnd_msg_pub.initialize;
1432: END IF;
1433:
1434: x_msg_count := 0;
1435: x_return_status := lg_ret_sts_success;
1435: x_return_status := lg_ret_sts_success;
1436:
1437: IF p_transaction_source_id IS NULL THEN
1438: fnd_message.set_name('INV', 'INV_MISSING_REQUIRED_PARAMETER');
1439: fnd_msg_pub.ADD;
1440: RAISE lg_exc_error;
1441: END IF;
1442:
1443: IF p_completion_transaction_id IS NULL THEN
1441: END IF;
1442:
1443: IF p_completion_transaction_id IS NULL THEN
1444: fnd_message.set_name('INV', 'INV_MISSING_REQUIRED_PARAMETER');
1445: fnd_msg_pub.ADD;
1446: RAISE lg_exc_error;
1447: END IF;
1448:
1449: OPEN childlotmmtt(p_transaction_source_id, p_completion_transaction_id);
1558: COMMIT WORK;
1559: END IF;
1560:
1561: -- Standard call to get message count and if count is 1, get message info.
1562: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1563: EXCEPTION
1564: WHEN lg_exc_error THEN
1565: IF (l_debug = 1) THEN
1566: mydebug('exception G_EXC_ERROR'|| x_msg_data);
1567: END IF;
1568:
1569: ROLLBACK TO save_insert_genealogy;
1570: x_return_status := lg_ret_sts_error;
1571: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1572: WHEN lg_exc_unexpected_error THEN
1573: IF (l_debug = 1) THEN
1574: mydebug('exception G_UNEXC_ERROR'|| x_msg_data);
1575: END IF;
1575: END IF;
1576:
1577: ROLLBACK TO save_insert_genealogy;
1578: x_return_status := lg_ret_sts_unexp_error;
1579: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1580: WHEN OTHERS THEN
1581: IF (l_debug = 1) THEN
1582: mydebug('exception WHEN OTHERS'|| x_msg_data);
1583: END IF;
1584:
1585: ROLLBACK TO save_insert_genealogy;
1586: x_return_status := lg_ret_sts_unexp_error;
1587:
1588: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1589: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1590: END IF;
1591:
1592: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1585: ROLLBACK TO save_insert_genealogy;
1586: x_return_status := lg_ret_sts_unexp_error;
1587:
1588: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1589: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1590: END IF;
1591:
1592: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1593: END insert_flow_genealogy;
1588: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1589: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1590: END IF;
1591:
1592: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
1593: END insert_flow_genealogy;
1594:
1595:
1596:
1618: END IF;
1619:
1620: -- Initialize message list if p_init_msg_list is set to TRUE.
1621: IF fnd_api.to_boolean(p_init_msg_list) THEN
1622: fnd_msg_pub.initialize;
1623: END IF;
1624:
1625: -- Initialize API return status to success
1626: x_return_status := lg_ret_sts_success;
1639: COMMIT WORK;
1640: END IF;
1641:
1642: -- Standard call to get message count and if count is 1, get message info.
1643: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1644: EXCEPTION
1645: WHEN lg_exc_error THEN
1646: ROLLBACK TO inv_eam_genealogy;
1647: x_return_status := lg_ret_sts_error;
1644: EXCEPTION
1645: WHEN lg_exc_error THEN
1646: ROLLBACK TO inv_eam_genealogy;
1647: x_return_status := lg_ret_sts_error;
1648: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1649: WHEN lg_exc_unexpected_error THEN
1650: ROLLBACK TO inv_eam_genealogy;
1651: x_return_status := lg_ret_sts_unexp_error;
1652: fnd_msg_pub.count_and_get(
1648: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1649: WHEN lg_exc_unexpected_error THEN
1650: ROLLBACK TO inv_eam_genealogy;
1651: x_return_status := lg_ret_sts_unexp_error;
1652: fnd_msg_pub.count_and_get(
1653: p_count => x_msg_count
1654: ,p_data => x_msg_data);
1655: WHEN OTHERS THEN
1656: ROLLBACK TO inv_eam_genealogy;
1655: WHEN OTHERS THEN
1656: ROLLBACK TO inv_eam_genealogy;
1657: x_return_status := lg_ret_sts_unexp_error;
1658:
1659: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1660: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1661: END IF;
1662:
1663: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1656: ROLLBACK TO inv_eam_genealogy;
1657: x_return_status := lg_ret_sts_unexp_error;
1658:
1659: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1660: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1661: END IF;
1662:
1663: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1664:
1659: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1660: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1661: END IF;
1662:
1663: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1664:
1665: END Delete_EAM_Row;
1666:
1667: PROCEDURE parameter_validations(
1782:
1783: x_return_status := lg_ret_sts_error; -- R12
1784: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1785: fnd_message.set_token('ATTRIBUTE', 'p_object_type');
1786: fnd_msg_pub.ADD;
1787: END IF;
1788:
1789: IF p_object_id IS NULL THEN
1790: IF (p_debug = 1) THEN mydebug('p_object_id is null'); END IF;
1794: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_object_number'); END IF;
1795:
1796: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1797: fnd_message.set_token('ATTRIBUTE', 'p_object_number');
1798: fnd_msg_pub.ADD;
1799: END IF;
1800:
1801: --R12 IF p_inventory_item_id IS NULL THEN
1802: IF p_object_type <> 5 AND p_inventory_item_id IS NULL THEN
1805: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_inventory_item_id'); END IF;
1806:
1807: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1808: fnd_message.set_token('ATTRIBUTE', 'p_inventory_item_id');
1809: fnd_msg_pub.ADD;
1810: END IF;
1811:
1812: IF p_org_id IS NULL THEN
1813: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_org_id'); END IF;
1813: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_org_id'); END IF;
1814:
1815: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1816: fnd_message.set_token('ATTRIBUTE', 'p_org_id');
1817: fnd_msg_pub.ADD;
1818: END IF;
1819:
1820: x_return_status := lg_ret_sts_error; -- R12
1821: END IF;
1834: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_object_number'); END IF;
1835:
1836: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1837: fnd_message.set_token('ATTRIBUTE', 'p_parent_object_number');
1838: fnd_msg_pub.ADD;
1839: END IF;
1840:
1841: IF p_parent_object_type <> 5 AND p_parent_inventory_item_id IS NULL THEN
1842: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_inventory_item_id'); END IF;
1842: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_inventory_item_id'); END IF;
1843:
1844: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1845: fnd_message.set_token('ATTRIBUTE', 'p_parent_inventory_item_id');
1846: fnd_msg_pub.ADD;
1847: END IF;
1848:
1849: IF p_parent_org_id IS NULL THEN
1850: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_org_id'); END IF;
1850: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_org_id'); END IF;
1851:
1852: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1853: fnd_message.set_token('ATTRIBUTE', 'p_parent_org_id');
1854: fnd_msg_pub.ADD;
1855: END IF;
1856:
1857: x_return_status := lg_ret_sts_error; -- R12
1858: END IF;
1866: x_return_status := lg_ret_sts_error; -- R12
1867: IF (p_debug = 1) THEN mydebug('INV_FIELD_INVALID - p_object_type'); END IF;
1868: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1869: fnd_message.set_token('ENTITY1', 'p_object_type');
1870: fnd_msg_pub.ADD;
1871: END IF;
1872:
1873: IF (p_parent_object_type < 1 OR p_parent_object_type > 5) THEN
1874: x_return_status := lg_ret_sts_error; -- R12
1874: x_return_status := lg_ret_sts_error; -- R12
1875: IF (p_debug = 1) THEN mydebug('INV_FIELD_INVALID - p_parent_object_type'); END IF;
1876: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1877: fnd_message.set_token('ENTITY1', 'p_parent_object_type');
1878: fnd_msg_pub.ADD;
1879: END IF;
1880:
1881: -- R12 Genealogy Enhancements : Validate second set of object and parent object details
1882:
1910: IF (p_debug = 1) THEN mydebug('no data found ...child mtl_serial_numbers '); END IF;
1911: x_return_status := lg_ret_sts_error; -- R12
1912: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1913: fnd_message.set_token('ATTRIBUTE', 'l_inventory_item_id');
1914: fnd_msg_pub.ADD;
1915: END ;
1916:
1917: IF (p_debug = 1) THEN mydebug('l_inventory_item_id :' || l_inventory_item_id); END IF;
1918: END IF;
1951: x_return_status := lg_ret_sts_error; -- R12
1952: IF (p_debug = 1) THEN mydebug('no data found ...parent mtl_serial_numbers '); END IF;
1953: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
1954: fnd_message.set_token('ATTRIBUTE', 'l_parent_inventory_item_id');
1955: fnd_msg_pub.ADD;
1956: END ;
1957: IF (p_debug = 1) THEN mydebug('l_parent_inventory_item_id '|| l_parent_inventory_item_id ); END IF;
1958: END IF;
1959: IF l_parent_inventory_item_id is NOT NULL THEN
1977: IF (p_debug = 1) THEN mydebug('{{- p_object_type2 can only be = 1 (lot) }} '); END IF;
1978: x_return_status := lg_ret_sts_error; -- R12
1979: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
1980: fnd_message.set_token('ENTITY1', 'l_object_type2');
1981: fnd_msg_pub.ADD;
1982: ELSE
1983: IF (l_object_type2 IS NULL )
1984: THEN
1985: IF (p_debug = 1) THEN mydebug('If P_object_type2 is null assign 1 (lot)'); END IF;
2000: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_object_number2'); END IF;
2001:
2002: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
2003: fnd_message.set_token('ATTRIBUTE', 'p_object_number2');
2004: fnd_msg_pub.ADD;
2005: END IF;
2006: IF p_object_type <> 5 AND p_inventory_item_id IS NULL THEN
2007: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_inventory_item_id'); END IF;
2008:
2007: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_inventory_item_id'); END IF;
2008:
2009: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
2010: fnd_message.set_token('ATTRIBUTE', 'p_inventory_item_id');
2011: fnd_msg_pub.ADD;
2012: END IF;
2013:
2014:
2015: IF p_org_id IS NULL THEN
2016: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_org_id'); END IF;
2017:
2018: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
2019: fnd_message.set_token('ATTRIBUTE', 'p_org_id');
2020: fnd_msg_pub.ADD;
2021: END IF;
2022:
2023: x_return_status := lg_ret_sts_error; -- R12
2024: --RAISE lg_exc_error;
2035: IF (l_parent_object_type2 IS NOT NULL AND l_parent_object_type2 <> 1) THEN
2036: IF (p_debug = 1) THEN mydebug('{{- p_parent_object_type2 can only be = 1 (lot) }} '); END IF;
2037: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2038: fnd_message.set_token('ENTITY1', 'l_parent_object_type2');
2039: fnd_msg_pub.ADD;
2040: RAISE lg_exc_error;
2041: ELSE
2042: IF (l_parent_object_type2 IS NULL )
2043: THEN
2060: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_object_number2'); END IF;
2061:
2062: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
2063: fnd_message.set_token('ATTRIBUTE', 'p_parent_object_number2');
2064: fnd_msg_pub.ADD;
2065: END IF;
2066:
2067: IF l_parent_object_type2 <> 5 AND p_parent_inventory_item_id IS NULL THEN
2068: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_inventory_item_id'); END IF;
2068: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_inventory_item_id'); END IF;
2069:
2070: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
2071: fnd_message.set_token('ATTRIBUTE', 'p_parent_inventory_item_id');
2072: fnd_msg_pub.ADD;
2073: END IF;
2074:
2075: IF p_parent_org_id IS NULL THEN
2076: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_org_id'); END IF;
2076: IF (p_debug = 1) THEN mydebug('INV_ATTRIBUTE_REQUIRED: p_parent_org_id'); END IF;
2077:
2078: fnd_message.set_name('INV', 'INV_ATTRIBUTE_REQUIRED');
2079: fnd_message.set_token('ATTRIBUTE', 'p_parent_org_id');
2080: fnd_msg_pub.ADD;
2081: END IF;
2082:
2083: x_return_status := lg_ret_sts_error; -- R12
2084: --RAISE lg_exc_error;
2137: x_return_status := lg_ret_sts_error; -- R12
2138: IF (p_debug = 1) THEN mydebug('lot not found using - p_object_id'); END IF;
2139: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2140: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2141: fnd_msg_pub.ADD;
2142: --RAISE lg_exc_error;
2143: END IF;
2144: END IF;
2145:
2162: x_return_status := lg_ret_sts_error; -- R12
2163: IF (p_debug = 1) THEN mydebug('lot not found using - p_object_number,'); END IF;
2164: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2165: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2166: fnd_msg_pub.ADD;
2167: --RAISE lg_exc_error;
2168: END;
2169: END IF;
2170: ELSIF p_object_type = 2 THEN
2179: x_return_status := lg_ret_sts_error; -- R12
2180: IF (p_debug = 1) THEN mydebug('Serial not found using - p_object_id,'); END IF;
2181: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2182: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2183: fnd_msg_pub.ADD;
2184: -- RAISE lg_exc_error;
2185: END IF;
2186: END IF;
2187:
2204: x_return_status := lg_ret_sts_error; -- R12
2205: IF (p_debug = 1) THEN mydebug('Serial not found using - p_object_number,'); END IF;
2206: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2207: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2208: fnd_msg_pub.ADD;
2209: --RAISE lg_exc_error;
2210: END;
2211: END IF;
2212: ELSIF p_object_type = 5 THEN
2220: x_return_status := lg_ret_sts_error; -- R12
2221: IF (p_debug = 1) THEN mydebug('Job not found using - p_object_id,'); END IF;
2222: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2223: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2224: fnd_msg_pub.ADD;
2225: --RAISE lg_exc_error;
2226: END IF;
2227:
2228: l_object_id := p_object_id;
2243: x_return_status := lg_ret_sts_error; -- R12
2244: IF (p_debug = 1) THEN mydebug('Job not found using - p_object_number,'); END IF;
2245: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2246: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2247: fnd_msg_pub.ADD;
2248: --RAISE lg_exc_error;
2249: END;
2250: END IF;
2251: END IF;
2273: x_return_status := lg_ret_sts_error; -- R12
2274: IF (p_debug = 1) THEN mydebug('Lot not found using - p_parent_object_id,'); END IF;
2275: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2276: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2277: fnd_msg_pub.ADD;
2278: --RAISE lg_exc_error;
2279: END IF;
2280: END IF;
2281:
2298: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2299: x_return_status := lg_ret_sts_error; -- R12
2300: IF (p_debug = 1) THEN mydebug('Lot not found using - p_parent_object_number,'); END IF;
2301: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2302: fnd_msg_pub.ADD;
2303: --RAISE lg_exc_error;
2304: END;
2305: END IF;
2306: ELSIF p_parent_object_type = 2 THEN
2318: x_return_status := lg_ret_sts_error; -- R12
2319: IF (p_debug = 1) THEN mydebug('Serial not found using - p_parent_object_id,'); END IF;
2320: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2321: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2322: fnd_msg_pub.ADD;
2323: --RAISE lg_exc_error;
2324: END IF;
2325: END IF;
2326:
2343: x_return_status := lg_ret_sts_error; -- R12
2344: IF (p_debug = 1) THEN mydebug('Serial not found using - p_parent_object_number,'); END IF;
2345: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2346: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2347: fnd_msg_pub.ADD;
2348: --RAISE lg_exc_error;
2349: END;
2350: END IF;
2351: ELSIF p_parent_object_type = 5 THEN
2360: x_return_status := lg_ret_sts_error; -- R12
2361: IF (p_debug = 1) THEN mydebug('Job not found using - p_parent_object_id,'); END IF;
2362: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2363: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2364: fnd_msg_pub.ADD;
2365: -- RAISE lg_exc_error;
2366: END IF;
2367:
2368: l_parent_object_id := p_parent_object_id;
2383: x_return_status := lg_ret_sts_error; -- R12
2384: IF (p_debug = 1) THEN mydebug('Job not found using - p_parent_object_number,'); END IF;
2385: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2386: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2387: fnd_msg_pub.ADD;
2388: --RAISE lg_exc_error;
2389: END;
2390: END IF;
2391: END IF;
2414: x_return_status := lg_ret_sts_error; -- R12
2415: IF (p_debug = 1) THEN mydebug('Lot not found using - p_object_id2,'); END IF;
2416: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2417: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2418: fnd_msg_pub.ADD;
2419: --RAISE lg_exc_error;
2420: END IF;
2421: END IF;
2422:
2435: x_return_status := lg_ret_sts_error; -- R12
2436: IF (p_debug = 1) THEN mydebug('Lot not found using - p_object_number2,'); END IF;
2437: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2438: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2439: fnd_msg_pub.ADD;
2440: --RAISE lg_exc_error;
2441: END;
2442: ELSE
2443: l_object_id2 := NULL;
2467: x_return_status := lg_ret_sts_error; -- R12
2468: IF (p_debug = 1) THEN mydebug('Lot not found using - p_parent_object_id2,'); END IF;
2469: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2470: fnd_message.set_token('ENTITY1', l_invalid_field_msg);
2471: fnd_msg_pub.ADD;
2472: --RAISE lg_exc_error;
2473: END IF;
2474: END IF;
2475:
2487: WHEN NO_DATA_FOUND THEN
2488: x_return_status := lg_ret_sts_error; -- R12
2489: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2490: fnd_message.set_token('ENTITY1', l_invalid_comb_msg);
2491: fnd_msg_pub.ADD;
2492: IF (p_debug = 1) THEN mydebug('Lot not found using - p_parent_object_number2,'); END IF;
2493: --RAISE lg_exc_error;
2494: END;
2495: ELSE
2517: IF l_dummy = 0 THEN
2518: x_return_status := lg_ret_sts_error; -- R12
2519: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2520: fnd_message.set_token('ENTITY1', 'p_genealogy_origin:' || TO_CHAR(p_genealogy_origin));
2521: fnd_msg_pub.ADD;
2522: IF (p_debug = 1) THEN mydebug('Gene. Origin not found in mfg_lookups,'); END IF;
2523: --RAISE lg_exc_error;
2524: END IF;
2525: END IF;
2539: AND p_genealogy_type IS NOT NULL THEN
2540: x_return_status := lg_ret_sts_error; -- R12
2541: fnd_message.set_name('INV', 'INV_FIELD_INVALID');
2542: fnd_message.set_token('ENTITY1', 'P_genealogy_type');
2543: fnd_msg_pub.ADD;
2544: IF (p_debug = 1) THEN mydebug('Gene. Type is invalid ,'); END IF;
2545: --RAISE lg_exc_error;
2546: END IF;
2547: END IF;
2551: {{ IF p_object_type = 2 THEN }}
2552: {{ IF p_genealogy_type NOT IN (1, 5) THEN }}
2553: fnd_message.set_name('INV', {{' INV_FIELD_INVALID'}});
2554: fnd_message.set_token('ENTITY1', 'P_genealogy_type');
2555: fnd_msg_pub.ADD;
2556: RAISE lg_exc_error;
2557: END IF;
2558: END IF; */
2559:
2576: fnd_message.set_token('ENTITY1', 'p_object_number');
2577: ELSIF l_parent_object_id IS NULL THEN
2578: fnd_message.set_token('ENTITY1', 'p_parent_object_number');
2579: END IF;
2580: fnd_msg_pub.ADD;
2581: IF (p_debug = 1) THEN mydebug('Gene. Type is invalid ,'); END IF;
2582: END IF;
2583:
2584: IF x_return_status = lg_ret_sts_error
2618: EXCEPTION
2619: WHEN lg_exc_error THEN
2620: IF (p_debug = 1) THEN mydebug('exception G_EXC_ERROR'|| x_msg_data); END IF;
2621: x_return_status := lg_ret_sts_error;
2622: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2623: WHEN lg_exc_unexpected_error THEN
2624: IF (p_debug = 1) THEN mydebug('exception G_UNEXC_ERROR'|| x_msg_data); END IF;
2625: x_return_status := lg_ret_sts_unexp_error;
2626: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2622: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2623: WHEN lg_exc_unexpected_error THEN
2624: IF (p_debug = 1) THEN mydebug('exception G_UNEXC_ERROR'|| x_msg_data); END IF;
2625: x_return_status := lg_ret_sts_unexp_error;
2626: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2627: WHEN OTHERS THEN
2628: IF (p_debug = 1) THEN mydebug('exception WHEN OTHERS'|| x_msg_data); END IF;
2629: x_return_status := lg_ret_sts_unexp_error;
2630: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2626: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2627: WHEN OTHERS THEN
2628: IF (p_debug = 1) THEN mydebug('exception WHEN OTHERS'|| x_msg_data); END IF;
2629: x_return_status := lg_ret_sts_unexp_error;
2630: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2631: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2632: END IF;
2633: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2634:
2627: WHEN OTHERS THEN
2628: IF (p_debug = 1) THEN mydebug('exception WHEN OTHERS'|| x_msg_data); END IF;
2629: x_return_status := lg_ret_sts_unexp_error;
2630: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2631: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2632: END IF;
2633: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2634:
2635: END parameter_validations;
2629: x_return_status := lg_ret_sts_unexp_error;
2630: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2631: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2632: END IF;
2633: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
2634:
2635: END parameter_validations;
2636:
2637: -- R12 genealogy Enhancements : Added a new procedure to update genealogy
2742: mydebug('p_transaction_type: ' || p_transaction_type );
2743: END IF;
2744:
2745: IF fnd_api.to_boolean(p_init_msg_list) THEN
2746: fnd_msg_pub.initialize;
2747: END IF;
2748:
2749: IF p_parent_object_type IS NULL THEN
2750: l_parent_object_type := p_object_type;
3005: WHEN lg_exc_error THEN
3006: IF (l_debug = 1) THEN mydebug('exception G_EXC_ERROR'|| x_msg_data); END IF;
3007: ROLLBACK TO save_update_genealogy;
3008: x_return_status := lg_ret_sts_error;
3009: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
3010:
3011: WHEN lg_exc_unexpected_error THEN
3012: IF (l_debug = 1) THEN mydebug('exception G_UNEXC_ERROR'|| x_msg_data); END IF;
3013: ROLLBACK TO save_update_genealogy;
3011: WHEN lg_exc_unexpected_error THEN
3012: IF (l_debug = 1) THEN mydebug('exception G_UNEXC_ERROR'|| x_msg_data); END IF;
3013: ROLLBACK TO save_update_genealogy;
3014: x_return_status := lg_ret_sts_unexp_error;
3015: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
3016: WHEN OTHERS THEN
3017: IF (l_debug = 1) THEN mydebug('exception WHEN OTHERS'|| x_msg_data); END IF;
3018: ROLLBACK TO save_update_genealogy;
3019: x_return_status := lg_ret_sts_unexp_error;
3016: WHEN OTHERS THEN
3017: IF (l_debug = 1) THEN mydebug('exception WHEN OTHERS'|| x_msg_data); END IF;
3018: ROLLBACK TO save_update_genealogy;
3019: x_return_status := lg_ret_sts_unexp_error;
3020: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3021: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3022: END IF;
3023: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
3024: END update_genealogy;
3017: IF (l_debug = 1) THEN mydebug('exception WHEN OTHERS'|| x_msg_data); END IF;
3018: ROLLBACK TO save_update_genealogy;
3019: x_return_status := lg_ret_sts_unexp_error;
3020: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3021: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3022: END IF;
3023: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
3024: END update_genealogy;
3025: END inv_genealogy_pub;
3019: x_return_status := lg_ret_sts_unexp_error;
3020: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3021: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3022: END IF;
3023: fnd_msg_pub.count_and_get(p_encoded => lg_fnd_g_false, p_count => x_msg_count, p_data => x_msg_data);
3024: END update_genealogy;
3025: END inv_genealogy_pub;