DBA Data[Home] [Help]

APPS.INV_DECIMALS_PUB dependencies on FND_API

Line 68: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,

64: g_max_total_digits CONSTANT NUMBER := 19 ;
65:
66: Procedure validate_compare_quantities(
67: p_api_version_number IN NUMBER,
68: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
69: p_inventory_item_id IN NUMBER,
70: p_organization_id IN NUMBER,
71: p_lot_control_code IN NUMBER,
72: p_lot_number IN VARCHAR2,

Line 123: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,

119: +--------------------------------------------------------------------------*/
120:
121: Function convert_UOM(
122: p_api_version_number IN NUMBER,
123: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
124: p_inventory_item_id IN NUMBER,
125: p_organization_id IN NUMBER,
126: p_lot_control_code IN NUMBER,
127: p_lot_number IN VARCHAR2,

Line 164: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,

160:
161:
162: Procedure get_uom_properties(
163: p_api_version_number IN NUMBER,
164: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
165: p_uom_code IN VARCHAR2,
166: x_uom_class OUT NOCOPY VARCHAR2,
167: x_base_uom OUT NOCOPY VARCHAR2,
168: x_msg_count OUT NOCOPY NUMBER,

Line 218: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,

214: +------------------------------------------------------------------------*/
215:
216: Procedure compare_quantities(
217: p_api_version_number IN NUMBER,
218: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
219: p_inventory_item_id IN NUMBER,
220: p_organization_id IN NUMBER,
221: p_lot_control_code IN NUMBER,
222: p_lot_number IN VARCHAR2,

Line 305: x_return_status := fnd_api.g_ret_sts_success;

301:
302: BEGIN
303:
304: -- initialize return status to success
305: x_return_status := fnd_api.g_ret_sts_success;
306:
307: -- now make sure that # of decimal digits does not exceed g_max_decimal_digits
308: if ( p_input_quantity <> ROUND(p_input_quantity, g_max_decimal_digits)) then
309: fnd_message.set_name('INV', 'MAX_DECIMAL_LENGTH');

Line 322: raise fnd_api.g_exc_error;

318: -- Now make sure that the length of real part of number doesn't exceed
319: -- g_max_real_digits
320: if ( trunc(abs(p_input_quantity)) > (POWER(10,g_max_real_digits) - 1) ) then
321: fnd_message.set_name('INV', 'MAX_REAL_LENGTH');
322: raise fnd_api.g_exc_error;
323: end if;
324:
325: -- now that in the given UOM the item quantity obeys the decimal precision rules
326: -- we can now make sure that when converted to primary qty, decimal precision

Line 383: raise fnd_api.g_exc_error;

379: if ( l_decimal_profile = '1' ) then -- '1'= yes, '2' = no
380:
381: if ( x_primary_quantity <> ROUND(x_primary_quantity,g_max_decimal_digits) ) then
382: fnd_message.set_name('INV', 'PRI_MAX_DECIMAL_LENGTH');
383: raise fnd_api.g_exc_error;
384: end if;
385:
386: -- Now make sure that the length of real part of number doesn't exceed
387: -- g_max_real_digits

Line 390: raise fnd_api.g_exc_error;

386: -- Now make sure that the length of real part of number doesn't exceed
387: -- g_max_real_digits
388: if ( trunc(abs(x_primary_quantity)) > ( POWER(10,g_max_real_digits) - 1) ) then
389: fnd_message.set_name('INV', 'PRI_MAX_REAL_LENGTH');
390: raise fnd_api.g_exc_error;
391: end if;
392:
393: -- now check if the quantity in primary UOM is zero
394: if ( (x_primary_quantity = 0) AND (p_input_quantity <> 0) ) then

Line 396: raise fnd_api.g_exc_error ;

392:
393: -- now check if the quantity in primary UOM is zero
394: if ( (x_primary_quantity = 0) AND (p_input_quantity <> 0) ) then
395: fnd_message.set_name('INV', 'PRI_QTY_IS_ZERO');
396: raise fnd_api.g_exc_error ;
397: end if;
398:
399: end if;
400:

Line 408: raise fnd_api.g_exc_error ;

404: -- primary UOM
405:
406: if (( l_indivisible_flag = 'Y' ) AND ( Round(x_primary_quantity,(g_max_decimal_digits-1)) <> TRUNC(x_primary_quantity)) ) then
407: fnd_message.set_name('INV', 'DIVISIBILITY_VIOLATION');
408: raise fnd_api.g_exc_error ;
409: end if;
410:
411: -- if item is serial number controlled, make the qty in primary UOM is integer
412: -- Assumption: Whenever an item is unser serial number control, teh quantity must be

Line 418: raise fnd_api.g_exc_error ;

414: -- qty of a serial number should be integer in primary uom.
415:
416: if ( (l_serial_control > 1 ) AND ( x_primary_quantity <> TRUNC(x_primary_quantity)) ) then
417: fnd_message.set_name('INV', 'SERIAL_QTY_VIOLATION');
418: raise fnd_api.g_exc_error ;
419: end if;
420:
421: if ( l_raise_warning = 1 ) then
422: raise g_inv_warning ;

Line 426: when fnd_api.g_exc_error then

422: raise g_inv_warning ;
423: end if;
424:
425: EXCEPTION
426: when fnd_api.g_exc_error then
427: x_return_status := fnd_api.g_ret_sts_error ;
428:
429: when fnd_api.g_exc_unexpected_error then
430: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 427: x_return_status := fnd_api.g_ret_sts_error ;

423: end if;
424:
425: EXCEPTION
426: when fnd_api.g_exc_error then
427: x_return_status := fnd_api.g_ret_sts_error ;
428:
429: when fnd_api.g_exc_unexpected_error then
430: x_return_status := fnd_api.g_ret_sts_unexp_error;
431:

Line 429: when fnd_api.g_exc_unexpected_error then

425: EXCEPTION
426: when fnd_api.g_exc_error then
427: x_return_status := fnd_api.g_ret_sts_error ;
428:
429: when fnd_api.g_exc_unexpected_error then
430: x_return_status := fnd_api.g_ret_sts_unexp_error;
431:
432: when g_inv_warning then
433: x_return_status := g_ret_warning ;

Line 430: x_return_status := fnd_api.g_ret_sts_unexp_error;

426: when fnd_api.g_exc_error then
427: x_return_status := fnd_api.g_ret_sts_error ;
428:
429: when fnd_api.g_exc_unexpected_error then
430: x_return_status := fnd_api.g_ret_sts_unexp_error;
431:
432: when g_inv_warning then
433: x_return_status := g_ret_warning ;
434:

Line 436: x_return_status := fnd_api.g_ret_sts_unexp_error;

432: when g_inv_warning then
433: x_return_status := g_ret_warning ;
434:
435: when others then
436: x_return_status := fnd_api.g_ret_sts_unexp_error;
437:
438: if (fnd_msg_pub.check_msg_level
439: (fnd_msg_pub.g_msg_lvl_unexp_error))then
440: fnd_msg_pub.add_exc_msg(g_package_name,c_api_name);

Line 499: x_return_status := fnd_api.g_ret_sts_success;

495:
496: BEGIN
497:
498: -- initialize return status to success
499: x_return_status := fnd_api.g_ret_sts_success;
500:
501: -- put the default = g_max_decimal_digits if l_max_decimal_digits is null
502: if (l_max_decimal_digits IS NULL) then
503: l_max_decimal_digits := g_max_decimal_digits;

Line 521: raise fnd_api.g_exc_error;

517: -- Now make sure that the length of real part of number doesn't exceed
518: -- g_max_real_digits
519: if ( trunc(abs(p_input_quantity)) > (POWER(10,g_max_real_digits) - 1) ) then
520: fnd_message.set_name('INV', 'MAX_REAL_LENGTH');
521: raise fnd_api.g_exc_error;
522: end if;
523:
524: -- now that in the given UOM the item quantity obeys the decimal precision rules
525: -- we can now make sure that when converted to primary qty, decimal precision

Line 567: raise fnd_api.g_exc_error;

563: if ( l_decimal_profile = '1' ) then -- '1'= yes, '2' = no
564:
565: if ( x_primary_quantity <> ROUND(x_primary_quantity,l_max_decimal_digits) ) then
566: fnd_message.set_name('INV', 'PRI_MAX_DECIMAL_LENGTH');
567: raise fnd_api.g_exc_error;
568: end if;
569:
570: -- Now make sure that the length of real part of number doesn't exceed
571: -- g_max_real_digits

Line 574: raise fnd_api.g_exc_error;

570: -- Now make sure that the length of real part of number doesn't exceed
571: -- g_max_real_digits
572: if ( trunc(abs(x_primary_quantity)) > ( POWER(10,g_max_real_digits) - 1) ) then
573: fnd_message.set_name('INV', 'PRI_MAX_REAL_LENGTH');
574: raise fnd_api.g_exc_error;
575: end if;
576:
577: -- now check if the quantity in primary UOM is zero
578: if ( (x_primary_quantity = 0) AND (p_input_quantity <> 0) ) then

Line 580: raise fnd_api.g_exc_error ;

576:
577: -- now check if the quantity in primary UOM is zero
578: if ( (x_primary_quantity = 0) AND (p_input_quantity <> 0) ) then
579: fnd_message.set_name('INV', 'PRI_QTY_IS_ZERO');
580: raise fnd_api.g_exc_error ;
581: end if;
582:
583: end if;
584:

Line 592: raise fnd_api.g_exc_error ;

588: -- primary UOM
589:
590: if (( l_indivisible_flag = 'Y' ) AND ( Round(x_primary_quantity,(l_max_decimal_digits-1)) <> TRUNC(x_primary_quantity)) ) then
591: fnd_message.set_name('INV', 'DIVISIBILITY_VIOLATION');
592: raise fnd_api.g_exc_error ;
593: end if;
594:
595: -- if item is serial number controlled, make the qty in primary UOM is integer
596: -- Assumption: Whenever an item is unser serial number control, teh quantity must be

Line 602: raise fnd_api.g_exc_error ;

598: -- qty of a serial number should be integer in primary uom.
599:
600: if ( (l_serial_control > 1 ) AND ( x_primary_quantity <> TRUNC(x_primary_quantity)) ) then
601: fnd_message.set_name('INV', 'SERIAL_QTY_VIOLATION');
602: raise fnd_api.g_exc_error ;
603: end if;
604:
605: if ( l_raise_warning = 1 ) then
606: raise g_inv_warning ;

Line 610: when fnd_api.g_exc_error then

606: raise g_inv_warning ;
607: end if;
608:
609: EXCEPTION
610: when fnd_api.g_exc_error then
611: x_return_status := fnd_api.g_ret_sts_error ;
612:
613: when fnd_api.g_exc_unexpected_error then
614: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 611: x_return_status := fnd_api.g_ret_sts_error ;

607: end if;
608:
609: EXCEPTION
610: when fnd_api.g_exc_error then
611: x_return_status := fnd_api.g_ret_sts_error ;
612:
613: when fnd_api.g_exc_unexpected_error then
614: x_return_status := fnd_api.g_ret_sts_unexp_error;
615:

Line 613: when fnd_api.g_exc_unexpected_error then

609: EXCEPTION
610: when fnd_api.g_exc_error then
611: x_return_status := fnd_api.g_ret_sts_error ;
612:
613: when fnd_api.g_exc_unexpected_error then
614: x_return_status := fnd_api.g_ret_sts_unexp_error;
615:
616: when g_inv_warning then
617: x_return_status := g_ret_warning ;

Line 614: x_return_status := fnd_api.g_ret_sts_unexp_error;

610: when fnd_api.g_exc_error then
611: x_return_status := fnd_api.g_ret_sts_error ;
612:
613: when fnd_api.g_exc_unexpected_error then
614: x_return_status := fnd_api.g_ret_sts_unexp_error;
615:
616: when g_inv_warning then
617: x_return_status := g_ret_warning ;
618:

Line 620: x_return_status := fnd_api.g_ret_sts_unexp_error;

616: when g_inv_warning then
617: x_return_status := g_ret_warning ;
618:
619: when others then
620: x_return_status := fnd_api.g_ret_sts_unexp_error;
621:
622: if (fnd_msg_pub.check_msg_level
623: (fnd_msg_pub.g_msg_lvl_unexp_error))then
624: fnd_msg_pub.add_exc_msg(g_package_name,c_api_name);