28: ORDER BY sequence asc, lot_number asc;
29:
30: l_api_name CONSTANT VARCHAR2 (30) := 'GET_PENDING_LOT';
31: BEGIN
32: IF g_debug <= gme_debug.g_log_procedure THEN
33: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
34: END IF;
35: x_return_status := FND_API.G_RET_STS_SUCCESS;
36:
29:
30: l_api_name CONSTANT VARCHAR2 (30) := 'GET_PENDING_LOT';
31: BEGIN
32: IF g_debug <= gme_debug.g_log_procedure THEN
33: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
34: END IF;
35: x_return_status := FND_API.G_RET_STS_SUCCESS;
36:
37: OPEN cur_get_lots(p_material_detail_id);
37: OPEN cur_get_lots(p_material_detail_id);
38: FETCH cur_get_lots BULK COLLECT INTO x_pending_product_lot_tbl;
39: CLOSE cur_get_lots;
40:
41: IF g_debug <= gme_debug.g_log_procedure THEN
42: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
43: END IF;
44: EXCEPTION
45: WHEN OTHERS THEN
38: FETCH cur_get_lots BULK COLLECT INTO x_pending_product_lot_tbl;
39: CLOSE cur_get_lots;
40:
41: IF g_debug <= gme_debug.g_log_procedure THEN
42: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
43: END IF;
44: EXCEPTION
45: WHEN OTHERS THEN
46: IF g_debug <= gme_debug.g_log_unexpected THEN
42: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
43: END IF;
44: EXCEPTION
45: WHEN OTHERS THEN
46: IF g_debug <= gme_debug.g_log_unexpected THEN
47: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
48: END IF;
49: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
50: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
43: END IF;
44: EXCEPTION
45: WHEN OTHERS THEN
46: IF g_debug <= gme_debug.g_log_unexpected THEN
47: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
48: END IF;
49: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
50: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
51: END get_pending_lot;
68: l_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;
69: l_return_status VARCHAR2(1);
70: error_delete_row EXCEPTION;
71: BEGIN
72: IF g_debug <= gme_debug.g_log_procedure THEN
73: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
74: END IF;
75: x_return_status := FND_API.G_RET_STS_SUCCESS;
76:
69: l_return_status VARCHAR2(1);
70: error_delete_row EXCEPTION;
71: BEGIN
72: IF g_debug <= gme_debug.g_log_procedure THEN
73: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
74: END IF;
75: x_return_status := FND_API.G_RET_STS_SUCCESS;
76:
77: OPEN cur_get_pending_lot_qty(p_pending_lot_id);
116: WHERE pending_product_lot_id = p_pending_lot_id;
117: END IF; -- IF l_sec_qty IS NOT NULL THEN
118: END IF; -- IF p_quantity >= l_qty THEN
119:
120: IF g_debug <= gme_debug.g_log_procedure THEN
121: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
122: END IF;
123: EXCEPTION
124: --Bug#5186388
117: END IF; -- IF l_sec_qty IS NOT NULL THEN
118: END IF; -- IF p_quantity >= l_qty THEN
119:
120: IF g_debug <= gme_debug.g_log_procedure THEN
121: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
122: END IF;
123: EXCEPTION
124: --Bug#5186388
125: WHEN ERROR_DELETE_ROW THEN
124: --Bug#5186388
125: WHEN ERROR_DELETE_ROW THEN
126: x_return_status := l_return_status;
127: WHEN OTHERS THEN
128: IF g_debug <= gme_debug.g_log_unexpected THEN
129: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
130: END IF;
131: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
125: WHEN ERROR_DELETE_ROW THEN
126: x_return_status := l_return_status;
127: WHEN OTHERS THEN
128: IF g_debug <= gme_debug.g_log_unexpected THEN
129: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
130: END IF;
131: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
133: END relieve_pending_lot;
178:
179: l_api_name CONSTANT VARCHAR2 (30) := 'create_product_lot';
180: BEGIN
181:
182: IF g_debug <= gme_debug.g_log_procedure THEN
183: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
184: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_organization_id= '||p_organization_id);
185: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_inventory_item_id= '||p_inventory_item_id);
186: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_parent_lot= '||p_parent_lot);
179: l_api_name CONSTANT VARCHAR2 (30) := 'create_product_lot';
180: BEGIN
181:
182: IF g_debug <= gme_debug.g_log_procedure THEN
183: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
184: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_organization_id= '||p_organization_id);
185: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_inventory_item_id= '||p_inventory_item_id);
186: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_parent_lot= '||p_parent_lot);
187: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot count= '||p_mmli_tbl.count);
180: BEGIN
181:
182: IF g_debug <= gme_debug.g_log_procedure THEN
183: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
184: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_organization_id= '||p_organization_id);
185: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_inventory_item_id= '||p_inventory_item_id);
186: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_parent_lot= '||p_parent_lot);
187: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot count= '||p_mmli_tbl.count);
188: FOR i in 1..p_mmli_tbl.count LOOP
181:
182: IF g_debug <= gme_debug.g_log_procedure THEN
183: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
184: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_organization_id= '||p_organization_id);
185: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_inventory_item_id= '||p_inventory_item_id);
186: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_parent_lot= '||p_parent_lot);
187: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot count= '||p_mmli_tbl.count);
188: FOR i in 1..p_mmli_tbl.count LOOP
189: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot number= '||p_mmli_tbl (i).lot_number);
182: IF g_debug <= gme_debug.g_log_procedure THEN
183: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
184: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_organization_id= '||p_organization_id);
185: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_inventory_item_id= '||p_inventory_item_id);
186: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_parent_lot= '||p_parent_lot);
187: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot count= '||p_mmli_tbl.count);
188: FOR i in 1..p_mmli_tbl.count LOOP
189: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot number= '||p_mmli_tbl (i).lot_number);
190: END LOOP;
183: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
184: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_organization_id= '||p_organization_id);
185: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_inventory_item_id= '||p_inventory_item_id);
186: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_parent_lot= '||p_parent_lot);
187: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot count= '||p_mmli_tbl.count);
188: FOR i in 1..p_mmli_tbl.count LOOP
189: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot number= '||p_mmli_tbl (i).lot_number);
190: END LOOP;
191: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_generate_lot= '||p_generate_lot);
185: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_inventory_item_id= '||p_inventory_item_id);
186: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_parent_lot= '||p_parent_lot);
187: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot count= '||p_mmli_tbl.count);
188: FOR i in 1..p_mmli_tbl.count LOOP
189: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot number= '||p_mmli_tbl (i).lot_number);
190: END LOOP;
191: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_generate_lot= '||p_generate_lot);
192: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_generate_parent_lot= '||p_generate_parent_lot);
193: END IF;
187: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot count= '||p_mmli_tbl.count);
188: FOR i in 1..p_mmli_tbl.count LOOP
189: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot number= '||p_mmli_tbl (i).lot_number);
190: END LOOP;
191: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_generate_lot= '||p_generate_lot);
192: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_generate_parent_lot= '||p_generate_parent_lot);
193: END IF;
194:
195: x_return_status := FND_API.G_RET_STS_SUCCESS;
188: FOR i in 1..p_mmli_tbl.count LOOP
189: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot number= '||p_mmli_tbl (i).lot_number);
190: END LOOP;
191: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_generate_lot= '||p_generate_lot);
192: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_generate_parent_lot= '||p_generate_parent_lot);
193: END IF;
194:
195: x_return_status := FND_API.G_RET_STS_SUCCESS;
196:
205: END IF;
206: END LOOP;
207:
208: IF l_null_lot_number THEN
209: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
210: gme_debug.put_line (g_pkg_name||'.'||l_api_name
211: ||' p_generate is false and there are null lot numbers');
212: END IF;
213: RAISE error_null_lots;
206: END LOOP;
207:
208: IF l_null_lot_number THEN
209: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
210: gme_debug.put_line (g_pkg_name||'.'||l_api_name
211: ||' p_generate is false and there are null lot numbers');
212: END IF;
213: RAISE error_null_lots;
214: END IF;
243: ,x_msg_count => l_msg_count
244: ,x_msg_data => l_msg_data);
245:
246: IF x_return_status <> fnd_api.g_ret_sts_success THEN
247: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
248: gme_debug.put_line (g_pkg_name||'.'||l_api_name
249: ||'auto_gen_lot for parent returned '
250: || x_return_status);
251: END IF;
244: ,x_msg_data => l_msg_data);
245:
246: IF x_return_status <> fnd_api.g_ret_sts_success THEN
247: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
248: gme_debug.put_line (g_pkg_name||'.'||l_api_name
249: ||'auto_gen_lot for parent returned '
250: || x_return_status);
251: END IF;
252: RAISE error_gen_parent_lot;
251: END IF;
252: RAISE error_gen_parent_lot;
253: END IF;
254:
255: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
256: gme_debug.put_line (g_pkg_name||'.'||l_api_name
257: ||'auto_gen_lot for parent'
258: || ':'
259: || 'l_parent_lot= '
252: RAISE error_gen_parent_lot;
253: END IF;
254:
255: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
256: gme_debug.put_line (g_pkg_name||'.'||l_api_name
257: ||'auto_gen_lot for parent'
258: || ':'
259: || 'l_parent_lot= '
260: || l_parent_lot);
288: ,x_msg_count => l_msg_count
289: ,x_msg_data => l_msg_data);
290:
291: IF x_return_status <> fnd_api.g_ret_sts_success THEN
292: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
293: gme_debug.put_line (g_pkg_name||'.'||l_api_name
294: ||'auto_gen_lot'
295: || ':'
296: || 'l_gen_lot '
289: ,x_msg_data => l_msg_data);
290:
291: IF x_return_status <> fnd_api.g_ret_sts_success THEN
292: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
293: gme_debug.put_line (g_pkg_name||'.'||l_api_name
294: ||'auto_gen_lot'
295: || ':'
296: || 'l_gen_lot '
297: || x_return_status);
298: END IF;
299: RAISE error_gen_lot;
300: END IF;
301:
302: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
303: gme_debug.put_line (g_pkg_name||'.'||l_api_name
304: ||'auto_gen_lot'
305: || ':'
306: || 'l_gen_lot= '
299: RAISE error_gen_lot;
300: END IF;
301:
302: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
303: gme_debug.put_line (g_pkg_name||'.'||l_api_name
304: ||'auto_gen_lot'
305: || ':'
306: || 'l_gen_lot= '
307: || l_gen_lot);
354:
355: x_mmli_tbl (i).parent_lot_number := l_parent_lot;
356: END LOOP; -- FOR i IN 1 .. l_mmli_tbl.COUNT LOOP
357:
358: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
359: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
360: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot count= '||p_mmli_tbl.count);
361: FOR i in 1..p_mmli_tbl.count LOOP
362: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot number= '||p_mmli_tbl (i).lot_number);
355: x_mmli_tbl (i).parent_lot_number := l_parent_lot;
356: END LOOP; -- FOR i IN 1 .. l_mmli_tbl.COUNT LOOP
357:
358: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
359: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
360: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot count= '||p_mmli_tbl.count);
361: FOR i in 1..p_mmli_tbl.count LOOP
362: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot number= '||p_mmli_tbl (i).lot_number);
363: END LOOP;
356: END LOOP; -- FOR i IN 1 .. l_mmli_tbl.COUNT LOOP
357:
358: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
359: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
360: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot count= '||p_mmli_tbl.count);
361: FOR i in 1..p_mmli_tbl.count LOOP
362: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot number= '||p_mmli_tbl (i).lot_number);
363: END LOOP;
364: END IF;
358: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
359: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
360: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot count= '||p_mmli_tbl.count);
361: FOR i in 1..p_mmli_tbl.count LOOP
362: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' lot number= '||p_mmli_tbl (i).lot_number);
363: END LOOP;
364: END IF;
365:
366: EXCEPTION
369: WHEN error_not_prod OR error_lot_create OR error_gen_lot_no_create OR error_null_lots OR error_null_exp_dt THEN
370: x_return_status := fnd_api.g_ret_sts_error;
371: WHEN OTHERS THEN
372: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
373: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
374: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
375: END IF;
376: x_return_status := FND_API.g_ret_sts_unexp_error;
377:
370: x_return_status := fnd_api.g_ret_sts_error;
371: WHEN OTHERS THEN
372: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
373: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
374: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
375: END IF;
376: x_return_status := FND_API.g_ret_sts_unexp_error;
377:
378: END create_product_lot;
388: l_api_name CONSTANT VARCHAR2 (30) := 'create_pending_product_lot';
389:
390: BEGIN
391:
392: IF g_debug <= gme_debug.g_log_procedure THEN
393: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
394: END IF;
395: x_return_status := FND_API.G_RET_STS_SUCCESS;
396:
389:
390: BEGIN
391:
392: IF g_debug <= gme_debug.g_log_procedure THEN
393: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
394: END IF;
395: x_return_status := FND_API.G_RET_STS_SUCCESS;
396:
397: IF NOT gme_pending_product_lots_dbl.insert_row
401: END IF;
402:
403: x_pending_product_lots_rec := l_pp_lot_rec;
404:
405: IF g_debug <= gme_debug.g_log_procedure THEN
406: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
407: END IF;
408:
409: EXCEPTION
402:
403: x_pending_product_lots_rec := l_pp_lot_rec;
404:
405: IF g_debug <= gme_debug.g_log_procedure THEN
406: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
407: END IF;
408:
409: EXCEPTION
410: WHEN error_insert_row THEN
410: WHEN error_insert_row THEN
411: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
412: x_return_status := FND_API.g_ret_sts_unexp_error;
413: WHEN OTHERS THEN
414: IF g_debug <= gme_debug.g_log_unexpected THEN
415: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
416: END IF;
417: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
412: x_return_status := FND_API.g_ret_sts_unexp_error;
413: WHEN OTHERS THEN
414: IF g_debug <= gme_debug.g_log_unexpected THEN
415: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
416: END IF;
417: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
419: END create_pending_product_lot;
428: l_api_name CONSTANT VARCHAR2 (30) := 'update_pending_product_lot';
429:
430: BEGIN
431:
432: IF g_debug <= gme_debug.g_log_procedure THEN
433: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
434: END IF;
435: x_return_status := FND_API.G_RET_STS_SUCCESS;
436:
429:
430: BEGIN
431:
432: IF g_debug <= gme_debug.g_log_procedure THEN
433: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
434: END IF;
435: x_return_status := FND_API.G_RET_STS_SUCCESS;
436:
437: IF NOT gme_pending_product_lots_dbl.update_row
444: ,x_pending_product_lots_rec => x_pending_product_lots_rec) THEN
445: RAISE error_fetch_row;
446: END IF;
447:
448: IF g_debug <= gme_debug.g_log_procedure THEN
449: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
450: END IF;
451:
452: EXCEPTION
445: RAISE error_fetch_row;
446: END IF;
447:
448: IF g_debug <= gme_debug.g_log_procedure THEN
449: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
450: END IF;
451:
452: EXCEPTION
453: WHEN error_update_row OR error_fetch_row THEN
453: WHEN error_update_row OR error_fetch_row THEN
454: -- error message set in fetch routine
455: x_return_status := fnd_api.g_ret_sts_unexp_error;
456: WHEN OTHERS THEN
457: IF g_debug <= gme_debug.g_log_unexpected THEN
458: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
459: END IF;
460: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
454: -- error message set in fetch routine
455: x_return_status := fnd_api.g_ret_sts_unexp_error;
456: WHEN OTHERS THEN
457: IF g_debug <= gme_debug.g_log_unexpected THEN
458: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
459: END IF;
460: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
462: END update_pending_product_lot;
469: l_api_name CONSTANT VARCHAR2 (30) := 'delete_pending_product_lot';
470:
471: BEGIN
472:
473: IF g_debug <= gme_debug.g_log_procedure THEN
474: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
475: END IF;
476: x_return_status := FND_API.G_RET_STS_SUCCESS;
477:
470:
471: BEGIN
472:
473: IF g_debug <= gme_debug.g_log_procedure THEN
474: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
475: END IF;
476: x_return_status := FND_API.G_RET_STS_SUCCESS;
477:
478: IF NOT gme_pending_product_lots_dbl.delete_row
479: (p_pending_product_lots_rec => p_pending_product_lots_rec) THEN
480: RAISE error_delete_row;
481: END IF;
482:
483: IF g_debug <= gme_debug.g_log_procedure THEN
484: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
485: END IF;
486:
487: EXCEPTION
480: RAISE error_delete_row;
481: END IF;
482:
483: IF g_debug <= gme_debug.g_log_procedure THEN
484: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
485: END IF;
486:
487: EXCEPTION
488: WHEN error_delete_row THEN
488: WHEN error_delete_row THEN
489: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
490: x_return_status := FND_API.g_ret_sts_unexp_error;
491: WHEN OTHERS THEN
492: IF g_debug <= gme_debug.g_log_unexpected THEN
493: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
494: END IF;
495: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
489: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
490: x_return_status := FND_API.g_ret_sts_unexp_error;
491: WHEN OTHERS THEN
492: IF g_debug <= gme_debug.g_log_unexpected THEN
493: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
494: END IF;
495: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497: END delete_pending_product_lot;
510: l_pending_product_lots_rec gme_pending_product_lots%ROWTYPE;
511:
512: error_delete_row EXCEPTION;
513: BEGIN
514: IF g_debug <= gme_debug.g_log_procedure THEN
515: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
516: END IF;
517: x_return_status := FND_API.G_RET_STS_SUCCESS;
518:
511:
512: error_delete_row EXCEPTION;
513: BEGIN
514: IF g_debug <= gme_debug.g_log_procedure THEN
515: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
516: END IF;
517: x_return_status := FND_API.G_RET_STS_SUCCESS;
518:
519: IF p_material_detail_id IS NOT NULL THEN
530: END LOOP;
531: CLOSE c_get_pending_lots;
532: END IF; /* p_material_detail_id IS NOT NULL*/
533:
534: IF g_debug <= gme_debug.g_log_procedure THEN
535: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
536: END IF;
537:
538: EXCEPTION
531: CLOSE c_get_pending_lots;
532: END IF; /* p_material_detail_id IS NOT NULL*/
533:
534: IF g_debug <= gme_debug.g_log_procedure THEN
535: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
536: END IF;
537:
538: EXCEPTION
539: WHEN error_delete_row THEN
539: WHEN error_delete_row THEN
540: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
541: x_return_status := FND_API.g_ret_sts_unexp_error;
542: WHEN OTHERS THEN
543: IF g_debug <= gme_debug.g_log_unexpected THEN
544: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
545: END IF;
546: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
540: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
541: x_return_status := FND_API.g_ret_sts_unexp_error;
542: WHEN OTHERS THEN
543: IF g_debug <= gme_debug.g_log_unexpected THEN
544: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
545: END IF;
546: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
548: END delete_pending_product_lot;
561: error_get_item_rec EXCEPTION;
562:
563: BEGIN
564:
565: IF g_debug <= gme_debug.g_log_procedure THEN
566: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
567: END IF;
568: x_return_status := FND_API.G_RET_STS_SUCCESS;
569:
562:
563: BEGIN
564:
565: IF g_debug <= gme_debug.g_log_procedure THEN
566: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
567: END IF;
568: x_return_status := FND_API.G_RET_STS_SUCCESS;
569:
570: gme_material_detail_pvt.get_item_rec
595: RAISE error_no_lot_create;
596: END IF;
597: END IF;
598:
599: IF g_debug <= gme_debug.g_log_procedure THEN
600: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
601: END IF;
602:
603: EXCEPTION
596: END IF;
597: END IF;
598:
599: IF g_debug <= gme_debug.g_log_procedure THEN
600: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
601: END IF;
602:
603: EXCEPTION
604: WHEN error_not_lot_control OR error_no_lot_create THEN
603: EXCEPTION
604: WHEN error_not_lot_control OR error_no_lot_create THEN
605: x_return_status := fnd_api.g_ret_sts_error;
606: WHEN OTHERS THEN
607: IF g_debug <= gme_debug.g_log_unexpected THEN
608: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
609: END IF;
610: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
604: WHEN error_not_lot_control OR error_no_lot_create THEN
605: x_return_status := fnd_api.g_ret_sts_error;
606: WHEN OTHERS THEN
607: IF g_debug <= gme_debug.g_log_unexpected THEN
608: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
609: END IF;
610: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612: END validate_material_for_create;
624:
625: l_sequ NUMBER;
626:
627: BEGIN
628: IF g_debug <= gme_debug.g_log_procedure THEN
629: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
630: END IF;
631: x_return_status := FND_API.G_RET_STS_SUCCESS;
632:
625: l_sequ NUMBER;
626:
627: BEGIN
628: IF g_debug <= gme_debug.g_log_procedure THEN
629: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
630: END IF;
631: x_return_status := FND_API.G_RET_STS_SUCCESS;
632:
633: OPEN cur_get_sequ(p_matl_dtl_id);
633: OPEN cur_get_sequ(p_matl_dtl_id);
634: FETCH cur_get_sequ INTO l_sequ;
635: CLOSE cur_get_sequ;
636:
637: IF g_debug <= gme_debug.g_log_procedure THEN
638: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
639: END IF;
640:
641: RETURN NVL(l_sequ, 0);
634: FETCH cur_get_sequ INTO l_sequ;
635: CLOSE cur_get_sequ;
636:
637: IF g_debug <= gme_debug.g_log_procedure THEN
638: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
639: END IF;
640:
641: RETURN NVL(l_sequ, 0);
642:
641: RETURN NVL(l_sequ, 0);
642:
643: EXCEPTION
644: WHEN OTHERS THEN
645: IF g_debug <= gme_debug.g_log_unexpected THEN
646: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
647: END IF;
648: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
642:
643: EXCEPTION
644: WHEN OTHERS THEN
645: IF g_debug <= gme_debug.g_log_unexpected THEN
646: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
647: END IF;
648: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
650: END get_last_sequence;
677: l_sequence NUMBER;
678:
679: BEGIN
680:
681: IF g_debug <= gme_debug.g_log_procedure THEN
682: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
683: END IF;
684: x_return_status := FND_API.G_RET_STS_SUCCESS;
685:
678:
679: BEGIN
680:
681: IF g_debug <= gme_debug.g_log_procedure THEN
682: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
683: END IF;
684: x_return_status := FND_API.G_RET_STS_SUCCESS;
685:
686: x_pending_product_lots_rec.batch_id := p_material_detail_rec.batch_id;
817: LAST_UPDATED_BY
818: LAST_UPDATE_LOGIN
819: */
820:
821: IF g_debug <= gme_debug.g_log_procedure THEN
822: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
823: END IF;
824:
825: EXCEPTION
818: LAST_UPDATE_LOGIN
819: */
820:
821: IF g_debug <= gme_debug.g_log_procedure THEN
822: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
823: END IF;
824:
825: EXCEPTION
826: WHEN error_validate OR error_create_lot OR error_get_item THEN
825: EXCEPTION
826: WHEN error_validate OR error_create_lot OR error_get_item THEN
827: NULL;
828: WHEN OTHERS THEN
829: IF g_debug <= gme_debug.g_log_unexpected THEN
830: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
831: END IF;
832: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
826: WHEN error_validate OR error_create_lot OR error_get_item THEN
827: NULL;
828: WHEN OTHERS THEN
829: IF g_debug <= gme_debug.g_log_unexpected THEN
830: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
831: END IF;
832: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
834: END validate_record_for_create;
841: l_api_name CONSTANT VARCHAR2 (30) := 'validate_material_for_update';
842:
843: BEGIN
844:
845: IF g_debug <= gme_debug.g_log_procedure THEN
846: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
847: END IF;
848: x_return_status := FND_API.G_RET_STS_SUCCESS;
849:
842:
843: BEGIN
844:
845: IF g_debug <= gme_debug.g_log_procedure THEN
846: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
847: END IF;
848: x_return_status := FND_API.G_RET_STS_SUCCESS;
849:
850: IF g_debug <= gme_debug.g_log_procedure THEN
846: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
847: END IF;
848: x_return_status := FND_API.G_RET_STS_SUCCESS;
849:
850: IF g_debug <= gme_debug.g_log_procedure THEN
851: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
852: END IF;
853:
854: EXCEPTION
847: END IF;
848: x_return_status := FND_API.G_RET_STS_SUCCESS;
849:
850: IF g_debug <= gme_debug.g_log_procedure THEN
851: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
852: END IF;
853:
854: EXCEPTION
855: WHEN OTHERS THEN
852: END IF;
853:
854: EXCEPTION
855: WHEN OTHERS THEN
856: IF g_debug <= gme_debug.g_log_unexpected THEN
857: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
858: END IF;
859: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
853:
854: EXCEPTION
855: WHEN OTHERS THEN
856: IF g_debug <= gme_debug.g_log_unexpected THEN
857: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
858: END IF;
859: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
861: END validate_material_for_update;
885: error_get_item EXCEPTION;
886:
887: BEGIN
888:
889: IF g_debug <= gme_debug.g_log_procedure THEN
890: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
891: END IF;
892: x_return_status := FND_API.G_RET_STS_SUCCESS;
893:
886:
887: BEGIN
888:
889: IF g_debug <= gme_debug.g_log_procedure THEN
890: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
891: END IF;
892: x_return_status := FND_API.G_RET_STS_SUCCESS;
893:
894:
1057:
1058: x_pending_product_lots_rec.quantity := l_dtl_qty;
1059: x_pending_product_lots_rec.secondary_quantity := l_sec_qty;
1060:
1061: IF g_debug <= gme_debug.g_log_procedure THEN
1062: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1063: END IF;
1064:
1065: EXCEPTION
1058: x_pending_product_lots_rec.quantity := l_dtl_qty;
1059: x_pending_product_lots_rec.secondary_quantity := l_sec_qty;
1060:
1061: IF g_debug <= gme_debug.g_log_procedure THEN
1062: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1063: END IF;
1064:
1065: EXCEPTION
1066: WHEN error_validate OR error_get_item THEN
1068: WHEN error_fetch_row THEN
1069: -- error message set in fetch routine
1070: x_return_status := fnd_api.g_ret_sts_unexp_error;
1071: WHEN OTHERS THEN
1072: IF g_debug <= gme_debug.g_log_unexpected THEN
1073: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1074: END IF;
1075: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1069: -- error message set in fetch routine
1070: x_return_status := fnd_api.g_ret_sts_unexp_error;
1071: WHEN OTHERS THEN
1072: IF g_debug <= gme_debug.g_log_unexpected THEN
1073: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1074: END IF;
1075: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1077: END validate_record_for_update;
1084: l_api_name CONSTANT VARCHAR2 (30) := 'validate_material_for_delete';
1085:
1086: BEGIN
1087:
1088: IF g_debug <= gme_debug.g_log_procedure THEN
1089: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1090: END IF;
1091: x_return_status := FND_API.G_RET_STS_SUCCESS;
1092:
1085:
1086: BEGIN
1087:
1088: IF g_debug <= gme_debug.g_log_procedure THEN
1089: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1090: END IF;
1091: x_return_status := FND_API.G_RET_STS_SUCCESS;
1092:
1093: IF g_debug <= gme_debug.g_log_procedure THEN
1089: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1090: END IF;
1091: x_return_status := FND_API.G_RET_STS_SUCCESS;
1092:
1093: IF g_debug <= gme_debug.g_log_procedure THEN
1094: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1095: END IF;
1096:
1097: EXCEPTION
1090: END IF;
1091: x_return_status := FND_API.G_RET_STS_SUCCESS;
1092:
1093: IF g_debug <= gme_debug.g_log_procedure THEN
1094: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1095: END IF;
1096:
1097: EXCEPTION
1098: WHEN OTHERS THEN
1095: END IF;
1096:
1097: EXCEPTION
1098: WHEN OTHERS THEN
1099: IF g_debug <= gme_debug.g_log_unexpected THEN
1100: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1101: END IF;
1102: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1096:
1097: EXCEPTION
1098: WHEN OTHERS THEN
1099: IF g_debug <= gme_debug.g_log_unexpected THEN
1100: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1101: END IF;
1102: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1104: END validate_material_for_delete;
1117: error_fetch_row EXCEPTION;
1118:
1119: BEGIN
1120:
1121: IF g_debug <= gme_debug.g_log_procedure THEN
1122: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1123: END IF;
1124: x_return_status := FND_API.G_RET_STS_SUCCESS;
1125:
1118:
1119: BEGIN
1120:
1121: IF g_debug <= gme_debug.g_log_procedure THEN
1122: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1123: END IF;
1124: x_return_status := FND_API.G_RET_STS_SUCCESS;
1125:
1126: IF p_db_pending_product_lots_rec.pending_product_lot_id IS NOT NULL THEN
1136: RAISE error_fetch_row;
1137: END IF;
1138: END IF;
1139:
1140: IF g_debug <= gme_debug.g_log_procedure THEN
1141: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1142: END IF;
1143:
1144: EXCEPTION
1137: END IF;
1138: END IF;
1139:
1140: IF g_debug <= gme_debug.g_log_procedure THEN
1141: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1142: END IF;
1143:
1144: EXCEPTION
1145: WHEN error_fetch_row THEN
1145: WHEN error_fetch_row THEN
1146: -- error message set in fetch routine
1147: x_return_status := fnd_api.g_ret_sts_unexp_error;
1148: WHEN OTHERS THEN
1149: IF g_debug <= gme_debug.g_log_unexpected THEN
1150: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1151: END IF;
1152: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1146: -- error message set in fetch routine
1147: x_return_status := fnd_api.g_ret_sts_unexp_error;
1148: WHEN OTHERS THEN
1149: IF g_debug <= gme_debug.g_log_unexpected THEN
1150: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1151: END IF;
1152: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1154: END validate_record_for_delete;
1186: error_val_qties EXCEPTION;
1187:
1188: BEGIN
1189:
1190: IF g_debug <= gme_debug.g_log_procedure THEN
1191: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1192: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.material_detail_id='||p_matl_dtl_rec.material_detail_id);
1193: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.inventory_item_id='||p_matl_dtl_rec.inventory_item_id);
1194: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.organization_id='||p_matl_dtl_rec.organization_id);
1187:
1188: BEGIN
1189:
1190: IF g_debug <= gme_debug.g_log_procedure THEN
1191: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1192: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.material_detail_id='||p_matl_dtl_rec.material_detail_id);
1193: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.inventory_item_id='||p_matl_dtl_rec.inventory_item_id);
1194: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.organization_id='||p_matl_dtl_rec.organization_id);
1195: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.subinventory='||p_matl_dtl_rec.subinventory);
1188: BEGIN
1189:
1190: IF g_debug <= gme_debug.g_log_procedure THEN
1191: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1192: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.material_detail_id='||p_matl_dtl_rec.material_detail_id);
1193: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.inventory_item_id='||p_matl_dtl_rec.inventory_item_id);
1194: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.organization_id='||p_matl_dtl_rec.organization_id);
1195: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.subinventory='||p_matl_dtl_rec.subinventory);
1196: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.locator_id='||p_matl_dtl_rec.locator_id);
1189:
1190: IF g_debug <= gme_debug.g_log_procedure THEN
1191: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1192: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.material_detail_id='||p_matl_dtl_rec.material_detail_id);
1193: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.inventory_item_id='||p_matl_dtl_rec.inventory_item_id);
1194: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.organization_id='||p_matl_dtl_rec.organization_id);
1195: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.subinventory='||p_matl_dtl_rec.subinventory);
1196: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.locator_id='||p_matl_dtl_rec.locator_id);
1197: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.dtl_um='||p_matl_dtl_rec.dtl_um);
1190: IF g_debug <= gme_debug.g_log_procedure THEN
1191: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1192: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.material_detail_id='||p_matl_dtl_rec.material_detail_id);
1193: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.inventory_item_id='||p_matl_dtl_rec.inventory_item_id);
1194: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.organization_id='||p_matl_dtl_rec.organization_id);
1195: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.subinventory='||p_matl_dtl_rec.subinventory);
1196: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.locator_id='||p_matl_dtl_rec.locator_id);
1197: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.dtl_um='||p_matl_dtl_rec.dtl_um);
1198: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1191: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1192: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.material_detail_id='||p_matl_dtl_rec.material_detail_id);
1193: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.inventory_item_id='||p_matl_dtl_rec.inventory_item_id);
1194: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.organization_id='||p_matl_dtl_rec.organization_id);
1195: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.subinventory='||p_matl_dtl_rec.subinventory);
1196: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.locator_id='||p_matl_dtl_rec.locator_id);
1197: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.dtl_um='||p_matl_dtl_rec.dtl_um);
1198: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1199: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_revision='||p_revision);
1192: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.material_detail_id='||p_matl_dtl_rec.material_detail_id);
1193: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.inventory_item_id='||p_matl_dtl_rec.inventory_item_id);
1194: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.organization_id='||p_matl_dtl_rec.organization_id);
1195: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.subinventory='||p_matl_dtl_rec.subinventory);
1196: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.locator_id='||p_matl_dtl_rec.locator_id);
1197: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.dtl_um='||p_matl_dtl_rec.dtl_um);
1198: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1199: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_revision='||p_revision);
1200: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_qty='||p_dtl_qty);
1193: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.inventory_item_id='||p_matl_dtl_rec.inventory_item_id);
1194: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.organization_id='||p_matl_dtl_rec.organization_id);
1195: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.subinventory='||p_matl_dtl_rec.subinventory);
1196: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.locator_id='||p_matl_dtl_rec.locator_id);
1197: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.dtl_um='||p_matl_dtl_rec.dtl_um);
1198: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1199: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_revision='||p_revision);
1200: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_qty='||p_dtl_qty);
1201: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_sec_qty='||p_sec_qty);
1194: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.organization_id='||p_matl_dtl_rec.organization_id);
1195: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.subinventory='||p_matl_dtl_rec.subinventory);
1196: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.locator_id='||p_matl_dtl_rec.locator_id);
1197: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.dtl_um='||p_matl_dtl_rec.dtl_um);
1198: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1199: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_revision='||p_revision);
1200: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_qty='||p_dtl_qty);
1201: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_sec_qty='||p_sec_qty);
1202: END IF;
1195: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.subinventory='||p_matl_dtl_rec.subinventory);
1196: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.locator_id='||p_matl_dtl_rec.locator_id);
1197: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.dtl_um='||p_matl_dtl_rec.dtl_um);
1198: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1199: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_revision='||p_revision);
1200: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_qty='||p_dtl_qty);
1201: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_sec_qty='||p_sec_qty);
1202: END IF;
1203: x_return_status := FND_API.G_RET_STS_SUCCESS;
1196: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.locator_id='||p_matl_dtl_rec.locator_id);
1197: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.dtl_um='||p_matl_dtl_rec.dtl_um);
1198: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1199: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_revision='||p_revision);
1200: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_qty='||p_dtl_qty);
1201: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_sec_qty='||p_sec_qty);
1202: END IF;
1203: x_return_status := FND_API.G_RET_STS_SUCCESS;
1204:
1197: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_matl_dtl_rec.dtl_um='||p_matl_dtl_rec.dtl_um);
1198: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1199: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_revision='||p_revision);
1200: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_qty='||p_dtl_qty);
1201: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_sec_qty='||p_sec_qty);
1202: END IF;
1203: x_return_status := FND_API.G_RET_STS_SUCCESS;
1204:
1205: IF p_matl_dtl_rec.line_type = gme_common_pvt.g_line_type_prod THEN
1209: ELSE
1210: l_transaction_type_id := GME_COMMON_PVT.g_ing_issue;
1211: END IF;
1212:
1213: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1214: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_transaction_type_id='||l_transaction_type_id);
1215: END IF;
1216:
1217: OPEN cur_get_uom(p_matl_dtl_rec.inventory_item_id, p_matl_dtl_rec.organization_id);
1210: l_transaction_type_id := GME_COMMON_PVT.g_ing_issue;
1211: END IF;
1212:
1213: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1214: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_transaction_type_id='||l_transaction_type_id);
1215: END IF;
1216:
1217: OPEN cur_get_uom(p_matl_dtl_rec.inventory_item_id, p_matl_dtl_rec.organization_id);
1218: FETCH cur_get_uom INTO l_primary_uom_code, l_secondary_uom_code;
1217: OPEN cur_get_uom(p_matl_dtl_rec.inventory_item_id, p_matl_dtl_rec.organization_id);
1218: FETCH cur_get_uom INTO l_primary_uom_code, l_secondary_uom_code;
1219: CLOSE cur_get_uom;
1220:
1221: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1222: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_primary_uom_code='||l_primary_uom_code);
1223: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_secondary_uom_code='||l_secondary_uom_code);
1224: END IF;
1225:
1218: FETCH cur_get_uom INTO l_primary_uom_code, l_secondary_uom_code;
1219: CLOSE cur_get_uom;
1220:
1221: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1222: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_primary_uom_code='||l_primary_uom_code);
1223: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_secondary_uom_code='||l_secondary_uom_code);
1224: END IF;
1225:
1226: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1219: CLOSE cur_get_uom;
1220:
1221: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1222: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_primary_uom_code='||l_primary_uom_code);
1223: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_secondary_uom_code='||l_secondary_uom_code);
1224: END IF;
1225:
1226: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1227: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_primary_lot_qty='||l_primary_lot_qty);
1222: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_primary_uom_code='||l_primary_uom_code);
1223: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_secondary_uom_code='||l_secondary_uom_code);
1224: END IF;
1225:
1226: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1227: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_primary_lot_qty='||l_primary_lot_qty);
1228: END IF;
1229:
1230: l_return := INV_LOT_API_PUB.validate_quantities
1223: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_secondary_uom_code='||l_secondary_uom_code);
1224: END IF;
1225:
1226: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1227: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_primary_lot_qty='||l_primary_lot_qty);
1228: END IF;
1229:
1230: l_return := INV_LOT_API_PUB.validate_quantities
1231: (p_api_version => 1.0
1248: ,x_msg_data => l_msg_data);
1249:
1250: IF NOT l_return OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1251: x_return_status := l_return_status;
1252: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1253: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' error returned from INV_LOT_API_PUB.validate_quantities with return status='||l_return_status);
1254: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_msg_count='||l_msg_count);
1255: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_msg_data='||l_msg_data);
1256: END IF;
1249:
1250: IF NOT l_return OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1251: x_return_status := l_return_status;
1252: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1253: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' error returned from INV_LOT_API_PUB.validate_quantities with return status='||l_return_status);
1254: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_msg_count='||l_msg_count);
1255: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_msg_data='||l_msg_data);
1256: END IF;
1257: RAISE error_val_qties;
1250: IF NOT l_return OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1251: x_return_status := l_return_status;
1252: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1253: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' error returned from INV_LOT_API_PUB.validate_quantities with return status='||l_return_status);
1254: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_msg_count='||l_msg_count);
1255: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_msg_data='||l_msg_data);
1256: END IF;
1257: RAISE error_val_qties;
1258: END IF;
1251: x_return_status := l_return_status;
1252: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1253: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' error returned from INV_LOT_API_PUB.validate_quantities with return status='||l_return_status);
1254: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_msg_count='||l_msg_count);
1255: gme_debug.put_line ( g_pkg_name||'.'||l_api_name||' l_msg_data='||l_msg_data);
1256: END IF;
1257: RAISE error_val_qties;
1258: END IF;
1259:
1269: ,from_name => NULL
1270: ,to_name => NULL);
1271:
1272: IF p_dtl_qty = -99999 THEN
1273: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1274: gme_debug.put_line
1275: ( g_pkg_name
1276: || '.'
1277: || l_api_name
1270: ,to_name => NULL);
1271:
1272: IF p_dtl_qty = -99999 THEN
1273: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1274: gme_debug.put_line
1275: ( g_pkg_name
1276: || '.'
1277: || l_api_name
1278: || ' qty conversion failed for material detail'
1281: RAISE error_um_conv;
1282: END IF;
1283: END IF;
1284:
1285: IF g_debug <= gme_debug.g_log_procedure THEN
1286: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
1287: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_qty='||p_dtl_qty);
1288: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_sec_qty='||p_sec_qty);
1289: END IF;
1282: END IF;
1283: END IF;
1284:
1285: IF g_debug <= gme_debug.g_log_procedure THEN
1286: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
1287: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_qty='||p_dtl_qty);
1288: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_sec_qty='||p_sec_qty);
1289: END IF;
1290:
1283: END IF;
1284:
1285: IF g_debug <= gme_debug.g_log_procedure THEN
1286: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
1287: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_qty='||p_dtl_qty);
1288: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_sec_qty='||p_sec_qty);
1289: END IF;
1290:
1291: RETURN l_return;
1284:
1285: IF g_debug <= gme_debug.g_log_procedure THEN
1286: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
1287: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_qty='||p_dtl_qty);
1288: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_sec_qty='||p_sec_qty);
1289: END IF;
1290:
1291: RETURN l_return;
1292:
1299: fnd_msg_pub.ADD;
1300: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1301: RETURN FALSE;
1302: WHEN OTHERS THEN
1303: IF g_debug <= gme_debug.g_log_unexpected THEN
1304: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1305: END IF;
1306: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1300: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1301: RETURN FALSE;
1302: WHEN OTHERS THEN
1303: IF g_debug <= gme_debug.g_log_unexpected THEN
1304: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1305: END IF;
1306: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1308: RETURN FALSE;
1329: l_return BOOLEAN;
1330:
1331: BEGIN
1332:
1333: IF g_debug <= gme_debug.g_log_procedure THEN
1334: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1335: END IF;
1336: x_return_status := FND_API.G_RET_STS_SUCCESS;
1337:
1330:
1331: BEGIN
1332:
1333: IF g_debug <= gme_debug.g_log_procedure THEN
1334: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1335: END IF;
1336: x_return_status := FND_API.G_RET_STS_SUCCESS;
1337:
1338: OPEN check_lot_exists(p_inv_item_id, p_org_id, p_lot_number);
1347: fnd_msg_pub.ADD;
1348: l_return := FALSE;
1349: END IF;
1350:
1351: IF g_debug <= gme_debug.g_log_procedure THEN
1352: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
1353: END IF;
1354:
1355: RETURN l_return;
1348: l_return := FALSE;
1349: END IF;
1350:
1351: IF g_debug <= gme_debug.g_log_procedure THEN
1352: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
1353: END IF;
1354:
1355: RETURN l_return;
1356:
1355: RETURN l_return;
1356:
1357: EXCEPTION
1358: WHEN OTHERS THEN
1359: IF g_debug <= gme_debug.g_log_unexpected THEN
1360: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1361: END IF;
1362: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1356:
1357: EXCEPTION
1358: WHEN OTHERS THEN
1359: IF g_debug <= gme_debug.g_log_unexpected THEN
1360: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1361: END IF;
1362: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1364: RETURN FALSE;
1384: error_validation EXCEPTION;
1385:
1386: BEGIN
1387:
1388: IF g_debug <= gme_debug.g_log_procedure THEN
1389: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1390: END IF;
1391: x_return_status := FND_API.G_RET_STS_SUCCESS;
1392:
1385:
1386: BEGIN
1387:
1388: IF g_debug <= gme_debug.g_log_procedure THEN
1389: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1390: END IF;
1391: x_return_status := FND_API.G_RET_STS_SUCCESS;
1392:
1393: IF p_sequence IS NULL THEN
1407: ELSE
1408: l_return := TRUE;
1409: END IF;
1410:
1411: IF g_debug <= gme_debug.g_log_procedure THEN
1412: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
1413: END IF;
1414:
1415: RETURN l_return;
1408: l_return := TRUE;
1409: END IF;
1410:
1411: IF g_debug <= gme_debug.g_log_procedure THEN
1412: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
1413: END IF;
1414:
1415: RETURN l_return;
1416:
1417: EXCEPTION
1418: WHEN error_validation THEN
1419: return FALSE;
1420: WHEN OTHERS THEN
1421: IF g_debug <= gme_debug.g_log_unexpected THEN
1422: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1423: END IF;
1424: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1418: WHEN error_validation THEN
1419: return FALSE;
1420: WHEN OTHERS THEN
1421: IF g_debug <= gme_debug.g_log_unexpected THEN
1422: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1423: END IF;
1424: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1426: RETURN FALSE;
1439:
1440:
1441: BEGIN
1442:
1443: IF g_debug <= gme_debug.g_log_procedure THEN
1444: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1445: END IF;
1446: x_return_status := FND_API.G_RET_STS_SUCCESS;
1447: /* Bug 4866553 Corrected API call */
1440:
1441: BEGIN
1442:
1443: IF g_debug <= gme_debug.g_log_procedure THEN
1444: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1445: END IF;
1446: x_return_status := FND_API.G_RET_STS_SUCCESS;
1447: /* Bug 4866553 Corrected API call */
1448: gme_material_detail_pvt.validate_revision
1456: ELSE
1457: l_return := TRUE;
1458: END IF;
1459:
1460: IF g_debug <= gme_debug.g_log_procedure THEN
1461: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
1462: END IF;
1463:
1464: RETURN l_return;
1457: l_return := TRUE;
1458: END IF;
1459:
1460: IF g_debug <= gme_debug.g_log_procedure THEN
1461: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
1462: END IF;
1463:
1464: RETURN l_return;
1465:
1464: RETURN l_return;
1465:
1466: EXCEPTION
1467: WHEN OTHERS THEN
1468: IF g_debug <= gme_debug.g_log_unexpected THEN
1469: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1470: END IF;
1471: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1465:
1466: EXCEPTION
1467: WHEN OTHERS THEN
1468: IF g_debug <= gme_debug.g_log_unexpected THEN
1469: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1470: END IF;
1471: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1473: RETURN FALSE;
1487: WHERE reason_id = v_reason_id
1488: AND NVL (disable_date, SYSDATE + 1) > SYSDATE;
1489:
1490: BEGIN
1491: IF g_debug <= gme_debug.g_log_procedure THEN
1492: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1493: END IF;
1494: x_return_status := FND_API.G_RET_STS_SUCCESS;
1495:
1488: AND NVL (disable_date, SYSDATE + 1) > SYSDATE;
1489:
1490: BEGIN
1491: IF g_debug <= gme_debug.g_log_procedure THEN
1492: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1493: END IF;
1494: x_return_status := FND_API.G_RET_STS_SUCCESS;
1495:
1496: IF p_reason_id IS NULL THEN
1510: ELSE
1511: l_return := TRUE;
1512: END IF;
1513:
1514: IF g_debug <= gme_debug.g_log_procedure THEN
1515: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
1516: END IF;
1517:
1518: RETURN l_return;
1511: l_return := TRUE;
1512: END IF;
1513:
1514: IF g_debug <= gme_debug.g_log_procedure THEN
1515: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
1516: END IF;
1517:
1518: RETURN l_return;
1519: EXCEPTION
1517:
1518: RETURN l_return;
1519: EXCEPTION
1520: WHEN OTHERS THEN
1521: IF g_debug <= gme_debug.g_log_unexpected THEN
1522: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1523: END IF;
1524: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1518: RETURN l_return;
1519: EXCEPTION
1520: WHEN OTHERS THEN
1521: IF g_debug <= gme_debug.g_log_unexpected THEN
1522: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1523: END IF;
1524: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1526: RETURN FALSE;
1543: AND quantity <> 0
1544: AND rownum = 1;
1545:
1546: BEGIN
1547: IF g_debug <= gme_debug.g_log_procedure THEN
1548: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1549: END IF;
1550:
1551: OPEN cur_pp_lot_exist (p_batch_id, p_material_detail_id);
1544: AND rownum = 1;
1545:
1546: BEGIN
1547: IF g_debug <= gme_debug.g_log_procedure THEN
1548: gme_debug.put_line('Entering function '||g_pkg_name||'.'||l_api_name);
1549: END IF;
1550:
1551: OPEN cur_pp_lot_exist (p_batch_id, p_material_detail_id);
1552: FETCH cur_pp_lot_exist INTO l_is_pplot;
1557: ELSE
1558: l_return := FALSE;
1559: END IF;
1560:
1561: IF g_debug <= gme_debug.g_log_procedure THEN
1562: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
1563: END IF;
1564:
1565: RETURN l_return;
1558: l_return := FALSE;
1559: END IF;
1560:
1561: IF g_debug <= gme_debug.g_log_procedure THEN
1562: gme_debug.put_line('Exiting function '||g_pkg_name||'.'||l_api_name);
1563: END IF;
1564:
1565: RETURN l_return;
1566: EXCEPTION
1564:
1565: RETURN l_return;
1566: EXCEPTION
1567: WHEN OTHERS THEN
1568: IF g_debug <= gme_debug.g_log_unexpected THEN
1569: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1570: END IF;
1571: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1572: RETURN FALSE;
1565: RETURN l_return;
1566: EXCEPTION
1567: WHEN OTHERS THEN
1568: IF g_debug <= gme_debug.g_log_unexpected THEN
1569: gme_debug.put_line('When others exception in '||g_pkg_name||'.'||l_api_name||' Error is ' || SQLERRM);
1570: END IF;
1571: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1572: RETURN FALSE;
1573: END pending_product_lot_exist;
1582: l_pnd_prod_lot_tbl gme_common_pvt.pending_lots_tab;
1583: get_pending_lot_error EXCEPTION;
1584:
1585: BEGIN
1586: IF g_debug <= gme_debug.g_log_procedure THEN
1587: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1588: || l_api_name);
1589: END IF;
1590:
1583: get_pending_lot_error EXCEPTION;
1584:
1585: BEGIN
1586: IF g_debug <= gme_debug.g_log_procedure THEN
1587: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
1588: || l_api_name);
1589: END IF;
1590:
1591: x_return_status := fnd_api.g_ret_sts_success;
1602: FOR i IN 1 .. l_pnd_prod_lot_tbl.COUNT LOOP
1603: x_pnd_prod_lot_qty := x_pnd_prod_lot_qty + l_pnd_prod_lot_tbl(i).quantity;
1604: END LOOP;
1605:
1606: IF g_debug <= gme_debug.g_log_procedure THEN
1607: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1608: END IF;
1609: EXCEPTION
1610: WHEN get_pending_lot_error THEN
1603: x_pnd_prod_lot_qty := x_pnd_prod_lot_qty + l_pnd_prod_lot_tbl(i).quantity;
1604: END LOOP;
1605:
1606: IF g_debug <= gme_debug.g_log_procedure THEN
1607: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
1608: END IF;
1609: EXCEPTION
1610: WHEN get_pending_lot_error THEN
1611: x_return_status := fnd_api.g_ret_sts_unexp_error;
1609: EXCEPTION
1610: WHEN get_pending_lot_error THEN
1611: x_return_status := fnd_api.g_ret_sts_unexp_error;
1612: WHEN OTHERS THEN
1613: IF g_debug <= gme_debug.g_log_unexpected THEN
1614: gme_debug.put_line ( 'When others exception in '
1615: || g_pkg_name
1616: || '.'
1617: || l_api_name
1610: WHEN get_pending_lot_error THEN
1611: x_return_status := fnd_api.g_ret_sts_unexp_error;
1612: WHEN OTHERS THEN
1613: IF g_debug <= gme_debug.g_log_unexpected THEN
1614: gme_debug.put_line ( 'When others exception in '
1615: || g_pkg_name
1616: || '.'
1617: || l_api_name
1618: || ' Error is '