[Home] [Help]
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;
51:
52: -- renumber subsequent lines
53: UPDATE gme_material_details
54: SET line_no = line_no + 1
81: (p_batch_header_rec => p_batch_header_rec
82: ,p_material_detail_rec => x_material_detail_rec
83: ,p_batch_step_rec => p_batch_step_rec
84: ,p_trans_id => p_trans_id
85: ,p_insert => FND_API.g_true
86: ,x_transacted => x_transacted
87: ,x_return_status => x_return_status);
88:
89: IF x_return_status <> fnd_api.g_ret_sts_success THEN
85: ,p_insert => FND_API.g_true
86: ,x_transacted => x_transacted
87: ,x_return_status => x_return_status);
88:
89: IF x_return_status <> fnd_api.g_ret_sts_success THEN
90: l_proc := 'open_and_process_actual_qty';
91: RAISE error_processing;
92: END IF;
93:
113: ,p_mtl_dtl_rec => l_material_detail_rec
114: ,x_mtl_req_date => x_material_detail_rec.material_requirement_date
115: ,x_return_status => x_return_status);
116:
117: IF x_return_status <> fnd_api.g_ret_sts_success THEN
118: l_proc := 'gme_common_pvt.calc_mtl_req_date';
119: RAISE error_processing;
120: END IF;
121:
138: ,x_material_details_tbl => l_out_material_detail_tbl
139: ,x_trolin_tbl => l_trolin_tbl
140: ,x_return_status => x_return_status);
141:
142: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
143: l_proc := 'gme_move_orders_pvt.create_move_order_lines';
144: RAISE error_processing;
145: END IF;
146:
162: --END IF;
163:
164: gmo_dispense_grp.is_dispense_item
165: (p_api_version => 1.0
166: ,p_init_msg_list => fnd_api.g_false
167: ,x_return_status => l_return_status
168: ,x_msg_count => l_message_count
169: ,x_msg_data => l_message_list
170: ,p_inventory_item_id => x_material_detail_rec.inventory_item_id
172: ,p_recipe_id => l_recipe_id
173: ,x_dispense_required => x_material_detail_rec.dispense_ind
174: ,x_dispense_config_id => l_config_id);
175:
176: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
177: l_proc := 'gmo_dispense_grp.is_dispense_item';
178: -- Pawan Kumar 01-10-2006 bug 4742244 *
179: -- Raising exception after is_dispense_item procedure returns error *
180: RAISE error_dispensing;
180: RAISE error_dispensing;
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);
191: (p_api_version => 1.0
192: ,p_dispense_config_id => l_config_id
193: ,p_entity_name => GMO_DISPENSE_GRP.G_MATERIAL_LINE_ENTITY
194: ,p_entity_key => x_material_detail_rec.material_detail_id
195: ,p_init_msg_list => FND_API.G_FALSE
196: ,x_return_status => l_return_status
197: ,x_msg_count => l_message_count
198: ,x_msg_data => l_message_list);
199: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
195: ,p_init_msg_list => FND_API.G_FALSE
196: ,x_return_status => l_return_status
197: ,x_msg_count => l_message_count
198: ,x_msg_data => l_message_list);
199: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
200: l_proc := 'gmo_dispense_grp.instantiate_dispense_setup';
201: RAISE error_processing;
202: END IF;
203: END IF;
220: (p_batch_row => p_batch_header_rec
221: ,x_rsc_row_count => l_rsc_count
222: ,x_return_status => x_return_status);
223:
224: IF x_return_status <> fnd_api.g_ret_sts_success THEN
225: l_proc := 'gme_trans_engine_util.load_rsrc_trans';
226: RAISE error_processing;
227: END IF;
228:
232: ,x_message_list => l_message_list
233: ,x_return_status => x_return_status
234: ,x_batch_step_rec => l_batch_step_rec);
235:
236: IF x_return_status <> fnd_api.g_ret_sts_success THEN
237: l_proc := 'gme_update_step_qty_pvt.update_step_qty';
238: RAISE error_processing;
239: END IF;
240: END IF;
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;
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);
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:
275: PROCEDURE validate_batch_for_matl_ins
276: (p_batch_header_rec IN gme_batch_header%ROWTYPE
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;
294:
295: --Bug#5078853 added check for invalid batch type
296: IF p_batch_header_rec.batch_type <> 0 THEN
297: gme_common_pvt.log_message ('GME_INV_BATCH_TYPE_OPER');
320: END IF;
321:
322: EXCEPTION
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);
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:
333: /***********************************************************************
334: *
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;
370:
371: -- set output structure
372: x_material_detail_rec := p_material_detail_rec;
373:
380: ,p_item_id => p_material_detail_rec.inventory_item_id
381: ,x_item_rec => l_item_rec
382: ,x_return_status => x_return_status);
383:
384: IF x_return_status <> fnd_api.g_ret_sts_success THEN
385: l_val_proc := 'validate_item_id';
386: RAISE val_error;
387: END IF;
388:
390: validate_revision (p_item_rec => l_item_rec
391: ,p_revision => p_material_detail_rec.revision
392: ,x_return_status => x_return_status);
393:
394: IF x_return_status <> fnd_api.g_ret_sts_success THEN
395: l_val_proc := 'validate_revision';
396: RAISE val_error;
397: END IF;
398:
399: -- Line_Type
400: validate_line_type (p_line_type => p_material_detail_rec.line_type
401: ,x_return_status => x_return_status);
402:
403: IF x_return_status <> fnd_api.g_ret_sts_success THEN
404: l_val_proc := 'validate_line_type';
405: RAISE val_error;
406: END IF;
407:
410: validate_byproduct_type
411: (p_byproduct_type => p_material_detail_rec.by_product_type
412: ,x_return_status => x_return_status);
413:
414: IF x_return_status <> fnd_api.g_ret_sts_success THEN
415: l_val_proc := 'validate_byproduct_type';
416: RAISE val_error;
417: END IF;
418: ELSE
426: ,p_batch_id => p_batch_header_rec.batch_id
427: ,x_line_no => x_material_detail_rec.line_no
428: ,x_return_status => x_return_status);
429:
430: IF x_return_status <> fnd_api.g_ret_sts_success THEN
431: l_val_proc := 'validate_line_no';
432: RAISE val_error;
433: END IF;
434:
438: ,p_item_id => p_material_detail_rec.inventory_item_id
439: ,p_org_id => x_material_detail_rec.organization_id
440: ,x_return_status => x_return_status);
441:
442: IF x_return_status <> fnd_api.g_ret_sts_success THEN
443: l_val_proc := 'validate_dtl_um';
444: RAISE val_error;
445: END IF;
446:
457: (p_material_detail_rec => p_material_detail_rec
458: ,p_release_type => p_material_detail_rec.release_type
459: ,x_return_status => x_return_status);
460:
461: IF x_return_status <> fnd_api.g_ret_sts_success THEN
462: l_val_proc := 'validate_release_type';
463: RAISE val_error;
464: END IF;
465: END IF;
475: IF l_status = gme_common_pvt.g_batch_pending THEN
476: validate_plan_qty (p_plan_qty => p_material_detail_rec.plan_qty
477: ,x_return_status => x_return_status);
478:
479: IF x_return_status <> fnd_api.g_ret_sts_success THEN
480: l_val_proc := 'validate_plan_qty';
481: RAISE val_error;
482: END IF;
483: ELSE
494: --sunitha ch. bug rework#5333521 assign 0 to wip_plan_qty if it is NULL
495: IF p_material_detail_rec.wip_plan_qty IS NULL THEN
496: x_material_detail_rec.wip_plan_qty:=0;
497: END IF;
498: IF x_return_status <> fnd_api.g_ret_sts_success THEN
499: l_val_proc := 'validate_wip_plan_qty';
500: RAISE val_error;
501: END IF;
502: END IF;
514: END IF;
515: validate_actual_qty (p_actual_qty => x_material_detail_rec.actual_qty
516: ,x_return_status => x_return_status);
517:
518: IF x_return_status <> fnd_api.g_ret_sts_success THEN
519: l_val_proc := 'validate_actual_qty';
520: RAISE val_error;
521: END IF;
522: END IF;
532: ELSE
533: validate_scrap_factor(p_scrap => p_material_detail_rec.scrap_factor
534: ,x_return_status => x_return_status);
535:
536: IF x_return_status <> fnd_api.g_ret_sts_success THEN
537: l_val_proc := 'validate_scrap_factor';
538: RAISE val_error;
539: END IF;
540:
549: -- Scale_Type
550: validate_scale_type (p_scale_type => p_material_detail_rec.scale_type
551: ,x_return_status => x_return_status);
552:
553: IF x_return_status <> fnd_api.g_ret_sts_success THEN
554: l_val_proc := 'validate_scale_type';
555: RAISE val_error;
556: END IF;
557:
560: validate_scale_multiple
561: (p_scale_mult => p_material_detail_rec.scale_multiple
562: ,x_return_status => x_return_status);
563:
564: IF x_return_status <> fnd_api.g_ret_sts_success THEN
565: l_val_proc := 'validate_scale_multiple';
566: RAISE val_error;
567: END IF;
568:
570: validate_scale_round_var
571: (p_scale_var => p_material_detail_rec.scale_rounding_variance
572: ,x_return_status => x_return_status);
573:
574: IF x_return_status <> fnd_api.g_ret_sts_success THEN
575: l_val_proc := 'validate_scale_round_var';
576: RAISE val_error;
577: END IF;
578:
583: validate_rounding_direction
584: (p_round_dir => p_material_detail_rec.rounding_direction
585: ,x_return_status => x_return_status);
586:
587: IF x_return_status <> fnd_api.g_ret_sts_success THEN
588: l_val_proc := 'validate_rounding_direction';
589: RAISE val_error;
590: END IF;
591: ELSE
601: validate_cost_alloc
602: (p_material_detail_rec => p_material_detail_rec
603: ,x_return_status => x_return_status);
604:
605: IF x_return_status <> fnd_api.g_ret_sts_success THEN
606: l_val_proc := 'validate_cost_alloc';
607: RAISE val_error;
608: END IF;
609: ELSE
616: validate_phantom_type
617: (p_phantom_type => p_material_detail_rec.phantom_type
618: ,x_return_status => x_return_status);
619:
620: IF x_return_status <> fnd_api.g_ret_sts_success THEN
621: l_val_proc := 'validate_phantom_type';
622: RAISE val_error;
623: END IF;
624: ELSE
630: validate_contr_yield_ind
631: (p_contr_yield_ind => p_material_detail_rec.contribute_yield_ind
632: ,x_return_status => x_return_status);
633:
634: IF x_return_status <> fnd_api.g_ret_sts_success THEN
635: l_val_proc := 'validate_contr_yield_ind';
636: RAISE val_error;
637: END IF;
638: ELSE
644: validate_contr_step_qty_ind
645: (p_contr_step_qty_ind => p_material_detail_rec.contribute_step_qty_ind
646: ,x_return_status => x_return_status);
647:
648: IF x_return_status <> fnd_api.g_ret_sts_success THEN
649: l_val_proc := 'validate_contr_step_qty_ind';
650: RAISE val_error;
651: END IF;
652: ELSE
653: x_material_detail_rec.contribute_step_qty_ind := NULL;
654: END IF;
655:
656: -- Subinventory and Locator
657: IF p_material_detail_rec.subinventory = fnd_api.g_miss_char THEN
658: x_material_detail_rec.subinventory := NULL;
659: x_material_detail_rec.locator_id := NULL;
660: ELSIF p_material_detail_rec.subinventory IS NULL THEN
661: --Bug#5078853 Begin get the default sub inv and locator either from gme_parameters or from Item Master
664: ,p_inventory_item_id => p_material_detail_rec.inventory_item_id
665: ,x_subinventory => x_material_detail_rec.subinventory
666: ,x_locator_id => x_material_detail_rec.locator_id
667: ,x_return_status => x_return_status );
668: IF x_return_status <> fnd_api.g_ret_sts_success THEN
669: l_val_proc := 'get_supply_defaults';
670: RAISE val_error;
671: END IF;
672: ELSE
675: ,p_line_type => p_material_detail_rec.line_type
676: ,x_subinventory => x_material_detail_rec.subinventory
677: ,x_locator_id => x_material_detail_rec.locator_id
678: ,x_return_status => x_return_status );
679: IF x_return_status <> fnd_api.g_ret_sts_success THEN
680: l_val_proc := 'get_yield_defaults';
681: RAISE val_error;
682: END IF;
683: END IF;
687: (p_item_rec => l_item_rec
688: ,p_subinv => x_material_detail_rec.subinventory
689: ,x_return_status => x_return_status);
690:
691: IF x_return_status <> fnd_api.g_ret_sts_success THEN
692: l_val_proc := 'validate_subinventory';
693: RAISE val_error;
694: END IF;
695:
692: l_val_proc := 'validate_subinventory';
693: RAISE val_error;
694: END IF;
695:
696: IF p_material_detail_rec.locator_id = fnd_api.g_miss_num THEN
697: x_material_detail_rec.locator_id := NULL;
698: ELSIF p_material_detail_rec.locator_id IS NULL THEN
699: /* Bug#5078853 Begin if we come here then locator id is not being passed from public api
700: so get the default locator id to validate with passed sub inv */
703: ,p_inventory_item_id => p_material_detail_rec.inventory_item_id
704: ,x_subinventory => l_subinventory
705: ,x_locator_id => x_material_detail_rec.locator_id
706: ,x_return_status => x_return_status );
707: IF x_return_status <> fnd_api.g_ret_sts_success THEN
708: l_val_proc := 'get_supply_defaults';
709: RAISE val_error;
710: END IF;
711: ELSE
714: ,p_line_type => p_material_detail_rec.line_type
715: ,x_subinventory => l_subinventory
716: ,x_locator_id => x_material_detail_rec.locator_id
717: ,x_return_status => x_return_status );
718: IF x_return_status <> fnd_api.g_ret_sts_success THEN
719: l_val_proc := 'get_yield_defaults';
720: RAISE val_error;
721: END IF;
722: END IF;
731: ,p_item_rec => l_item_rec
732: ,p_line_type => x_material_detail_rec.line_type
733: ,x_return_status => x_return_status);
734:
735: IF x_return_status <> fnd_api.g_ret_sts_success THEN
736: l_val_proc := 'validate_locator';
737: RAISE val_error;
738: END IF;
739: END IF; -- IF x_material_detail_rec.locator_id IS NOT NULL ...
744: gme_validate_flex_fld_pvt.validate_flex_material_details
745: ( p_material_detail_rec => p_material_detail_rec
746: ,x_material_detail_rec => x_material_detail_rec
747: ,x_return_status => x_return_status);
748: IF x_return_status <> fnd_api.g_ret_sts_success THEN
749: l_val_proc := 'validate_flex_material_details';
750: RAISE val_error;
751: END IF;
752:
765: ,p_to_um => l_item_rec.primary_uom_code
766: ,x_conv_qty => x_material_detail_rec.original_primary_qty
767: ,x_return_status => x_return_status);
768:
769: IF x_return_status <> fnd_api.g_ret_sts_success THEN
770: l_val_proc := 'get_converted_qty';
771: RAISE val_error;
772: END IF;
773:
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);
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);
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:
796: PROCEDURE open_and_process_actual_qty (
797: p_batch_header_rec IN gme_batch_header%ROWTYPE
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;
838: x_transacted := FND_API.g_false;
839:
840: get_item_rec (p_org_id => p_batch_header_rec.organization_id
841: ,p_item_id => p_material_detail_rec.inventory_item_id
834: END IF;
835:
836: /* Set the return status to success initially */
837: x_return_status := FND_API.G_RET_STS_SUCCESS;
838: x_transacted := FND_API.g_false;
839:
840: get_item_rec (p_org_id => p_batch_header_rec.organization_id
841: ,p_item_id => p_material_detail_rec.inventory_item_id
842: ,x_item_rec => l_item_rec
841: ,p_item_id => p_material_detail_rec.inventory_item_id
842: ,x_item_rec => l_item_rec
843: ,x_return_status => x_return_status);
844:
845: IF x_return_status <> fnd_api.g_ret_sts_success THEN
846: RAISE error_get_rec;
847: END IF;
848:
849: IF p_trans_id IS NULL THEN
888: ,p_trans_id => l_trans_id
889: ,p_item_rec => l_item_rec
890: ,x_return_status => x_return_status);
891:
892: IF x_return_status <> fnd_api.g_ret_sts_success THEN
893: RAISE process_actual_qty_error;
894: END IF;
895:
896: x_transacted := FND_API.g_true;
892: IF x_return_status <> fnd_api.g_ret_sts_success THEN
893: RAISE process_actual_qty_error;
894: END IF;
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);
910:
911: gme_common_pvt.log_message ('GME_UPD_ACTUAL_QTY_ERR'
912: ,'ITEM_NO'
913: ,l_item_no);
914: x_return_status := fnd_api.g_ret_sts_error;
915: WHEN open_actual_qty_unexp_error THEN
916: x_return_status := fnd_api.g_ret_sts_unexp_error;
917: WHEN process_actual_qty_error THEN
918: NULL;
912: ,'ITEM_NO'
913: ,l_item_no);
914: x_return_status := fnd_api.g_ret_sts_error;
915: WHEN open_actual_qty_unexp_error THEN
916: x_return_status := fnd_api.g_ret_sts_unexp_error;
917: WHEN process_actual_qty_error THEN
918: NULL;
919: WHEN OTHERS THEN
920: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
927: || ': '
928: || SQLERRM);
929: END IF;
930:
931: x_return_status := fnd_api.g_ret_sts_unexp_error;
932: END open_and_process_actual_qty;
933:
934: /* **********************
935: * open_actual_qty returns following:
1115:
1116: -- if this is an insert, no need to go frther because there are no transactions...
1117: -- return 0 to indicate no transactions and that open is allowed
1118:
1119: /* FPbug#4543872 removed 'p_insert = fnd_api.G_TRUE OR' from IF condition
1120: because even if we are inserting new material line we need to check for other
1121: conditions like lot control, locator control, subinventory availaility etc. anyway
1122: no.of transactions will be zero for new material line that is being inserted
1123: */
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:
1413: -- If the new actual qty is zero we need to delete the transaction
1414: IF (p_material_detail_rec.actual_qty = 0 AND p_trans_id > 0) THEN
1415:
1417: (p_transaction_id => p_trans_id
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: || '.'
1457: ,p_mmli_tbl => l_mmli_tbl
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: || '.'
1488: (p_transaction_id => p_trans_id
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;
1508: (p_mmt_rec => l_mmt_rec
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;
1537: || ': '
1538: || SQLERRM);
1539: END IF;
1540:
1541: x_return_status := fnd_api.g_ret_sts_unexp_error;
1542: END process_actual_qty;
1543:
1544: PROCEDURE construct_trans_row (
1545: p_matl_dtl_rec IN gme_material_details%ROWTYPE
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;
1576:
1577: x_mmti_rec.source_header_id := p_matl_dtl_rec.batch_id;
1578:
1579: /* FPbug#4543872 Begin
1605: ,p_invoke_mode => 'T'
1606: ,x_trans_date => l_trans_date
1607: ,x_return_status => x_return_status );
1608:
1609: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1610: RAISE error_fetch_trans_date;
1611: END IF;
1612: --initializing the transaction date according to default rules
1613: x_mmti_rec.transaction_date := l_trans_date;
1636: ,p_to_um => p_item_rec.secondary_uom_code
1637: ,x_conv_qty => x_mmti_rec.secondary_transaction_quantity
1638: ,x_return_status => x_return_status);
1639:
1640: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1641: l_val_proc := 'get_converted_qty';
1642: RAISE error_construct;
1643: END IF;
1644: END IF;
1737: || ': '
1738: || SQLERRM);
1739: END IF;
1740:
1741: x_return_status := fnd_api.g_ret_sts_unexp_error;
1742: END construct_trans_row;
1743:
1744: PROCEDURE get_converted_qty (
1745: p_org_id IN NUMBER
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
1819: WHEN um_convert_error THEN
1820: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
1821: FND_MESSAGE.SET_TOKEN('PGM_NAME',g_pkg_name||'.'||l_api_name);
1822: fnd_msg_pub.ADD;
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
1831: || l_api_name
1832: || ': '
1833: || SQLERRM);
1834: END IF;
1835: x_return_status := fnd_api.g_ret_sts_unexp_error;
1836: END get_converted_qty;
1837:
1838: PROCEDURE get_item_rec (
1839: p_org_id IN NUMBER
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:
1862: IF p_item_id IS NULL THEN
1863: gme_common_pvt.log_message ('GME_NO_KEYS', 'TABLE_NAME', 'mtl_system_items_b');
1864: RAISE error_get_item;
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
1897: || ': '
1898: || SQLERRM);
1899: END IF;
1900:
1901: x_return_status := fnd_api.g_ret_sts_unexp_error;
1902: END get_item_rec;
1903:
1904: PROCEDURE validate_item_id (
1905: p_org_id IN NUMBER
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;
1925:
1926: get_item_rec (p_org_id => p_org_id
1927: ,p_item_id => p_item_id
1928: ,x_item_rec => x_item_rec
1927: ,p_item_id => p_item_id
1928: ,x_item_rec => x_item_rec
1929: ,x_return_status => x_return_status);
1930:
1931: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1932: RAISE error_get_rec;
1933: END IF;
1934:
1935: -- process_execution_enabled_flag Y/N
1982: WHERE inventory_item_id = p_item_id
1983: AND organization_id = p_org_id;
1984: --Bug#5078853
1985: gme_common_pvt.log_message ('GME_INV_ITEM_INSERT', 'ITEM_NO', l_field);
1986: x_return_status := fnd_api.g_ret_sts_error;
1987:
1988: WHEN OTHERS THEN
1989: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1990:
1996: || ': '
1997: || SQLERRM);
1998: END IF;
1999:
2000: x_return_status := fnd_api.g_ret_sts_unexp_error;
2001: END validate_item_id;
2002:
2003: PROCEDURE validate_revision (
2004: p_revision IN VARCHAR2
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:
2034: IF p_revision IS NULL THEN -- not required even if revision controlled
2035: RETURN;
2036: END IF;
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
2071: || ': '
2072: || SQLERRM);
2073: END IF;
2074:
2075: x_return_status := fnd_api.g_ret_sts_unexp_error;
2076: END validate_revision;
2077:
2078: PROCEDURE validate_line_type (
2079: p_line_type IN NUMBER
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;
2092:
2093: -- check GMD parameter FM$BYPROD_ACTIVE
2094: -- value of 1 means Yes; byproducts are available for insert, update and delete
2095: -- value of 2 means No; byproducts are not available
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
2128: || ': '
2129: || SQLERRM);
2130: END IF;
2131:
2132: x_return_status := fnd_api.g_ret_sts_unexp_error;
2133: END validate_line_type;
2134: --Bug#5129153 Changed the data type of 'p_byproduct_type' to VARCHAR2.
2135: PROCEDURE validate_byproduct_type (
2136: p_byproduct_type IN VARCHAR2
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;
2157:
2158: -- By_product_type of NULL is OK
2159: IF p_byproduct_type IS NOT NULL THEN
2160: OPEN cur_byprod_type (p_byproduct_type);
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
2185: || ': '
2186: || SQLERRM);
2187: END IF;
2188:
2189: x_return_status := fnd_api.g_ret_sts_unexp_error;
2190: END validate_byproduct_type;
2191:
2192: PROCEDURE validate_line_no (
2193: p_line_no IN NUMBER
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:
2219: IF p_line_no <= 0 THEN
2220: gme_common_pvt.log_message ('GME_INVALID_LINE_NUMBER');
2221: RAISE invalid_line_no;
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
2249: || ': '
2250: || SQLERRM);
2251: END IF;
2252:
2253: x_return_status := fnd_api.g_ret_sts_unexp_error;
2254: END validate_line_no;
2255:
2256: PROCEDURE validate_dtl_um (
2257: p_dtl_um IN VARCHAR2
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:
2287: OPEN cur_get_uom_code_date (p_dtl_um);
2288: FETCH cur_get_uom_code_date INTO l_disable_date;
2289: CLOSE cur_get_uom_code_date;
2311: ,p_to_um => p_primary_uom
2312: ,x_conv_qty => l_qty
2313: ,x_return_status => x_return_status);
2314:
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
2322:
2323: EXCEPTION
2324: -- WHEN invalid_dtl_um OR disabled_dtl_um THEN
2325: WHEN disabled_dtl_um THEN
2326: x_return_status := fnd_api.g_ret_sts_error;
2327: WHEN um_convert_error THEN
2328: NULL;
2329: WHEN OTHERS THEN
2330: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2337: || ': '
2338: || SQLERRM);
2339: END IF;
2340:
2341: x_return_status := fnd_api.g_ret_sts_unexp_error;
2342: END validate_dtl_um;
2343:
2344: PROCEDURE validate_plan_qty (
2345: p_plan_qty IN NUMBER
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:
2358: IF p_plan_qty < 0 THEN
2359: gme_common_pvt.log_message ('GME_INVALID_PLAN_QTY');
2360: RAISE val_error;
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
2378: || ': '
2379: || SQLERRM);
2380: END IF;
2381:
2382: x_return_status := fnd_api.g_ret_sts_unexp_error;
2383: END validate_plan_qty;
2384:
2385: PROCEDURE validate_wip_plan_qty (
2386: p_wip_plan_qty IN NUMBER
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:
2399: IF p_wip_plan_qty < 0 THEN
2400: gme_common_pvt.log_message ('GME_INVALID_WIP_PLAN_QTY');
2401: RAISE val_error;
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
2419: || ': '
2420: || SQLERRM);
2421: END IF;
2422:
2423: x_return_status := fnd_api.g_ret_sts_unexp_error;
2424: END validate_wip_plan_qty;
2425:
2426: PROCEDURE validate_actual_qty (
2427: p_actual_qty IN NUMBER
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:
2440: IF p_actual_qty < 0 THEN
2441: gme_common_pvt.log_message ('GME_INVALID_ACTUAL_QTY');
2442: RAISE val_error;
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
2460: || ': '
2461: || SQLERRM);
2462: END IF;
2463:
2464: x_return_status := fnd_api.g_ret_sts_unexp_error;
2465: END validate_actual_qty;
2466:
2467: PROCEDURE validate_release_type (
2468: p_material_detail_rec IN gme_material_details%ROWTYPE
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:
2490: OPEN cur_rel_type (p_release_type);
2491: FETCH cur_rel_type INTO l_exists;
2492: CLOSE cur_rel_type;
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
2514: || ': '
2515: || SQLERRM);
2516: END IF;
2517:
2518: x_return_status := fnd_api.g_ret_sts_unexp_error;
2519: END validate_release_type;
2520:
2521: PROCEDURE validate_scrap_factor (
2522: p_scrap IN NUMBER
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:
2536: IF (p_scrap < 0 OR p_scrap > 1000000) THEN
2537: gme_common_pvt.log_message ('GME_INVALID_SCRAP_FACTOR');
2538: RAISE val_error;
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
2556: || ': '
2557: || SQLERRM);
2558: END IF;
2559:
2560: x_return_status := fnd_api.g_ret_sts_unexp_error;
2561: END validate_scrap_factor;
2562:
2563: PROCEDURE validate_scale_multiple (
2564: p_scale_mult IN NUMBER
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:
2577: IF p_scale_mult <= 0 THEN
2578: gme_common_pvt.log_message ('GME_INVALID_SCALE_MULT');
2579: RAISE val_error;
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
2597: || ': '
2598: || SQLERRM);
2599: END IF;
2600:
2601: x_return_status := fnd_api.g_ret_sts_unexp_error;
2602: END validate_scale_multiple;
2603:
2604: PROCEDURE validate_scale_round_var (
2605: p_scale_var IN NUMBER
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:
2618: IF (p_scale_var < 0 OR p_scale_var > 100) THEN
2619: gme_common_pvt.log_message ('GME_INVALID_SCALE_ROUND_VAR');
2620: RAISE val_error;
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
2638: || ': '
2639: || SQLERRM);
2640: END IF;
2641:
2642: x_return_status := fnd_api.g_ret_sts_unexp_error;
2643: END validate_scale_round_var;
2644:
2645: PROCEDURE validate_rounding_direction (
2646: p_round_dir IN NUMBER
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:
2668: OPEN cur_round_dir (p_round_dir);
2669: FETCH cur_round_dir INTO l_exists;
2670: CLOSE cur_round_dir;
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
2692: || ': '
2693: || SQLERRM);
2694: END IF;
2695:
2696: x_return_status := fnd_api.g_ret_sts_unexp_error;
2697: END validate_rounding_direction;
2698:
2699: PROCEDURE validate_scale_type (
2700: p_scale_type IN NUMBER
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:
2722: OPEN cur_scale_type (p_scale_type);
2723: FETCH cur_scale_type INTO l_exists;
2724: CLOSE cur_scale_type;
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
2746: || ': '
2747: || SQLERRM);
2748: END IF;
2749:
2750: x_return_status := fnd_api.g_ret_sts_unexp_error;
2751: END validate_scale_type;
2752:
2753: --FPBug#4524232 changed parameter to p_material_detail_rec from p_cost_alloc
2754: PROCEDURE 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
2789: l_batch_id := p_material_detail_rec.batch_id;
2790: l_material_detail_id := p_material_detail_rec.material_detail_id;
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;
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: '
2843: || l_api_name
2844: || ': '
2845: || SQLERRM);
2846: END IF;
2847: x_return_status := fnd_api.g_ret_sts_unexp_error;
2848: END validate_cost_alloc;
2849:
2850: PROCEDURE validate_phantom_type (
2851: p_phantom_type IN NUMBER
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:
2873: OPEN cur_phantom_type (p_phantom_type);
2874: FETCH cur_phantom_type INTO l_exists;
2875: CLOSE cur_phantom_type;
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
2897: || ': '
2898: || SQLERRM);
2899: END IF;
2900:
2901: x_return_status := fnd_api.g_ret_sts_unexp_error;
2902: END validate_phantom_type;
2903:
2904: PROCEDURE validate_contr_yield_ind (
2905: p_contr_yield_ind IN VARCHAR2 --FPBug#5040865
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:
2918: IF p_contr_yield_ind NOT IN ('Y', 'N') THEN
2919: gme_common_pvt.log_message ('GME_INVALID_CONTR_YIELD');
2920: RAISE val_error;
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
2938: || ': '
2939: || SQLERRM);
2940: END IF;
2941:
2942: x_return_status := fnd_api.g_ret_sts_unexp_error;
2943: END validate_contr_yield_ind;
2944:
2945: PROCEDURE validate_contr_step_qty_ind (
2946: p_contr_step_qty_ind IN VARCHAR2 --FPBug#5040865
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:
2960: IF p_contr_step_qty_ind NOT IN ('Y', 'N') THEN
2961: gme_common_pvt.log_message ('GME_INVALID_CONTR_STEP');
2962: RAISE val_error;
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
2980: || ': '
2981: || SQLERRM);
2982: END IF;
2983:
2984: x_return_status := fnd_api.g_ret_sts_unexp_error;
2985: END validate_contr_step_qty_ind;
2986:
2987: PROCEDURE validate_subinventory (
2988: p_subinv IN VARCHAR2
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:
3002: IF p_subinv IS NULL THEN
3003: NULL; -- not required
3004: ELSIF gme_common_pvt.check_subinventory
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
3029: || ': '
3030: || SQLERRM);
3031: END IF;
3032:
3033: x_return_status := fnd_api.g_ret_sts_unexp_error;
3034: END validate_subinventory;
3035:
3036: PROCEDURE validate_locator (
3037: p_subinv IN VARCHAR2
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:
3064: IF p_line_type = gme_common_pvt.g_line_type_ing THEN
3065: l_txn_action_id := gme_common_pvt.g_ing_issue_txn_action;
3066: ELSIF p_line_type = gme_common_pvt.g_line_type_prod THEN
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
3111: || ': '
3112: || SQLERRM);
3113: END IF;
3114:
3115: x_return_status := fnd_api.g_ret_sts_unexp_error;
3116: END validate_locator;
3117:
3118: PROCEDURE update_material_line (
3119: p_batch_header_rec IN gme_batch_header%ROWTYPE
3119: p_batch_header_rec IN gme_batch_header%ROWTYPE
3120: ,p_material_detail_rec IN gme_material_details%ROWTYPE
3121: ,p_stored_material_detail_rec IN gme_material_details%ROWTYPE
3122: ,p_batch_step_rec IN gme_batch_steps%ROWTYPE
3123: ,p_scale_phantom IN VARCHAR2 := fnd_api.g_false
3124: ,p_trans_id IN NUMBER
3125: ,x_transacted OUT NOCOPY VARCHAR2
3126: ,x_return_status OUT NOCOPY VARCHAR2
3127: ,x_material_detail_rec OUT NOCOPY gme_material_details%ROWTYPE)
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;
3177:
3178: l_mtl_dtl_rec := p_material_detail_rec;
3179: l_db_mtl_dtl_rec := p_stored_material_detail_rec;
3180:
3184: (p_batch_header_rec => p_batch_header_rec
3185: ,p_material_detail_rec => l_mtl_dtl_rec
3186: ,p_batch_step_rec => p_batch_step_rec
3187: ,p_trans_id => NULL
3188: ,p_insert => FND_API.g_false
3189: ,x_transacted => x_transacted
3190: ,x_return_status => x_return_status);
3191:
3192: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3188: ,p_insert => FND_API.g_false
3189: ,x_transacted => x_transacted
3190: ,x_return_status => x_return_status);
3191:
3192: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3193: l_proc := 'open_and_process_actual_qty';
3194: RAISE error_processing;
3195: END IF;
3196: END IF;
3275: ,p_mtl_dtl_rec => l_mtl_dtl_rec
3276: ,x_mtl_req_date => l_mtl_dtl_rec.material_requirement_date
3277: ,x_return_status => x_return_status);
3278:
3279: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3280: l_proc := 'gme_common_pvt.calc_mtl_req_date';
3281: RAISE error_processing;
3282: END IF;
3283:
3301: p_material_detail_id => l_mtl_dtl_rec.material_detail_id
3302: ,p_material_date => l_mtl_dtl_rec.material_requirement_date
3303: ,x_return_status => x_return_status );
3304:
3305: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3306: l_proc := 'gme_common_pvt.material_date_change';
3307: RAISE error_processing;
3308: END IF;
3309: --Bug#5159393 Susruth D.
3381: l_proc := 'gme_batch_header_dbl.fetch_row';
3382: RAISE error_dbl;
3383: END IF;
3384:
3385: IF p_scale_phantom = FND_API.G_TRUE AND l_factor <> 1 THEN
3386:
3387: gme_scale_batch_pvt.scale_batch
3388: (p_batch_header_rec => l_ph_batch_header_rec
3389: ,p_scale_factor => l_factor
3389: ,p_scale_factor => l_factor
3390: ,p_primaries => 'OUTPUTS'
3391: ,p_qty_type => 1
3392: ,p_validity_rule_id => l_ph_batch_header_rec.recipe_validity_rule_id
3393: ,p_enforce_vldt_check => fnd_api.g_true
3394: ,p_recalc_dates => fnd_api.g_false
3395: ,p_use_workday_cal => fnd_api.g_false
3396: ,p_contiguity_override => fnd_api.g_true
3397: ,x_exception_material_tbl => l_exception_material_tbl
3390: ,p_primaries => 'OUTPUTS'
3391: ,p_qty_type => 1
3392: ,p_validity_rule_id => l_ph_batch_header_rec.recipe_validity_rule_id
3393: ,p_enforce_vldt_check => fnd_api.g_true
3394: ,p_recalc_dates => fnd_api.g_false
3395: ,p_use_workday_cal => fnd_api.g_false
3396: ,p_contiguity_override => fnd_api.g_true
3397: ,x_exception_material_tbl => l_exception_material_tbl
3398: ,x_batch_header_rec => l_batch_header_rec
3391: ,p_qty_type => 1
3392: ,p_validity_rule_id => l_ph_batch_header_rec.recipe_validity_rule_id
3393: ,p_enforce_vldt_check => fnd_api.g_true
3394: ,p_recalc_dates => fnd_api.g_false
3395: ,p_use_workday_cal => fnd_api.g_false
3396: ,p_contiguity_override => fnd_api.g_true
3397: ,x_exception_material_tbl => l_exception_material_tbl
3398: ,x_batch_header_rec => l_batch_header_rec
3399: ,x_return_status => x_return_status);
3392: ,p_validity_rule_id => l_ph_batch_header_rec.recipe_validity_rule_id
3393: ,p_enforce_vldt_check => fnd_api.g_true
3394: ,p_recalc_dates => fnd_api.g_false
3395: ,p_use_workday_cal => fnd_api.g_false
3396: ,p_contiguity_override => fnd_api.g_true
3397: ,x_exception_material_tbl => l_exception_material_tbl
3398: ,x_batch_header_rec => l_batch_header_rec
3399: ,x_return_status => x_return_status);
3400:
3397: ,x_exception_material_tbl => l_exception_material_tbl
3398: ,x_batch_header_rec => l_batch_header_rec
3399: ,x_return_status => x_return_status);
3400:
3401: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3402: l_proc := 'gme_scale_batch_pvt.scale_batch';
3403: RAISE error_processing;
3404: END IF;
3405: END IF; --IF l_factor <> 1
3425: l_ph_batch_step_rec.plan_start_date:=NULL;
3426: gme_reschedule_step_pvt.reschedule_step
3427: (p_batch_step_rec => l_ph_batch_step_rec
3428: ,p_source_step_id_tbl => l_step_tbl
3429: ,p_contiguity_override => fnd_api.g_true
3430: ,p_reschedule_preceding => fnd_api.g_true
3431: ,p_reschedule_succeeding => fnd_api.g_true
3432: ,p_use_workday_cal => fnd_api.g_false
3433: ,x_batch_step_rec => x_batch_step_rec
3426: gme_reschedule_step_pvt.reschedule_step
3427: (p_batch_step_rec => l_ph_batch_step_rec
3428: ,p_source_step_id_tbl => l_step_tbl
3429: ,p_contiguity_override => fnd_api.g_true
3430: ,p_reschedule_preceding => fnd_api.g_true
3431: ,p_reschedule_succeeding => fnd_api.g_true
3432: ,p_use_workday_cal => fnd_api.g_false
3433: ,x_batch_step_rec => x_batch_step_rec
3434: ,x_return_status => x_return_status);
3427: (p_batch_step_rec => l_ph_batch_step_rec
3428: ,p_source_step_id_tbl => l_step_tbl
3429: ,p_contiguity_override => fnd_api.g_true
3430: ,p_reschedule_preceding => fnd_api.g_true
3431: ,p_reschedule_succeeding => fnd_api.g_true
3432: ,p_use_workday_cal => fnd_api.g_false
3433: ,x_batch_step_rec => x_batch_step_rec
3434: ,x_return_status => x_return_status);
3435: ELSE
3428: ,p_source_step_id_tbl => l_step_tbl
3429: ,p_contiguity_override => fnd_api.g_true
3430: ,p_reschedule_preceding => fnd_api.g_true
3431: ,p_reschedule_succeeding => fnd_api.g_true
3432: ,p_use_workday_cal => fnd_api.g_false
3433: ,x_batch_step_rec => x_batch_step_rec
3434: ,x_return_status => x_return_status);
3435: ELSE
3436: l_ph_batch_header_rec.plan_cmplt_date:=l_mtl_dtl_rec.material_requirement_date;
3436: l_ph_batch_header_rec.plan_cmplt_date:=l_mtl_dtl_rec.material_requirement_date;
3437: l_ph_batch_header_rec.plan_start_date:=NULL;
3438: gme_reschedule_batch_pvt.reschedule_batch
3439: (p_batch_header_rec => l_ph_batch_header_rec
3440: ,p_use_workday_cal => fnd_api.g_false
3441: ,p_contiguity_override => fnd_api.g_true
3442: ,x_batch_header_rec => l_phantom_batch_header_rec_out
3443: ,x_return_status => x_return_status);
3444: END IF;
3437: l_ph_batch_header_rec.plan_start_date:=NULL;
3438: gme_reschedule_batch_pvt.reschedule_batch
3439: (p_batch_header_rec => l_ph_batch_header_rec
3440: ,p_use_workday_cal => fnd_api.g_false
3441: ,p_contiguity_override => fnd_api.g_true
3442: ,x_batch_header_rec => l_phantom_batch_header_rec_out
3443: ,x_return_status => x_return_status);
3444: END IF;
3445: END IF; --l_mtl_dtl_rec.material_requirement_date <> l_db_mtl_dtl_rec.material_requirement_date
3479: l_batch_step_rec.plan_cmplt_date:=l_plan_cmplt_date;
3480: gme_reschedule_step_pvt.reschedule_step
3481: (p_batch_step_rec => l_batch_step_rec
3482: ,p_source_step_id_tbl => l_step_tbl
3483: ,p_contiguity_override => fnd_api.g_true
3484: ,p_reschedule_preceding => fnd_api.g_true
3485: ,p_reschedule_succeeding => fnd_api.g_true
3486: ,p_use_workday_cal => fnd_api.g_false
3487: ,x_batch_step_rec => x_batch_step_rec
3480: gme_reschedule_step_pvt.reschedule_step
3481: (p_batch_step_rec => l_batch_step_rec
3482: ,p_source_step_id_tbl => l_step_tbl
3483: ,p_contiguity_override => fnd_api.g_true
3484: ,p_reschedule_preceding => fnd_api.g_true
3485: ,p_reschedule_succeeding => fnd_api.g_true
3486: ,p_use_workday_cal => fnd_api.g_false
3487: ,x_batch_step_rec => x_batch_step_rec
3488: ,x_return_status => x_return_status);
3481: (p_batch_step_rec => l_batch_step_rec
3482: ,p_source_step_id_tbl => l_step_tbl
3483: ,p_contiguity_override => fnd_api.g_true
3484: ,p_reschedule_preceding => fnd_api.g_true
3485: ,p_reschedule_succeeding => fnd_api.g_true
3486: ,p_use_workday_cal => fnd_api.g_false
3487: ,x_batch_step_rec => x_batch_step_rec
3488: ,x_return_status => x_return_status);
3489: ELSE
3482: ,p_source_step_id_tbl => l_step_tbl
3483: ,p_contiguity_override => fnd_api.g_true
3484: ,p_reschedule_preceding => fnd_api.g_true
3485: ,p_reschedule_succeeding => fnd_api.g_true
3486: ,p_use_workday_cal => fnd_api.g_false
3487: ,x_batch_step_rec => x_batch_step_rec
3488: ,x_return_status => x_return_status);
3489: ELSE
3490: l_batch_header_rec:=p_batch_header_rec;
3491: l_batch_header_rec.plan_start_date:=NULL;
3492: l_batch_header_rec.plan_cmplt_date:=l_plan_cmplt_date;
3493: gme_reschedule_batch_pvt.reschedule_batch
3494: (p_batch_header_rec => l_batch_header_rec
3495: ,p_use_workday_cal => fnd_api.g_false
3496: ,p_contiguity_override => fnd_api.g_true
3497: ,x_batch_header_rec => l_phantom_batch_header_rec_out
3498: ,x_return_status => x_return_status);
3499: END IF;
3492: l_batch_header_rec.plan_cmplt_date:=l_plan_cmplt_date;
3493: gme_reschedule_batch_pvt.reschedule_batch
3494: (p_batch_header_rec => l_batch_header_rec
3495: ,p_use_workday_cal => fnd_api.g_false
3496: ,p_contiguity_override => fnd_api.g_true
3497: ,x_batch_header_rec => l_phantom_batch_header_rec_out
3498: ,x_return_status => x_return_status);
3499: END IF;
3500: END IF;--IF l_db_mtl_dtl_rec.phantom_id IS NOT NULL
3521: ,p_new_date => l_mtl_dtl_rec.material_requirement_date
3522: ,p_invis_move_line_id => NULL
3523: ,x_return_status => x_return_status);
3524:
3525: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3526: l_proc := 'gme_move_orders_pvt.update_move_order_lines';
3527: RAISE error_processing;
3528: END IF;
3529: END IF;
3536: ,p_material_detail_id => l_mtl_dtl_rec.material_detail_id
3537: ,p_invis_move_line_id => l_mtl_dtl_rec.move_order_line_id
3538: ,x_return_status => x_return_status);
3539:
3540: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3541: l_proc := 'gme_move_orders_pvt.delete_move_order_lines';
3542: RAISE error_processing;
3543: END IF;
3544:
3555: ,x_material_details_tbl => l_out_material_detail_tbl
3556: ,x_trolin_tbl => l_trolin_tbl
3557: ,x_return_status => x_return_status);
3558:
3559: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3560: l_proc := 'gme_move_orders_pvt.create_move_order_lines';
3561: RAISE error_processing;
3562: END IF;
3563:
3581: ,x_msg_count => l_message_count
3582: ,x_msg_data => l_message_list
3583: ,x_return_status => x_return_status);
3584:
3585: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3586: l_proc := 'gme_reservations_pvt.relieve_prod_supply_resv ';
3587: RAISE error_processing;
3588: END IF;
3589: END IF;
3600: gme_common_pvt.get_who(x_user_ident => x_material_detail_rec.last_updated_by,
3601: x_login_id => x_material_detail_rec.last_update_login,
3602: x_timestamp => x_material_detail_rec.last_update_date,
3603: x_return_status => x_return_status);
3604: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3605: l_proc := 'gme_common_pvt.get_who ';
3606: RAISE error_processing;
3607: END IF;
3608:
3625: (p_batch_row => p_batch_header_rec
3626: ,x_rsc_row_count => l_rsc_count
3627: ,x_return_status => x_return_status);
3628:
3629: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3630: l_proc := 'gme_trans_engine_util.load_rsrc_trans';
3631: RAISE error_processing;
3632: END IF;
3633: gme_update_step_qty_pvt.update_step_qty
3636: ,x_message_list => l_message_list
3637: ,x_return_status => x_return_status
3638: ,x_batch_step_rec => l_batch_step_rec);
3639:
3640: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3641: l_proc := 'gme_update_step_qty_pvt.update_step_qty';
3642: RAISE error_processing;
3643: END IF;
3644:
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;
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);
3680: || ': '
3681: || SQLERRM);
3682: END IF;
3683:
3684: x_return_status := fnd_api.g_ret_sts_unexp_error;
3685: END update_material_line;
3686:
3687: --Bug#5078853 removed p_validate_flexfields parameter
3688: PROCEDURE val_and_pop_material_for_upd (
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;
3723:
3724: -- Following are not supported for update in API and will be ignored...
3725: -- cost
3726: -- alloc_ind
3755: ,p_item_id => p_stored_material_detail_rec.inventory_item_id
3756: ,x_item_rec => l_item_rec
3757: ,x_return_status => x_return_status);
3758:
3759: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3760: RAISE expected_error;
3761: END IF;
3762:
3763: IF p_material_detail_rec.revision IS NOT NULL THEN
3760: RAISE expected_error;
3761: END IF;
3762:
3763: IF p_material_detail_rec.revision IS NOT NULL THEN
3764: IF p_material_detail_rec.revision = fnd_api.g_miss_char THEN
3765: x_material_detail_rec.revision := NULL;
3766: ELSE
3767: x_material_detail_rec.revision := p_material_detail_rec.revision;
3768: validate_revision
3769: (p_revision => x_material_detail_rec.revision
3770: ,p_item_rec => l_item_rec
3771: ,x_return_status => x_return_status);
3772:
3773: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3774: l_val_proc := 'validate_revisioin';
3775: RAISE val_error;
3776: END IF;
3777: END IF;
3778: END IF;
3779:
3780: IF x_material_detail_rec.line_type = gme_common_pvt.g_line_type_byprod THEN
3781: IF p_material_detail_rec.by_product_type IS NOT NULL THEN
3782: IF p_material_detail_rec.by_product_type = fnd_api.g_miss_char THEN
3783: x_material_detail_rec.by_product_type := NULL;
3784: ELSE
3785: x_material_detail_rec.by_product_type :=
3786: p_material_detail_rec.by_product_type;
3789: validate_byproduct_type
3790: (p_byproduct_type => x_material_detail_rec.by_product_type
3791: ,x_return_status => x_return_status);
3792:
3793: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3794: l_val_proc := 'validate_byproduct_type';
3795: RAISE val_error;
3796: END IF;
3797:
3801: END IF;
3802:
3803: IF p_material_detail_rec.release_type IS NOT NULL THEN
3804: IF p_batch_header_rec.batch_status = gme_common_pvt.g_batch_pending THEN
3805: IF p_material_detail_rec.release_type = fnd_api.g_miss_num THEN
3806: l_field := 'release_type';
3807: RAISE error_no_null;
3808: ELSE
3809: x_material_detail_rec.release_type :=
3812: (p_material_detail_rec => x_material_detail_rec
3813: ,p_release_type => x_material_detail_rec.release_type
3814: ,x_return_status => x_return_status);
3815:
3816: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3817: l_val_proc := 'validate_release_type';
3818: RAISE val_error;
3819: END IF;
3820: END IF;
3834: END IF;
3835:
3836: IF p_material_detail_rec.plan_qty IS NOT NULL THEN
3837: IF l_batch_status = gme_common_pvt.g_batch_pending THEN
3838: IF p_material_detail_rec.plan_qty = fnd_api.g_miss_num THEN
3839: l_field := 'plan_qty';
3840: RAISE error_no_null;
3841: ELSE
3842: x_material_detail_rec.plan_qty :=
3844: validate_plan_qty
3845: (p_plan_qty => x_material_detail_rec.plan_qty
3846: ,x_return_status => x_return_status);
3847:
3848: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3849: l_val_proc := 'validate_plan_qty';
3850: RAISE val_error;
3851: END IF;
3852: END IF;
3857: END IF;
3858:
3859: IF p_material_detail_rec.dtl_um IS NOT NULL THEN
3860: IF l_batch_status = gme_common_pvt.g_batch_pending THEN
3861: IF p_material_detail_rec.dtl_um = fnd_api.g_miss_char THEN
3862: l_field := 'dtl_um';
3863: RAISE error_no_null;
3864: ELSE
3865: x_material_detail_rec.dtl_um :=
3871: ,p_item_id => p_material_detail_rec.inventory_item_id
3872: ,p_org_id => p_material_detail_rec.organization_id
3873: ,x_return_status => x_return_status);
3874:
3875: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3876: l_val_proc := 'validate_dtl_um';
3877: RAISE val_error;
3878: END IF;
3879: END IF;
3884: END IF;
3885:
3886: IF p_material_detail_rec.wip_plan_qty IS NOT NULL THEN
3887: IF p_batch_header_rec.batch_status = gme_common_pvt.g_batch_wip THEN
3888: IF p_material_detail_rec.wip_plan_qty = fnd_api.g_miss_num THEN
3889: l_field := 'wip_plan_qty';
3890: RAISE error_no_null;
3891: ELSE
3892: x_material_detail_rec.wip_plan_qty :=
3894: validate_wip_plan_qty
3895: (p_wip_plan_qty => x_material_detail_rec.wip_plan_qty
3896: ,x_return_status => x_return_status);
3897:
3898: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3899: l_val_proc := 'validate_wip_plan_qty';
3900: RAISE val_error;
3901: END IF;
3902: END IF;
3909: --Bug#5078853 modified validation for actual qty
3910: IF p_material_detail_rec.actual_qty IS NOT NULL THEN
3911: IF p_batch_header_rec.batch_status IN (gme_common_pvt.g_batch_wip,
3912: gme_common_pvt.g_batch_completed )THEN
3913: IF p_material_detail_rec.actual_qty = fnd_api.g_miss_num THEN
3914: l_field := 'actual_qty';
3915: RAISE error_no_null;
3916: ELSE
3917: x_material_detail_rec.actual_qty := p_material_detail_rec.actual_qty;
3918: validate_actual_qty
3919: (p_actual_qty => x_material_detail_rec.actual_qty
3920: ,x_return_status => x_return_status);
3921:
3922: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3923: l_val_proc := 'validate_actual_qty';
3924: RAISE val_error;
3925: END IF;
3926: END IF;
3935: IF p_batch_header_rec.batch_status = gme_common_pvt.g_batch_pending AND
3936: p_material_detail_rec.line_type = gme_common_pvt.g_line_type_ing THEN
3937:
3938: IF p_material_detail_rec.scrap_factor IS NOT NULL THEN
3939: IF p_material_detail_rec.scrap_factor = fnd_api.g_miss_num THEN
3940: l_field := 'scrap_factor';
3941: RAISE error_no_null;
3942: ELSE
3943: validate_scrap_factor
3943: validate_scrap_factor
3944: (p_scrap => p_material_detail_rec.scrap_factor
3945: ,x_return_status => x_return_status);
3946:
3947: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3948: l_val_proc := 'validate_scrap_factor';
3949: RAISE val_error;
3950: END IF;
3951: -- scrap is a percent
3967: IF p_material_detail_rec.scale_type IS NOT NULL THEN
3968: IF p_batch_header_rec.batch_status IN ( gme_common_pvt.g_batch_pending,
3969: gme_common_pvt.g_batch_wip ) THEN
3970: -- scale_type can be changed, but not to NULL
3971: IF p_material_detail_rec.scale_type = fnd_api.g_miss_num THEN
3972: l_field := 'scale_type';
3973: RAISE error_no_null;
3974: ELSE
3975: validate_scale_type
3975: validate_scale_type
3976: (p_scale_type => p_material_detail_rec.scale_type
3977: ,x_return_status => x_return_status);
3978:
3979: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3980: l_val_proc := 'validate_scale_type';
3981: RAISE val_error;
3982: END IF;
3983: x_material_detail_rec.scale_type := p_material_detail_rec.scale_type;
3989: validate_scale_multiple
3990: (p_scale_mult => p_material_detail_rec.scale_multiple
3991: ,x_return_status => x_return_status);
3992:
3993: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3994: l_val_proc := 'validate_scale_multiple';
3995: RAISE val_error;
3996: END IF;
3997: x_material_detail_rec.scale_multiple := p_material_detail_rec.scale_multiple;
4000: validate_scale_round_var
4001: (p_scale_var => p_material_detail_rec.scale_rounding_variance
4002: ,x_return_status => x_return_status);
4003:
4004: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4005: l_val_proc := 'validate_scale_round_var';
4006: RAISE val_error;
4007: END IF;
4008:
4013: validate_rounding_direction
4014: (p_round_dir => p_material_detail_rec.rounding_direction
4015: ,x_return_status => x_return_status);
4016:
4017: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4018: l_val_proc := 'validate_rounding_direction';
4019: RAISE val_error;
4020: END IF;
4021: x_material_detail_rec.rounding_direction := p_material_detail_rec.rounding_direction;
4037: validate_cost_alloc
4038: (p_material_detail_rec => p_material_detail_rec
4039: ,x_return_status => x_return_status);
4040:
4041: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4042: l_val_proc := 'validate_cost_alloc';
4043: RAISE val_error;
4044: END IF;
4045: x_material_detail_rec.cost_alloc := p_material_detail_rec.cost_alloc;
4059: validate_phantom_type
4060: (p_phantom_type => x_material_detail_rec.phantom_type
4061: ,x_return_status => x_return_status);
4062:
4063: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4064: l_val_proc := 'validate_phantom_type';
4065: RAISE val_error;
4066: END IF;
4067: --Bug#5078853 changed to x_material_detail_rec
4067: --Bug#5078853 changed to x_material_detail_rec
4068: validate_phantom_type_change
4069: (p_material_detail_rec => x_material_detail_rec
4070: ,x_return_status => x_return_status);
4071: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4072: l_val_proc := 'validate_phantom_type_change';
4073: RAISE val_error;
4074: END IF;
4075: ELSE
4083: validate_contr_yield_ind
4084: (p_contr_yield_ind => x_material_detail_rec.contribute_yield_ind
4085: ,x_return_status => x_return_status);
4086:
4087: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4088: l_val_proc := 'validate_contr_yield_ind';
4089: RAISE val_error;
4090: END IF;
4091: END IF;
4094: validate_contr_step_qty_ind
4095: (p_contr_step_qty_ind => x_material_detail_rec.contribute_step_qty_ind
4096: ,x_return_status => x_return_status);
4097:
4098: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4099: l_val_proc := 'validate_contr_step_qty_ind';
4100: RAISE val_error;
4101: END IF;
4102:
4099: l_val_proc := 'validate_contr_step_qty_ind';
4100: RAISE val_error;
4101: END IF;
4102:
4103: IF p_material_detail_rec.subinventory = fnd_api.g_miss_char THEN
4104: x_material_detail_rec.subinventory := NULL;
4105: x_material_detail_rec.locator_id := NULL;
4106: ELSIF p_material_detail_rec.subinventory IS NOT NULL THEN
4107: x_material_detail_rec.subinventory :=
4110: (p_subinv => x_material_detail_rec.subinventory
4111: ,p_item_rec => l_item_rec
4112: ,x_return_status => x_return_status);
4113:
4114: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4115: l_val_proc := 'validate_subinventory';
4116: RAISE val_error;
4117: END IF;
4118:
4115: l_val_proc := 'validate_subinventory';
4116: RAISE val_error;
4117: END IF;
4118:
4119: IF p_material_detail_rec.locator_id = fnd_api.g_miss_num THEN
4120: x_material_detail_rec.locator_id := NULL;
4121: ELSE
4122: x_material_detail_rec.locator_id :=
4123: p_material_detail_rec.locator_id;
4127: ,p_item_rec => l_item_rec
4128: ,p_line_type => x_material_detail_rec.line_type
4129: ,x_return_status => x_return_status);
4130:
4131: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4132: l_val_proc := 'validate_locator';
4133: RAISE val_error;
4134: END IF;
4135: END IF;
4133: RAISE val_error;
4134: END IF;
4135: END IF;
4136: ELSE -- subinv is NULL not changing it, but maybe changing locator
4137: IF p_material_detail_rec.locator_id = fnd_api.g_miss_num THEN
4138: x_material_detail_rec.locator_id := NULL;
4139: ELSE
4140: IF p_material_detail_rec.locator_id IS NOT NULL THEN
4141: x_material_detail_rec.locator_id :=
4153: ,p_item_rec => l_item_rec
4154: ,p_line_type => x_material_detail_rec.line_type
4155: ,x_return_status => x_return_status);
4156:
4157: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4158: l_val_proc := 'validate_locator';
4159: RAISE val_error;
4160: END IF;
4161: END IF;
4171: ( p_material_detail_rec => l_material_detail_rec
4172: ,x_material_detail_rec => x_material_detail_rec
4173: ,x_return_status => x_return_status);
4174:
4175: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4176: l_val_proc := 'validate_flex_material_detail';
4177: RAISE val_error;
4178: END IF;
4179:
4185: WHEN error_no_null THEN
4186: gme_common_pvt.log_message ('GME_INVALID_VALUE_SPECIFIED'
4187: ,'FIELD_NAME'
4188: ,l_field);
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
4187: ,'FIELD_NAME'
4188: ,l_field);
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;
4204: || ': '
4205: || SQLERRM);
4206: END IF;
4207:
4208: x_return_status := fnd_api.g_ret_sts_unexp_error;
4209: END val_and_pop_material_for_upd;
4210:
4211: --Bug#5078853 Procedure Created
4212: PROCEDURE validate_material_for_del (
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;
4264:
4265: /* validate batch for material deletion */
4266: IF p_batch_header_rec.batch_type <> 0 THEN
4267: gme_common_pvt.log_message('GME_INV_BATCH_TYPE_OPER');
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;
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: '
4348: || l_api_name
4349: || ': '
4350: || SQLERRM);
4351: END IF;
4352: x_return_status := fnd_api.g_ret_sts_unexp_error;
4353: END validate_material_for_del;
4354:
4355: PROCEDURE validate_phantom_type_change (
4356: p_material_detail_rec IN gme_material_details%ROWTYPE
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;
4371:
4372: IF gme_reservations_pvt.pending_reservations_exist
4373: (p_organization_id => p_material_detail_rec.organization_id
4374: ,p_batch_id => p_material_detail_rec.batch_id
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
4402: || l_api_name
4403: || ': '
4404: || SQLERRM);
4405: END IF;
4406: x_return_status := fnd_api.g_ret_sts_unexp_error;
4407: END validate_phantom_type_change;
4408:
4409: PROCEDURE delete_material_line (
4410: p_batch_header_rec IN gme_batch_header%ROWTYPE
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;
4439:
4440: --Bug#5078853 deleting pending lots if any
4441: gme_pending_product_lots_pvt.delete_pending_product_lot
4442: (p_material_detail_id => p_material_detail_rec.material_detail_id
4441: gme_pending_product_lots_pvt.delete_pending_product_lot
4442: (p_material_detail_id => p_material_detail_rec.material_detail_id
4443: ,x_return_status => x_return_status);
4444:
4445: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4446: l_proc := 'gme_pending_product_lots.delete_pending_product_lot';
4447: RAISE error_processing;
4448: END IF;
4449:
4453: ,p_material_detail_id => p_material_detail_rec.material_detail_id
4454: ,p_invis_move_line_id => p_material_detail_rec.move_order_line_id
4455: ,x_return_status => x_return_status);
4456:
4457: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4458: l_proc := 'gme_move_orders_pvt.delete_move_order_lines';
4459: RAISE error_processing;
4460: END IF;
4461:
4471: ,p_batch_id => p_batch_header_rec.batch_id
4472: ,x_mmt_tbl => l_mmt_tbl
4473: ,x_return_status => x_return_status);
4474:
4475: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4476: l_proc := 'gme_transactions_pvt.get_mat_trans';
4477: RAISE error_processing;
4478: END IF;
4479:
4481: gme_transactions_pvt.delete_material_txn (
4482: p_transaction_id => l_mmt_tbl(i).transaction_id
4483: ,p_txns_pair => NULL
4484: ,x_return_status => x_return_status);
4485: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4486: l_proc := 'gme_transactions_pvt.delete_material_txn';
4487: RAISE error_processing;
4488: END IF;
4489: END LOOP;
4488: END IF;
4489: END LOOP;
4490:
4491: IF l_mmt_tbl.COUNT > 0 THEN
4492: x_transacted := fnd_api.G_TRUE;
4493: ELSE
4494: x_transacted := fnd_api.G_FALSE;
4495: END IF;
4496:
4490:
4491: IF l_mmt_tbl.COUNT > 0 THEN
4492: x_transacted := fnd_api.G_TRUE;
4493: ELSE
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
4509: ,x_msg_count => l_message_count
4510: ,x_msg_data => l_message_list
4511: ,x_return_status => x_return_status);
4512:
4513: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4514: l_proc := 'gme_reservations_pvt.delete_prod_prod_supply_resv ';
4515: RAISE error_processing;
4516: END IF;
4517: END IF;
4542: (p_batch_row => p_batch_header_rec
4543: ,x_rsc_row_count => l_rsc_count
4544: ,x_return_status => x_return_status);
4545:
4546: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4547: l_proc := 'gme_trans_engine_util.load_rsrc_trans';
4548: RAISE error_processing;
4549: END IF;
4550:
4554: ,x_message_list => l_message_list
4555: ,x_return_status => x_return_status
4556: ,x_batch_step_rec => l_batch_step_rec);
4557:
4558: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4559: l_proc := 'gme_update_step_qty_pvt.update_step_qty';
4560: RAISE error_processing;
4561: END IF;
4562:
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;
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);
4598: || ': '
4599: || SQLERRM);
4600: END IF;
4601:
4602: x_return_status := fnd_api.g_ret_sts_unexp_error;
4603: END delete_material_line;
4604: END gme_material_detail_pvt;