[Home] [Help]
1844: l_approval_status mtl_system_items_b.approval_status%TYPE;
1845: l_inventory_item_status_code mtl_system_items_b.inventory_item_status_code%TYPE;
1846: l_lifecycle_id mtl_system_items.lifecycle_id%TYPE;
1847: l_current_phase_id mtl_system_items.current_phase_id%TYPE;
1848: l_inv_debug_level NUMBER := INVPUTLI.get_debug_level;
1849: BEGIN
1850:
1851: IF INV_EGO_REVISION_VALIDATE.Get_Process_Control ='EGO_ITEM_BULKLOAD' THEN
1852:
1904: l_error_code := 'INV_IOI_ITEM_ORGASSIGN_PRIV';
1905: END IF;
1906: ELSE
1907: IF l_inv_debug_level IN(101, 102) THEN
1908: INVPUTLI.info('INVEGRVB.Secutiry skip for:' || cur.Inventory_Item_ID || '-' || cur.organization_id);
1909: END IF;
1910: END IF;
1911:
1912: IF NOT l_log_error AND NVL(l_approval_status,'A') <> 'A' THEN
1940: l_error_code := 'INV_IOI_ERR_ITEM_UPDATE_PRIV';--bug 11894684, replace INV_IOI_ERR
1941: END IF;
1942: ELSE
1943: IF l_inv_debug_level IN(101, 102) THEN
1944: INVPUTLI.info('INVEGRVB.Secutiry skip for:' || cur.Inventory_Item_ID || '-' || cur.organization_id);
1945: END IF;
1946: END IF;
1947:
1948: IF NOT l_log_error THEN
2103: --4676088
2104: --l_pk_column_name_value_pairs EGO_COL_NAME_VALUE_PAIR_ARRAY;
2105: --l_class_code_name_value_pairs EGO_COL_NAME_VALUE_PAIR_ARRAY;
2106:
2107: l_inv_debug_level NUMBER := INVPUTLI.get_debug_level; --Bug: 4667452
2108:
2109: /* vggarg bug 9039870 added to check for duplicate item roles when Item is created with NIR */
2110: CURSOR c_get_overlap_grantid
2111: (cp_inv_item_id IN NUMBER
2159:
2160: FOR cur in c_get_processed_records(P_Set_id) LOOP
2161: IF cur.transaction_type ='CREATE' THEN
2162: IF l_inv_debug_level IN(101, 102) THEN
2163: INVPUTLI.info('INVEGRVB.Insert_Grants_And_UserAttr: inserting i grants for an Item'||cur.Inventory_Item_ID);
2164: END IF;
2165: /* vggarg bug 9039870 added to check for duplicate item roles when Item is created with NIR */
2166: OPEN c_get_overlap_grantid
2167: (cp_inv_item_id => cur.Inventory_Item_ID
2193: ,X_SUCCESS => l_return_status
2194: ,X_ERRORCODE => l_msg_count);
2195:
2196: IF l_inv_debug_level IN(101, 102) THEN
2197: INVPUTLI.info('INVEGRVB.Insert_Grants_And_UserAttr: inserting Long description Userdefined Attribute.');
2198: END IF;
2199: /* vggarg bug 9039870 start added to check for duplicate item roles when Item is created with NIR */
2200: END IF;
2201: /* vggarg bug 9039870 end added to check for duplicate item roles when Item is created with NIR */
2235: NULL;
2236: END;
2237:
2238: IF l_inv_debug_level IN(101, 102) THEN
2239: INVPUTLI.info('EGO_USER_ATTRS_DATA_PVT.Perform_DML_From_Template: Attaching user defined attribs through template');
2240: END IF;
2241: l_pk_column_name_value_pairs := EGO_COL_NAME_VALUE_PAIR_ARRAY(
2242: EGO_COL_NAME_VALUE_PAIR_OBJ('INVENTORY_ITEM_ID',cur.INVENTORY_ITEM_ID)
2243: ,EGO_COL_NAME_VALUE_PAIR_OBJ('ORGANIZATION_ID',cur.ORGANIZATION_ID));
3028: l_nir_import_option VARCHAR2(1);
3029: l_ret_status VARCHAR2(1);
3030: l_msg_data VARCHAR2(1000);
3031: l_msg_count NUMBER;
3032: l_inv_debug_level NUMBER := INVPUTLI.get_debug_level; --Bug: 4667452
3033: l_rec_for_process NUMBER := 0;
3034: l_nir_reqd VARCHAR2(1) := 'N';
3035:
3036: BEGIN
3150: WHERE set_process_id = p_set_process_id
3151: AND process_flag = 5;
3152: ELSE
3153: IF l_inv_debug_level IN(101, 102) THEN
3154: INVPUTLI.info('INV_EGO_REVISION_VALIDATE.Create_New_Item_Request: Following exception from CM during NIR creation');
3155: INVPUTLI.info(l_msg_data);
3156: END IF;
3157:
3158: UPDATE mtl_system_items_interface
3151: AND process_flag = 5;
3152: ELSE
3153: IF l_inv_debug_level IN(101, 102) THEN
3154: INVPUTLI.info('INV_EGO_REVISION_VALIDATE.Create_New_Item_Request: Following exception from CM during NIR creation');
3155: INVPUTLI.info(l_msg_data);
3156: END IF;
3157:
3158: UPDATE mtl_system_items_interface
3159: SET process_flag = 3,
3167: END IF; -- Not called for UI create
3168: EXCEPTION
3169: WHEN OTHERS THEN
3170: IF l_inv_debug_level IN(101, 102) THEN
3171: INVPUTLI.info('INV_EGO_REVISION_VALIDATE.Create_New_Item_Request: Exception'||substr(SQLERRM,1,200));
3172: END IF;
3173:
3174: UPDATE mtl_system_items_interface
3175: SET process_flag = 3,
3216: l_error_table Error_Handler.Error_Tbl_Type;
3217: l_type_name VARCHAR2(1000);
3218: l_error boolean;
3219:
3220: l_inv_debug_level NUMBER := INVPUTLI.get_debug_level; --Bug: 4667452
3221: BEGIN
3222:
3223: IF (INSTR(NVL(G_PROCESS_CONTROL,'PLM_UI:N'),'PLM_UI:Y') = 0 ) THEN
3224:
3324: WHERE set_process_id= p_set_process_id;
3325:
3326:
3327: IF l_inv_debug_level IN(101, 102) THEN
3328: INVPUTLI.info('INV_EGO_REVISION_VALIDATE.Create_New_Item_Request: Exception'||substr(SQLERRM,1,200));
3329: END IF;
3330:
3331: dumm_status := INVPUOPI.mtl_log_interface_err(
3332: null,--i.organization_id,
3788: OUT l_nir_cancel_status; */
3789: EXCEPTION
3790: WHEN others THEN
3791: x_return_status := FND_API.G_RET_STS_ERROR;
3792: INVPUTLI.info('INV_EGO_REVISION_VALIDATE.Cancel_NIR: Exception'||substr(SQLERRM,1,200));
3793: END Cancel_New_Item_Request;
3794:
3795: /* Obsoleting this procedure and recreating it below with new NIR create signature for R12 FPC
3796: PROCEDURE Create_New_Item_Req_Upd ( p_item_catalog_group_id IN NUMBER,
3865: x_return_status := FND_API.G_RET_STS_ERROR;
3866: IF l_cursor_id IS NOT NULL THEN
3867: dbms_sql.close_cursor(l_cursor_id);
3868: END IF;
3869: INVPUTLI.info('INV_EGO_REVISION_VALIDATE.Create_New_Item_Request: Exception'||substr(SQLERRM,1,200));
3870: END Create_New_Item_Req_Upd; */
3871: -- End : 5258295
3872:
3873: PROCEDURE Create_New_Item_Req_Upd ( p_row_id IN ROWID,
3881: IS
3882: l_return_status VARCHAR2(1);
3883: l_err_text VARCHAR2(1000);
3884: l_msg_count NUMBER;
3885: l_inv_debug_level NUMBER := INVPUTLI.get_debug_level; --Bug: 4667452
3886: l_proc_flag NUMBER;
3887: BEGIN
3888: UPDATE MTL_SYSTEM_ITEMS_B
3889: SET INVENTORY_ITEM_STATUS_CODE='Pending'
3909: SET process_flag = p_process_flag
3910: WHERE rowid = p_row_id;
3911: ELSE
3912: IF l_inv_debug_level IN(101, 102) THEN
3913: INVPUTLI.info('INV_EGO_REVISION_VALIDATE.Create_New_Item_Request: Following exception from CM during NIR creation');
3914: INVPUTLI.info(l_err_text);
3915: END IF;
3916:
3917: UPDATE mtl_system_items_interface
3910: WHERE rowid = p_row_id;
3911: ELSE
3912: IF l_inv_debug_level IN(101, 102) THEN
3913: INVPUTLI.info('INV_EGO_REVISION_VALIDATE.Create_New_Item_Request: Following exception from CM during NIR creation');
3914: INVPUTLI.info(l_err_text);
3915: END IF;
3916:
3917: UPDATE mtl_system_items_interface
3918: SET process_flag = 3,
3923:
3924: EXCEPTION
3925: WHEN OTHERS THEN
3926: IF l_inv_debug_level IN(101, 102) THEN
3927: INVPUTLI.info('INV_EGO_REVISION_VALIDATE.Create_New_Item_Request: Exception'||substr(SQLERRM,1,200));
3928: END IF;
3929:
3930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3931:
3952:
3953: return;
3954: END IF;
3955:
3956: INVPUTLI.info('Start : INV_EGO_REVISION_VALIDATE.apply_default_uda_values');
3957: IF SUBSTR(NVL(G_PROCESS_CONTROL,'SSSSSS'),1,6) <> 'NO_NIR'
3958: AND NVL(G_PROCESS_CONTROL,'SSSSSS') NOT IN ('EGO_XL_IMPORT_ITEM1','EGO_XL_IMPORT_ITEM2','EGO_XL_IMPORT_ITEM3')
3959: THEN
3960: -- commit; /* Commented to fix Bug#7422423*/
3974:
3975: NULL; -- Bug 9336604
3976:
3977: END IF;
3978: INVPUTLI.info('End : INV_EGO_REVISION_VALIDATE.apply_default_uda_values');
3979: EXCEPTION
3980: WHEN OTHERS THEN
3981: NULL; -- Donot propogate any error message.
3982: INVPUTLI.info('INV_EGO_REVISION_VALIDATE.apply_default_uda_values: Exception'||substr(SQLERRM,1,200));
3978: INVPUTLI.info('End : INV_EGO_REVISION_VALIDATE.apply_default_uda_values');
3979: EXCEPTION
3980: WHEN OTHERS THEN
3981: NULL; -- Donot propogate any error message.
3982: INVPUTLI.info('INV_EGO_REVISION_VALIDATE.apply_default_uda_values: Exception'||substr(SQLERRM,1,200));
3983:
3984: END apply_default_uda_values;
3985:
3986: -- ============================================================================
4044: l_err_text VARCHAR2(1000);
4045: l_valid_icc NUMBER;
4046: l_style_icc_id NUMBER;
4047: l_sku_variant BOOLEAN;
4048: l_inv_debug_level NUMBER := INVPUTLI.get_debug_level; --Bug: 4667452
4049: l_error_exists NUMBER := 0;
4050: l_null_icc_id NUMBER := -1;
4051: l_sku_exists NUMBER;
4052: l_master_org NUMBER;
4069: FETCH c_get_existing_item_details INTO l_msi_style_item_flag,l_msi_style_item_id,l_msi_icc_id;
4070: CLOSE c_get_existing_item_details;
4071:
4072: IF l_inv_debug_level IN(101, 102) THEN
4073: INVPUTLI.info('MSII ICC ID ' ||l_msii_icc_id ||' MSI ICC ID ' ||l_msi_icc_id);
4074: END IF;
4075:
4076: IF l_msii_icc_id IS NULL THEN
4077: IF l_inv_debug_level IN(101, 102) THEN
4074: END IF;
4075:
4076: IF l_msii_icc_id IS NULL THEN
4077: IF l_inv_debug_level IN(101, 102) THEN
4078: INVPUTLI.info('INVEGRVB.validate_style_sku: ICC is mandatory');
4079: END IF;
4080: l_error_logged := INVPUOPI.mtl_log_interface_err( l_msii_org_id,
4081: l_User_Id,
4082: l_Login_Id,
4095: /* The Style/SKU status of the item cannot be updated - Sec 2.5.1 - Condition 1*/
4096: IF ((l_transaction_type = 'UPDATE') AND (l_msii_style_item_flag <> l_msi_style_item_flag))
4097: THEN
4098: IF l_inv_debug_level IN(101, 102) THEN
4099: INVPUTLI.info('INVEGRVB.validate_style_sku: Cannot update Style Item Flag ');
4100: END IF;
4101: l_error_logged := INVPUOPI.mtl_log_interface_err( l_msii_org_id,
4102: l_User_Id,
4103: l_Login_Id,
4116: /* The Style Item for a given SKU item cannot be updated - Sec 2.5.1 - Condition 1.1*/
4117: IF (l_transaction_type = 'UPDATE') AND (l_msii_style_item_id <> l_msi_style_item_id)
4118: THEN
4119: IF l_inv_debug_level IN(101, 102) THEN
4120: INVPUTLI.info('INVEGRVB.validate_style_sku: Cannot update Style Item Id ');
4121: END IF;
4122: l_error_logged := INVPUOPI.mtl_log_interface_err( l_msii_org_id,
4123: l_User_Id,
4124: l_Login_Id,
4136:
4137: --Bug 6161263: Adding validation to disallow the creation/updation of GDSN Syndicated Style items
4138: IF (l_msii_style_item_flag = 'Y' AND l_msii_gdsn_flag = 'Y') THEN
4139: IF l_inv_debug_level IN(101, 102) THEN
4140: INVPUTLI.info('INVEGRVB.validate_style_sku: Style Item cannot be GDSN SYndicated ');
4141: END IF;
4142: l_error_logged := INVPUOPI.mtl_log_interface_err( l_msii_org_id,
4143: l_User_Id,
4144: l_Login_Id,
4188: START WITH item_catalog_group_id = l_msii_icc_id );
4189:
4190: IF l_valid_icc = 0 THEN
4191: IF l_inv_debug_level IN(101, 102) THEN
4192: INVPUTLI.info('INVEGRVB.validate_style_sku: Invalid ICC ');
4193: END IF;
4194: l_error_logged := INVPUOPI.mtl_log_interface_err( l_msii_org_id,
4195: l_User_Id,
4196: l_Login_Id,
4244: END;
4245: /* SKUs and their corresponding Styles must belong to the same ICC - Sec 2.5.1 -Condition 3 */
4246: IF l_style_icc_id IS NULL OR l_style_icc_id <> l_msii_icc_id THEN
4247: IF l_inv_debug_level IN(101, 102) THEN
4248: INVPUTLI.info('INVEGRVB.validate_style_sku: SKU and Style must belong to same ICC ');
4249: END IF;
4250: l_error_logged := INVPUOPI.mtl_log_interface_err (l_msii_org_id,
4251: l_User_Id,
4252: l_Login_Id,
4332: RETURN(l_error_exists);
4333:
4334: EXCEPTION
4335: WHEN others THEN
4336: INVPUTLI.info('INVEGRVB.validate_style_sku: Exception '||SQLERRM);
4337: RETURN(SQLCODE);
4338:
4339: END validate_style_sku;
4340:
4370: EXCEPTION WHEN OTHERS THEN
4371: IF c_check_org_access%ISOPEN THEN
4372: CLOSE c_check_org_access;
4373: END IF;
4374: INVPUTLI.info('INVEGRVB.Check_Org_Access '||SQLERRM);
4375: RETURN(SQLCODE);
4376:
4377: END Check_Org_Access;
4378: