[Home] [Help]
294: --------------------- initialize -----------------------
295: SAVEPOINT create_deliverable;
296:
297: IF (AMS_DEBUG_HIGH_ON) THEN
298: AMS_Utility_PVT.debug_message(l_full_name||': start');
299: END IF;
300:
301: IF FND_API.to_boolean(p_init_msg_list) THEN
302: FND_MSG_PUB.initialize;
328: END IF;
329:
330: ----------------------- validate -----------------------
331: IF (AMS_DEBUG_HIGH_ON) THEN
332: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
333: END IF;
334:
335: IF l_deliv_rec.transaction_currency_code IS NULL
336: OR l_deliv_rec.transaction_currency_code = FND_API.G_MISS_CHAR
359: END IF;
360:
361: -------------------------- insert --------------------------
362: IF (AMS_DEBUG_HIGH_ON) THEN
363: AMS_Utility_PVT.debug_message(l_full_name ||': insert');
364: END IF;
365:
366: IF l_deliv_rec.deliverable_id IS NULL THEN
367: LOOP
598: CLOSE c_get_custom_setup_id;
599:
600: -- create object attributes
601: IF (AMS_DEBUG_HIGH_ON) THEN
602: AMS_Utility_PVT.debug_message('calling AMS_ObjectAttribute_PVT.create_object_attributes');
603: END IF;
604:
605: AMS_ObjectAttribute_PVT.create_object_attributes(
606: l_api_version,
660: complete_deliv_rec(x_deliv_rec_from_init, x_deliv_rec);
661: IF (x_deliv_Rec.can_fulfill_electronic_flag = 'Y')
662: THEN
663: IF (AMS_DEBUG_HIGH_ON) THEN
664: AMS_Utility_PVT.debug_message('THE object version number is '||x_deliv_rec.object_version_number);
665: END IF;
666: x_deliv_Rec.object_version_number := 1;
667: update_deliverable
668: (p_api_version => 1.0,
676:
677: IF l_return_status <> FND_API.g_ret_sts_success THEN
678: IF (AMS_DEBUG_HIGH_ON) THEN
679:
680: AMS_Utility_PVT.debug_message(l_full_name||': in the exception of call to update');
681: END IF;
682: x_msg_count := l_msg_count;
683: x_msg_data := l_msg_data;
684: RAISE FND_API.G_EXC_ERROR;
686:
687:
688: -- attach seeded metrics
689: IF (AMS_DEBUG_HIGH_ON) THEN
690: AMS_Utility_PVT.debug_message('calling AMS_RefreshMetric_PVT.copy_seeded_metric');
691: END IF;
692:
693: AMS_RefreshMetric_PVT.copy_seeded_metric(
694: p_api_version => 1.0,
708:
709:
710: -- create task
711: IF (AMS_DEBUG_HIGH_ON) THEN
712: AMS_Utility_PVT.debug_message('calling AMS_TASK_PVT.Create_task');
713: END IF;
714:
715: IF SYSDATE > l_deliv_rec.forecasted_complete_date THEN
716: l_task_planned_start_date := l_deliv_rec.forecasted_complete_date;
746: x_task_id => x_task_id
747: );
748:
749: IF (AMS_DEBUG_HIGH_ON) THEN
750: AMS_UTILITY_PVT.debug_message('the return status from :'||l_return_status);
751: END IF;
752:
753: IF l_return_status = FND_API.g_ret_sts_error THEN
754: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
779: END IF;
780:
781: -- create task assignment
782: IF (AMS_DEBUG_HIGH_ON) THEN
783: AMS_Utility_PVT.debug_message('calling AMS_TASK_PVT.Create_Task_Assignment');
784: END IF;
785:
786: AMS_TASK_PVT.Create_Task_Assignment (
787: p_api_version => l_api_version,
887: p_data => x_msg_data
888: );
889:
890: IF (AMS_DEBUG_HIGH_ON) THEN
891: AMS_Utility_PVT.debug_message(l_full_name ||': end');
892: END IF;
893:
894: EXCEPTION
895:
961: --------------------- initialize -----------------------
962: SAVEPOINT delete_deliverable;
963:
964: IF (AMS_DEBUG_HIGH_ON) THEN
965: AMS_Utility_PVT.debug_message(l_full_name||': start');
966: END IF;
967:
968: IF FND_API.to_boolean(p_init_msg_list) THEN
969: FND_MSG_PUB.initialize;
981: x_return_status := FND_API.G_RET_STS_SUCCESS;
982:
983: ------------------------ delete ------------------------
984: IF (AMS_DEBUG_HIGH_ON) THEN
985: AMS_Utility_PVT.debug_message(l_full_name ||': delete');
986: END IF;
987:
988: DELETE FROM ams_deliverables_all_b
989: WHERE deliverable_id = p_deliv_id
1021: p_data => x_msg_data
1022: );
1023:
1024: IF (AMS_DEBUG_HIGH_ON) THEN
1025: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1026: END IF;
1027:
1028: EXCEPTION
1029:
1109:
1110: -------------------- initialize ------------------------
1111: IF (AMS_DEBUG_HIGH_ON) THEN
1112:
1113: AMS_Utility_PVT.debug_message(l_full_name||': start');
1114: END IF;
1115:
1116: IF FND_API.to_boolean(p_init_msg_list) THEN
1117: FND_MSG_PUB.initialize;
1130:
1131: ------------------------ lock -------------------------
1132: IF (AMS_DEBUG_HIGH_ON) THEN
1133:
1134: AMS_Utility_PVT.debug_message(l_full_name||': lock');
1135: END IF;
1136:
1137: OPEN c_deliv_b;
1138: FETCH c_deliv_b INTO l_deliv_id;
1157: );
1158:
1159: EXCEPTION
1160:
1161: WHEN AMS_Utility_PVT.resource_locked THEN
1162: x_return_status := FND_API.g_ret_sts_error;
1163: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1164: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1165: FND_MSG_PUB.add;
1405: -------------------- initialize -------------------------
1406: SAVEPOINT update_deliverable;
1407:
1408: IF (AMS_DEBUG_HIGH_ON) THEN
1409: AMS_Utility_PVT.debug_message(l_full_name||': start');
1410: END IF;
1411:
1412: IF FND_API.to_boolean(p_init_msg_list) THEN
1413: FND_MSG_PUB.initialize;
1429:
1430: l_user_id := FND_GLOBAL.User_Id;
1431:
1432: IF (AMS_DEBUG_HIGH_ON) THEN
1433: AMS_Utility_PVT.debug_message(' CHECK ACCESS l_user_id is ' ||l_user_id );
1434: END IF;
1435: if l_user_id IS NOT NULL then
1436: open get_res_id(l_user_id);
1437: fetch get_res_id into l_res_id;
1446: end if;
1447: --01/24/02 added for access check bug #2764852 mukumar end
1448:
1449: IF (AMS_DEBUG_HIGH_ON) THEN
1450: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
1451: AMS_Utility_PVT.debug_message('l_deliv_rec.transaction_currency_code:'||l_deliv_rec.transaction_currency_code);
1452: AMS_Utility_PVT.debug_message('l_deliv_rec.currency_code:'||l_deliv_rec.currency_code);
1453: END IF;
1454:
1447: --01/24/02 added for access check bug #2764852 mukumar end
1448:
1449: IF (AMS_DEBUG_HIGH_ON) THEN
1450: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
1451: AMS_Utility_PVT.debug_message('l_deliv_rec.transaction_currency_code:'||l_deliv_rec.transaction_currency_code);
1452: AMS_Utility_PVT.debug_message('l_deliv_rec.currency_code:'||l_deliv_rec.currency_code);
1453: END IF;
1454:
1455:
1448:
1449: IF (AMS_DEBUG_HIGH_ON) THEN
1450: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
1451: AMS_Utility_PVT.debug_message('l_deliv_rec.transaction_currency_code:'||l_deliv_rec.transaction_currency_code);
1452: AMS_Utility_PVT.debug_message('l_deliv_rec.currency_code:'||l_deliv_rec.currency_code);
1453: END IF;
1454:
1455:
1456: IF l_deliv_rec.transaction_currency_code = FND_API.G_MISS_CHAR
1463: complete_deliv_rec(p_deliv_rec, l_deliv_rec);
1464:
1465: -- checking the values of periods and deliverable_calendar
1466: IF (AMS_DEBUG_HIGH_ON) THEN
1467: AMS_Utility_PVT.debug_message(l_full_name ||':checking the period name');
1468: END IF;
1469:
1470:
1471: IF ( (l_deliv_rec.start_period_name IS NOT NULL)
1523:
1524: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
1525:
1526: IF (AMS_DEBUG_HIGH_ON) THEN
1527: AMS_Utility_PVT.debug_message('check_deliv_record');
1528: END IF;
1529:
1530: check_deliv_record(
1531: p_deliv_rec => l_deliv_rec,
1700: -- abhola added ' AND (l_jtf_att_count > 0) ' in the IF clause
1701: -----------------------------------------------------------
1702: IF (AMS_DEBUG_HIGH_ON) THEN
1703:
1704: ams_utility_pvt.debug_message (' delv item id '||l_jtf_delv_item_id||' attacth '||l_jtf_att_count);
1705: END IF;
1706:
1707: IF ( (l_jtf_delv_item_id IS NOT NULL) AND (l_jtf_att_count > 0) ) THEN
1708: -- create jtf_amv_attachment for ITEM
1789: -- OPEN c_user_status_id (l_reject_status_code);
1790: FETCH c_user_status_id INTO l_reject_status_id;
1791: -- CLOSE c_user_status_id;
1792: --
1793: -- IF (AMS_DEBUG_HIGH_ON) THEN AMS_UTILITY_PVT.debug_message(' the approval reqd flag gives : '||Approval_required_flag( l_deliv_rec.setup_id, l_custom_setup_attr)); END IF;
1794: -- IF Approval_required_flag( l_deliv_rec.setup_id, l_custom_setup_attr) = FND_API.g_true
1795: -- THEN
1796: -- -- choang - 13-sep-2000
1797: -- -- Change of approval process.
1795: -- THEN
1796: -- -- choang - 13-sep-2000
1797: -- -- Change of approval process.
1798: -- -- flip the status to pending budget approval
1799: -- IF (AMS_DEBUG_HIGH_ON) THEN ams_utility_pvt.debug_message (' Inside the if changing the status :'||l_dummy); END IF;
1800: -- -- l_pending_budget_stat := 'SUBMITTED_BA';
1801: --
1802: -- OPEN c_user_status_id (l_pending_budget_stat);
1803: -- FETCH c_user_status_id INTO l_pending_budget_stat_id;
1802: -- OPEN c_user_status_id (l_pending_budget_stat);
1803: -- FETCH c_user_status_id INTO l_pending_budget_stat_id;
1804: -- CLOSE c_user_status_id;
1805:
1806: -- IF (AMS_DEBUG_HIGH_ON) THEN ams_utility_pvt.debug_message (' l_pending_budget_stat_id : '||l_pending_budget_stat_id); END IF;
1807: -- ELSIF Approval_required_flag( l_deliv_rec.setup_id, l_custom_setup_attr) = FND_API.g_false
1808: -- THEN
1809: -- l_pending_budget_stat_id :=l_deliv_rec.user_status_id;
1810: -- l_pending_budget_stat := l_deliv_rec.status_code;
1828: -- END IF;
1829: */
1830:
1831: IF (AMS_DEBUG_HIGH_ON) THEN
1832: ams_utility_pvt.debug_message (l_full_name || ' - status_code: ' || l_deliv_rec.status_code);
1833: END IF;
1834:
1835: UPDATE ams_deliverables_all_b
1836: SET last_update_date = SYSDATE,
1906: WHERE deliverable_id = l_deliv_rec.deliverable_id
1907: AND object_version_number = l_deliv_rec.object_version_number;
1908: IF (AMS_DEBUG_HIGH_ON) THEN
1909:
1910: ams_utility_pvt.debug_message ('values id '||l_deliv_rec.deliverable_id||' ver '||l_deliv_rec.object_version_number||l_pending_budget_stat_id||l_pending_budget_stat);
1911: END IF;
1912:
1913:
1914: IF (SQL%NOTFOUND) THEN
1913:
1914: IF (SQL%NOTFOUND) THEN
1915: IF (AMS_DEBUG_HIGH_ON) THEN
1916:
1917: ams_utility_pvt.debug_message (' SQL NOT FOUND ');
1918: END IF;
1919: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1920: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1921: FND_MSG_PUB.add;
1923: RAISE FND_API.g_exc_error;
1924: END IF;
1925: IF (AMS_DEBUG_HIGH_ON) THEN
1926:
1927: ams_utility_pvt.debug_message (l_full_name ||' end of update 1 ');
1928: END IF;
1929: UPDATE ams_deliverables_all_tl
1930: SET deliverable_name = l_deliv_rec.deliverable_name,
1931: description = l_deliv_rec.description,
2006: -- RAISE FND_API.g_exc_error;
2007: -- END IF;
2008: -- *****************************************
2009: --
2010: -- IF (AMS_DEBUG_HIGH_ON) THEN AMS_UTILITY_PVT.debug_message('after update the approval reqd flag gives : '||Approval_required_flag( l_deliv_rec.setup_id, 'BAPL')||' and fnd_api.g_true :'|| FND_API.g_true); END IF;
2011: -- IF Approval_required_flag( l_deliv_rec.setup_id, l_custom_setup_attr) = FND_API.g_true
2012: -- THEN
2013: --
2014: -- choang - 13-sep-2000
2016: --
2017: -- OPEN c_get_ob_ver_num(l_deliv_rec.deliverable_id);
2018: -- FETCH c_get_ob_ver_num INTO l_dummy;
2019: -- CLOSE c_get_ob_ver_num;
2020: -- IF (AMS_DEBUG_HIGH_ON) THEN ams_utility_pvt.debug_message (' OBJ VER NUM 2 '||l_dummy); END IF;
2021: --
2022: -- AMS_Approval_PVT.StartProcess (
2023: -- p_activity_type => l_approval_for,
2024: -- p_activity_id => l_deliv_rec.deliverable_id,
2026: -- p_object_version_number => l_dummy,
2027: -- p_orig_stat_id => l_orig_stat_rec.user_status_id,
2028: -- p_new_stat_id => l_new_budget_stat_id, --- l_pending_budget_stat_id,
2029: -- p_reject_stat_id => l_reject_status_id,
2030: -- p_requester_userid => AMS_Utility_PVT.get_resource_id (FND_GLOBAL.user_id),
2031: -- p_notes_from_requester => l_notes_from_requester,
2032: -- p_workflowprocess => l_workflowprocess,
2033: -- p_item_type => l_item_type
2034: -- );
2031: -- p_notes_from_requester => l_notes_from_requester,
2032: -- p_workflowprocess => l_workflowprocess,
2033: -- p_item_type => l_item_type
2034: -- );
2035: -- IF (AMS_DEBUG_HIGH_ON) THEN ams_utility_pvt.debug_message (' after the start process '); END IF;
2036: -- END IF; -- if approval needed / l_custom_setup_attr (BAPL/CAPL) exists
2037: -- END IF;
2038: */
2039: -----------------------------------------------------
2053: IF (AMS_DEBUG_HIGH_ON) THEN
2054:
2055:
2056:
2057: ams_utility_pvt.debug_message (l_full_name ||' end of update 2 ');
2058:
2059: END IF;
2060: -------------------- finish --------------------------
2061: IF FND_API.to_boolean(p_commit) THEN
2071: IF (AMS_DEBUG_HIGH_ON) THEN
2072:
2073:
2074:
2075: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2076:
2077: END IF;
2078:
2079: EXCEPTION
2111: p_data => x_error_tbl(i).message_text
2112: );
2113: IF (AMS_DEBUG_HIGH_ON) THEN
2114:
2115: AMS_Utility_PVT.debug_message(l_full_name ||'the error text is '||x_error_tbl(i).message_text);
2116: END IF;
2117: END LOOP;
2118:
2119: WHEN jtf_inv_item_creation_error THEN
2166:
2167: ----------------------- initialize --------------------
2168: IF (AMS_DEBUG_HIGH_ON) THEN
2169:
2170: AMS_Utility_PVT.debug_message(l_full_name||': start');
2171: END IF;
2172:
2173: IF FND_API.to_boolean(p_init_msg_list) THEN
2174: FND_MSG_PUB.initialize;
2187:
2188: ---------------------- validate ------------------------
2189: IF (AMS_DEBUG_HIGH_ON) THEN
2190:
2191: AMS_Utility_PVT.debug_message(l_full_name||': check items');
2192: END IF;
2193:
2194: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2195: check_deliv_items(
2205: END IF;
2206: END IF;
2207:
2208: IF (AMS_DEBUG_HIGH_ON) THEN
2209: AMS_Utility_PVT.debug_message(l_full_name||': check record');
2210: END IF;
2211:
2212: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record
2213: AND p_validation_mode = JTF_PLSQL_API.g_create
2251: IF (AMS_DEBUG_HIGH_ON) THEN
2252:
2253:
2254:
2255: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2256:
2257: END IF;
2258:
2259: EXCEPTION
2488: -- check if this deliverable_id is unique.
2489: IF p_validation_mode = JTF_PLSQL_API.g_create
2490: AND p_deliv_rec.deliverable_id IS NOT NULL
2491: THEN
2492: IF AMS_Utility_PVT.check_uniqueness(
2493: 'ams_deliverables_vl',
2494: 'deliverable_id = ' || p_deliv_rec.deliverable_id
2495: ) = FND_API.g_false
2496: THEN
2504: END IF;
2505: END IF;
2506:
2507: IF (AMS_DEBUG_HIGH_ON) THEN
2508: AMS_Utility_PVT.debug_message(': start of check create '||p_deliv_rec.deliverable_name||' -'||p_deliv_rec.version);
2509: END IF;
2510: -- Check if deliverable_name/version is unique.
2511: IF p_validation_mode = JTF_PLSQL_API.g_create
2512: THEN
2513: l_uniq_flag := 'Y';
2514: OPEN c_check_uniq(p_deliv_rec.deliverable_name, p_deliv_rec.version);
2515: FETCH c_check_uniq INTO l_uniq_flag;
2516: IF (AMS_DEBUG_HIGH_ON) THEN
2517: AMS_Utility_PVT.debug_message(' Flag '||l_uniq_flag);
2518: END IF;
2519: CLOSE c_check_uniq;
2520:
2521: IF (l_uniq_flag = 'N')
2530: END IF;
2531: END IF;
2532:
2533: IF (AMS_DEBUG_HIGH_ON) THEN
2534: AMS_Utility_PVT.debug_message(': start of check update ');
2535: END IF;
2536:
2537: -- check name and ver uniquiness in update mode
2538:
2542: OPEN c_check_uniq_u(p_deliv_rec.deliverable_name,p_deliv_rec.version,p_deliv_rec.deliverable_id);
2543: FETCH c_check_uniq_u INTO l_uniq_flag_u;
2544: CLOSE c_check_uniq_u;
2545: IF (AMS_DEBUG_HIGH_ON) THEN
2546: AMS_Utility_PVT.debug_message('val of l_uniq_flag_u'||l_uniq_flag_u);
2547: END IF;
2548:
2549: IF (l_uniq_flag_u = 'N')
2550: THEN
2558: END IF;
2559: END IF;
2560:
2561: --IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2562: -- l_valid_flag := AMS_Utility_PVT.check_uniqueness(
2563: -- 'ams_deliverabless_vl',
2564: -- 'deliverable_name = ''' || p_deliv_rec.deliverable_name ||
2565: -- '''AND version = ' || p_deliv_rec.version
2566: --IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2563: -- 'ams_deliverabless_vl',
2564: -- 'deliverable_name = ''' || p_deliv_rec.deliverable_name ||
2565: -- '''AND version = ' || p_deliv_rec.version
2566: --IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2567: -- l_valid_flag := AMS_Utility_PVT.check_uniqueness(
2568: -- 'ams_deliverabless_vl',
2569: -- 'deliverable_name = ''' || p_deliv_rec.deliverable_name ||
2570: -- '''AND version = ' || p_deliv_rec.version
2571: -- );
2569: -- 'deliverable_name = ''' || p_deliv_rec.deliverable_name ||
2570: -- '''AND version = ' || p_deliv_rec.version
2571: -- );
2572: --ELSE
2573: -- l_valid_flag := AMS_Utility_PVT.check_uniqueness(
2574: -- 'ams_deliverables_vl',
2575: -- 'deliverable_name = ''' || p_deliv_rec.deliverable_name ||
2576: -- ''' AND deliverable_id <> ' || p_deliv_rec.deliverable_id
2577: -- );
2609:
2610: --------------------- owner_user_id ------------------------
2611: IF p_deliv_rec.owner_user_id <> FND_API.g_miss_num
2612: THEN
2613: IF AMS_Utility_PVT.check_fk_exists(
2614: -- 'ams_jtf_rs_emp_v',
2615: 'jtf_rs_resource_extns',
2616: 'resource_id',
2617: p_deliv_rec.owner_user_id
2616: 'resource_id',
2617: p_deliv_rec.owner_user_id
2618: ) = FND_API.g_false
2619: THEN
2620: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_OWNER_USER_ID');
2621: x_return_status := FND_API.g_ret_sts_error;
2622: RETURN;
2623: END IF;
2624: END IF;
2625:
2626: --------------------- application_id ------------------------
2627: IF p_deliv_rec.application_id <> FND_API.g_miss_num
2628: THEN
2629: IF AMS_Utility_PVT.check_fk_exists(
2630: 'fnd_application',
2631: 'application_id',
2632: p_deliv_rec.application_id
2633: ) = FND_API.g_false
2631: 'application_id',
2632: p_deliv_rec.application_id
2633: ) = FND_API.g_false
2634: THEN
2635: AMS_Utility_PVT.Error_Message('AMS_API_NO_APPLICATION_ID');
2636: x_return_status := FND_API.g_ret_sts_error;
2637: RETURN;
2638: END IF;
2639: END IF;
2641: --------------------- category_type_id ------------------------
2642: IF p_deliv_rec.category_type_id <> FND_API.g_miss_num
2643: AND p_deliv_rec.category_type_id IS NOT NULL
2644: THEN
2645: IF AMS_Utility_PVT.check_fk_exists(
2646: 'ams_categories_b',
2647: 'category_id',
2648: p_deliv_rec.category_type_id
2649: ) = FND_API.g_false
2661: --------------------- category_sub_type_id ------------------------
2662: IF p_deliv_rec.category_sub_type_id <> FND_API.g_miss_num
2663: AND p_deliv_rec.category_sub_type_id IS NOT NULL
2664: THEN
2665: IF AMS_Utility_PVT.check_fk_exists(
2666: 'ams_categories_b',
2667: 'category_id',
2668: p_deliv_rec.category_sub_type_id
2669: ) = FND_API.g_false
2681: --------------------- custom_setup_id ----------------------------
2682: IF p_deliv_rec.setup_id <> FND_API.g_miss_num
2683: AND p_deliv_rec.setup_id IS NOT NULL
2684: THEN
2685: IF AMS_Utility_PVT.check_fk_exists(
2686: 'ams_custom_setups_b',
2687: 'custom_setup_id',
2688: p_deliv_rec.setup_id
2689: ) = FND_API.g_false
2702: --------------------- country_id ----------------------------
2703: IF p_deliv_rec.country_id <> FND_API.g_miss_num
2704: AND p_deliv_rec.country_id IS NOT NULL
2705: THEN
2706: IF AMS_Utility_PVT.check_fk_exists(
2707: 'jtf_loc_hierarchies_b',
2708: 'location_hierarchy_id',
2709: p_deliv_rec.country_id,
2710: AMS_Utility_PVT.g_number,
2706: IF AMS_Utility_PVT.check_fk_exists(
2707: 'jtf_loc_hierarchies_b',
2708: 'location_hierarchy_id',
2709: p_deliv_rec.country_id,
2710: AMS_Utility_PVT.g_number,
2711: NULL
2712: ) = FND_API.g_false
2713: THEN
2714: AMS_Utility_PVT.Error_Message('AMS_CSCH_BAD_COUNTRY');
2710: AMS_Utility_PVT.g_number,
2711: NULL
2712: ) = FND_API.g_false
2713: THEN
2714: AMS_Utility_PVT.Error_Message('AMS_CSCH_BAD_COUNTRY');
2715: x_return_status := FND_API.g_ret_sts_error;
2716: RETURN;
2717: END IF;
2718: END IF;
2720: --------------------- Currency_code ----------------------------
2721: IF p_deliv_rec.currency_code <> FND_API.g_miss_char
2722: AND p_deliv_rec.currency_code IS NOT NULL
2723: THEN
2724: IF AMS_Utility_PVT.check_fk_exists(
2725: 'fnd_currencies',
2726: 'currency_code',
2727: p_deliv_rec.currency_code,
2728: AMS_Utility_PVT.g_varchar2,
2724: IF AMS_Utility_PVT.check_fk_exists(
2725: 'fnd_currencies',
2726: 'currency_code',
2727: p_deliv_rec.currency_code,
2728: AMS_Utility_PVT.g_varchar2,
2729: NULL
2730: ) = FND_API.g_false
2731: THEN
2732: AMS_Utility_PVT.Error_Message('AMS_TRIG_INVALID_CURR');
2728: AMS_Utility_PVT.g_varchar2,
2729: NULL
2730: ) = FND_API.g_false
2731: THEN
2732: AMS_Utility_PVT.Error_Message('AMS_TRIG_INVALID_CURR');
2733: x_return_status := FND_API.g_ret_sts_error;
2734: RETURN;
2735: END IF;
2736: END IF;
2738: ---------------------Transaction_Currency_code ----------------------------
2739: IF p_deliv_rec.transaction_currency_code <> FND_API.g_miss_char
2740: AND p_deliv_rec.transaction_currency_code IS NOT NULL
2741: THEN
2742: IF AMS_Utility_PVT.check_fk_exists(
2743: 'fnd_currencies',
2744: 'currency_code',
2745: p_deliv_rec.transaction_currency_code,
2746: AMS_Utility_PVT.g_varchar2,
2742: IF AMS_Utility_PVT.check_fk_exists(
2743: 'fnd_currencies',
2744: 'currency_code',
2745: p_deliv_rec.transaction_currency_code,
2746: AMS_Utility_PVT.g_varchar2,
2747: NULL
2748: ) = FND_API.g_false
2749: THEN
2750: AMS_Utility_PVT.Error_Message('AMS_TRIG_INVALID_CURR');
2746: AMS_Utility_PVT.g_varchar2,
2747: NULL
2748: ) = FND_API.g_false
2749: THEN
2750: AMS_Utility_PVT.Error_Message('AMS_TRIG_INVALID_CURR');
2751: x_return_status := FND_API.g_ret_sts_error;
2752: RETURN;
2753: END IF;
2754: END IF;
2756: --------------------- Language ----------------------------
2757: IF p_deliv_rec.language_code <> FND_API.g_miss_char
2758: AND p_deliv_rec.language_code IS NOT NULL
2759: THEN
2760: IF AMS_Utility_PVT.check_fk_exists(
2761: 'fnd_languages',
2762: 'language_code',
2763: p_deliv_rec.language_code,
2764: AMS_Utility_PVT.g_varchar2,
2760: IF AMS_Utility_PVT.check_fk_exists(
2761: 'fnd_languages',
2762: 'language_code',
2763: p_deliv_rec.language_code,
2764: AMS_Utility_PVT.g_varchar2,
2765: NULL
2766: ) = FND_API.g_false
2767: THEN
2768: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_LANG');
2764: AMS_Utility_PVT.g_varchar2,
2765: NULL
2766: ) = FND_API.g_false
2767: THEN
2768: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_LANG');
2769: x_return_status := FND_API.g_ret_sts_error;
2770: RETURN;
2771: END IF;
2772: END IF;
2790: x_return_status := FND_API.g_ret_sts_success;
2791:
2792: ----------------------- status_code ------------------------
2793: IF p_deliv_rec.status_code <> FND_API.g_miss_char THEN
2794: IF AMS_Utility_PVT.check_lookup_exists(
2795: p_lookup_type => 'AMS_DELIV_STATUS',
2796: p_lookup_code => p_deliv_rec.status_code
2797: ) = FND_API.g_false
2798: THEN
2877: IF p_validation_mode = JTF_PLSQL_API.g_create
2878: THEN
2879: IF NVL(p_deliv_rec.inventory_flag,'N') = 'Y'
2880: THEN
2881: AMS_UTILITY_PVT.error_message('AMS_DELV_NO_INV_CRE');
2882: --- Inventory option can be enabled only after the deliverable is created.
2883: x_return_status := FND_API.g_ret_sts_error;
2884: RETURN;
2885: END IF;
2886: END IF;
2887:
2888: IF NVL(p_deliv_rec.can_fulfill_electronic_flag,'N') = NVL(p_deliv_rec.can_fulfill_physical_flag,'N')
2889: THEN
2890: AMS_UTILITY_PVT.error_message('AMS_DELV_PHY_OR_ELEC');
2891: --Please select this deliverable as physical or electronic.
2892: x_return_status := FND_API.g_ret_sts_error;
2893: RETURN;
2894: END IF;
2895:
2896: IF NVL(p_deliv_rec.can_fulfill_electronic_flag ,'N') ='Y'
2897: AND p_deliv_rec.non_inv_quantity_on_hand > 0
2898: THEN
2899: AMS_UTILITY_PVT.error_message('AMS_DELV_NO_QUAN_ELEC');
2900: --- Quantity cannot be tracked for electronic deliverable. Please change your options
2901: x_return_status := FND_API.g_ret_sts_error;
2902: RETURN;
2903: END IF;
2905: ----------------------- rollup_flag ------------------------
2906: IF p_deliv_rec.kit_flag <> FND_API.g_miss_char
2907: AND p_deliv_rec.kit_flag IS NOT NULL
2908: THEN
2909: IF AMS_Utility_PVT.is_Y_or_N(p_deliv_rec.kit_flag) = FND_API.g_false
2910: THEN
2911: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2912: THEN
2913: FND_MESSAGE.set_name('AMS', 'AMS_DELIV_BAD_KIT_FLAG');
2921:
2922: ------------ Electronic,Physical and Inventory Flag -----------------------
2923: IF (AMS_DEBUG_HIGH_ON) THEN
2924:
2925: AMS_UTILITY_PVT.debug_message(l_api_name||' : going to check the FLAGS');
2926: END IF;
2927:
2928: OPEN get_flags(p_deliv_rec.deliverable_id);
2929: FETCH get_flags INTO l_old_electronic_flag
2997: RETURN;
2998: END IF;
2999:
3000: IF (AMS_DEBUG_HIGH_ON) THEN
3001: AMS_UTILITY_PVT.debug_message(l_api_name||' :checking the electronic flag cross checking the quantity on hand of physical');
3002: END IF;
3003:
3004: IF (l_old_electronic_flag='N'
3005: AND p_deliv_rec.can_fulfill_electronic_flag = 'Y'
3013: RETURN;
3014: END IF;
3015:
3016: IF (AMS_DEBUG_HIGH_ON) THEN
3017: AMS_UTILITY_PVT.debug_message(l_api_name||':cross checking the quantity on hand of physical and inventory');
3018: END IF;
3019: IF (l_old_inventory_flag='N'
3020: AND p_deliv_rec.inventory_flag = 'Y'
3021: AND l_quantity_on_hand >0 )THEN
3030:
3031: --- before updating the physical and electronic flag checking whether it has kit parts
3032:
3033: IF (AMS_DEBUG_HIGH_ON) THEN
3034: AMS_UTILITY_PVT.debug_message(l_api_name||':cross checking whether it has kit parts');
3035: END IF;
3036:
3037: OPEN is_deliv_kit(p_deliv_rec.deliverable_id);
3038: FETCH is_deliv_kit INTO l_kits_check;
3321: RETURN;
3322: END IF;
3323:
3324: IF (AMS_DEBUG_HIGH_ON) THEN
3325: AMS_Utility_PVT.debug_message('Checking the budget lines :');
3326: END IF;
3327:
3328: check_budget_lines
3329: (
3335: RETURN;
3336: END IF;
3337:
3338: IF (AMS_DEBUG_HIGH_ON) THEN
3339: AMS_Utility_PVT.debug_message('Start Period Name:'|| p_deliv_rec.start_period_name );
3340: AMS_Utility_PVT.debug_message('End Period Name:'|| p_deliv_rec.end_period_name );
3341: AMS_Utility_PVT.debug_message('Deliverable Calendar:'|| p_deliv_rec.deliverable_calendar );
3342: END IF;
3343:
3336: END IF;
3337:
3338: IF (AMS_DEBUG_HIGH_ON) THEN
3339: AMS_Utility_PVT.debug_message('Start Period Name:'|| p_deliv_rec.start_period_name );
3340: AMS_Utility_PVT.debug_message('End Period Name:'|| p_deliv_rec.end_period_name );
3341: AMS_Utility_PVT.debug_message('Deliverable Calendar:'|| p_deliv_rec.deliverable_calendar );
3342: END IF;
3343:
3344: IF p_deliv_rec.start_period_name IS NOT NULL THEN
3337:
3338: IF (AMS_DEBUG_HIGH_ON) THEN
3339: AMS_Utility_PVT.debug_message('Start Period Name:'|| p_deliv_rec.start_period_name );
3340: AMS_Utility_PVT.debug_message('End Period Name:'|| p_deliv_rec.end_period_name );
3341: AMS_Utility_PVT.debug_message('Deliverable Calendar:'|| p_deliv_rec.deliverable_calendar );
3342: END IF;
3343:
3344: IF p_deliv_rec.start_period_name IS NOT NULL THEN
3345: OPEN c_period (p_deliv_rec.start_period_name);
3345: OPEN c_period (p_deliv_rec.start_period_name);
3346: FETCH c_period INTO l_dummy;
3347: IF c_period%NOTFOUND THEN
3348: x_return_status := FND_API.g_ret_sts_error;
3349: AMS_Utility_PVT.error_message ('AMS_CAMP_BAD_START_PERIOD');
3350: END IF;
3351: CLOSE c_period;
3352: END IF;
3353:
3355: OPEN c_period (p_deliv_rec.end_period_name);
3356: FETCH c_period INTO l_dummy;
3357: IF c_period%NOTFOUND THEN
3358: x_return_status := FND_API.g_ret_sts_error;
3359: AMS_Utility_PVT.error_message ('AMS_CAMP_BAD_END_PERIOD');
3360: END IF;
3361: CLOSE c_period;
3362: END IF;
3363:
3473: OPEN c_calendar (p_deliv_rec.deliverable_calendar);
3474: FETCH c_calendar INTO l_dummy;
3475: IF c_calendar%NOTFOUND THEN
3476: x_return_status := FND_API.g_ret_sts_error;
3477: AMS_Utility_PVT.error_message ('AMS_CAMP_NO_CAMPAIGN_CALENDAR');
3478: END IF;
3479: CLOSE c_calendar;
3480: END IF;
3481:
3496: -- before the end period end date
3497: IF l_start_rec.start_date IS NOT NULL AND l_end_rec.end_date IS NOT NULL THEN
3498: IF l_start_rec.start_date > l_end_rec.end_date THEN
3499: x_return_status := FND_API.g_ret_sts_error;
3500: AMS_Utility_PVT.error_message ('AMS_CAMP_BAD_PERIODS');
3501: END IF;
3502: END IF;
3503:
3504: --
3506: -- the given start period date range.
3507: IF l_start_rec.start_date IS NOT NULL THEN
3508: IF p_complete_rec.actual_avail_from_date < l_start_rec.start_date OR p_complete_rec.actual_avail_from_date > l_start_rec.end_date THEN
3509: x_return_status := FND_API.g_ret_sts_error;
3510: AMS_Utility_PVT.error_message ('AMS_DELV_OUT_START_DATE');
3511: END IF;
3512: END IF;
3513:
3514: --
3516: -- given end period date range.
3517: IF l_end_rec.start_date IS NOT NULL THEN
3518: IF p_complete_rec.actual_avail_to_date < l_end_rec.start_date OR p_complete_rec.actual_avail_to_date > l_end_rec.end_date THEN
3519: x_return_status := FND_API.g_ret_sts_error;
3520: AMS_Utility_PVT.error_message ('AMS_DELV_OUT_END_DATE');
3521: END IF;
3522: END IF;
3523:
3524:
3541:
3542: BEGIN
3543:
3544: IF (AMS_DEBUG_HIGH_ON) THEN
3545: AMS_Utility_PVT.debug_message('IN THE INIT_DELIV REC');
3546: END IF;
3547: x_deliv_rec.deliverable_id := FND_API.g_miss_num;
3548: x_deliv_rec.last_update_date := FND_API.g_miss_date;
3549: x_deliv_rec.last_updated_by := FND_API.g_miss_num;
3648: IF (AMS_DEBUG_HIGH_ON) THEN
3649:
3650:
3651:
3652: AMS_Utility_PVT.debug_message('complete_deliv_rec...');
3653:
3654: END IF;
3655:
3656: x_complete_rec := p_deliv_rec;
4009: --p_price_list_rec.end_date_active := p_deliv_rec.actual_avail_to_date;
4010: p_price_list_rec.operation :=QP_GLOBALS.G_OPR_CREATE;
4011:
4012: IF (AMS_DEBUG_HIGH_ON) THEN
4013: AMS_Utility_PVT.debug_message(l_full_name ||': create pricelist header...');
4014: END IF;
4015:
4016: QP_PRICE_LIST_PUB.Process_Price_List(
4017: p_api_version_number => 1.0,
4123: --p_price_list_line_tbl(1).list_price := p_deliv_rec.PRICELIST_LIST_PRICE;
4124: --end if;
4125:
4126: IF (AMS_DEBUG_HIGH_ON) THEN
4127: AMS_Utility_PVT.debug_message(l_full_name ||': create pricelist line...');
4128: END IF;
4129:
4130: QP_PRICE_LIST_PUB.Process_Price_List(
4131: p_api_version_number => 1.0,
4298: FETCH c_eveo INTO l_user_id, l_object_name;
4299: CLOSE c_eveo;
4300: END IF;
4301:
4302: l_object_type_name := AMS_UTILITY_PVT.get_lookup_meaning('AMS_SYS_ARC_QUALIFIER', l_master_object_type);
4303: AMS_approval_pvt.delvStartProcess(
4304: p_deliverable_id => p_deliverable_rec.deliverable_id,
4305: p_deliverable_name => p_deliverable_rec.deliverable_name,
4306: p_object_version_number => p_deliverable_rec.object_version_number,
4306: p_object_version_number => p_deliverable_rec.object_version_number,
4307: p_usedby_object_id => l_parent_deliv_rec.master_object_id,
4308: p_usedby_object_name => l_object_name,
4309: p_usedby_object_type_name => l_object_type_name,
4310: p_requester_userid => AMS_UTILITY_PVT.get_resource_id(FND_GLOBAL.USER_ID),
4311: p_deliverable_userid => l_user_id,
4312: p_workflowprocess => l_workflowprocess,
4313: p_item_type => l_item_type
4314: );
4326: l_user_id := p_deliverable_rec.owner_user_id;
4327: l_master_object_id := p_deliverable_rec.deliverable_id;
4328: l_object_name := p_deliverable_rec.deliverable_name;
4329:
4330: l_object_type_name := AMS_UTILITY_PVT.get_lookup_meaning('AMS_SYS_ARC_QUALIFIER', 'DELV');
4331:
4332: AMS_approval_pvt.delvStartProcess(
4333: p_deliverable_id => p_deliverable_rec.deliverable_id,
4334: p_deliverable_name => p_deliverable_rec.deliverable_name,
4335: p_object_version_number => p_deliverable_rec.object_version_number,
4336: p_usedby_object_id => l_master_object_id,
4337: p_usedby_object_name => l_object_name,
4338: p_usedby_object_type_name => l_object_type_name,
4339: p_requester_userid => AMS_UTILITY_PVT.get_resource_id(FND_GLOBAL.USER_ID),
4340: p_deliverable_userid => l_user_id,
4341: p_workflowprocess => l_workflowprocess,
4342: p_item_type => l_item_type
4343: );
4350: END IF;
4351: x_return_status := FND_API.g_ret_sts_unexp_error ;
4352: IF (AMS_DEBUG_HIGH_ON) THEN
4353:
4354: AMS_UTILITY_PVT.debug_message(l_full_name||' Unhandled Error');
4355: END IF;
4356: */
4357: END Deliverable_Cancellation;
4358:
4424: SELECT owner_user_id
4425: FROM ams_deliverables_all_b
4426: WHERE deliverable_id = deliv_id;
4427: l_owner_user_id NUMBER;
4428: l_resource_id NUMBER := AMS_UTILITY_PVT.get_resource_id(FND_GLOBAL.User_id);
4429:
4430: BEGIN
4431:
4432: x_return_status := FND_API.g_ret_sts_success;
4516: END IF;
4517: END IF;
4518: END IF;
4519: IF (AMS_DEBUG_HIGH_ON) THEN
4520: AMS_UTILITY_PVT.debug_message('check budget lines is checked with no errors');
4521: END IF;
4522: END check_budget_lines;
4523:
4524: -------------------------------------------------------------------------
4601: END IF;
4602:
4603:
4604: IF (AMS_DEBUG_HIGH_ON) THEN
4605: AMS_Utility_PVT.debug_message(l_full_name ||' orgID:'||p_deliv_rec.inventory_item_org_id);
4606: AMS_Utility_PVT.debug_message(l_full_name ||' itemNumber:'||p_deliv_rec.item_number);
4607: AMS_Utility_PVT.debug_message(l_full_name ||' kitFlag:'||p_deliv_rec.kit_Flag);
4608: AMS_Utility_PVT.debug_message(l_full_name ||' Price Profile :'||l_qp_profile);
4609: END IF;
4602:
4603:
4604: IF (AMS_DEBUG_HIGH_ON) THEN
4605: AMS_Utility_PVT.debug_message(l_full_name ||' orgID:'||p_deliv_rec.inventory_item_org_id);
4606: AMS_Utility_PVT.debug_message(l_full_name ||' itemNumber:'||p_deliv_rec.item_number);
4607: AMS_Utility_PVT.debug_message(l_full_name ||' kitFlag:'||p_deliv_rec.kit_Flag);
4608: AMS_Utility_PVT.debug_message(l_full_name ||' Price Profile :'||l_qp_profile);
4609: END IF;
4610:
4603:
4604: IF (AMS_DEBUG_HIGH_ON) THEN
4605: AMS_Utility_PVT.debug_message(l_full_name ||' orgID:'||p_deliv_rec.inventory_item_org_id);
4606: AMS_Utility_PVT.debug_message(l_full_name ||' itemNumber:'||p_deliv_rec.item_number);
4607: AMS_Utility_PVT.debug_message(l_full_name ||' kitFlag:'||p_deliv_rec.kit_Flag);
4608: AMS_Utility_PVT.debug_message(l_full_name ||' Price Profile :'||l_qp_profile);
4609: END IF;
4610:
4611: IF (p_deliv_rec.item_number IS NULL
4604: IF (AMS_DEBUG_HIGH_ON) THEN
4605: AMS_Utility_PVT.debug_message(l_full_name ||' orgID:'||p_deliv_rec.inventory_item_org_id);
4606: AMS_Utility_PVT.debug_message(l_full_name ||' itemNumber:'||p_deliv_rec.item_number);
4607: AMS_Utility_PVT.debug_message(l_full_name ||' kitFlag:'||p_deliv_rec.kit_Flag);
4608: AMS_Utility_PVT.debug_message(l_full_name ||' Price Profile :'||l_qp_profile);
4609: END IF;
4610:
4611: IF (p_deliv_rec.item_number IS NULL
4612: OR p_deliv_rec.item_number = FND_API.g_miss_char)
4648: l_item_rec.shippable_item_flag := 'Y';
4649:
4650: IF (AMS_DEBUG_HIGH_ON)
4651: THEN
4652: AMS_Utility_PVT.debug_message(l_full_name ||' Cal To Inv API ');
4653: AMS_Utility_PVT.debug_message(l_full_name ||' Org Id '||l_item_rec.organization_id);
4654: AMS_Utility_PVT.debug_message(l_full_name ||' Item Number '|| l_item_rec.item_number);
4655: AMS_Utility_PVT.debug_message(l_full_name ||'Desc '||l_item_rec.description );
4656: END IF;
4649:
4650: IF (AMS_DEBUG_HIGH_ON)
4651: THEN
4652: AMS_Utility_PVT.debug_message(l_full_name ||' Cal To Inv API ');
4653: AMS_Utility_PVT.debug_message(l_full_name ||' Org Id '||l_item_rec.organization_id);
4654: AMS_Utility_PVT.debug_message(l_full_name ||' Item Number '|| l_item_rec.item_number);
4655: AMS_Utility_PVT.debug_message(l_full_name ||'Desc '||l_item_rec.description );
4656: END IF;
4657:
4650: IF (AMS_DEBUG_HIGH_ON)
4651: THEN
4652: AMS_Utility_PVT.debug_message(l_full_name ||' Cal To Inv API ');
4653: AMS_Utility_PVT.debug_message(l_full_name ||' Org Id '||l_item_rec.organization_id);
4654: AMS_Utility_PVT.debug_message(l_full_name ||' Item Number '|| l_item_rec.item_number);
4655: AMS_Utility_PVT.debug_message(l_full_name ||'Desc '||l_item_rec.description );
4656: END IF;
4657:
4658: AMS_ITEM_OWNER_PVT.Create_item_owner(
4651: THEN
4652: AMS_Utility_PVT.debug_message(l_full_name ||' Cal To Inv API ');
4653: AMS_Utility_PVT.debug_message(l_full_name ||' Org Id '||l_item_rec.organization_id);
4654: AMS_Utility_PVT.debug_message(l_full_name ||' Item Number '|| l_item_rec.item_number);
4655: AMS_Utility_PVT.debug_message(l_full_name ||'Desc '||l_item_rec.description );
4656: END IF;
4657:
4658: AMS_ITEM_OWNER_PVT.Create_item_owner(
4659: P_Api_Version_Number => 1.0,
4679:
4680: */
4681:
4682: IF (AMS_DEBUG_HIGH_ON) THEN
4683: AMS_Utility_PVT.debug_message(l_full_name ||' Status of Inv API '||x_return_status);
4684: END IF;
4685:
4686: IF ( x_return_status <> FND_API.g_ret_sts_success
4687: OR x_item_return_status <> FND_API.g_ret_sts_success )
4713: END IF;
4714: END IF;
4715: IF (AMS_DEBUG_HIGH_ON) THEN
4716:
4717: AMS_Utility_PVT.debug_message(l_full_name ||'the error text is '||x_error_tbl(i).message_text);
4718: END IF;
4719: END LOOP;
4720: END IF;
4721: x_return_status := FND_API.g_ret_sts_error;
4768: IF (AMS_DEBUG_HIGH_ON) THEN
4769:
4770:
4771:
4772: AMS_UTILITY_PVT.debug_message('check budget lines is checked with no errors');
4773:
4774: END IF;
4775:
4776: END check_inactive_deliv;
4821: OR l_flag_rec.customer_order_flag = 'N'
4822: OR l_flag_rec.customer_order_enabled_flag = 'N'
4823: OR l_flag_rec.shippable_item_flag = 'N'
4824: THEN
4825: AMS_UTILITY_PVT.error_message('AMS_DELV_API_BAD_INV');
4826: --Program Error: Inventory item passed to the API ,should hava the value set to "Y" for the following flags collateral_flag
4827: --,costing_enabled_flag,customer_order_flag,customer_order_enabled_flag,shippable_item_flag.
4828: x_return_status := FND_API.g_ret_sts_error;
4829: RETURN;
4830: END IF;
4831: ELSE
4832: IF l_flag_rec.collateral_flag = 'N'
4833: THEN
4834: AMS_UTILITY_PVT.error_message('AMS_DELV_API_BAD_INV_COLL');
4835: --Program Error: Inventory item passed to the API ,should have the value set to "Y" for collateral_flag
4836: x_return_status := FND_API.g_ret_sts_error;
4837: RETURN;
4838: END IF;
4839: END IF;
4840:
4841:
4842: IF (AMS_DEBUG_HIGH_ON) THEN
4843: AMS_UTILITY_PVT.debug_message('check inv item is checked with no errors');
4844: END IF;
4845:
4846: END check_inv_item;
4847: