101: AND inventory_item_id = v_inventory_item_id
102: AND line_type = gme_common_pvt.g_line_type_prod
103: ORDER BY line_no;
104: BEGIN
105: IF g_debug <= gme_debug.g_log_procedure THEN
106: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
107: || l_api_name);
108: END IF;
109:
102: AND line_type = gme_common_pvt.g_line_type_prod
103: ORDER BY line_no;
104: BEGIN
105: IF g_debug <= gme_debug.g_log_procedure THEN
106: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
107: || l_api_name);
108: END IF;
109:
110: /* Set the return status to success initially */
145: ELSE
146: l_object_type := 'P';
147: END IF;
148:
149: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
150: gme_debug.put_line ( g_pkg_name
151: || '.'
152: || l_api_name
153: || ':'
146: l_object_type := 'P';
147: END IF;
148:
149: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
150: gme_debug.put_line ( g_pkg_name
151: || '.'
152: || l_api_name
153: || ':'
154: || 'Get VR for phantom ingredient '||x_material_detail_rec.inventory_item_id||' revision '||x_material_detail_rec.revision);
180: l_validity_rule_id := l_validity_tbl (1).recipe_validity_rule_id;
181: ELSE
182: l_validity_rule_id := p_validity_rule_id;
183: END IF; /* IF p_validity_rule_id IS NULL */
184: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
185: gme_debug.put_line ( g_pkg_name
186: || '.'
187: || l_api_name
188: || ':'
181: ELSE
182: l_validity_rule_id := p_validity_rule_id;
183: END IF; /* IF p_validity_rule_id IS NULL */
184: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
185: gme_debug.put_line ( g_pkg_name
186: || '.'
187: || l_api_name
188: || ':'
189: || 'VR for phantom ingredient '||l_validity_rule_id);
213:
214: CLOSE cur_step_matl_detail;
215: END IF;
216:
217: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
218: gme_debug.put_line ( g_pkg_name
219: || '.'
220: || l_api_name
221: || ':'
214: CLOSE cur_step_matl_detail;
215: END IF;
216:
217: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
218: gme_debug.put_line ( g_pkg_name
219: || '.'
220: || l_api_name
221: || ':'
222: || 'Calling Create_batch');
235: ,p_contiguity_override => p_contiguity_override
236: ,x_exception_material_tbl => x_exception_material_tbl
237: ,p_is_phantom => 'Y');
238:
239: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
240: gme_debug.put_line ('create_batch-return_status' || x_return_status);
241: gme_debug.put_line ( g_pkg_name
242: || '.'
243: || l_api_name
236: ,x_exception_material_tbl => x_exception_material_tbl
237: ,p_is_phantom => 'Y');
238:
239: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
240: gme_debug.put_line ('create_batch-return_status' || x_return_status);
241: gme_debug.put_line ( g_pkg_name
242: || '.'
243: || l_api_name
244: || ':'
237: ,p_is_phantom => 'Y');
238:
239: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
240: gme_debug.put_line ('create_batch-return_status' || x_return_status);
241: gme_debug.put_line ( g_pkg_name
242: || '.'
243: || l_api_name
244: || ':'
245: || 'Create_batch returned '
289: WHERE material_detail_id = p_material_detail_rec.material_detail_id;
290:
291: x_return_status := fnd_api.g_ret_sts_success;
292:
293: IF g_debug <= gme_debug.g_log_procedure THEN
294: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
295: END IF;
296: EXCEPTION
297: WHEN batch_creation_failed OR material_detail_fetch_error OR not_a_phantom OR phantom_exists OR batch_header_fetch_error OR validity_fetch_error OR batch_creation_failed OR batch_upd_error THEN
290:
291: x_return_status := fnd_api.g_ret_sts_success;
292:
293: IF g_debug <= gme_debug.g_log_procedure THEN
294: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
295: END IF;
296: EXCEPTION
297: WHEN batch_creation_failed OR material_detail_fetch_error OR not_a_phantom OR phantom_exists OR batch_header_fetch_error OR validity_fetch_error OR batch_creation_failed OR batch_upd_error THEN
298: x_return_status := fnd_api.g_ret_sts_error;
298: x_return_status := fnd_api.g_ret_sts_error;
299: WHEN no_validity_found THEN
300: x_return_status := 'W';
301: WHEN OTHERS THEN
302: IF g_debug <= gme_debug.g_log_unexpected THEN
303: gme_debug.put_line ( 'When others exception in '
304: || g_pkg_name
305: || '.'
306: || l_api_name
299: WHEN no_validity_found THEN
300: x_return_status := 'W';
301: WHEN OTHERS THEN
302: IF g_debug <= gme_debug.g_log_unexpected THEN
303: gme_debug.put_line ( 'When others exception in '
304: || g_pkg_name
305: || '.'
306: || l_api_name
307: || ' Error is '
332: l_batch_header gme_batch_header%ROWTYPE;
333: error_fetch_header EXCEPTION;
334: l_api_name CONSTANT VARCHAR2 (30) := 'IS_PHANTOM';
335: BEGIN
336: IF g_debug <= gme_debug.g_log_procedure THEN
337: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
338: || l_api_name);
339: END IF;
340:
333: error_fetch_header EXCEPTION;
334: l_api_name CONSTANT VARCHAR2 (30) := 'IS_PHANTOM';
335: BEGIN
336: IF g_debug <= gme_debug.g_log_procedure THEN
337: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
338: || l_api_name);
339: END IF;
340:
341: x_return_status := fnd_api.g_ret_sts_success;
354: WHEN error_fetch_header THEN
355: x_return_status := fnd_api.g_ret_sts_error;
356: RETURN FALSE;
357: WHEN OTHERS THEN
358: IF g_debug <= gme_debug.g_log_unexpected THEN
359: gme_debug.put_line ( 'When others exception in '
360: || g_pkg_name
361: || '.'
362: || l_api_name
355: x_return_status := fnd_api.g_ret_sts_error;
356: RETURN FALSE;
357: WHEN OTHERS THEN
358: IF g_debug <= gme_debug.g_log_unexpected THEN
359: gme_debug.put_line ( 'When others exception in '
360: || g_pkg_name
361: || '.'
362: || l_api_name
363: || ' Error is '
412: AND NVL (d.phantom_id, 0) > 0;
413:
414: no_keys EXCEPTION;
415: BEGIN
416: IF g_debug <= gme_debug.g_log_procedure THEN
417: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
418: || l_api_name);
419: END IF;
420:
413:
414: no_keys EXCEPTION;
415: BEGIN
416: IF g_debug <= gme_debug.g_log_procedure THEN
417: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
418: || l_api_name);
419: END IF;
420:
421: x_return_status := fnd_api.g_ret_sts_success;
430: BULK COLLECT INTO x_phantom_ids;
431:
432: CLOSE cur_step_matl_detail_ids;
433:
434: IF g_debug <= gme_debug.g_log_procedure THEN
435: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
436: END IF;
437: EXCEPTION
438: WHEN no_keys THEN
431:
432: CLOSE cur_step_matl_detail_ids;
433:
434: IF g_debug <= gme_debug.g_log_procedure THEN
435: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
436: END IF;
437: EXCEPTION
438: WHEN no_keys THEN
439: x_return_status := fnd_api.g_ret_sts_error;
440: gme_common_pvt.log_message ('GME_NO_KEYS'
441: ,'TABLE_NAME'
442: ,'FETCH_STEP_PHANTOMS');
443: WHEN OTHERS THEN
444: IF g_debug <= gme_debug.g_log_unexpected THEN
445: gme_debug.put_line ( 'When others exception in '
446: || g_pkg_name
447: || '.'
448: || l_api_name
441: ,'TABLE_NAME'
442: ,'FETCH_STEP_PHANTOMS');
443: WHEN OTHERS THEN
444: IF g_debug <= gme_debug.g_log_unexpected THEN
445: gme_debug.put_line ( 'When others exception in '
446: || g_pkg_name
447: || '.'
448: || l_api_name
449: || ' Error is '
486: AND NVL (d.phantom_id, 0) > 0;
487:
488: no_keys EXCEPTION;
489: BEGIN
490: IF g_debug <= gme_debug.g_log_procedure THEN
491: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
492: || l_api_name);
493: END IF;
494:
487:
488: no_keys EXCEPTION;
489: BEGIN
490: IF g_debug <= gme_debug.g_log_procedure THEN
491: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
492: || l_api_name);
493: END IF;
494:
495: x_return_status := fnd_api.g_ret_sts_success;
510: BULK COLLECT INTO x_phantom_ids;
511:
512: CLOSE cur_matl_phant_ids;
513:
514: IF g_debug <= gme_debug.g_log_procedure THEN
515: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
516: END IF;
517: EXCEPTION
518: WHEN no_keys THEN
511:
512: CLOSE cur_matl_phant_ids;
513:
514: IF g_debug <= gme_debug.g_log_procedure THEN
515: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
516: END IF;
517: EXCEPTION
518: WHEN no_keys THEN
519: x_return_status := fnd_api.g_ret_sts_error;
520: gme_common_pvt.log_message ('GME_NO_KEYS'
521: ,'TABLE_NAME'
522: ,'FETCH_LINE_PHANTOMS');
523: WHEN OTHERS THEN
524: IF g_debug <= gme_debug.g_log_unexpected THEN
525: gme_debug.put_line ( 'When others exception in '
526: || g_pkg_name
527: || '.'
528: || l_api_name
521: ,'TABLE_NAME'
522: ,'FETCH_LINE_PHANTOMS');
523: WHEN OTHERS THEN
524: IF g_debug <= gme_debug.g_log_unexpected THEN
525: gme_debug.put_line ( 'When others exception in '
526: || g_pkg_name
527: || '.'
528: || l_api_name
529: || ' Error is '