[Home] [Help]
41: WHEN OTHERS
42: THEN
43: fnd_message.set_name ('WMS', 'WMS_INSTALL_CHK_ERROR');
44: fnd_msg_pub.ADD;
45: RAISE fnd_api.g_exc_unexpected_error;
46: END;
47:
48: SELECT wsm_enabled_flag
49: INTO x_wsm_enabled
61: WHEN OTHERS
62: THEN
63: fnd_message.set_name ('WMS', 'WMS_INSTALL_CHK_ERROR');
64: fnd_msg_pub.ADD;
65: RAISE fnd_api.g_exc_unexpected_error;
66: END;
67:
68: x_return_status := fnd_api.g_ret_sts_success;
69: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
64: fnd_msg_pub.ADD;
65: RAISE fnd_api.g_exc_unexpected_error;
66: END;
67:
68: x_return_status := fnd_api.g_ret_sts_success;
69: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
70: EXCEPTION
71: WHEN NO_DATA_FOUND
72: THEN
71: WHEN NO_DATA_FOUND
72: THEN
73: fnd_message.set_name ('INV', 'INV_INVALID_ORG');
74: fnd_msg_pub.ADD;
75: x_return_status := fnd_api.g_ret_sts_error;
76: fnd_msg_pub.count_and_get (p_count => x_msg_count
77: , p_data => x_msg_data);
78: WHEN fnd_api.g_exc_error
79: THEN
74: fnd_msg_pub.ADD;
75: x_return_status := fnd_api.g_ret_sts_error;
76: fnd_msg_pub.count_and_get (p_count => x_msg_count
77: , p_data => x_msg_data);
78: WHEN fnd_api.g_exc_error
79: THEN
80: x_return_status := fnd_api.g_ret_sts_error;
81: fnd_msg_pub.count_and_get (p_count => x_msg_count
82: , p_data => x_msg_data);
76: fnd_msg_pub.count_and_get (p_count => x_msg_count
77: , p_data => x_msg_data);
78: WHEN fnd_api.g_exc_error
79: THEN
80: x_return_status := fnd_api.g_ret_sts_error;
81: fnd_msg_pub.count_and_get (p_count => x_msg_count
82: , p_data => x_msg_data);
83: WHEN fnd_api.g_exc_unexpected_error
84: THEN
79: THEN
80: x_return_status := fnd_api.g_ret_sts_error;
81: fnd_msg_pub.count_and_get (p_count => x_msg_count
82: , p_data => x_msg_data);
83: WHEN fnd_api.g_exc_unexpected_error
84: THEN
85: x_return_status := fnd_api.g_ret_sts_error;
86: fnd_msg_pub.count_and_get (p_count => x_msg_count
87: , p_data => x_msg_data);
81: fnd_msg_pub.count_and_get (p_count => x_msg_count
82: , p_data => x_msg_data);
83: WHEN fnd_api.g_exc_unexpected_error
84: THEN
85: x_return_status := fnd_api.g_ret_sts_error;
86: fnd_msg_pub.count_and_get (p_count => x_msg_count
87: , p_data => x_msg_data);
88: WHEN OTHERS
89: THEN
86: fnd_msg_pub.count_and_get (p_count => x_msg_count
87: , p_data => x_msg_data);
88: WHEN OTHERS
89: THEN
90: x_return_status := fnd_api.g_ret_sts_unexp_error;
91:
92: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
93: THEN
94: fnd_msg_pub.add_exc_msg (g_pkg_name, 'Get_Org_info');
226: THEN
227: x_validation_status := 'N';
228: fnd_message.set_name ('INV', 'INV_MISSING_REQUIRED_PARAMETER');
229: fnd_msg_pub.ADD;
230: RAISE fnd_api.g_exc_error;
231: END IF;
232:
233: l_start_count := p_st_lot_num_tbl.COUNT;
234: l_result_count := p_rs_lot_num_tbl.COUNT;
255:
256: fnd_message.set_name ('INV', 'INV_TOO_MANY_LOT_SPLIT');
257: fnd_msg_pub.ADD;
258: x_validation_status := 'N';
259: RAISE fnd_api.g_exc_error;
260: END IF;
261:
262: IF (l_result_count < 2)
263: THEN
266: -- means this is not a partial split.
267: fnd_message.set_name ('INV', 'INV_MIN_LOT_SPLIT');
268: fnd_msg_pub.ADD;
269: x_validation_status := 'N';
270: RAISE fnd_api.g_exc_error;
271: END IF;
272: END IF;
273:
274: FOR i IN 1 .. l_result_count
277: THEN
278: fnd_message.set_name ('INV', 'INV_LOT_TRX_DIFF_ORG');
279: fnd_msg_pub.ADD;
280: x_validation_status := 'N';
281: RAISE fnd_api.g_exc_error;
282: END IF;
283:
284: IF (p_rs_item_id_tbl (i) <> p_st_item_id_tbl (1))
285: THEN
285: THEN
286: fnd_message.set_name ('INV', 'INV_LOT_TRX_DIFF_ITEM');
287: fnd_msg_pub.ADD;
288: x_validation_status := 'N';
289: RAISE fnd_api.g_exc_error;
290: END IF;
291:
292: IF (NVL (p_rs_revision_tbl (i), 'NULL') <>
293: NVL (p_rs_revision_tbl (1), 'NULL')
295: THEN
296: fnd_message.set_name ('INV', 'INV_LOT_TRX_DIFF_REVISION');
297: fnd_msg_pub.ADD;
298: x_validation_status := 'N';
299: RAISE fnd_api.g_exc_error;
300: END IF;
301:
302: IF (NVL (TO_CHAR (p_rs_lot_exp_tbl (i), 'DD-MON-RRRR')
303: , TO_CHAR (SYSDATE, 'DD-MON-RRRR')
309: THEN
310: fnd_message.set_name ('INV', 'INV_LOT_TRX_DIFF_LOT_EXP_DATE');
311: fnd_msg_pub.ADD;
312: x_validation_status := 'N';
313: RAISE fnd_api.g_exc_error;
314: END IF;
315: END LOOP;
316:
317: --basically checks if lot split is allowed or not
324: , p_inventory_item_id => p_st_item_id_tbl (1)
325: , p_organization_id => p_st_org_id_tbl (1)
326: );
327:
328: IF (x_return_status = fnd_api.g_ret_sts_error)
329: THEN
330: RAISE fnd_api.g_exc_error;
331: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
332: THEN
326: );
327:
328: IF (x_return_status = fnd_api.g_ret_sts_error)
329: THEN
330: RAISE fnd_api.g_exc_error;
331: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
332: THEN
333: RAISE fnd_api.g_exc_unexpected_error;
334: END IF;
327:
328: IF (x_return_status = fnd_api.g_ret_sts_error)
329: THEN
330: RAISE fnd_api.g_exc_error;
331: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
332: THEN
333: RAISE fnd_api.g_exc_unexpected_error;
334: END IF;
335:
329: THEN
330: RAISE fnd_api.g_exc_error;
331: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
332: THEN
333: RAISE fnd_api.g_exc_unexpected_error;
334: END IF;
335:
336: --for lot split checks for lot uniqueness....if across items then no other item
337: --should have this lot number
346: , p_inventory_item_id => p_rs_item_id_tbl (1)
347: , p_organization_id => p_rs_org_id_tbl (1)
348: );
349:
350: IF (x_return_status = fnd_api.g_ret_sts_error)
351: THEN
352: RAISE fnd_api.g_exc_error;
353: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
354: THEN
348: );
349:
350: IF (x_return_status = fnd_api.g_ret_sts_error)
351: THEN
352: RAISE fnd_api.g_exc_error;
353: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
354: THEN
355: RAISE fnd_api.g_exc_unexpected_error;
356: END IF;
349:
350: IF (x_return_status = fnd_api.g_ret_sts_error)
351: THEN
352: RAISE fnd_api.g_exc_error;
353: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
354: THEN
355: RAISE fnd_api.g_exc_unexpected_error;
356: END IF;
357: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)
351: THEN
352: RAISE fnd_api.g_exc_error;
353: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
354: THEN
355: RAISE fnd_api.g_exc_unexpected_error;
356: END IF;
357: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)
358: THEN
359: IF (l_start_count > 1)
360: THEN
361: fnd_message.set_name ('INV', 'INV_MIN_START_LOT_TRANSLATE');
362: fnd_msg_pub.ADD;
363: x_validation_status := 'N';
364: RAISE fnd_api.g_exc_error;
365: END IF;
366:
367: IF (l_result_count > 1)
368: THEN
368: THEN
369: fnd_message.set_name ('INV', 'INV_MIN_RESULT_LOT_TRANSLATE');
370: fnd_msg_pub.ADD;
371: x_validation_status := 'N';
372: RAISE fnd_api.g_exc_error;
373: END IF;
374:
375: IF (p_rs_org_id_tbl (1) <> p_st_org_id_tbl (1))
376: THEN
376: THEN
377: fnd_message.set_name ('INV', 'INV_LOT_TRX_DIFF_ORG');
378: fnd_msg_pub.ADD;
379: x_validation_status := 'N';
380: RAISE fnd_api.g_exc_error;
381: END IF;
382:
383: /*Changes for OSFM Support for Serialized Lot Items*/
384: IF (p_st_item_id_tbl (1) <> p_rs_item_id_tbl (1))
405: THEN
406: fnd_message.set_name ('INV', 'INV_LOT_SERIAL_CODE_DIFF');
407: fnd_msg_pub.ADD;
408: x_validation_status := 'N';
409: RAISE fnd_api.g_exc_error;
410: END IF;
411: END IF;
412:
413:
433: , 'Validate_lots'
434: );
435: END IF;
436:
437: IF (x_return_status = fnd_api.g_ret_sts_error)
438: THEN
439: RAISE fnd_api.g_exc_error;
440: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
441: THEN
435: END IF;
436:
437: IF (x_return_status = fnd_api.g_ret_sts_error)
438: THEN
439: RAISE fnd_api.g_exc_error;
440: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
441: THEN
442: RAISE fnd_api.g_exc_unexpected_error;
443: END IF;
436:
437: IF (x_return_status = fnd_api.g_ret_sts_error)
438: THEN
439: RAISE fnd_api.g_exc_error;
440: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
441: THEN
442: RAISE fnd_api.g_exc_unexpected_error;
443: END IF;
444:
438: THEN
439: RAISE fnd_api.g_exc_error;
440: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
441: THEN
442: RAISE fnd_api.g_exc_unexpected_error;
443: END IF;
444:
445: validate_start_lot (x_return_status => x_return_status
446: , x_msg_count => x_msg_count
451: , p_inventory_item_id => p_st_item_id_tbl (1)
452: , p_organization_id => p_st_org_id_tbl (1)
453: );
454:
455: IF (x_return_status = fnd_api.g_ret_sts_error)
456: THEN
457: RAISE fnd_api.g_exc_error;
458: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
459: THEN
453: );
454:
455: IF (x_return_status = fnd_api.g_ret_sts_error)
456: THEN
457: RAISE fnd_api.g_exc_error;
458: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
459: THEN
460: RAISE fnd_api.g_exc_unexpected_error;
461: END IF;
454:
455: IF (x_return_status = fnd_api.g_ret_sts_error)
456: THEN
457: RAISE fnd_api.g_exc_error;
458: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
459: THEN
460: RAISE fnd_api.g_exc_unexpected_error;
461: END IF;
462:
456: THEN
457: RAISE fnd_api.g_exc_error;
458: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
459: THEN
460: RAISE fnd_api.g_exc_unexpected_error;
461: END IF;
462:
463: validate_result_lot (x_return_status => x_return_status
464: , x_msg_count => x_msg_count
470: , p_inventory_item_id => p_rs_item_id_tbl (1)
471: , p_organization_id => p_rs_org_id_tbl (1)
472: );
473:
474: IF (x_return_status = fnd_api.g_ret_sts_error)
475: THEN
476: RAISE fnd_api.g_exc_error;
477: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
478: THEN
472: );
473:
474: IF (x_return_status = fnd_api.g_ret_sts_error)
475: THEN
476: RAISE fnd_api.g_exc_error;
477: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
478: THEN
479: RAISE fnd_api.g_exc_unexpected_error;
480: END IF;
473:
474: IF (x_return_status = fnd_api.g_ret_sts_error)
475: THEN
476: RAISE fnd_api.g_exc_error;
477: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
478: THEN
479: RAISE fnd_api.g_exc_unexpected_error;
480: END IF;
481: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
475: THEN
476: RAISE fnd_api.g_exc_error;
477: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
478: THEN
479: RAISE fnd_api.g_exc_unexpected_error;
480: END IF;
481: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
482: THEN
483: IF (l_start_count < 2)
484: THEN
485: fnd_message.set_name ('INV', 'INV_MIN_START_LOT_MERGE');
486: fnd_msg_pub.ADD;
487: x_validation_status := 'N';
488: RAISE fnd_api.g_exc_error;
489: END IF;
490:
491: IF (l_result_count > 1)
492: THEN
492: THEN
493: fnd_message.set_name ('INV', 'INV_MAX_RESULT_LOT_MERGE');
494: fnd_msg_pub.ADD;
495: x_validation_status := 'N';
496: RAISE fnd_api.g_exc_error;
497: END IF;
498:
499: FOR i IN 1 .. l_start_count
500: LOOP
504: THEN
505: fnd_message.set_name ('INV', 'INV_LOT_TRX_DIFF_ORG');
506: fnd_msg_pub.ADD;
507: x_validation_status := 'N';
508: RAISE fnd_api.g_exc_error;
509: END IF;
510: END IF;
511:
512: IF (p_st_org_id_tbl (i) <> p_rs_org_id_tbl (1))
513: THEN
514: fnd_message.set_name ('INV', 'INV_LOT_TRX_DIFF_ORG');
515: fnd_msg_pub.ADD;
516: x_validation_status := 'N';
517: RAISE fnd_api.g_exc_error;
518: END IF;
519:
520: IF (i < l_start_count)
521: THEN
523: THEN
524: fnd_message.set_name ('INV', 'INV_LOT_TRX_DIFF_ITEM');
525: fnd_msg_pub.ADD;
526: x_validation_status := 'N';
527: RAISE fnd_api.g_exc_error;
528: END IF;
529: END IF;
530:
531: IF (p_st_item_id_tbl (i) <> p_rs_item_id_tbl (1))
532: THEN
533: fnd_message.set_name ('INV', 'INV_LOT_TRX_DIFF_ITEM');
534: fnd_msg_pub.ADD;
535: x_validation_status := 'N';
536: RAISE fnd_api.g_exc_error;
537: END IF;
538:
539: FOR j IN 1 .. l_start_count
540: LOOP
549:
550: fnd_message.set_name ('INV', 'INV_DUPLICATE_LOT');
551: fnd_msg_pub.ADD;
552: x_validation_status := 'N';
553: RAISE fnd_api.g_exc_error;
554: END IF;
555: END IF;
556: END LOOP;
557:
564: , p_inventory_item_id => p_st_item_id_tbl (i)
565: , p_organization_id => p_st_org_id_tbl (i)
566: );
567:
568: IF (x_return_status = fnd_api.g_ret_sts_error)
569: THEN
570: RAISE fnd_api.g_exc_error;
571: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
572: THEN
566: );
567:
568: IF (x_return_status = fnd_api.g_ret_sts_error)
569: THEN
570: RAISE fnd_api.g_exc_error;
571: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
572: THEN
573: RAISE fnd_api.g_exc_unexpected_error;
574: END IF;
567:
568: IF (x_return_status = fnd_api.g_ret_sts_error)
569: THEN
570: RAISE fnd_api.g_exc_error;
571: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
572: THEN
573: RAISE fnd_api.g_exc_unexpected_error;
574: END IF;
575: END LOOP;
569: THEN
570: RAISE fnd_api.g_exc_error;
571: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
572: THEN
573: RAISE fnd_api.g_exc_unexpected_error;
574: END IF;
575: END LOOP;
576:
577: validate_result_lot (x_return_status => x_return_status
584: , p_inventory_item_id => p_rs_item_id_tbl (1)
585: , p_organization_id => p_rs_org_id_tbl (1)
586: );
587:
588: IF (x_return_status = fnd_api.g_ret_sts_error)
589: THEN
590: RAISE fnd_api.g_exc_error;
591: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
592: THEN
586: );
587:
588: IF (x_return_status = fnd_api.g_ret_sts_error)
589: THEN
590: RAISE fnd_api.g_exc_error;
591: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
592: THEN
593: RAISE fnd_api.g_exc_unexpected_error;
594: END IF;
587:
588: IF (x_return_status = fnd_api.g_ret_sts_error)
589: THEN
590: RAISE fnd_api.g_exc_error;
591: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
592: THEN
593: RAISE fnd_api.g_exc_unexpected_error;
594: END IF;
595: END IF;
589: THEN
590: RAISE fnd_api.g_exc_error;
591: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
592: THEN
593: RAISE fnd_api.g_exc_unexpected_error;
594: END IF;
595: END IF;
596:
597: x_validation_status := 'Y';
594: END IF;
595: END IF;
596:
597: x_validation_status := 'Y';
598: x_return_status := fnd_api.g_ret_sts_success;
599: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
600: EXCEPTION
601: WHEN fnd_api.g_exc_error
602: THEN
597: x_validation_status := 'Y';
598: x_return_status := fnd_api.g_ret_sts_success;
599: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
600: EXCEPTION
601: WHEN fnd_api.g_exc_error
602: THEN
603: x_validation_status := 'N';
604: x_return_status := fnd_api.g_ret_sts_error;
605: fnd_msg_pub.count_and_get (p_count => x_msg_count
600: EXCEPTION
601: WHEN fnd_api.g_exc_error
602: THEN
603: x_validation_status := 'N';
604: x_return_status := fnd_api.g_ret_sts_error;
605: fnd_msg_pub.count_and_get (p_count => x_msg_count
606: , p_data => x_msg_data);
607: WHEN fnd_api.g_exc_unexpected_error
608: THEN
603: x_validation_status := 'N';
604: x_return_status := fnd_api.g_ret_sts_error;
605: fnd_msg_pub.count_and_get (p_count => x_msg_count
606: , p_data => x_msg_data);
607: WHEN fnd_api.g_exc_unexpected_error
608: THEN
609: x_validation_status := 'N';
610: x_return_status := fnd_api.g_ret_sts_unexp_error;
611: fnd_msg_pub.count_and_get (p_count => x_msg_count
606: , p_data => x_msg_data);
607: WHEN fnd_api.g_exc_unexpected_error
608: THEN
609: x_validation_status := 'N';
610: x_return_status := fnd_api.g_ret_sts_unexp_error;
611: fnd_msg_pub.count_and_get (p_count => x_msg_count
612: , p_data => x_msg_data);
613: WHEN OTHERS
614: THEN
612: , p_data => x_msg_data);
613: WHEN OTHERS
614: THEN
615: x_validation_status := 'N';
616: x_return_status := fnd_api.g_ret_sts_unexp_error;
617:
618: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
619: THEN
620: fnd_msg_pub.add_exc_msg (g_pkg_name, 'Validate_Lots');
688: )
689: THEN
690: fnd_message.set_name ('INV', 'INV_MISSING_REQUIRED_PARAMETER');
691: fnd_msg_pub.ADD;
692: RAISE fnd_api.g_exc_error;
693: END IF;
694:
695: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_split)
696: THEN
737: /* Bug:4405157. Modified the following message to be more specific to
738: Split transaction W.R.T Issue 15 of the bug*/
739: fnd_message.set_name ('INV', 'INV_INVALID_LOT_ITEM_LOT_SPLIT');
740: fnd_msg_pub.ADD;
741: RAISE fnd_api.g_exc_unexpected_error;
742: END;
743: END;
744: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
745: THEN
786: /* Bug:4405157. Modified the following message to be more specific to
787: Merge transaction W.R.T Issue 15 of the bug*/
788: fnd_message.set_name ('INV', 'INV_INVALID_LOT_ITEM_LOT_MERGE');
789: fnd_msg_pub.ADD;
790: RAISE fnd_api.g_exc_unexpected_error;
791: END;
792: END;
793: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)
794: THEN
835: /* Bug:4405157. Modified the following message to be more specific to
836: Translate transaction W.R.T Issue 15 of the bug*/
837: fnd_message.set_name ('INV', 'INV_INVALID_LOT_ITEM_LOT_XLATE');
838: fnd_msg_pub.ADD;
839: RAISE fnd_api.g_exc_unexpected_error;
840: END;
841: END;
842: END IF;
843:
840: END;
841: END;
842: END IF;
843:
844: x_return_status := fnd_api.g_ret_sts_success;
845: x_validation_status := l_validation_status;
846:
847: /*Bug:4405157
848: /*Added new messages specific to lot split,merge and translate transactions
867: ELSE
868: fnd_message.set_name ('INV', 'INV_INVALID_LOT');
869: END IF;
870: fnd_msg_pub.ADD;
871: RAISE fnd_api.g_exc_error;
872: END IF;
873:
874: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
875: EXCEPTION
872: END IF;
873:
874: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
875: EXCEPTION
876: WHEN fnd_api.g_exc_error
877: THEN
878: x_validation_status := 'N';
879: x_return_status := fnd_api.g_ret_sts_error;
880: fnd_msg_pub.count_and_get (p_count => x_msg_count
875: EXCEPTION
876: WHEN fnd_api.g_exc_error
877: THEN
878: x_validation_status := 'N';
879: x_return_status := fnd_api.g_ret_sts_error;
880: fnd_msg_pub.count_and_get (p_count => x_msg_count
881: , p_data => x_msg_data);
882: WHEN fnd_api.g_exc_unexpected_error
883: THEN
878: x_validation_status := 'N';
879: x_return_status := fnd_api.g_ret_sts_error;
880: fnd_msg_pub.count_and_get (p_count => x_msg_count
881: , p_data => x_msg_data);
882: WHEN fnd_api.g_exc_unexpected_error
883: THEN
884: x_validation_status := 'N';
885: x_return_status := fnd_api.g_ret_sts_unexp_error;
886: fnd_msg_pub.count_and_get (p_count => x_msg_count
881: , p_data => x_msg_data);
882: WHEN fnd_api.g_exc_unexpected_error
883: THEN
884: x_validation_status := 'N';
885: x_return_status := fnd_api.g_ret_sts_unexp_error;
886: fnd_msg_pub.count_and_get (p_count => x_msg_count
887: , p_data => x_msg_data);
888: WHEN OTHERS
889: THEN
887: , p_data => x_msg_data);
888: WHEN OTHERS
889: THEN
890: x_validation_status := 'N';
891: x_return_status := fnd_api.g_ret_sts_unexp_error;
892:
893: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
894: THEN
895: fnd_msg_pub.add_exc_msg (g_pkg_name, 'Validate_Start_Lot');
978: END IF;
979:
980: fnd_message.set_name ('INV', 'INV_MISSING_REQUIRED_PARAMETER');
981: fnd_msg_pub.ADD;
982: RAISE fnd_api.g_exc_error;
983: END IF;
984: /* Bug#4363274. This check is not required.
985: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_merge)
986: THEN
1004: THEN
1005: fnd_message.set_name ('INV', 'INV_MERGELOT_USED');
1006: fnd_msg_pub.ADD;
1007: l_validation_status := 'N';
1008: RAISE fnd_api.g_exc_error;
1009: END IF;
1010: END LOOP;
1011: END IF;
1012: */
1021: THEN
1022: fnd_message.set_name ('INV', 'INV_INT_ORG_CODE');
1023: fnd_msg_pub.ADD;
1024: x_validation_status := 'N';
1025: RAISE fnd_api.g_exc_unexpected_error;
1026: END;
1027:
1028: IF (l_debug = 1)
1029: THEN
1050: THEN
1051: l_validation_status := 'N';
1052: fnd_message.set_name ('INV', 'INV_INT_LOTUNIQEXP');
1053: fnd_msg_pub.ADD;
1054: RAISE fnd_api.g_exc_error;
1055: ELSE
1056: l_validation_status := 'Y';
1057: END IF;
1058:
1069: THEN
1070: l_validation_status := 'N';
1071: fnd_message.set_name ('INV', 'INV_INT_LOTUNIQEXP');
1072: fnd_msg_pub.ADD;
1073: RAISE fnd_api.g_exc_error;
1074: ELSE
1075: l_validation_status := 'Y';
1076: END IF;
1077:
1088:
1089: l_validation_status := 'N';
1090: fnd_message.set_name ('INV', 'INV_DUPLICATE_LOT');
1091: fnd_msg_pub.ADD;
1092: RAISE fnd_api.g_exc_error;
1093: END IF;
1094: END IF;
1095: END LOOP;
1096: END LOOP;
1109: THEN
1110: l_validation_status := 'N';
1111: fnd_message.set_name ('INV', 'INV_INT_LOTUNIQEXP');
1112: fnd_msg_pub.ADD;
1113: RAISE fnd_api.g_exc_error;
1114: ELSE
1115: l_validation_status := 'Y';
1116: END IF;
1117:
1128: THEN
1129: l_validation_status := 'N';
1130: fnd_message.set_name ('INV', 'INV_INT_LOTUNIQEXP');
1131: fnd_msg_pub.ADD;
1132: RAISE fnd_api.g_exc_error;
1133: ELSE
1134: l_validation_status := 'Y';
1135: END IF;
1136: END IF;
1150: -- cannot be from different items.
1151: l_validation_status := 'N';
1152: fnd_message.set_name ('INV', 'INV_INT_LOTUNIQEXP');
1153: fnd_msg_pub.ADD;
1154: RAISE fnd_api.g_exc_error;
1155: ELSE
1156: l_validation_status := 'Y';
1157: END IF;
1158:
1169: THEN
1170: l_validation_status := 'N';
1171: fnd_message.set_name ('INV', 'INV_INT_LOTUNIQEXP');
1172: fnd_msg_pub.ADD;
1173: RAISE fnd_api.g_exc_error;
1174: ELSE
1175: l_validation_status := 'Y';
1176: END IF;
1177: END IF;
1193: THEN
1194: l_validation_status := 'N';
1195: fnd_message.set_name ('INV', 'INV_LOT_EXISTS');
1196: fnd_msg_pub.ADD;
1197: RAISE fnd_api.g_exc_error;
1198: ELSE
1199: l_validation_status := 'Y';
1200: END IF;
1201:
1210: THEN
1211: l_validation_status := 'N';
1212: fnd_message.set_name ('INV', 'INV_LOT_EXISTS');
1213: fnd_msg_pub.ADD;
1214: RAISE fnd_api.g_exc_error;
1215: ELSE
1216: l_validation_status := 'Y';
1217: END IF;
1218:
1229: THEN
1230: l_validation_status := 'N';
1231: fnd_message.set_name ('INV', 'INV_LOT_EXISTS');
1232: fnd_msg_pub.ADD;
1233: RAISE fnd_api.g_exc_error;
1234: ELSE
1235: l_validation_status := 'Y';
1236: END IF;
1237:
1248:
1249: l_validation_status := 'N';
1250: fnd_message.set_name ('INV', 'INV_DUPLICATE_LOT');
1251: fnd_msg_pub.ADD;
1252: RAISE fnd_api.g_exc_error;
1253: END IF;
1254: END IF;
1255: END LOOP;
1256: END LOOP;
1279: THEN
1280: l_validation_status := 'N';
1281: fnd_message.set_name ('INV', 'INV_LOT_EXISTS');
1282: fnd_msg_pub.ADD;
1283: RAISE fnd_api.g_exc_error;
1284: ELSE
1285: l_validation_status := 'Y';
1286: END IF;
1287:
1295: THEN
1296: l_validation_status := 'N';
1297: fnd_message.set_name ('INV', 'INV_LOT_EXISTS');
1298: fnd_msg_pub.ADD;
1299: RAISE fnd_api.g_exc_error;
1300: ELSE
1301: l_validation_status := 'Y';
1302: END IF;
1303:
1314: THEN
1315: l_validation_status := 'N';
1316: fnd_message.set_name ('INV', 'INV_LOT_EXISTS');
1317: fnd_msg_pub.ADD;
1318: RAISE fnd_api.g_exc_error;
1319: ELSE
1320: l_validation_status := 'Y';
1321: END IF;
1322: END IF;
1342: if( l_found = false ) then
1343: FND_MESSAGE.SET_NAME('INV', 'INV_DIFF_MERGE_ITEM');
1344: FND_MSG_PUB.ADD;
1345: l_validation_status := 'N';
1346: raise FND_API.G_EXC_ERROR;
1347: end if;
1348: IF (l_debug = 1) THEN
1349: print_Debug('after validating the item', 'validate_result_lot');
1350: END IF;
1381: IF l_lot_count = 0 Then
1382: l_validation_status := 'N';
1383: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_LOT');
1384: FND_MSG_PUB.ADD;
1385: raise FND_API.G_EXC_ERROR;
1386: else
1387: l_validation_status := 'Y';
1388: end if;
1389: IF (l_debug = 1) THEN
1397: end if;
1398: */
1399: END IF;
1400:
1401: x_return_status := fnd_api.g_ret_sts_success;
1402: x_validation_status := l_validation_status;
1403:
1404: IF (x_validation_status <> 'Y')
1405: THEN
1404: IF (x_validation_status <> 'Y')
1405: THEN
1406: fnd_message.set_name ('INV', 'INV_INVALID_LOT');
1407: fnd_msg_pub.ADD;
1408: RAISE fnd_api.g_exc_error;
1409: END IF;
1410:
1411: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1412: EXCEPTION
1409: END IF;
1410:
1411: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1412: EXCEPTION
1413: WHEN fnd_api.g_exc_error
1414: THEN
1415: x_validation_status := l_validation_status;
1416: x_return_status := fnd_api.g_ret_sts_error;
1417: fnd_msg_pub.count_and_get (p_count => x_msg_count
1412: EXCEPTION
1413: WHEN fnd_api.g_exc_error
1414: THEN
1415: x_validation_status := l_validation_status;
1416: x_return_status := fnd_api.g_ret_sts_error;
1417: fnd_msg_pub.count_and_get (p_count => x_msg_count
1418: , p_data => x_msg_data);
1419: WHEN fnd_api.g_exc_unexpected_error
1420: THEN
1415: x_validation_status := l_validation_status;
1416: x_return_status := fnd_api.g_ret_sts_error;
1417: fnd_msg_pub.count_and_get (p_count => x_msg_count
1418: , p_data => x_msg_data);
1419: WHEN fnd_api.g_exc_unexpected_error
1420: THEN
1421: x_validation_status := l_validation_status;
1422: x_return_status := fnd_api.g_ret_sts_unexp_error;
1423: fnd_msg_pub.count_and_get (p_count => x_msg_count
1418: , p_data => x_msg_data);
1419: WHEN fnd_api.g_exc_unexpected_error
1420: THEN
1421: x_validation_status := l_validation_status;
1422: x_return_status := fnd_api.g_ret_sts_unexp_error;
1423: fnd_msg_pub.count_and_get (p_count => x_msg_count
1424: , p_data => x_msg_data);
1425: WHEN OTHERS
1426: THEN
1424: , p_data => x_msg_data);
1425: WHEN OTHERS
1426: THEN
1427: x_validation_status := l_validation_status;
1428: x_return_status := fnd_api.g_ret_sts_unexp_error;
1429:
1430: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1431: THEN
1432: fnd_msg_pub.add_exc_msg (g_pkg_name
1496: THEN
1497: fnd_message.set_name ('INV', 'INV_MISSING_REQUIRED_PARAMETER');
1498: fnd_msg_pub.ADD;
1499: x_validation_status := 'N';
1500: RAISE fnd_api.g_exc_unexpected_error;
1501: END IF;
1502:
1503: IF (p_start_lot_number = p_result_lot_number)
1504: THEN
1516: fnd_message.set_token ('ENTITY'
1517: , fnd_message.get_string ('INV', 'LOT_NUMBER')
1518: );
1519: fnd_msg_pub.ADD;
1520: RAISE fnd_api.g_exc_error;
1521: ELSE
1522: x_validation_status := 'Y';
1523: END IF;
1524: ELSE
1528: x_validation_status := 'N';
1529: FND_MESSAGE.SET_NAME('INV', 'INV_ALREADY_EXISTS');
1530: FND_MESSAGE.SET_TOKEN('ENTITY', FND_MESSAGE.get_String('INV', 'LOT_NUMBER'));
1531: FND_MSG_PUB.ADD;
1532: raise FND_API.G_EXC_ERROR;
1533: end if;*/
1534: x_validation_status := 'Y';
1535: END IF;
1536:
1533: end if;*/
1534: x_validation_status := 'Y';
1535: END IF;
1536:
1537: x_return_status := fnd_api.g_ret_sts_success;
1538: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1539: EXCEPTION
1540: WHEN fnd_api.g_exc_error
1541: THEN
1536:
1537: x_return_status := fnd_api.g_ret_sts_success;
1538: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1539: EXCEPTION
1540: WHEN fnd_api.g_exc_error
1541: THEN
1542: x_return_status := fnd_api.g_ret_sts_error;
1543: fnd_msg_pub.count_and_get (p_count => x_msg_count
1544: , p_data => x_msg_data);
1538: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1539: EXCEPTION
1540: WHEN fnd_api.g_exc_error
1541: THEN
1542: x_return_status := fnd_api.g_ret_sts_error;
1543: fnd_msg_pub.count_and_get (p_count => x_msg_count
1544: , p_data => x_msg_data);
1545: WHEN fnd_api.g_exc_unexpected_error
1546: THEN
1541: THEN
1542: x_return_status := fnd_api.g_ret_sts_error;
1543: fnd_msg_pub.count_and_get (p_count => x_msg_count
1544: , p_data => x_msg_data);
1545: WHEN fnd_api.g_exc_unexpected_error
1546: THEN
1547: x_return_status := fnd_api.g_ret_sts_unexp_error;
1548: fnd_msg_pub.count_and_get (p_count => x_msg_count
1549: , p_data => x_msg_data);
1543: fnd_msg_pub.count_and_get (p_count => x_msg_count
1544: , p_data => x_msg_data);
1545: WHEN fnd_api.g_exc_unexpected_error
1546: THEN
1547: x_return_status := fnd_api.g_ret_sts_unexp_error;
1548: fnd_msg_pub.count_and_get (p_count => x_msg_count
1549: , p_data => x_msg_data);
1550: WHEN OTHERS
1551: THEN
1548: fnd_msg_pub.count_and_get (p_count => x_msg_count
1549: , p_data => x_msg_data);
1550: WHEN OTHERS
1551: THEN
1552: x_return_status := fnd_api.g_ret_sts_unexp_error;
1553:
1554: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1555: THEN
1556: fnd_msg_pub.add_exc_msg (g_pkg_name, 'Validate_Lot_Translate');
1588: l_validation_status VARCHAR2(1);
1589: l_debug NUMBER;
1590: BEGIN
1591: l_debug := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
1592: x_return_status := fnd_api.g_ret_sts_success;
1593: l_validation_status := 'Y';
1594:
1595: FOR i IN 1..p_st_lpn_id_tbl.COUNT LOOP
1596: IF(p_st_lpn_id_tbl(i) IS NOT NULL) THEN
1601: WHERE lpn_id = p_st_lpn_id_tbl(i);
1602: EXCEPTION
1603: WHEN OTHERS THEN
1604: l_validation_status := 'N';
1605: RAISE fnd_api.g_exc_unexpected_error;
1606: END;
1607: IF(l_lpn_context <> 1) --does not resides in inventory
1608: THEN
1609: fnd_message.set_name('INV', 'INV_INVALID_LPN_CONTEXT');
1611: IF (l_debug = 1) THEN
1612: print_debug('validate_lpn_info: Invalid LPN Context for FROM LPN' , 'validate_lpn_info');
1613: END IF;
1614: l_validation_status := 'N';
1615: RAISE fnd_api.g_exc_error;
1616: END IF;
1617: END IF;
1618: END LOOP;
1619:
1632: WHERE lpn_id = p_rs_lpn_id_tbl(i);
1633: EXCEPTION
1634: WHEN OTHERS THEN
1635: l_validation_status := 'N';
1636: RAISE fnd_api.g_exc_unexpected_error;
1637: END;
1638: IF(l_lpn_context NOT IN (1,5)) --does not 'resides in inventory' and not 'defined but not used'
1639: THEN
1640: fnd_message.set_name('INV', 'INV_INVALID_LPN_CONTEXT');
1642: IF (l_debug = 1) THEN
1643: print_debug('validate_lpn_info: Invalid LPN Context for TO LPN', 'validate_lpn_info');
1644: END IF;
1645: l_validation_status := 'N';
1646: RAISE fnd_api.g_exc_error;
1647: ELSIF(l_lpn_context = 1) THEN
1648: IF ( (l_org_id <> p_st_org_id_tbl(1) )
1649: OR
1650: (NVL(l_sub_code, '@#$%') <> p_rs_sub_code_tbl(i))
1656: IF (l_debug = 1) THEN
1657: print_debug('validate_lpn_info: Org/Sub/Loc of LPN does not match', 'validate_lpn_info');
1658: END IF;
1659: l_validation_status := 'N';
1660: RAISE fnd_api.g_exc_error;
1661: END IF;
1662: END IF;
1663: END IF;
1664: END LOOP;
1663: END IF;
1664: END LOOP;
1665:
1666: x_validation_status := 'Y';
1667: x_return_status := fnd_api.g_ret_sts_success;
1668: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1669: EXCEPTION
1670: WHEN fnd_api.g_exc_error
1671: THEN
1666: x_validation_status := 'Y';
1667: x_return_status := fnd_api.g_ret_sts_success;
1668: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1669: EXCEPTION
1670: WHEN fnd_api.g_exc_error
1671: THEN
1672: x_validation_status := l_validation_status;
1673: x_return_status := fnd_api.g_ret_sts_error;
1674: fnd_msg_pub.count_and_get (p_count => x_msg_count
1669: EXCEPTION
1670: WHEN fnd_api.g_exc_error
1671: THEN
1672: x_validation_status := l_validation_status;
1673: x_return_status := fnd_api.g_ret_sts_error;
1674: fnd_msg_pub.count_and_get (p_count => x_msg_count
1675: , p_data => x_msg_data);
1676: WHEN fnd_api.g_exc_unexpected_error
1677: THEN
1672: x_validation_status := l_validation_status;
1673: x_return_status := fnd_api.g_ret_sts_error;
1674: fnd_msg_pub.count_and_get (p_count => x_msg_count
1675: , p_data => x_msg_data);
1676: WHEN fnd_api.g_exc_unexpected_error
1677: THEN
1678: x_validation_status := l_validation_status;
1679: x_return_status := fnd_api.g_ret_sts_unexp_error;
1680: fnd_msg_pub.count_and_get (p_count => x_msg_count
1675: , p_data => x_msg_data);
1676: WHEN fnd_api.g_exc_unexpected_error
1677: THEN
1678: x_validation_status := l_validation_status;
1679: x_return_status := fnd_api.g_ret_sts_unexp_error;
1680: fnd_msg_pub.count_and_get (p_count => x_msg_count
1681: , p_data => x_msg_data);
1682: WHEN OTHERS
1683: THEN
1681: , p_data => x_msg_data);
1682: WHEN OTHERS
1683: THEN
1684: x_validation_status := 'E';
1685: x_return_status := fnd_api.g_ret_sts_unexp_error;
1686:
1687: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1688: THEN
1689: fnd_msg_pub.add_exc_msg (g_pkg_name, 'Validate_Lpn_Info');
1769: THEN
1770: fnd_message.set_name ('INV', 'INV_MISSING_REQUIRED_PARAMETER');
1771: fnd_msg_pub.ADD;
1772: x_validation_status := 'N';
1773: RAISE fnd_api.g_exc_error;
1774: END IF;
1775:
1776: IF (l_debug = 1)
1777: THEN
1835: , x_serial_status_enabled => l_serial_status_enabled
1836: , x_default_serial_status_id => l_default_serial_status_id
1837: );
1838:
1839: IF (x_return_status <> fnd_api.g_ret_sts_success)
1840: THEN
1841: x_validation_status := 'N';
1842: RAISE fnd_api.g_exc_unexpected_error;
1843: END IF;
1838:
1839: IF (x_return_status <> fnd_api.g_ret_sts_success)
1840: THEN
1841: x_validation_status := 'N';
1842: RAISE fnd_api.g_exc_unexpected_error;
1843: END IF;
1844:
1845: IF (l_status_id IS NULL)
1846: THEN
1868: );
1869: END IF;
1870:
1871: x_validation_status := l_validation_status;
1872: x_return_status := fnd_api.g_ret_sts_success;
1873: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1874: EXCEPTION
1875: WHEN fnd_api.g_exc_error
1876: THEN
1871: x_validation_status := l_validation_status;
1872: x_return_status := fnd_api.g_ret_sts_success;
1873: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1874: EXCEPTION
1875: WHEN fnd_api.g_exc_error
1876: THEN
1877: x_return_status := fnd_api.g_ret_sts_error;
1878: fnd_msg_pub.count_and_get (p_count => x_msg_count
1879: , p_data => x_msg_data);
1873: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1874: EXCEPTION
1875: WHEN fnd_api.g_exc_error
1876: THEN
1877: x_return_status := fnd_api.g_ret_sts_error;
1878: fnd_msg_pub.count_and_get (p_count => x_msg_count
1879: , p_data => x_msg_data);
1880: WHEN fnd_api.g_exc_unexpected_error
1881: THEN
1876: THEN
1877: x_return_status := fnd_api.g_ret_sts_error;
1878: fnd_msg_pub.count_and_get (p_count => x_msg_count
1879: , p_data => x_msg_data);
1880: WHEN fnd_api.g_exc_unexpected_error
1881: THEN
1882: x_return_status := fnd_api.g_ret_sts_unexp_error;
1883: fnd_msg_pub.count_and_get (p_count => x_msg_count
1884: , p_data => x_msg_data);
1878: fnd_msg_pub.count_and_get (p_count => x_msg_count
1879: , p_data => x_msg_data);
1880: WHEN fnd_api.g_exc_unexpected_error
1881: THEN
1882: x_return_status := fnd_api.g_ret_sts_unexp_error;
1883: fnd_msg_pub.count_and_get (p_count => x_msg_count
1884: , p_data => x_msg_data);
1885: WHEN OTHERS
1886: THEN
1883: fnd_msg_pub.count_and_get (p_count => x_msg_count
1884: , p_data => x_msg_data);
1885: WHEN OTHERS
1886: THEN
1887: x_return_status := fnd_api.g_ret_sts_unexp_error;
1888:
1889: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1890: THEN
1891: fnd_msg_pub.add_exc_msg (g_pkg_name, 'Validate_Material_Status');
1933: THEN
1934: fnd_message.set_name ('INV', 'INV_MISSING_REQUIRED_PARAMETER');
1935: fnd_msg_pub.ADD;
1936: x_validation_status := 'N';
1937: RAISE fnd_api.g_exc_error;
1938: END IF;
1939:
1940: IF (l_debug = 1)
1941: THEN
2013: , x_serial_status_enabled => l_serial_status_enabled
2014: , x_default_serial_status_id => l_default_serial_status_id
2015: );
2016:
2017: IF (x_return_status <> fnd_api.g_ret_sts_success)
2018: THEN
2019: IF (l_debug = 1)
2020: THEN
2021: print_debug (' get_lot_serial_status_control returned with error'
2023: );
2024: END IF;
2025:
2026: x_validation_status := 'N';
2027: RAISE fnd_api.g_exc_unexpected_error;
2028: END IF;
2029:
2030: IF (l_status_id IS NULL)
2031: THEN
2067: );
2068: END IF;
2069:
2070: x_validation_status := l_validation_status;
2071: RAISE fnd_api.g_exc_error;
2072: END IF;
2073: END IF;
2074:
2075: x_validation_status := l_validation_status;
2072: END IF;
2073: END IF;
2074:
2075: x_validation_status := l_validation_status;
2076: x_return_status := fnd_api.g_ret_sts_success;
2077: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2078: EXCEPTION
2079: WHEN fnd_api.g_exc_error
2080: THEN
2075: x_validation_status := l_validation_status;
2076: x_return_status := fnd_api.g_ret_sts_success;
2077: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2078: EXCEPTION
2079: WHEN fnd_api.g_exc_error
2080: THEN
2081: x_return_status := fnd_api.g_ret_sts_error;
2082: fnd_msg_pub.count_and_get (p_count => x_msg_count
2083: , p_data => x_msg_data);
2077: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2078: EXCEPTION
2079: WHEN fnd_api.g_exc_error
2080: THEN
2081: x_return_status := fnd_api.g_ret_sts_error;
2082: fnd_msg_pub.count_and_get (p_count => x_msg_count
2083: , p_data => x_msg_data);
2084: WHEN fnd_api.g_exc_unexpected_error
2085: THEN
2080: THEN
2081: x_return_status := fnd_api.g_ret_sts_error;
2082: fnd_msg_pub.count_and_get (p_count => x_msg_count
2083: , p_data => x_msg_data);
2084: WHEN fnd_api.g_exc_unexpected_error
2085: THEN
2086: x_return_status := fnd_api.g_ret_sts_unexp_error;
2087: fnd_msg_pub.count_and_get (p_count => x_msg_count
2088: , p_data => x_msg_data);
2082: fnd_msg_pub.count_and_get (p_count => x_msg_count
2083: , p_data => x_msg_data);
2084: WHEN fnd_api.g_exc_unexpected_error
2085: THEN
2086: x_return_status := fnd_api.g_ret_sts_unexp_error;
2087: fnd_msg_pub.count_and_get (p_count => x_msg_count
2088: , p_data => x_msg_data);
2089: WHEN OTHERS
2090: THEN
2087: fnd_msg_pub.count_and_get (p_count => x_msg_count
2088: , p_data => x_msg_data);
2089: WHEN OTHERS
2090: THEN
2091: x_return_status := fnd_api.g_ret_sts_unexp_error;
2092:
2093: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
2094: THEN
2095: fnd_msg_pub.add_exc_msg (g_pkg_name, 'Validate_Serial_Status');
2141: END;
2142:
2143: /*********************************************************************************************
2144: * Pseudo-codes: *
2145: * x_return_status := FND_API.G_RET_STS_SUCCESS;
2146: * FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2147: *
2148: * call INV_LOT_SEL_ATTR.is_enabled to see if the lot attributes is enabled for this
2149: * item/org/category combination
2312: THEN
2313: print_debug ('Validate Attributes', 'Validate_Attributes');
2314: END IF;
2315:
2316: x_return_status := fnd_api.g_ret_sts_success;
2317: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2318:
2319: IF (l_debug = 1)
2320: THEN
2482: IF (l_rs_lot_attr_category IS NULL AND l_count > 0) THEN
2483: print_debug('Resultant lot category is null', 'Validate_Attributes');
2484: fnd_message.set_name('INV', 'INV_VALID_CAT');
2485: fnd_msg_pub.add;
2486: raise FND_API.G_EXC_ERROR;
2487: end if;
2488:
2489: ******/
2490: FOR i IN 1 .. p_parent_lot_attr_tbl.COUNT
2513: , 'Validate_Attributes'
2514: );
2515: fnd_message.set_name ('INV', 'INV_VALID_CAT');
2516: fnd_msg_pub.ADD;
2517: RAISE fnd_api.g_exc_error;
2518: END IF;
2519:
2520: -- parent lot does not have attributes.
2521: -- use default lot attributes.
2539: , p_lot_serial_number => p_lot_number
2540: , p_attributes => g_lot_attributes_tbl
2541: );
2542:
2543: IF (l_return_status <> fnd_api.g_ret_sts_success)
2544: THEN
2545: x_validation_status := 'N';
2546: x_return_status := l_return_status;
2547: RAISE fnd_api.g_exc_unexpected_error;
2543: IF (l_return_status <> fnd_api.g_ret_sts_success)
2544: THEN
2545: x_validation_status := 'N';
2546: x_return_status := l_return_status;
2547: RAISE fnd_api.g_exc_unexpected_error;
2548: END IF;
2549:
2550: IF (l_debug = 1)
2551: THEN
2668: );
2669: END IF;
2670:
2671: x_validation_status := 'Y';
2672: x_return_status := fnd_api.g_ret_sts_success;
2673: x_msg_count := 0;
2674: x_msg_data := NULL;
2675: --x_lot_attr_tbl := p_result_lot_attr_tbl;
2676: RETURN;
2892: print_debug ('l_status is false', 'Validate_Attributes');
2893: END IF;
2894:
2895: l_validation_status := 'N';
2896: x_return_status := fnd_api.g_ret_sts_error;
2897: x_msg_data := fnd_flex_descval.error_message;
2898: fnd_message.set_name ('INV', 'GENERIC');
2899: fnd_message.set_token ('MSGBODY', x_msg_data);
2900: fnd_msg_pub.ADD;
2898: fnd_message.set_name ('INV', 'GENERIC');
2899: fnd_message.set_token ('MSGBODY', x_msg_data);
2900: fnd_msg_pub.ADD;
2901: x_msg_count := NVL (x_msg_count, 0) + 1;
2902: RAISE fnd_api.g_exc_error;
2903: END IF;
2904: ELSE
2905: -- no context found;
2906: l_validation_status := 'Y';
2903: END IF;
2904: ELSE
2905: -- no context found;
2906: l_validation_status := 'Y';
2907: x_return_status := fnd_api.g_ret_sts_success;
2908: fnd_msg_pub.count_and_get (p_count => x_msg_count
2909: , p_data => x_msg_data);
2910: END IF; -- if l_context_value is not null
2911:
2911:
2912: x_lot_attr_tbl := g_lot_attributes_tbl;
2913: x_validation_status := l_validation_status;
2914: EXCEPTION
2915: WHEN fnd_api.g_exc_error
2916: THEN
2917: x_validation_status := l_validation_status;
2918: x_return_status := fnd_api.g_ret_sts_error;
2919: fnd_msg_pub.count_and_get (p_count => x_msg_count
2914: EXCEPTION
2915: WHEN fnd_api.g_exc_error
2916: THEN
2917: x_validation_status := l_validation_status;
2918: x_return_status := fnd_api.g_ret_sts_error;
2919: fnd_msg_pub.count_and_get (p_count => x_msg_count
2920: , p_data => x_msg_data);
2921: WHEN fnd_api.g_exc_unexpected_error
2922: THEN
2917: x_validation_status := l_validation_status;
2918: x_return_status := fnd_api.g_ret_sts_error;
2919: fnd_msg_pub.count_and_get (p_count => x_msg_count
2920: , p_data => x_msg_data);
2921: WHEN fnd_api.g_exc_unexpected_error
2922: THEN
2923: x_validation_status := l_validation_status;
2924: x_return_status := fnd_api.g_ret_sts_unexp_error;
2925: fnd_msg_pub.count_and_get (p_count => x_msg_count
2920: , p_data => x_msg_data);
2921: WHEN fnd_api.g_exc_unexpected_error
2922: THEN
2923: x_validation_status := l_validation_status;
2924: x_return_status := fnd_api.g_ret_sts_unexp_error;
2925: fnd_msg_pub.count_and_get (p_count => x_msg_count
2926: , p_data => x_msg_data);
2927: WHEN OTHERS
2928: THEN
2926: , p_data => x_msg_data);
2927: WHEN OTHERS
2928: THEN
2929: x_validation_status := l_validation_status;
2930: x_return_status := fnd_api.g_ret_sts_unexp_error;
2931:
2932: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
2933: THEN
2934: fnd_msg_pub.add_exc_msg (g_pkg_name, 'Validate_Attributes');
3046: );
3047: END IF;
3048:
3049: l_validation_status := 'Y';
3050: x_return_status := fnd_api.g_ret_sts_success;
3051: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3052: l_enabled_attributes :=
3053: inv_lot_sel_attr.is_enabled (p_flex_name => l_attributes_name
3054: , p_organization_id => p_organization_id
3142: EXCEPTION
3143: WHEN OTHERS
3144: THEN
3145: l_validation_status := 'N';
3146: RAISE fnd_api.g_exc_unexpected_error;
3147: END;
3148:
3149: IF (x_return_status <> fnd_api.g_ret_sts_success)
3150: THEN
3145: l_validation_status := 'N';
3146: RAISE fnd_api.g_exc_unexpected_error;
3147: END;
3148:
3149: IF (x_return_status <> fnd_api.g_ret_sts_success)
3150: THEN
3151: l_validation_status := 'N';
3152: RAISE fnd_api.g_exc_unexpected_error;
3153: END IF;
3148:
3149: IF (x_return_status <> fnd_api.g_ret_sts_success)
3150: THEN
3151: l_validation_status := 'N';
3152: RAISE fnd_api.g_exc_unexpected_error;
3153: END IF;
3154:
3155: IF (l_attributes_default_count > 0)
3156: THEN
3268: );
3269: END IF;
3270:
3271: x_validation_status := 'Y';
3272: x_return_status := fnd_api.g_ret_sts_success;
3273: x_msg_count := 0;
3274: x_msg_data := NULL;
3275: x_ser_attr_tbl := g_lot_ser_attributes_tbl;
3276: RETURN;
3519: print_debug ('l_status is false', 'validate_serial_attributes');
3520: END IF;
3521:
3522: l_validation_status := 'N';
3523: x_return_status := fnd_api.g_ret_sts_error;
3524: x_msg_data := fnd_flex_descval.error_message;
3525: fnd_message.set_name ('INV', 'GENERIC');
3526: fnd_message.set_token ('MSGBODY', x_msg_data);
3527: fnd_msg_pub.ADD;
3525: fnd_message.set_name ('INV', 'GENERIC');
3526: fnd_message.set_token ('MSGBODY', x_msg_data);
3527: fnd_msg_pub.ADD;
3528: x_msg_count := NVL (x_msg_count, 0) + 1;
3529: RAISE fnd_api.g_exc_error;
3530: END IF;
3531: ELSE
3532: -- no context found;
3533: l_validation_status := 'Y';
3530: END IF;
3531: ELSE
3532: -- no context found;
3533: l_validation_status := 'Y';
3534: x_return_status := fnd_api.g_ret_sts_success;
3535: fnd_msg_pub.count_and_get (p_count => x_msg_count
3536: , p_data => x_msg_data);
3537: END IF; -- if l_context_value is not null
3538:
3537: END IF; -- if l_context_value is not null
3538:
3539: x_ser_attr_tbl := g_lot_ser_attributes_tbl;
3540: x_validation_status := 'Y';
3541: x_return_status := fnd_api.g_ret_sts_success;
3542: EXCEPTION
3543: WHEN fnd_api.g_exc_error
3544: THEN
3545: x_validation_status := l_validation_status;
3539: x_ser_attr_tbl := g_lot_ser_attributes_tbl;
3540: x_validation_status := 'Y';
3541: x_return_status := fnd_api.g_ret_sts_success;
3542: EXCEPTION
3543: WHEN fnd_api.g_exc_error
3544: THEN
3545: x_validation_status := l_validation_status;
3546: x_return_status := fnd_api.g_ret_sts_error;
3547: fnd_msg_pub.count_and_get (p_count => x_msg_count
3542: EXCEPTION
3543: WHEN fnd_api.g_exc_error
3544: THEN
3545: x_validation_status := l_validation_status;
3546: x_return_status := fnd_api.g_ret_sts_error;
3547: fnd_msg_pub.count_and_get (p_count => x_msg_count
3548: , p_data => x_msg_data);
3549: WHEN fnd_api.g_exc_unexpected_error
3550: THEN
3545: x_validation_status := l_validation_status;
3546: x_return_status := fnd_api.g_ret_sts_error;
3547: fnd_msg_pub.count_and_get (p_count => x_msg_count
3548: , p_data => x_msg_data);
3549: WHEN fnd_api.g_exc_unexpected_error
3550: THEN
3551: x_validation_status := l_validation_status;
3552: x_return_status := fnd_api.g_ret_sts_unexp_error;
3553: fnd_msg_pub.count_and_get (p_count => x_msg_count
3548: , p_data => x_msg_data);
3549: WHEN fnd_api.g_exc_unexpected_error
3550: THEN
3551: x_validation_status := l_validation_status;
3552: x_return_status := fnd_api.g_ret_sts_unexp_error;
3553: fnd_msg_pub.count_and_get (p_count => x_msg_count
3554: , p_data => x_msg_data);
3555: WHEN OTHERS
3556: THEN
3554: , p_data => x_msg_data);
3555: WHEN OTHERS
3556: THEN
3557: x_validation_status := 'E';
3558: x_return_status := fnd_api.g_ret_sts_unexp_error;
3559:
3560: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3561: THEN
3562: fnd_msg_pub.add_exc_msg (g_pkg_name, 'validate_serial_attributes');
3686: THEN
3687: print_debug ('in validate cost group', 'Validate_Cost_Group');
3688: END IF;
3689:
3690: x_return_status := fnd_api.g_ret_sts_success;
3691: l_start_count := p_st_lot_num_tbl.COUNT;
3692: l_result_count := p_rs_lot_num_tbl.COUNT;
3693:
3694: IF (l_debug = 1)
3763: , x_cost_group_id => v_cost_group_id
3764: , x_return_status => l_return_status
3765: );
3766:
3767: IF (l_return_status <> fnd_api.g_ret_sts_success)
3768: THEN
3769: IF (l_debug = 1)
3770: THEN
3771: print_debug ('error from inv_cost_group_update.proc_get_costgroup'
3775:
3776: fnd_message.set_name ('INV', 'INV_ERROR_GET_COST_GROUP');
3777: fnd_msg_pub.ADD;
3778: x_validation_status := 'N';
3779: RAISE fnd_api.g_exc_error;
3780: END IF;
3781:
3782: IF (l_cost_group_id IS NULL OR l_cost_group_id = -1)
3783: THEN
3786: THEN
3787: fnd_message.set_name ('INV', 'INV_INT_CSTGRP');
3788: fnd_msg_pub.ADD;
3789: x_validation_status := 'N';
3790: RAISE fnd_api.g_exc_error;
3791: END IF;
3792:
3793: IF (x_rs_cost_group_tbl.COUNT = 0 OR x_rs_cost_group_tbl IS NULL)
3794: THEN
3816: THEN
3817: fnd_message.set_name ('INV', 'INV_LOT_DIFF_COSTGROUP');
3818: fnd_msg_pub.ADD;
3819: l_validation_status := 'N';
3820: RAISE fnd_api.g_exc_error;
3821: END IF;
3822: END LOOP;
3823:
3824: l_validation_status := 'Y';
3880: , x_cost_group_id => l_current_cost_group_id
3881: , x_return_status => l_return_status
3882: );
3883:
3884: IF (l_return_status <> fnd_api.g_ret_sts_success)
3885: THEN
3886: fnd_message.set_name ('INV', 'INV_ERROR_GET_COST_GROUP');
3887: fnd_msg_pub.ADD;
3888: x_validation_status := 'N';
3885: THEN
3886: fnd_message.set_name ('INV', 'INV_ERROR_GET_COST_GROUP');
3887: fnd_msg_pub.ADD;
3888: x_validation_status := 'N';
3889: RAISE fnd_api.g_exc_error;
3890: END IF;
3891: END IF;
3892:
3893: IF (l_current_cost_group_id <> l_cost_group_id)
3895: fnd_message.set_name ('INV', 'INV_DIFF_MERGE_COST_GROUP');
3896: fnd_message.set_token ('ENTITY1', l_lot_number);
3897: fnd_msg_pub.ADD;
3898: x_validation_status := 'N';
3899: RAISE fnd_api.g_exc_error;
3900: END IF;
3901: END LOOP;
3902: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate)
3903: THEN
3905: IF (l_inventory_item_id <> p_rs_item_id_tbl (1))
3906: THEN
3907: -- do nothing. let the trx manager assign the cost group;
3908: x_validation_status := 'Y';
3909: x_return_status := fnd_api.g_ret_sts_success;
3910: fnd_msg_pub.count_and_get (p_count => x_msg_count
3911: , p_data => x_msg_data
3912: );
3913: RETURN;
3915: END IF;
3916:
3917: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3918: EXCEPTION
3919: WHEN fnd_api.g_exc_error
3920: THEN
3921: x_return_status := fnd_api.g_ret_sts_error;
3922: fnd_msg_pub.count_and_get (p_count => x_msg_count
3923: , p_data => x_msg_data);
3917: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3918: EXCEPTION
3919: WHEN fnd_api.g_exc_error
3920: THEN
3921: x_return_status := fnd_api.g_ret_sts_error;
3922: fnd_msg_pub.count_and_get (p_count => x_msg_count
3923: , p_data => x_msg_data);
3924: WHEN fnd_api.g_exc_unexpected_error
3925: THEN
3920: THEN
3921: x_return_status := fnd_api.g_ret_sts_error;
3922: fnd_msg_pub.count_and_get (p_count => x_msg_count
3923: , p_data => x_msg_data);
3924: WHEN fnd_api.g_exc_unexpected_error
3925: THEN
3926: x_return_status := fnd_api.g_ret_sts_unexp_error;
3927: fnd_msg_pub.count_and_get (p_count => x_msg_count
3928: , p_data => x_msg_data);
3922: fnd_msg_pub.count_and_get (p_count => x_msg_count
3923: , p_data => x_msg_data);
3924: WHEN fnd_api.g_exc_unexpected_error
3925: THEN
3926: x_return_status := fnd_api.g_ret_sts_unexp_error;
3927: fnd_msg_pub.count_and_get (p_count => x_msg_count
3928: , p_data => x_msg_data);
3929: WHEN OTHERS
3930: THEN
3927: fnd_msg_pub.count_and_get (p_count => x_msg_count
3928: , p_data => x_msg_data);
3929: WHEN OTHERS
3930: THEN
3931: x_return_status := fnd_api.g_ret_sts_unexp_error;
3932:
3933: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3934: THEN
3935: fnd_msg_pub.add_exc_msg (g_pkg_name, 'Validate_Material_Status');
4077: THEN
4078: print_debug ('Inside Validate_Quantity', 'Validate_Quantity');
4079: END IF;
4080:
4081: x_return_status := fnd_api.g_ret_sts_success;
4082: x_validation_status := 'Y';
4083:
4084: IF (l_debug = 1)
4085: THEN
4094: , x_msg_count => x_msg_count
4095: , x_msg_data => x_msg_data
4096: );
4097:
4098: IF (x_return_status = fnd_api.g_ret_sts_error)
4099: THEN
4100: RAISE fnd_api.g_exc_error;
4101: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4102: THEN
4096: );
4097:
4098: IF (x_return_status = fnd_api.g_ret_sts_error)
4099: THEN
4100: RAISE fnd_api.g_exc_error;
4101: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4102: THEN
4103: RAISE fnd_api.g_exc_unexpected_error;
4104: END IF;
4097:
4098: IF (x_return_status = fnd_api.g_ret_sts_error)
4099: THEN
4100: RAISE fnd_api.g_exc_error;
4101: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4102: THEN
4103: RAISE fnd_api.g_exc_unexpected_error;
4104: END IF;
4105:
4099: THEN
4100: RAISE fnd_api.g_exc_error;
4101: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4102: THEN
4103: RAISE fnd_api.g_exc_unexpected_error;
4104: END IF;
4105:
4106: IF (l_debug = 1)
4107: THEN
4138: WHEN NO_DATA_FOUND
4139: THEN
4140: fnd_message.set_name ('INV', 'INV_INT_ITEM_CODE');
4141: fnd_msg_pub.ADD;
4142: RAISE fnd_api.g_exc_error;
4143: END;
4144:
4145: IF (l_debug = 1) THEN
4146: print_debug ('l_start_primary_uom is ' || l_start_primary_uom
4163: THEN
4164: IF (l_debug = 1) THEN
4165: print_debug ('Error in getting serial_number control code', 'Validate_Quantity');
4166: END IF;
4167: RAISE fnd_api.g_exc_unexpected_error;
4168: END;
4169: IF (l_debug = 1) THEN
4170: print_debug ('l_serial_code ' || l_serial_code, 'Validate_Quantity');
4171: END IF;
4202: fnd_message.set_token ('ROUTINE'
4203: , g_pkg_name || 'Validate_Quantity');
4204: fnd_msg_pub.ADD;
4205: x_validation_status := 'N';
4206: RAISE fnd_api.g_exc_unexpected_error;
4207: END IF;
4208: ELSE
4209: l_start_primary_qty := l_start_qty;
4210: END IF;
4240: print_debug ('get_immediate_lpn_item_qty has returned error', 'Validate_Quantity');
4241: END IF;
4242: fnd_message.set_name ('INV', 'INV_NOT_ENOUGH_ATT');
4243: fnd_msg_pub.ADD;
4244: RAISE fnd_api.g_exc_error;
4245: END IF;
4246:
4247: IF (l_debug = 1) THEN
4248: print_debug ('l_att_qty is ' || l_att_qty, 'Validate_Quantity');
4252:
4253: IF (l_att_qty < l_start_primary_qty) THEN
4254: fnd_message.set_name ('INV', 'INV_NOT_ENOUGH_ATT');
4255: fnd_msg_pub.ADD;
4256: RAISE fnd_api.g_exc_error;
4257: END IF;
4258:
4259: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate) THEN
4260: IF (l_att_qty <> l_start_primary_qty) THEN
4259: IF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate) THEN
4260: IF (l_att_qty <> l_start_primary_qty) THEN
4261: fnd_message.set_name ('INV', 'INV_LOT_TRANSLATE_QTY_ERR');
4262: fnd_msg_pub.ADD;
4263: RAISE fnd_api.g_exc_error;
4264: END IF;
4265: END IF;
4266:
4267: FOR i IN 1 .. l_result_count
4288: fnd_message.set_token ('UOM', l_start_uom_code);
4289: fnd_message.set_token ('ROUTINE', g_pkg_name || 'Validate_Quantity');
4290: fnd_msg_pub.ADD;
4291: x_validation_status := 'N';
4292: RAISE fnd_api.g_exc_unexpected_error;
4293: END IF;
4294: ELSE
4295: l_result_qty := p_rs_quantity_tbl (i);
4296: END IF;
4300: AND p_transaction_type_id = inv_globals.g_type_inv_lot_split
4301: ) THEN
4302: fnd_message.set_name ('INV', 'INV_MIN_LOT_SPLIT');
4303: fnd_msg_pub.ADD;
4304: RAISE fnd_api.g_exc_error;
4305: END IF;
4306:
4307: l_total_qty := l_total_qty + l_result_qty;
4308:
4331: print_debug ('l_lot_serial_count = > ' || l_lot_serial_count, 'Validate_Quantity');
4332: END IF;
4333: fnd_message.set_name ('INV', 'INV_INVLTPU_LOTTRX_QTY');
4334: fnd_msg_pub.ADD;
4335: RAISE fnd_api.g_exc_error;
4336: END IF;
4337: END IF;
4338: END LOOP;
4339:
4339:
4340: IF (l_total_qty = 0) THEN
4341: fnd_message.set_name ('INV', 'INV_INLTPU_QTY');
4342: fnd_msg_pub.ADD;
4343: RAISE fnd_api.g_exc_error;
4344: END IF;
4345:
4346: IF (l_total_qty <> l_start_primary_qty) THEN
4347: IF ( p_transaction_type_id = inv_globals.g_type_inv_lot_split
4348: AND l_total_qty > l_start_primary_qty) THEN
4349: x_validation_status := 'N';
4350: fnd_message.set_name ('INV', 'INV_TOTAL_EXCEED_SPLIT');
4351: fnd_msg_pub.ADD;
4352: RAISE fnd_api.g_exc_error;
4353: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate) THEN
4354: x_validation_status := 'N';
4355: fnd_message.set_name ('INV', 'INV_TOTAL_EXCEED_TRANSLATE');
4356: fnd_msg_pub.ADD;
4353: ELSIF (p_transaction_type_id = inv_globals.g_type_inv_lot_translate) THEN
4354: x_validation_status := 'N';
4355: fnd_message.set_name ('INV', 'INV_TOTAL_EXCEED_TRANSLATE');
4356: fnd_msg_pub.ADD;
4357: RAISE fnd_api.g_exc_error;
4358: END IF;
4359: END IF;
4360:
4361: /*Check for qty matching in case of lot serial items...
4369: , 'Validate_Quantity');
4370: END IF;
4371: fnd_message.set_name ('INV', 'INV_LOT_SER_QTY_VIOLATION');
4372: fnd_msg_pub.ADD;
4373: RAISE fnd_api.g_exc_error;
4374: END IF;
4375:
4376: IF ( p_st_ser_number_tbl.COUNT <> l_start_primary_qty
4377: OR p_rs_ser_number_tbl.COUNT <> l_total_qty) THEN
4388: END IF;
4389: x_validation_status := 'N';
4390: fnd_message.set_name ('INV', 'INV_INVLTPU_LOTTRX_QTY');
4391: fnd_msg_pub.ADD;
4392: RAISE fnd_api.g_exc_error;
4393: END IF;
4394: END IF;
4395: /* for lot merge, the check if the starting lot have enough qty to transact in
4396: * the transaction manager we don't check it here.
4417: , g_pkg_name || 'Validate_Quantity'
4418: );
4419: fnd_msg_pub.ADD;
4420: x_validation_status := 'N';
4421: RAISE fnd_api.g_exc_unexpected_error;
4422: END IF;
4423: ELSE
4424: l_start_primary_qty := p_st_quantity_tbl (i);
4425: END IF;
4458: print_debug ('get_immediates_lpn_qty returned error', 'Validate_Quantity');
4459: END IF;
4460: fnd_message.set_name ('INV', 'INV_NOT_ENOUGH_ATT');
4461: fnd_msg_pub.ADD;
4462: RAISE fnd_api.g_exc_error;
4463: END IF;
4464:
4465: IF (l_debug = 1) THEN
4466: print_debug ('l_att_qty is ' || l_att_qty, 'Validate_Quantity');
4470:
4471: IF (l_att_qty < l_start_primary_qty) THEN
4472: fnd_message.set_name ('INV', 'INV_NOT_ENOUGH_ATT');
4473: fnd_msg_pub.ADD;
4474: RAISE fnd_api.g_exc_error;
4475: END IF;
4476:
4477: /*OSFM support for Serialized Lot Items
4478: *Need to calculate the serial numbers for each lot ..it should match with the
4497: print_debug ('l_lot_serial_count = > ' || l_lot_serial_count, 'Validate_Quantity');
4498: END IF;
4499: fnd_message.set_name ('INV', 'INV_INVLTPU_LOTTRX_QTY');
4500: fnd_msg_pub.ADD;
4501: RAISE fnd_api.g_exc_error;
4502: END IF;
4503: END IF;
4504:
4505: l_total_qty := l_total_qty + l_start_primary_qty;
4526: fnd_message.set_token ('UOM', l_start_uom_code);
4527: fnd_message.set_token ('ROUTINE', g_pkg_name || 'Validate_Quantity');
4528: fnd_msg_pub.ADD;
4529: x_validation_status := 'N';
4530: RAISE fnd_api.g_exc_unexpected_error;
4531: END IF;
4532: ELSE
4533: l_result_qty := p_rs_quantity_tbl (1);
4534: END IF;
4541: IF (l_result_qty <> l_total_qty) THEN
4542: x_validation_status := 'N';
4543: fnd_message.set_name ('INV', 'INV_QTY_NOT_MATCHED');
4544: fnd_msg_pub.ADD;
4545: RAISE fnd_api.g_exc_error;
4546: END IF;
4547:
4548: /*For lot - serial items*/
4549: IF (l_serial_code IN (2, 5)) THEN
4550: IF ( TRUNC (l_start_primary_qty) <> TRUNC (l_start_primary_qty, 6)
4551: OR TRUNC (l_total_qty) <> TRUNC (l_total_qty, 6) ) THEN
4552: fnd_message.set_name ('INV', 'INV_LOT_SER_QTY_VIOLATION');
4553: fnd_msg_pub.ADD;
4554: RAISE fnd_api.g_exc_error;
4555: END IF;
4556:
4557: IF ( p_st_ser_number_tbl.COUNT <> l_total_qty
4558: OR p_rs_ser_number_tbl.COUNT <> l_result_qty ) THEN
4558: OR p_rs_ser_number_tbl.COUNT <> l_result_qty ) THEN
4559: x_validation_status := 'N';
4560: fnd_message.set_name ('INV', 'INV_INVLTPU_LOTTRX_QTY');
4561: fnd_msg_pub.ADD;
4562: RAISE fnd_api.g_exc_error;
4563: END IF;
4564: END IF;
4565: END IF;
4566:
4565: END IF;
4566:
4567: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4568: EXCEPTION
4569: WHEN fnd_api.g_exc_error
4570: THEN
4571: x_return_status := fnd_api.g_ret_sts_error;
4572: fnd_msg_pub.count_and_get (p_count => x_msg_count
4573: , p_data => x_msg_data);
4567: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4568: EXCEPTION
4569: WHEN fnd_api.g_exc_error
4570: THEN
4571: x_return_status := fnd_api.g_ret_sts_error;
4572: fnd_msg_pub.count_and_get (p_count => x_msg_count
4573: , p_data => x_msg_data);
4574: WHEN fnd_api.g_exc_unexpected_error
4575: THEN
4570: THEN
4571: x_return_status := fnd_api.g_ret_sts_error;
4572: fnd_msg_pub.count_and_get (p_count => x_msg_count
4573: , p_data => x_msg_data);
4574: WHEN fnd_api.g_exc_unexpected_error
4575: THEN
4576: x_return_status := fnd_api.g_ret_sts_unexp_error;
4577: fnd_msg_pub.count_and_get (p_count => x_msg_count
4578: , p_data => x_msg_data);
4572: fnd_msg_pub.count_and_get (p_count => x_msg_count
4573: , p_data => x_msg_data);
4574: WHEN fnd_api.g_exc_unexpected_error
4575: THEN
4576: x_return_status := fnd_api.g_ret_sts_unexp_error;
4577: fnd_msg_pub.count_and_get (p_count => x_msg_count
4578: , p_data => x_msg_data);
4579: WHEN OTHERS
4580: THEN
4577: fnd_msg_pub.count_and_get (p_count => x_msg_count
4578: , p_data => x_msg_data);
4579: WHEN OTHERS
4580: THEN
4581: x_return_status := fnd_api.g_ret_sts_unexp_error;
4582:
4583: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
4584: THEN
4585: fnd_msg_pub.add_exc_msg (g_pkg_name, 'Validate_Quantity');
4609: THEN
4610: fnd_message.set_name ('INV', 'INV_MISSING_REQUIRED_PARAMETER');
4611: fnd_msg_pub.ADD;
4612: x_validation_status := 'N';
4613: RAISE fnd_api.g_exc_error;
4614: END IF;
4615:
4616: print_debug ('Inside Validate_Organization', 'Validate_Organization');
4617: print_debug ('p_organization_id is ' || p_organization_id
4634: THEN
4635: fnd_message.set_name ('INV', 'INV_NO_OPEN_PERIOD');
4636: fnd_msg_pub.ADD;
4637: x_validation_status := 'N';
4638: RAISE fnd_api.g_exc_error;
4639: END IF;
4640: END LOOP;
4641:
4642: IF (l_period_id = 0 OR l_period_id = -1)
4643: THEN
4644: fnd_message.set_name ('INV', 'INV_NO_OPEN_PERIOD');
4645: fnd_msg_pub.ADD;
4646: x_validation_status := 'N';
4647: RAISE fnd_api.g_exc_error;
4648: ELSE
4649: x_validation_status := 'Y';
4650: x_return_status := fnd_api.g_ret_sts_success;
4651: fnd_msg_pub.count_and_get (p_count => x_msg_count
4646: x_validation_status := 'N';
4647: RAISE fnd_api.g_exc_error;
4648: ELSE
4649: x_validation_status := 'Y';
4650: x_return_status := fnd_api.g_ret_sts_success;
4651: fnd_msg_pub.count_and_get (p_count => x_msg_count
4652: , p_data => x_msg_data);
4653: END IF;
4654: EXCEPTION
4651: fnd_msg_pub.count_and_get (p_count => x_msg_count
4652: , p_data => x_msg_data);
4653: END IF;
4654: EXCEPTION
4655: WHEN fnd_api.g_exc_error
4656: THEN
4657: x_return_status := fnd_api.g_ret_sts_error;
4658: fnd_msg_pub.count_and_get (p_count => x_msg_count
4659: , p_data => x_msg_data);
4653: END IF;
4654: EXCEPTION
4655: WHEN fnd_api.g_exc_error
4656: THEN
4657: x_return_status := fnd_api.g_ret_sts_error;
4658: fnd_msg_pub.count_and_get (p_count => x_msg_count
4659: , p_data => x_msg_data);
4660: WHEN fnd_api.g_exc_unexpected_error
4661: THEN
4656: THEN
4657: x_return_status := fnd_api.g_ret_sts_error;
4658: fnd_msg_pub.count_and_get (p_count => x_msg_count
4659: , p_data => x_msg_data);
4660: WHEN fnd_api.g_exc_unexpected_error
4661: THEN
4662: x_return_status := fnd_api.g_ret_sts_unexp_error;
4663: fnd_msg_pub.count_and_get (p_count => x_msg_count
4664: , p_data => x_msg_data);
4658: fnd_msg_pub.count_and_get (p_count => x_msg_count
4659: , p_data => x_msg_data);
4660: WHEN fnd_api.g_exc_unexpected_error
4661: THEN
4662: x_return_status := fnd_api.g_ret_sts_unexp_error;
4663: fnd_msg_pub.count_and_get (p_count => x_msg_count
4664: , p_data => x_msg_data);
4665: WHEN OTHERS
4666: THEN
4663: fnd_msg_pub.count_and_get (p_count => x_msg_count
4664: , p_data => x_msg_data);
4665: WHEN OTHERS
4666: THEN
4667: x_return_status := fnd_api.g_ret_sts_unexp_error;
4668:
4669: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
4670: THEN
4671: fnd_msg_pub.add_exc_msg (g_pkg_name, 'Validate_Organization');
4720:
4721: BEGIN
4722: l_debug := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
4723: l_validation_status := 'Y';
4724: x_return_status := fnd_api.g_ret_sts_success;
4725:
4726: IF (p_transaction_type_id IS NULL)
4727: THEN
4728: IF (l_debug = 1)
4733:
4734: l_validation_status := 'N';
4735: fnd_message.set_name ('INV', 'INV_MISSING_REQUIRED_PARAMETER');
4736: fnd_msg_pub.ADD;
4737: RAISE fnd_api.g_exc_error;
4738: END IF;
4739:
4740: l_st_var_index := p_st_ser_number_tbl.FIRST;
4741: l_rs_var_index := p_rs_ser_number_tbl.FIRST;
4765:
4766: l_validation_status := 'N';
4767: fnd_message.set_name ('INV', 'INV_SERIAL_MATCH_ERROR');
4768: fnd_msg_pub.ADD;
4769: RAISE fnd_api.g_exc_error;
4770: /*Bug:5147899. Modified the following condition to throw error
4771: only when the group_mark_id holds a not null value other than -1 */
4772: ELSIF ( p_st_ser_grp_mark_id_tbl (i) IS NOT NULL
4773: AND p_st_ser_grp_mark_id_tbl (i) <> -1
4784:
4785: l_validation_status := 'N';
4786: fnd_message.set_name ('INV', 'INV_SERIAL_IN_USE');
4787: fnd_msg_pub.ADD;
4788: RAISE fnd_api.g_exc_error;
4789: ELSE
4790: /*Lot status validations are done in lot_trx_split_validations seperately.
4791: *Here we are only concerned with serial status validations.
4792: *For Lot Split/Translation/Merge transactions we will only validate the status control for the
4893: fnd_msg_pub.count_and_get (p_count => x_msg_count
4894: , p_data => x_msg_data
4895: );
4896: l_validation_status := 'N';
4897: RAISE fnd_api.g_exc_unexpected_error;
4898: END;
4899:
4900: IF (x_return_status = fnd_api.g_ret_sts_error)
4901: THEN
4896: l_validation_status := 'N';
4897: RAISE fnd_api.g_exc_unexpected_error;
4898: END;
4899:
4900: IF (x_return_status = fnd_api.g_ret_sts_error)
4901: THEN
4902: IF (l_debug = 1)
4903: THEN
4904: print_debug ('breadcrumb 100', 'Validate_serials');
4907: );
4908: END IF;
4909:
4910: l_validation_status := 'N';
4911: RAISE fnd_api.g_exc_error;
4912: ELSIF ( x_return_status = fnd_api.g_ret_sts_unexp_error
4913: OR l_validation_status <> 'Y'
4914: )
4915: THEN
4908: END IF;
4909:
4910: l_validation_status := 'N';
4911: RAISE fnd_api.g_exc_error;
4912: ELSIF ( x_return_status = fnd_api.g_ret_sts_unexp_error
4913: OR l_validation_status <> 'Y'
4914: )
4915: THEN
4916: IF (l_debug = 1)
4920: , 'Validate_serials'
4921: );
4922: END IF;
4923:
4924: RAISE fnd_api.g_exc_unexpected_error;
4925: END IF;
4926: END IF;
4927:
4928: l_st_var_index := p_st_ser_number_tbl.NEXT (l_st_var_index);
4978:
4979: l_validation_status := 'N';
4980: fnd_message.set_name ('INV', 'INV_FAIL_VALIDATE_SERIAL');
4981: fnd_msg_pub.ADD;
4982: RAISE fnd_api.g_exc_error;
4983: END IF;
4984:
4985: l_rs_var_index := p_rs_ser_number_tbl.NEXT (l_rs_var_index);
4986: END LOOP;
4986: END LOOP;
4987: END IF;
4988:
4989: x_validation_status := 'Y';
4990: x_return_status := fnd_api.g_ret_sts_success;
4991: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4992:
4993: IF (l_debug = 1)
4994: THEN
4995: print_debug ('breadcrumb 150', 'Validate_serials');
4996: print_debug ('Serial Validations passed', 'Validate_serials');
4997: END IF;
4998: EXCEPTION
4999: WHEN fnd_api.g_exc_error
5000: THEN
5001: x_validation_status := l_validation_status;
5002: x_return_status := fnd_api.g_ret_sts_error;
5003: fnd_msg_pub.count_and_get (p_count => x_msg_count
4998: EXCEPTION
4999: WHEN fnd_api.g_exc_error
5000: THEN
5001: x_validation_status := l_validation_status;
5002: x_return_status := fnd_api.g_ret_sts_error;
5003: fnd_msg_pub.count_and_get (p_count => x_msg_count
5004: , p_data => x_msg_data);
5005: WHEN fnd_api.g_exc_unexpected_error
5006: THEN
5001: x_validation_status := l_validation_status;
5002: x_return_status := fnd_api.g_ret_sts_error;
5003: fnd_msg_pub.count_and_get (p_count => x_msg_count
5004: , p_data => x_msg_data);
5005: WHEN fnd_api.g_exc_unexpected_error
5006: THEN
5007: x_validation_status := l_validation_status;
5008: x_return_status := fnd_api.g_ret_sts_unexp_error;
5009: fnd_msg_pub.count_and_get (p_count => x_msg_count
5004: , p_data => x_msg_data);
5005: WHEN fnd_api.g_exc_unexpected_error
5006: THEN
5007: x_validation_status := l_validation_status;
5008: x_return_status := fnd_api.g_ret_sts_unexp_error;
5009: fnd_msg_pub.count_and_get (p_count => x_msg_count
5010: , p_data => x_msg_data);
5011: WHEN OTHERS
5012: THEN
5010: , p_data => x_msg_data);
5011: WHEN OTHERS
5012: THEN
5013: x_validation_status := 'E';
5014: x_return_status := fnd_api.g_ret_sts_unexp_error;
5015:
5016: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
5017: THEN
5018: fnd_msg_pub.add_exc_msg (g_pkg_name, 'Validate_serials');
5057: WHEN NO_DATA_FOUND
5058: THEN
5059: fnd_message.set_name ('INV', 'INV_INVALID_ITEM');
5060: fnd_msg_pub.ADD;
5061: RAISE fnd_api.g_exc_unexpected_error;
5062: END;
5063:
5064: print_debug ('Shelf Life Period ' || l_shelf_life_code, 'Compute Lot Exp');
5065: print_debug ('Item ' || p_item_id, 'Compute Lot Exp');
5086: WHEN NO_DATA_FOUND
5087: THEN
5088: fnd_message.set_name ('INV', 'INV_INVALID_LOT');
5089: fnd_msg_pub.ADD;
5090: RAISE fnd_api.g_exc_unexpected_error;
5091: END;
5092:
5093: print_debug ('Lot exp date after split1 ' || l_lotexpdate
5094: , 'Compute Lot Exp'
5097: IF (l_lotexpdate IS NULL)
5098: THEN
5099: fnd_message.set_name ('INV', 'INV_INVALID_LOT_EXP');
5100: fnd_msg_pub.ADD;
5101: RAISE fnd_api.g_exc_unexpected_error;
5102: END IF;
5103:
5104: -- Update all the resulting lots with this exp date
5105: FOR i IN 1 .. p_rs_lot_exp_tbl.COUNT
5128: fnd_message.set_token ('ENTITY1'
5129: , 'MTL_TRANSACTION_LOTS_INTERFACE'
5130: );
5131: fnd_msg_pub.ADD;
5132: RAISE fnd_api.g_exc_unexpected_error;
5133: END;
5134:
5135: print_debug ('Lot exp date after split3 ' || l_lotexpdate
5136: , 'Compute Lot Exp'
5169: IF (l_lotexpdate IS NULL)
5170: THEN
5171: fnd_message.set_name ('INV', 'INV_INVALID_LOT_EXP');
5172: fnd_msg_pub.ADD;
5173: RAISE fnd_api.g_exc_unexpected_error;
5174: END IF;
5175:
5176: p_rs_lot_exp_tbl (1) := fnd_date.canonical_to_date (l_lotexpdate);
5177:
5194: fnd_message.set_token ('ENTITY1'
5195: , 'MTL_TRANSACTION_LOTS_INTERFACE'
5196: );
5197: fnd_msg_pub.ADD;
5198: RAISE fnd_api.g_exc_unexpected_error;
5199: END;
5200:
5201: print_debug ('Lot exp date update merge2 ' || l_lotexpdate
5202: , 'Compute Lot Exp'
5216: WHEN NO_DATA_FOUND
5217: THEN
5218: fnd_message.set_name ('INV', 'INV_INVALID_LOT');
5219: fnd_msg_pub.ADD;
5220: RAISE fnd_api.g_exc_unexpected_error;
5221: END;
5222:
5223: print_debug ('Lot exp date after translate1 ' || l_lotexpdate
5224: , 'Compute Lot Exp'
5227: IF (l_lotexpdate IS NULL)
5228: THEN
5229: fnd_message.set_name ('INV', 'INV_INVALID_LOT_EXP');
5230: fnd_msg_pub.ADD;
5231: RAISE fnd_api.g_exc_unexpected_error;
5232: END IF;
5233:
5234: BEGIN
5235: UPDATE mtl_transaction_lots_interface mtli
5248: fnd_message.set_token ('ENTITY1'
5249: , 'MTL_TRANSACTION_LOTS_INTERFACE'
5250: );
5251: fnd_msg_pub.ADD;
5252: RAISE fnd_api.g_exc_unexpected_error;
5253: END;
5254:
5255: print_debug ('Lot exp date update translate2 ' || l_lotexpdate
5256: , 'Compute Lot Exp'
5274: WHEN NO_DATA_FOUND
5275: THEN
5276: fnd_message.set_name ('INV', 'INV_INVALID_LOT');
5277: fnd_msg_pub.ADD;
5278: RAISE fnd_api.g_exc_unexpected_error;
5279: END;
5280:
5281: print_debug ('Lot exp date user defined :split1 ' || l_lotexpdate
5282: , 'Compute Lot Exp'
5298: IF (l_lotexpdate IS NULL)
5299: THEN
5300: fnd_message.set_name ('INV', 'INV_INVALID_LOT_EXP');
5301: fnd_msg_pub.ADD;
5302: RAISE fnd_api.g_exc_unexpected_error;
5303: END IF;
5304:
5305: BEGIN
5306: UPDATE mtl_transaction_lots_interface mtli
5320: fnd_message.set_token ('ENTITY1'
5321: , 'MTL_TRANSACTION_LOTS_INTERFACE'
5322: );
5323: fnd_msg_pub.ADD;
5324: RAISE fnd_api.g_exc_unexpected_error;
5325: END;
5326:
5327: print_debug ( 'Lot exp date user defined : after update split3 '
5328: || l_lotexpdate
5365: , 'Compute Lot Exp'
5366: );
5367: fnd_message.set_name ('INV', 'INV_INVALID_LOT');
5368: fnd_msg_pub.ADD;
5369: RAISE fnd_api.g_exc_unexpected_error;
5370: END;
5371:
5372: print_debug ( 'Lot exp date user defined : Merge3 '
5373: || l_lotexpdate
5387: IF (l_lotexpdate IS NULL)
5388: THEN
5389: fnd_message.set_name ('INV', 'INV_INVALID_LOT_EXP');
5390: fnd_msg_pub.ADD;
5391: RAISE fnd_api.g_exc_unexpected_error;
5392: END IF;
5393:
5394: BEGIN
5395: UPDATE mtl_transaction_lots_interface mtli
5409: fnd_message.set_token ('ENTITY1'
5410: , 'MTL_TRANSACTION_LOTS_INTERFACE'
5411: );
5412: fnd_msg_pub.ADD;
5413: RAISE fnd_api.g_exc_unexpected_error;
5414: END;
5415:
5416: print_debug ( 'Lot exp date user defined : after update Merge6 '
5417: || l_lotexpdate
5435: WHEN NO_DATA_FOUND
5436: THEN
5437: fnd_message.set_name ('INV', 'INV_INVALID_LOT');
5438: fnd_msg_pub.ADD;
5439: RAISE fnd_api.g_exc_unexpected_error;
5440: END;
5441:
5442: print_debug ( 'Lot exp date user defined : Translate1 '
5443: || l_lotexpdate
5447: IF (l_lotexpdate IS NULL)
5448: THEN
5449: fnd_message.set_name ('INV', 'INV_INVALID_LOT_EXP');
5450: fnd_msg_pub.ADD;
5451: RAISE fnd_api.g_exc_unexpected_error;
5452: END IF;
5453:
5454: BEGIN
5455: UPDATE mtl_transaction_lots_interface mtli
5469: fnd_message.set_token ('ENTITY1'
5470: , 'MTL_TRANSACTION_LOTS_INTERFACE'
5471: );
5472: fnd_msg_pub.ADD;
5473: RAISE fnd_api.g_exc_unexpected_error;
5474: END;
5475:
5476: print_debug
5477: ( 'Lot exp date user defined : after update Translate'
5481: END IF;
5482: END IF;
5483: END IF;
5484:
5485: x_return_status := fnd_api.g_ret_sts_success;
5486: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
5487: EXCEPTION
5488: WHEN fnd_api.g_exc_error
5489: THEN
5484:
5485: x_return_status := fnd_api.g_ret_sts_success;
5486: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
5487: EXCEPTION
5488: WHEN fnd_api.g_exc_error
5489: THEN
5490: x_return_status := fnd_api.g_ret_sts_error;
5491: fnd_msg_pub.count_and_get (p_count => x_msg_count
5492: , p_data => x_msg_data);
5486: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
5487: EXCEPTION
5488: WHEN fnd_api.g_exc_error
5489: THEN
5490: x_return_status := fnd_api.g_ret_sts_error;
5491: fnd_msg_pub.count_and_get (p_count => x_msg_count
5492: , p_data => x_msg_data);
5493: WHEN fnd_api.g_exc_unexpected_error
5494: THEN
5489: THEN
5490: x_return_status := fnd_api.g_ret_sts_error;
5491: fnd_msg_pub.count_and_get (p_count => x_msg_count
5492: , p_data => x_msg_data);
5493: WHEN fnd_api.g_exc_unexpected_error
5494: THEN
5495: x_return_status := fnd_api.g_ret_sts_unexp_error;
5496: fnd_msg_pub.count_and_get (p_count => x_msg_count
5497: , p_data => x_msg_data);
5491: fnd_msg_pub.count_and_get (p_count => x_msg_count
5492: , p_data => x_msg_data);
5493: WHEN fnd_api.g_exc_unexpected_error
5494: THEN
5495: x_return_status := fnd_api.g_ret_sts_unexp_error;
5496: fnd_msg_pub.count_and_get (p_count => x_msg_count
5497: , p_data => x_msg_data);
5498: WHEN OTHERS
5499: THEN
5496: fnd_msg_pub.count_and_get (p_count => x_msg_count
5497: , p_data => x_msg_data);
5498: WHEN OTHERS
5499: THEN
5500: x_return_status := fnd_api.g_ret_sts_unexp_error;
5501:
5502: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
5503: THEN
5504: fnd_msg_pub.add_exc_msg (g_pkg_name, 'compute_lot_expiration');
5535: l_update_attr BOOLEAN := FALSE;
5536: l_debug BOOLEAN := TRUE;
5537: BEGIN
5538: x_validation_status := 'Y';
5539: x_return_status := fnd_api.g_ret_sts_success;
5540:
5541: IF (NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0) = 0)
5542: THEN
5543: l_debug := FALSE;
5575: );
5576: END IF;
5577:
5578: x_validation_status := 'N';
5579: RAISE fnd_api.g_exc_unexpected_error;
5580: END IF;
5581:
5582: SAVEPOINT initial_state_svpt;
5583: l_restrict_serial_rcpt :=
5616: print_debug ('returning..', 'update_item_serial');
5617: END IF;
5618:
5619: x_validation_status := 'Y';
5620: x_return_status := fnd_api.g_ret_sts_success;
5621: RETURN;
5622: END IF;
5623:
5624: IF ((p_to_item_id IS NOT NULL) AND (p_item_id <> p_to_item_id))
5717: /*Bug:5397573. Modified the following message from INV_SERIAL_UNIQUENESS
5718: to INV_JOB_SERIAL_UNIQUENESS. */
5719: fnd_message.set_name ('INV', 'INV_JOB_SERIAL_UNIQUENESS');
5720: fnd_msg_pub.ADD;
5721: RAISE fnd_api.g_exc_error;
5722: END IF;
5723:
5724: IF (l_update_attr) THEN
5725: BEGIN
5865: print_debug ('All updations done, Exitting the procedure', 'update_item_serial');
5866: END IF;
5867:
5868: EXCEPTION
5869: WHEN fnd_api.g_exc_error
5870: THEN
5871: x_return_status := fnd_api.g_ret_sts_error;
5872: fnd_msg_pub.count_and_get (p_count => x_msg_count
5873: , p_data => x_msg_data);
5867:
5868: EXCEPTION
5869: WHEN fnd_api.g_exc_error
5870: THEN
5871: x_return_status := fnd_api.g_ret_sts_error;
5872: fnd_msg_pub.count_and_get (p_count => x_msg_count
5873: , p_data => x_msg_data);
5874: WHEN fnd_api.g_exc_unexpected_error
5875: THEN
5870: THEN
5871: x_return_status := fnd_api.g_ret_sts_error;
5872: fnd_msg_pub.count_and_get (p_count => x_msg_count
5873: , p_data => x_msg_data);
5874: WHEN fnd_api.g_exc_unexpected_error
5875: THEN
5876: x_return_status := fnd_api.g_ret_sts_unexp_error;
5877: fnd_msg_pub.count_and_get (p_count => x_msg_count
5878: , p_data => x_msg_data);
5872: fnd_msg_pub.count_and_get (p_count => x_msg_count
5873: , p_data => x_msg_data);
5874: WHEN fnd_api.g_exc_unexpected_error
5875: THEN
5876: x_return_status := fnd_api.g_ret_sts_unexp_error;
5877: fnd_msg_pub.count_and_get (p_count => x_msg_count
5878: , p_data => x_msg_data);
5879: WHEN rollback_serial_update
5880: THEN
5880: THEN
5881: ROLLBACK TO initial_state_svpt;
5882: WHEN OTHERS
5883: THEN
5884: x_return_status := fnd_api.g_ret_sts_unexp_error;
5885:
5886: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
5887: THEN
5888: fnd_msg_pub.add_exc_msg (g_pkg_name, 'update_item_serial');