[Home] [Help]
2640: --Locks:
2641: -- None.
2642: --Function:
2643: -- Checks that if item id is not null, that it exists in
2644: -- MTL_SYSTEM_ITEMS table.
2645: --Parameters:
2646: --IN:
2647: --p_key
2648: -- Key used to access records in PO_SESSION_GT table.
2680: l_subscript_array := PO_R12_CAT_UPG_UTL.construct_subscript_array(p_lines_rec.item_id.COUNT);
2681:
2682: l_progress := '020';
2683: -- SQL What: Bulk validate item_id. If item id is not null, it has to exist
2684: -- in mtl_system_items table.
2685: -- Insert the error rows into GT table.
2686: -- SQL Why : It will be used to mark the record in plsql table as error.
2687: -- SQL Join: item_id
2688: FORALL i IN 1 .. p_lines_rec.item_id.COUNT
2703: AND p_lines_rec.line_type_id(i) is not null
2704: AND p_lines_rec.line_type_id(i)= PLT.line_type_id
2705: AND PLT.outside_operation_flag is not null
2706: AND NOT EXISTS (SELECT 1
2707: FROM MTL_SYSTEM_ITEMS MSI
2708: WHERE MSI.inventory_item_id = p_lines_rec.item_id(i)
2709: AND MSI.organization_id = PO_R12_CAT_UPG_PVT.g_sys.inv_org_id
2710: AND MSI.enabled_flag = 'Y'
2711: AND MSI.purchasing_item_flag = 'Y'
2840: p_lines_rec.action(i) IN (PO_R12_CAT_UPG_PVT.g_action_line_create, 'UPDATE')
2841: AND (p_lines_rec.item_description(i) is null OR
2842: (p_lines_rec.item_id(i) is not null AND
2843: EXISTS (SELECT 1
2844: FROM MTL_SYSTEM_ITEMS MSI
2845: WHERE MSI.inventory_item_id = p_lines_rec.item_id(i)
2846: AND MSI.organization_id = PO_R12_CAT_UPG_PVT.g_sys.inv_org_id
2847: AND MSI.allow_item_desc_update_flag = 'N'
2848: AND p_lines_rec.item_description(i) <> MSI.description)));
4025: INTO l_key
4026: FROM DUAL;
4027:
4028: l_progress := '020';
4029: -- if item id is not null, it has to exist in mtl_system_items table
4030: validate_item
4031: (
4032: p_key => l_key,
4033: p_lines_rec => p_lines_rec