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 411: raise fnd_api.g_exc_error ;

407: when x_primary_quantity is on the lower side of the rounded value */
408:
409: if (( l_indivisible_flag = 'Y' ) AND ( Round(x_primary_quantity,(g_max_decimal_digits-1)) <> TRUNC( Round(x_primary_quantity,(g_max_decimal_digits-1)))) ) then
410: fnd_message.set_name('INV', 'DIVISIBILITY_VIOLATION');
411: raise fnd_api.g_exc_error ;
412: end if;
413:
414: -- if item is serial number controlled, make the qty in primary UOM is integer
415: -- Assumption: Whenever an item is unser serial number control, teh quantity must be

Line 421: raise fnd_api.g_exc_error ;

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

Line 429: when fnd_api.g_exc_error then

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

Line 430: x_return_status := fnd_api.g_ret_sts_error ;

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

Line 432: when fnd_api.g_exc_unexpected_error then

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

Line 433: x_return_status := fnd_api.g_ret_sts_unexp_error;

429: when fnd_api.g_exc_error then
430: x_return_status := fnd_api.g_ret_sts_error ;
431:
432: when fnd_api.g_exc_unexpected_error then
433: x_return_status := fnd_api.g_ret_sts_unexp_error;
434:
435: when g_inv_warning then
436: x_return_status := g_ret_warning ;
437:

Line 439: x_return_status := fnd_api.g_ret_sts_unexp_error;

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

Line 502: x_return_status := fnd_api.g_ret_sts_success;

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

Line 524: raise fnd_api.g_exc_error;

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

Line 570: raise fnd_api.g_exc_error;

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

Line 577: raise fnd_api.g_exc_error;

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

Line 583: raise fnd_api.g_exc_error ;

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

Line 595: raise fnd_api.g_exc_error ;

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

Line 605: raise fnd_api.g_exc_error ;

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

Line 613: when fnd_api.g_exc_error then

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

Line 614: x_return_status := fnd_api.g_ret_sts_error ;

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

Line 616: when fnd_api.g_exc_unexpected_error then

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

Line 617: x_return_status := fnd_api.g_ret_sts_unexp_error;

613: when fnd_api.g_exc_error then
614: x_return_status := fnd_api.g_ret_sts_error ;
615:
616: when fnd_api.g_exc_unexpected_error then
617: x_return_status := fnd_api.g_ret_sts_unexp_error;
618:
619: when g_inv_warning then
620: x_return_status := g_ret_warning ;
621:

Line 623: x_return_status := fnd_api.g_ret_sts_unexp_error;

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