36: error_processing EXCEPTION;
37: error_dispensing EXCEPTION;
38:
39: BEGIN
40: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
41: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
42: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
43: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
44: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_no='||p_material_detail_rec.line_no);
37: error_dispensing EXCEPTION;
38:
39: BEGIN
40: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
41: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
42: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
43: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
44: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_no='||p_material_detail_rec.line_no);
45: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_material_detail_rec.line_type);
38:
39: BEGIN
40: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
41: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
42: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
43: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
44: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_no='||p_material_detail_rec.line_no);
45: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_material_detail_rec.line_type);
46: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' inventory_item_id='||p_material_detail_rec.inventory_item_id);
39: BEGIN
40: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
41: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
42: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
43: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
44: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_no='||p_material_detail_rec.line_no);
45: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_material_detail_rec.line_type);
46: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' inventory_item_id='||p_material_detail_rec.inventory_item_id);
47: END IF;
40: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
41: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
42: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
43: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
44: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_no='||p_material_detail_rec.line_no);
45: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_material_detail_rec.line_type);
46: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' inventory_item_id='||p_material_detail_rec.inventory_item_id);
47: END IF;
48:
41: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
42: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
43: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
44: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_no='||p_material_detail_rec.line_no);
45: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_material_detail_rec.line_type);
46: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' inventory_item_id='||p_material_detail_rec.inventory_item_id);
47: END IF;
48:
49: /* Set the return status to success initially */
42: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
43: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
44: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_no='||p_material_detail_rec.line_no);
45: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_material_detail_rec.line_type);
46: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' inventory_item_id='||p_material_detail_rec.inventory_item_id);
47: END IF;
48:
49: /* Set the return status to success initially */
50: x_return_status := fnd_api.g_ret_sts_success;
58: WHERE batch_id = p_material_detail_rec.batch_id
59: AND line_type = p_material_detail_rec.line_type
60: AND line_no >= p_material_detail_rec.line_no;
61:
62: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
63: gme_debug.put_line (g_pkg_name||'.'|| l_api_name||': '||SQL%ROWCOUNT||' records renumbered');
64: END IF;
65:
66: -- insert new material line
59: AND line_type = p_material_detail_rec.line_type
60: AND line_no >= p_material_detail_rec.line_no;
61:
62: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
63: gme_debug.put_line (g_pkg_name||'.'|| l_api_name||': '||SQL%ROWCOUNT||' records renumbered');
64: END IF;
65:
66: -- insert new material line
67: IF NOT gme_material_details_dbl.insert_row (p_material_detail_rec
69: l_proc := 'gme_material_details_dbl.insert_row';
70: RAISE error_dbl;
71: END IF;
72:
73: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
74: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' inserted material; material_detail_id= '
75: || x_material_detail_rec.material_detail_id);
76: END IF;
77:
70: RAISE error_dbl;
71: END IF;
72:
73: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
74: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' inserted material; material_detail_id= '
75: || x_material_detail_rec.material_detail_id);
76: END IF;
77:
78: --FPbug#4543872 moved this code over here
118: l_proc := 'gme_common_pvt.calc_mtl_req_date';
119: RAISE error_processing;
120: END IF;
121:
122: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
123: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' material_reqirement_date= '
124: || TO_CHAR(x_material_detail_rec.material_requirement_date,
125: gme_material_detail_pvt.g_date_fmt));
126: END IF;
119: RAISE error_processing;
120: END IF;
121:
122: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
123: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' material_reqirement_date= '
124: || TO_CHAR(x_material_detail_rec.material_requirement_date,
125: gme_material_detail_pvt.g_date_fmt));
126: END IF;
127: /* Bug 4866700 added update inventory check */
145: END IF;
146:
147: x_material_detail_rec := l_out_material_detail_tbl(1);
148:
149: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
150: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' move_order_line_id= '
151: ||x_material_detail_rec.move_order_line_id);
152: END IF;
153:
146:
147: x_material_detail_rec := l_out_material_detail_tbl(1);
148:
149: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
150: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' move_order_line_id= '
151: ||x_material_detail_rec.move_order_line_id);
152: END IF;
153:
154: IF p_batch_header_rec.recipe_validity_rule_id IS NULL THEN -- LCF batch
181: END IF;
182:
183: -- Pawan Kumar bug 4947535 new code added for GMO changes
184: IF (l_return_status = FND_API.G_RET_STS_SUCCESS AND x_material_detail_rec.dispense_ind = 'Y') then
185: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
186: gme_debug.put_line (g_pkg_name||'.'||l_api_name||'Instantiating material line id'
187: || x_material_detail_rec.material_detail_id);
188: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' config id ' || l_config_id);
189: END IF;
182:
183: -- Pawan Kumar bug 4947535 new code added for GMO changes
184: IF (l_return_status = FND_API.G_RET_STS_SUCCESS AND x_material_detail_rec.dispense_ind = 'Y') then
185: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
186: gme_debug.put_line (g_pkg_name||'.'||l_api_name||'Instantiating material line id'
187: || x_material_detail_rec.material_detail_id);
188: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' config id ' || l_config_id);
189: END IF;
190: GMO_DISPENSE_GRP.INSTANTIATE_DISPENSE_SETUP
184: IF (l_return_status = FND_API.G_RET_STS_SUCCESS AND x_material_detail_rec.dispense_ind = 'Y') then
185: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
186: gme_debug.put_line (g_pkg_name||'.'||l_api_name||'Instantiating material line id'
187: || x_material_detail_rec.material_detail_id);
188: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' config id ' || l_config_id);
189: END IF;
190: GMO_DISPENSE_GRP.INSTANTIATE_DISPENSE_SETUP
191: (p_api_version => 1.0
192: ,p_dispense_config_id => l_config_id
208: l_proc := 'gme_material_details_dbl.update_row';
209: RAISE error_dbl;
210: END IF;
211:
212: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
213: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' updated material; material_detail_id= '
214: || x_material_detail_rec.material_detail_id);
215: END IF;
216:
209: RAISE error_dbl;
210: END IF;
211:
212: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
213: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' updated material; material_detail_id= '
214: || x_material_detail_rec.material_detail_id);
215: END IF;
216:
217: -- call gme_trans_engine_util.load_rsrc_trans in preparation for update step qty
238: RAISE error_processing;
239: END IF;
240: END IF;
241:
242: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
243: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
244: END IF;
245:
246: EXCEPTION
239: END IF;
240: END IF;
241:
242: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
243: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
244: END IF;
245:
246: EXCEPTION
247: WHEN error_processing THEN
244: END IF;
245:
246: EXCEPTION
247: WHEN error_processing THEN
248: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
249: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': ' || l_proc|| ' error returned');
250: END IF;
251: WHEN error_dbl THEN
252: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
245:
246: EXCEPTION
247: WHEN error_processing THEN
248: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
249: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': ' || l_proc|| ' error returned');
250: END IF;
251: WHEN error_dbl THEN
252: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
253: x_return_status := FND_API.g_ret_sts_unexp_error;
251: WHEN error_dbl THEN
252: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
253: x_return_status := FND_API.g_ret_sts_unexp_error;
254:
255: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
256: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
257: || l_proc|| ' unexpected error: '|| SQLERRM);
258: END IF;
259:
252: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
253: x_return_status := FND_API.g_ret_sts_unexp_error;
254:
255: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
256: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
257: || l_proc|| ' unexpected error: '|| SQLERRM);
258: END IF;
259:
260: WHEN error_dispensing THEN
259:
260: WHEN error_dispensing THEN
261: gme_common_pvt.log_message ('GME_DISPENSE_NON_RESERVE');
262: x_return_status := l_return_status;
263: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
264: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
265: || l_proc|| 'Dispensing error returned ');
266: END IF;
267: WHEN OTHERS THEN
260: WHEN error_dispensing THEN
261: gme_common_pvt.log_message ('GME_DISPENSE_NON_RESERVE');
262: x_return_status := l_return_status;
263: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
264: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
265: || l_proc|| 'Dispensing error returned ');
266: END IF;
267: WHEN OTHERS THEN
268: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
265: || l_proc|| 'Dispensing error returned ');
266: END IF;
267: WHEN OTHERS THEN
268: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
269: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
270: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
271: END IF;
272: x_return_status := FND_API.g_ret_sts_unexp_error;
273: END insert_material_line;
266: END IF;
267: WHEN OTHERS THEN
268: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
269: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
270: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
271: END IF;
272: x_return_status := FND_API.g_ret_sts_unexp_error;
273: END insert_material_line;
274:
282:
283: validation_error EXCEPTION;
284:
285: BEGIN
286: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
287: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
288: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
289: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
290: END IF;
283: validation_error EXCEPTION;
284:
285: BEGIN
286: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
287: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
288: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
289: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
290: END IF;
291:
284:
285: BEGIN
286: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
287: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
288: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
289: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
290: END IF;
291:
292: /* Set the return status to success initially */
285: BEGIN
286: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
287: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
288: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
289: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
290: END IF;
291:
292: /* Set the return status to success initially */
293: x_return_status := FND_API.G_RET_STS_SUCCESS;
314: RAISE validation_error;
315: END IF;
316: END IF;
317:
318: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
319: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
320: END IF;
321:
322: EXCEPTION
315: END IF;
316: END IF;
317:
318: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
319: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
320: END IF;
321:
322: EXCEPTION
323: WHEN validation_error THEN
323: WHEN validation_error THEN
324: x_return_status := fnd_api.g_ret_sts_error;
325: WHEN OTHERS THEN
326: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
327: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
328: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
329: END IF;
330: x_return_status := FND_API.g_ret_sts_unexp_error;
331: END validate_batch_for_matl_ins;
324: x_return_status := fnd_api.g_ret_sts_error;
325: WHEN OTHERS THEN
326: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
327: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
328: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
329: END IF;
330: x_return_status := FND_API.g_ret_sts_unexp_error;
331: END validate_batch_for_matl_ins;
332:
358: l_api_name CONSTANT VARCHAR2 (30) := 'validate_material_for_ins';
359: l_val_proc VARCHAR2 (100);
360: val_error EXCEPTION;
361: BEGIN
362: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
363: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
364: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
365: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
366: END IF;
359: l_val_proc VARCHAR2 (100);
360: val_error EXCEPTION;
361: BEGIN
362: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
363: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
364: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
365: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
366: END IF;
367:
360: val_error EXCEPTION;
361: BEGIN
362: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
363: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
364: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
365: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
366: END IF;
367:
368: /* Set the return status to success initially */
361: BEGIN
362: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
363: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
364: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
365: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
366: END IF;
367:
368: /* Set the return status to success initially */
369: x_return_status := FND_API.G_RET_STS_SUCCESS;
770: l_val_proc := 'get_converted_qty';
771: RAISE val_error;
772: END IF;
773:
774: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
775: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' original_primary_qty= '
776: || x_material_detail_rec.original_primary_qty);
777: END IF;
778:
771: RAISE val_error;
772: END IF;
773:
774: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
775: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' original_primary_qty= '
776: || x_material_detail_rec.original_primary_qty);
777: END IF;
778:
779: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
775: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' original_primary_qty= '
776: || x_material_detail_rec.original_primary_qty);
777: END IF;
778:
779: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
780: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
781: END IF;
782: EXCEPTION
783: WHEN val_error THEN
776: || x_material_detail_rec.original_primary_qty);
777: END IF;
778:
779: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
780: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
781: END IF;
782: EXCEPTION
783: WHEN val_error THEN
784: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
780: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
781: END IF;
782: EXCEPTION
783: WHEN val_error THEN
784: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
785: gme_debug.put_line (g_pkg_name||'.'||l_api_name||': validation error from proc: '|| l_val_proc);
786: END IF;
787: x_return_status := FND_API.g_ret_sts_error;
788: WHEN OTHERS THEN
781: END IF;
782: EXCEPTION
783: WHEN val_error THEN
784: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
785: gme_debug.put_line (g_pkg_name||'.'||l_api_name||': validation error from proc: '|| l_val_proc);
786: END IF;
787: x_return_status := FND_API.g_ret_sts_error;
788: WHEN OTHERS THEN
789: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
786: END IF;
787: x_return_status := FND_API.g_ret_sts_error;
788: WHEN OTHERS THEN
789: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
790: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
791: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
792: END IF;
793: x_return_status := FND_API.g_ret_sts_unexp_error;
794: END validate_material_for_ins;
787: x_return_status := FND_API.g_ret_sts_error;
788: WHEN OTHERS THEN
789: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
790: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
791: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
792: END IF;
793: x_return_status := FND_API.g_ret_sts_unexp_error;
794: END validate_material_for_ins;
795:
822: l_field_name CONSTANT VARCHAR2 (20) := 'actual_qty';
823:
824:
825: BEGIN
826: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
827: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
828: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
829: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
830: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
823:
824:
825: BEGIN
826: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
827: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
828: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
829: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
830: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
831: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
824:
825: BEGIN
826: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
827: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
828: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
829: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
830: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
831: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
832: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
825: BEGIN
826: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
827: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
828: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
829: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
830: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
831: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
832: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
833: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
826: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
827: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
828: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
829: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
830: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
831: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
832: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
833: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
834: END IF;
827: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
828: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
829: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
830: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
831: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
832: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
833: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
834: END IF;
835:
828: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
829: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
830: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
831: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
832: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
833: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
834: END IF;
835:
836: /* Set the return status to success initially */
829: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
830: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
831: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
832: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
833: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
834: END IF;
835:
836: /* Set the return status to success initially */
837: x_return_status := FND_API.G_RET_STS_SUCCESS;
866: IF p_material_detail_rec.actual_qty = 0 THEN
867: -- not an error because actual quantity is 0 when the field is closed
868: NULL;
869: ELSE
870: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
871: gme_debug.put_line(g_pkg_name||'.'||l_api_name||': open_actual_qty returned -1; can not update actual qty');
872: END IF;
873: RAISE open_actual_qty_error;
874: END IF;
867: -- not an error because actual quantity is 0 when the field is closed
868: NULL;
869: ELSE
870: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
871: gme_debug.put_line(g_pkg_name||'.'||l_api_name||': open_actual_qty returned -1; can not update actual qty');
872: END IF;
873: RAISE open_actual_qty_error;
874: END IF;
875: ELSIF l_trans_id = -2 THEN
872: END IF;
873: RAISE open_actual_qty_error;
874: END IF;
875: ELSIF l_trans_id = -2 THEN
876: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
877: gme_debug.put_line(g_pkg_name||'.'||l_api_name||': open_actual_qty returned -2 raised unexpected error');
878: END IF;
879: RAISE open_actual_qty_unexp_error;
880: END IF;
873: RAISE open_actual_qty_error;
874: END IF;
875: ELSIF l_trans_id = -2 THEN
876: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
877: gme_debug.put_line(g_pkg_name||'.'||l_api_name||': open_actual_qty returned -2 raised unexpected error');
878: END IF;
879: RAISE open_actual_qty_unexp_error;
880: END IF;
881:
895:
896: x_transacted := FND_API.g_true;
897: END IF;
898:
899: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
900: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
901: END IF;
902:
903: EXCEPTION
896: x_transacted := FND_API.g_true;
897: END IF;
898:
899: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
900: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
901: END IF;
902:
903: EXCEPTION
904: WHEN error_get_rec THEN
918: NULL;
919: WHEN OTHERS THEN
920: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
921:
922: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
923: gme_debug.put_line ( 'Unexpected error: '
924: || g_pkg_name
925: || '.'
926: || l_api_name
919: WHEN OTHERS THEN
920: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
921:
922: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
923: gme_debug.put_line ( 'Unexpected error: '
924: || g_pkg_name
925: || '.'
926: || l_api_name
927: || ': '
1016: l_api_name CONSTANT VARCHAR2 (30) := 'open_actual_qty';
1017:
1018: BEGIN
1019:
1020: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1021: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1022: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_material_detail_rec.batch_id);
1023: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1024: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1017:
1018: BEGIN
1019:
1020: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1021: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1022: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_material_detail_rec.batch_id);
1023: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1024: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1025: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1018: BEGIN
1019:
1020: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1021: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1022: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_material_detail_rec.batch_id);
1023: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1024: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1025: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1026: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1019:
1020: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1021: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1022: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_material_detail_rec.batch_id);
1023: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1024: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1025: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1026: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1027: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1020: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1021: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1022: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_material_detail_rec.batch_id);
1023: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1024: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1025: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1026: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1027: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1028: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1021: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1022: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_material_detail_rec.batch_id);
1023: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1024: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1025: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1026: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1027: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1028: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1029: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_location_control_code='||p_location_control_code);
1022: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_material_detail_rec.batch_id);
1023: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1024: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1025: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1026: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1027: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1028: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1029: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_location_control_code='||p_location_control_code);
1030: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_restrict_locators_code='||p_restrict_locators_code);
1023: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1024: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1025: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1026: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1027: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1028: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1029: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_location_control_code='||p_location_control_code);
1030: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_restrict_locators_code='||p_restrict_locators_code);
1031: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
1024: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_status='||p_batch_status);
1025: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1026: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1027: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1028: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1029: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_location_control_code='||p_location_control_code);
1030: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_restrict_locators_code='||p_restrict_locators_code);
1031: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
1032: END IF;
1025: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_update_inventory_ind='||p_update_inventory_ind);
1026: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1027: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1028: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1029: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_location_control_code='||p_location_control_code);
1030: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_restrict_locators_code='||p_restrict_locators_code);
1031: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
1032: END IF;
1033:
1026: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batchstep_id='||p_batchstep_id);
1027: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1028: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1029: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_location_control_code='||p_location_control_code);
1030: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_restrict_locators_code='||p_restrict_locators_code);
1031: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
1032: END IF;
1033:
1034: l_mtl_dtl_rec := p_material_detail_rec;
1027: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_step_status='||p_step_status);
1028: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_control_code='||p_lot_control_code);
1029: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_location_control_code='||p_location_control_code);
1030: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_restrict_locators_code='||p_restrict_locators_code);
1031: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
1032: END IF;
1033:
1034: l_mtl_dtl_rec := p_material_detail_rec;
1035:
1076: gme_common_pvt.g_mtl_incremental_release)
1077: AND p_batch_status NOT IN (gme_common_pvt.g_batch_wip
1078: ,gme_common_pvt.g_batch_completed))
1079: ) THEN
1080: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1081: gme_debug.put_line
1082: ( g_pkg_name
1083: || '.'
1084: || l_api_name
1077: AND p_batch_status NOT IN (gme_common_pvt.g_batch_wip
1078: ,gme_common_pvt.g_batch_completed))
1079: ) THEN
1080: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1081: gme_debug.put_line
1082: ( g_pkg_name
1083: || '.'
1084: || l_api_name
1085: || 'matl_dtl_id= '
1099: -- following for manual, incremental and auto
1100: OR (p_batch_status NOT IN
1101: (gme_common_pvt.g_batch_wip
1102: ,gme_common_pvt.g_batch_completed) ) ) THEN
1103: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1104: gme_debug.put_line
1105: ( g_pkg_name
1106: || '.'
1107: || l_api_name
1100: OR (p_batch_status NOT IN
1101: (gme_common_pvt.g_batch_wip
1102: ,gme_common_pvt.g_batch_completed) ) ) THEN
1103: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1104: gme_debug.put_line
1105: ( g_pkg_name
1106: || '.'
1107: || l_api_name
1108: || 'matl_dtl_id= '
1148:
1149: CLOSE cur_get_trans;
1150:
1151: IF l_count_trans = 2 THEN
1152: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1153: gme_debug.put_line
1154: ( g_pkg_name
1155: || '.'
1156: || l_api_name
1149: CLOSE cur_get_trans;
1150:
1151: IF l_count_trans = 2 THEN
1152: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1153: gme_debug.put_line
1154: ( g_pkg_name
1155: || '.'
1156: || l_api_name
1157: || 'matl_dtl_id= '
1175: -- If it's lot control, ensure that there's only 1 transaction and there is only 1 entry
1176: -- in mtl_transaction_lots
1177: IF (l_lot_control_code = 2) THEN
1178: IF l_count_trans = 0 THEN
1179: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1180: gme_debug.put_line
1181: ( g_pkg_name
1182: || '.'
1183: || l_api_name
1176: -- in mtl_transaction_lots
1177: IF (l_lot_control_code = 2) THEN
1178: IF l_count_trans = 0 THEN
1179: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1180: gme_debug.put_line
1181: ( g_pkg_name
1182: || '.'
1183: || l_api_name
1184: || 'matl_dtl_id= '
1198: -- check MTL_TRANSACTION_LOT_NUMBERS table; join on transaction_id = l_trans_id
1199: -- if there is more than 1 record there, then can't update these transactions
1200: -- in essence, this is more than 1 transaction.
1201: IF l_count_lot_trans > 1 THEN
1202: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1203: gme_debug.put_line
1204: ( g_pkg_name
1205: || '.'
1206: || l_api_name
1199: -- if there is more than 1 record there, then can't update these transactions
1200: -- in essence, this is more than 1 transaction.
1201: IF l_count_lot_trans > 1 THEN
1202: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1203: gme_debug.put_line
1204: ( g_pkg_name
1205: || '.'
1206: || l_api_name
1207: || 'matl_dtl_id= '
1212: END IF;
1213:
1214: RETURN -1;
1215: ELSE
1216: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1217: gme_debug.put_line
1218: ( g_pkg_name
1219: || '.'
1220: || l_api_name
1213:
1214: RETURN -1;
1215: ELSE
1216: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1217: gme_debug.put_line
1218: ( g_pkg_name
1219: || '.'
1220: || l_api_name
1221: || 'matl_dtl_id= '
1232: -- At this point, the item is either plain or locator control... if there is 1 transaction,
1233: -- then actual qty can be updated, if there are none, then we have to check if matl has
1234: -- subinventory/locator specified on it in order to create the transaction
1235: IF l_count_trans = 1 THEN
1236: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1237: gme_debug.put_line
1238: ( g_pkg_name
1239: || '.'
1240: || l_api_name
1233: -- then actual qty can be updated, if there are none, then we have to check if matl has
1234: -- subinventory/locator specified on it in order to create the transaction
1235: IF l_count_trans = 1 THEN
1236: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1237: gme_debug.put_line
1238: ( g_pkg_name
1239: || '.'
1240: || l_api_name
1241: || 'matl_dtl_id= '
1253: FETCH cur_get_rev_code INTO l_rev_code;
1254: CLOSE cur_get_rev_code;
1255: --Bug#5129153 End.
1256: IF l_mtl_dtl_rec.subinventory IS NULL THEN
1257: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1258: gme_debug.put_line
1259: ( g_pkg_name
1260: || '.'
1261: || l_api_name
1254: CLOSE cur_get_rev_code;
1255: --Bug#5129153 End.
1256: IF l_mtl_dtl_rec.subinventory IS NULL THEN
1257: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1258: gme_debug.put_line
1259: ( g_pkg_name
1260: || '.'
1261: || l_api_name
1262: || 'matl_dtl_id= '
1279: l_txn_action := gme_common_pvt.g_byprod_comp_txn_action;
1280: END IF;
1281: --Bug#5129153 If item is revision controlled and revision field is NULL then return -1. Start.
1282: IF l_rev_code = 2 AND l_mtl_dtl_rec.revision IS NULL THEN
1283: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1284: gme_debug.put_line
1285: ( g_pkg_name
1286: || '.'
1287: || l_api_name
1280: END IF;
1281: --Bug#5129153 If item is revision controlled and revision field is NULL then return -1. Start.
1282: IF l_rev_code = 2 AND l_mtl_dtl_rec.revision IS NULL THEN
1283: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1284: gme_debug.put_line
1285: ( g_pkg_name
1286: || '.'
1287: || l_api_name
1288: || 'matl_dtl_id= '
1303: ,p_item_loc_restrict => l_restrict_locators_code
1304: ,p_action => l_txn_action);
1305:
1306: IF l_eff_locator_control = 1 THEN -- No locator control
1307: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1308: gme_debug.put_line
1309: ( g_pkg_name
1310: || '.'
1311: || l_api_name
1304: ,p_action => l_txn_action);
1305:
1306: IF l_eff_locator_control = 1 THEN -- No locator control
1307: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1308: gme_debug.put_line
1309: ( g_pkg_name
1310: || '.'
1311: || l_api_name
1312: || 'matl_dtl_id= '
1318: RETURN l_trans_id;
1319: ELSE -- locator control
1320: -- ensure there is a locator_id on the material
1321: IF l_mtl_dtl_rec.locator_id IS NULL THEN
1322: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1323: gme_debug.put_line
1324: ( g_pkg_name
1325: || '.'
1326: || l_api_name
1319: ELSE -- locator control
1320: -- ensure there is a locator_id on the material
1321: IF l_mtl_dtl_rec.locator_id IS NULL THEN
1322: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1323: gme_debug.put_line
1324: ( g_pkg_name
1325: || '.'
1326: || l_api_name
1327: || 'matl_dtl_id= '
1330: END IF;
1331:
1332: RETURN -1;
1333: ELSE
1334: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1335: gme_debug.put_line
1336: ( g_pkg_name
1337: || '.'
1338: || l_api_name
1331:
1332: RETURN -1;
1333: ELSE
1334: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1335: gme_debug.put_line
1336: ( g_pkg_name
1337: || '.'
1338: || l_api_name
1339: || 'matl_dtl_id= '
1347: END IF;
1348: END IF;
1349:
1350: -- shouldn't get to this point...
1351: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1352: gme_debug.put_line
1353: ( g_pkg_name
1354: || '.'
1355: || l_api_name
1348: END IF;
1349:
1350: -- shouldn't get to this point...
1351: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1352: gme_debug.put_line
1353: ( g_pkg_name
1354: || '.'
1355: || l_api_name
1356: || 'matl_dtl_id= '
1364: EXCEPTION
1365: WHEN OTHERS THEN
1366: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1367:
1368: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1369: gme_debug.put_line ( 'Unexpected error: '
1370: || g_pkg_name
1371: || '.'
1372: || l_api_name
1365: WHEN OTHERS THEN
1366: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1367:
1368: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1369: gme_debug.put_line ( 'Unexpected error: '
1370: || g_pkg_name
1371: || '.'
1372: || l_api_name
1373: || ': '
1398: error_trans EXCEPTION;
1399:
1400: BEGIN
1401:
1402: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1403: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1404: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
1405: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1406: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1399:
1400: BEGIN
1401:
1402: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1403: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1404: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
1405: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1406: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1407: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' trans_id='||p_trans_id);
1400: BEGIN
1401:
1402: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1403: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1404: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
1405: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1406: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1407: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' trans_id='||p_trans_id);
1408: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
1401:
1402: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1403: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1404: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
1405: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1406: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1407: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' trans_id='||p_trans_id);
1408: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
1409: END IF;
1402: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1403: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1404: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
1405: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1406: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1407: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' trans_id='||p_trans_id);
1408: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
1409: END IF;
1410:
1403: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1404: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
1405: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1406: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1407: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' trans_id='||p_trans_id);
1408: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
1409: END IF;
1410:
1411: x_return_status := fnd_api.g_ret_sts_success;
1404: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_header_rec.batch_id);
1405: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_material_detail_rec.material_detail_id);
1406: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1407: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' trans_id='||p_trans_id);
1408: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
1409: END IF;
1410:
1411: x_return_status := fnd_api.g_ret_sts_success;
1412:
1418: ,p_txns_pair => NULL
1419: ,x_return_status => x_return_status);
1420:
1421: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1422: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1423: gme_debug.put_line
1424: ( g_pkg_name
1425: || '.'
1426: || l_api_name
1419: ,x_return_status => x_return_status);
1420:
1421: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1422: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1423: gme_debug.put_line
1424: ( g_pkg_name
1425: || '.'
1426: || l_api_name
1427: || ' return '
1431:
1432: RAISE error_trans;
1433: END IF;
1434:
1435: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1436: gme_debug.put_line ( g_pkg_name
1437: || '.'
1438: || l_api_name
1439: || 'deleted transaction for trans_id= '
1432: RAISE error_trans;
1433: END IF;
1434:
1435: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1436: gme_debug.put_line ( g_pkg_name
1437: || '.'
1438: || l_api_name
1439: || 'deleted transaction for trans_id= '
1440: || TO_CHAR (p_trans_id) );
1458: ,p_phantom_trans => 0
1459: ,x_return_status => x_return_status);
1460:
1461: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1462: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1463: gme_debug.put_line
1464: ( g_pkg_name
1465: || '.'
1466: || l_api_name
1459: ,x_return_status => x_return_status);
1460:
1461: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1462: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1463: gme_debug.put_line
1464: ( g_pkg_name
1465: || '.'
1466: || l_api_name
1467: || ' return '
1471:
1472: RAISE error_trans;
1473: END IF;
1474: --FPbug#4543872
1475: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1476: gme_debug.put_line
1477: ( g_pkg_name
1478: || '.'
1479: || l_api_name
1472: RAISE error_trans;
1473: END IF;
1474: --FPbug#4543872
1475: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1476: gme_debug.put_line
1477: ( g_pkg_name
1478: || '.'
1479: || l_api_name
1480: ||' transaction header id after create mtl txn'
1489: ,x_mmt_rec => l_mmt_rec
1490: ,x_mmln_tbl => l_mmln_tbl
1491: ,x_return_status => x_return_status);
1492: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1493: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1494: gme_debug.put_line( g_pkg_name|| '.'|| l_api_name|| ' return '|| x_return_status|| ' from gme_transactions_pvt.get_transactions');
1495: END IF;
1496: RAISE error_trans;
1497: END IF;
1490: ,x_mmln_tbl => l_mmln_tbl
1491: ,x_return_status => x_return_status);
1492: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1493: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1494: gme_debug.put_line( g_pkg_name|| '.'|| l_api_name|| ' return '|| x_return_status|| ' from gme_transactions_pvt.get_transactions');
1495: END IF;
1496: RAISE error_trans;
1497: END IF;
1498: l_mmt_rec.transaction_quantity := p_material_detail_rec.actual_qty;
1509: ,p_mmln_tbl => l_mmln_tbl
1510: ,x_return_status => x_return_status);
1511:
1512: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1513: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1514: gme_debug.put_line( g_pkg_name|| '.'|| l_api_name|| ' return '|| x_return_status|| ' from gme_transactions_pvt.create_material_txn');
1515: END IF;
1516: RAISE error_trans;
1517: END IF;
1510: ,x_return_status => x_return_status);
1511:
1512: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1513: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1514: gme_debug.put_line( g_pkg_name|| '.'|| l_api_name|| ' return '|| x_return_status|| ' from gme_transactions_pvt.create_material_txn');
1515: END IF;
1516: RAISE error_trans;
1517: END IF;
1518: END IF;
1518: END IF;
1519: END IF;
1520: END IF;
1521:
1522: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1523: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1524: END IF;
1525:
1526: EXCEPTION
1519: END IF;
1520: END IF;
1521:
1522: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1523: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1524: END IF;
1525:
1526: EXCEPTION
1527: WHEN error_trans THEN
1528: NULL;
1529: WHEN OTHERS THEN
1530: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1531:
1532: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1533: gme_debug.put_line ( 'Unexpected error: '
1534: || g_pkg_name
1535: || '.'
1536: || l_api_name
1529: WHEN OTHERS THEN
1530: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1531:
1532: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1533: gme_debug.put_line ( 'Unexpected error: '
1534: || g_pkg_name
1535: || '.'
1536: || l_api_name
1537: || ': '
1561: error_construct EXCEPTION;
1562: error_fetch_trans_date EXCEPTION;
1563:
1564: BEGIN
1565: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1566: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1567: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_hdr_rec.batch_id);
1568: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_matl_dtl_rec.material_detail_id);
1569: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1562: error_fetch_trans_date EXCEPTION;
1563:
1564: BEGIN
1565: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1566: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1567: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_hdr_rec.batch_id);
1568: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_matl_dtl_rec.material_detail_id);
1569: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1570: --FPbug#4543872
1563:
1564: BEGIN
1565: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1566: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1567: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_hdr_rec.batch_id);
1568: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_matl_dtl_rec.material_detail_id);
1569: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1570: --FPbug#4543872
1571: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_matl_dtl_rec.line_type);
1564: BEGIN
1565: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1566: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1567: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_hdr_rec.batch_id);
1568: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_matl_dtl_rec.material_detail_id);
1569: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1570: --FPbug#4543872
1571: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_matl_dtl_rec.line_type);
1572: END IF;
1565: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1566: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1567: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_hdr_rec.batch_id);
1568: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_matl_dtl_rec.material_detail_id);
1569: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1570: --FPbug#4543872
1571: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_matl_dtl_rec.line_type);
1572: END IF;
1573:
1567: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batch_id='||p_batch_hdr_rec.batch_id);
1568: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' material_detail_id='||p_matl_dtl_rec.material_detail_id);
1569: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
1570: --FPbug#4543872
1571: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_matl_dtl_rec.line_type);
1572: END IF;
1573:
1574: l_line_type := p_matl_dtl_rec.line_type;
1575: x_return_status := fnd_api.g_ret_sts_success;
1666: p_batch_hdr_rec.actual_start_date;
1667: END IF;
1668: END IF;
1669:
1670: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1671: gme_debug.put_line ( g_pkg_name
1672: || '.'
1673: || l_api_name
1674: || ' construct trans with following:');
1667: END IF;
1668: END IF;
1669:
1670: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1671: gme_debug.put_line ( g_pkg_name
1672: || '.'
1673: || l_api_name
1674: || ' construct trans with following:');
1675: gme_debug.put_line ( g_pkg_name
1671: gme_debug.put_line ( g_pkg_name
1672: || '.'
1673: || l_api_name
1674: || ' construct trans with following:');
1675: gme_debug.put_line ( g_pkg_name
1676: || '.'
1677: || l_api_name
1678: || ' batch_id:'
1679: || TO_CHAR (x_mmti_rec.source_header_id) );
1676: || '.'
1677: || l_api_name
1678: || ' batch_id:'
1679: || TO_CHAR (x_mmti_rec.source_header_id) );
1680: gme_debug.put_line ( g_pkg_name
1681: || '.'
1682: || l_api_name
1683: || ' mtl_dtl_id:'
1684: || TO_CHAR (x_mmti_rec.trx_source_line_id) );
1681: || '.'
1682: || l_api_name
1683: || ' mtl_dtl_id:'
1684: || TO_CHAR (x_mmti_rec.trx_source_line_id) );
1685: gme_debug.put_line ( g_pkg_name
1686: || '.'
1687: || l_api_name
1688: || ' inventory_item_id:'
1689: || TO_CHAR (x_mmti_rec.inventory_item_id) );
1686: || '.'
1687: || l_api_name
1688: || ' inventory_item_id:'
1689: || TO_CHAR (x_mmti_rec.inventory_item_id) );
1690: gme_debug.put_line ( g_pkg_name
1691: || '.'
1692: || l_api_name
1693: || ' transaction_quantity:'
1694: || TO_CHAR (x_mmti_rec.transaction_quantity) );
1691: || '.'
1692: || l_api_name
1693: || ' transaction_quantity:'
1694: || TO_CHAR (x_mmti_rec.transaction_quantity) );
1695: gme_debug.put_line ( g_pkg_name
1696: || '.'
1697: || l_api_name
1698: || ' transaction_uom:'
1699: || x_mmti_rec.transaction_uom);
1696: || '.'
1697: || l_api_name
1698: || ' transaction_uom:'
1699: || x_mmti_rec.transaction_uom);
1700: gme_debug.put_line
1701: ( g_pkg_name
1702: || '.'
1703: || l_api_name
1704: || ' secondary_transaction_quantity:'
1703: || l_api_name
1704: || ' secondary_transaction_quantity:'
1705: || TO_CHAR
1706: (x_mmti_rec.secondary_transaction_quantity) );
1707: gme_debug.put_line ( g_pkg_name
1708: || '.'
1709: || l_api_name
1710: || ' secondary_uom_code:'
1711: || x_mmti_rec.secondary_uom_code);
1708: || '.'
1709: || l_api_name
1710: || ' secondary_uom_code:'
1711: || x_mmti_rec.secondary_uom_code);
1712: gme_debug.put_line ( g_pkg_name
1713: || '.'
1714: || l_api_name
1715: || ' transaction_date:'
1716: || TO_CHAR (x_mmti_rec.transaction_date, g_date_fmt) );
1715: || ' transaction_date:'
1716: || TO_CHAR (x_mmti_rec.transaction_date, g_date_fmt) );
1717: END IF;
1718:
1719: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1720: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1721: END IF;
1722:
1723: EXCEPTION
1716: || TO_CHAR (x_mmti_rec.transaction_date, g_date_fmt) );
1717: END IF;
1718:
1719: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1720: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1721: END IF;
1722:
1723: EXCEPTION
1724: WHEN error_construct OR error_fetch_trans_date THEN
1721: END IF;
1722:
1723: EXCEPTION
1724: WHEN error_construct OR error_fetch_trans_date THEN
1725: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1726: gme_debug.put_line (g_pkg_name||'.'||l_api_name
1727: ||': error from proc: '|| l_val_proc);
1728: END IF;
1729: WHEN OTHERS THEN
1722:
1723: EXCEPTION
1724: WHEN error_construct OR error_fetch_trans_date THEN
1725: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1726: gme_debug.put_line (g_pkg_name||'.'||l_api_name
1727: ||': error from proc: '|| l_val_proc);
1728: END IF;
1729: WHEN OTHERS THEN
1730: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1728: END IF;
1729: WHEN OTHERS THEN
1730: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1731:
1732: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1733: gme_debug.put_line ( 'Unexpected error: '
1734: || g_pkg_name
1735: || '.'
1736: || l_api_name
1729: WHEN OTHERS THEN
1730: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1731:
1732: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1733: gme_debug.put_line ( 'Unexpected error: '
1734: || g_pkg_name
1735: || '.'
1736: || l_api_name
1737: || ': '
1755:
1756: um_convert_error EXCEPTION;
1757:
1758: BEGIN
1759: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1760: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1761: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1762: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1763: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_qty='||p_qty);
1756: um_convert_error EXCEPTION;
1757:
1758: BEGIN
1759: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1760: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1761: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1762: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1763: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_qty='||p_qty);
1764: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_from_um='||p_from_um);
1757:
1758: BEGIN
1759: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1760: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1761: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1762: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1763: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_qty='||p_qty);
1764: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_from_um='||p_from_um);
1765: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_to_um='||p_to_um);
1758: BEGIN
1759: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1760: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1761: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1762: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1763: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_qty='||p_qty);
1764: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_from_um='||p_from_um);
1765: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_to_um='||p_to_um);
1766: END IF;
1759: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1760: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1761: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1762: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1763: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_qty='||p_qty);
1764: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_from_um='||p_from_um);
1765: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_to_um='||p_to_um);
1766: END IF;
1767:
1760: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1761: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1762: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1763: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_qty='||p_qty);
1764: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_from_um='||p_from_um);
1765: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_to_um='||p_to_um);
1766: END IF;
1767:
1768: /* Set the return status to success initially */
1761: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1762: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_lot_number='||p_lot_number);
1763: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_qty='||p_qty);
1764: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_from_um='||p_from_um);
1765: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_to_um='||p_to_um);
1766: END IF;
1767:
1768: /* Set the return status to success initially */
1769: x_return_status := FND_API.G_RET_STS_SUCCESS;
1770:
1771: IF p_to_um = p_from_um THEN
1772: x_conv_qty := p_qty;
1773: ELSE
1774: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1775: gme_debug.put_line
1776: ( g_pkg_name
1777: || '.'
1778: || l_api_name
1771: IF p_to_um = p_from_um THEN
1772: x_conv_qty := p_qty;
1773: ELSE
1774: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1775: gme_debug.put_line
1776: ( g_pkg_name
1777: || '.'
1778: || l_api_name
1779: || ' before call to inv_convert.inv_um_convert');
1791: ,to_name => NULL);
1792:
1793: -- Note: -99999 should be in gme_common_pvt
1794: IF x_conv_qty = -99999 THEN
1795: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1796: gme_debug.put_line
1797: ( g_pkg_name
1798: || '.'
1799: || l_api_name
1792:
1793: -- Note: -99999 should be in gme_common_pvt
1794: IF x_conv_qty = -99999 THEN
1795: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1796: gme_debug.put_line
1797: ( g_pkg_name
1798: || '.'
1799: || l_api_name
1800: || ' inv_convert.inv_um_convert returned error');
1803: RAISE um_convert_error;
1804: END IF;
1805: END IF; -- IF p_to_um = p_from_um THEN
1806:
1807: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1808: gme_debug.put_line
1809: ( g_pkg_name
1810: || '.'
1811: || l_api_name
1804: END IF;
1805: END IF; -- IF p_to_um = p_from_um THEN
1806:
1807: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1808: gme_debug.put_line
1809: ( g_pkg_name
1810: || '.'
1811: || l_api_name
1812: || ' converted qty = '||x_conv_qty);
1811: || l_api_name
1812: || ' converted qty = '||x_conv_qty);
1813: END IF;
1814:
1815: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1816: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1817: END IF;
1818: EXCEPTION
1819: WHEN um_convert_error THEN
1812: || ' converted qty = '||x_conv_qty);
1813: END IF;
1814:
1815: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1816: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1817: END IF;
1818: EXCEPTION
1819: WHEN um_convert_error THEN
1820: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
1823: x_return_status := fnd_api.g_ret_sts_error;
1824: WHEN OTHERS THEN
1825: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1826:
1827: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1828: gme_debug.put_line ( 'Unexpected error: '
1829: || g_pkg_name
1830: || '.'
1831: || l_api_name
1824: WHEN OTHERS THEN
1825: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1826:
1827: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1828: gme_debug.put_line ( 'Unexpected error: '
1829: || g_pkg_name
1830: || '.'
1831: || l_api_name
1832: || ': '
1850:
1851: error_get_item EXCEPTION;
1852: l_api_name CONSTANT VARCHAR2 (30) := 'get_item_rec';
1853: BEGIN
1854: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1855: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1856: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
1857: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1858: END IF;
1851: error_get_item EXCEPTION;
1852: l_api_name CONSTANT VARCHAR2 (30) := 'get_item_rec';
1853: BEGIN
1854: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1855: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1856: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
1857: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1858: END IF;
1859:
1852: l_api_name CONSTANT VARCHAR2 (30) := 'get_item_rec';
1853: BEGIN
1854: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1855: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1856: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
1857: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1858: END IF;
1859:
1860: x_return_status := fnd_api.g_ret_sts_success;
1853: BEGIN
1854: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1855: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1856: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
1857: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
1858: END IF;
1859:
1860: x_return_status := fnd_api.g_ret_sts_success;
1861:
1870:
1871: IF x_item_rec.inventory_item_id IS NULL THEN -- not found
1872: gme_common_pvt.log_message ('PM_INVALID_ITEM');
1873:
1874: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1875: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' no record in mtl_system_items_b: ');
1876: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'inventory_item_id = ' ||p_item_id );
1877: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'organization_id = ' ||p_org_id);
1878: END IF;
1871: IF x_item_rec.inventory_item_id IS NULL THEN -- not found
1872: gme_common_pvt.log_message ('PM_INVALID_ITEM');
1873:
1874: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1875: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' no record in mtl_system_items_b: ');
1876: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'inventory_item_id = ' ||p_item_id );
1877: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'organization_id = ' ||p_org_id);
1878: END IF;
1879: RAISE error_get_item;
1872: gme_common_pvt.log_message ('PM_INVALID_ITEM');
1873:
1874: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1875: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' no record in mtl_system_items_b: ');
1876: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'inventory_item_id = ' ||p_item_id );
1877: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'organization_id = ' ||p_org_id);
1878: END IF;
1879: RAISE error_get_item;
1880: END IF;
1873:
1874: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1875: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' no record in mtl_system_items_b: ');
1876: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'inventory_item_id = ' ||p_item_id );
1877: gme_debug.put_line(g_pkg_name||'.'||l_api_name||'organization_id = ' ||p_org_id);
1878: END IF;
1879: RAISE error_get_item;
1880: END IF;
1881:
1878: END IF;
1879: RAISE error_get_item;
1880: END IF;
1881:
1882: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1883: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1884: END IF;
1885:
1886: EXCEPTION
1879: RAISE error_get_item;
1880: END IF;
1881:
1882: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1883: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1884: END IF;
1885:
1886: EXCEPTION
1887: WHEN error_get_item THEN
1888: x_return_status := fnd_api.g_ret_sts_error;
1889: WHEN OTHERS THEN
1890: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1891:
1892: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1893: gme_debug.put_line ( 'Unexpected error: '
1894: || g_pkg_name
1895: || '.'
1896: || l_api_name
1889: WHEN OTHERS THEN
1890: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1891:
1892: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1893: gme_debug.put_line ( 'Unexpected error: '
1894: || g_pkg_name
1895: || '.'
1896: || l_api_name
1897: || ': '
1914: l_segm mtl_system_items_kfv.concatenated_segments%TYPE;
1915: l_field VARCHAR2(100);
1916:
1917: BEGIN
1918: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1919: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1920: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_id);
1921: END IF;
1922:
1915: l_field VARCHAR2(100);
1916:
1917: BEGIN
1918: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1919: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1920: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_id);
1921: END IF;
1922:
1923: /* Set return status to success initially */
1916:
1917: BEGIN
1918: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1919: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
1920: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_id);
1921: END IF;
1922:
1923: /* Set return status to success initially */
1924: x_return_status := fnd_api.g_ret_sts_success;
1959: l_field := 'serial_number_control_code';
1960: RAISE error_validate;
1961: END IF;
1962:
1963: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1964: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1965: END IF;
1966:
1967: EXCEPTION
1960: RAISE error_validate;
1961: END IF;
1962:
1963: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1964: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
1965: END IF;
1966:
1967: EXCEPTION
1968: WHEN error_get_rec THEN
1967: EXCEPTION
1968: WHEN error_get_rec THEN
1969: NULL;
1970: WHEN error_validate THEN
1971: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1972: gme_debug.put_line
1973: ( g_pkg_name
1974: || '.'
1975: || l_api_name
1968: WHEN error_get_rec THEN
1969: NULL;
1970: WHEN error_validate THEN
1971: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1972: gme_debug.put_line
1973: ( g_pkg_name
1974: || '.'
1975: || l_api_name
1976: || ' validation failed for item field: '||l_field);
1987:
1988: WHEN OTHERS THEN
1989: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1990:
1991: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1992: gme_debug.put_line ( 'Unexpected error: '
1993: || g_pkg_name
1994: || '.'
1995: || l_api_name
1988: WHEN OTHERS THEN
1989: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1990:
1991: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1992: gme_debug.put_line ( 'Unexpected error: '
1993: || g_pkg_name
1994: || '.'
1995: || l_api_name
1996: || ': '
2022: error_revision_not_found EXCEPTION;
2023:
2024: BEGIN
2025:
2026: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2027: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2028: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' revision='||p_revision);
2029: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_rec.inventory_item_id);
2030: END IF;
2023:
2024: BEGIN
2025:
2026: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2027: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2028: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' revision='||p_revision);
2029: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_rec.inventory_item_id);
2030: END IF;
2031:
2024: BEGIN
2025:
2026: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2027: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2028: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' revision='||p_revision);
2029: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_rec.inventory_item_id);
2030: END IF;
2031:
2032: x_return_status := fnd_api.g_ret_sts_success;
2025:
2026: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2027: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2028: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' revision='||p_revision);
2029: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_rec.inventory_item_id);
2030: END IF;
2031:
2032: x_return_status := fnd_api.g_ret_sts_success;
2033:
2052: gme_common_pvt.log_message ('GME_REV_NOT_DEFD');
2053: RAISE error_revision_not_found;
2054: END IF;
2055:
2056: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2057: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2058: END IF;
2059:
2060: EXCEPTION
2053: RAISE error_revision_not_found;
2054: END IF;
2055:
2056: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2057: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2058: END IF;
2059:
2060: EXCEPTION
2061: WHEN error_not_revision_control OR error_revision_not_found THEN
2062: x_return_status := fnd_api.g_ret_sts_error;
2063: WHEN OTHERS THEN
2064: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2065:
2066: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2067: gme_debug.put_line ( 'Unexpected error: '
2068: || g_pkg_name
2069: || '.'
2070: || l_api_name
2063: WHEN OTHERS THEN
2064: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2065:
2066: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2067: gme_debug.put_line ( 'Unexpected error: '
2068: || g_pkg_name
2069: || '.'
2070: || l_api_name
2071: || ': '
2081: IS
2082: l_api_name CONSTANT VARCHAR2 (30) := 'validate_line_type';
2083: validation_error EXCEPTION;
2084: BEGIN
2085: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2086: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2087: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2088: END IF;
2089:
2082: l_api_name CONSTANT VARCHAR2 (30) := 'validate_line_type';
2083: validation_error EXCEPTION;
2084: BEGIN
2085: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2086: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2087: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2088: END IF;
2089:
2090: /* Set return status to success initially */
2083: validation_error EXCEPTION;
2084: BEGIN
2085: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2086: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2087: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2088: END IF;
2089:
2090: /* Set return status to success initially */
2091: x_return_status := fnd_api.g_ret_sts_success;
2109: gme_common_pvt.log_message ('GME_INVALID_LINE_TYPE');
2110: RAISE validation_error;
2111: END IF;
2112:
2113: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2114: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2115: END IF;
2116:
2117: EXCEPTION
2110: RAISE validation_error;
2111: END IF;
2112:
2113: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2114: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2115: END IF;
2116:
2117: EXCEPTION
2118: WHEN validation_error THEN
2119: x_return_status := fnd_api.g_ret_sts_error;
2120: WHEN OTHERS THEN
2121: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2122:
2123: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2124: gme_debug.put_line ( 'Unexpected error: '
2125: || g_pkg_name
2126: || '.'
2127: || l_api_name
2120: WHEN OTHERS THEN
2121: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2122:
2123: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2124: gme_debug.put_line ( 'Unexpected error: '
2125: || g_pkg_name
2126: || '.'
2127: || l_api_name
2128: || ': '
2146: l_api_name CONSTANT VARCHAR2 (30) := 'validate_byproduct_type';
2147: l_exists NUMBER;
2148: invalid_byproduct_type EXCEPTION;
2149: BEGIN
2150: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2151: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2152: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_byproduct_type='||p_byproduct_type);
2153: END IF;
2154:
2147: l_exists NUMBER;
2148: invalid_byproduct_type EXCEPTION;
2149: BEGIN
2150: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2151: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2152: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_byproduct_type='||p_byproduct_type);
2153: END IF;
2154:
2155: /* Set return status to success initially */
2148: invalid_byproduct_type EXCEPTION;
2149: BEGIN
2150: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2151: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2152: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_byproduct_type='||p_byproduct_type);
2153: END IF;
2154:
2155: /* Set return status to success initially */
2156: x_return_status := fnd_api.g_ret_sts_success;
2166: RAISE invalid_byproduct_type;
2167: END IF;
2168: END IF;
2169:
2170: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2171: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2172: END IF;
2173:
2174: EXCEPTION
2167: END IF;
2168: END IF;
2169:
2170: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2171: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2172: END IF;
2173:
2174: EXCEPTION
2175: WHEN invalid_byproduct_type THEN
2176: x_return_status := fnd_api.g_ret_sts_error;
2177: WHEN OTHERS THEN
2178: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2179:
2180: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2181: gme_debug.put_line ( 'Unexpected error: '
2182: || g_pkg_name
2183: || '.'
2184: || l_api_name
2177: WHEN OTHERS THEN
2178: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2179:
2180: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2181: gme_debug.put_line ( 'Unexpected error: '
2182: || g_pkg_name
2183: || '.'
2184: || l_api_name
2185: || ': '
2206:
2207: l_api_name CONSTANT VARCHAR2 (30) := 'validate_line_no';
2208: invalid_line_no EXCEPTION;
2209: BEGIN
2210: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2211: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2212: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_no='||p_line_no);
2213: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2214: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_id='||p_batch_id);
2207: l_api_name CONSTANT VARCHAR2 (30) := 'validate_line_no';
2208: invalid_line_no EXCEPTION;
2209: BEGIN
2210: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2211: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2212: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_no='||p_line_no);
2213: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2214: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_id='||p_batch_id);
2215: END IF;
2208: invalid_line_no EXCEPTION;
2209: BEGIN
2210: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2211: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2212: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_no='||p_line_no);
2213: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2214: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_id='||p_batch_id);
2215: END IF;
2216:
2209: BEGIN
2210: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2211: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2212: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_no='||p_line_no);
2213: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2214: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_id='||p_batch_id);
2215: END IF;
2216:
2217: x_return_status := fnd_api.g_ret_sts_success;
2210: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2211: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2212: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_no='||p_line_no);
2213: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2214: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_id='||p_batch_id);
2215: END IF;
2216:
2217: x_return_status := fnd_api.g_ret_sts_success;
2218:
2230: ELSE
2231: x_line_no := p_line_no;
2232: END IF;
2233:
2234: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2235: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2236: END IF;
2237:
2238: EXCEPTION
2231: x_line_no := p_line_no;
2232: END IF;
2233:
2234: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2235: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2236: END IF;
2237:
2238: EXCEPTION
2239: WHEN invalid_line_no THEN
2240: x_return_status := fnd_api.g_ret_sts_error;
2241: WHEN OTHERS THEN
2242: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2243:
2244: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2245: gme_debug.put_line ( 'Unexpected error: '
2246: || g_pkg_name
2247: || '.'
2248: || l_api_name
2241: WHEN OTHERS THEN
2242: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2243:
2244: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2245: gme_debug.put_line ( 'Unexpected error: '
2246: || g_pkg_name
2247: || '.'
2248: || l_api_name
2249: || ': '
2273: FROM mtl_units_of_measure
2274: WHERE uom_code = v_uom_code;
2275:
2276: BEGIN
2277: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2278: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2279: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_um='||p_dtl_um);
2280: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_primary_uom='||p_primary_uom);
2281: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2274: WHERE uom_code = v_uom_code;
2275:
2276: BEGIN
2277: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2278: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2279: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_um='||p_dtl_um);
2280: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_primary_uom='||p_primary_uom);
2281: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2282: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2275:
2276: BEGIN
2277: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2278: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2279: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_um='||p_dtl_um);
2280: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_primary_uom='||p_primary_uom);
2281: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2282: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2283: END IF;
2276: BEGIN
2277: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2278: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2279: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_um='||p_dtl_um);
2280: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_primary_uom='||p_primary_uom);
2281: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2282: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2283: END IF;
2284:
2277: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2278: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2279: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_um='||p_dtl_um);
2280: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_primary_uom='||p_primary_uom);
2281: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2282: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2283: END IF;
2284:
2285: x_return_status := fnd_api.g_ret_sts_success;
2278: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2279: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_dtl_um='||p_dtl_um);
2280: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_primary_uom='||p_primary_uom);
2281: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2282: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2283: END IF;
2284:
2285: x_return_status := fnd_api.g_ret_sts_success;
2286:
2315: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2316: RAISE um_convert_error;
2317: END IF;
2318:
2319: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2320: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2321: END IF;
2322:
2323: EXCEPTION
2316: RAISE um_convert_error;
2317: END IF;
2318:
2319: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2320: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2321: END IF;
2322:
2323: EXCEPTION
2324: -- WHEN invalid_dtl_um OR disabled_dtl_um THEN
2328: NULL;
2329: WHEN OTHERS THEN
2330: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2331:
2332: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2333: gme_debug.put_line ( 'Unexpected error: '
2334: || g_pkg_name
2335: || '.'
2336: || l_api_name
2329: WHEN OTHERS THEN
2330: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2331:
2332: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2333: gme_debug.put_line ( 'Unexpected error: '
2334: || g_pkg_name
2335: || '.'
2336: || l_api_name
2337: || ': '
2347: IS
2348: val_error EXCEPTION;
2349: l_api_name CONSTANT VARCHAR2 (30) := 'validate_plan_qty';
2350: BEGIN
2351: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2352: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2353: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_plan_qty='||p_plan_qty);
2354: END IF;
2355:
2348: val_error EXCEPTION;
2349: l_api_name CONSTANT VARCHAR2 (30) := 'validate_plan_qty';
2350: BEGIN
2351: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2352: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2353: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_plan_qty='||p_plan_qty);
2354: END IF;
2355:
2356: x_return_status := fnd_api.g_ret_sts_success;
2349: l_api_name CONSTANT VARCHAR2 (30) := 'validate_plan_qty';
2350: BEGIN
2351: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2352: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2353: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_plan_qty='||p_plan_qty);
2354: END IF;
2355:
2356: x_return_status := fnd_api.g_ret_sts_success;
2357:
2359: gme_common_pvt.log_message ('GME_INVALID_PLAN_QTY');
2360: RAISE val_error;
2361: END IF;
2362:
2363: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2364: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2365: END IF;
2366:
2367: EXCEPTION
2360: RAISE val_error;
2361: END IF;
2362:
2363: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2364: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2365: END IF;
2366:
2367: EXCEPTION
2368: WHEN val_error THEN
2369: x_return_status := fnd_api.g_ret_sts_error;
2370: WHEN OTHERS THEN
2371: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2372:
2373: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2374: gme_debug.put_line ( 'Unexpected error: '
2375: || g_pkg_name
2376: || '.'
2377: || l_api_name
2370: WHEN OTHERS THEN
2371: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2372:
2373: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2374: gme_debug.put_line ( 'Unexpected error: '
2375: || g_pkg_name
2376: || '.'
2377: || l_api_name
2378: || ': '
2388: IS
2389: val_error EXCEPTION;
2390: l_api_name CONSTANT VARCHAR2 (30) := 'validate_wip_plan_qty';
2391: BEGIN
2392: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2393: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2394: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_wip_plan_qty='||p_wip_plan_qty);
2395: END IF;
2396:
2389: val_error EXCEPTION;
2390: l_api_name CONSTANT VARCHAR2 (30) := 'validate_wip_plan_qty';
2391: BEGIN
2392: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2393: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2394: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_wip_plan_qty='||p_wip_plan_qty);
2395: END IF;
2396:
2397: x_return_status := fnd_api.g_ret_sts_success;
2390: l_api_name CONSTANT VARCHAR2 (30) := 'validate_wip_plan_qty';
2391: BEGIN
2392: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2393: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2394: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_wip_plan_qty='||p_wip_plan_qty);
2395: END IF;
2396:
2397: x_return_status := fnd_api.g_ret_sts_success;
2398:
2400: gme_common_pvt.log_message ('GME_INVALID_WIP_PLAN_QTY');
2401: RAISE val_error;
2402: END IF;
2403:
2404: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2405: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2406: END IF;
2407:
2408: EXCEPTION
2401: RAISE val_error;
2402: END IF;
2403:
2404: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2405: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2406: END IF;
2407:
2408: EXCEPTION
2409: WHEN val_error THEN
2410: x_return_status := fnd_api.g_ret_sts_error;
2411: WHEN OTHERS THEN
2412: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2413:
2414: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2415: gme_debug.put_line ( 'Unexpected error: '
2416: || g_pkg_name
2417: || '.'
2418: || l_api_name
2411: WHEN OTHERS THEN
2412: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2413:
2414: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2415: gme_debug.put_line ( 'Unexpected error: '
2416: || g_pkg_name
2417: || '.'
2418: || l_api_name
2419: || ': '
2429: IS
2430: val_error EXCEPTION;
2431: l_api_name CONSTANT VARCHAR2 (30) := 'validate_actual_qty';
2432: BEGIN
2433: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2434: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2435: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_actual_qty='||p_actual_qty);
2436: END IF;
2437:
2430: val_error EXCEPTION;
2431: l_api_name CONSTANT VARCHAR2 (30) := 'validate_actual_qty';
2432: BEGIN
2433: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2434: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2435: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_actual_qty='||p_actual_qty);
2436: END IF;
2437:
2438: x_return_status := fnd_api.g_ret_sts_success;
2431: l_api_name CONSTANT VARCHAR2 (30) := 'validate_actual_qty';
2432: BEGIN
2433: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2434: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2435: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_actual_qty='||p_actual_qty);
2436: END IF;
2437:
2438: x_return_status := fnd_api.g_ret_sts_success;
2439:
2441: gme_common_pvt.log_message ('GME_INVALID_ACTUAL_QTY');
2442: RAISE val_error;
2443: END IF;
2444:
2445: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2446: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2447: END IF;
2448:
2449: EXCEPTION
2442: RAISE val_error;
2443: END IF;
2444:
2445: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2446: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2447: END IF;
2448:
2449: EXCEPTION
2450: WHEN val_error THEN
2451: x_return_status := fnd_api.g_ret_sts_error;
2452: WHEN OTHERS THEN
2453: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2454:
2455: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2456: gme_debug.put_line ( 'Unexpected error: '
2457: || g_pkg_name
2458: || '.'
2459: || l_api_name
2452: WHEN OTHERS THEN
2453: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2454:
2455: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2456: gme_debug.put_line ( 'Unexpected error: '
2457: || g_pkg_name
2458: || '.'
2459: || l_api_name
2460: || ': '
2479: val_error EXCEPTION;
2480:
2481: l_api_name CONSTANT VARCHAR2 (30) := 'validate_release_type';
2482: BEGIN
2483: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2484: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2485: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_release_type='||p_release_type);
2486: END IF;
2487:
2480:
2481: l_api_name CONSTANT VARCHAR2 (30) := 'validate_release_type';
2482: BEGIN
2483: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2484: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2485: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_release_type='||p_release_type);
2486: END IF;
2487:
2488: x_return_status := fnd_api.g_ret_sts_success;
2481: l_api_name CONSTANT VARCHAR2 (30) := 'validate_release_type';
2482: BEGIN
2483: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2484: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2485: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_release_type='||p_release_type);
2486: END IF;
2487:
2488: x_return_status := fnd_api.g_ret_sts_success;
2489:
2495: gme_common_pvt.log_message ('GME_INVALID_RELEASE_TYPE');
2496: RAISE val_error;
2497: END IF;
2498:
2499: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2500: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2501: END IF;
2502:
2503: EXCEPTION
2496: RAISE val_error;
2497: END IF;
2498:
2499: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2500: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2501: END IF;
2502:
2503: EXCEPTION
2504: WHEN val_error THEN
2505: x_return_status := fnd_api.g_ret_sts_error;
2506: WHEN OTHERS THEN
2507: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2508:
2509: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2510: gme_debug.put_line ( 'Unexpected error: '
2511: || g_pkg_name
2512: || '.'
2513: || l_api_name
2506: WHEN OTHERS THEN
2507: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2508:
2509: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2510: gme_debug.put_line ( 'Unexpected error: '
2511: || g_pkg_name
2512: || '.'
2513: || l_api_name
2514: || ': '
2525:
2526: val_error EXCEPTION;
2527: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scrap_factor';
2528: BEGIN
2529: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2530: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2531: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scrap='||p_scrap);
2532: END IF;
2533:
2526: val_error EXCEPTION;
2527: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scrap_factor';
2528: BEGIN
2529: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2530: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2531: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scrap='||p_scrap);
2532: END IF;
2533:
2534: x_return_status := fnd_api.g_ret_sts_success;
2527: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scrap_factor';
2528: BEGIN
2529: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2530: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2531: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scrap='||p_scrap);
2532: END IF;
2533:
2534: x_return_status := fnd_api.g_ret_sts_success;
2535:
2537: gme_common_pvt.log_message ('GME_INVALID_SCRAP_FACTOR');
2538: RAISE val_error;
2539: END IF;
2540:
2541: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2542: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2543: END IF;
2544:
2545: EXCEPTION
2538: RAISE val_error;
2539: END IF;
2540:
2541: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2542: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2543: END IF;
2544:
2545: EXCEPTION
2546: WHEN val_error THEN
2547: x_return_status := fnd_api.g_ret_sts_error;
2548: WHEN OTHERS THEN
2549: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2550:
2551: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2552: gme_debug.put_line ( 'Unexpected error: '
2553: || g_pkg_name
2554: || '.'
2555: || l_api_name
2548: WHEN OTHERS THEN
2549: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2550:
2551: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2552: gme_debug.put_line ( 'Unexpected error: '
2553: || g_pkg_name
2554: || '.'
2555: || l_api_name
2556: || ': '
2566: IS
2567: val_error EXCEPTION;
2568: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_multiple';
2569: BEGIN
2570: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2571: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2572: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_mult='||p_scale_mult);
2573: END IF;
2574:
2567: val_error EXCEPTION;
2568: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_multiple';
2569: BEGIN
2570: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2571: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2572: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_mult='||p_scale_mult);
2573: END IF;
2574:
2575: x_return_status := fnd_api.g_ret_sts_success;
2568: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_multiple';
2569: BEGIN
2570: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2571: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2572: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_mult='||p_scale_mult);
2573: END IF;
2574:
2575: x_return_status := fnd_api.g_ret_sts_success;
2576:
2578: gme_common_pvt.log_message ('GME_INVALID_SCALE_MULT');
2579: RAISE val_error;
2580: END IF;
2581:
2582: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2583: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2584: END IF;
2585:
2586: EXCEPTION
2579: RAISE val_error;
2580: END IF;
2581:
2582: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2583: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2584: END IF;
2585:
2586: EXCEPTION
2587: WHEN val_error THEN
2588: x_return_status := fnd_api.g_ret_sts_error;
2589: WHEN OTHERS THEN
2590: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2591:
2592: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2593: gme_debug.put_line ( 'Unexpected error: '
2594: || g_pkg_name
2595: || '.'
2596: || l_api_name
2589: WHEN OTHERS THEN
2590: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2591:
2592: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2593: gme_debug.put_line ( 'Unexpected error: '
2594: || g_pkg_name
2595: || '.'
2596: || l_api_name
2597: || ': '
2607: IS
2608: val_error EXCEPTION;
2609: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_round_var';
2610: BEGIN
2611: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2612: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2613: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_var='||p_scale_var);
2614: END IF;
2615:
2608: val_error EXCEPTION;
2609: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_round_var';
2610: BEGIN
2611: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2612: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2613: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_var='||p_scale_var);
2614: END IF;
2615:
2616: x_return_status := fnd_api.g_ret_sts_success;
2609: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_round_var';
2610: BEGIN
2611: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2612: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2613: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_var='||p_scale_var);
2614: END IF;
2615:
2616: x_return_status := fnd_api.g_ret_sts_success;
2617:
2619: gme_common_pvt.log_message ('GME_INVALID_SCALE_ROUND_VAR');
2620: RAISE val_error;
2621: END IF;
2622:
2623: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2624: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2625: END IF;
2626:
2627: EXCEPTION
2620: RAISE val_error;
2621: END IF;
2622:
2623: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2624: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2625: END IF;
2626:
2627: EXCEPTION
2628: WHEN val_error THEN
2629: x_return_status := fnd_api.g_ret_sts_error;
2630: WHEN OTHERS THEN
2631: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2632:
2633: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2634: gme_debug.put_line ( 'Unexpected error: '
2635: || g_pkg_name
2636: || '.'
2637: || l_api_name
2630: WHEN OTHERS THEN
2631: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2632:
2633: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2634: gme_debug.put_line ( 'Unexpected error: '
2635: || g_pkg_name
2636: || '.'
2637: || l_api_name
2638: || ': '
2657: val_error EXCEPTION;
2658:
2659: l_api_name CONSTANT VARCHAR2 (30) := 'validate_rounding_direction';
2660: BEGIN
2661: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2662: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2663: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_round_dir='||p_round_dir);
2664: END IF;
2665:
2658:
2659: l_api_name CONSTANT VARCHAR2 (30) := 'validate_rounding_direction';
2660: BEGIN
2661: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2662: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2663: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_round_dir='||p_round_dir);
2664: END IF;
2665:
2666: x_return_status := fnd_api.g_ret_sts_success;
2659: l_api_name CONSTANT VARCHAR2 (30) := 'validate_rounding_direction';
2660: BEGIN
2661: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2662: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2663: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_round_dir='||p_round_dir);
2664: END IF;
2665:
2666: x_return_status := fnd_api.g_ret_sts_success;
2667:
2673: gme_common_pvt.log_message ('GME_INVALID_ROUND_DIR');
2674: RAISE val_error;
2675: END IF;
2676:
2677: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2678: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2679: END IF;
2680:
2681: EXCEPTION
2674: RAISE val_error;
2675: END IF;
2676:
2677: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2678: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2679: END IF;
2680:
2681: EXCEPTION
2682: WHEN val_error THEN
2683: x_return_status := fnd_api.g_ret_sts_error;
2684: WHEN OTHERS THEN
2685: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2686:
2687: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2688: gme_debug.put_line ( 'Unexpected error: '
2689: || g_pkg_name
2690: || '.'
2691: || l_api_name
2684: WHEN OTHERS THEN
2685: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2686:
2687: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2688: gme_debug.put_line ( 'Unexpected error: '
2689: || g_pkg_name
2690: || '.'
2691: || l_api_name
2692: || ': '
2711: l_exists NUMBER;
2712: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_type';
2713: val_error EXCEPTION;
2714: BEGIN
2715: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2716: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2717: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_type='||p_scale_type);
2718: END IF;
2719:
2712: l_api_name CONSTANT VARCHAR2 (30) := 'validate_scale_type';
2713: val_error EXCEPTION;
2714: BEGIN
2715: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2716: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2717: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_type='||p_scale_type);
2718: END IF;
2719:
2720: x_return_status := fnd_api.g_ret_sts_success;
2713: val_error EXCEPTION;
2714: BEGIN
2715: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2716: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2717: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_type='||p_scale_type);
2718: END IF;
2719:
2720: x_return_status := fnd_api.g_ret_sts_success;
2721:
2727: gme_common_pvt.log_message ('GME_INVALID_SCALE_TYPE');
2728: RAISE val_error;
2729: END IF;
2730:
2731: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2732: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2733: END IF;
2734:
2735: EXCEPTION
2728: RAISE val_error;
2729: END IF;
2730:
2731: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2732: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2733: END IF;
2734:
2735: EXCEPTION
2736: WHEN val_error THEN
2737: x_return_status := fnd_api.g_ret_sts_error;
2738: WHEN OTHERS THEN
2739: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2740:
2741: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2742: gme_debug.put_line ( 'Unexpected error: '
2743: || g_pkg_name
2744: || '.'
2745: || l_api_name
2738: WHEN OTHERS THEN
2739: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2740:
2741: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2742: gme_debug.put_line ( 'Unexpected error: '
2743: || g_pkg_name
2744: || '.'
2745: || l_api_name
2746: || ': '
2779: --FPBug#4524232 End
2780: val_error EXCEPTION;
2781: l_api_name CONSTANT VARCHAR2 (30) := 'validate_cost_alloc';
2782: BEGIN
2783: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2784: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2785: END IF;
2786: x_return_status := fnd_api.g_ret_sts_success;
2787:
2780: val_error EXCEPTION;
2781: l_api_name CONSTANT VARCHAR2 (30) := 'validate_cost_alloc';
2782: BEGIN
2783: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2784: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2785: END IF;
2786: x_return_status := fnd_api.g_ret_sts_success;
2787:
2788: --FPBug#4524232 Begin
2827: gme_common_pvt.log_message ('GME_INVALID_COST_ALLOC');
2828: RAISE val_error;
2829: END IF; */
2830: --FPBug#4524232 End
2831: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2832: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2833: END IF;
2834: EXCEPTION
2835: WHEN val_error THEN
2828: RAISE val_error;
2829: END IF; */
2830: --FPBug#4524232 End
2831: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2832: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2833: END IF;
2834: EXCEPTION
2835: WHEN val_error THEN
2836: x_return_status := fnd_api.g_ret_sts_error;
2835: WHEN val_error THEN
2836: x_return_status := fnd_api.g_ret_sts_error;
2837: WHEN OTHERS THEN
2838: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2839: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2840: gme_debug.put_line ( 'Unexpected error: '
2841: || g_pkg_name
2842: || '.'
2843: || l_api_name
2836: x_return_status := fnd_api.g_ret_sts_error;
2837: WHEN OTHERS THEN
2838: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2839: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2840: gme_debug.put_line ( 'Unexpected error: '
2841: || g_pkg_name
2842: || '.'
2843: || l_api_name
2844: || ': '
2862: l_exists NUMBER;
2863: val_error EXCEPTION;
2864: l_api_name CONSTANT VARCHAR2 (30) := 'validate_phantom_type';
2865: BEGIN
2866: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2867: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2868: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_phantom_type='||p_phantom_type);
2869: END IF;
2870:
2863: val_error EXCEPTION;
2864: l_api_name CONSTANT VARCHAR2 (30) := 'validate_phantom_type';
2865: BEGIN
2866: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2867: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2868: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_phantom_type='||p_phantom_type);
2869: END IF;
2870:
2871: x_return_status := fnd_api.g_ret_sts_success;
2864: l_api_name CONSTANT VARCHAR2 (30) := 'validate_phantom_type';
2865: BEGIN
2866: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2867: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2868: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_phantom_type='||p_phantom_type);
2869: END IF;
2870:
2871: x_return_status := fnd_api.g_ret_sts_success;
2872:
2878: gme_common_pvt.log_message ('GME_INV_PHANTOM_TYPE');
2879: RAISE val_error;
2880: END IF;
2881:
2882: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2883: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2884: END IF;
2885:
2886: EXCEPTION
2879: RAISE val_error;
2880: END IF;
2881:
2882: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2883: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2884: END IF;
2885:
2886: EXCEPTION
2887: WHEN val_error THEN
2888: x_return_status := fnd_api.g_ret_sts_error;
2889: WHEN OTHERS THEN
2890: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2891:
2892: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2893: gme_debug.put_line ( 'Unexpected error: '
2894: || g_pkg_name
2895: || '.'
2896: || l_api_name
2889: WHEN OTHERS THEN
2890: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2891:
2892: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2893: gme_debug.put_line ( 'Unexpected error: '
2894: || g_pkg_name
2895: || '.'
2896: || l_api_name
2897: || ': '
2907: IS
2908: val_error EXCEPTION;
2909: l_api_name CONSTANT VARCHAR2 (30) := 'validate_contr_yield_ind';
2910: BEGIN
2911: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2912: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2913: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_contr_yield_ind='||p_contr_yield_ind);
2914: END IF;
2915:
2908: val_error EXCEPTION;
2909: l_api_name CONSTANT VARCHAR2 (30) := 'validate_contr_yield_ind';
2910: BEGIN
2911: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2912: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2913: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_contr_yield_ind='||p_contr_yield_ind);
2914: END IF;
2915:
2916: x_return_status := fnd_api.g_ret_sts_success;
2909: l_api_name CONSTANT VARCHAR2 (30) := 'validate_contr_yield_ind';
2910: BEGIN
2911: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2912: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2913: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_contr_yield_ind='||p_contr_yield_ind);
2914: END IF;
2915:
2916: x_return_status := fnd_api.g_ret_sts_success;
2917:
2919: gme_common_pvt.log_message ('GME_INVALID_CONTR_YIELD');
2920: RAISE val_error;
2921: END IF;
2922:
2923: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2924: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2925: END IF;
2926:
2927: EXCEPTION
2920: RAISE val_error;
2921: END IF;
2922:
2923: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2924: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2925: END IF;
2926:
2927: EXCEPTION
2928: WHEN val_error THEN
2929: x_return_status := fnd_api.g_ret_sts_error;
2930: WHEN OTHERS THEN
2931: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2932:
2933: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2934: gme_debug.put_line ( 'Unexpected error: '
2935: || g_pkg_name
2936: || '.'
2937: || l_api_name
2930: WHEN OTHERS THEN
2931: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2932:
2933: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2934: gme_debug.put_line ( 'Unexpected error: '
2935: || g_pkg_name
2936: || '.'
2937: || l_api_name
2938: || ': '
2949: val_error EXCEPTION;
2950:
2951: l_api_name CONSTANT VARCHAR2 (30) := 'validate_contr_step_qty_ind';
2952: BEGIN
2953: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2954: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2955: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_contr_step_qty_ind='||p_contr_step_qty_ind);
2956: END IF;
2957:
2950:
2951: l_api_name CONSTANT VARCHAR2 (30) := 'validate_contr_step_qty_ind';
2952: BEGIN
2953: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2954: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2955: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_contr_step_qty_ind='||p_contr_step_qty_ind);
2956: END IF;
2957:
2958: x_return_status := fnd_api.g_ret_sts_success;
2951: l_api_name CONSTANT VARCHAR2 (30) := 'validate_contr_step_qty_ind';
2952: BEGIN
2953: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2954: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2955: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_contr_step_qty_ind='||p_contr_step_qty_ind);
2956: END IF;
2957:
2958: x_return_status := fnd_api.g_ret_sts_success;
2959:
2961: gme_common_pvt.log_message ('GME_INVALID_CONTR_STEP');
2962: RAISE val_error;
2963: END IF;
2964:
2965: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2966: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2967: END IF;
2968:
2969: EXCEPTION
2962: RAISE val_error;
2963: END IF;
2964:
2965: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2966: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2967: END IF;
2968:
2969: EXCEPTION
2970: WHEN val_error THEN
2971: x_return_status := fnd_api.g_ret_sts_error;
2972: WHEN OTHERS THEN
2973: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2974:
2975: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2976: gme_debug.put_line ( 'Unexpected error: '
2977: || g_pkg_name
2978: || '.'
2979: || l_api_name
2972: WHEN OTHERS THEN
2973: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2974:
2975: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2976: gme_debug.put_line ( 'Unexpected error: '
2977: || g_pkg_name
2978: || '.'
2979: || l_api_name
2980: || ': '
2991: IS
2992: l_api_name CONSTANT VARCHAR2 (30) := 'VALIDATE_SUBINVENTORY';
2993: sub_not_valid EXCEPTION;
2994: BEGIN
2995: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2996: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2997: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_subinv='||p_subinv);
2998: END IF;
2999:
2992: l_api_name CONSTANT VARCHAR2 (30) := 'VALIDATE_SUBINVENTORY';
2993: sub_not_valid EXCEPTION;
2994: BEGIN
2995: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2996: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2997: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_subinv='||p_subinv);
2998: END IF;
2999:
3000: x_return_status := fnd_api.g_ret_sts_success;
2993: sub_not_valid EXCEPTION;
2994: BEGIN
2995: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2996: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2997: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_subinv='||p_subinv);
2998: END IF;
2999:
3000: x_return_status := fnd_api.g_ret_sts_success;
3001:
3010: ELSE
3011: RAISE sub_not_valid;
3012: END IF;
3013:
3014: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3015: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3016: END IF;
3017:
3018: EXCEPTION
3011: RAISE sub_not_valid;
3012: END IF;
3013:
3014: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3015: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3016: END IF;
3017:
3018: EXCEPTION
3019: WHEN sub_not_valid THEN
3020: x_return_status := fnd_api.g_ret_sts_error;
3021: WHEN OTHERS THEN
3022: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3023:
3024: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3025: gme_debug.put_line ( 'Unexpected error: '
3026: || g_pkg_name
3027: || '.'
3028: || l_api_name
3021: WHEN OTHERS THEN
3022: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3023:
3024: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3025: gme_debug.put_line ( 'Unexpected error: '
3026: || g_pkg_name
3027: || '.'
3028: || l_api_name
3029: || ': '
3051: FROM mtl_secondary_inventories
3052: WHERE organization_id = v_org_id
3053: AND secondary_inventory_name = v_subinventory;
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_subinv='||p_subinv);
3058: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_locator_id='||p_locator_id);
3059: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
3052: WHERE organization_id = v_org_id
3053: AND secondary_inventory_name = v_subinventory;
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_subinv='||p_subinv);
3058: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_locator_id='||p_locator_id);
3059: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
3060: END IF;
3053: AND secondary_inventory_name = v_subinventory;
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_subinv='||p_subinv);
3058: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_locator_id='||p_locator_id);
3059: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
3060: END IF;
3061:
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_subinv='||p_subinv);
3058: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_locator_id='||p_locator_id);
3059: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
3060: END IF;
3061:
3062: x_return_status := fnd_api.g_ret_sts_success;
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_subinv='||p_subinv);
3058: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_locator_id='||p_locator_id);
3059: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
3060: END IF;
3061:
3062: x_return_status := fnd_api.g_ret_sts_success;
3063:
3092: RAISE loc_not_valid;
3093: END IF;
3094: END IF;
3095:
3096: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3097: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3098: END IF;
3099:
3100: EXCEPTION
3093: END IF;
3094: END IF;
3095:
3096: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3097: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3098: END IF;
3099:
3100: EXCEPTION
3101: WHEN loc_not_valid THEN
3102: x_return_status := fnd_api.g_ret_sts_error;
3103: WHEN OTHERS THEN
3104: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3105:
3106: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3107: gme_debug.put_line ( 'Unexpected error: '
3108: || g_pkg_name
3109: || '.'
3110: || l_api_name
3103: WHEN OTHERS THEN
3104: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3105:
3106: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3107: gme_debug.put_line ( 'Unexpected error: '
3108: || g_pkg_name
3109: || '.'
3110: || l_api_name
3111: || ': '
3162: error_processing EXCEPTION;
3163: l_plan_cmplt_date gme_batch_header.plan_cmplt_date%TYPE;
3164:
3165: BEGIN
3166: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3167: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3168: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3169: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3170: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3163: l_plan_cmplt_date gme_batch_header.plan_cmplt_date%TYPE;
3164:
3165: BEGIN
3166: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3167: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3168: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3169: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3170: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3171: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_phantom='||p_scale_phantom);
3164:
3165: BEGIN
3166: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3167: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3168: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3169: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3170: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3171: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_phantom='||p_scale_phantom);
3172: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
3165: BEGIN
3166: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3167: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3168: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3169: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3170: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3171: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_phantom='||p_scale_phantom);
3172: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
3173: END IF;
3166: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3167: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3168: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3169: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3170: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3171: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_phantom='||p_scale_phantom);
3172: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
3173: END IF;
3174:
3167: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3168: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3169: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3170: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3171: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_phantom='||p_scale_phantom);
3172: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
3173: END IF;
3174:
3175: /* Set return status to success initially */
3168: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3169: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3170: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3171: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_phantom='||p_scale_phantom);
3172: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
3173: END IF;
3174:
3175: /* Set return status to success initially */
3176: x_return_status := fnd_api.g_ret_sts_success;
3225: END IF;
3226: l_factor := l_mtl_dtl_rec.wip_plan_qty / l_eff_qty;
3227: END IF;
3228:
3229: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3230: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' l_qty='||l_qty);
3231: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' l_factor='||l_factor);
3232: END IF;
3233:
3226: l_factor := l_mtl_dtl_rec.wip_plan_qty / l_eff_qty;
3227: END IF;
3228:
3229: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3230: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' l_qty='||l_qty);
3231: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' l_factor='||l_factor);
3232: END IF;
3233:
3234: l_status := p_batch_header_rec.batch_status;
3227: END IF;
3228:
3229: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3230: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' l_qty='||l_qty);
3231: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' l_factor='||l_factor);
3232: END IF;
3233:
3234: l_status := p_batch_header_rec.batch_status;
3235: IF l_mtl_dtl_rec.release_type = gme_common_pvt.g_mtl_autobystep_release AND
3280: l_proc := 'gme_common_pvt.calc_mtl_req_date';
3281: RAISE error_processing;
3282: END IF;
3283:
3284: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3285: gme_debug.put_line ( g_pkg_name
3286: || '.'
3287: || l_api_name
3288: || ' after gme_common_pvt.calc_mtl_req_date');
3281: RAISE error_processing;
3282: END IF;
3283:
3284: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3285: gme_debug.put_line ( g_pkg_name
3286: || '.'
3287: || l_api_name
3288: || ' after gme_common_pvt.calc_mtl_req_date');
3289: gme_debug.put_line
3285: gme_debug.put_line ( g_pkg_name
3286: || '.'
3287: || l_api_name
3288: || ' after gme_common_pvt.calc_mtl_req_date');
3289: gme_debug.put_line
3290: ( g_pkg_name
3291: || '.'
3292: || l_api_name
3293: || ' material_requirement_date= '
3307: RAISE error_processing;
3308: END IF;
3309: --Bug#5159393 Susruth D.
3310: l_mtl_dtl_rec.last_update_date := gme_common_pvt.g_timestamp;
3311: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3312: gme_debug.put_line ( g_pkg_name
3313: || '.'
3314: || l_api_name
3315: || ' after gme_common_pvt.material_date_change');
3308: END IF;
3309: --Bug#5159393 Susruth D.
3310: l_mtl_dtl_rec.last_update_date := gme_common_pvt.g_timestamp;
3311: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3312: gme_debug.put_line ( g_pkg_name
3313: || '.'
3314: || l_api_name
3315: || ' after gme_common_pvt.material_date_change');
3316: gme_debug.put_line
3312: gme_debug.put_line ( g_pkg_name
3313: || '.'
3314: || l_api_name
3315: || ' after gme_common_pvt.material_date_change');
3316: gme_debug.put_line
3317: ( g_pkg_name
3318: || '.'
3319: || l_api_name
3320: || ' material_requirement_date= '
3572: IF l_mtl_dtl_rec.line_type <> -1 AND
3573: (l_mtl_dtl_rec.plan_qty < l_db_mtl_dtl_rec.plan_qty OR
3574: l_mtl_dtl_rec.wip_plan_qty < l_db_mtl_dtl_rec.wip_plan_qty OR
3575: l_mtl_dtl_rec.dtl_um <> l_db_mtl_dtl_rec.dtl_um) THEN
3576: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3577: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoking relieve_prod_supply_resv' );
3578: END IF;
3579: gme_supply_res_pvt.relieve_prod_supply_resv (
3580: p_matl_dtl_rec => l_mtl_dtl_rec
3573: (l_mtl_dtl_rec.plan_qty < l_db_mtl_dtl_rec.plan_qty OR
3574: l_mtl_dtl_rec.wip_plan_qty < l_db_mtl_dtl_rec.wip_plan_qty OR
3575: l_mtl_dtl_rec.dtl_um <> l_db_mtl_dtl_rec.dtl_um) THEN
3576: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3577: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoking relieve_prod_supply_resv' );
3578: END IF;
3579: gme_supply_res_pvt.relieve_prod_supply_resv (
3580: p_matl_dtl_rec => l_mtl_dtl_rec
3581: ,x_msg_count => l_message_count
3607: END IF;
3608:
3609: END IF;
3610:
3611: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3612: gme_debug.put_line ( g_pkg_name
3613: || '.'
3614: || l_api_name
3615: || ' after gme_material_details_dbl.update_row');
3608:
3609: END IF;
3610:
3611: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3612: gme_debug.put_line ( g_pkg_name
3613: || '.'
3614: || l_api_name
3615: || ' after gme_material_details_dbl.update_row');
3616: gme_debug.put_line ( g_pkg_name
3612: gme_debug.put_line ( g_pkg_name
3613: || '.'
3614: || l_api_name
3615: || ' after gme_material_details_dbl.update_row');
3616: gme_debug.put_line ( g_pkg_name
3617: || '.'
3618: || l_api_name
3619: || ' successfully updated material_detail_id= '
3620: || TO_CHAR (l_mtl_dtl_rec.material_detail_id) );
3641: l_proc := 'gme_update_step_qty_pvt.update_step_qty';
3642: RAISE error_processing;
3643: END IF;
3644:
3645: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3646: gme_debug.put_line
3647: ( g_pkg_name
3648: || '.'
3649: || l_api_name
3642: RAISE error_processing;
3643: END IF;
3644:
3645: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3646: gme_debug.put_line
3647: ( g_pkg_name
3648: || '.'
3649: || l_api_name
3650: || ': '
3651: || ' after gme_update_step_qty_pvt.update_step_qty: successful');
3652: END IF;
3653: END IF;
3654:
3655: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3656: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3657: END IF;
3658:
3659: EXCEPTION
3652: END IF;
3653: END IF;
3654:
3655: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3656: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
3657: END IF;
3658:
3659: EXCEPTION
3660: WHEN error_processing THEN
3657: END IF;
3658:
3659: EXCEPTION
3660: WHEN error_processing THEN
3661: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3662: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': ' || l_proc|| ' error returned');
3663: END IF;
3664: WHEN error_dbl THEN
3665: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
3658:
3659: EXCEPTION
3660: WHEN error_processing THEN
3661: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3662: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': ' || l_proc|| ' error returned');
3663: END IF;
3664: WHEN error_dbl THEN
3665: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
3666: x_return_status := FND_API.g_ret_sts_unexp_error;
3664: WHEN error_dbl THEN
3665: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
3666: x_return_status := FND_API.g_ret_sts_unexp_error;
3667:
3668: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3669: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
3670: || l_proc|| ' unexpected error: '|| SQLERRM);
3671: END IF;
3672: WHEN OTHERS THEN
3665: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
3666: x_return_status := FND_API.g_ret_sts_unexp_error;
3667:
3668: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3669: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
3670: || l_proc|| ' unexpected error: '|| SQLERRM);
3671: END IF;
3672: WHEN OTHERS THEN
3673: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3671: END IF;
3672: WHEN OTHERS THEN
3673: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3674:
3675: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3676: gme_debug.put_line ( 'Unexpected error: '
3677: || g_pkg_name
3678: || '.'
3679: || l_api_name
3672: WHEN OTHERS THEN
3673: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3674:
3675: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3676: gme_debug.put_line ( 'Unexpected error: '
3677: || g_pkg_name
3678: || '.'
3679: || l_api_name
3680: || ': '
3710: val_error EXCEPTION;
3711: expected_error EXCEPTION;
3712: error_no_null EXCEPTION;
3713: BEGIN
3714: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3715: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3716: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3717: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3718: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3711: expected_error EXCEPTION;
3712: error_no_null EXCEPTION;
3713: BEGIN
3714: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3715: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3716: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3717: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3718: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3719: END IF;
3712: error_no_null EXCEPTION;
3713: BEGIN
3714: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3715: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3716: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3717: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3718: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3719: END IF;
3720:
3713: BEGIN
3714: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3715: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3716: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3717: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3718: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3719: END IF;
3720:
3721: /* Set return status to success initially */
3714: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
3715: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3716: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
3717: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
3718: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3719: END IF;
3720:
3721: /* Set return status to success initially */
3722: x_return_status := fnd_api.g_ret_sts_success;
4176: l_val_proc := 'validate_flex_material_detail';
4177: RAISE val_error;
4178: END IF;
4179:
4180: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4181: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4182: END IF;
4183:
4184: EXCEPTION
4177: RAISE val_error;
4178: END IF;
4179:
4180: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4181: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4182: END IF;
4183:
4184: EXCEPTION
4185: WHEN error_no_null THEN
4189: x_return_status := fnd_api.g_ret_sts_error;
4190: WHEN error_no_upd OR expected_error THEN
4191: x_return_status := fnd_api.g_ret_sts_error;
4192: WHEN val_error THEN
4193: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4194: gme_debug.put_line (g_pkg_name||'.'||l_api_name||': validation error from proc: '|| l_val_proc);
4195: END IF;
4196: WHEN OTHERS THEN
4197: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4190: WHEN error_no_upd OR expected_error THEN
4191: x_return_status := fnd_api.g_ret_sts_error;
4192: WHEN val_error THEN
4193: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4194: gme_debug.put_line (g_pkg_name||'.'||l_api_name||': validation error from proc: '|| l_val_proc);
4195: END IF;
4196: WHEN OTHERS THEN
4197: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4198:
4195: END IF;
4196: WHEN OTHERS THEN
4197: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4198:
4199: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4200: gme_debug.put_line ( 'Unexpected error: '
4201: || g_pkg_name
4202: || '.'
4203: || l_api_name
4196: WHEN OTHERS THEN
4197: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4198:
4199: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4200: gme_debug.put_line ( 'Unexpected error: '
4201: || g_pkg_name
4202: || '.'
4203: || l_api_name
4204: || ': '
4251: l_material_count NUMBER := 0;
4252:
4253: val_error EXCEPTION;
4254: BEGIN
4255: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4256: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4257: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4258: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4259: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batch_step_id='||p_batch_step_rec.batchstep_id);
4252:
4253: val_error EXCEPTION;
4254: BEGIN
4255: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4256: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4257: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4258: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4259: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batch_step_id='||p_batch_step_rec.batchstep_id);
4260: END IF;
4253: val_error EXCEPTION;
4254: BEGIN
4255: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4256: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4257: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4258: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4259: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batch_step_id='||p_batch_step_rec.batchstep_id);
4260: END IF;
4261:
4254: BEGIN
4255: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4256: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4257: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4258: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4259: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batch_step_id='||p_batch_step_rec.batchstep_id);
4260: END IF;
4261:
4262: /* Set return status to success initially */
4255: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4256: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4257: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4258: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4259: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batch_step_id='||p_batch_step_rec.batchstep_id);
4260: END IF;
4261:
4262: /* Set return status to success initially */
4263: x_return_status := fnd_api.g_ret_sts_success;
4332: END IF;
4333: CLOSE cur_parent_phant; */
4334: END IF; /* line type check */
4335:
4336: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4337: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4338: END IF;
4339: EXCEPTION
4340: WHEN val_error THEN
4333: CLOSE cur_parent_phant; */
4334: END IF; /* line type check */
4335:
4336: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4337: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4338: END IF;
4339: EXCEPTION
4340: WHEN val_error THEN
4341: x_return_status := fnd_api.g_ret_sts_error;
4340: WHEN val_error THEN
4341: x_return_status := fnd_api.g_ret_sts_error;
4342: WHEN OTHERS THEN
4343: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4344: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4345: gme_debug.put_line ('Unexpected error: '
4346: || g_pkg_name
4347: || '.'
4348: || l_api_name
4341: x_return_status := fnd_api.g_ret_sts_error;
4342: WHEN OTHERS THEN
4343: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4344: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4345: gme_debug.put_line ('Unexpected error: '
4346: || g_pkg_name
4347: || '.'
4348: || l_api_name
4349: || ': '
4359: val_error EXCEPTION;
4360:
4361: l_api_name CONSTANT VARCHAR2 (30) := 'validate_phantom_type_change';
4362: BEGIN
4363: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4364: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4365: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4366: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4367: END IF;
4360:
4361: l_api_name CONSTANT VARCHAR2 (30) := 'validate_phantom_type_change';
4362: BEGIN
4363: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4364: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4365: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4366: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4367: END IF;
4368:
4361: l_api_name CONSTANT VARCHAR2 (30) := 'validate_phantom_type_change';
4362: BEGIN
4363: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4364: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4365: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4366: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4367: END IF;
4368:
4369: /* Set return status to success initially */
4362: BEGIN
4363: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4364: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4365: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.batch_id='||p_material_detail_rec.batch_id);
4366: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4367: END IF;
4368:
4369: /* Set return status to success initially */
4370: x_return_status := fnd_api.g_ret_sts_success;
4384: gme_common_pvt.log_message ('GME_PENDING_MO_EXIST');
4385: RAISE val_error;
4386: END IF;
4387:
4388: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4389: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4390: END IF;
4391:
4392: EXCEPTION
4385: RAISE val_error;
4386: END IF;
4387:
4388: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4389: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4390: END IF;
4391:
4392: EXCEPTION
4393: WHEN val_error THEN
4394: x_return_status := fnd_api.g_ret_sts_error;
4395: WHEN OTHERS THEN
4396: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4397:
4398: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4399: gme_debug.put_line ( 'Unexpected error: '
4400: || g_pkg_name
4401: || '.'
4402: || l_api_name
4395: WHEN OTHERS THEN
4396: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4397:
4398: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4399: gme_debug.put_line ( 'Unexpected error: '
4400: || g_pkg_name
4401: || '.'
4402: || l_api_name
4403: || ': '
4426: error_dbl EXCEPTION;
4427:
4428: l_api_name CONSTANT VARCHAR2 (30) := 'delete_material_line';
4429: BEGIN
4430: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4431: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4432: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
4433: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4434: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
4427:
4428: l_api_name CONSTANT VARCHAR2 (30) := 'delete_material_line';
4429: BEGIN
4430: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4431: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4432: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
4433: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4434: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
4435: END IF;
4428: l_api_name CONSTANT VARCHAR2 (30) := 'delete_material_line';
4429: BEGIN
4430: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4431: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4432: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
4433: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4434: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
4435: END IF;
4436:
4429: BEGIN
4430: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4431: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4432: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
4433: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4434: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
4435: END IF;
4436:
4437: /* Set return status to success initially */
4430: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4431: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
4432: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_header_rec.batch_id='||p_batch_header_rec.batch_id);
4433: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4434: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
4435: END IF;
4436:
4437: /* Set return status to success initially */
4438: x_return_status := fnd_api.g_ret_sts_success;
4494: x_transacted := fnd_api.G_FALSE;
4495: END IF;
4496:
4497: -- 4944024 BEGIN
4498: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4499: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type is ' ||p_material_detail_rec.line_type );
4500: END IF;
4501: -- Delete any reservations against this supply source
4502: -- ==================================================
4495: END IF;
4496:
4497: -- 4944024 BEGIN
4498: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4499: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type is ' ||p_material_detail_rec.line_type );
4500: END IF;
4501: -- Delete any reservations against this supply source
4502: -- ==================================================
4503: IF NVL(p_material_detail_rec.line_type,0) <> -1 THEN
4500: END IF;
4501: -- Delete any reservations against this supply source
4502: -- ==================================================
4503: IF NVL(p_material_detail_rec.line_type,0) <> -1 THEN
4504: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4505: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoking delete_prod_supply_resv' );
4506: END IF;
4507: gme_supply_res_pvt.delete_prod_supply_resv (
4508: p_matl_dtl_rec => p_material_detail_rec
4501: -- Delete any reservations against this supply source
4502: -- ==================================================
4503: IF NVL(p_material_detail_rec.line_type,0) <> -1 THEN
4504: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4505: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoking delete_prod_supply_resv' );
4506: END IF;
4507: gme_supply_res_pvt.delete_prod_supply_resv (
4508: p_matl_dtl_rec => p_material_detail_rec
4509: ,x_msg_count => l_message_count
4559: l_proc := 'gme_update_step_qty_pvt.update_step_qty';
4560: RAISE error_processing;
4561: END IF;
4562:
4563: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4564: gme_debug.put_line
4565: ( g_pkg_name
4566: || '.'
4567: || l_api_name
4560: RAISE error_processing;
4561: END IF;
4562:
4563: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4564: gme_debug.put_line
4565: ( g_pkg_name
4566: || '.'
4567: || l_api_name
4568: || ': '
4569: || ' after gme_update_step_qty_pvt.update_step_qty: successful');
4570: END IF;
4571: END IF;
4572:
4573: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4574: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4575: END IF;
4576:
4577: EXCEPTION
4570: END IF;
4571: END IF;
4572:
4573: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4574: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4575: END IF;
4576:
4577: EXCEPTION
4578: WHEN error_processing THEN
4575: END IF;
4576:
4577: EXCEPTION
4578: WHEN error_processing THEN
4579: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4580: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': ' || l_proc|| ' error returned');
4581: END IF;
4582: WHEN error_dbl THEN
4583: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
4576:
4577: EXCEPTION
4578: WHEN error_processing THEN
4579: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4580: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': ' || l_proc|| ' error returned');
4581: END IF;
4582: WHEN error_dbl THEN
4583: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
4584: x_return_status := FND_API.g_ret_sts_unexp_error;
4582: WHEN error_dbl THEN
4583: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
4584: x_return_status := FND_API.g_ret_sts_unexp_error;
4585:
4586: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4587: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
4588: || l_proc|| ' unexpected error: '|| SQLERRM);
4589: END IF;
4590: WHEN OTHERS THEN
4583: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
4584: x_return_status := FND_API.g_ret_sts_unexp_error;
4585:
4586: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4587: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
4588: || l_proc|| ' unexpected error: '|| SQLERRM);
4589: END IF;
4590: WHEN OTHERS THEN
4591: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4589: END IF;
4590: WHEN OTHERS THEN
4591: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4592:
4593: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4594: gme_debug.put_line ( 'Unexpected error: '
4595: || g_pkg_name
4596: || '.'
4597: || l_api_name
4590: WHEN OTHERS THEN
4591: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4592:
4593: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4594: gme_debug.put_line ( 'Unexpected error: '
4595: || g_pkg_name
4596: || '.'
4597: || l_api_name
4598: || ': '