[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
397: l_deliv_rec.status_code := l_status_code;
398:
399:
400: IF (AMS_DEBUG_HIGH_ON) THEN
401: AMS_Utility_PVT.debug_message(l_full_name ||': The DBMS Org value**'||userenv('CLIENT_INFO')||'***');
402: END IF;
403:
404: IF (AMS_DEBUG_HIGH_ON) THEN
405: AMS_Utility_PVT.debug_message(l_full_name ||': The DBMS changed value**'||SUBSTRB(userenv('CLIENT_INFO'),1,10)||'***');
401: AMS_Utility_PVT.debug_message(l_full_name ||': The DBMS Org value**'||userenv('CLIENT_INFO')||'***');
402: END IF;
403:
404: IF (AMS_DEBUG_HIGH_ON) THEN
405: AMS_Utility_PVT.debug_message(l_full_name ||': The DBMS changed value**'||SUBSTRB(userenv('CLIENT_INFO'),1,10)||'***');
406: END IF;
407:
408:
409:
611: CLOSE c_get_custom_setup_id;
612:
613: -- create object attributes
614: IF (AMS_DEBUG_HIGH_ON) THEN
615: AMS_Utility_PVT.debug_message('calling AMS_ObjectAttribute_PVT.create_object_attributes');
616: END IF;
617:
618: AMS_ObjectAttribute_PVT.create_object_attributes(
619: l_api_version,
673: complete_deliv_rec(x_deliv_rec_from_init, x_deliv_rec);
674: IF (x_deliv_Rec.can_fulfill_electronic_flag = 'Y')
675: THEN
676: IF (AMS_DEBUG_HIGH_ON) THEN
677: AMS_Utility_PVT.debug_message('THE object version number is '||x_deliv_rec.object_version_number);
678: END IF;
679: x_deliv_Rec.object_version_number := 1;
680: update_deliverable
681: (p_api_version => 1.0,
689:
690: IF l_return_status <> FND_API.g_ret_sts_success THEN
691: IF (AMS_DEBUG_HIGH_ON) THEN
692:
693: AMS_Utility_PVT.debug_message(l_full_name||': in the exception of call to update');
694: END IF;
695: x_msg_count := l_msg_count;
696: x_msg_data := l_msg_data;
697: RAISE FND_API.G_EXC_ERROR;
699:
700:
701: -- attach seeded metrics
702: IF (AMS_DEBUG_HIGH_ON) THEN
703: AMS_Utility_PVT.debug_message('calling AMS_RefreshMetric_PVT.copy_seeded_metric');
704: END IF;
705:
706: AMS_RefreshMetric_PVT.copy_seeded_metric(
707: p_api_version => 1.0,
721:
722:
723: -- create task
724: IF (AMS_DEBUG_HIGH_ON) THEN
725: AMS_Utility_PVT.debug_message('calling AMS_TASK_PVT.Create_task');
726: END IF;
727:
728: IF SYSDATE > l_deliv_rec.forecasted_complete_date THEN
729: l_task_planned_start_date := l_deliv_rec.forecasted_complete_date;
759: x_task_id => x_task_id
760: );
761:
762: IF (AMS_DEBUG_HIGH_ON) THEN
763: AMS_UTILITY_PVT.debug_message('the return status from :'||l_return_status);
764: END IF;
765:
766: IF l_return_status = FND_API.g_ret_sts_error THEN
767: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
792: END IF;
793:
794: -- create task assignment
795: IF (AMS_DEBUG_HIGH_ON) THEN
796: AMS_Utility_PVT.debug_message('calling AMS_TASK_PVT.Create_Task_Assignment');
797: END IF;
798:
799: AMS_TASK_PVT.Create_Task_Assignment (
800: p_api_version => l_api_version,
900: p_data => x_msg_data
901: );
902:
903: IF (AMS_DEBUG_HIGH_ON) THEN
904: AMS_Utility_PVT.debug_message(l_full_name ||': end');
905: END IF;
906:
907: EXCEPTION
908:
974: --------------------- initialize -----------------------
975: SAVEPOINT delete_deliverable;
976:
977: IF (AMS_DEBUG_HIGH_ON) THEN
978: AMS_Utility_PVT.debug_message(l_full_name||': start');
979: END IF;
980:
981: IF FND_API.to_boolean(p_init_msg_list) THEN
982: FND_MSG_PUB.initialize;
994: x_return_status := FND_API.G_RET_STS_SUCCESS;
995:
996: ------------------------ delete ------------------------
997: IF (AMS_DEBUG_HIGH_ON) THEN
998: AMS_Utility_PVT.debug_message(l_full_name ||': delete');
999: END IF;
1000:
1001: DELETE FROM ams_deliverables_all_b
1002: WHERE deliverable_id = p_deliv_id
1034: p_data => x_msg_data
1035: );
1036:
1037: IF (AMS_DEBUG_HIGH_ON) THEN
1038: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1039: END IF;
1040:
1041: EXCEPTION
1042:
1122:
1123: -------------------- initialize ------------------------
1124: IF (AMS_DEBUG_HIGH_ON) THEN
1125:
1126: AMS_Utility_PVT.debug_message(l_full_name||': start');
1127: END IF;
1128:
1129: IF FND_API.to_boolean(p_init_msg_list) THEN
1130: FND_MSG_PUB.initialize;
1143:
1144: ------------------------ lock -------------------------
1145: IF (AMS_DEBUG_HIGH_ON) THEN
1146:
1147: AMS_Utility_PVT.debug_message(l_full_name||': lock');
1148: END IF;
1149:
1150: OPEN c_deliv_b;
1151: FETCH c_deliv_b INTO l_deliv_id;
1170: );
1171:
1172: EXCEPTION
1173:
1174: WHEN AMS_Utility_PVT.resource_locked THEN
1175: x_return_status := FND_API.g_ret_sts_error;
1176: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1177: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1178: FND_MSG_PUB.add;
1418: -------------------- initialize -------------------------
1419: SAVEPOINT update_deliverable;
1420:
1421: IF (AMS_DEBUG_HIGH_ON) THEN
1422: AMS_Utility_PVT.debug_message(l_full_name||': start');
1423: END IF;
1424:
1425: IF FND_API.to_boolean(p_init_msg_list) THEN
1426: FND_MSG_PUB.initialize;
1442:
1443: l_user_id := FND_GLOBAL.User_Id;
1444:
1445: IF (AMS_DEBUG_HIGH_ON) THEN
1446: AMS_Utility_PVT.debug_message(' CHECK ACCESS l_user_id is ' ||l_user_id );
1447: END IF;
1448: if l_user_id IS NOT NULL then
1449: open get_res_id(l_user_id);
1450: fetch get_res_id into l_res_id;
1459: end if;
1460: --01/24/02 added for access check bug #2764852 mukumar end
1461:
1462: IF (AMS_DEBUG_HIGH_ON) THEN
1463: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
1464: AMS_Utility_PVT.debug_message('l_deliv_rec.transaction_currency_code:'||l_deliv_rec.transaction_currency_code);
1465: AMS_Utility_PVT.debug_message('l_deliv_rec.currency_code:'||l_deliv_rec.currency_code);
1466: END IF;
1467:
1460: --01/24/02 added for access check bug #2764852 mukumar end
1461:
1462: IF (AMS_DEBUG_HIGH_ON) THEN
1463: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
1464: AMS_Utility_PVT.debug_message('l_deliv_rec.transaction_currency_code:'||l_deliv_rec.transaction_currency_code);
1465: AMS_Utility_PVT.debug_message('l_deliv_rec.currency_code:'||l_deliv_rec.currency_code);
1466: END IF;
1467:
1468:
1461:
1462: IF (AMS_DEBUG_HIGH_ON) THEN
1463: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
1464: AMS_Utility_PVT.debug_message('l_deliv_rec.transaction_currency_code:'||l_deliv_rec.transaction_currency_code);
1465: AMS_Utility_PVT.debug_message('l_deliv_rec.currency_code:'||l_deliv_rec.currency_code);
1466: END IF;
1467:
1468:
1469: IF l_deliv_rec.transaction_currency_code = FND_API.G_MISS_CHAR
1476: complete_deliv_rec(p_deliv_rec, l_deliv_rec);
1477:
1478: -- checking the values of periods and deliverable_calendar
1479: IF (AMS_DEBUG_HIGH_ON) THEN
1480: AMS_Utility_PVT.debug_message(l_full_name ||':checking the period name');
1481: END IF;
1482:
1483:
1484: IF ( (l_deliv_rec.start_period_name IS NOT NULL)
1536:
1537: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
1538:
1539: IF (AMS_DEBUG_HIGH_ON) THEN
1540: AMS_Utility_PVT.debug_message('check_deliv_record');
1541: END IF;
1542:
1543: check_deliv_record(
1544: p_deliv_rec => l_deliv_rec,
1713: -- abhola added ' AND (l_jtf_att_count > 0) ' in the IF clause
1714: -----------------------------------------------------------
1715: IF (AMS_DEBUG_HIGH_ON) THEN
1716:
1717: ams_utility_pvt.debug_message (' delv item id '||l_jtf_delv_item_id||' attacth '||l_jtf_att_count);
1718: END IF;
1719:
1720: IF ( (l_jtf_delv_item_id IS NOT NULL) AND (l_jtf_att_count > 0) ) THEN
1721: -- create jtf_amv_attachment for ITEM
1802: -- OPEN c_user_status_id (l_reject_status_code);
1803: FETCH c_user_status_id INTO l_reject_status_id;
1804: -- CLOSE c_user_status_id;
1805: --
1806: -- 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;
1807: -- IF Approval_required_flag( l_deliv_rec.setup_id, l_custom_setup_attr) = FND_API.g_true
1808: -- THEN
1809: -- -- choang - 13-sep-2000
1810: -- -- Change of approval process.
1808: -- THEN
1809: -- -- choang - 13-sep-2000
1810: -- -- Change of approval process.
1811: -- -- flip the status to pending budget approval
1812: -- IF (AMS_DEBUG_HIGH_ON) THEN ams_utility_pvt.debug_message (' Inside the if changing the status :'||l_dummy); END IF;
1813: -- -- l_pending_budget_stat := 'SUBMITTED_BA';
1814: --
1815: -- OPEN c_user_status_id (l_pending_budget_stat);
1816: -- FETCH c_user_status_id INTO l_pending_budget_stat_id;
1815: -- OPEN c_user_status_id (l_pending_budget_stat);
1816: -- FETCH c_user_status_id INTO l_pending_budget_stat_id;
1817: -- CLOSE c_user_status_id;
1818:
1819: -- IF (AMS_DEBUG_HIGH_ON) THEN ams_utility_pvt.debug_message (' l_pending_budget_stat_id : '||l_pending_budget_stat_id); END IF;
1820: -- ELSIF Approval_required_flag( l_deliv_rec.setup_id, l_custom_setup_attr) = FND_API.g_false
1821: -- THEN
1822: -- l_pending_budget_stat_id :=l_deliv_rec.user_status_id;
1823: -- l_pending_budget_stat := l_deliv_rec.status_code;
1841: -- END IF;
1842: */
1843:
1844: IF (AMS_DEBUG_HIGH_ON) THEN
1845: ams_utility_pvt.debug_message (l_full_name || ' - status_code: ' || l_deliv_rec.status_code);
1846: END IF;
1847:
1848: UPDATE ams_deliverables_all_b
1849: SET last_update_date = SYSDATE,
1919: WHERE deliverable_id = l_deliv_rec.deliverable_id
1920: AND object_version_number = l_deliv_rec.object_version_number;
1921: IF (AMS_DEBUG_HIGH_ON) THEN
1922:
1923: 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);
1924: END IF;
1925:
1926:
1927: IF (SQL%NOTFOUND) THEN
1926:
1927: IF (SQL%NOTFOUND) THEN
1928: IF (AMS_DEBUG_HIGH_ON) THEN
1929:
1930: ams_utility_pvt.debug_message (' SQL NOT FOUND ');
1931: END IF;
1932: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1933: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1934: FND_MSG_PUB.add;
1936: RAISE FND_API.g_exc_error;
1937: END IF;
1938: IF (AMS_DEBUG_HIGH_ON) THEN
1939:
1940: ams_utility_pvt.debug_message (l_full_name ||' end of update 1 ');
1941: END IF;
1942: UPDATE ams_deliverables_all_tl
1943: SET deliverable_name = l_deliv_rec.deliverable_name,
1944: description = l_deliv_rec.description,
2019: -- RAISE FND_API.g_exc_error;
2020: -- END IF;
2021: -- *****************************************
2022: --
2023: -- 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;
2024: -- IF Approval_required_flag( l_deliv_rec.setup_id, l_custom_setup_attr) = FND_API.g_true
2025: -- THEN
2026: --
2027: -- choang - 13-sep-2000
2029: --
2030: -- OPEN c_get_ob_ver_num(l_deliv_rec.deliverable_id);
2031: -- FETCH c_get_ob_ver_num INTO l_dummy;
2032: -- CLOSE c_get_ob_ver_num;
2033: -- IF (AMS_DEBUG_HIGH_ON) THEN ams_utility_pvt.debug_message (' OBJ VER NUM 2 '||l_dummy); END IF;
2034: --
2035: -- AMS_Approval_PVT.StartProcess (
2036: -- p_activity_type => l_approval_for,
2037: -- p_activity_id => l_deliv_rec.deliverable_id,
2039: -- p_object_version_number => l_dummy,
2040: -- p_orig_stat_id => l_orig_stat_rec.user_status_id,
2041: -- p_new_stat_id => l_new_budget_stat_id, --- l_pending_budget_stat_id,
2042: -- p_reject_stat_id => l_reject_status_id,
2043: -- p_requester_userid => AMS_Utility_PVT.get_resource_id (FND_GLOBAL.user_id),
2044: -- p_notes_from_requester => l_notes_from_requester,
2045: -- p_workflowprocess => l_workflowprocess,
2046: -- p_item_type => l_item_type
2047: -- );
2044: -- p_notes_from_requester => l_notes_from_requester,
2045: -- p_workflowprocess => l_workflowprocess,
2046: -- p_item_type => l_item_type
2047: -- );
2048: -- IF (AMS_DEBUG_HIGH_ON) THEN ams_utility_pvt.debug_message (' after the start process '); END IF;
2049: -- END IF; -- if approval needed / l_custom_setup_attr (BAPL/CAPL) exists
2050: -- END IF;
2051: */
2052: -----------------------------------------------------
2066: IF (AMS_DEBUG_HIGH_ON) THEN
2067:
2068:
2069:
2070: ams_utility_pvt.debug_message (l_full_name ||' end of update 2 ');
2071:
2072: END IF;
2073: -------------------- finish --------------------------
2074: IF FND_API.to_boolean(p_commit) THEN
2084: IF (AMS_DEBUG_HIGH_ON) THEN
2085:
2086:
2087:
2088: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2089:
2090: END IF;
2091:
2092: EXCEPTION
2124: p_data => x_error_tbl(i).message_text
2125: );
2126: IF (AMS_DEBUG_HIGH_ON) THEN
2127:
2128: AMS_Utility_PVT.debug_message(l_full_name ||'the error text is '||x_error_tbl(i).message_text);
2129: END IF;
2130: END LOOP;
2131:
2132: WHEN jtf_inv_item_creation_error THEN
2179:
2180: ----------------------- initialize --------------------
2181: IF (AMS_DEBUG_HIGH_ON) THEN
2182:
2183: AMS_Utility_PVT.debug_message(l_full_name||': start');
2184: END IF;
2185:
2186: IF FND_API.to_boolean(p_init_msg_list) THEN
2187: FND_MSG_PUB.initialize;
2200:
2201: ---------------------- validate ------------------------
2202: IF (AMS_DEBUG_HIGH_ON) THEN
2203:
2204: AMS_Utility_PVT.debug_message(l_full_name||': check items');
2205: END IF;
2206:
2207: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2208: check_deliv_items(
2218: END IF;
2219: END IF;
2220:
2221: IF (AMS_DEBUG_HIGH_ON) THEN
2222: AMS_Utility_PVT.debug_message(l_full_name||': check record');
2223: END IF;
2224:
2225: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record
2226: AND p_validation_mode = JTF_PLSQL_API.g_create
2264: IF (AMS_DEBUG_HIGH_ON) THEN
2265:
2266:
2267:
2268: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2269:
2270: END IF;
2271:
2272: EXCEPTION
2501: -- check if this deliverable_id is unique.
2502: IF p_validation_mode = JTF_PLSQL_API.g_create
2503: AND p_deliv_rec.deliverable_id IS NOT NULL
2504: THEN
2505: IF AMS_Utility_PVT.check_uniqueness(
2506: 'ams_deliverables_vl',
2507: 'deliverable_id = ' || p_deliv_rec.deliverable_id
2508: ) = FND_API.g_false
2509: THEN
2517: END IF;
2518: END IF;
2519:
2520: IF (AMS_DEBUG_HIGH_ON) THEN
2521: AMS_Utility_PVT.debug_message(': start of check create '||p_deliv_rec.deliverable_name||' -'||p_deliv_rec.version);
2522: END IF;
2523: -- Check if deliverable_name/version is unique.
2524: IF p_validation_mode = JTF_PLSQL_API.g_create
2525: THEN
2526: l_uniq_flag := 'Y';
2527: OPEN c_check_uniq(p_deliv_rec.deliverable_name, p_deliv_rec.version);
2528: FETCH c_check_uniq INTO l_uniq_flag;
2529: IF (AMS_DEBUG_HIGH_ON) THEN
2530: AMS_Utility_PVT.debug_message(' Flag '||l_uniq_flag);
2531: END IF;
2532: CLOSE c_check_uniq;
2533:
2534: IF (l_uniq_flag = 'N')
2543: END IF;
2544: END IF;
2545:
2546: IF (AMS_DEBUG_HIGH_ON) THEN
2547: AMS_Utility_PVT.debug_message(': start of check update ');
2548: END IF;
2549:
2550: -- check name and ver uniquiness in update mode
2551:
2555: OPEN c_check_uniq_u(p_deliv_rec.deliverable_name,p_deliv_rec.version,p_deliv_rec.deliverable_id);
2556: FETCH c_check_uniq_u INTO l_uniq_flag_u;
2557: CLOSE c_check_uniq_u;
2558: IF (AMS_DEBUG_HIGH_ON) THEN
2559: AMS_Utility_PVT.debug_message('val of l_uniq_flag_u'||l_uniq_flag_u);
2560: END IF;
2561:
2562: IF (l_uniq_flag_u = 'N')
2563: THEN
2571: END IF;
2572: END IF;
2573:
2574: --IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2575: -- l_valid_flag := AMS_Utility_PVT.check_uniqueness(
2576: -- 'ams_deliverabless_vl',
2577: -- 'deliverable_name = ''' || p_deliv_rec.deliverable_name ||
2578: -- '''AND version = ' || p_deliv_rec.version
2579: --IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2576: -- 'ams_deliverabless_vl',
2577: -- 'deliverable_name = ''' || p_deliv_rec.deliverable_name ||
2578: -- '''AND version = ' || p_deliv_rec.version
2579: --IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2580: -- l_valid_flag := AMS_Utility_PVT.check_uniqueness(
2581: -- 'ams_deliverabless_vl',
2582: -- 'deliverable_name = ''' || p_deliv_rec.deliverable_name ||
2583: -- '''AND version = ' || p_deliv_rec.version
2584: -- );
2582: -- 'deliverable_name = ''' || p_deliv_rec.deliverable_name ||
2583: -- '''AND version = ' || p_deliv_rec.version
2584: -- );
2585: --ELSE
2586: -- l_valid_flag := AMS_Utility_PVT.check_uniqueness(
2587: -- 'ams_deliverables_vl',
2588: -- 'deliverable_name = ''' || p_deliv_rec.deliverable_name ||
2589: -- ''' AND deliverable_id <> ' || p_deliv_rec.deliverable_id
2590: -- );
2622:
2623: --------------------- owner_user_id ------------------------
2624: IF p_deliv_rec.owner_user_id <> FND_API.g_miss_num
2625: THEN
2626: IF AMS_Utility_PVT.check_fk_exists(
2627: -- 'ams_jtf_rs_emp_v',
2628: 'jtf_rs_resource_extns',
2629: 'resource_id',
2630: p_deliv_rec.owner_user_id
2629: 'resource_id',
2630: p_deliv_rec.owner_user_id
2631: ) = FND_API.g_false
2632: THEN
2633: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_OWNER_USER_ID');
2634: x_return_status := FND_API.g_ret_sts_error;
2635: RETURN;
2636: END IF;
2637: END IF;
2638:
2639: --------------------- application_id ------------------------
2640: IF p_deliv_rec.application_id <> FND_API.g_miss_num
2641: THEN
2642: IF AMS_Utility_PVT.check_fk_exists(
2643: 'fnd_application',
2644: 'application_id',
2645: p_deliv_rec.application_id
2646: ) = FND_API.g_false
2644: 'application_id',
2645: p_deliv_rec.application_id
2646: ) = FND_API.g_false
2647: THEN
2648: AMS_Utility_PVT.Error_Message('AMS_API_NO_APPLICATION_ID');
2649: x_return_status := FND_API.g_ret_sts_error;
2650: RETURN;
2651: END IF;
2652: END IF;
2654: --------------------- category_type_id ------------------------
2655: IF p_deliv_rec.category_type_id <> FND_API.g_miss_num
2656: AND p_deliv_rec.category_type_id IS NOT NULL
2657: THEN
2658: IF AMS_Utility_PVT.check_fk_exists(
2659: 'ams_categories_b',
2660: 'category_id',
2661: p_deliv_rec.category_type_id
2662: ) = FND_API.g_false
2674: --------------------- category_sub_type_id ------------------------
2675: IF p_deliv_rec.category_sub_type_id <> FND_API.g_miss_num
2676: AND p_deliv_rec.category_sub_type_id IS NOT NULL
2677: THEN
2678: IF AMS_Utility_PVT.check_fk_exists(
2679: 'ams_categories_b',
2680: 'category_id',
2681: p_deliv_rec.category_sub_type_id
2682: ) = FND_API.g_false
2694: --------------------- custom_setup_id ----------------------------
2695: IF p_deliv_rec.setup_id <> FND_API.g_miss_num
2696: AND p_deliv_rec.setup_id IS NOT NULL
2697: THEN
2698: IF AMS_Utility_PVT.check_fk_exists(
2699: 'ams_custom_setups_b',
2700: 'custom_setup_id',
2701: p_deliv_rec.setup_id
2702: ) = FND_API.g_false
2715: --------------------- country_id ----------------------------
2716: IF p_deliv_rec.country_id <> FND_API.g_miss_num
2717: AND p_deliv_rec.country_id IS NOT NULL
2718: THEN
2719: IF AMS_Utility_PVT.check_fk_exists(
2720: 'jtf_loc_hierarchies_b',
2721: 'location_hierarchy_id',
2722: p_deliv_rec.country_id,
2723: AMS_Utility_PVT.g_number,
2719: IF AMS_Utility_PVT.check_fk_exists(
2720: 'jtf_loc_hierarchies_b',
2721: 'location_hierarchy_id',
2722: p_deliv_rec.country_id,
2723: AMS_Utility_PVT.g_number,
2724: NULL
2725: ) = FND_API.g_false
2726: THEN
2727: AMS_Utility_PVT.Error_Message('AMS_CSCH_BAD_COUNTRY');
2723: AMS_Utility_PVT.g_number,
2724: NULL
2725: ) = FND_API.g_false
2726: THEN
2727: AMS_Utility_PVT.Error_Message('AMS_CSCH_BAD_COUNTRY');
2728: x_return_status := FND_API.g_ret_sts_error;
2729: RETURN;
2730: END IF;
2731: END IF;
2733: --------------------- Currency_code ----------------------------
2734: IF p_deliv_rec.currency_code <> FND_API.g_miss_char
2735: AND p_deliv_rec.currency_code IS NOT NULL
2736: THEN
2737: IF AMS_Utility_PVT.check_fk_exists(
2738: 'fnd_currencies',
2739: 'currency_code',
2740: p_deliv_rec.currency_code,
2741: AMS_Utility_PVT.g_varchar2,
2737: IF AMS_Utility_PVT.check_fk_exists(
2738: 'fnd_currencies',
2739: 'currency_code',
2740: p_deliv_rec.currency_code,
2741: AMS_Utility_PVT.g_varchar2,
2742: NULL
2743: ) = FND_API.g_false
2744: THEN
2745: AMS_Utility_PVT.Error_Message('AMS_TRIG_INVALID_CURR');
2741: AMS_Utility_PVT.g_varchar2,
2742: NULL
2743: ) = FND_API.g_false
2744: THEN
2745: AMS_Utility_PVT.Error_Message('AMS_TRIG_INVALID_CURR');
2746: x_return_status := FND_API.g_ret_sts_error;
2747: RETURN;
2748: END IF;
2749: END IF;
2751: ---------------------Transaction_Currency_code ----------------------------
2752: IF p_deliv_rec.transaction_currency_code <> FND_API.g_miss_char
2753: AND p_deliv_rec.transaction_currency_code IS NOT NULL
2754: THEN
2755: IF AMS_Utility_PVT.check_fk_exists(
2756: 'fnd_currencies',
2757: 'currency_code',
2758: p_deliv_rec.transaction_currency_code,
2759: AMS_Utility_PVT.g_varchar2,
2755: IF AMS_Utility_PVT.check_fk_exists(
2756: 'fnd_currencies',
2757: 'currency_code',
2758: p_deliv_rec.transaction_currency_code,
2759: AMS_Utility_PVT.g_varchar2,
2760: NULL
2761: ) = FND_API.g_false
2762: THEN
2763: AMS_Utility_PVT.Error_Message('AMS_TRIG_INVALID_CURR');
2759: AMS_Utility_PVT.g_varchar2,
2760: NULL
2761: ) = FND_API.g_false
2762: THEN
2763: AMS_Utility_PVT.Error_Message('AMS_TRIG_INVALID_CURR');
2764: x_return_status := FND_API.g_ret_sts_error;
2765: RETURN;
2766: END IF;
2767: END IF;
2769: --------------------- Language ----------------------------
2770: IF p_deliv_rec.language_code <> FND_API.g_miss_char
2771: AND p_deliv_rec.language_code IS NOT NULL
2772: THEN
2773: IF AMS_Utility_PVT.check_fk_exists(
2774: 'fnd_languages',
2775: 'language_code',
2776: p_deliv_rec.language_code,
2777: AMS_Utility_PVT.g_varchar2,
2773: IF AMS_Utility_PVT.check_fk_exists(
2774: 'fnd_languages',
2775: 'language_code',
2776: p_deliv_rec.language_code,
2777: AMS_Utility_PVT.g_varchar2,
2778: NULL
2779: ) = FND_API.g_false
2780: THEN
2781: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_LANG');
2777: AMS_Utility_PVT.g_varchar2,
2778: NULL
2779: ) = FND_API.g_false
2780: THEN
2781: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_LANG');
2782: x_return_status := FND_API.g_ret_sts_error;
2783: RETURN;
2784: END IF;
2785: END IF;
2803: x_return_status := FND_API.g_ret_sts_success;
2804:
2805: ----------------------- status_code ------------------------
2806: IF p_deliv_rec.status_code <> FND_API.g_miss_char THEN
2807: IF AMS_Utility_PVT.check_lookup_exists(
2808: p_lookup_type => 'AMS_DELIV_STATUS',
2809: p_lookup_code => p_deliv_rec.status_code
2810: ) = FND_API.g_false
2811: THEN
2890: IF p_validation_mode = JTF_PLSQL_API.g_create
2891: THEN
2892: IF NVL(p_deliv_rec.inventory_flag,'N') = 'Y'
2893: THEN
2894: AMS_UTILITY_PVT.error_message('AMS_DELV_NO_INV_CRE');
2895: --- Inventory option can be enabled only after the deliverable is created.
2896: x_return_status := FND_API.g_ret_sts_error;
2897: RETURN;
2898: END IF;
2899: END IF;
2900:
2901: IF NVL(p_deliv_rec.can_fulfill_electronic_flag,'N') = NVL(p_deliv_rec.can_fulfill_physical_flag,'N')
2902: THEN
2903: AMS_UTILITY_PVT.error_message('AMS_DELV_PHY_OR_ELEC');
2904: --Please select this deliverable as physical or electronic.
2905: x_return_status := FND_API.g_ret_sts_error;
2906: RETURN;
2907: END IF;
2908:
2909: IF NVL(p_deliv_rec.can_fulfill_electronic_flag ,'N') ='Y'
2910: AND p_deliv_rec.non_inv_quantity_on_hand > 0
2911: THEN
2912: AMS_UTILITY_PVT.error_message('AMS_DELV_NO_QUAN_ELEC');
2913: --- Quantity cannot be tracked for electronic deliverable. Please change your options
2914: x_return_status := FND_API.g_ret_sts_error;
2915: RETURN;
2916: END IF;
2918: ----------------------- rollup_flag ------------------------
2919: IF p_deliv_rec.kit_flag <> FND_API.g_miss_char
2920: AND p_deliv_rec.kit_flag IS NOT NULL
2921: THEN
2922: IF AMS_Utility_PVT.is_Y_or_N(p_deliv_rec.kit_flag) = FND_API.g_false
2923: THEN
2924: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2925: THEN
2926: FND_MESSAGE.set_name('AMS', 'AMS_DELIV_BAD_KIT_FLAG');
2934:
2935: ------------ Electronic,Physical and Inventory Flag -----------------------
2936: IF (AMS_DEBUG_HIGH_ON) THEN
2937:
2938: AMS_UTILITY_PVT.debug_message(l_api_name||' : going to check the FLAGS');
2939: END IF;
2940:
2941: OPEN get_flags(p_deliv_rec.deliverable_id);
2942: FETCH get_flags INTO l_old_electronic_flag
3010: RETURN;
3011: END IF;
3012:
3013: IF (AMS_DEBUG_HIGH_ON) THEN
3014: AMS_UTILITY_PVT.debug_message(l_api_name||' :checking the electronic flag cross checking the quantity on hand of physical');
3015: END IF;
3016:
3017: IF (l_old_electronic_flag='N'
3018: AND p_deliv_rec.can_fulfill_electronic_flag = 'Y'
3026: RETURN;
3027: END IF;
3028:
3029: IF (AMS_DEBUG_HIGH_ON) THEN
3030: AMS_UTILITY_PVT.debug_message(l_api_name||':cross checking the quantity on hand of physical and inventory');
3031: END IF;
3032: IF (l_old_inventory_flag='N'
3033: AND p_deliv_rec.inventory_flag = 'Y'
3034: AND l_quantity_on_hand >0 )THEN
3043:
3044: --- before updating the physical and electronic flag checking whether it has kit parts
3045:
3046: IF (AMS_DEBUG_HIGH_ON) THEN
3047: AMS_UTILITY_PVT.debug_message(l_api_name||':cross checking whether it has kit parts');
3048: END IF;
3049:
3050: OPEN is_deliv_kit(p_deliv_rec.deliverable_id);
3051: FETCH is_deliv_kit INTO l_kits_check;
3334: RETURN;
3335: END IF;
3336:
3337: IF (AMS_DEBUG_HIGH_ON) THEN
3338: AMS_Utility_PVT.debug_message('Checking the budget lines :');
3339: END IF;
3340:
3341: check_budget_lines
3342: (
3348: RETURN;
3349: END IF;
3350:
3351: IF (AMS_DEBUG_HIGH_ON) THEN
3352: AMS_Utility_PVT.debug_message('Start Period Name:'|| p_deliv_rec.start_period_name );
3353: AMS_Utility_PVT.debug_message('End Period Name:'|| p_deliv_rec.end_period_name );
3354: AMS_Utility_PVT.debug_message('Deliverable Calendar:'|| p_deliv_rec.deliverable_calendar );
3355: END IF;
3356:
3349: END IF;
3350:
3351: IF (AMS_DEBUG_HIGH_ON) THEN
3352: AMS_Utility_PVT.debug_message('Start Period Name:'|| p_deliv_rec.start_period_name );
3353: AMS_Utility_PVT.debug_message('End Period Name:'|| p_deliv_rec.end_period_name );
3354: AMS_Utility_PVT.debug_message('Deliverable Calendar:'|| p_deliv_rec.deliverable_calendar );
3355: END IF;
3356:
3357: IF p_deliv_rec.start_period_name IS NOT NULL THEN
3350:
3351: IF (AMS_DEBUG_HIGH_ON) THEN
3352: AMS_Utility_PVT.debug_message('Start Period Name:'|| p_deliv_rec.start_period_name );
3353: AMS_Utility_PVT.debug_message('End Period Name:'|| p_deliv_rec.end_period_name );
3354: AMS_Utility_PVT.debug_message('Deliverable Calendar:'|| p_deliv_rec.deliverable_calendar );
3355: END IF;
3356:
3357: IF p_deliv_rec.start_period_name IS NOT NULL THEN
3358: OPEN c_period (p_deliv_rec.start_period_name);
3358: OPEN c_period (p_deliv_rec.start_period_name);
3359: FETCH c_period INTO l_dummy;
3360: IF c_period%NOTFOUND THEN
3361: x_return_status := FND_API.g_ret_sts_error;
3362: AMS_Utility_PVT.error_message ('AMS_CAMP_BAD_START_PERIOD');
3363: END IF;
3364: CLOSE c_period;
3365: END IF;
3366:
3368: OPEN c_period (p_deliv_rec.end_period_name);
3369: FETCH c_period INTO l_dummy;
3370: IF c_period%NOTFOUND THEN
3371: x_return_status := FND_API.g_ret_sts_error;
3372: AMS_Utility_PVT.error_message ('AMS_CAMP_BAD_END_PERIOD');
3373: END IF;
3374: CLOSE c_period;
3375: END IF;
3376:
3486: OPEN c_calendar (p_deliv_rec.deliverable_calendar);
3487: FETCH c_calendar INTO l_dummy;
3488: IF c_calendar%NOTFOUND THEN
3489: x_return_status := FND_API.g_ret_sts_error;
3490: AMS_Utility_PVT.error_message ('AMS_CAMP_NO_CAMPAIGN_CALENDAR');
3491: END IF;
3492: CLOSE c_calendar;
3493: END IF;
3494:
3509: -- before the end period end date
3510: IF l_start_rec.start_date IS NOT NULL AND l_end_rec.end_date IS NOT NULL THEN
3511: IF l_start_rec.start_date > l_end_rec.end_date THEN
3512: x_return_status := FND_API.g_ret_sts_error;
3513: AMS_Utility_PVT.error_message ('AMS_CAMP_BAD_PERIODS');
3514: END IF;
3515: END IF;
3516:
3517: --
3519: -- the given start period date range.
3520: IF l_start_rec.start_date IS NOT NULL THEN
3521: 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
3522: x_return_status := FND_API.g_ret_sts_error;
3523: AMS_Utility_PVT.error_message ('AMS_DELV_OUT_START_DATE');
3524: END IF;
3525: END IF;
3526:
3527: --
3529: -- given end period date range.
3530: IF l_end_rec.start_date IS NOT NULL THEN
3531: 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
3532: x_return_status := FND_API.g_ret_sts_error;
3533: AMS_Utility_PVT.error_message ('AMS_DELV_OUT_END_DATE');
3534: END IF;
3535: END IF;
3536:
3537:
3554:
3555: BEGIN
3556:
3557: IF (AMS_DEBUG_HIGH_ON) THEN
3558: AMS_Utility_PVT.debug_message('IN THE INIT_DELIV REC');
3559: END IF;
3560: x_deliv_rec.deliverable_id := FND_API.g_miss_num;
3561: x_deliv_rec.last_update_date := FND_API.g_miss_date;
3562: x_deliv_rec.last_updated_by := FND_API.g_miss_num;
3661: IF (AMS_DEBUG_HIGH_ON) THEN
3662:
3663:
3664:
3665: AMS_Utility_PVT.debug_message('complete_deliv_rec...');
3666:
3667: END IF;
3668:
3669: x_complete_rec := p_deliv_rec;
4022: --p_price_list_rec.end_date_active := p_deliv_rec.actual_avail_to_date;
4023: p_price_list_rec.operation :=QP_GLOBALS.G_OPR_CREATE;
4024:
4025: IF (AMS_DEBUG_HIGH_ON) THEN
4026: AMS_Utility_PVT.debug_message(l_full_name ||': create pricelist header...');
4027: END IF;
4028:
4029: QP_PRICE_LIST_PUB.Process_Price_List(
4030: p_api_version_number => 1.0,
4136: --p_price_list_line_tbl(1).list_price := p_deliv_rec.PRICELIST_LIST_PRICE;
4137: --end if;
4138:
4139: IF (AMS_DEBUG_HIGH_ON) THEN
4140: AMS_Utility_PVT.debug_message(l_full_name ||': create pricelist line...');
4141: END IF;
4142:
4143: QP_PRICE_LIST_PUB.Process_Price_List(
4144: p_api_version_number => 1.0,
4311: FETCH c_eveo INTO l_user_id, l_object_name;
4312: CLOSE c_eveo;
4313: END IF;
4314:
4315: l_object_type_name := AMS_UTILITY_PVT.get_lookup_meaning('AMS_SYS_ARC_QUALIFIER', l_master_object_type);
4316: AMS_approval_pvt.delvStartProcess(
4317: p_deliverable_id => p_deliverable_rec.deliverable_id,
4318: p_deliverable_name => p_deliverable_rec.deliverable_name,
4319: p_object_version_number => p_deliverable_rec.object_version_number,
4319: p_object_version_number => p_deliverable_rec.object_version_number,
4320: p_usedby_object_id => l_parent_deliv_rec.master_object_id,
4321: p_usedby_object_name => l_object_name,
4322: p_usedby_object_type_name => l_object_type_name,
4323: p_requester_userid => AMS_UTILITY_PVT.get_resource_id(FND_GLOBAL.USER_ID),
4324: p_deliverable_userid => l_user_id,
4325: p_workflowprocess => l_workflowprocess,
4326: p_item_type => l_item_type
4327: );
4339: l_user_id := p_deliverable_rec.owner_user_id;
4340: l_master_object_id := p_deliverable_rec.deliverable_id;
4341: l_object_name := p_deliverable_rec.deliverable_name;
4342:
4343: l_object_type_name := AMS_UTILITY_PVT.get_lookup_meaning('AMS_SYS_ARC_QUALIFIER', 'DELV');
4344:
4345: AMS_approval_pvt.delvStartProcess(
4346: p_deliverable_id => p_deliverable_rec.deliverable_id,
4347: p_deliverable_name => p_deliverable_rec.deliverable_name,
4348: p_object_version_number => p_deliverable_rec.object_version_number,
4349: p_usedby_object_id => l_master_object_id,
4350: p_usedby_object_name => l_object_name,
4351: p_usedby_object_type_name => l_object_type_name,
4352: p_requester_userid => AMS_UTILITY_PVT.get_resource_id(FND_GLOBAL.USER_ID),
4353: p_deliverable_userid => l_user_id,
4354: p_workflowprocess => l_workflowprocess,
4355: p_item_type => l_item_type
4356: );
4363: END IF;
4364: x_return_status := FND_API.g_ret_sts_unexp_error ;
4365: IF (AMS_DEBUG_HIGH_ON) THEN
4366:
4367: AMS_UTILITY_PVT.debug_message(l_full_name||' Unhandled Error');
4368: END IF;
4369: */
4370: END Deliverable_Cancellation;
4371:
4437: SELECT owner_user_id
4438: FROM ams_deliverables_all_b
4439: WHERE deliverable_id = deliv_id;
4440: l_owner_user_id NUMBER;
4441: l_resource_id NUMBER := AMS_UTILITY_PVT.get_resource_id(FND_GLOBAL.User_id);
4442:
4443: BEGIN
4444:
4445: x_return_status := FND_API.g_ret_sts_success;
4529: END IF;
4530: END IF;
4531: END IF;
4532: IF (AMS_DEBUG_HIGH_ON) THEN
4533: AMS_UTILITY_PVT.debug_message('check budget lines is checked with no errors');
4534: END IF;
4535: END check_budget_lines;
4536:
4537: -------------------------------------------------------------------------
4614: END IF;
4615:
4616:
4617: IF (AMS_DEBUG_HIGH_ON) THEN
4618: AMS_Utility_PVT.debug_message(l_full_name ||' orgID:'||p_deliv_rec.inventory_item_org_id);
4619: AMS_Utility_PVT.debug_message(l_full_name ||' itemNumber:'||p_deliv_rec.item_number);
4620: AMS_Utility_PVT.debug_message(l_full_name ||' kitFlag:'||p_deliv_rec.kit_Flag);
4621: AMS_Utility_PVT.debug_message(l_full_name ||' Price Profile :'||l_qp_profile);
4622: END IF;
4615:
4616:
4617: IF (AMS_DEBUG_HIGH_ON) THEN
4618: AMS_Utility_PVT.debug_message(l_full_name ||' orgID:'||p_deliv_rec.inventory_item_org_id);
4619: AMS_Utility_PVT.debug_message(l_full_name ||' itemNumber:'||p_deliv_rec.item_number);
4620: AMS_Utility_PVT.debug_message(l_full_name ||' kitFlag:'||p_deliv_rec.kit_Flag);
4621: AMS_Utility_PVT.debug_message(l_full_name ||' Price Profile :'||l_qp_profile);
4622: END IF;
4623:
4616:
4617: IF (AMS_DEBUG_HIGH_ON) THEN
4618: AMS_Utility_PVT.debug_message(l_full_name ||' orgID:'||p_deliv_rec.inventory_item_org_id);
4619: AMS_Utility_PVT.debug_message(l_full_name ||' itemNumber:'||p_deliv_rec.item_number);
4620: AMS_Utility_PVT.debug_message(l_full_name ||' kitFlag:'||p_deliv_rec.kit_Flag);
4621: AMS_Utility_PVT.debug_message(l_full_name ||' Price Profile :'||l_qp_profile);
4622: END IF;
4623:
4624: IF (p_deliv_rec.item_number IS NULL
4617: IF (AMS_DEBUG_HIGH_ON) THEN
4618: AMS_Utility_PVT.debug_message(l_full_name ||' orgID:'||p_deliv_rec.inventory_item_org_id);
4619: AMS_Utility_PVT.debug_message(l_full_name ||' itemNumber:'||p_deliv_rec.item_number);
4620: AMS_Utility_PVT.debug_message(l_full_name ||' kitFlag:'||p_deliv_rec.kit_Flag);
4621: AMS_Utility_PVT.debug_message(l_full_name ||' Price Profile :'||l_qp_profile);
4622: END IF;
4623:
4624: IF (p_deliv_rec.item_number IS NULL
4625: OR p_deliv_rec.item_number = FND_API.g_miss_char)
4661: l_item_rec.shippable_item_flag := 'Y';
4662:
4663: IF (AMS_DEBUG_HIGH_ON)
4664: THEN
4665: AMS_Utility_PVT.debug_message(l_full_name ||' Cal To Inv API ');
4666: AMS_Utility_PVT.debug_message(l_full_name ||' Org Id '||l_item_rec.organization_id);
4667: AMS_Utility_PVT.debug_message(l_full_name ||' Item Number '|| l_item_rec.item_number);
4668: AMS_Utility_PVT.debug_message(l_full_name ||'Desc '||l_item_rec.description );
4669: END IF;
4662:
4663: IF (AMS_DEBUG_HIGH_ON)
4664: THEN
4665: AMS_Utility_PVT.debug_message(l_full_name ||' Cal To Inv API ');
4666: AMS_Utility_PVT.debug_message(l_full_name ||' Org Id '||l_item_rec.organization_id);
4667: AMS_Utility_PVT.debug_message(l_full_name ||' Item Number '|| l_item_rec.item_number);
4668: AMS_Utility_PVT.debug_message(l_full_name ||'Desc '||l_item_rec.description );
4669: END IF;
4670:
4663: IF (AMS_DEBUG_HIGH_ON)
4664: THEN
4665: AMS_Utility_PVT.debug_message(l_full_name ||' Cal To Inv API ');
4666: AMS_Utility_PVT.debug_message(l_full_name ||' Org Id '||l_item_rec.organization_id);
4667: AMS_Utility_PVT.debug_message(l_full_name ||' Item Number '|| l_item_rec.item_number);
4668: AMS_Utility_PVT.debug_message(l_full_name ||'Desc '||l_item_rec.description );
4669: END IF;
4670:
4671: AMS_ITEM_OWNER_PVT.Create_item_owner(
4664: THEN
4665: AMS_Utility_PVT.debug_message(l_full_name ||' Cal To Inv API ');
4666: AMS_Utility_PVT.debug_message(l_full_name ||' Org Id '||l_item_rec.organization_id);
4667: AMS_Utility_PVT.debug_message(l_full_name ||' Item Number '|| l_item_rec.item_number);
4668: AMS_Utility_PVT.debug_message(l_full_name ||'Desc '||l_item_rec.description );
4669: END IF;
4670:
4671: AMS_ITEM_OWNER_PVT.Create_item_owner(
4672: P_Api_Version_Number => 1.0,
4692:
4693: */
4694:
4695: IF (AMS_DEBUG_HIGH_ON) THEN
4696: AMS_Utility_PVT.debug_message(l_full_name ||' Status of Inv API '||x_return_status);
4697: END IF;
4698:
4699: IF ( x_return_status <> FND_API.g_ret_sts_success
4700: OR x_item_return_status <> FND_API.g_ret_sts_success )
4726: END IF;
4727: END IF;
4728: IF (AMS_DEBUG_HIGH_ON) THEN
4729:
4730: AMS_Utility_PVT.debug_message(l_full_name ||'the error text is '||x_error_tbl(i).message_text);
4731: END IF;
4732: END LOOP;
4733: END IF;
4734: x_return_status := FND_API.g_ret_sts_error;
4781: IF (AMS_DEBUG_HIGH_ON) THEN
4782:
4783:
4784:
4785: AMS_UTILITY_PVT.debug_message('check budget lines is checked with no errors');
4786:
4787: END IF;
4788:
4789: END check_inactive_deliv;
4834: OR l_flag_rec.customer_order_flag = 'N'
4835: OR l_flag_rec.customer_order_enabled_flag = 'N'
4836: OR l_flag_rec.shippable_item_flag = 'N'
4837: THEN
4838: AMS_UTILITY_PVT.error_message('AMS_DELV_API_BAD_INV');
4839: --Program Error: Inventory item passed to the API ,should hava the value set to "Y" for the following flags collateral_flag
4840: --,costing_enabled_flag,customer_order_flag,customer_order_enabled_flag,shippable_item_flag.
4841: x_return_status := FND_API.g_ret_sts_error;
4842: RETURN;
4843: END IF;
4844: ELSE
4845: IF l_flag_rec.collateral_flag = 'N'
4846: THEN
4847: AMS_UTILITY_PVT.error_message('AMS_DELV_API_BAD_INV_COLL');
4848: --Program Error: Inventory item passed to the API ,should have the value set to "Y" for collateral_flag
4849: x_return_status := FND_API.g_ret_sts_error;
4850: RETURN;
4851: END IF;
4852: END IF;
4853:
4854:
4855: IF (AMS_DEBUG_HIGH_ON) THEN
4856: AMS_UTILITY_PVT.debug_message('check inv item is checked with no errors');
4857: END IF;
4858:
4859: END check_inv_item;
4860: