DBA Data[Home] [Help]

APPS.INV_VALIDATE dependencies on INV_VALIDATE

Line 1: PACKAGE BODY INV_Validate AS

1: PACKAGE BODY INV_Validate AS
2: /* $Header: INVSVATB.pls 120.19.12020000.2 2012/07/09 08:18:35 asugandh ship $ */
3:
4: -- Global constant holding the package name
5:

Line 6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_Validate';

2: /* $Header: INVSVATB.pls 120.19.12020000.2 2012/07/09 08:18:35 asugandh ship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_Validate';
7: g_orgid NUMBER;
8:
9: -- Procedure Get_Attr_Tbl.
10: --

Line 579: * If it returns INV_VALIDATE.T then goahead to call

575: l_status_result VARCHAR2(1);
576: BEGIN
577:
578: /* First call the original From_Subinventory function,
579: * If it returns INV_VALIDATE.T then goahead to call
580: * inv_material_status_grp.is_status_applicable() function.
581: */
582: l_result := INV_VALIDATE.From_Subinventory(
583: p_sub => p_sub,

Line 582: l_result := INV_VALIDATE.From_Subinventory(

578: /* First call the original From_Subinventory function,
579: * If it returns INV_VALIDATE.T then goahead to call
580: * inv_material_status_grp.is_status_applicable() function.
581: */
582: l_result := INV_VALIDATE.From_Subinventory(
583: p_sub => p_sub,
584: p_org => p_org,
585: p_item => p_item,
586: p_acct_txn => p_acct_txn);

Line 588: IF (l_result = INV_VALIDATE.T)

584: p_org => p_org,
585: p_item => p_item,
586: p_acct_txn => p_acct_txn);
587:
588: IF (l_result = INV_VALIDATE.T)
589: THEN
590:
591: -- Make the call for inv_material_status_grp.is_status_applicable()
592: -- with appropriate parameters

Line 608: -- Assign l_result = INV_VALIDATE.F and return l_result, else return l_result

604: p_serial_number => NULL,
605: p_object_type => p_object_type);
606:
607: -- If l_status_result = 'N', it means that the status validation has failed.
608: -- Assign l_result = INV_VALIDATE.F and return l_result, else return l_result
609: -- directly.
610: IF (l_status_result = 'N')
611: THEN
612: l_result := INV_VALIDATE.F;

Line 612: l_result := INV_VALIDATE.F;

608: -- Assign l_result = INV_VALIDATE.F and return l_result, else return l_result
609: -- directly.
610: IF (l_status_result = 'N')
611: THEN
612: l_result := INV_VALIDATE.F;
613: RETURN l_result;
614: ELSE
615: RETURN l_result;
616: END IF;

Line 993: * If it returns INV_VALIDATE.T then goahead to call

989: l_status_result VARCHAR2(1);
990: BEGIN
991:
992: /* First call the original To_Subinventory function,
993: * If it returns INV_VALIDATE.T then goahead to call
994: * inv_material_status_grp.is_status_applicable() function.
995: */
996: l_result := INV_VALIDATE.To_Subinventory(
997: p_sub => p_sub,

Line 996: l_result := INV_VALIDATE.To_Subinventory(

992: /* First call the original To_Subinventory function,
993: * If it returns INV_VALIDATE.T then goahead to call
994: * inv_material_status_grp.is_status_applicable() function.
995: */
996: l_result := INV_VALIDATE.To_Subinventory(
997: p_sub => p_sub,
998: p_org => p_org,
999: p_item => p_item,
1000: p_from_sub => p_from_sub,

Line 1003: IF (l_result = INV_VALIDATE.T)

999: p_item => p_item,
1000: p_from_sub => p_from_sub,
1001: p_acct_txn => p_acct_txn);
1002:
1003: IF (l_result = INV_VALIDATE.T)
1004: THEN
1005:
1006: -- Make the call for inv_material_status_grp.is_status_applicable()
1007: -- with appropriate parameters

Line 1023: -- Assign l_result = INV_VALIDATE.F and return l_result, else return l_result

1019: p_serial_number => NULL,
1020: p_object_type => p_object_type);
1021:
1022: -- If l_status_result = 'N', it means that the status validation has failed.
1023: -- Assign l_result = INV_VALIDATE.F and return l_result, else return l_result
1024: -- directly.
1025: IF (l_status_result = 'N')
1026: THEN
1027: l_result := INV_VALIDATE.F;

Line 1027: l_result := INV_VALIDATE.F;

1023: -- Assign l_result = INV_VALIDATE.F and return l_result, else return l_result
1024: -- directly.
1025: IF (l_status_result = 'N')
1026: THEN
1027: l_result := INV_VALIDATE.F;
1028: RETURN l_result;
1029: ELSE
1030: RETURN l_result;
1031: END IF;

Line 1792: * If it returns INV_VALIDATE.T then goahead to call

1788: l_result NUMBER;
1789: l_status_result VARCHAR2(1);
1790: BEGIN
1791: /* First call the original validateLocator function,
1792: * If it returns INV_VALIDATE.T then goahead to call
1793: * inv_material_status_grp.is_status_applicable() function.
1794: */
1795: l_result := INV_VALIDATE.validateLocator(
1796: p_locator => p_locator,

Line 1795: l_result := INV_VALIDATE.validateLocator(

1791: /* First call the original validateLocator function,
1792: * If it returns INV_VALIDATE.T then goahead to call
1793: * inv_material_status_grp.is_status_applicable() function.
1794: */
1795: l_result := INV_VALIDATE.validateLocator(
1796: p_locator => p_locator,
1797: p_org => p_org,
1798: p_sub => p_sub,
1799: p_item => p_item);

Line 1801: IF (l_result = INV_VALIDATE.T)

1797: p_org => p_org,
1798: p_sub => p_sub,
1799: p_item => p_item);
1800:
1801: IF (l_result = INV_VALIDATE.T)
1802: THEN
1803:
1804: -- Make the call for inv_material_status_grp.is_status_applicable()
1805: -- with appropriate parameters

Line 1821: -- Assign l_result = INV_VALIDATE.F and return l_result, else return l_result

1817: p_serial_number => NULL,
1818: p_object_type => p_object_type);
1819:
1820: -- If l_status_result = 'N', it means that the status validation has failed.
1821: -- Assign l_result = INV_VALIDATE.F and return l_result, else return l_result
1822: -- directly.
1823: IF (l_status_result = 'N')
1824: THEN
1825: l_result := INV_VALIDATE.F;

Line 1825: l_result := INV_VALIDATE.F;

1821: -- Assign l_result = INV_VALIDATE.F and return l_result, else return l_result
1822: -- directly.
1823: IF (l_status_result = 'N')
1824: THEN
1825: l_result := INV_VALIDATE.F;
1826: RETURN l_result;
1827: ELSE
1828: RETURN l_result;
1829: END IF;

Line 1933: * If it returns INV_VALIDATE.T then goahead to call

1929: l_result NUMBER;
1930: l_status_result VARCHAR2(1);
1931: BEGIN
1932: /* First call the original Lot_Number function,
1933: * If it returns INV_VALIDATE.T then goahead to call
1934: * inv_material_status_grp.is_status_applicable() function.
1935: */
1936: l_result := INV_VALIDATE.Lot_Number(
1937: p_lot => p_lot,

Line 1936: l_result := INV_VALIDATE.Lot_Number(

1932: /* First call the original Lot_Number function,
1933: * If it returns INV_VALIDATE.T then goahead to call
1934: * inv_material_status_grp.is_status_applicable() function.
1935: */
1936: l_result := INV_VALIDATE.Lot_Number(
1937: p_lot => p_lot,
1938: p_org => p_org,
1939: p_item => p_item,
1940: p_from_sub => p_from_sub,

Line 1944: IF (l_result = INV_VALIDATE.T)

1940: p_from_sub => p_from_sub,
1941: p_loc => p_loc,
1942: p_revision => p_revision);
1943:
1944: IF (l_result = INV_VALIDATE.T)
1945: THEN
1946:
1947: -- Make the call for inv_material_status_grp.is_status_applicable()
1948: -- with appropriate parameters

Line 1965: -- Assign l_result = INV_VALIDATE.F and return l_result, else return l_result

1961: p_object_type => p_object_type,
1962: p_lpn_id => p_lpn_id); -- bug 12569798
1963:
1964: -- If l_status_result = 'N', it means that the status validation has failed.
1965: -- Assign l_result = INV_VALIDATE.F and return l_result, else return l_result
1966: -- directly.
1967: IF (l_status_result = 'N')
1968: THEN
1969: l_result := INV_VALIDATE.F;

Line 1969: l_result := INV_VALIDATE.F;

1965: -- Assign l_result = INV_VALIDATE.F and return l_result, else return l_result
1966: -- directly.
1967: IF (l_status_result = 'N')
1968: THEN
1969: l_result := INV_VALIDATE.F;
1970: RETURN l_result;
1971: ELSE
1972: RETURN l_result;
1973: END IF;

Line 2432: * If it returns INV_VALIDATE.T then goahead to call

2428: l_result NUMBER;
2429: l_status_result VARCHAR2(1);
2430: BEGIN
2431: /* First call the original Validate_serial function,
2432: * If it returns INV_VALIDATE.T then goahead to call
2433: * inv_material_status_grp.is_status_applicable() function.
2434: */
2435: l_result := INV_VALIDATE.Validate_serial(
2436: p_serial => p_serial,

Line 2435: l_result := INV_VALIDATE.Validate_serial(

2431: /* First call the original Validate_serial function,
2432: * If it returns INV_VALIDATE.T then goahead to call
2433: * inv_material_status_grp.is_status_applicable() function.
2434: */
2435: l_result := INV_VALIDATE.Validate_serial(
2436: p_serial => p_serial,
2437: p_org => p_org,
2438: p_item => p_item,
2439: p_from_sub => p_from_sub,

Line 2445: IF (l_result = INV_VALIDATE.T)

2441: p_loc => p_loc,
2442: p_revision => p_revision,
2443: p_txn_type_id => p_trx_type_id);
2444:
2445: IF (l_result = INV_VALIDATE.T)
2446: THEN
2447:
2448: -- Make the call for inv_material_status_grp.is_status_applicable()
2449: -- with appropriate parameters

Line 2465: -- Assign l_result = INV_VALIDATE.F and return l_result, else return l_result

2461: p_serial_number => p_serial.serial_number,
2462: p_object_type => p_object_type);
2463:
2464: -- If l_status_result = 'N', it means that status validation has failed.
2465: -- Assign l_result = INV_VALIDATE.F and return l_result, else return l_result
2466: -- directly.
2467: IF (l_status_result = 'N')
2468: THEN
2469: l_result := INV_VALIDATE.F;

Line 2469: l_result := INV_VALIDATE.F;

2465: -- Assign l_result = INV_VALIDATE.F and return l_result, else return l_result
2466: -- directly.
2467: IF (l_status_result = 'N')
2468: THEN
2469: l_result := INV_VALIDATE.F;
2470: RETURN l_result;
2471: ELSE
2472: RETURN l_result;
2473: END IF;

Line 2521: -- From and To Serial is not of the same size return with INV_VALIDATE.F.

2517: l_errored_serial_count NUMBER := 0;
2518:
2519: BEGIN
2520:
2521: -- From and To Serial is not of the same size return with INV_VALIDATE.F.
2522: IF((p_fm_serial IS NULL) OR (p_to_serial IS NULL) OR (p_fm_serial.LAST <> p_to_serial.LAST)) THEN
2523: l_result := INV_VALIDATE.F;
2524: RETURN l_result;
2525: END IF;

Line 2523: l_result := INV_VALIDATE.F;

2519: BEGIN
2520:
2521: -- From and To Serial is not of the same size return with INV_VALIDATE.F.
2522: IF((p_fm_serial IS NULL) OR (p_to_serial IS NULL) OR (p_fm_serial.LAST <> p_to_serial.LAST)) THEN
2523: l_result := INV_VALIDATE.F;
2524: RETURN l_result;
2525: END IF;
2526:
2527: -- Check for the material status of sub,locator and lot if p_object_type = 'A'.

Line 2548: l_result := INV_VALIDATE.F;

2544: p_object_type => 'Z');
2545: -- Subinventory status validation has failed
2546: IF (l_status_result = 'N')
2547: THEN
2548: l_result := INV_VALIDATE.F;
2549: RETURN l_result;
2550: END IF;
2551: END IF;
2552:

Line 2570: l_result := INV_VALIDATE.F;

2566: p_object_type => 'L');
2567: -- Locator status validation has failed
2568: IF (l_status_result = 'N')
2569: THEN
2570: l_result := INV_VALIDATE.F;
2571: RETURN l_result;
2572: END IF;
2573: END IF;
2574:

Line 2592: l_result := INV_VALIDATE.F;

2588: p_object_type => 'O');
2589: -- Lot status validation has failed
2590: IF (l_status_result = 'N')
2591: THEN
2592: l_result := INV_VALIDATE.F;
2593: RETURN l_result;
2594: END IF;
2595: END IF;
2596: END IF;-- End of p_object_type = 'A'

Line 2620: l_result := INV_VALIDATE.F;

2616: x_from_number => l_from_number,
2617: x_to_number => l_to_number,
2618: x_errorcode => l_errorcode)
2619: THEN
2620: l_result := INV_VALIDATE.F;
2621: RETURN l_result;
2622: END IF;
2623:
2624: l_number_part := TO_NUMBER(l_from_number);

Line 2636: l_result := INV_VALIDATE.Validate_serial(

2632: -- the length of the number part
2633: l_padded_length := l_length - LENGTH(l_number_part);
2634: l_temp_serial.serial_number := RPAD(NVL(l_prefix,'0'), l_padded_length, '0') ||l_number_part;
2635: -- Calling the overloaded Validate_serial function.
2636: l_result := INV_VALIDATE.Validate_serial(
2637: p_serial => l_temp_serial,
2638: p_org => p_org,
2639: p_item => p_item,
2640: p_from_sub => p_from_sub,

Line 2649: IF (l_result = INV_VALIDATE.F) THEN

2645: p_object_type => 'S'
2646: );
2647: -- Material status for an intermediate serial has failed, add the serial to the
2648: -- errored serials list and when the count reaches 10 return from the function.
2649: IF (l_result = INV_VALIDATE.F) THEN
2650: l_errored_serial_count := l_errored_serial_count + 1;
2651: x_errored_serials(l_errored_serial_count) := l_temp_serial.serial_number;
2652: IF (l_errored_serial_count = 10) THEN
2653: l_result := INV_VALIDATE.F;

Line 2653: l_result := INV_VALIDATE.F;

2649: IF (l_result = INV_VALIDATE.F) THEN
2650: l_errored_serial_count := l_errored_serial_count + 1;
2651: x_errored_serials(l_errored_serial_count) := l_temp_serial.serial_number;
2652: IF (l_errored_serial_count = 10) THEN
2653: l_result := INV_VALIDATE.F;
2654: RETURN l_result;
2655: END IF;
2656: END IF;
2657:

Line 2664: -- If lesser than 10 serials has failed then set l_result to INV_VALIDATE.F

2660:
2661: END LOOP; -- End of WHILE
2662: END LOOP; -- End of FOR
2663:
2664: -- If lesser than 10 serials has failed then set l_result to INV_VALIDATE.F
2665: -- and return.
2666: IF (l_errored_serial_count <> 0) THEN
2667: l_result := INV_VALIDATE.F;
2668: RETURN l_result;

Line 2667: l_result := INV_VALIDATE.F;

2663:
2664: -- If lesser than 10 serials has failed then set l_result to INV_VALIDATE.F
2665: -- and return.
2666: IF (l_errored_serial_count <> 0) THEN
2667: l_result := INV_VALIDATE.F;
2668: RETURN l_result;
2669: ELSE
2670: -- Entire range of serials has passed for material status
2671: -- set the l_result to INV_VALIDATE.T and return

Line 2671: -- set the l_result to INV_VALIDATE.T and return

2667: l_result := INV_VALIDATE.F;
2668: RETURN l_result;
2669: ELSE
2670: -- Entire range of serials has passed for material status
2671: -- set the l_result to INV_VALIDATE.T and return
2672: l_result := INV_VALIDATE.T;
2673: RETURN l_result;
2674: END IF;
2675:

Line 2672: l_result := INV_VALIDATE.T;

2668: RETURN l_result;
2669: ELSE
2670: -- Entire range of serials has passed for material status
2671: -- set the l_result to INV_VALIDATE.T and return
2672: l_result := INV_VALIDATE.T;
2673: RETURN l_result;
2674: END IF;
2675:
2676: EXCEPTION

Line 2678: -- Exception has occured somewhere set the l_result to INV_VALIDATE.F

2674: END IF;
2675:
2676: EXCEPTION
2677: WHEN OTHERS THEN
2678: -- Exception has occured somewhere set the l_result to INV_VALIDATE.F
2679: -- and return
2680: l_result := INV_VALIDATE.F;
2681: RETURN l_result;
2682:

Line 2680: l_result := INV_VALIDATE.F;

2676: EXCEPTION
2677: WHEN OTHERS THEN
2678: -- Exception has occured somewhere set the l_result to INV_VALIDATE.F
2679: -- and return
2680: l_result := INV_VALIDATE.F;
2681: RETURN l_result;
2682:
2683: END validate_serial_range;
2684:

Line 3278: END INV_Validate;

3274: p_required_flag := rec_chk_loc_req.location_required_flag;
3275: END IF;
3276: CLOSE cur_chk_loc_req;
3277: END check_location_required_setup;
3278: END INV_Validate;