[Home] [Help]
51: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' inventory_item_id='||p_material_detail_rec.inventory_item_id);
52: END IF;
53:
54: /* Set the return status to success initially */
55: x_return_status := fnd_api.g_ret_sts_success;
56:
57: -- renumber subsequent lines
58: UPDATE gme_material_details
59: SET line_no = line_no + 1
121: (p_batch_header_rec => p_batch_header_rec
122: ,p_material_detail_rec => x_material_detail_rec
123: ,p_batch_step_rec => p_batch_step_rec
124: ,p_trans_id => p_trans_id
125: ,p_insert => FND_API.g_true
126: ,x_transacted => x_transacted
127: ,x_return_status => x_return_status);
128:
129: IF x_return_status <> fnd_api.g_ret_sts_success THEN
125: ,p_insert => FND_API.g_true
126: ,x_transacted => x_transacted
127: ,x_return_status => x_return_status);
128:
129: IF x_return_status <> fnd_api.g_ret_sts_success THEN
130: l_proc := 'open_and_process_actual_qty';
131: RAISE error_processing;
132: END IF;
133:
153: ,p_mtl_dtl_rec => l_material_detail_rec
154: ,x_mtl_req_date => x_material_detail_rec.material_requirement_date
155: ,x_return_status => x_return_status);
156:
157: IF x_return_status <> fnd_api.g_ret_sts_success THEN
158: l_proc := 'gme_common_pvt.calc_mtl_req_date';
159: RAISE error_processing;
160: END IF;
161:
178: ,x_material_details_tbl => l_out_material_detail_tbl
179: ,x_trolin_tbl => l_trolin_tbl
180: ,x_return_status => x_return_status);
181:
182: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
183: l_proc := 'gme_move_orders_pvt.create_move_order_lines';
184: RAISE error_processing;
185: END IF;
186:
202: --END IF;
203:
204: gmo_dispense_grp.is_dispense_item
205: (p_api_version => 1.0
206: ,p_init_msg_list => fnd_api.g_false
207: ,x_return_status => l_return_status
208: ,x_msg_count => l_message_count
209: ,x_msg_data => l_message_list
210: ,p_inventory_item_id => x_material_detail_rec.inventory_item_id
212: ,p_recipe_id => l_recipe_id
213: ,x_dispense_required => x_material_detail_rec.dispense_ind
214: ,x_dispense_config_id => l_config_id);
215:
216: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
217: l_proc := 'gmo_dispense_grp.is_dispense_item';
218: -- Pawan Kumar 01-10-2006 bug 4742244 *
219: -- Raising exception after is_dispense_item procedure returns error *
220: RAISE error_dispensing;
220: RAISE error_dispensing;
221: END IF;
222:
223: -- Pawan Kumar bug 4947535 new code added for GMO changes
224: IF (l_return_status = FND_API.G_RET_STS_SUCCESS AND x_material_detail_rec.dispense_ind = 'Y') then
225: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
226: gme_debug.put_line (g_pkg_name||'.'||l_api_name||'Instantiating material line id'
227: || x_material_detail_rec.material_detail_id);
228: gme_debug.put_line (g_pkg_name||'.'||l_api_name||' config id ' || l_config_id);
231: (p_api_version => 1.0
232: ,p_dispense_config_id => l_config_id
233: ,p_entity_name => GMO_DISPENSE_GRP.G_MATERIAL_LINE_ENTITY
234: ,p_entity_key => x_material_detail_rec.material_detail_id
235: ,p_init_msg_list => FND_API.G_FALSE
236: ,x_return_status => l_return_status
237: ,x_msg_count => l_message_count
238: ,x_msg_data => l_message_list);
239: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
235: ,p_init_msg_list => FND_API.G_FALSE
236: ,x_return_status => l_return_status
237: ,x_msg_count => l_message_count
238: ,x_msg_data => l_message_list);
239: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
240: l_proc := 'gmo_dispense_grp.instantiate_dispense_setup';
241: RAISE error_processing;
242: END IF;
243: END IF;
260: (p_batch_row => p_batch_header_rec
261: ,x_rsc_row_count => l_rsc_count
262: ,x_return_status => x_return_status);
263:
264: IF x_return_status <> fnd_api.g_ret_sts_success THEN
265: l_proc := 'gme_trans_engine_util.load_rsrc_trans';
266: RAISE error_processing;
267: END IF;
268:
272: ,x_message_list => l_message_list
273: ,x_return_status => x_return_status
274: ,x_batch_step_rec => l_batch_step_rec);
275:
276: IF x_return_status <> fnd_api.g_ret_sts_success THEN
277: l_proc := 'gme_update_step_qty_pvt.update_step_qty';
278: RAISE error_processing;
279: END IF;
280: END IF;
289: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': ' || l_proc|| ' error returned');
290: END IF;
291: WHEN error_dbl THEN
292: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
293: x_return_status := FND_API.g_ret_sts_unexp_error;
294:
295: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
296: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
297: || l_proc|| ' unexpected error: '|| SQLERRM);
308: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
309: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
310: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
311: END IF;
312: x_return_status := FND_API.g_ret_sts_unexp_error;
313: END insert_material_line;
314:
315: PROCEDURE validate_batch_for_matl_ins
316: (p_batch_header_rec IN gme_batch_header%ROWTYPE
329: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
330: END IF;
331:
332: /* Set the return status to success initially */
333: x_return_status := FND_API.G_RET_STS_SUCCESS;
334:
335: --Bug#5078853 added check for invalid batch type
336: IF p_batch_header_rec.batch_type <> 0 THEN
337: gme_common_pvt.log_message ('GME_INV_BATCH_TYPE_OPER');
360: END IF;
361:
362: EXCEPTION
363: WHEN validation_error THEN
364: x_return_status := fnd_api.g_ret_sts_error;
365: WHEN OTHERS THEN
366: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
367: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
368: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
366: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
367: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
368: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
369: END IF;
370: x_return_status := FND_API.g_ret_sts_unexp_error;
371: END validate_batch_for_matl_ins;
372:
373: /***********************************************************************
374: *
405: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' batchstep_id='||p_batch_step_rec.batchstep_id);
406: END IF;
407:
408: /* Set the return status to success initially */
409: x_return_status := FND_API.G_RET_STS_SUCCESS;
410:
411: -- set output structure
412: x_material_detail_rec := p_material_detail_rec;
413:
420: ,p_item_id => p_material_detail_rec.inventory_item_id
421: ,x_item_rec => l_item_rec
422: ,x_return_status => x_return_status);
423:
424: IF x_return_status <> fnd_api.g_ret_sts_success THEN
425: l_val_proc := 'validate_item_id';
426: RAISE val_error;
427: END IF;
428:
430: validate_revision (p_item_rec => l_item_rec
431: ,p_revision => p_material_detail_rec.revision
432: ,x_return_status => x_return_status);
433:
434: IF x_return_status <> fnd_api.g_ret_sts_success THEN
435: l_val_proc := 'validate_revision';
436: RAISE val_error;
437: END IF;
438:
439: -- Line_Type
440: validate_line_type (p_line_type => p_material_detail_rec.line_type
441: ,x_return_status => x_return_status);
442:
443: IF x_return_status <> fnd_api.g_ret_sts_success THEN
444: l_val_proc := 'validate_line_type';
445: RAISE val_error;
446: END IF;
447:
450: validate_byproduct_type
451: (p_byproduct_type => p_material_detail_rec.by_product_type
452: ,x_return_status => x_return_status);
453:
454: IF x_return_status <> fnd_api.g_ret_sts_success THEN
455: l_val_proc := 'validate_byproduct_type';
456: RAISE val_error;
457: END IF;
458: ELSE
466: ,p_batch_id => p_batch_header_rec.batch_id
467: ,x_line_no => x_material_detail_rec.line_no
468: ,x_return_status => x_return_status);
469:
470: IF x_return_status <> fnd_api.g_ret_sts_success THEN
471: l_val_proc := 'validate_line_no';
472: RAISE val_error;
473: END IF;
474:
478: ,p_item_id => p_material_detail_rec.inventory_item_id
479: ,p_org_id => x_material_detail_rec.organization_id
480: ,x_return_status => x_return_status);
481:
482: IF x_return_status <> fnd_api.g_ret_sts_success THEN
483: l_val_proc := 'validate_dtl_um';
484: RAISE val_error;
485: END IF;
486:
497: (p_material_detail_rec => p_material_detail_rec
498: ,p_release_type => p_material_detail_rec.release_type
499: ,x_return_status => x_return_status);
500:
501: IF x_return_status <> fnd_api.g_ret_sts_success THEN
502: l_val_proc := 'validate_release_type';
503: RAISE val_error;
504: END IF;
505: END IF;
515: IF l_status = gme_common_pvt.g_batch_pending THEN
516: validate_plan_qty (p_plan_qty => p_material_detail_rec.plan_qty
517: ,x_return_status => x_return_status);
518:
519: IF x_return_status <> fnd_api.g_ret_sts_success THEN
520: l_val_proc := 'validate_plan_qty';
521: RAISE val_error;
522: END IF;
523: ELSE
534: --sunitha ch. bug rework#5333521 assign 0 to wip_plan_qty if it is NULL
535: IF p_material_detail_rec.wip_plan_qty IS NULL THEN
536: x_material_detail_rec.wip_plan_qty:=0;
537: END IF;
538: IF x_return_status <> fnd_api.g_ret_sts_success THEN
539: l_val_proc := 'validate_wip_plan_qty';
540: RAISE val_error;
541: END IF;
542: END IF;
554: END IF;
555: validate_actual_qty (p_actual_qty => x_material_detail_rec.actual_qty
556: ,x_return_status => x_return_status);
557:
558: IF x_return_status <> fnd_api.g_ret_sts_success THEN
559: l_val_proc := 'validate_actual_qty';
560: RAISE val_error;
561: END IF;
562: END IF;
572: ELSE
573: validate_scrap_factor(p_scrap => p_material_detail_rec.scrap_factor
574: ,x_return_status => x_return_status);
575:
576: IF x_return_status <> fnd_api.g_ret_sts_success THEN
577: l_val_proc := 'validate_scrap_factor';
578: RAISE val_error;
579: END IF;
580:
589: -- Scale_Type
590: validate_scale_type (p_scale_type => p_material_detail_rec.scale_type
591: ,x_return_status => x_return_status);
592:
593: IF x_return_status <> fnd_api.g_ret_sts_success THEN
594: l_val_proc := 'validate_scale_type';
595: RAISE val_error;
596: END IF;
597:
600: validate_scale_multiple
601: (p_scale_mult => p_material_detail_rec.scale_multiple
602: ,x_return_status => x_return_status);
603:
604: IF x_return_status <> fnd_api.g_ret_sts_success THEN
605: l_val_proc := 'validate_scale_multiple';
606: RAISE val_error;
607: END IF;
608:
610: validate_scale_round_var
611: (p_scale_var => p_material_detail_rec.scale_rounding_variance
612: ,x_return_status => x_return_status);
613:
614: IF x_return_status <> fnd_api.g_ret_sts_success THEN
615: l_val_proc := 'validate_scale_round_var';
616: RAISE val_error;
617: END IF;
618:
623: validate_rounding_direction
624: (p_round_dir => p_material_detail_rec.rounding_direction
625: ,x_return_status => x_return_status);
626:
627: IF x_return_status <> fnd_api.g_ret_sts_success THEN
628: l_val_proc := 'validate_rounding_direction';
629: RAISE val_error;
630: END IF;
631: ELSE
641: validate_cost_alloc
642: (p_material_detail_rec => p_material_detail_rec
643: ,x_return_status => x_return_status);
644:
645: IF x_return_status <> fnd_api.g_ret_sts_success THEN
646: l_val_proc := 'validate_cost_alloc';
647: RAISE val_error;
648: END IF;
649: ELSE
656: validate_phantom_type
657: (p_phantom_type => p_material_detail_rec.phantom_type
658: ,x_return_status => x_return_status);
659:
660: IF x_return_status <> fnd_api.g_ret_sts_success THEN
661: l_val_proc := 'validate_phantom_type';
662: RAISE val_error;
663: END IF;
664: ELSE
670: validate_contr_yield_ind
671: (p_contr_yield_ind => p_material_detail_rec.contribute_yield_ind
672: ,x_return_status => x_return_status);
673:
674: IF x_return_status <> fnd_api.g_ret_sts_success THEN
675: l_val_proc := 'validate_contr_yield_ind';
676: RAISE val_error;
677: END IF;
678: ELSE
684: validate_contr_step_qty_ind
685: (p_contr_step_qty_ind => p_material_detail_rec.contribute_step_qty_ind
686: ,x_return_status => x_return_status);
687:
688: IF x_return_status <> fnd_api.g_ret_sts_success THEN
689: l_val_proc := 'validate_contr_step_qty_ind';
690: RAISE val_error;
691: END IF;
692: ELSE
693: x_material_detail_rec.contribute_step_qty_ind := NULL;
694: END IF;
695:
696: -- Subinventory and Locator
697: IF p_material_detail_rec.subinventory = fnd_api.g_miss_char THEN
698: x_material_detail_rec.subinventory := NULL;
699: x_material_detail_rec.locator_id := NULL;
700: ELSIF p_material_detail_rec.subinventory IS NULL THEN
701: --Bug#5078853 Begin get the default sub inv and locator either from gme_parameters or from Item Master
704: ,p_inventory_item_id => p_material_detail_rec.inventory_item_id
705: ,x_subinventory => x_material_detail_rec.subinventory
706: ,x_locator_id => x_material_detail_rec.locator_id
707: ,x_return_status => x_return_status );
708: IF x_return_status <> fnd_api.g_ret_sts_success THEN
709: l_val_proc := 'get_supply_defaults';
710: RAISE val_error;
711: END IF;
712: ELSE
715: ,p_line_type => p_material_detail_rec.line_type
716: ,x_subinventory => x_material_detail_rec.subinventory
717: ,x_locator_id => x_material_detail_rec.locator_id
718: ,x_return_status => x_return_status );
719: IF x_return_status <> fnd_api.g_ret_sts_success THEN
720: l_val_proc := 'get_yield_defaults';
721: RAISE val_error;
722: END IF;
723: END IF;
727: (p_item_rec => l_item_rec
728: ,p_subinv => x_material_detail_rec.subinventory
729: ,x_return_status => x_return_status);
730:
731: IF x_return_status <> fnd_api.g_ret_sts_success THEN
732: l_val_proc := 'validate_subinventory';
733: RAISE val_error;
734: END IF;
735:
732: l_val_proc := 'validate_subinventory';
733: RAISE val_error;
734: END IF;
735:
736: IF p_material_detail_rec.locator_id = fnd_api.g_miss_num THEN
737: x_material_detail_rec.locator_id := NULL;
738: ELSIF p_material_detail_rec.locator_id IS NULL THEN
739: /* Bug#5078853 Begin if we come here then locator id is not being passed from public api
740: so get the default locator id to validate with passed sub inv */
743: ,p_inventory_item_id => p_material_detail_rec.inventory_item_id
744: ,x_subinventory => l_subinventory
745: ,x_locator_id => x_material_detail_rec.locator_id
746: ,x_return_status => x_return_status );
747: IF x_return_status <> fnd_api.g_ret_sts_success THEN
748: l_val_proc := 'get_supply_defaults';
749: RAISE val_error;
750: END IF;
751: ELSE
754: ,p_line_type => p_material_detail_rec.line_type
755: ,x_subinventory => l_subinventory
756: ,x_locator_id => x_material_detail_rec.locator_id
757: ,x_return_status => x_return_status );
758: IF x_return_status <> fnd_api.g_ret_sts_success THEN
759: l_val_proc := 'get_yield_defaults';
760: RAISE val_error;
761: END IF;
762: END IF;
771: ,p_item_rec => l_item_rec
772: ,p_line_type => x_material_detail_rec.line_type
773: ,x_return_status => x_return_status);
774:
775: IF x_return_status <> fnd_api.g_ret_sts_success THEN
776: l_val_proc := 'validate_locator';
777: RAISE val_error;
778: END IF;
779: END IF; -- IF x_material_detail_rec.locator_id IS NOT NULL ...
784: gme_validate_flex_fld_pvt.validate_flex_material_details
785: ( p_material_detail_rec => p_material_detail_rec
786: ,x_material_detail_rec => x_material_detail_rec
787: ,x_return_status => x_return_status);
788: IF x_return_status <> fnd_api.g_ret_sts_success THEN
789: l_val_proc := 'validate_flex_material_details';
790: RAISE val_error;
791: END IF;
792:
805: ,p_to_um => l_item_rec.primary_uom_code
806: ,x_conv_qty => x_material_detail_rec.original_primary_qty
807: ,x_return_status => x_return_status);
808:
809: IF x_return_status <> fnd_api.g_ret_sts_success THEN
810: l_val_proc := 'get_converted_qty';
811: RAISE val_error;
812: END IF;
813:
823: WHEN val_error THEN
824: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
825: gme_debug.put_line (g_pkg_name||'.'||l_api_name||': validation error from proc: '|| l_val_proc);
826: END IF;
827: x_return_status := FND_API.g_ret_sts_error;
828: WHEN OTHERS THEN
829: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
830: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
831: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
829: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
830: IF (NVL(G_DEBUG,-1) = GME_DEBUG.G_LOG_STATEMENT) THEN
831: gme_debug.put_line ('Unexpected error: '||g_pkg_name||'.'||l_api_name||': '||SQLERRM);
832: END IF;
833: x_return_status := FND_API.g_ret_sts_unexp_error;
834: END validate_material_for_ins;
835:
836: PROCEDURE open_and_process_actual_qty (
837: p_batch_header_rec IN gme_batch_header%ROWTYPE
873: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_insert='||p_insert);
874: END IF;
875:
876: /* Set the return status to success initially */
877: x_return_status := FND_API.G_RET_STS_SUCCESS;
878: x_transacted := FND_API.g_false;
879:
880: get_item_rec (p_org_id => p_batch_header_rec.organization_id
881: ,p_item_id => p_material_detail_rec.inventory_item_id
874: END IF;
875:
876: /* Set the return status to success initially */
877: x_return_status := FND_API.G_RET_STS_SUCCESS;
878: x_transacted := FND_API.g_false;
879:
880: get_item_rec (p_org_id => p_batch_header_rec.organization_id
881: ,p_item_id => p_material_detail_rec.inventory_item_id
882: ,x_item_rec => l_item_rec
881: ,p_item_id => p_material_detail_rec.inventory_item_id
882: ,x_item_rec => l_item_rec
883: ,x_return_status => x_return_status);
884:
885: IF x_return_status <> fnd_api.g_ret_sts_success THEN
886: RAISE error_get_rec;
887: END IF;
888:
889: IF p_trans_id IS NULL THEN
928: ,p_trans_id => l_trans_id
929: ,p_item_rec => l_item_rec
930: ,x_return_status => x_return_status);
931:
932: IF x_return_status <> fnd_api.g_ret_sts_success THEN
933: RAISE process_actual_qty_error;
934: END IF;
935:
936: x_transacted := FND_API.g_true;
932: IF x_return_status <> fnd_api.g_ret_sts_success THEN
933: RAISE process_actual_qty_error;
934: END IF;
935:
936: x_transacted := FND_API.g_true;
937: END IF;
938:
939: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
940: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
950:
951: gme_common_pvt.log_message ('GME_UPD_ACTUAL_QTY_ERR'
952: ,'ITEM_NO'
953: ,l_item_no);
954: x_return_status := fnd_api.g_ret_sts_error;
955: WHEN open_actual_qty_unexp_error THEN
956: x_return_status := fnd_api.g_ret_sts_unexp_error;
957: WHEN process_actual_qty_error THEN
958: NULL;
952: ,'ITEM_NO'
953: ,l_item_no);
954: x_return_status := fnd_api.g_ret_sts_error;
955: WHEN open_actual_qty_unexp_error THEN
956: x_return_status := fnd_api.g_ret_sts_unexp_error;
957: WHEN process_actual_qty_error THEN
958: NULL;
959: WHEN OTHERS THEN
960: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
967: || ': '
968: || SQLERRM);
969: END IF;
970:
971: x_return_status := fnd_api.g_ret_sts_unexp_error;
972: END open_and_process_actual_qty;
973:
974: /* **********************
975: * open_actual_qty returns following:
1155:
1156: -- if this is an insert, no need to go frther because there are no transactions...
1157: -- return 0 to indicate no transactions and that open is allowed
1158:
1159: /* FPbug#4543872 removed 'p_insert = fnd_api.G_TRUE OR' from IF condition
1160: because even if we are inserting new material line we need to check for other
1161: conditions like lot control, locator control, subinventory availaility etc. anyway
1162: no.of transactions will be zero for new material line that is being inserted
1163: */
1452: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' trans_id='||p_trans_id);
1453: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' actual_qty='||p_material_detail_rec.actual_qty);
1454: END IF;
1455:
1456: x_return_status := fnd_api.g_ret_sts_success;
1457:
1458: -- Begin Bug 13743650 Moved this piece of code up
1459: IF p_item_rec.secondary_uom_code IS NULL THEN
1460: l_secondary_qty := NULL;
1481: (p_transaction_id => p_trans_id
1482: ,p_txns_pair => NULL
1483: ,x_return_status => x_return_status);
1484:
1485: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1486: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1487: gme_debug.put_line
1488: ( g_pkg_name
1489: || '.'
1589: ,p_mmli_tbl => l_mmli_tbl
1590: ,p_phantom_trans => 0
1591: ,x_return_status => x_return_status);
1592:
1593: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1594: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1595: gme_debug.put_line
1596: ( g_pkg_name
1597: || '.'
1622: (p_transaction_id => p_trans_id
1623: ,x_mmt_rec => l_mmt_rec
1624: ,x_mmln_tbl => l_mmln_tbl
1625: ,x_return_status => x_return_status);
1626: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1627: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1628: gme_debug.put_line( g_pkg_name|| '.'|| l_api_name|| ' return '|| x_return_status|| ' from gme_transactions_pvt.get_transactions');
1629: END IF;
1630: RAISE error_trans;
1651: (p_mmt_rec => l_mmt_rec
1652: ,p_mmln_tbl => l_mmln_tbl
1653: ,x_return_status => x_return_status);
1654:
1655: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1656: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1657: gme_debug.put_line( g_pkg_name|| '.'|| l_api_name|| ' return '|| x_return_status|| ' from gme_transactions_pvt.create_material_txn');
1658: END IF;
1659: RAISE error_trans;
1680: || ': '
1681: || SQLERRM);
1682: END IF;
1683:
1684: x_return_status := fnd_api.g_ret_sts_unexp_error;
1685: END process_actual_qty;
1686:
1687: PROCEDURE construct_trans_row (
1688: p_matl_dtl_rec IN gme_material_details%ROWTYPE
1714: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' line_type='||p_matl_dtl_rec.line_type);
1715: END IF;
1716:
1717: l_line_type := p_matl_dtl_rec.line_type;
1718: x_return_status := fnd_api.g_ret_sts_success;
1719:
1720: x_mmti_rec.source_header_id := p_matl_dtl_rec.batch_id;
1721:
1722: /* FPbug#4543872 Begin
1748: ,p_invoke_mode => 'T'
1749: ,x_trans_date => l_trans_date
1750: ,x_return_status => x_return_status );
1751:
1752: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1753: RAISE error_fetch_trans_date;
1754: END IF;
1755: --initializing the transaction date according to default rules
1756: x_mmti_rec.transaction_date := l_trans_date;
1779: ,p_to_um => p_item_rec.secondary_uom_code
1780: ,x_conv_qty => x_mmti_rec.secondary_transaction_quantity
1781: ,x_return_status => x_return_status);
1782:
1783: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1784: l_val_proc := 'get_converted_qty';
1785: RAISE error_construct;
1786: END IF;
1787: END IF;
1880: || ': '
1881: || SQLERRM);
1882: END IF;
1883:
1884: x_return_status := fnd_api.g_ret_sts_unexp_error;
1885: END construct_trans_row;
1886:
1887: PROCEDURE get_converted_qty (
1888: p_org_id IN NUMBER
1908: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_to_um='||p_to_um);
1909: END IF;
1910:
1911: /* Set the return status to success initially */
1912: x_return_status := FND_API.G_RET_STS_SUCCESS;
1913:
1914: IF p_to_um = p_from_um THEN
1915: x_conv_qty := p_qty;
1916: ELSE
1962: WHEN um_convert_error THEN
1963: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
1964: FND_MESSAGE.SET_TOKEN('PGM_NAME',g_pkg_name||'.'||l_api_name);
1965: fnd_msg_pub.ADD;
1966: x_return_status := fnd_api.g_ret_sts_error;
1967: WHEN OTHERS THEN
1968: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1969:
1970: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1974: || l_api_name
1975: || ': '
1976: || SQLERRM);
1977: END IF;
1978: x_return_status := fnd_api.g_ret_sts_unexp_error;
1979: END get_converted_qty;
1980:
1981: PROCEDURE get_item_rec (
1982: p_org_id IN NUMBER
1999: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2000: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2001: END IF;
2002:
2003: x_return_status := fnd_api.g_ret_sts_success;
2004:
2005: IF p_item_id IS NULL THEN
2006: gme_common_pvt.log_message ('GME_NO_KEYS', 'TABLE_NAME', 'mtl_system_items_b');
2007: RAISE error_get_item;
2027: END IF;
2028:
2029: EXCEPTION
2030: WHEN error_get_item THEN
2031: x_return_status := fnd_api.g_ret_sts_error;
2032: WHEN OTHERS THEN
2033: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2034:
2035: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2040: || ': '
2041: || SQLERRM);
2042: END IF;
2043:
2044: x_return_status := fnd_api.g_ret_sts_unexp_error;
2045: END get_item_rec;
2046:
2047: PROCEDURE validate_item_id (
2048: p_org_id IN NUMBER
2063: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_id);
2064: END IF;
2065:
2066: /* Set return status to success initially */
2067: x_return_status := fnd_api.g_ret_sts_success;
2068:
2069: get_item_rec (p_org_id => p_org_id
2070: ,p_item_id => p_item_id
2071: ,x_item_rec => x_item_rec
2070: ,p_item_id => p_item_id
2071: ,x_item_rec => x_item_rec
2072: ,x_return_status => x_return_status);
2073:
2074: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2075: RAISE error_get_rec;
2076: END IF;
2077:
2078: -- process_execution_enabled_flag Y/N
2126: WHERE inventory_item_id = p_item_id
2127: AND organization_id = p_org_id;
2128: --Bug#5078853
2129: gme_common_pvt.log_message ('GME_INV_ITEM_INSERT', 'ITEM_NO', l_field);
2130: x_return_status := fnd_api.g_ret_sts_error;
2131:
2132: WHEN OTHERS THEN
2133: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2134:
2140: || ': '
2141: || SQLERRM);
2142: END IF;
2143:
2144: x_return_status := fnd_api.g_ret_sts_unexp_error;
2145: END validate_item_id;
2146:
2147: PROCEDURE validate_revision (
2148: p_revision IN VARCHAR2
2172: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' revision='||p_revision);
2173: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' item_id='||p_item_rec.inventory_item_id);
2174: END IF;
2175:
2176: x_return_status := fnd_api.g_ret_sts_success;
2177:
2178: IF p_revision IS NULL THEN -- not required even if revision controlled
2179: RETURN;
2180: END IF;
2202: END IF;
2203:
2204: EXCEPTION
2205: WHEN error_not_revision_control OR error_revision_not_found THEN
2206: x_return_status := fnd_api.g_ret_sts_error;
2207: WHEN OTHERS THEN
2208: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2209:
2210: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2215: || ': '
2216: || SQLERRM);
2217: END IF;
2218:
2219: x_return_status := fnd_api.g_ret_sts_unexp_error;
2220: END validate_revision;
2221:
2222: PROCEDURE validate_line_type (
2223: p_line_type IN NUMBER
2231: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2232: END IF;
2233:
2234: /* Set return status to success initially */
2235: x_return_status := fnd_api.g_ret_sts_success;
2236:
2237: -- check GMD parameter FM$BYPROD_ACTIVE
2238: -- value of 1 means Yes; byproducts are available for insert, update and delete
2239: -- value of 2 means No; byproducts are not available
2259: END IF;
2260:
2261: EXCEPTION
2262: WHEN validation_error THEN
2263: x_return_status := fnd_api.g_ret_sts_error;
2264: WHEN OTHERS THEN
2265: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2266:
2267: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2272: || ': '
2273: || SQLERRM);
2274: END IF;
2275:
2276: x_return_status := fnd_api.g_ret_sts_unexp_error;
2277: END validate_line_type;
2278: --Bug#5129153 Changed the data type of 'p_byproduct_type' to VARCHAR2.
2279: PROCEDURE validate_byproduct_type (
2280: p_byproduct_type IN VARCHAR2
2296: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_byproduct_type='||p_byproduct_type);
2297: END IF;
2298:
2299: /* Set return status to success initially */
2300: x_return_status := fnd_api.g_ret_sts_success;
2301:
2302: -- By_product_type of NULL is OK
2303: IF p_byproduct_type IS NOT NULL THEN
2304: OPEN cur_byprod_type (p_byproduct_type);
2316: END IF;
2317:
2318: EXCEPTION
2319: WHEN invalid_byproduct_type THEN
2320: x_return_status := fnd_api.g_ret_sts_error;
2321: WHEN OTHERS THEN
2322: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2323:
2324: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2329: || ': '
2330: || SQLERRM);
2331: END IF;
2332:
2333: x_return_status := fnd_api.g_ret_sts_unexp_error;
2334: END validate_byproduct_type;
2335:
2336: PROCEDURE validate_line_no (
2337: p_line_no IN NUMBER
2357: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
2358: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_id='||p_batch_id);
2359: END IF;
2360:
2361: x_return_status := fnd_api.g_ret_sts_success;
2362:
2363: IF p_line_no <= 0 THEN
2364: gme_common_pvt.log_message ('GME_INVALID_LINE_NUMBER');
2365: RAISE invalid_line_no;
2380: END IF;
2381:
2382: EXCEPTION
2383: WHEN invalid_line_no THEN
2384: x_return_status := fnd_api.g_ret_sts_error;
2385: WHEN OTHERS THEN
2386: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2387:
2388: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2393: || ': '
2394: || SQLERRM);
2395: END IF;
2396:
2397: x_return_status := fnd_api.g_ret_sts_unexp_error;
2398: END validate_line_no;
2399:
2400: PROCEDURE validate_dtl_um (
2401: p_dtl_um IN VARCHAR2
2425: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_item_id='||p_item_id);
2426: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_org_id='||p_org_id);
2427: END IF;
2428:
2429: x_return_status := fnd_api.g_ret_sts_success;
2430:
2431: OPEN cur_get_uom_code_date (p_dtl_um);
2432: FETCH cur_get_uom_code_date INTO l_disable_date;
2433: CLOSE cur_get_uom_code_date;
2455: ,p_to_um => p_primary_uom
2456: ,x_conv_qty => l_qty
2457: ,x_return_status => x_return_status);
2458:
2459: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2460: RAISE um_convert_error;
2461: END IF;
2462:
2463: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2466:
2467: EXCEPTION
2468: -- WHEN invalid_dtl_um OR disabled_dtl_um THEN
2469: WHEN disabled_dtl_um THEN
2470: x_return_status := fnd_api.g_ret_sts_error;
2471: WHEN um_convert_error THEN
2472: NULL;
2473: WHEN OTHERS THEN
2474: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2481: || ': '
2482: || SQLERRM);
2483: END IF;
2484:
2485: x_return_status := fnd_api.g_ret_sts_unexp_error;
2486: END validate_dtl_um;
2487:
2488: PROCEDURE validate_plan_qty (
2489: p_plan_qty IN NUMBER
2496: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2497: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_plan_qty='||p_plan_qty);
2498: END IF;
2499:
2500: x_return_status := fnd_api.g_ret_sts_success;
2501:
2502: IF p_plan_qty < 0 THEN
2503: gme_common_pvt.log_message ('GME_INVALID_PLAN_QTY');
2504: RAISE val_error;
2509: END IF;
2510:
2511: EXCEPTION
2512: WHEN val_error THEN
2513: x_return_status := fnd_api.g_ret_sts_error;
2514: WHEN OTHERS THEN
2515: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2516:
2517: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2522: || ': '
2523: || SQLERRM);
2524: END IF;
2525:
2526: x_return_status := fnd_api.g_ret_sts_unexp_error;
2527: END validate_plan_qty;
2528:
2529: PROCEDURE validate_wip_plan_qty (
2530: p_wip_plan_qty IN NUMBER
2537: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2538: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_wip_plan_qty='||p_wip_plan_qty);
2539: END IF;
2540:
2541: x_return_status := fnd_api.g_ret_sts_success;
2542:
2543: IF p_wip_plan_qty < 0 THEN
2544: gme_common_pvt.log_message ('GME_INVALID_WIP_PLAN_QTY');
2545: RAISE val_error;
2550: END IF;
2551:
2552: EXCEPTION
2553: WHEN val_error THEN
2554: x_return_status := fnd_api.g_ret_sts_error;
2555: WHEN OTHERS THEN
2556: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2557:
2558: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2563: || ': '
2564: || SQLERRM);
2565: END IF;
2566:
2567: x_return_status := fnd_api.g_ret_sts_unexp_error;
2568: END validate_wip_plan_qty;
2569:
2570: PROCEDURE validate_actual_qty (
2571: p_actual_qty IN NUMBER
2578: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2579: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_actual_qty='||p_actual_qty);
2580: END IF;
2581:
2582: x_return_status := fnd_api.g_ret_sts_success;
2583:
2584: IF p_actual_qty < 0 THEN
2585: gme_common_pvt.log_message ('GME_INVALID_ACTUAL_QTY');
2586: RAISE val_error;
2591: END IF;
2592:
2593: EXCEPTION
2594: WHEN val_error THEN
2595: x_return_status := fnd_api.g_ret_sts_error;
2596: WHEN OTHERS THEN
2597: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2598:
2599: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2604: || ': '
2605: || SQLERRM);
2606: END IF;
2607:
2608: x_return_status := fnd_api.g_ret_sts_unexp_error;
2609: END validate_actual_qty;
2610:
2611: PROCEDURE validate_release_type (
2612: p_material_detail_rec IN gme_material_details%ROWTYPE
2628: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2629: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_release_type='||p_release_type);
2630: END IF;
2631:
2632: x_return_status := fnd_api.g_ret_sts_success;
2633:
2634: OPEN cur_rel_type (p_release_type);
2635: FETCH cur_rel_type INTO l_exists;
2636: CLOSE cur_rel_type;
2645: END IF;
2646:
2647: EXCEPTION
2648: WHEN val_error THEN
2649: x_return_status := fnd_api.g_ret_sts_error;
2650: WHEN OTHERS THEN
2651: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2652:
2653: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2658: || ': '
2659: || SQLERRM);
2660: END IF;
2661:
2662: x_return_status := fnd_api.g_ret_sts_unexp_error;
2663: END validate_release_type;
2664:
2665: PROCEDURE validate_scrap_factor (
2666: p_scrap IN NUMBER
2674: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2675: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scrap='||p_scrap);
2676: END IF;
2677:
2678: x_return_status := fnd_api.g_ret_sts_success;
2679:
2680: IF (p_scrap < 0 OR p_scrap > 1000000) THEN
2681: gme_common_pvt.log_message ('GME_INVALID_SCRAP_FACTOR');
2682: RAISE val_error;
2687: END IF;
2688:
2689: EXCEPTION
2690: WHEN val_error THEN
2691: x_return_status := fnd_api.g_ret_sts_error;
2692: WHEN OTHERS THEN
2693: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2694:
2695: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2700: || ': '
2701: || SQLERRM);
2702: END IF;
2703:
2704: x_return_status := fnd_api.g_ret_sts_unexp_error;
2705: END validate_scrap_factor;
2706:
2707: PROCEDURE validate_scale_multiple (
2708: p_scale_mult IN NUMBER
2715: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2716: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_mult='||p_scale_mult);
2717: END IF;
2718:
2719: x_return_status := fnd_api.g_ret_sts_success;
2720:
2721: IF p_scale_mult <= 0 THEN
2722: gme_common_pvt.log_message ('GME_INVALID_SCALE_MULT');
2723: RAISE val_error;
2728: END IF;
2729:
2730: EXCEPTION
2731: WHEN val_error THEN
2732: x_return_status := fnd_api.g_ret_sts_error;
2733: WHEN OTHERS THEN
2734: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2735:
2736: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2741: || ': '
2742: || SQLERRM);
2743: END IF;
2744:
2745: x_return_status := fnd_api.g_ret_sts_unexp_error;
2746: END validate_scale_multiple;
2747:
2748: PROCEDURE validate_scale_round_var (
2749: p_scale_var IN NUMBER
2756: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2757: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_var='||p_scale_var);
2758: END IF;
2759:
2760: x_return_status := fnd_api.g_ret_sts_success;
2761:
2762: IF (p_scale_var < 0 OR p_scale_var > 100) THEN
2763: gme_common_pvt.log_message ('GME_INVALID_SCALE_ROUND_VAR');
2764: RAISE val_error;
2769: END IF;
2770:
2771: EXCEPTION
2772: WHEN val_error THEN
2773: x_return_status := fnd_api.g_ret_sts_error;
2774: WHEN OTHERS THEN
2775: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2776:
2777: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2782: || ': '
2783: || SQLERRM);
2784: END IF;
2785:
2786: x_return_status := fnd_api.g_ret_sts_unexp_error;
2787: END validate_scale_round_var;
2788:
2789: PROCEDURE validate_rounding_direction (
2790: p_round_dir IN NUMBER
2806: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2807: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_round_dir='||p_round_dir);
2808: END IF;
2809:
2810: x_return_status := fnd_api.g_ret_sts_success;
2811:
2812: OPEN cur_round_dir (p_round_dir);
2813: FETCH cur_round_dir INTO l_exists;
2814: CLOSE cur_round_dir;
2823: END IF;
2824:
2825: EXCEPTION
2826: WHEN val_error THEN
2827: x_return_status := fnd_api.g_ret_sts_error;
2828: WHEN OTHERS THEN
2829: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2830:
2831: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2836: || ': '
2837: || SQLERRM);
2838: END IF;
2839:
2840: x_return_status := fnd_api.g_ret_sts_unexp_error;
2841: END validate_rounding_direction;
2842:
2843: PROCEDURE validate_scale_type (
2844: p_scale_type IN NUMBER
2860: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2861: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_scale_type='||p_scale_type);
2862: END IF;
2863:
2864: x_return_status := fnd_api.g_ret_sts_success;
2865:
2866: OPEN cur_scale_type (p_scale_type);
2867: FETCH cur_scale_type INTO l_exists;
2868: CLOSE cur_scale_type;
2877: END IF;
2878:
2879: EXCEPTION
2880: WHEN val_error THEN
2881: x_return_status := fnd_api.g_ret_sts_error;
2882: WHEN OTHERS THEN
2883: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2884:
2885: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2890: || ': '
2891: || SQLERRM);
2892: END IF;
2893:
2894: x_return_status := fnd_api.g_ret_sts_unexp_error;
2895: END validate_scale_type;
2896:
2897: --FPBug#4524232 changed parameter to p_material_detail_rec from p_cost_alloc
2898: PROCEDURE validate_cost_alloc(
2926: BEGIN
2927: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
2928: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
2929: END IF;
2930: x_return_status := fnd_api.g_ret_sts_success;
2931:
2932: --FPBug#4524232 Begin
2933: l_batch_id := p_material_detail_rec.batch_id;
2934: l_material_detail_id := p_material_detail_rec.material_detail_id;
2976: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
2977: END IF;
2978: EXCEPTION
2979: WHEN val_error THEN
2980: x_return_status := fnd_api.g_ret_sts_error;
2981: WHEN OTHERS THEN
2982: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2983: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
2984: gme_debug.put_line ( 'Unexpected error: '
2987: || l_api_name
2988: || ': '
2989: || SQLERRM);
2990: END IF;
2991: x_return_status := fnd_api.g_ret_sts_unexp_error;
2992: END validate_cost_alloc;
2993:
2994: PROCEDURE validate_phantom_type (
2995: p_phantom_type IN NUMBER
3011: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3012: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_phantom_type='||p_phantom_type);
3013: END IF;
3014:
3015: x_return_status := fnd_api.g_ret_sts_success;
3016:
3017: OPEN cur_phantom_type (p_phantom_type);
3018: FETCH cur_phantom_type INTO l_exists;
3019: CLOSE cur_phantom_type;
3028: END IF;
3029:
3030: EXCEPTION
3031: WHEN val_error THEN
3032: x_return_status := fnd_api.g_ret_sts_error;
3033: WHEN OTHERS THEN
3034: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3035:
3036: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3041: || ': '
3042: || SQLERRM);
3043: END IF;
3044:
3045: x_return_status := fnd_api.g_ret_sts_unexp_error;
3046: END validate_phantom_type;
3047:
3048: PROCEDURE validate_contr_yield_ind (
3049: p_contr_yield_ind IN VARCHAR2 --FPBug#5040865
3056: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3057: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_contr_yield_ind='||p_contr_yield_ind);
3058: END IF;
3059:
3060: x_return_status := fnd_api.g_ret_sts_success;
3061:
3062: IF p_contr_yield_ind NOT IN ('Y', 'N') THEN
3063: gme_common_pvt.log_message ('GME_INVALID_CONTR_YIELD');
3064: RAISE val_error;
3069: END IF;
3070:
3071: EXCEPTION
3072: WHEN val_error THEN
3073: x_return_status := fnd_api.g_ret_sts_error;
3074: WHEN OTHERS THEN
3075: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3076:
3077: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3082: || ': '
3083: || SQLERRM);
3084: END IF;
3085:
3086: x_return_status := fnd_api.g_ret_sts_unexp_error;
3087: END validate_contr_yield_ind;
3088:
3089: PROCEDURE validate_contr_step_qty_ind (
3090: p_contr_step_qty_ind IN VARCHAR2 --FPBug#5040865
3098: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3099: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_contr_step_qty_ind='||p_contr_step_qty_ind);
3100: END IF;
3101:
3102: x_return_status := fnd_api.g_ret_sts_success;
3103:
3104: IF p_contr_step_qty_ind NOT IN ('Y', 'N') THEN
3105: gme_common_pvt.log_message ('GME_INVALID_CONTR_STEP');
3106: RAISE val_error;
3111: END IF;
3112:
3113: EXCEPTION
3114: WHEN val_error THEN
3115: x_return_status := fnd_api.g_ret_sts_error;
3116: WHEN OTHERS THEN
3117: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3118:
3119: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3124: || ': '
3125: || SQLERRM);
3126: END IF;
3127:
3128: x_return_status := fnd_api.g_ret_sts_unexp_error;
3129: END validate_contr_step_qty_ind;
3130:
3131: PROCEDURE validate_subinventory (
3132: p_subinv IN VARCHAR2
3140: gme_debug.put_line('Entering api '||g_pkg_name||'.'||l_api_name);
3141: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_subinv='||p_subinv);
3142: END IF;
3143:
3144: x_return_status := fnd_api.g_ret_sts_success;
3145:
3146: IF p_subinv IS NULL THEN
3147: NULL; -- not required
3148: ELSIF gme_common_pvt.check_subinventory
3160: END IF;
3161:
3162: EXCEPTION
3163: WHEN sub_not_valid THEN
3164: x_return_status := fnd_api.g_ret_sts_error;
3165: WHEN OTHERS THEN
3166: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3167:
3168: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3173: || ': '
3174: || SQLERRM);
3175: END IF;
3176:
3177: x_return_status := fnd_api.g_ret_sts_unexp_error;
3178: END validate_subinventory;
3179:
3180: PROCEDURE validate_locator (
3181: p_subinv IN VARCHAR2
3202: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_locator_id='||p_locator_id);
3203: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_line_type='||p_line_type);
3204: END IF;
3205:
3206: x_return_status := fnd_api.g_ret_sts_success;
3207:
3208: IF p_line_type = gme_common_pvt.g_line_type_ing THEN
3209: l_txn_action_id := gme_common_pvt.g_ing_issue_txn_action;
3210: ELSIF p_line_type = gme_common_pvt.g_line_type_prod THEN
3242: END IF;
3243:
3244: EXCEPTION
3245: WHEN loc_not_valid THEN
3246: x_return_status := fnd_api.g_ret_sts_error;
3247: WHEN OTHERS THEN
3248: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3249:
3250: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3255: || ': '
3256: || SQLERRM);
3257: END IF;
3258:
3259: x_return_status := fnd_api.g_ret_sts_unexp_error;
3260: END validate_locator;
3261:
3262: PROCEDURE update_material_line (
3263: p_batch_header_rec IN gme_batch_header%ROWTYPE
3263: p_batch_header_rec IN gme_batch_header%ROWTYPE
3264: ,p_material_detail_rec IN gme_material_details%ROWTYPE
3265: ,p_stored_material_detail_rec IN gme_material_details%ROWTYPE
3266: ,p_batch_step_rec IN gme_batch_steps%ROWTYPE
3267: ,p_scale_phantom IN VARCHAR2 := fnd_api.g_false
3268: ,p_trans_id IN NUMBER
3269: ,x_transacted OUT NOCOPY VARCHAR2
3270: ,x_return_status OUT NOCOPY VARCHAR2
3271: ,x_material_detail_rec OUT NOCOPY gme_material_details%ROWTYPE)
3318: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_trans_id='||p_trans_id);
3319: END IF;
3320:
3321: /* Set return status to success initially */
3322: x_return_status := fnd_api.g_ret_sts_success;
3323:
3324: l_mtl_dtl_rec := p_material_detail_rec;
3325: l_db_mtl_dtl_rec := p_stored_material_detail_rec;
3326:
3330: (p_batch_header_rec => p_batch_header_rec
3331: ,p_material_detail_rec => l_mtl_dtl_rec
3332: ,p_batch_step_rec => p_batch_step_rec
3333: ,p_trans_id => NULL
3334: ,p_insert => FND_API.g_false
3335: ,x_transacted => x_transacted
3336: ,x_return_status => x_return_status);
3337:
3338: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3334: ,p_insert => FND_API.g_false
3335: ,x_transacted => x_transacted
3336: ,x_return_status => x_return_status);
3337:
3338: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3339: l_proc := 'open_and_process_actual_qty';
3340: RAISE error_processing;
3341: END IF;
3342: END IF;
3421: ,p_mtl_dtl_rec => l_mtl_dtl_rec
3422: ,x_mtl_req_date => l_mtl_dtl_rec.material_requirement_date
3423: ,x_return_status => x_return_status);
3424:
3425: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3426: l_proc := 'gme_common_pvt.calc_mtl_req_date';
3427: RAISE error_processing;
3428: END IF;
3429:
3447: p_material_detail_id => l_mtl_dtl_rec.material_detail_id
3448: ,p_material_date => l_mtl_dtl_rec.material_requirement_date
3449: ,x_return_status => x_return_status );
3450:
3451: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3452: l_proc := 'gme_common_pvt.material_date_change';
3453: RAISE error_processing;
3454: END IF;
3455: --Bug#5159393 Susruth D.
3527: l_proc := 'gme_batch_header_dbl.fetch_row';
3528: RAISE error_dbl;
3529: END IF;
3530:
3531: IF p_scale_phantom = FND_API.G_TRUE AND l_factor <> 1 THEN
3532:
3533: gme_scale_batch_pvt.scale_batch
3534: (p_batch_header_rec => l_ph_batch_header_rec
3535: ,p_scale_factor => l_factor
3535: ,p_scale_factor => l_factor
3536: ,p_primaries => 'OUTPUTS'
3537: ,p_qty_type => 1
3538: ,p_validity_rule_id => l_ph_batch_header_rec.recipe_validity_rule_id
3539: ,p_enforce_vldt_check => fnd_api.g_true
3540: ,p_recalc_dates => fnd_api.g_false
3541: ,p_use_workday_cal => fnd_api.g_false
3542: ,p_contiguity_override => fnd_api.g_true
3543: ,x_exception_material_tbl => l_exception_material_tbl
3536: ,p_primaries => 'OUTPUTS'
3537: ,p_qty_type => 1
3538: ,p_validity_rule_id => l_ph_batch_header_rec.recipe_validity_rule_id
3539: ,p_enforce_vldt_check => fnd_api.g_true
3540: ,p_recalc_dates => fnd_api.g_false
3541: ,p_use_workday_cal => fnd_api.g_false
3542: ,p_contiguity_override => fnd_api.g_true
3543: ,x_exception_material_tbl => l_exception_material_tbl
3544: ,x_batch_header_rec => l_batch_header_rec
3537: ,p_qty_type => 1
3538: ,p_validity_rule_id => l_ph_batch_header_rec.recipe_validity_rule_id
3539: ,p_enforce_vldt_check => fnd_api.g_true
3540: ,p_recalc_dates => fnd_api.g_false
3541: ,p_use_workday_cal => fnd_api.g_false
3542: ,p_contiguity_override => fnd_api.g_true
3543: ,x_exception_material_tbl => l_exception_material_tbl
3544: ,x_batch_header_rec => l_batch_header_rec
3545: ,x_return_status => x_return_status);
3538: ,p_validity_rule_id => l_ph_batch_header_rec.recipe_validity_rule_id
3539: ,p_enforce_vldt_check => fnd_api.g_true
3540: ,p_recalc_dates => fnd_api.g_false
3541: ,p_use_workday_cal => fnd_api.g_false
3542: ,p_contiguity_override => fnd_api.g_true
3543: ,x_exception_material_tbl => l_exception_material_tbl
3544: ,x_batch_header_rec => l_batch_header_rec
3545: ,x_return_status => x_return_status);
3546:
3543: ,x_exception_material_tbl => l_exception_material_tbl
3544: ,x_batch_header_rec => l_batch_header_rec
3545: ,x_return_status => x_return_status);
3546:
3547: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3548: l_proc := 'gme_scale_batch_pvt.scale_batch';
3549: RAISE error_processing;
3550: END IF;
3551: END IF; --IF l_factor <> 1
3571: l_ph_batch_step_rec.plan_start_date:=NULL;
3572: gme_reschedule_step_pvt.reschedule_step
3573: (p_batch_step_rec => l_ph_batch_step_rec
3574: ,p_source_step_id_tbl => l_step_tbl
3575: ,p_contiguity_override => fnd_api.g_true
3576: ,p_reschedule_preceding => fnd_api.g_true
3577: ,p_reschedule_succeeding => fnd_api.g_true
3578: ,p_use_workday_cal => fnd_api.g_false
3579: ,x_batch_step_rec => x_batch_step_rec
3572: gme_reschedule_step_pvt.reschedule_step
3573: (p_batch_step_rec => l_ph_batch_step_rec
3574: ,p_source_step_id_tbl => l_step_tbl
3575: ,p_contiguity_override => fnd_api.g_true
3576: ,p_reschedule_preceding => fnd_api.g_true
3577: ,p_reschedule_succeeding => fnd_api.g_true
3578: ,p_use_workday_cal => fnd_api.g_false
3579: ,x_batch_step_rec => x_batch_step_rec
3580: ,x_return_status => x_return_status);
3573: (p_batch_step_rec => l_ph_batch_step_rec
3574: ,p_source_step_id_tbl => l_step_tbl
3575: ,p_contiguity_override => fnd_api.g_true
3576: ,p_reschedule_preceding => fnd_api.g_true
3577: ,p_reschedule_succeeding => fnd_api.g_true
3578: ,p_use_workday_cal => fnd_api.g_false
3579: ,x_batch_step_rec => x_batch_step_rec
3580: ,x_return_status => x_return_status);
3581: ELSE
3574: ,p_source_step_id_tbl => l_step_tbl
3575: ,p_contiguity_override => fnd_api.g_true
3576: ,p_reschedule_preceding => fnd_api.g_true
3577: ,p_reschedule_succeeding => fnd_api.g_true
3578: ,p_use_workday_cal => fnd_api.g_false
3579: ,x_batch_step_rec => x_batch_step_rec
3580: ,x_return_status => x_return_status);
3581: ELSE
3582: l_ph_batch_header_rec.plan_cmplt_date:=l_mtl_dtl_rec.material_requirement_date;
3582: l_ph_batch_header_rec.plan_cmplt_date:=l_mtl_dtl_rec.material_requirement_date;
3583: l_ph_batch_header_rec.plan_start_date:=NULL;
3584: gme_reschedule_batch_pvt.reschedule_batch
3585: (p_batch_header_rec => l_ph_batch_header_rec
3586: ,p_use_workday_cal => fnd_api.g_false
3587: ,p_contiguity_override => fnd_api.g_true
3588: ,x_batch_header_rec => l_phantom_batch_header_rec_out
3589: ,x_return_status => x_return_status);
3590: END IF;
3583: l_ph_batch_header_rec.plan_start_date:=NULL;
3584: gme_reschedule_batch_pvt.reschedule_batch
3585: (p_batch_header_rec => l_ph_batch_header_rec
3586: ,p_use_workday_cal => fnd_api.g_false
3587: ,p_contiguity_override => fnd_api.g_true
3588: ,x_batch_header_rec => l_phantom_batch_header_rec_out
3589: ,x_return_status => x_return_status);
3590: END IF;
3591: END IF; --l_mtl_dtl_rec.material_requirement_date <> l_db_mtl_dtl_rec.material_requirement_date
3625: l_batch_step_rec.plan_cmplt_date:=l_plan_cmplt_date;
3626: gme_reschedule_step_pvt.reschedule_step
3627: (p_batch_step_rec => l_batch_step_rec
3628: ,p_source_step_id_tbl => l_step_tbl
3629: ,p_contiguity_override => fnd_api.g_true
3630: ,p_reschedule_preceding => fnd_api.g_true
3631: ,p_reschedule_succeeding => fnd_api.g_true
3632: ,p_use_workday_cal => fnd_api.g_false
3633: ,x_batch_step_rec => x_batch_step_rec
3626: gme_reschedule_step_pvt.reschedule_step
3627: (p_batch_step_rec => l_batch_step_rec
3628: ,p_source_step_id_tbl => l_step_tbl
3629: ,p_contiguity_override => fnd_api.g_true
3630: ,p_reschedule_preceding => fnd_api.g_true
3631: ,p_reschedule_succeeding => fnd_api.g_true
3632: ,p_use_workday_cal => fnd_api.g_false
3633: ,x_batch_step_rec => x_batch_step_rec
3634: ,x_return_status => x_return_status);
3627: (p_batch_step_rec => l_batch_step_rec
3628: ,p_source_step_id_tbl => l_step_tbl
3629: ,p_contiguity_override => fnd_api.g_true
3630: ,p_reschedule_preceding => fnd_api.g_true
3631: ,p_reschedule_succeeding => fnd_api.g_true
3632: ,p_use_workday_cal => fnd_api.g_false
3633: ,x_batch_step_rec => x_batch_step_rec
3634: ,x_return_status => x_return_status);
3635: ELSE
3628: ,p_source_step_id_tbl => l_step_tbl
3629: ,p_contiguity_override => fnd_api.g_true
3630: ,p_reschedule_preceding => fnd_api.g_true
3631: ,p_reschedule_succeeding => fnd_api.g_true
3632: ,p_use_workday_cal => fnd_api.g_false
3633: ,x_batch_step_rec => x_batch_step_rec
3634: ,x_return_status => x_return_status);
3635: ELSE
3636: l_batch_header_rec:=p_batch_header_rec;
3637: l_batch_header_rec.plan_start_date:=NULL;
3638: l_batch_header_rec.plan_cmplt_date:=l_plan_cmplt_date;
3639: gme_reschedule_batch_pvt.reschedule_batch
3640: (p_batch_header_rec => l_batch_header_rec
3641: ,p_use_workday_cal => fnd_api.g_false
3642: ,p_contiguity_override => fnd_api.g_true
3643: ,x_batch_header_rec => l_phantom_batch_header_rec_out
3644: ,x_return_status => x_return_status);
3645: END IF;
3638: l_batch_header_rec.plan_cmplt_date:=l_plan_cmplt_date;
3639: gme_reschedule_batch_pvt.reschedule_batch
3640: (p_batch_header_rec => l_batch_header_rec
3641: ,p_use_workday_cal => fnd_api.g_false
3642: ,p_contiguity_override => fnd_api.g_true
3643: ,x_batch_header_rec => l_phantom_batch_header_rec_out
3644: ,x_return_status => x_return_status);
3645: END IF;
3646: END IF;--IF l_db_mtl_dtl_rec.phantom_id IS NOT NULL
3669: ,p_new_date => l_mtl_dtl_rec.material_requirement_date
3670: ,p_invis_move_line_id => NULL
3671: ,x_return_status => x_return_status);
3672:
3673: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3674: l_proc := 'gme_move_orders_pvt.update_move_order_lines';
3675: RAISE error_processing;
3676: END IF;
3677: END IF;
3696: ,p_new_date => l_mtl_dtl_rec.material_requirement_date
3697: ,p_invis_move_line_id => NULL
3698: ,x_return_status => x_return_status);
3699:
3700: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3701: l_proc := 'gme_move_orders_pvt.update_move_order_lines';
3702: RAISE error_processing;
3703: END IF;
3704: ELSE
3708: ,p_material_detail_id => l_mtl_dtl_rec.material_detail_id
3709: ,p_invis_move_line_id => NULL
3710: ,x_return_status => x_return_status);
3711:
3712: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3713: l_proc := 'gme_move_orders_pvt.delete_move_order_lines';
3714: RAISE error_processing;
3715: END IF;
3716: END IF;
3727: ,p_material_detail_id => l_mtl_dtl_rec.material_detail_id
3728: ,p_invis_move_line_id => l_mtl_dtl_rec.move_order_line_id
3729: ,x_return_status => x_return_status);
3730:
3731: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3732: l_proc := 'gme_move_orders_pvt.delete_move_order_lines';
3733: RAISE error_processing;
3734: END IF;
3735:
3746: ,x_material_details_tbl => l_out_material_detail_tbl
3747: ,x_trolin_tbl => l_trolin_tbl
3748: ,x_return_status => x_return_status);
3749:
3750: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3751: l_proc := 'gme_move_orders_pvt.create_move_order_lines';
3752: RAISE error_processing;
3753: END IF;
3754:
3772: ,x_msg_count => l_message_count
3773: ,x_msg_data => l_message_list
3774: ,x_return_status => x_return_status);
3775:
3776: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3777: l_proc := 'gme_reservations_pvt.relieve_prod_supply_resv ';
3778: RAISE error_processing;
3779: END IF;
3780: END IF;
3791: gme_common_pvt.get_who(x_user_ident => x_material_detail_rec.last_updated_by,
3792: x_login_id => x_material_detail_rec.last_update_login,
3793: x_timestamp => x_material_detail_rec.last_update_date,
3794: x_return_status => x_return_status);
3795: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3796: l_proc := 'gme_common_pvt.get_who ';
3797: RAISE error_processing;
3798: END IF;
3799:
3816: (p_batch_row => p_batch_header_rec
3817: ,x_rsc_row_count => l_rsc_count
3818: ,x_return_status => x_return_status);
3819:
3820: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3821: l_proc := 'gme_trans_engine_util.load_rsrc_trans';
3822: RAISE error_processing;
3823: END IF;
3824: gme_update_step_qty_pvt.update_step_qty
3827: ,x_message_list => l_message_list
3828: ,x_return_status => x_return_status
3829: ,x_batch_step_rec => l_batch_step_rec);
3830:
3831: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3832: l_proc := 'gme_update_step_qty_pvt.update_step_qty';
3833: RAISE error_processing;
3834: END IF;
3835:
3853: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': ' || l_proc|| ' error returned');
3854: END IF;
3855: WHEN error_dbl THEN
3856: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
3857: x_return_status := FND_API.g_ret_sts_unexp_error;
3858:
3859: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
3860: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
3861: || l_proc|| ' unexpected error: '|| SQLERRM);
3871: || ': '
3872: || SQLERRM);
3873: END IF;
3874:
3875: x_return_status := fnd_api.g_ret_sts_unexp_error;
3876: END update_material_line;
3877:
3878: --Bug#5078853 removed p_validate_flexfields parameter
3879: PROCEDURE val_and_pop_material_for_upd (
3909: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
3910: END IF;
3911:
3912: /* Set return status to success initially */
3913: x_return_status := fnd_api.g_ret_sts_success;
3914:
3915: -- Following are not supported for update in API and will be ignored...
3916: -- cost
3917: -- alloc_ind
3946: ,p_item_id => p_stored_material_detail_rec.inventory_item_id
3947: ,x_item_rec => l_item_rec
3948: ,x_return_status => x_return_status);
3949:
3950: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3951: RAISE expected_error;
3952: END IF;
3953:
3954: IF p_material_detail_rec.revision IS NOT NULL THEN
3951: RAISE expected_error;
3952: END IF;
3953:
3954: IF p_material_detail_rec.revision IS NOT NULL THEN
3955: IF p_material_detail_rec.revision = fnd_api.g_miss_char THEN
3956: x_material_detail_rec.revision := NULL;
3957: ELSE
3958: x_material_detail_rec.revision := p_material_detail_rec.revision;
3959: validate_revision
3960: (p_revision => x_material_detail_rec.revision
3961: ,p_item_rec => l_item_rec
3962: ,x_return_status => x_return_status);
3963:
3964: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3965: l_val_proc := 'validate_revisioin';
3966: RAISE val_error;
3967: END IF;
3968: END IF;
3969: END IF;
3970:
3971: IF x_material_detail_rec.line_type = gme_common_pvt.g_line_type_byprod THEN
3972: IF p_material_detail_rec.by_product_type IS NOT NULL THEN
3973: IF p_material_detail_rec.by_product_type = fnd_api.g_miss_char THEN
3974: x_material_detail_rec.by_product_type := NULL;
3975: ELSE
3976: x_material_detail_rec.by_product_type :=
3977: p_material_detail_rec.by_product_type;
3980: validate_byproduct_type
3981: (p_byproduct_type => x_material_detail_rec.by_product_type
3982: ,x_return_status => x_return_status);
3983:
3984: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3985: l_val_proc := 'validate_byproduct_type';
3986: RAISE val_error;
3987: END IF;
3988:
3992: END IF;
3993:
3994: IF p_material_detail_rec.release_type IS NOT NULL THEN
3995: IF p_batch_header_rec.batch_status = gme_common_pvt.g_batch_pending THEN
3996: IF p_material_detail_rec.release_type = fnd_api.g_miss_num THEN
3997: l_field := 'release_type';
3998: RAISE error_no_null;
3999: ELSE
4000: x_material_detail_rec.release_type :=
4003: (p_material_detail_rec => x_material_detail_rec
4004: ,p_release_type => x_material_detail_rec.release_type
4005: ,x_return_status => x_return_status);
4006:
4007: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4008: l_val_proc := 'validate_release_type';
4009: RAISE val_error;
4010: END IF;
4011: END IF;
4025: END IF;
4026:
4027: IF p_material_detail_rec.plan_qty IS NOT NULL THEN
4028: IF l_batch_status = gme_common_pvt.g_batch_pending THEN
4029: IF p_material_detail_rec.plan_qty = fnd_api.g_miss_num THEN
4030: l_field := 'plan_qty';
4031: RAISE error_no_null;
4032: ELSE
4033: x_material_detail_rec.plan_qty :=
4035: validate_plan_qty
4036: (p_plan_qty => x_material_detail_rec.plan_qty
4037: ,x_return_status => x_return_status);
4038:
4039: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4040: l_val_proc := 'validate_plan_qty';
4041: RAISE val_error;
4042: END IF;
4043: END IF;
4048: END IF;
4049:
4050: IF p_material_detail_rec.dtl_um IS NOT NULL THEN
4051: IF l_batch_status = gme_common_pvt.g_batch_pending THEN
4052: IF p_material_detail_rec.dtl_um = fnd_api.g_miss_char THEN
4053: l_field := 'dtl_um';
4054: RAISE error_no_null;
4055: ELSE
4056: x_material_detail_rec.dtl_um :=
4062: ,p_item_id => p_material_detail_rec.inventory_item_id
4063: ,p_org_id => p_material_detail_rec.organization_id
4064: ,x_return_status => x_return_status);
4065:
4066: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4067: l_val_proc := 'validate_dtl_um';
4068: RAISE val_error;
4069: END IF;
4070: END IF;
4075: END IF;
4076:
4077: IF p_material_detail_rec.wip_plan_qty IS NOT NULL THEN
4078: IF p_batch_header_rec.batch_status = gme_common_pvt.g_batch_wip THEN
4079: IF p_material_detail_rec.wip_plan_qty = fnd_api.g_miss_num THEN
4080: l_field := 'wip_plan_qty';
4081: RAISE error_no_null;
4082: ELSE
4083: x_material_detail_rec.wip_plan_qty :=
4085: validate_wip_plan_qty
4086: (p_wip_plan_qty => x_material_detail_rec.wip_plan_qty
4087: ,x_return_status => x_return_status);
4088:
4089: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4090: l_val_proc := 'validate_wip_plan_qty';
4091: RAISE val_error;
4092: END IF;
4093: END IF;
4100: --Bug#5078853 modified validation for actual qty
4101: IF p_material_detail_rec.actual_qty IS NOT NULL THEN
4102: IF p_batch_header_rec.batch_status IN (gme_common_pvt.g_batch_wip,
4103: gme_common_pvt.g_batch_completed )THEN
4104: IF p_material_detail_rec.actual_qty = fnd_api.g_miss_num THEN
4105: l_field := 'actual_qty';
4106: RAISE error_no_null;
4107: ELSE
4108: x_material_detail_rec.actual_qty := p_material_detail_rec.actual_qty;
4109: validate_actual_qty
4110: (p_actual_qty => x_material_detail_rec.actual_qty
4111: ,x_return_status => x_return_status);
4112:
4113: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4114: l_val_proc := 'validate_actual_qty';
4115: RAISE val_error;
4116: END IF;
4117: END IF;
4126: IF p_batch_header_rec.batch_status = gme_common_pvt.g_batch_pending AND
4127: p_material_detail_rec.line_type = gme_common_pvt.g_line_type_ing THEN
4128:
4129: IF p_material_detail_rec.scrap_factor IS NOT NULL THEN
4130: IF p_material_detail_rec.scrap_factor = fnd_api.g_miss_num THEN
4131: l_field := 'scrap_factor';
4132: RAISE error_no_null;
4133: ELSE
4134: validate_scrap_factor
4134: validate_scrap_factor
4135: (p_scrap => p_material_detail_rec.scrap_factor
4136: ,x_return_status => x_return_status);
4137:
4138: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4139: l_val_proc := 'validate_scrap_factor';
4140: RAISE val_error;
4141: END IF;
4142: -- scrap is a percent
4158: IF p_material_detail_rec.scale_type IS NOT NULL THEN
4159: IF p_batch_header_rec.batch_status IN ( gme_common_pvt.g_batch_pending,
4160: gme_common_pvt.g_batch_wip ) THEN
4161: -- scale_type can be changed, but not to NULL
4162: IF p_material_detail_rec.scale_type = fnd_api.g_miss_num THEN
4163: l_field := 'scale_type';
4164: RAISE error_no_null;
4165: ELSE
4166: validate_scale_type
4166: validate_scale_type
4167: (p_scale_type => p_material_detail_rec.scale_type
4168: ,x_return_status => x_return_status);
4169:
4170: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4171: l_val_proc := 'validate_scale_type';
4172: RAISE val_error;
4173: END IF;
4174: x_material_detail_rec.scale_type := p_material_detail_rec.scale_type;
4180: validate_scale_multiple
4181: (p_scale_mult => p_material_detail_rec.scale_multiple
4182: ,x_return_status => x_return_status);
4183:
4184: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4185: l_val_proc := 'validate_scale_multiple';
4186: RAISE val_error;
4187: END IF;
4188: x_material_detail_rec.scale_multiple := p_material_detail_rec.scale_multiple;
4191: validate_scale_round_var
4192: (p_scale_var => p_material_detail_rec.scale_rounding_variance
4193: ,x_return_status => x_return_status);
4194:
4195: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4196: l_val_proc := 'validate_scale_round_var';
4197: RAISE val_error;
4198: END IF;
4199:
4204: validate_rounding_direction
4205: (p_round_dir => p_material_detail_rec.rounding_direction
4206: ,x_return_status => x_return_status);
4207:
4208: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4209: l_val_proc := 'validate_rounding_direction';
4210: RAISE val_error;
4211: END IF;
4212: x_material_detail_rec.rounding_direction := p_material_detail_rec.rounding_direction;
4228: validate_cost_alloc
4229: (p_material_detail_rec => p_material_detail_rec
4230: ,x_return_status => x_return_status);
4231:
4232: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4233: l_val_proc := 'validate_cost_alloc';
4234: RAISE val_error;
4235: END IF;
4236: x_material_detail_rec.cost_alloc := p_material_detail_rec.cost_alloc;
4250: validate_phantom_type
4251: (p_phantom_type => x_material_detail_rec.phantom_type
4252: ,x_return_status => x_return_status);
4253:
4254: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4255: l_val_proc := 'validate_phantom_type';
4256: RAISE val_error;
4257: END IF;
4258: --Bug#5078853 changed to x_material_detail_rec
4258: --Bug#5078853 changed to x_material_detail_rec
4259: validate_phantom_type_change
4260: (p_material_detail_rec => x_material_detail_rec
4261: ,x_return_status => x_return_status);
4262: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4263: l_val_proc := 'validate_phantom_type_change';
4264: RAISE val_error;
4265: END IF;
4266: ELSE
4274: validate_contr_yield_ind
4275: (p_contr_yield_ind => x_material_detail_rec.contribute_yield_ind
4276: ,x_return_status => x_return_status);
4277:
4278: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4279: l_val_proc := 'validate_contr_yield_ind';
4280: RAISE val_error;
4281: END IF;
4282: END IF;
4285: validate_contr_step_qty_ind
4286: (p_contr_step_qty_ind => x_material_detail_rec.contribute_step_qty_ind
4287: ,x_return_status => x_return_status);
4288:
4289: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4290: l_val_proc := 'validate_contr_step_qty_ind';
4291: RAISE val_error;
4292: END IF;
4293:
4290: l_val_proc := 'validate_contr_step_qty_ind';
4291: RAISE val_error;
4292: END IF;
4293:
4294: IF p_material_detail_rec.subinventory = fnd_api.g_miss_char THEN
4295: x_material_detail_rec.subinventory := NULL;
4296: x_material_detail_rec.locator_id := NULL;
4297: ELSIF p_material_detail_rec.subinventory IS NOT NULL THEN
4298: x_material_detail_rec.subinventory :=
4301: (p_subinv => x_material_detail_rec.subinventory
4302: ,p_item_rec => l_item_rec
4303: ,x_return_status => x_return_status);
4304:
4305: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4306: l_val_proc := 'validate_subinventory';
4307: RAISE val_error;
4308: END IF;
4309:
4306: l_val_proc := 'validate_subinventory';
4307: RAISE val_error;
4308: END IF;
4309:
4310: IF p_material_detail_rec.locator_id = fnd_api.g_miss_num THEN
4311: x_material_detail_rec.locator_id := NULL;
4312: ELSE
4313: x_material_detail_rec.locator_id :=
4314: p_material_detail_rec.locator_id;
4318: ,p_item_rec => l_item_rec
4319: ,p_line_type => x_material_detail_rec.line_type
4320: ,x_return_status => x_return_status);
4321:
4322: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4323: l_val_proc := 'validate_locator';
4324: RAISE val_error;
4325: END IF;
4326: END IF;
4324: RAISE val_error;
4325: END IF;
4326: END IF;
4327: ELSE -- subinv is NULL not changing it, but maybe changing locator
4328: IF p_material_detail_rec.locator_id = fnd_api.g_miss_num THEN
4329: x_material_detail_rec.locator_id := NULL;
4330: ELSE
4331: IF p_material_detail_rec.locator_id IS NOT NULL THEN
4332: x_material_detail_rec.locator_id :=
4344: ,p_item_rec => l_item_rec
4345: ,p_line_type => x_material_detail_rec.line_type
4346: ,x_return_status => x_return_status);
4347:
4348: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4349: l_val_proc := 'validate_locator';
4350: RAISE val_error;
4351: END IF;
4352: END IF;
4362: ( p_material_detail_rec => l_material_detail_rec
4363: ,x_material_detail_rec => x_material_detail_rec
4364: ,x_return_status => x_return_status);
4365:
4366: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4367: l_val_proc := 'validate_flex_material_detail';
4368: RAISE val_error;
4369: END IF;
4370:
4376: WHEN error_no_null THEN
4377: gme_common_pvt.log_message ('GME_INVALID_VALUE_SPECIFIED'
4378: ,'FIELD_NAME'
4379: ,l_field);
4380: x_return_status := fnd_api.g_ret_sts_error;
4381: WHEN error_no_upd OR expected_error THEN
4382: x_return_status := fnd_api.g_ret_sts_error;
4383: WHEN val_error THEN
4384: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4378: ,'FIELD_NAME'
4379: ,l_field);
4380: x_return_status := fnd_api.g_ret_sts_error;
4381: WHEN error_no_upd OR expected_error THEN
4382: x_return_status := fnd_api.g_ret_sts_error;
4383: WHEN val_error THEN
4384: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4385: gme_debug.put_line (g_pkg_name||'.'||l_api_name||': validation error from proc: '|| l_val_proc);
4386: END IF;
4395: || ': '
4396: || SQLERRM);
4397: END IF;
4398:
4399: x_return_status := fnd_api.g_ret_sts_unexp_error;
4400: END val_and_pop_material_for_upd;
4401:
4402: --Bug#5078853 Procedure Created
4403: PROCEDURE validate_material_for_del (
4450: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batch_step_id='||p_batch_step_rec.batchstep_id);
4451: END IF;
4452:
4453: /* Set return status to success initially */
4454: x_return_status := fnd_api.g_ret_sts_success;
4455:
4456: /* validate batch for material deletion */
4457: IF p_batch_header_rec.batch_type <> 0 THEN
4458: gme_common_pvt.log_message('GME_INV_BATCH_TYPE_OPER');
4530: gme_debug.put_line('Exiting api '||g_pkg_name||'.'||l_api_name);
4531: END IF;
4532: EXCEPTION
4533: WHEN val_error THEN
4534: x_return_status := fnd_api.g_ret_sts_error;
4535: WHEN OTHERS THEN
4536: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4537: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4538: gme_debug.put_line ('Unexpected error: '
4541: || l_api_name
4542: || ': '
4543: || SQLERRM);
4544: END IF;
4545: x_return_status := fnd_api.g_ret_sts_unexp_error;
4546: END validate_material_for_del;
4547:
4548: PROCEDURE validate_phantom_type_change (
4549: p_material_detail_rec IN gme_material_details%ROWTYPE
4559: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_material_detail_rec.material_detail_id='||p_material_detail_rec.material_detail_id);
4560: END IF;
4561:
4562: /* Set return status to success initially */
4563: x_return_status := fnd_api.g_ret_sts_success;
4564:
4565: IF gme_reservations_pvt.pending_reservations_exist
4566: (p_organization_id => p_material_detail_rec.organization_id
4567: ,p_batch_id => p_material_detail_rec.batch_id
4583: END IF;
4584:
4585: EXCEPTION
4586: WHEN val_error THEN
4587: x_return_status := fnd_api.g_ret_sts_error;
4588: WHEN OTHERS THEN
4589: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4590:
4591: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4595: || l_api_name
4596: || ': '
4597: || SQLERRM);
4598: END IF;
4599: x_return_status := fnd_api.g_ret_sts_unexp_error;
4600: END validate_phantom_type_change;
4601:
4602: PROCEDURE delete_material_line (
4603: p_batch_header_rec IN gme_batch_header%ROWTYPE
4627: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' p_batch_step_rec.batchstep_id='||p_batch_step_rec.batchstep_id);
4628: END IF;
4629:
4630: /* Set return status to success initially */
4631: x_return_status := fnd_api.g_ret_sts_success;
4632:
4633: --Bug#5078853 deleting pending lots if any
4634: gme_pending_product_lots_pvt.delete_pending_product_lot
4635: (p_material_detail_id => p_material_detail_rec.material_detail_id
4634: gme_pending_product_lots_pvt.delete_pending_product_lot
4635: (p_material_detail_id => p_material_detail_rec.material_detail_id
4636: ,x_return_status => x_return_status);
4637:
4638: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4639: l_proc := 'gme_pending_product_lots.delete_pending_product_lot';
4640: RAISE error_processing;
4641: END IF;
4642:
4646: ,p_material_detail_id => p_material_detail_rec.material_detail_id
4647: ,p_invis_move_line_id => p_material_detail_rec.move_order_line_id
4648: ,x_return_status => x_return_status);
4649:
4650: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4651: l_proc := 'gme_move_orders_pvt.delete_move_order_lines';
4652: RAISE error_processing;
4653: END IF;
4654:
4664: ,p_batch_id => p_batch_header_rec.batch_id
4665: ,x_mmt_tbl => l_mmt_tbl
4666: ,x_return_status => x_return_status);
4667:
4668: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4669: l_proc := 'gme_transactions_pvt.get_mat_trans';
4670: RAISE error_processing;
4671: END IF;
4672:
4674: gme_transactions_pvt.delete_material_txn (
4675: p_transaction_id => l_mmt_tbl(i).transaction_id
4676: ,p_txns_pair => NULL
4677: ,x_return_status => x_return_status);
4678: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4679: l_proc := 'gme_transactions_pvt.delete_material_txn';
4680: RAISE error_processing;
4681: END IF;
4682: END LOOP;
4681: END IF;
4682: END LOOP;
4683:
4684: IF l_mmt_tbl.COUNT > 0 THEN
4685: x_transacted := fnd_api.G_TRUE;
4686: ELSE
4687: x_transacted := fnd_api.G_FALSE;
4688: END IF;
4689:
4683:
4684: IF l_mmt_tbl.COUNT > 0 THEN
4685: x_transacted := fnd_api.G_TRUE;
4686: ELSE
4687: x_transacted := fnd_api.G_FALSE;
4688: END IF;
4689:
4690: -- 4944024 BEGIN
4691: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
4702: ,x_msg_count => l_message_count
4703: ,x_msg_data => l_message_list
4704: ,x_return_status => x_return_status);
4705:
4706: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4707: l_proc := 'gme_reservations_pvt.delete_prod_prod_supply_resv ';
4708: RAISE error_processing;
4709: END IF;
4710: END IF;
4735: (p_batch_row => p_batch_header_rec
4736: ,x_rsc_row_count => l_rsc_count
4737: ,x_return_status => x_return_status);
4738:
4739: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4740: l_proc := 'gme_trans_engine_util.load_rsrc_trans';
4741: RAISE error_processing;
4742: END IF;
4743:
4747: ,x_message_list => l_message_list
4748: ,x_return_status => x_return_status
4749: ,x_batch_step_rec => l_batch_step_rec);
4750:
4751: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4752: l_proc := 'gme_update_step_qty_pvt.update_step_qty';
4753: RAISE error_processing;
4754: END IF;
4755:
4773: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': ' || l_proc|| ' error returned');
4774: END IF;
4775: WHEN error_dbl THEN
4776: gme_common_pvt.log_message ('GME_UNEXPECTED_ERROR', 'ERROR', SQLERRM);
4777: x_return_status := FND_API.g_ret_sts_unexp_error;
4778:
4779: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
4780: gme_debug.put_line (g_pkg_name||'.'||l_api_name|| ': '
4781: || l_proc|| ' unexpected error: '|| SQLERRM);
4791: || ': '
4792: || SQLERRM);
4793: END IF;
4794:
4795: x_return_status := fnd_api.g_ret_sts_unexp_error;
4796: END delete_material_line;
4797: END gme_material_detail_pvt;