[Home] [Help]
39: ret_code NUMBER := 0;
40: l_err_text VARCHAR2(2000);
41:
42: l_commit VARCHAR2(1);
43: l_return_status VARCHAR2(1); -- := fnd_api.g_MISS_CHAR
44: l_msg_count NUMBER;
45: l_msg_data VARCHAR2(2000);
46: l_msg_name VARCHAR2(2000);
47: l_RETCODE NUMBER; -- G_SUCCESS, G_WARNING, G_ERROR
84:
85: --dbms_output.put_line('Enter INV_ITEM_CATALOG_ELE_PVT.Catalog_Grp_Ele_Val_Assignment');
86:
87: -- Check for call compatibility
88: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
89: l_api_name, G_PKG_NAME)
90: THEN
91: RAISE FND_API.g_EXC_UNEXPECTED_ERROR;
92: END IF;
87: -- Check for call compatibility
88: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
89: l_api_name, G_PKG_NAME)
90: THEN
91: RAISE FND_API.g_EXC_UNEXPECTED_ERROR;
92: END IF;
93:
94: --dbms_output.put_line('Before Initialize message list.');
95:
93:
94: --dbms_output.put_line('Before Initialize message list.');
95:
96: -- Initialize message list
97: IF (FND_API.To_Boolean (p_init_msg_list)) THEN
98: INV_ITEM_MSG.Initialize;
99: END IF;
100:
101: -- Define message context
102: Mctx.Package_Name := G_PKG_NAME;
103: Mctx.Procedure_Name := l_api_name;
104:
105: -- Initialize API return status to success
106: x_return_status := FND_API.g_RET_STS_SUCCESS;
107:
108: -- Check for NULL parameter values
109:
110: --dbms_output.put_line('Before IS NULL ; x_return_status = ' || x_return_status);
112: IF (( p_inventory_item_id IS NULL ) AND ( p_item_number IS NULL )) OR
113: ( p_element_name IS NULL )
114: THEN
115: INV_ITEM_MSG.Add_Error('INV_INVALID_ARG_NULL_VALUE');
116: RAISE FND_API.g_EXC_ERROR;
117: END IF;
118:
119: INV_ITEM_MSG.Debug(Mctx, 'Validate item');
120:
132:
133: IF ( ret_code = 0 ) THEN
134: l_inventory_item_id := flex_id;
135: IF ( p_inventory_item_id <> -999 AND p_inventory_item_id <> l_inventory_item_id) THEN
136: l_return_status := fnd_api.g_RET_STS_ERROR;
137: l_msg_name := 'INV_CEOI_ITEM_NUM_ID_MISMATCH';
138: l_token := 'VALUE1';
139: l_token_value := p_item_number;
140: l_column_name := 'ITEM_NUMBER';
142: l_token_value := p_inventory_item_id;
143: l_column_name := 'INVENTORY_ITEM_ID';
144: END IF;
145: ELSE
146: l_return_status := fnd_api.g_RET_STS_ERROR;
147: l_msg_name := 'INV_ICOI_INVALID_ITEM_NUMBER';
148: l_token := 'VALUE';
149: l_token_value := p_item_number;
150: l_column_name := 'ITEM_NUMBER';
150: l_column_name := 'ITEM_NUMBER';
151: END IF;
152:
153: END IF;
154: IF (l_return_status = fnd_api.g_RET_STS_ERROR) THEN
155: INV_ITEM_MSG.Add_Message
156: ( p_Msg_Name => l_msg_name
157: , p_token1 => l_token
158: , p_value1 => l_token_value
157: , p_token1 => l_token
158: , p_value1 => l_token_value
159: , p_column_name => l_column_name
160: );
161: RAISE FND_API.g_EXC_ERROR;
162: END IF;
163:
164: END IF;/*validation_level check***/
165:
169: FETCH org_item_exists_csr INTO l_org_id;
170: IF (org_item_exists_csr%NOTFOUND) THEN
171: CLOSE org_item_exists_csr;
172: INV_ITEM_MSG.Add_Error('INV_ORGITEM_ID_NOT_FOUND');
173: RAISE FND_API.g_EXC_ERROR;
174: END IF;
175: CLOSE org_item_exists_csr;
176:
177: --dbms_output.put_line('After OPEN org_item_exists_csr ; x_return_status = ' || x_return_status);
185:
186: IF (catalog_group_csr%NOTFOUND) THEN
187: CLOSE catalog_group_csr;
188: INV_ITEM_MSG.Add_Error('INV_CEOI_CAT_GRP_NOT_FOUND');
189: RAISE FND_API.g_EXC_ERROR;
190: END IF;
191: CLOSE catalog_group_csr;
192:
193: INV_ITEM_MSG.Debug(Mctx, 'Validate catalog Element name');
201: INV_ITEM_MSG.Add_Error
202: ( p_Msg_Name =>'INV_CEOI_CAT_GRP_ELE_NOT_FOUND'
203: , p_token => 'ELEMENT_NAME'
204: , p_value => p_element_name );
205: RAISE FND_API.g_EXC_ERROR;
206: END IF;
207: CLOSE catalog_group_element_csr;
208:
209: INV_ITEM_MSG.Debug(Mctx, 'Validate catalog Element value');
213: INV_ITEM_MSG.Add_Error
214: ( p_Msg_Name =>'INV_CEOI_CAT_GRP_ELE_VAL_LEN_M'
215: , p_token => 'ELEMENT_NAME'
216: , p_value => p_element_name );
217: RAISE FND_API.g_EXC_ERROR;
218: END IF;
219:
220: -- Bug: 4062893 Check whether user has EDIT privilege on item for EGO.
221: IF INV_EGO_REVISION_VALIDATE.Get_Process_Control ='EGO_ITEM_BULKLOAD'
240: INV_ITEM_MSG.Add_Error
241: ( p_Msg_Name =>'INV_IOI_ITEM_UPDATE_PRIV'
242: , p_token => 'VALUE'
243: , p_value => l_item_number );
244: RAISE FND_API.g_EXC_ERROR;
245: END IF;
246:
247: -- Update the production table
248:
266:
267: INV_ITEM_MSG.Debug(Mctx, 'end UPDATE mtl_descr_element_values');
268:
269: -- Standard check of p_commit
270: IF (FND_API.To_Boolean (p_commit)) THEN
271:
272: INV_ITEM_MSG.Debug(Mctx, 'before COMMIT WORK');
273: COMMIT WORK;
274: END IF;
281: INV_ITEM_MSG.Write_List (p_delete => TRUE);
282:
283: EXCEPTION
284:
285: WHEN FND_API.g_EXC_ERROR THEN
286: ROLLBACK TO Catalog_Grp_Ele_Val_Assign_PVT;
287:
288: x_return_status := FND_API.g_RET_STS_ERROR;
289: INV_ITEM_MSG.Count_And_Get
284:
285: WHEN FND_API.g_EXC_ERROR THEN
286: ROLLBACK TO Catalog_Grp_Ele_Val_Assign_PVT;
287:
288: x_return_status := FND_API.g_RET_STS_ERROR;
289: INV_ITEM_MSG.Count_And_Get
290: ( p_count => x_msg_count
291: , p_data => x_msg_data
292: );
290: ( p_count => x_msg_count
291: , p_data => x_msg_data
292: );
293:
294: WHEN FND_API.g_EXC_UNEXPECTED_ERROR THEN
295: ROLLBACK TO Catalog_Grp_Ele_Val_Assign_PVT;
296:
297: x_return_status := FND_API.g_RET_STS_UNEXP_ERROR;
298: INV_ITEM_MSG.Count_And_Get
293:
294: WHEN FND_API.g_EXC_UNEXPECTED_ERROR THEN
295: ROLLBACK TO Catalog_Grp_Ele_Val_Assign_PVT;
296:
297: x_return_status := FND_API.g_RET_STS_UNEXP_ERROR;
298: INV_ITEM_MSG.Count_And_Get
299: ( p_count => x_msg_count
300: , p_data => x_msg_data
301: );
302:
303: WHEN others THEN
304: ROLLBACK TO Catalog_Grp_Ele_Val_Assign_PVT;
305:
306: x_return_status := FND_API.g_RET_STS_UNEXP_ERROR;
307: INV_ITEM_MSG.Add_Unexpected_Error (Mctx, SQLERRM);
308:
309: INV_ITEM_MSG.Count_And_Get
310: ( p_count => x_msg_count