[Home] [Help]
41: error_processing EXCEPTION;
42: error_dispensing EXCEPTION;
43:
44: BEGIN
45: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
46: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
47: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
48: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
49: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_no='||p_material_detail_rec.line_no);
42: error_dispensing EXCEPTION;
43:
44: BEGIN
45: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
46: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
47: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
48: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
49: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_no='||p_material_detail_rec.line_no);
50: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_material_detail_rec.line_type);
43:
44: BEGIN
45: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
46: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
47: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
48: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
49: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_no='||p_material_detail_rec.line_no);
50: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_material_detail_rec.line_type);
51: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' inventory_item_id='||p_material_detail_rec.inventory_item_id);
44: BEGIN
45: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
46: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
47: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
48: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
49: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_no='||p_material_detail_rec.line_no);
50: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_material_detail_rec.line_type);
51: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' inventory_item_id='||p_material_detail_rec.inventory_item_id);
52: END IF;
45: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
46: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
47: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
48: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
49: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_no='||p_material_detail_rec.line_no);
50: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_material_detail_rec.line_type);
51: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' inventory_item_id='||p_material_detail_rec.inventory_item_id);
52: END IF;
53:
46: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
47: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
48: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
49: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_no='||p_material_detail_rec.line_no);
50: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_material_detail_rec.line_type);
51: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' inventory_item_id='||p_material_detail_rec.inventory_item_id);
52: END IF;
53:
54: /* Set the return status to success initially */
47: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
48: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
49: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_no='||p_material_detail_rec.line_no);
50: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_material_detail_rec.line_type);
51: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' inventory_item_id='||p_material_detail_rec.inventory_item_id);
52: END IF;
53:
54: /* Set the return status to success initially */
55: x_return_status := fnd_api.g_ret_sts_success;
63: WHERE batch_id = p_material_detail_rec.batch_id
64: AND line_type = p_material_detail_rec.line_type
65: AND line_no >= p_material_detail_rec.line_no;
66:
67: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
68: gme_debug.put_line (g_pkg_name||'.'|| l_api_name||': '||SQL%ROWCOUNT||' records renumbered');
69: END IF;
70:
71: -- insert new material line
64: AND line_type = p_material_detail_rec.line_type
65: AND line_no >= p_material_detail_rec.line_no;
66:
67: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
68: gme_debug.put_line (g_pkg_name||'.'|| l_api_name||': '||SQL%ROWCOUNT||' records renumbered');
69: END IF;
70:
71: -- insert new material line
72: IF NOT gme_material_details_dbl.insert_row (p_material_detail_rec
74: l_proc := 'gme_material_details_dbl.insert_row';
75: RAISE error_dbl;
76: END IF;
77:
78: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
79: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' inserted material; material_detail_id= '
80: || x_material_detail_rec.material_detail_id);
81: END IF;
82:
75: RAISE error_dbl;
76: END IF;
77:
78: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
79: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' inserted material; material_detail_id= '
80: || x_material_detail_rec.material_detail_id);
81: END IF;
82:
83: -- Bug 10046018 - set the defaults properly.
108: x_material_detail_rec.locator_id := l_locator_id;
109: END IF;
110: END IF;
111:
112: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
113: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' default subinventory is '|| x_material_detail_rec.subinventory);
114: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' default locator_id is '|| x_material_detail_rec.locator_id);
115: END IF;
116: -- End Bug 10046018
109: END IF;
110: END IF;
111:
112: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
113: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' default subinventory is '|| x_material_detail_rec.subinventory);
114: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' default locator_id is '|| x_material_detail_rec.locator_id);
115: END IF;
116: -- End Bug 10046018
117:
110: END IF;
111:
112: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
113: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' default subinventory is '|| x_material_detail_rec.subinventory);
114: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' default locator_id is '|| x_material_detail_rec.locator_id);
115: END IF;
116: -- End Bug 10046018
117:
118: --FPbug#4543872 moved this code over here
158: l_proc := 'gme_common_pvt.calc_mtl_req_date';
159: RAISE error_processing;
160: END IF;
161:
162: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
163: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' material_reqirement_date= '
164: || TO_CHAR(x_material_detail_rec.material_requirement_date,
165: gme_material_detail_pvt.g_date_fmt));
166: END IF;
159: RAISE error_processing;
160: END IF;
161:
162: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
163: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' material_reqirement_date= '
164: || TO_CHAR(x_material_detail_rec.material_requirement_date,
165: gme_material_detail_pvt.g_date_fmt));
166: END IF;
167: /* Bug 4866700 added update inventory check */
185: END IF;
186:
187: x_material_detail_rec := l_out_material_detail_tbl(1);
188:
189: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
190: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' move_order_line_id= '
191: ||x_material_detail_rec.move_order_line_id);
192: END IF;
193:
186:
187: x_material_detail_rec := l_out_material_detail_tbl(1);
188:
189: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
190: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' move_order_line_id= '
191: ||x_material_detail_rec.move_order_line_id);
192: END IF;
193:
194: IF p_batch_header_rec.recipe_validity_rule_id IS NULL THEN -- LCF batch
221: END IF;
222:
223: -- Pawan Kumar bug 4947535 new code added for GMO changes
224: IF (l_return_status = FND_API.G_RET_STS_SUCCESS AND x_material_detail_rec.dispense_ind = 'Y') then
225: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
226: gme_debug.put_line (g_pkg_name||'.'||l_api_name||'Instantiating material line id'
227: || x_material_detail_rec.material_detail_id);
228: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' config id ' || l_config_id);
229: END IF;
222:
223: -- Pawan Kumar bug 4947535 new code added for GMO changes
224: IF (l_return_status = FND_API.G_RET_STS_SUCCESS AND x_material_detail_rec.dispense_ind = 'Y') then
225: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
226: gme_debug.put_line (g_pkg_name||'.'||l_api_name||'Instantiating material line id'
227: || x_material_detail_rec.material_detail_id);
228: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' config id ' || l_config_id);
229: END IF;
230: GMO_DISPENSE_GRP.INSTANTIATE_DISPENSE_SETUP
224: IF (l_return_status = FND_API.G_RET_STS_SUCCESS AND x_material_detail_rec.dispense_ind = 'Y') then
225: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
226: gme_debug.put_line (g_pkg_name||'.'||l_api_name||'Instantiating material line id'
227: || x_material_detail_rec.material_detail_id);
228: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' config id ' || l_config_id);
229: END IF;
230: GMO_DISPENSE_GRP.INSTANTIATE_DISPENSE_SETUP
231: (p_api_version => 1.0
232: ,p_dispense_config_id => l_config_id
248: l_proc := 'gme_material_details_dbl.update_row';
249: RAISE error_dbl;
250: END IF;
251:
252: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
253: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' updated material; material_detail_id= '
254: || x_material_detail_rec.material_detail_id);
255: END IF;
256:
249: RAISE error_dbl;
250: END IF;
251:
252: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
253: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' updated material; material_detail_id= '
254: || x_material_detail_rec.material_detail_id);
255: END IF;
256:
257: -- call gme_trans_engine_util.load_rsrc_trans in preparation for update step qty
278: RAISE error_processing;
279: END IF;
280: END IF;
281:
282: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
283: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
284: END IF;
285:
286: EXCEPTION
279: END IF;
280: END IF;
281:
282: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
283: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
284: END IF;
285:
286: EXCEPTION
287: WHEN error_processing THEN
284: END IF;
285:
286: EXCEPTION
287: WHEN error_processing THEN
288: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
289: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': ' || l_proc|| ' error returned');
290: END IF;
291: WHEN error_dbl THEN
292: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
285:
286: EXCEPTION
287: WHEN error_processing THEN
288: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
289: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': ' || l_proc|| ' error returned');
290: END IF;
291: WHEN error_dbl THEN
292: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
293: x_return_status := FND_API.g_ret_sts_unexp_error;
291: WHEN error_dbl THEN
292: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
293: x_return_status := FND_API.g_ret_sts_unexp_error;
294:
295: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
296: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
297: || l_proc|| ' unexpected error: '|| SQLERRM);
298: END IF;
299:
292: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
293: x_return_status := FND_API.g_ret_sts_unexp_error;
294:
295: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
296: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
297: || l_proc|| ' unexpected error: '|| SQLERRM);
298: END IF;
299:
300: WHEN error_dispensing THEN
299:
300: WHEN error_dispensing THEN
301: gme_common_pvt.log_message ('GME_DISPENSE_NON_RESERVE');
302: x_return_status := l_return_status;
303: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
304: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
305: || l_proc|| 'Dispensing error returned ');
306: END IF;
307: WHEN OTHERS THEN
300: WHEN error_dispensing THEN
301: gme_common_pvt.log_message ('GME_DISPENSE_NON_RESERVE');
302: x_return_status := l_return_status;
303: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
304: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
305: || l_proc|| 'Dispensing error returned ');
306: END IF;
307: WHEN OTHERS THEN
308: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
305: || l_proc|| 'Dispensing error returned ');
306: END IF;
307: WHEN OTHERS THEN
308: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
309: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
310: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
311: END IF;
312: x_return_status := FND_API.g_ret_sts_unexp_error;
313: END insert_material_line;
306: END IF;
307: WHEN OTHERS THEN
308: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
309: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
310: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
311: END IF;
312: x_return_status := FND_API.g_ret_sts_unexp_error;
313: END insert_material_line;
314:
322:
323: validation_error EXCEPTION;
324:
325: BEGIN
326: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
327: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
328: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
329: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
330: END IF;
323: validation_error EXCEPTION;
324:
325: BEGIN
326: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
327: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
328: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
329: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
330: END IF;
331:
324:
325: BEGIN
326: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
327: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
328: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
329: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
330: END IF;
331:
332: /* Set the return status to success initially */
325: BEGIN
326: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
327: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
328: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
329: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
330: END IF;
331:
332: /* Set the return status to success initially */
333: x_return_status := FND_API.G_RET_STS_SUCCESS;
354: RAISE validation_error;
355: END IF;
356: END IF;
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: END IF;
361:
362: EXCEPTION
355: END IF;
356: END IF;
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: END IF;
361:
362: EXCEPTION
363: WHEN validation_error THEN
363: WHEN validation_error THEN
364: x_return_status := fnd_api.g_ret_sts_error;
365: WHEN OTHERS THEN
366: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
367: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
368: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
369: END IF;
370: x_return_status := FND_API.g_ret_sts_unexp_error;
371: END validate_batch_for_matl_ins;
364: x_return_status := fnd_api.g_ret_sts_error;
365: WHEN OTHERS THEN
366: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
367: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
368: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
369: END IF;
370: x_return_status := FND_API.g_ret_sts_unexp_error;
371: END validate_batch_for_matl_ins;
372:
398: l_api_name CONSTANT VARCHAR2 (30) := 'validate_material_for_ins';
399: l_val_proc VARCHAR2 (100);
400: val_error EXCEPTION;
401: BEGIN
402: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
403: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
404: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
405: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
406: END IF;
399: l_val_proc VARCHAR2 (100);
400: val_error EXCEPTION;
401: BEGIN
402: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
403: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
404: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
405: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
406: END IF;
407:
400: val_error EXCEPTION;
401: BEGIN
402: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
403: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
404: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
405: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
406: END IF;
407:
408: /* Set the return status to success initially */
401: BEGIN
402: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
403: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
404: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
405: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
406: END IF;
407:
408: /* Set the return status to success initially */
409: x_return_status := FND_API.G_RET_STS_SUCCESS;
810: l_val_proc := 'get_converted_qty';
811: RAISE val_error;
812: END IF;
813:
814: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
815: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' original_primary_qty= '
816: || x_material_detail_rec.original_primary_qty);
817: END IF;
818:
811: RAISE val_error;
812: END IF;
813:
814: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
815: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' original_primary_qty= '
816: || x_material_detail_rec.original_primary_qty);
817: END IF;
818:
819: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
815: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' original_primary_qty= '
816: || x_material_detail_rec.original_primary_qty);
817: END IF;
818:
819: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
820: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
821: END IF;
822: EXCEPTION
823: WHEN val_error THEN
816: || x_material_detail_rec.original_primary_qty);
817: END IF;
818:
819: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
820: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
821: END IF;
822: EXCEPTION
823: WHEN val_error THEN
824: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
820: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
821: END IF;
822: EXCEPTION
823: WHEN val_error THEN
824: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
825: gme_debug.put_line (g_pkg_name||'.'||l_api_name||': validation error from proc: '|| l_val_proc);
826: END IF;
827: x_return_status := FND_API.g_ret_sts_error;
828: WHEN OTHERS THEN
821: END IF;
822: EXCEPTION
823: WHEN val_error THEN
824: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
825: gme_debug.put_line (g_pkg_name||'.'||l_api_name||': validation error from proc: '|| l_val_proc);
826: END IF;
827: x_return_status := FND_API.g_ret_sts_error;
828: WHEN OTHERS THEN
829: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
826: END IF;
827: x_return_status := FND_API.g_ret_sts_error;
828: WHEN OTHERS THEN
829: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
830: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
831: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
832: END IF;
833: x_return_status := FND_API.g_ret_sts_unexp_error;
834: END validate_material_for_ins;
827: x_return_status := FND_API.g_ret_sts_error;
828: WHEN OTHERS THEN
829: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
830: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
831: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
832: END IF;
833: x_return_status := FND_API.g_ret_sts_unexp_error;
834: END validate_material_for_ins;
835:
862: l_field_name CONSTANT VARCHAR2 (20) := 'actual_qty';
863:
864:
865: BEGIN
866: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
867: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
868: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
869: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
870: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
863:
864:
865: BEGIN
866: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
867: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
868: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
869: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
870: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
871: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
864:
865: BEGIN
866: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
867: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
868: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
869: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
870: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
871: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
872: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
865: BEGIN
866: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
867: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
868: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
869: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
870: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
871: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
872: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
873: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
866: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
867: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
868: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
869: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
870: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
871: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
872: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
873: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
874: END IF;
867: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
868: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
869: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
870: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
871: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
872: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
873: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
874: END IF;
875:
868: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
869: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
870: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
871: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
872: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
873: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
874: END IF;
875:
876: /* Set the return status to success initially */
869: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
870: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
871: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
872: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
873: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
874: END IF;
875:
876: /* Set the return status to success initially */
877: x_return_status := FND_API.G_RET_STS_SUCCESS;
906: IF p_material_detail_rec.actual_qty = 0 THEN
907: -- not an error because actual quantity is 0 when the field is closed
908: NULL;
909: ELSE
910: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
911: gme_debug.put_line(g_pkg_name||'.'||l_api_name||': open_actual_qty returned -1; can not update actual qty');
912: END IF;
913: RAISE open_actual_qty_error;
914: END IF;
907: -- not an error because actual quantity is 0 when the field is closed
908: NULL;
909: ELSE
910: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
911: gme_debug.put_line(g_pkg_name||'.'||l_api_name||': open_actual_qty returned -1; can not update actual qty');
912: END IF;
913: RAISE open_actual_qty_error;
914: END IF;
915: ELSIF l_trans_id = -2 THEN
912: END IF;
913: RAISE open_actual_qty_error;
914: END IF;
915: ELSIF l_trans_id = -2 THEN
916: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
917: gme_debug.put_line(g_pkg_name||'.'||l_api_name||': open_actual_qty returned -2 raised unexpected error');
918: END IF;
919: RAISE open_actual_qty_unexp_error;
920: END IF;
913: RAISE open_actual_qty_error;
914: END IF;
915: ELSIF l_trans_id = -2 THEN
916: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
917: gme_debug.put_line(g_pkg_name||'.'||l_api_name||': open_actual_qty returned -2 raised unexpected error');
918: END IF;
919: RAISE open_actual_qty_unexp_error;
920: END IF;
921:
935:
936: x_transacted := FND_API.g_true;
937: END IF;
938:
939: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
940: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
941: END IF;
942:
943: EXCEPTION
936: x_transacted := FND_API.g_true;
937: END IF;
938:
939: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
940: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
941: END IF;
942:
943: EXCEPTION
944: WHEN error_get_rec THEN
958: NULL;
959: WHEN OTHERS THEN
960: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
961:
962: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
963: gme_debug.put_line ( 'Unexpected error: '
964: || g_pkg_name
965: || '.'
966: || l_api_name
959: WHEN OTHERS THEN
960: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
961:
962: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
963: gme_debug.put_line ( 'Unexpected error: '
964: || g_pkg_name
965: || '.'
966: || l_api_name
967: || ': '
1056: l_api_name CONSTANT VARCHAR2 (30) := 'open_actual_qty';
1057:
1058: BEGIN
1059:
1060: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1061: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1062: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_material_detail_rec.batch_id);
1063: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1064: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1057:
1058: BEGIN
1059:
1060: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1061: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1062: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_material_detail_rec.batch_id);
1063: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1064: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1065: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1058: BEGIN
1059:
1060: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1061: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1062: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_material_detail_rec.batch_id);
1063: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1064: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1065: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1066: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1059:
1060: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1061: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1062: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_material_detail_rec.batch_id);
1063: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1064: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1065: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1066: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1067: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1060: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1061: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1062: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_material_detail_rec.batch_id);
1063: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1064: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1065: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1066: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1067: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1068: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1061: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1062: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_material_detail_rec.batch_id);
1063: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1064: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1065: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1066: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1067: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1068: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1069: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_location_control_code='||p_location_control_code);
1062: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_material_detail_rec.batch_id);
1063: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1064: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1065: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1066: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1067: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1068: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1069: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_location_control_code='||p_location_control_code);
1070: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_restrict_locators_code='||p_restrict_locators_code);
1063: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1064: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1065: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1066: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1067: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1068: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1069: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_location_control_code='||p_location_control_code);
1070: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_restrict_locators_code='||p_restrict_locators_code);
1071: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
1064: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1065: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1066: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1067: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1068: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1069: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_location_control_code='||p_location_control_code);
1070: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_restrict_locators_code='||p_restrict_locators_code);
1071: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
1072: END IF;
1065: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1066: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1067: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1068: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1069: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_location_control_code='||p_location_control_code);
1070: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_restrict_locators_code='||p_restrict_locators_code);
1071: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
1072: END IF;
1073:
1066: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1067: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1068: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1069: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_location_control_code='||p_location_control_code);
1070: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_restrict_locators_code='||p_restrict_locators_code);
1071: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
1072: END IF;
1073:
1074: l_mtl_dtl_rec := p_material_detail_rec;
1067: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1068: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1069: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_location_control_code='||p_location_control_code);
1070: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_restrict_locators_code='||p_restrict_locators_code);
1071: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
1072: END IF;
1073:
1074: l_mtl_dtl_rec := p_material_detail_rec;
1075:
1116: gme_common_pvt.g_mtl_incremental_release)
1117: AND p_batch_status NOT IN (gme_common_pvt.g_batch_wip
1118: ,gme_common_pvt.g_batch_completed))
1119: ) THEN
1120: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1121: gme_debug.put_line
1122: ( g_pkg_name
1123: || '.'
1124: || l_api_name
1117: AND p_batch_status NOT IN (gme_common_pvt.g_batch_wip
1118: ,gme_common_pvt.g_batch_completed))
1119: ) THEN
1120: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1121: gme_debug.put_line
1122: ( g_pkg_name
1123: || '.'
1124: || l_api_name
1125: || 'matl_dtl_id= '
1139: -- following for manual, incremental and auto
1140: OR (p_batch_status NOT IN
1141: (gme_common_pvt.g_batch_wip
1142: ,gme_common_pvt.g_batch_completed) ) ) THEN
1143: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1144: gme_debug.put_line
1145: ( g_pkg_name
1146: || '.'
1147: || l_api_name
1140: OR (p_batch_status NOT IN
1141: (gme_common_pvt.g_batch_wip
1142: ,gme_common_pvt.g_batch_completed) ) ) THEN
1143: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1144: gme_debug.put_line
1145: ( g_pkg_name
1146: || '.'
1147: || l_api_name
1148: || 'matl_dtl_id= '
1188:
1189: CLOSE cur_get_trans;
1190:
1191: IF l_count_trans = 2 THEN
1192: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1193: gme_debug.put_line
1194: ( g_pkg_name
1195: || '.'
1196: || l_api_name
1189: CLOSE cur_get_trans;
1190:
1191: IF l_count_trans = 2 THEN
1192: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1193: gme_debug.put_line
1194: ( g_pkg_name
1195: || '.'
1196: || l_api_name
1197: || 'matl_dtl_id= '
1215: -- If it's lot control, ensure that there's only 1 transaction and there is only 1 entry
1216: -- in mtl_transaction_lots
1217: IF (l_lot_control_code = 2) THEN
1218: IF l_count_trans = 0 THEN
1219: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1220: gme_debug.put_line
1221: ( g_pkg_name
1222: || '.'
1223: || l_api_name
1216: -- in mtl_transaction_lots
1217: IF (l_lot_control_code = 2) THEN
1218: IF l_count_trans = 0 THEN
1219: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1220: gme_debug.put_line
1221: ( g_pkg_name
1222: || '.'
1223: || l_api_name
1224: || 'matl_dtl_id= '
1238: -- check MTL_TRANSACTION_LOT_NUMBERS table; join on transaction_id = l_trans_id
1239: -- if there is more than 1 record there, then can't update these transactions
1240: -- in essence, this is more than 1 transaction.
1241: IF l_count_lot_trans > 1 THEN
1242: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1243: gme_debug.put_line
1244: ( g_pkg_name
1245: || '.'
1246: || l_api_name
1239: -- if there is more than 1 record there, then can't update these transactions
1240: -- in essence, this is more than 1 transaction.
1241: IF l_count_lot_trans > 1 THEN
1242: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1243: gme_debug.put_line
1244: ( g_pkg_name
1245: || '.'
1246: || l_api_name
1247: || 'matl_dtl_id= '
1252: END IF;
1253:
1254: RETURN -1;
1255: ELSE
1256: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1257: gme_debug.put_line
1258: ( g_pkg_name
1259: || '.'
1260: || l_api_name
1253:
1254: RETURN -1;
1255: ELSE
1256: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1257: gme_debug.put_line
1258: ( g_pkg_name
1259: || '.'
1260: || l_api_name
1261: || 'matl_dtl_id= '
1272: -- At this point, the item is either plain or locator control... if there is 1 transaction,
1273: -- then actual qty can be updated, if there are none, then we have to check if matl has
1274: -- subinventory/locator specified on it in order to create the transaction
1275: IF l_count_trans = 1 THEN
1276: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1277: gme_debug.put_line
1278: ( g_pkg_name
1279: || '.'
1280: || l_api_name
1273: -- then actual qty can be updated, if there are none, then we have to check if matl has
1274: -- subinventory/locator specified on it in order to create the transaction
1275: IF l_count_trans = 1 THEN
1276: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1277: gme_debug.put_line
1278: ( g_pkg_name
1279: || '.'
1280: || l_api_name
1281: || 'matl_dtl_id= '
1293: FETCH cur_get_rev_code INTO l_rev_code;
1294: CLOSE cur_get_rev_code;
1295: --Bug#5129153 End.
1296: IF l_mtl_dtl_rec.subinventory IS NULL THEN
1297: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1298: gme_debug.put_line
1299: ( g_pkg_name
1300: || '.'
1301: || l_api_name
1294: CLOSE cur_get_rev_code;
1295: --Bug#5129153 End.
1296: IF l_mtl_dtl_rec.subinventory IS NULL THEN
1297: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1298: gme_debug.put_line
1299: ( g_pkg_name
1300: || '.'
1301: || l_api_name
1302: || 'matl_dtl_id= '
1319: l_txn_action := gme_common_pvt.g_byprod_comp_txn_action;
1320: END IF;
1321: --Bug#5129153 If item is revision controlled and revision field is NULL then return -1. Start.
1322: IF l_rev_code = 2 AND l_mtl_dtl_rec.revision IS NULL THEN
1323: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1324: gme_debug.put_line
1325: ( g_pkg_name
1326: || '.'
1327: || l_api_name
1320: END IF;
1321: --Bug#5129153 If item is revision controlled and revision field is NULL then return -1. Start.
1322: IF l_rev_code = 2 AND l_mtl_dtl_rec.revision IS NULL THEN
1323: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1324: gme_debug.put_line
1325: ( g_pkg_name
1326: || '.'
1327: || l_api_name
1328: || 'matl_dtl_id= '
1343: ,p_item_loc_restrict => l_restrict_locators_code
1344: ,p_action => l_txn_action);
1345:
1346: IF l_eff_locator_control = 1 THEN -- No locator control
1347: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1348: gme_debug.put_line
1349: ( g_pkg_name
1350: || '.'
1351: || l_api_name
1344: ,p_action => l_txn_action);
1345:
1346: IF l_eff_locator_control = 1 THEN -- No locator control
1347: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1348: gme_debug.put_line
1349: ( g_pkg_name
1350: || '.'
1351: || l_api_name
1352: || 'matl_dtl_id= '
1358: RETURN l_trans_id;
1359: ELSE -- locator control
1360: -- ensure there is a locator_id on the material
1361: IF l_mtl_dtl_rec.locator_id IS NULL THEN
1362: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1363: gme_debug.put_line
1364: ( g_pkg_name
1365: || '.'
1366: || l_api_name
1359: ELSE -- locator control
1360: -- ensure there is a locator_id on the material
1361: IF l_mtl_dtl_rec.locator_id IS NULL THEN
1362: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1363: gme_debug.put_line
1364: ( g_pkg_name
1365: || '.'
1366: || l_api_name
1367: || 'matl_dtl_id= '
1370: END IF;
1371:
1372: RETURN -1;
1373: ELSE
1374: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1375: gme_debug.put_line
1376: ( g_pkg_name
1377: || '.'
1378: || l_api_name
1371:
1372: RETURN -1;
1373: ELSE
1374: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1375: gme_debug.put_line
1376: ( g_pkg_name
1377: || '.'
1378: || l_api_name
1379: || 'matl_dtl_id= '
1387: END IF;
1388: END IF;
1389:
1390: -- shouldn't get to this point...
1391: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1392: gme_debug.put_line
1393: ( g_pkg_name
1394: || '.'
1395: || l_api_name
1388: END IF;
1389:
1390: -- shouldn't get to this point...
1391: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1392: gme_debug.put_line
1393: ( g_pkg_name
1394: || '.'
1395: || l_api_name
1396: || 'matl_dtl_id= '
1404: EXCEPTION
1405: WHEN OTHERS THEN
1406: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1407:
1408: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1409: gme_debug.put_line ( 'Unexpected error: '
1410: || g_pkg_name
1411: || '.'
1412: || l_api_name
1405: WHEN OTHERS THEN
1406: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1407:
1408: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1409: gme_debug.put_line ( 'Unexpected error: '
1410: || g_pkg_name
1411: || '.'
1412: || l_api_name
1413: || ': '
1443: error_trans EXCEPTION;
1444:
1445: BEGIN
1446:
1447: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1448: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1449: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
1450: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1451: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1444:
1445: BEGIN
1446:
1447: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1448: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1449: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
1450: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1451: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1452: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' trans_id='||p_trans_id);
1445: BEGIN
1446:
1447: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1448: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1449: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
1450: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1451: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1452: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' trans_id='||p_trans_id);
1453: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
1446:
1447: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1448: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1449: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
1450: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1451: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1452: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' trans_id='||p_trans_id);
1453: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
1454: END IF;
1447: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1448: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1449: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
1450: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1451: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1452: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' trans_id='||p_trans_id);
1453: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
1454: END IF;
1455:
1448: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1449: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
1450: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1451: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1452: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' trans_id='||p_trans_id);
1453: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
1454: END IF;
1455:
1456: x_return_status := fnd_api.g_ret_sts_success;
1449: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
1450: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1451: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1452: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' trans_id='||p_trans_id);
1453: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
1454: END IF;
1455:
1456: x_return_status := fnd_api.g_ret_sts_success;
1457:
1482: ,p_txns_pair => NULL
1483: ,x_return_status => x_return_status);
1484:
1485: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1486: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1487: gme_debug.put_line
1488: ( g_pkg_name
1489: || '.'
1490: || l_api_name
1483: ,x_return_status => x_return_status);
1484:
1485: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1486: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1487: gme_debug.put_line
1488: ( g_pkg_name
1489: || '.'
1490: || l_api_name
1491: || ' return '
1495:
1496: RAISE error_trans;
1497: END IF;
1498:
1499: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1500: gme_debug.put_line ( g_pkg_name
1501: || '.'
1502: || l_api_name
1503: || 'deleted transaction for trans_id= '
1496: RAISE error_trans;
1497: END IF;
1498:
1499: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1500: gme_debug.put_line ( g_pkg_name
1501: || '.'
1502: || l_api_name
1503: || 'deleted transaction for trans_id= '
1504: || TO_CHAR (p_trans_id) );
1590: ,p_phantom_trans => 0
1591: ,x_return_status => x_return_status);
1592:
1593: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1594: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1595: gme_debug.put_line
1596: ( g_pkg_name
1597: || '.'
1598: || l_api_name
1591: ,x_return_status => x_return_status);
1592:
1593: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1594: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1595: gme_debug.put_line
1596: ( g_pkg_name
1597: || '.'
1598: || l_api_name
1599: || ' return '
1604: RAISE error_trans;
1605: END IF;
1606:
1607: --FPbug#4543872
1608: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1609: gme_debug.put_line
1610: ( g_pkg_name
1611: || '.'
1612: || l_api_name
1605: END IF;
1606:
1607: --FPbug#4543872
1608: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1609: gme_debug.put_line
1610: ( g_pkg_name
1611: || '.'
1612: || l_api_name
1613: ||' transaction header id after create mtl txn'
1623: ,x_mmt_rec => l_mmt_rec
1624: ,x_mmln_tbl => l_mmln_tbl
1625: ,x_return_status => x_return_status);
1626: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1627: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1628: gme_debug.put_line( g_pkg_name|| '.'|| l_api_name|| ' return '|| x_return_status|| ' from gme_transactions_pvt.get_transactions');
1629: END IF;
1630: RAISE error_trans;
1631: END IF;
1624: ,x_mmln_tbl => l_mmln_tbl
1625: ,x_return_status => x_return_status);
1626: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1627: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1628: gme_debug.put_line( g_pkg_name|| '.'|| l_api_name|| ' return '|| x_return_status|| ' from gme_transactions_pvt.get_transactions');
1629: END IF;
1630: RAISE error_trans;
1631: END IF;
1632: l_mmt_rec.transaction_quantity := p_material_detail_rec.actual_qty;
1652: ,p_mmln_tbl => l_mmln_tbl
1653: ,x_return_status => x_return_status);
1654:
1655: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1656: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1657: gme_debug.put_line( g_pkg_name|| '.'|| l_api_name|| ' return '|| x_return_status|| ' from gme_transactions_pvt.create_material_txn');
1658: END IF;
1659: RAISE error_trans;
1660: END IF;
1653: ,x_return_status => x_return_status);
1654:
1655: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1656: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1657: gme_debug.put_line( g_pkg_name|| '.'|| l_api_name|| ' return '|| x_return_status|| ' from gme_transactions_pvt.create_material_txn');
1658: END IF;
1659: RAISE error_trans;
1660: END IF;
1661: END IF;
1661: END IF;
1662: END IF;
1663: END IF;
1664:
1665: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1666: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1667: END IF;
1668:
1669: EXCEPTION
1662: END IF;
1663: END IF;
1664:
1665: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1666: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1667: END IF;
1668:
1669: EXCEPTION
1670: WHEN error_trans THEN
1671: NULL;
1672: WHEN OTHERS THEN
1673: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1674:
1675: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1676: gme_debug.put_line ( 'Unexpected error: '
1677: || g_pkg_name
1678: || '.'
1679: || l_api_name
1672: WHEN OTHERS THEN
1673: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1674:
1675: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1676: gme_debug.put_line ( 'Unexpected error: '
1677: || g_pkg_name
1678: || '.'
1679: || l_api_name
1680: || ': '
1704: error_construct EXCEPTION;
1705: error_fetch_trans_date EXCEPTION;
1706:
1707: BEGIN
1708: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1709: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1710: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_hdr_rec.batch_id);
1711: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_matl_dtl_rec.material_detail_id);
1712: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1705: error_fetch_trans_date EXCEPTION;
1706:
1707: BEGIN
1708: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1709: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1710: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_hdr_rec.batch_id);
1711: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_matl_dtl_rec.material_detail_id);
1712: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1713: --FPbug#4543872
1706:
1707: BEGIN
1708: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1709: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1710: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_hdr_rec.batch_id);
1711: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_matl_dtl_rec.material_detail_id);
1712: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1713: --FPbug#4543872
1714: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_matl_dtl_rec.line_type);
1707: BEGIN
1708: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1709: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1710: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_hdr_rec.batch_id);
1711: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_matl_dtl_rec.material_detail_id);
1712: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1713: --FPbug#4543872
1714: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_matl_dtl_rec.line_type);
1715: END IF;
1708: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1709: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1710: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_hdr_rec.batch_id);
1711: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_matl_dtl_rec.material_detail_id);
1712: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1713: --FPbug#4543872
1714: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_matl_dtl_rec.line_type);
1715: END IF;
1716:
1710: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_hdr_rec.batch_id);
1711: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_matl_dtl_rec.material_detail_id);
1712: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1713: --FPbug#4543872
1714: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_matl_dtl_rec.line_type);
1715: END IF;
1716:
1717: l_line_type := p_matl_dtl_rec.line_type;
1718: x_return_status := fnd_api.g_ret_sts_success;
1809: p_batch_hdr_rec.actual_start_date;
1810: END IF;
1811: END IF;
1812:
1813: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1814: gme_debug.put_line ( g_pkg_name
1815: || '.'
1816: || l_api_name
1817: || ' construct trans with following:');
1810: END IF;
1811: END IF;
1812:
1813: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1814: gme_debug.put_line ( g_pkg_name
1815: || '.'
1816: || l_api_name
1817: || ' construct trans with following:');
1818: gme_debug.put_line ( g_pkg_name
1814: gme_debug.put_line ( g_pkg_name
1815: || '.'
1816: || l_api_name
1817: || ' construct trans with following:');
1818: gme_debug.put_line ( g_pkg_name
1819: || '.'
1820: || l_api_name
1821: || ' batch_id:'
1822: || TO_CHAR (x_mmti_rec.source_header_id) );
1819: || '.'
1820: || l_api_name
1821: || ' batch_id:'
1822: || TO_CHAR (x_mmti_rec.source_header_id) );
1823: gme_debug.put_line ( g_pkg_name
1824: || '.'
1825: || l_api_name
1826: || ' mtl_dtl_id:'
1827: || TO_CHAR (x_mmti_rec.trx_source_line_id) );
1824: || '.'
1825: || l_api_name
1826: || ' mtl_dtl_id:'
1827: || TO_CHAR (x_mmti_rec.trx_source_line_id) );
1828: gme_debug.put_line ( g_pkg_name
1829: || '.'
1830: || l_api_name
1831: || ' inventory_item_id:'
1832: || TO_CHAR (x_mmti_rec.inventory_item_id) );
1829: || '.'
1830: || l_api_name
1831: || ' inventory_item_id:'
1832: || TO_CHAR (x_mmti_rec.inventory_item_id) );
1833: gme_debug.put_line ( g_pkg_name
1834: || '.'
1835: || l_api_name
1836: || ' transaction_quantity:'
1837: || TO_CHAR (x_mmti_rec.transaction_quantity) );
1834: || '.'
1835: || l_api_name
1836: || ' transaction_quantity:'
1837: || TO_CHAR (x_mmti_rec.transaction_quantity) );
1838: gme_debug.put_line ( g_pkg_name
1839: || '.'
1840: || l_api_name
1841: || ' transaction_uom:'
1842: || x_mmti_rec.transaction_uom);
1839: || '.'
1840: || l_api_name
1841: || ' transaction_uom:'
1842: || x_mmti_rec.transaction_uom);
1843: gme_debug.put_line
1844: ( g_pkg_name
1845: || '.'
1846: || l_api_name
1847: || ' secondary_transaction_quantity:'
1846: || l_api_name
1847: || ' secondary_transaction_quantity:'
1848: || TO_CHAR
1849: (x_mmti_rec.secondary_transaction_quantity) );
1850: gme_debug.put_line ( g_pkg_name
1851: || '.'
1852: || l_api_name
1853: || ' secondary_uom_code:'
1854: || x_mmti_rec.secondary_uom_code);
1851: || '.'
1852: || l_api_name
1853: || ' secondary_uom_code:'
1854: || x_mmti_rec.secondary_uom_code);
1855: gme_debug.put_line ( g_pkg_name
1856: || '.'
1857: || l_api_name
1858: || ' transaction_date:'
1859: || TO_CHAR (x_mmti_rec.transaction_date, g_date_fmt) );
1858: || ' transaction_date:'
1859: || TO_CHAR (x_mmti_rec.transaction_date, g_date_fmt) );
1860: END IF;
1861:
1862: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1863: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1864: END IF;
1865:
1866: EXCEPTION
1859: || TO_CHAR (x_mmti_rec.transaction_date, g_date_fmt) );
1860: END IF;
1861:
1862: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1863: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1864: END IF;
1865:
1866: EXCEPTION
1867: WHEN error_construct OR error_fetch_trans_date THEN
1864: END IF;
1865:
1866: EXCEPTION
1867: WHEN error_construct OR error_fetch_trans_date THEN
1868: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1869: gme_debug.put_line (g_pkg_name||'.'||l_api_name
1870: ||': error from proc: '|| l_val_proc);
1871: END IF;
1872: WHEN OTHERS THEN
1865:
1866: EXCEPTION
1867: WHEN error_construct OR error_fetch_trans_date THEN
1868: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1869: gme_debug.put_line (g_pkg_name||'.'||l_api_name
1870: ||': error from proc: '|| l_val_proc);
1871: END IF;
1872: WHEN OTHERS THEN
1873: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1871: END IF;
1872: WHEN OTHERS THEN
1873: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1874:
1875: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1876: gme_debug.put_line ( 'Unexpected error: '
1877: || g_pkg_name
1878: || '.'
1879: || l_api_name
1872: WHEN OTHERS THEN
1873: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1874:
1875: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1876: gme_debug.put_line ( 'Unexpected error: '
1877: || g_pkg_name
1878: || '.'
1879: || l_api_name
1880: || ': '
1898:
1899: um_convert_error EXCEPTION;
1900:
1901: BEGIN
1902: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1903: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1904: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1905: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1906: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_qty='||p_qty);
1899: um_convert_error EXCEPTION;
1900:
1901: BEGIN
1902: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1903: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1904: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1905: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1906: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_qty='||p_qty);
1907: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_from_um='||p_from_um);
1900:
1901: BEGIN
1902: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1903: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1904: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1905: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1906: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_qty='||p_qty);
1907: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_from_um='||p_from_um);
1908: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_to_um='||p_to_um);
1901: BEGIN
1902: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1903: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1904: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1905: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1906: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_qty='||p_qty);
1907: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_from_um='||p_from_um);
1908: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_to_um='||p_to_um);
1909: END IF;
1902: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1903: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1904: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1905: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1906: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_qty='||p_qty);
1907: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_from_um='||p_from_um);
1908: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_to_um='||p_to_um);
1909: END IF;
1910:
1903: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1904: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1905: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1906: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_qty='||p_qty);
1907: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_from_um='||p_from_um);
1908: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_to_um='||p_to_um);
1909: END IF;
1910:
1911: /* Set the return status to success initially */
1904: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1905: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1906: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_qty='||p_qty);
1907: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_from_um='||p_from_um);
1908: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_to_um='||p_to_um);
1909: END IF;
1910:
1911: /* Set the return status to success initially */
1912: x_return_status := FND_API.G_RET_STS_SUCCESS;
1913:
1914: IF p_to_um = p_from_um THEN
1915: x_conv_qty := p_qty;
1916: ELSE
1917: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1918: gme_debug.put_line
1919: ( g_pkg_name
1920: || '.'
1921: || l_api_name
1914: IF p_to_um = p_from_um THEN
1915: x_conv_qty := p_qty;
1916: ELSE
1917: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1918: gme_debug.put_line
1919: ( g_pkg_name
1920: || '.'
1921: || l_api_name
1922: || ' before call to inv_convert.inv_um_convert');
1934: ,to_name => NULL);
1935:
1936: -- Note: -99999 should be in gme_common_pvt
1937: IF x_conv_qty = -99999 THEN
1938: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1939: gme_debug.put_line
1940: ( g_pkg_name
1941: || '.'
1942: || l_api_name
1935:
1936: -- Note: -99999 should be in gme_common_pvt
1937: IF x_conv_qty = -99999 THEN
1938: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1939: gme_debug.put_line
1940: ( g_pkg_name
1941: || '.'
1942: || l_api_name
1943: || ' inv_convert.inv_um_convert returned error');
1946: RAISE um_convert_error;
1947: END IF;
1948: END IF; -- IF p_to_um = p_from_um THEN
1949:
1950: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1951: gme_debug.put_line
1952: ( g_pkg_name
1953: || '.'
1954: || l_api_name
1947: END IF;
1948: END IF; -- IF p_to_um = p_from_um THEN
1949:
1950: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1951: gme_debug.put_line
1952: ( g_pkg_name
1953: || '.'
1954: || l_api_name
1955: || ' converted qty = '||x_conv_qty);
1954: || l_api_name
1955: || ' converted qty = '||x_conv_qty);
1956: END IF;
1957:
1958: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1959: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1960: END IF;
1961: EXCEPTION
1962: WHEN um_convert_error THEN
1955: || ' converted qty = '||x_conv_qty);
1956: END IF;
1957:
1958: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1959: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1960: END IF;
1961: EXCEPTION
1962: WHEN um_convert_error THEN
1963: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
1966: x_return_status := fnd_api.g_ret_sts_error;
1967: WHEN OTHERS THEN
1968: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1969:
1970: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1971: gme_debug.put_line ( 'Unexpected error: '
1972: || g_pkg_name
1973: || '.'
1974: || l_api_name
1967: WHEN OTHERS THEN
1968: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1969:
1970: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1971: gme_debug.put_line ( 'Unexpected error: '
1972: || g_pkg_name
1973: || '.'
1974: || l_api_name
1975: || ': '
1993:
1994: error_get_item EXCEPTION;
1995: l_api_name CONSTANT VARCHAR2 (30) := 'get_item_rec';
1996: BEGIN
1997: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1998: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1999: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2000: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2001: END IF;
1994: error_get_item EXCEPTION;
1995: l_api_name CONSTANT VARCHAR2 (30) := 'get_item_rec';
1996: BEGIN
1997: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1998: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1999: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2000: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2001: END IF;
2002:
1995: l_api_name CONSTANT VARCHAR2 (30) := 'get_item_rec';
1996: BEGIN
1997: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1998: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1999: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2000: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2001: END IF;
2002:
2003: x_return_status := fnd_api.g_ret_sts_success;
1996: BEGIN
1997: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1998: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1999: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2000: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2001: END IF;
2002:
2003: x_return_status := fnd_api.g_ret_sts_success;
2004:
2013:
2014: IF x_item_rec.inventory_item_id IS NULL THEN -- not found
2015: gme_common_pvt.log_message ('PM_INVALID_ITEM');
2016:
2017: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2018: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' no record in mtl_system_items_b: ');
2019: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'inventory_item_id = ' ||p_item_id );
2020: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'organization_id = ' ||p_org_id);
2021: END IF;
2014: IF x_item_rec.inventory_item_id IS NULL THEN -- not found
2015: gme_common_pvt.log_message ('PM_INVALID_ITEM');
2016:
2017: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2018: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' no record in mtl_system_items_b: ');
2019: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'inventory_item_id = ' ||p_item_id );
2020: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'organization_id = ' ||p_org_id);
2021: END IF;
2022: RAISE error_get_item;
2015: gme_common_pvt.log_message ('PM_INVALID_ITEM');
2016:
2017: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2018: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' no record in mtl_system_items_b: ');
2019: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'inventory_item_id = ' ||p_item_id );
2020: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'organization_id = ' ||p_org_id);
2021: END IF;
2022: RAISE error_get_item;
2023: END IF;
2016:
2017: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2018: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' no record in mtl_system_items_b: ');
2019: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'inventory_item_id = ' ||p_item_id );
2020: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'organization_id = ' ||p_org_id);
2021: END IF;
2022: RAISE error_get_item;
2023: END IF;
2024:
2021: END IF;
2022: RAISE error_get_item;
2023: END IF;
2024:
2025: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2026: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2027: END IF;
2028:
2029: EXCEPTION
2022: RAISE error_get_item;
2023: END IF;
2024:
2025: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2026: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2027: END IF;
2028:
2029: EXCEPTION
2030: WHEN error_get_item THEN
2031: x_return_status := fnd_api.g_ret_sts_error;
2032: WHEN OTHERS THEN
2033: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2034:
2035: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2036: gme_debug.put_line ( 'Unexpected error: '
2037: || g_pkg_name
2038: || '.'
2039: || l_api_name
2032: WHEN OTHERS THEN
2033: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2034:
2035: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2036: gme_debug.put_line ( 'Unexpected error: '
2037: || g_pkg_name
2038: || '.'
2039: || l_api_name
2040: || ': '
2057: l_segm mtl_system_items_kfv.concatenated_segments%TYPE;
2058: l_field VARCHAR2(100);
2059:
2060: BEGIN
2061: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2062: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2063: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_id);
2064: END IF;
2065:
2058: l_field VARCHAR2(100);
2059:
2060: BEGIN
2061: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2062: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2063: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_id);
2064: END IF;
2065:
2066: /* Set return status to success initially */
2059:
2060: BEGIN
2061: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2062: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2063: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_id);
2064: END IF;
2065:
2066: /* Set return status to success initially */
2067: x_return_status := fnd_api.g_ret_sts_success;
2103: l_field := 'serial_number_control_code';
2104: RAISE error_validate;
2105: END IF;
2106:
2107: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2108: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2109: END IF;
2110:
2111: EXCEPTION
2104: RAISE error_validate;
2105: END IF;
2106:
2107: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2108: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2109: END IF;
2110:
2111: EXCEPTION
2112: WHEN error_get_rec THEN
2111: EXCEPTION
2112: WHEN error_get_rec THEN
2113: NULL;
2114: WHEN error_validate THEN
2115: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2116: gme_debug.put_line
2117: ( g_pkg_name
2118: || '.'
2119: || l_api_name
2112: WHEN error_get_rec THEN
2113: NULL;
2114: WHEN error_validate THEN
2115: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2116: gme_debug.put_line
2117: ( g_pkg_name
2118: || '.'
2119: || l_api_name
2120: || ' validation failed for item field: '||l_field);
2131:
2132: WHEN OTHERS THEN
2133: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2134:
2135: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2136: gme_debug.put_line ( 'Unexpected error: '
2137: || g_pkg_name
2138: || '.'
2139: || l_api_name
2132: WHEN OTHERS THEN
2133: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2134:
2135: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2136: gme_debug.put_line ( 'Unexpected error: '
2137: || g_pkg_name
2138: || '.'
2139: || l_api_name
2140: || ': '
2166: error_revision_not_found EXCEPTION;
2167:
2168: BEGIN
2169:
2170: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2171: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2172: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' revision='||p_revision);
2173: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_rec.inventory_item_id);
2174: END IF;
2167:
2168: BEGIN
2169:
2170: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2171: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2172: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' revision='||p_revision);
2173: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_rec.inventory_item_id);
2174: END IF;
2175:
2168: BEGIN
2169:
2170: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2171: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2172: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' revision='||p_revision);
2173: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_rec.inventory_item_id);
2174: END IF;
2175:
2176: x_return_status := fnd_api.g_ret_sts_success;
2169:
2170: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2171: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2172: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' revision='||p_revision);
2173: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_rec.inventory_item_id);
2174: END IF;
2175:
2176: x_return_status := fnd_api.g_ret_sts_success;
2177:
2196: gme_common_pvt.log_message ('GME_REV_NOT_DEFD');
2197: RAISE error_revision_not_found;
2198: END IF;
2199:
2200: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2201: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2202: END IF;
2203:
2204: EXCEPTION
2197: RAISE error_revision_not_found;
2198: END IF;
2199:
2200: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2201: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2202: END IF;
2203:
2204: EXCEPTION
2205: WHEN error_not_revision_control OR error_revision_not_found THEN
2206: x_return_status := fnd_api.g_ret_sts_error;
2207: WHEN OTHERS THEN
2208: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2209:
2210: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2211: gme_debug.put_line ( 'Unexpected error: '
2212: || g_pkg_name
2213: || '.'
2214: || l_api_name
2207: WHEN OTHERS THEN
2208: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2209:
2210: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2211: gme_debug.put_line ( 'Unexpected error: '
2212: || g_pkg_name
2213: || '.'
2214: || l_api_name
2215: || ': '
2225: IS
2226: l_api_name CONSTANT VARCHAR2 (30) := 'validate_line_type';
2227: validation_error EXCEPTION;
2228: BEGIN
2229: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2230: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2231: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2232: END IF;
2233:
2226: l_api_name CONSTANT VARCHAR2 (30) := 'validate_line_type';
2227: validation_error EXCEPTION;
2228: BEGIN
2229: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2230: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2231: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2232: END IF;
2233:
2234: /* Set return status to success initially */
2227: validation_error EXCEPTION;
2228: BEGIN
2229: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2230: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2231: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2232: END IF;
2233:
2234: /* Set return status to success initially */
2235: x_return_status := fnd_api.g_ret_sts_success;
2253: gme_common_pvt.log_message ('GME_INVALID_LINE_TYPE');
2254: RAISE validation_error;
2255: END IF;
2256:
2257: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2258: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2259: END IF;
2260:
2261: EXCEPTION
2254: RAISE validation_error;
2255: END IF;
2256:
2257: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2258: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2259: END IF;
2260:
2261: EXCEPTION
2262: WHEN validation_error THEN
2263: x_return_status := fnd_api.g_ret_sts_error;
2264: WHEN OTHERS THEN
2265: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2266:
2267: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2268: gme_debug.put_line ( 'Unexpected error: '
2269: || g_pkg_name
2270: || '.'
2271: || l_api_name
2264: WHEN OTHERS THEN
2265: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2266:
2267: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2268: gme_debug.put_line ( 'Unexpected error: '
2269: || g_pkg_name
2270: || '.'
2271: || l_api_name
2272: || ': '
2290: l_api_name CONSTANT VARCHAR2 (30) := 'validate_byproduct_type';
2291: l_exists NUMBER;
2292: invalid_byproduct_type EXCEPTION;
2293: BEGIN
2294: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2295: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2296: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_byproduct_type='||p_byproduct_type);
2297: END IF;
2298:
2291: l_exists NUMBER;
2292: invalid_byproduct_type EXCEPTION;
2293: BEGIN
2294: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2295: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2296: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_byproduct_type='||p_byproduct_type);
2297: END IF;
2298:
2299: /* Set return status to success initially */
2292: invalid_byproduct_type EXCEPTION;
2293: BEGIN
2294: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2295: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2296: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_byproduct_type='||p_byproduct_type);
2297: END IF;
2298:
2299: /* Set return status to success initially */
2300: x_return_status := fnd_api.g_ret_sts_success;
2310: RAISE invalid_byproduct_type;
2311: END IF;
2312: END IF;
2313:
2314: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2315: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2316: END IF;
2317:
2318: EXCEPTION
2311: END IF;
2312: END IF;
2313:
2314: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2315: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2316: END IF;
2317:
2318: EXCEPTION
2319: WHEN invalid_byproduct_type THEN
2320: x_return_status := fnd_api.g_ret_sts_error;
2321: WHEN OTHERS THEN
2322: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2323:
2324: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2325: gme_debug.put_line ( 'Unexpected error: '
2326: || g_pkg_name
2327: || '.'
2328: || l_api_name
2321: WHEN OTHERS THEN
2322: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2323:
2324: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2325: gme_debug.put_line ( 'Unexpected error: '
2326: || g_pkg_name
2327: || '.'
2328: || l_api_name
2329: || ': '
2350:
2351: l_api_name CONSTANT VARCHAR2 (30) := 'validate_line_no';
2352: invalid_line_no EXCEPTION;
2353: BEGIN
2354: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2355: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2356: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_no='||p_line_no);
2357: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2358: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_id='||p_batch_id);
2351: l_api_name CONSTANT VARCHAR2 (30) := 'validate_line_no';
2352: invalid_line_no EXCEPTION;
2353: BEGIN
2354: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2355: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2356: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_no='||p_line_no);
2357: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2358: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_id='||p_batch_id);
2359: END IF;
2352: invalid_line_no EXCEPTION;
2353: BEGIN
2354: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2355: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2356: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_no='||p_line_no);
2357: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2358: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_id='||p_batch_id);
2359: END IF;
2360:
2353: BEGIN
2354: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2355: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2356: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_no='||p_line_no);
2357: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2358: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_id='||p_batch_id);
2359: END IF;
2360:
2361: x_return_status := fnd_api.g_ret_sts_success;
2354: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2355: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2356: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_no='||p_line_no);
2357: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2358: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_id='||p_batch_id);
2359: END IF;
2360:
2361: x_return_status := fnd_api.g_ret_sts_success;
2362:
2374: ELSE
2375: x_line_no := p_line_no;
2376: END IF;
2377:
2378: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2379: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2380: END IF;
2381:
2382: EXCEPTION
2375: x_line_no := p_line_no;
2376: END IF;
2377:
2378: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2379: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2380: END IF;
2381:
2382: EXCEPTION
2383: WHEN invalid_line_no THEN
2384: x_return_status := fnd_api.g_ret_sts_error;
2385: WHEN OTHERS THEN
2386: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2387:
2388: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2389: gme_debug.put_line ( 'Unexpected error: '
2390: || g_pkg_name
2391: || '.'
2392: || l_api_name
2385: WHEN OTHERS THEN
2386: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2387:
2388: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2389: gme_debug.put_line ( 'Unexpected error: '
2390: || g_pkg_name
2391: || '.'
2392: || l_api_name
2393: || ': '
2417: FROM mtl_units_of_measure
2418: WHERE uom_code = v_uom_code;
2419:
2420: BEGIN
2421: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2422: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2423: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_um='||p_dtl_um);
2424: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_primary_uom='||p_primary_uom);
2425: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2418: WHERE uom_code = v_uom_code;
2419:
2420: BEGIN
2421: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2422: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2423: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_um='||p_dtl_um);
2424: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_primary_uom='||p_primary_uom);
2425: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2426: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2419:
2420: BEGIN
2421: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2422: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2423: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_um='||p_dtl_um);
2424: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_primary_uom='||p_primary_uom);
2425: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2426: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2427: END IF;
2420: BEGIN
2421: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2422: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2423: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_um='||p_dtl_um);
2424: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_primary_uom='||p_primary_uom);
2425: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2426: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2427: END IF;
2428:
2421: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2422: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2423: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_um='||p_dtl_um);
2424: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_primary_uom='||p_primary_uom);
2425: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2426: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2427: END IF;
2428:
2429: x_return_status := fnd_api.g_ret_sts_success;
2422: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2423: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_um='||p_dtl_um);
2424: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_primary_uom='||p_primary_uom);
2425: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2426: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2427: END IF;
2428:
2429: x_return_status := fnd_api.g_ret_sts_success;
2430:
2459: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2460: RAISE um_convert_error;
2461: END IF;
2462:
2463: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2464: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2465: END IF;
2466:
2467: EXCEPTION
2460: RAISE um_convert_error;
2461: END IF;
2462:
2463: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2464: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2465: END IF;
2466:
2467: EXCEPTION
2468: -- WHEN invalid_dtl_um OR disabled_dtl_um THEN
2472: NULL;
2473: WHEN OTHERS THEN
2474: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2475:
2476: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2477: gme_debug.put_line ( 'Unexpected error: '
2478: || g_pkg_name
2479: || '.'
2480: || l_api_name
2473: WHEN OTHERS THEN
2474: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2475:
2476: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2477: gme_debug.put_line ( 'Unexpected error: '
2478: || g_pkg_name
2479: || '.'
2480: || l_api_name
2481: || ': '
2491: IS
2492: val_error EXCEPTION;
2493: l_api_name CONSTANT VARCHAR2 (30) := 'validate_plan_qty';
2494: BEGIN
2495: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2496: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2497: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_plan_qty='||p_plan_qty);
2498: END IF;
2499:
2492: val_error EXCEPTION;
2493: l_api_name CONSTANT VARCHAR2 (30) := 'validate_plan_qty';
2494: BEGIN
2495: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2496: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2497: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_plan_qty='||p_plan_qty);
2498: END IF;
2499:
2500: x_return_status := fnd_api.g_ret_sts_success;
2493: l_api_name CONSTANT VARCHAR2 (30) := 'validate_plan_qty';
2494: BEGIN
2495: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2496: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2497: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_plan_qty='||p_plan_qty);
2498: END IF;
2499:
2500: x_return_status := fnd_api.g_ret_sts_success;
2501:
2503: gme_common_pvt.log_message ('GME_INVALID_PLAN_QTY');
2504: RAISE val_error;
2505: END IF;
2506:
2507: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2508: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2509: END IF;
2510:
2511: EXCEPTION
2504: RAISE val_error;
2505: END IF;
2506:
2507: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2508: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2509: END IF;
2510:
2511: EXCEPTION
2512: WHEN val_error THEN
2513: x_return_status := fnd_api.g_ret_sts_error;
2514: WHEN OTHERS THEN
2515: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2516:
2517: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2518: gme_debug.put_line ( 'Unexpected error: '
2519: || g_pkg_name
2520: || '.'
2521: || l_api_name
2514: WHEN OTHERS THEN
2515: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2516:
2517: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2518: gme_debug.put_line ( 'Unexpected error: '
2519: || g_pkg_name
2520: || '.'
2521: || l_api_name
2522: || ': '
2532: IS
2533: val_error EXCEPTION;
2534: l_api_name CONSTANT VARCHAR2 (30) := 'validate_wip_plan_qty';
2535: BEGIN
2536: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2537: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2538: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_wip_plan_qty='||p_wip_plan_qty);
2539: END IF;
2540:
2533: val_error EXCEPTION;
2534: l_api_name CONSTANT VARCHAR2 (30) := 'validate_wip_plan_qty';
2535: BEGIN
2536: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2537: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2538: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_wip_plan_qty='||p_wip_plan_qty);
2539: END IF;
2540:
2541: x_return_status := fnd_api.g_ret_sts_success;
2534: l_api_name CONSTANT VARCHAR2 (30) := 'validate_wip_plan_qty';
2535: BEGIN
2536: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2537: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2538: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_wip_plan_qty='||p_wip_plan_qty);
2539: END IF;
2540:
2541: x_return_status := fnd_api.g_ret_sts_success;
2542:
2544: gme_common_pvt.log_message ('GME_INVALID_WIP_PLAN_QTY');
2545: RAISE val_error;
2546: END IF;
2547:
2548: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2549: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2550: END IF;
2551:
2552: EXCEPTION
2545: RAISE val_error;
2546: END IF;
2547:
2548: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2549: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2550: END IF;
2551:
2552: EXCEPTION
2553: WHEN val_error THEN
2554: x_return_status := fnd_api.g_ret_sts_error;
2555: WHEN OTHERS THEN
2556: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2557:
2558: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2559: gme_debug.put_line ( 'Unexpected error: '
2560: || g_pkg_name
2561: || '.'
2562: || l_api_name
2555: WHEN OTHERS THEN
2556: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2557:
2558: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2559: gme_debug.put_line ( 'Unexpected error: '
2560: || g_pkg_name
2561: || '.'
2562: || l_api_name
2563: || ': '
2573: IS
2574: val_error EXCEPTION;
2575: l_api_name CONSTANT VARCHAR2 (30) := 'validate_actual_qty';
2576: BEGIN
2577: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2578: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2579: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_actual_qty='||p_actual_qty);
2580: END IF;
2581:
2574: val_error EXCEPTION;
2575: l_api_name CONSTANT VARCHAR2 (30) := 'validate_actual_qty';
2576: BEGIN
2577: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2578: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2579: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_actual_qty='||p_actual_qty);
2580: END IF;
2581:
2582: x_return_status := fnd_api.g_ret_sts_success;
2575: l_api_name CONSTANT VARCHAR2 (30) := 'validate_actual_qty';
2576: BEGIN
2577: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2578: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2579: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_actual_qty='||p_actual_qty);
2580: END IF;
2581:
2582: x_return_status := fnd_api.g_ret_sts_success;
2583:
2585: gme_common_pvt.log_message ('GME_INVALID_ACTUAL_QTY');
2586: RAISE val_error;
2587: END IF;
2588:
2589: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2590: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2591: END IF;
2592:
2593: EXCEPTION
2586: RAISE val_error;
2587: END IF;
2588:
2589: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2590: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2591: END IF;
2592:
2593: EXCEPTION
2594: WHEN val_error THEN
2595: x_return_status := fnd_api.g_ret_sts_error;
2596: WHEN OTHERS THEN
2597: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2598:
2599: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2600: gme_debug.put_line ( 'Unexpected error: '
2601: || g_pkg_name
2602: || '.'
2603: || l_api_name
2596: WHEN OTHERS THEN
2597: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2598:
2599: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2600: gme_debug.put_line ( 'Unexpected error: '
2601: || g_pkg_name
2602: || '.'
2603: || l_api_name
2604: || ': '
2623: val_error EXCEPTION;
2624:
2625: l_api_name CONSTANT VARCHAR2 (30) := 'validate_release_type';
2626: BEGIN
2627: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2628: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2629: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_release_type='||p_release_type);
2630: END IF;
2631:
2624:
2625: l_api_name CONSTANT VARCHAR2 (30) := 'validate_release_type';
2626: BEGIN
2627: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2628: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2629: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_release_type='||p_release_type);
2630: END IF;
2631:
2632: x_return_status := fnd_api.g_ret_sts_success;
2625: l_api_name CONSTANT VARCHAR2 (30) := 'validate_release_type';
2626: BEGIN
2627: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2628: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2629: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_release_type='||p_release_type);
2630: END IF;
2631:
2632: x_return_status := fnd_api.g_ret_sts_success;
2633:
2639: gme_common_pvt.log_message ('GME_INVALID_RELEASE_TYPE');
2640: RAISE val_error;
2641: END IF;
2642:
2643: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2644: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2645: END IF;
2646:
2647: EXCEPTION
2640: RAISE val_error;
2641: END IF;
2642:
2643: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2644: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2645: END IF;
2646:
2647: EXCEPTION
2648: WHEN val_error THEN
2649: x_return_status := fnd_api.g_ret_sts_error;
2650: WHEN OTHERS THEN
2651: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2652:
2653: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2654: gme_debug.put_line ( 'Unexpected error: '
2655: || g_pkg_name
2656: || '.'
2657: || l_api_name
2650: WHEN OTHERS THEN
2651: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2652:
2653: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2654: gme_debug.put_line ( 'Unexpected error: '
2655: || g_pkg_name
2656: || '.'
2657: || l_api_name
2658: || ': '
2669:
2670: val_error EXCEPTION;
2671: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scrap_factor';
2672: BEGIN
2673: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2674: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2675: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scrap='||p_scrap);
2676: END IF;
2677:
2670: val_error EXCEPTION;
2671: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scrap_factor';
2672: BEGIN
2673: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2674: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2675: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scrap='||p_scrap);
2676: END IF;
2677:
2678: x_return_status := fnd_api.g_ret_sts_success;
2671: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scrap_factor';
2672: BEGIN
2673: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2674: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2675: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scrap='||p_scrap);
2676: END IF;
2677:
2678: x_return_status := fnd_api.g_ret_sts_success;
2679:
2681: gme_common_pvt.log_message ('GME_INVALID_SCRAP_FACTOR');
2682: RAISE val_error;
2683: END IF;
2684:
2685: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2686: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2687: END IF;
2688:
2689: EXCEPTION
2682: RAISE val_error;
2683: END IF;
2684:
2685: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2686: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2687: END IF;
2688:
2689: EXCEPTION
2690: WHEN val_error THEN
2691: x_return_status := fnd_api.g_ret_sts_error;
2692: WHEN OTHERS THEN
2693: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2694:
2695: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2696: gme_debug.put_line ( 'Unexpected error: '
2697: || g_pkg_name
2698: || '.'
2699: || l_api_name
2692: WHEN OTHERS THEN
2693: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2694:
2695: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2696: gme_debug.put_line ( 'Unexpected error: '
2697: || g_pkg_name
2698: || '.'
2699: || l_api_name
2700: || ': '
2710: IS
2711: val_error EXCEPTION;
2712: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_multiple';
2713: BEGIN
2714: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2715: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2716: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_mult='||p_scale_mult);
2717: END IF;
2718:
2711: val_error EXCEPTION;
2712: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_multiple';
2713: BEGIN
2714: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2715: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2716: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_mult='||p_scale_mult);
2717: END IF;
2718:
2719: x_return_status := fnd_api.g_ret_sts_success;
2712: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_multiple';
2713: BEGIN
2714: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2715: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2716: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_mult='||p_scale_mult);
2717: END IF;
2718:
2719: x_return_status := fnd_api.g_ret_sts_success;
2720:
2722: gme_common_pvt.log_message ('GME_INVALID_SCALE_MULT');
2723: RAISE val_error;
2724: END IF;
2725:
2726: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2727: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2728: END IF;
2729:
2730: EXCEPTION
2723: RAISE val_error;
2724: END IF;
2725:
2726: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2727: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2728: END IF;
2729:
2730: EXCEPTION
2731: WHEN val_error THEN
2732: x_return_status := fnd_api.g_ret_sts_error;
2733: WHEN OTHERS THEN
2734: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2735:
2736: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2737: gme_debug.put_line ( 'Unexpected error: '
2738: || g_pkg_name
2739: || '.'
2740: || l_api_name
2733: WHEN OTHERS THEN
2734: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2735:
2736: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2737: gme_debug.put_line ( 'Unexpected error: '
2738: || g_pkg_name
2739: || '.'
2740: || l_api_name
2741: || ': '
2751: IS
2752: val_error EXCEPTION;
2753: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_round_var';
2754: BEGIN
2755: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2756: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2757: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_var='||p_scale_var);
2758: END IF;
2759:
2752: val_error EXCEPTION;
2753: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_round_var';
2754: BEGIN
2755: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2756: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2757: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_var='||p_scale_var);
2758: END IF;
2759:
2760: x_return_status := fnd_api.g_ret_sts_success;
2753: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_round_var';
2754: BEGIN
2755: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2756: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2757: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_var='||p_scale_var);
2758: END IF;
2759:
2760: x_return_status := fnd_api.g_ret_sts_success;
2761:
2763: gme_common_pvt.log_message ('GME_INVALID_SCALE_ROUND_VAR');
2764: RAISE val_error;
2765: END IF;
2766:
2767: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2768: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2769: END IF;
2770:
2771: EXCEPTION
2764: RAISE val_error;
2765: END IF;
2766:
2767: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2768: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2769: END IF;
2770:
2771: EXCEPTION
2772: WHEN val_error THEN
2773: x_return_status := fnd_api.g_ret_sts_error;
2774: WHEN OTHERS THEN
2775: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2776:
2777: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2778: gme_debug.put_line ( 'Unexpected error: '
2779: || g_pkg_name
2780: || '.'
2781: || l_api_name
2774: WHEN OTHERS THEN
2775: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2776:
2777: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2778: gme_debug.put_line ( 'Unexpected error: '
2779: || g_pkg_name
2780: || '.'
2781: || l_api_name
2782: || ': '
2801: val_error EXCEPTION;
2802:
2803: l_api_name CONSTANT VARCHAR2 (30) := 'validate_rounding_direction';
2804: BEGIN
2805: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2806: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2807: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_round_dir='||p_round_dir);
2808: END IF;
2809:
2802:
2803: l_api_name CONSTANT VARCHAR2 (30) := 'validate_rounding_direction';
2804: BEGIN
2805: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2806: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2807: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_round_dir='||p_round_dir);
2808: END IF;
2809:
2810: x_return_status := fnd_api.g_ret_sts_success;
2803: l_api_name CONSTANT VARCHAR2 (30) := 'validate_rounding_direction';
2804: BEGIN
2805: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2806: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2807: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_round_dir='||p_round_dir);
2808: END IF;
2809:
2810: x_return_status := fnd_api.g_ret_sts_success;
2811:
2817: gme_common_pvt.log_message ('GME_INVALID_ROUND_DIR');
2818: RAISE val_error;
2819: END IF;
2820:
2821: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2822: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2823: END IF;
2824:
2825: EXCEPTION
2818: RAISE val_error;
2819: END IF;
2820:
2821: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2822: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2823: END IF;
2824:
2825: EXCEPTION
2826: WHEN val_error THEN
2827: x_return_status := fnd_api.g_ret_sts_error;
2828: WHEN OTHERS THEN
2829: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2830:
2831: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2832: gme_debug.put_line ( 'Unexpected error: '
2833: || g_pkg_name
2834: || '.'
2835: || l_api_name
2828: WHEN OTHERS THEN
2829: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2830:
2831: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2832: gme_debug.put_line ( 'Unexpected error: '
2833: || g_pkg_name
2834: || '.'
2835: || l_api_name
2836: || ': '
2855: l_exists NUMBER;
2856: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_type';
2857: val_error EXCEPTION;
2858: BEGIN
2859: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2860: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2861: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_type='||p_scale_type);
2862: END IF;
2863:
2856: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_type';
2857: val_error EXCEPTION;
2858: BEGIN
2859: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2860: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2861: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_type='||p_scale_type);
2862: END IF;
2863:
2864: x_return_status := fnd_api.g_ret_sts_success;
2857: val_error EXCEPTION;
2858: BEGIN
2859: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2860: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2861: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_type='||p_scale_type);
2862: END IF;
2863:
2864: x_return_status := fnd_api.g_ret_sts_success;
2865:
2871: gme_common_pvt.log_message ('GME_INVALID_SCALE_TYPE');
2872: RAISE val_error;
2873: END IF;
2874:
2875: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2876: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2877: END IF;
2878:
2879: EXCEPTION
2872: RAISE val_error;
2873: END IF;
2874:
2875: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2876: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2877: END IF;
2878:
2879: EXCEPTION
2880: WHEN val_error THEN
2881: x_return_status := fnd_api.g_ret_sts_error;
2882: WHEN OTHERS THEN
2883: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2884:
2885: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2886: gme_debug.put_line ( 'Unexpected error: '
2887: || g_pkg_name
2888: || '.'
2889: || l_api_name
2882: WHEN OTHERS THEN
2883: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2884:
2885: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2886: gme_debug.put_line ( 'Unexpected error: '
2887: || g_pkg_name
2888: || '.'
2889: || l_api_name
2890: || ': '
2923: --FPBug#4524232 End
2924: val_error EXCEPTION;
2925: l_api_name CONSTANT VARCHAR2 (30) := 'validate_cost_alloc';
2926: BEGIN
2927: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2928: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2929: END IF;
2930: x_return_status := fnd_api.g_ret_sts_success;
2931:
2924: val_error EXCEPTION;
2925: l_api_name CONSTANT VARCHAR2 (30) := 'validate_cost_alloc';
2926: BEGIN
2927: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2928: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2929: END IF;
2930: x_return_status := fnd_api.g_ret_sts_success;
2931:
2932: --FPBug#4524232 Begin
2971: gme_common_pvt.log_message ('GME_INVALID_COST_ALLOC');
2972: RAISE val_error;
2973: END IF; */
2974: --FPBug#4524232 End
2975: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2976: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2977: END IF;
2978: EXCEPTION
2979: WHEN val_error THEN
2972: RAISE val_error;
2973: END IF; */
2974: --FPBug#4524232 End
2975: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2976: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2977: END IF;
2978: EXCEPTION
2979: WHEN val_error THEN
2980: x_return_status := fnd_api.g_ret_sts_error;
2979: WHEN val_error THEN
2980: x_return_status := fnd_api.g_ret_sts_error;
2981: WHEN OTHERS THEN
2982: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2983: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2984: gme_debug.put_line ( 'Unexpected error: '
2985: || g_pkg_name
2986: || '.'
2987: || l_api_name
2980: x_return_status := fnd_api.g_ret_sts_error;
2981: WHEN OTHERS THEN
2982: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2983: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2984: gme_debug.put_line ( 'Unexpected error: '
2985: || g_pkg_name
2986: || '.'
2987: || l_api_name
2988: || ': '
3006: l_exists NUMBER;
3007: val_error EXCEPTION;
3008: l_api_name CONSTANT VARCHAR2 (30) := 'validate_phantom_type';
3009: BEGIN
3010: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3011: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3012: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_phantom_type='||p_phantom_type);
3013: END IF;
3014:
3007: val_error EXCEPTION;
3008: l_api_name CONSTANT VARCHAR2 (30) := 'validate_phantom_type';
3009: BEGIN
3010: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3011: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3012: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_phantom_type='||p_phantom_type);
3013: END IF;
3014:
3015: x_return_status := fnd_api.g_ret_sts_success;
3008: l_api_name CONSTANT VARCHAR2 (30) := 'validate_phantom_type';
3009: BEGIN
3010: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3011: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3012: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_phantom_type='||p_phantom_type);
3013: END IF;
3014:
3015: x_return_status := fnd_api.g_ret_sts_success;
3016:
3022: gme_common_pvt.log_message ('GME_INV_PHANTOM_TYPE');
3023: RAISE val_error;
3024: END IF;
3025:
3026: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3027: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3028: END IF;
3029:
3030: EXCEPTION
3023: RAISE val_error;
3024: END IF;
3025:
3026: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3027: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3028: END IF;
3029:
3030: EXCEPTION
3031: WHEN val_error THEN
3032: x_return_status := fnd_api.g_ret_sts_error;
3033: WHEN OTHERS THEN
3034: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3035:
3036: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3037: gme_debug.put_line ( 'Unexpected error: '
3038: || g_pkg_name
3039: || '.'
3040: || l_api_name
3033: WHEN OTHERS THEN
3034: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3035:
3036: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3037: gme_debug.put_line ( 'Unexpected error: '
3038: || g_pkg_name
3039: || '.'
3040: || l_api_name
3041: || ': '
3051: IS
3052: val_error EXCEPTION;
3053: l_api_name CONSTANT VARCHAR2 (30) := 'validate_contr_yield_ind';
3054: BEGIN
3055: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3056: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3057: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_contr_yield_ind='||p_contr_yield_ind);
3058: END IF;
3059:
3052: val_error EXCEPTION;
3053: l_api_name CONSTANT VARCHAR2 (30) := 'validate_contr_yield_ind';
3054: BEGIN
3055: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3056: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3057: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_contr_yield_ind='||p_contr_yield_ind);
3058: END IF;
3059:
3060: x_return_status := fnd_api.g_ret_sts_success;
3053: l_api_name CONSTANT VARCHAR2 (30) := 'validate_contr_yield_ind';
3054: BEGIN
3055: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3056: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3057: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_contr_yield_ind='||p_contr_yield_ind);
3058: END IF;
3059:
3060: x_return_status := fnd_api.g_ret_sts_success;
3061:
3063: gme_common_pvt.log_message ('GME_INVALID_CONTR_YIELD');
3064: RAISE val_error;
3065: END IF;
3066:
3067: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3068: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3069: END IF;
3070:
3071: EXCEPTION
3064: RAISE val_error;
3065: END IF;
3066:
3067: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3068: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3069: END IF;
3070:
3071: EXCEPTION
3072: WHEN val_error THEN
3073: x_return_status := fnd_api.g_ret_sts_error;
3074: WHEN OTHERS THEN
3075: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3076:
3077: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3078: gme_debug.put_line ( 'Unexpected error: '
3079: || g_pkg_name
3080: || '.'
3081: || l_api_name
3074: WHEN OTHERS THEN
3075: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3076:
3077: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3078: gme_debug.put_line ( 'Unexpected error: '
3079: || g_pkg_name
3080: || '.'
3081: || l_api_name
3082: || ': '
3093: val_error EXCEPTION;
3094:
3095: l_api_name CONSTANT VARCHAR2 (30) := 'validate_contr_step_qty_ind';
3096: BEGIN
3097: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3098: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3099: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_contr_step_qty_ind='||p_contr_step_qty_ind);
3100: END IF;
3101:
3094:
3095: l_api_name CONSTANT VARCHAR2 (30) := 'validate_contr_step_qty_ind';
3096: BEGIN
3097: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3098: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3099: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_contr_step_qty_ind='||p_contr_step_qty_ind);
3100: END IF;
3101:
3102: x_return_status := fnd_api.g_ret_sts_success;
3095: l_api_name CONSTANT VARCHAR2 (30) := 'validate_contr_step_qty_ind';
3096: BEGIN
3097: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3098: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3099: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_contr_step_qty_ind='||p_contr_step_qty_ind);
3100: END IF;
3101:
3102: x_return_status := fnd_api.g_ret_sts_success;
3103:
3105: gme_common_pvt.log_message ('GME_INVALID_CONTR_STEP');
3106: RAISE val_error;
3107: END IF;
3108:
3109: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3110: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3111: END IF;
3112:
3113: EXCEPTION
3106: RAISE val_error;
3107: END IF;
3108:
3109: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3110: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3111: END IF;
3112:
3113: EXCEPTION
3114: WHEN val_error THEN
3115: x_return_status := fnd_api.g_ret_sts_error;
3116: WHEN OTHERS THEN
3117: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3118:
3119: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3120: gme_debug.put_line ( 'Unexpected error: '
3121: || g_pkg_name
3122: || '.'
3123: || l_api_name
3116: WHEN OTHERS THEN
3117: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3118:
3119: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3120: gme_debug.put_line ( 'Unexpected error: '
3121: || g_pkg_name
3122: || '.'
3123: || l_api_name
3124: || ': '
3135: IS
3136: l_api_name CONSTANT VARCHAR2 (30) := 'VALIDATE_SUBINVENTORY';
3137: sub_not_valid EXCEPTION;
3138: BEGIN
3139: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3140: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3141: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_subinv='||p_subinv);
3142: END IF;
3143:
3136: l_api_name CONSTANT VARCHAR2 (30) := 'VALIDATE_SUBINVENTORY';
3137: sub_not_valid EXCEPTION;
3138: BEGIN
3139: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3140: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3141: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_subinv='||p_subinv);
3142: END IF;
3143:
3144: x_return_status := fnd_api.g_ret_sts_success;
3137: sub_not_valid EXCEPTION;
3138: BEGIN
3139: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3140: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3141: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_subinv='||p_subinv);
3142: END IF;
3143:
3144: x_return_status := fnd_api.g_ret_sts_success;
3145:
3154: ELSE
3155: RAISE sub_not_valid;
3156: END IF;
3157:
3158: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3159: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3160: END IF;
3161:
3162: EXCEPTION
3155: RAISE sub_not_valid;
3156: END IF;
3157:
3158: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3159: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3160: END IF;
3161:
3162: EXCEPTION
3163: WHEN sub_not_valid THEN
3164: x_return_status := fnd_api.g_ret_sts_error;
3165: WHEN OTHERS THEN
3166: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3167:
3168: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3169: gme_debug.put_line ( 'Unexpected error: '
3170: || g_pkg_name
3171: || '.'
3172: || l_api_name
3165: WHEN OTHERS THEN
3166: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3167:
3168: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3169: gme_debug.put_line ( 'Unexpected error: '
3170: || g_pkg_name
3171: || '.'
3172: || l_api_name
3173: || ': '
3195: FROM mtl_secondary_inventories
3196: WHERE organization_id = v_org_id
3197: AND secondary_inventory_name = v_subinventory;
3198: BEGIN
3199: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3200: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3201: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_subinv='||p_subinv);
3202: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_locator_id='||p_locator_id);
3203: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
3196: WHERE organization_id = v_org_id
3197: AND secondary_inventory_name = v_subinventory;
3198: BEGIN
3199: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3200: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3201: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_subinv='||p_subinv);
3202: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_locator_id='||p_locator_id);
3203: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
3204: END IF;
3197: AND secondary_inventory_name = v_subinventory;
3198: BEGIN
3199: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3200: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3201: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_subinv='||p_subinv);
3202: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_locator_id='||p_locator_id);
3203: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
3204: END IF;
3205:
3198: BEGIN
3199: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3200: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3201: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_subinv='||p_subinv);
3202: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_locator_id='||p_locator_id);
3203: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
3204: END IF;
3205:
3206: x_return_status := fnd_api.g_ret_sts_success;
3199: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3200: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3201: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_subinv='||p_subinv);
3202: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_locator_id='||p_locator_id);
3203: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
3204: END IF;
3205:
3206: x_return_status := fnd_api.g_ret_sts_success;
3207:
3236: RAISE loc_not_valid;
3237: END IF;
3238: END IF;
3239:
3240: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3241: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3242: END IF;
3243:
3244: EXCEPTION
3237: END IF;
3238: END IF;
3239:
3240: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3241: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3242: END IF;
3243:
3244: EXCEPTION
3245: WHEN loc_not_valid THEN
3246: x_return_status := fnd_api.g_ret_sts_error;
3247: WHEN OTHERS THEN
3248: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3249:
3250: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3251: gme_debug.put_line ( 'Unexpected error: '
3252: || g_pkg_name
3253: || '.'
3254: || l_api_name
3247: WHEN OTHERS THEN
3248: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3249:
3250: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3251: gme_debug.put_line ( 'Unexpected error: '
3252: || g_pkg_name
3253: || '.'
3254: || l_api_name
3255: || ': '
3308: error_processing EXCEPTION;
3309: l_plan_cmplt_date gme_batch_header.plan_cmplt_date%TYPE;
3310:
3311: BEGIN
3312: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3313: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3314: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3315: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3316: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3309: l_plan_cmplt_date gme_batch_header.plan_cmplt_date%TYPE;
3310:
3311: BEGIN
3312: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3313: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3314: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3315: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3316: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3317: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_phantom='||p_scale_phantom);
3310:
3311: BEGIN
3312: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3313: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3314: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3315: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3316: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3317: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_phantom='||p_scale_phantom);
3318: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
3311: BEGIN
3312: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3313: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3314: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3315: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3316: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3317: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_phantom='||p_scale_phantom);
3318: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
3319: END IF;
3312: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3313: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3314: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3315: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3316: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3317: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_phantom='||p_scale_phantom);
3318: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
3319: END IF;
3320:
3313: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3314: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3315: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3316: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3317: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_phantom='||p_scale_phantom);
3318: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
3319: END IF;
3320:
3321: /* Set return status to success initially */
3314: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3315: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3316: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3317: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_phantom='||p_scale_phantom);
3318: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
3319: END IF;
3320:
3321: /* Set return status to success initially */
3322: x_return_status := fnd_api.g_ret_sts_success;
3371: END IF;
3372: l_factor := l_mtl_dtl_rec.wip_plan_qty / l_eff_qty;
3373: END IF;
3374:
3375: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3376: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' l_qty='||l_qty);
3377: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' l_factor='||l_factor);
3378: END IF;
3379:
3372: l_factor := l_mtl_dtl_rec.wip_plan_qty / l_eff_qty;
3373: END IF;
3374:
3375: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3376: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' l_qty='||l_qty);
3377: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' l_factor='||l_factor);
3378: END IF;
3379:
3380: l_status := p_batch_header_rec.batch_status;
3373: END IF;
3374:
3375: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3376: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' l_qty='||l_qty);
3377: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' l_factor='||l_factor);
3378: END IF;
3379:
3380: l_status := p_batch_header_rec.batch_status;
3381: IF l_mtl_dtl_rec.release_type = gme_common_pvt.g_mtl_autobystep_release AND
3426: l_proc := 'gme_common_pvt.calc_mtl_req_date';
3427: RAISE error_processing;
3428: END IF;
3429:
3430: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3431: gme_debug.put_line ( g_pkg_name
3432: || '.'
3433: || l_api_name
3434: || ' after gme_common_pvt.calc_mtl_req_date');
3427: RAISE error_processing;
3428: END IF;
3429:
3430: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3431: gme_debug.put_line ( g_pkg_name
3432: || '.'
3433: || l_api_name
3434: || ' after gme_common_pvt.calc_mtl_req_date');
3435: gme_debug.put_line
3431: gme_debug.put_line ( g_pkg_name
3432: || '.'
3433: || l_api_name
3434: || ' after gme_common_pvt.calc_mtl_req_date');
3435: gme_debug.put_line
3436: ( g_pkg_name
3437: || '.'
3438: || l_api_name
3439: || ' material_requirement_date= '
3453: RAISE error_processing;
3454: END IF;
3455: --Bug#5159393 Susruth D.
3456: l_mtl_dtl_rec.last_update_date := gme_common_pvt.g_timestamp;
3457: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3458: gme_debug.put_line ( g_pkg_name
3459: || '.'
3460: || l_api_name
3461: || ' after gme_common_pvt.material_date_change');
3454: END IF;
3455: --Bug#5159393 Susruth D.
3456: l_mtl_dtl_rec.last_update_date := gme_common_pvt.g_timestamp;
3457: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3458: gme_debug.put_line ( g_pkg_name
3459: || '.'
3460: || l_api_name
3461: || ' after gme_common_pvt.material_date_change');
3462: gme_debug.put_line
3458: gme_debug.put_line ( g_pkg_name
3459: || '.'
3460: || l_api_name
3461: || ' after gme_common_pvt.material_date_change');
3462: gme_debug.put_line
3463: ( g_pkg_name
3464: || '.'
3465: || l_api_name
3466: || ' material_requirement_date= '
3763: IF l_mtl_dtl_rec.line_type <> -1 AND
3764: (l_mtl_dtl_rec.plan_qty < l_db_mtl_dtl_rec.plan_qty OR
3765: l_mtl_dtl_rec.wip_plan_qty < l_db_mtl_dtl_rec.wip_plan_qty OR
3766: l_mtl_dtl_rec.dtl_um <> l_db_mtl_dtl_rec.dtl_um) THEN
3767: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3768: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoking relieve_prod_supply_resv' );
3769: END IF;
3770: gme_supply_res_pvt.relieve_prod_supply_resv (
3771: p_matl_dtl_rec => l_mtl_dtl_rec
3764: (l_mtl_dtl_rec.plan_qty < l_db_mtl_dtl_rec.plan_qty OR
3765: l_mtl_dtl_rec.wip_plan_qty < l_db_mtl_dtl_rec.wip_plan_qty OR
3766: l_mtl_dtl_rec.dtl_um <> l_db_mtl_dtl_rec.dtl_um) THEN
3767: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3768: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoking relieve_prod_supply_resv' );
3769: END IF;
3770: gme_supply_res_pvt.relieve_prod_supply_resv (
3771: p_matl_dtl_rec => l_mtl_dtl_rec
3772: ,x_msg_count => l_message_count
3798: END IF;
3799:
3800: END IF;
3801:
3802: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3803: gme_debug.put_line ( g_pkg_name
3804: || '.'
3805: || l_api_name
3806: || ' after gme_material_details_dbl.update_row');
3799:
3800: END IF;
3801:
3802: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3803: gme_debug.put_line ( g_pkg_name
3804: || '.'
3805: || l_api_name
3806: || ' after gme_material_details_dbl.update_row');
3807: gme_debug.put_line ( g_pkg_name
3803: gme_debug.put_line ( g_pkg_name
3804: || '.'
3805: || l_api_name
3806: || ' after gme_material_details_dbl.update_row');
3807: gme_debug.put_line ( g_pkg_name
3808: || '.'
3809: || l_api_name
3810: || ' successfully updated material_detail_id= '
3811: || TO_CHAR (l_mtl_dtl_rec.material_detail_id) );
3832: l_proc := 'gme_update_step_qty_pvt.update_step_qty';
3833: RAISE error_processing;
3834: END IF;
3835:
3836: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3837: gme_debug.put_line
3838: ( g_pkg_name
3839: || '.'
3840: || l_api_name
3833: RAISE error_processing;
3834: END IF;
3835:
3836: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3837: gme_debug.put_line
3838: ( g_pkg_name
3839: || '.'
3840: || l_api_name
3841: || ': '
3842: || ' after gme_update_step_qty_pvt.update_step_qty: successful');
3843: END IF;
3844: END IF;
3845:
3846: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3847: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3848: END IF;
3849:
3850: EXCEPTION
3843: END IF;
3844: END IF;
3845:
3846: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3847: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3848: END IF;
3849:
3850: EXCEPTION
3851: WHEN error_processing THEN
3848: END IF;
3849:
3850: EXCEPTION
3851: WHEN error_processing THEN
3852: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3853: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': ' || l_proc|| ' error returned');
3854: END IF;
3855: WHEN error_dbl THEN
3856: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
3849:
3850: EXCEPTION
3851: WHEN error_processing THEN
3852: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3853: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': ' || l_proc|| ' error returned');
3854: END IF;
3855: WHEN error_dbl THEN
3856: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
3857: x_return_status := FND_API.g_ret_sts_unexp_error;
3855: WHEN error_dbl THEN
3856: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
3857: x_return_status := FND_API.g_ret_sts_unexp_error;
3858:
3859: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3860: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
3861: || l_proc|| ' unexpected error: '|| SQLERRM);
3862: END IF;
3863: WHEN OTHERS THEN
3856: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
3857: x_return_status := FND_API.g_ret_sts_unexp_error;
3858:
3859: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3860: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
3861: || l_proc|| ' unexpected error: '|| SQLERRM);
3862: END IF;
3863: WHEN OTHERS THEN
3864: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3862: END IF;
3863: WHEN OTHERS THEN
3864: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3865:
3866: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3867: gme_debug.put_line ( 'Unexpected error: '
3868: || g_pkg_name
3869: || '.'
3870: || l_api_name
3863: WHEN OTHERS THEN
3864: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3865:
3866: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3867: gme_debug.put_line ( 'Unexpected error: '
3868: || g_pkg_name
3869: || '.'
3870: || l_api_name
3871: || ': '
3901: val_error EXCEPTION;
3902: expected_error EXCEPTION;
3903: error_no_null EXCEPTION;
3904: BEGIN
3905: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3906: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3907: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3908: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3909: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3902: expected_error EXCEPTION;
3903: error_no_null EXCEPTION;
3904: BEGIN
3905: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3906: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3907: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3908: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3909: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3910: END IF;
3903: error_no_null EXCEPTION;
3904: BEGIN
3905: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3906: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3907: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3908: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3909: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3910: END IF;
3911:
3904: BEGIN
3905: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3906: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3907: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3908: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3909: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3910: END IF;
3911:
3912: /* Set return status to success initially */
3905: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3906: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3907: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3908: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3909: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3910: END IF;
3911:
3912: /* Set return status to success initially */
3913: x_return_status := fnd_api.g_ret_sts_success;
4367: l_val_proc := 'validate_flex_material_detail';
4368: RAISE val_error;
4369: END IF;
4370:
4371: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4372: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4373: END IF;
4374:
4375: EXCEPTION
4368: RAISE val_error;
4369: END IF;
4370:
4371: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4372: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4373: END IF;
4374:
4375: EXCEPTION
4376: WHEN error_no_null THEN
4380: x_return_status := fnd_api.g_ret_sts_error;
4381: WHEN error_no_upd OR expected_error THEN
4382: x_return_status := fnd_api.g_ret_sts_error;
4383: WHEN val_error THEN
4384: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4385: gme_debug.put_line (g_pkg_name||'.'||l_api_name||': validation error from proc: '|| l_val_proc);
4386: END IF;
4387: WHEN OTHERS THEN
4388: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4381: WHEN error_no_upd OR expected_error THEN
4382: x_return_status := fnd_api.g_ret_sts_error;
4383: WHEN val_error THEN
4384: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4385: gme_debug.put_line (g_pkg_name||'.'||l_api_name||': validation error from proc: '|| l_val_proc);
4386: END IF;
4387: WHEN OTHERS THEN
4388: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4389:
4386: END IF;
4387: WHEN OTHERS THEN
4388: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4389:
4390: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4391: gme_debug.put_line ( 'Unexpected error: '
4392: || g_pkg_name
4393: || '.'
4394: || l_api_name
4387: WHEN OTHERS THEN
4388: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4389:
4390: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4391: gme_debug.put_line ( 'Unexpected error: '
4392: || g_pkg_name
4393: || '.'
4394: || l_api_name
4395: || ': '
4442: l_material_count NUMBER := 0;
4443:
4444: val_error EXCEPTION;
4445: BEGIN
4446: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4447: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4448: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4449: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4450: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batch_step_id='||p_batch_step_rec.batchstep_id);
4443:
4444: val_error EXCEPTION;
4445: BEGIN
4446: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4447: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4448: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4449: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4450: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batch_step_id='||p_batch_step_rec.batchstep_id);
4451: END IF;
4444: val_error EXCEPTION;
4445: BEGIN
4446: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4447: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4448: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4449: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4450: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batch_step_id='||p_batch_step_rec.batchstep_id);
4451: END IF;
4452:
4445: BEGIN
4446: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4447: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4448: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4449: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4450: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batch_step_id='||p_batch_step_rec.batchstep_id);
4451: END IF;
4452:
4453: /* Set return status to success initially */
4446: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4447: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4448: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4449: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4450: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batch_step_id='||p_batch_step_rec.batchstep_id);
4451: END IF;
4452:
4453: /* Set return status to success initially */
4454: x_return_status := fnd_api.g_ret_sts_success;
4525: END IF;
4526: CLOSE cur_parent_phant; */
4527: END IF; /* line type check */
4528:
4529: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4530: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4531: END IF;
4532: EXCEPTION
4533: WHEN val_error THEN
4526: CLOSE cur_parent_phant; */
4527: END IF; /* line type check */
4528:
4529: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4530: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4531: END IF;
4532: EXCEPTION
4533: WHEN val_error THEN
4534: x_return_status := fnd_api.g_ret_sts_error;
4533: WHEN val_error THEN
4534: x_return_status := fnd_api.g_ret_sts_error;
4535: WHEN OTHERS THEN
4536: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4537: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4538: gme_debug.put_line ('Unexpected error: '
4539: || g_pkg_name
4540: || '.'
4541: || l_api_name
4534: x_return_status := fnd_api.g_ret_sts_error;
4535: WHEN OTHERS THEN
4536: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4537: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4538: gme_debug.put_line ('Unexpected error: '
4539: || g_pkg_name
4540: || '.'
4541: || l_api_name
4542: || ': '
4552: val_error EXCEPTION;
4553:
4554: l_api_name CONSTANT VARCHAR2 (30) := 'validate_phantom_type_change';
4555: BEGIN
4556: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4557: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4558: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4559: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4560: END IF;
4553:
4554: l_api_name CONSTANT VARCHAR2 (30) := 'validate_phantom_type_change';
4555: BEGIN
4556: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4557: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4558: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4559: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4560: END IF;
4561:
4554: l_api_name CONSTANT VARCHAR2 (30) := 'validate_phantom_type_change';
4555: BEGIN
4556: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4557: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4558: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4559: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4560: END IF;
4561:
4562: /* Set return status to success initially */
4555: BEGIN
4556: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4557: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4558: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4559: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4560: END IF;
4561:
4562: /* Set return status to success initially */
4563: x_return_status := fnd_api.g_ret_sts_success;
4577: gme_common_pvt.log_message ('GME_PENDING_MO_EXIST');
4578: RAISE val_error;
4579: END IF;
4580:
4581: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4582: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4583: END IF;
4584:
4585: EXCEPTION
4578: RAISE val_error;
4579: END IF;
4580:
4581: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4582: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4583: END IF;
4584:
4585: EXCEPTION
4586: WHEN val_error THEN
4587: x_return_status := fnd_api.g_ret_sts_error;
4588: WHEN OTHERS THEN
4589: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4590:
4591: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4592: gme_debug.put_line ( 'Unexpected error: '
4593: || g_pkg_name
4594: || '.'
4595: || l_api_name
4588: WHEN OTHERS THEN
4589: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4590:
4591: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4592: gme_debug.put_line ( 'Unexpected error: '
4593: || g_pkg_name
4594: || '.'
4595: || l_api_name
4596: || ': '
4619: error_dbl EXCEPTION;
4620:
4621: l_api_name CONSTANT VARCHAR2 (30) := 'delete_material_line';
4622: BEGIN
4623: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4624: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4625: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
4626: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4627: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
4620:
4621: l_api_name CONSTANT VARCHAR2 (30) := 'delete_material_line';
4622: BEGIN
4623: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4624: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4625: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
4626: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4627: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
4628: END IF;
4621: l_api_name CONSTANT VARCHAR2 (30) := 'delete_material_line';
4622: BEGIN
4623: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4624: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4625: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
4626: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4627: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
4628: END IF;
4629:
4622: BEGIN
4623: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4624: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4625: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
4626: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4627: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
4628: END IF;
4629:
4630: /* Set return status to success initially */
4623: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4624: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4625: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
4626: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4627: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
4628: END IF;
4629:
4630: /* Set return status to success initially */
4631: x_return_status := fnd_api.g_ret_sts_success;
4687: x_transacted := fnd_api.G_FALSE;
4688: END IF;
4689:
4690: -- 4944024 BEGIN
4691: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4692: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type is ' ||p_material_detail_rec.line_type );
4693: END IF;
4694: -- Delete any reservations against this supply source
4695: -- ==================================================
4688: END IF;
4689:
4690: -- 4944024 BEGIN
4691: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4692: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type is ' ||p_material_detail_rec.line_type );
4693: END IF;
4694: -- Delete any reservations against this supply source
4695: -- ==================================================
4696: IF NVL(p_material_detail_rec.line_type,0) <> -1 THEN
4693: END IF;
4694: -- Delete any reservations against this supply source
4695: -- ==================================================
4696: IF NVL(p_material_detail_rec.line_type,0) <> -1 THEN
4697: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4698: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoking delete_prod_supply_resv' );
4699: END IF;
4700: gme_supply_res_pvt.delete_prod_supply_resv (
4701: p_matl_dtl_rec => p_material_detail_rec
4694: -- Delete any reservations against this supply source
4695: -- ==================================================
4696: IF NVL(p_material_detail_rec.line_type,0) <> -1 THEN
4697: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4698: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoking delete_prod_supply_resv' );
4699: END IF;
4700: gme_supply_res_pvt.delete_prod_supply_resv (
4701: p_matl_dtl_rec => p_material_detail_rec
4702: ,x_msg_count => l_message_count
4752: l_proc := 'gme_update_step_qty_pvt.update_step_qty';
4753: RAISE error_processing;
4754: END IF;
4755:
4756: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4757: gme_debug.put_line
4758: ( g_pkg_name
4759: || '.'
4760: || l_api_name
4753: RAISE error_processing;
4754: END IF;
4755:
4756: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4757: gme_debug.put_line
4758: ( g_pkg_name
4759: || '.'
4760: || l_api_name
4761: || ': '
4762: || ' after gme_update_step_qty_pvt.update_step_qty: successful');
4763: END IF;
4764: END IF;
4765:
4766: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4767: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4768: END IF;
4769:
4770: EXCEPTION
4763: END IF;
4764: END IF;
4765:
4766: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4767: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4768: END IF;
4769:
4770: EXCEPTION
4771: WHEN error_processing THEN
4768: END IF;
4769:
4770: EXCEPTION
4771: WHEN error_processing THEN
4772: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4773: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': ' || l_proc|| ' error returned');
4774: END IF;
4775: WHEN error_dbl THEN
4776: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
4769:
4770: EXCEPTION
4771: WHEN error_processing THEN
4772: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4773: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': ' || l_proc|| ' error returned');
4774: END IF;
4775: WHEN error_dbl THEN
4776: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
4777: x_return_status := FND_API.g_ret_sts_unexp_error;
4775: WHEN error_dbl THEN
4776: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
4777: x_return_status := FND_API.g_ret_sts_unexp_error;
4778:
4779: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4780: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
4781: || l_proc|| ' unexpected error: '|| SQLERRM);
4782: END IF;
4783: WHEN OTHERS THEN
4776: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
4777: x_return_status := FND_API.g_ret_sts_unexp_error;
4778:
4779: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4780: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
4781: || l_proc|| ' unexpected error: '|| SQLERRM);
4782: END IF;
4783: WHEN OTHERS THEN
4784: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4782: END IF;
4783: WHEN OTHERS THEN
4784: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4785:
4786: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4787: gme_debug.put_line ( 'Unexpected error: '
4788: || g_pkg_name
4789: || '.'
4790: || l_api_name
4783: WHEN OTHERS THEN
4784: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4785:
4786: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4787: gme_debug.put_line ( 'Unexpected error: '
4788: || g_pkg_name
4789: || '.'
4790: || l_api_name
4791: || ': '