[Home] [Help]
7: PROCEDURE print_debug(p_err_msg VARCHAR2, p_level NUMBER) IS
8: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
9: BEGIN
10: IF (l_debug = 1) THEN
11: inv_mobile_helper_functions.tracelog(p_err_msg => p_err_msg, p_module => 'inv_RCV_COMMON_APIS', p_level => p_level);
12: END IF;
13: END print_debug;
14:
15: PROCEDURE init_startup_values(p_organization_id IN NUMBER) IS
420: CLOSE get_all_items_in_lpn;
421: END IF;
422:
423: IF SQLCODE IS NOT NULL THEN
424: inv_mobile_helper_functions.sql_error('check_lot_serial_codes', l_progress, SQLCODE);
425: END IF;
426: END check_lot_serial_codes;
427:
428: PROCEDURE insert_msnt(p_msnt_rec mtl_serial_numbers_temp%ROWTYPE) IS
1423: WHEN OTHERS THEN
1424: x_return_status := fnd_api.g_ret_sts_unexp_error;
1425:
1426: IF SQLCODE IS NOT NULL THEN
1427: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.gen_receipt_num', l_progress, SQLCODE);
1428: END IF;
1429:
1430: fnd_message.set_name('PO', 'PO_SP_GET_NEXT_AUTO_RECEIPT_NM');
1431: fnd_msg_pub.ADD;
1765: END IF;
1766:
1767: --
1768: IF SQLCODE IS NOT NULL THEN
1769: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.init_form_values', l_progress, SQLCODE);
1770: END IF;
1771:
1772: -- Get message count and data
1773: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => l_msg_data);
1930: END IF;
1931:
1932: --
1933: IF SQLCODE IS NOT NULL THEN
1934: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.init_rcv_ui_startup_values', l_progress, SQLCODE);
1935: END IF;
1936:
1937: -- Get message count and data
1938: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
2393: CLOSE l_curs_asn_lpn_content_new;
2394: END IF;
2395:
2396: IF SQLCODE IS NOT NULL THEN
2397: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.get_asn_routing_id', l_progress, SQLCODE);
2398: END IF;
2399:
2400: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2401:
3080: print_debug('Exiting get_routing_id - other exception:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3081: END IF;
3082:
3083: IF SQLCODE IS NOT NULL THEN
3084: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.get_routing_id', l_progress, SQLCODE);
3085: END IF;
3086:
3087: -- Get message count and data
3088: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3179: ROLLBACK TO rcv_create_lpn_sp;
3180: x_return_status := fnd_api.g_ret_sts_unexp_error;
3181:
3182: IF SQLCODE IS NOT NULL THEN
3183: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.create_lpn', l_progress, SQLCODE);
3184: END IF;
3185:
3186: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3187: END create_lpn;
3297: WHEN OTHERS THEN
3298: x_return_status := fnd_api.g_ret_sts_unexp_error;
3299:
3300: IF SQLCODE IS NOT NULL THEN
3301: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.insert_lot', l_progress, SQLCODE);
3302: END IF;
3303:
3304: IF (l_debug = 1) THEN
3305: print_debug('Exitting insert_lot - other exception:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3470: WHEN OTHERS THEN
3471: x_return_status := fnd_api.g_ret_sts_unexp_error;
3472:
3473: IF SQLCODE IS NOT NULL THEN
3474: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.insert_serial', l_progress, SQLCODE);
3475: END IF;
3476:
3477: IF (l_debug = 1) THEN
3478: print_debug('Exitting insert_serial - other exception:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3652: EXCEPTION
3653: WHEN OTHERS THEN
3654: x_return_status := fnd_api.g_ret_sts_unexp_error;
3655: IF SQLCODE IS NOT NULL THEN
3656: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_uom_code', l_progress, SQLCODE);
3657: END IF;
3658:
3659: IF (l_debug = 1) THEN
3660: print_debug('Exitting get_uom_code - other exception:' || l_progress ||' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4088: WHEN OTHERS THEN
4089: x_return_status := fnd_api.g_ret_sts_unexp_error;
4090:
4091: IF SQLCODE IS NOT NULL THEN
4092: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_sub_code', l_progress, SQLCODE);
4093: END IF;
4094:
4095: IF (l_debug = 1) THEN
4096: print_debug('Exitting get_sub_code - other exception:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4242: WHEN OTHERS THEN
4243: x_return_status := fnd_api.g_ret_sts_unexp_error;
4244:
4245: IF SQLCODE IS NOT NULL THEN
4246: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_location_code', l_progress, SQLCODE);
4247: END IF;
4248:
4249: IF (l_debug = 1) THEN
4250: print_debug('Exitting get_location_code - other exception: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4448: WHEN OTHERS THEN
4449: x_return_status := fnd_api.g_ret_sts_unexp_error;
4450:
4451: IF SQLCODE IS NOT NULL THEN
4452: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_revision_code', l_progress, SQLCODE);
4453: END IF;
4454:
4455: IF (l_debug = 1) THEN
4456: print_debug('Exitting get_revision_code - other exception: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4661: EXCEPTION
4662: WHEN OTHERS THEN
4663: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4664: IF SQLCODE IS NOT NULL THEN
4665: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_sub_code', '10', SQLCODE);
4666: END IF;
4667: IF (l_debug = 1) THEN
4668: print_debug('Exitting populatelotattributes - other exception:'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 1);
4669: END IF;
4787: , x_msg_count => x_msg_count
4788: , x_msg_data => x_msg_data
4789: );
4790: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
4791: inv_mobile_helper_functions.get_stacked_messages(l_stacked_messages);
4792: IF (l_debug = 1) THEN
4793: print_debug('The following messege is removed: ' ||
4794: l_stacked_messages,1);
4795: END IF;
5118:
5119: x_return_status := fnd_api.g_ret_sts_unexp_error;
5120:
5121: IF SQLCODE IS NOT NULL THEN
5122: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.insert_range_serial', l_progress, SQLCODE);
5123: END IF;
5124:
5125: --
5126: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
5409: print_debug('Exitting update_serial_status - other exceptions:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5410: END IF;
5411:
5412: IF SQLCODE IS NOT NULL THEN
5413: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.update_serial_status', l_progress, SQLCODE);
5414: END IF;
5415:
5416: --
5417: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
5581: print_debug('Exitting process_lot - other exceptions:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5582: END IF;
5583:
5584: IF SQLCODE IS NOT NULL THEN
5585: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.process_lot', l_progress, SQLCODE);
5586: END IF;
5587:
5588: --
5589: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
5643: WHEN OTHERS THEN
5644: x_return_status := fnd_api.g_ret_sts_error;
5645:
5646: IF SQLCODE IS NOT NULL THEN
5647: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.validate_trx_date', '10', SQLCODE);
5648: END IF;
5649:
5650: fnd_message.set_name('PO', 'PO_PO_ENTER_OPEN_GL_DATE');
5651: fnd_msg_pub.ADD;
5663: WHEN OTHERS THEN
5664: x_return_status := fnd_api.g_ret_sts_error;
5665:
5666: IF SQLCODE IS NOT NULL THEN
5667: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.validate_trx_date', '20', SQLCODE);
5668: END IF;
5669:
5670: fnd_message.set_name('PO', 'PO_INV_NO_OPEN_PERIOD');
5671: fnd_msg_pub.ADD;
5986: , 1);
5987: END IF;
5988:
5989: IF SQLCODE IS NOT NULL THEN
5990: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.get_req_shipment_header_id', l_progress, SQLCODE);
5991: END IF;
5992: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5993: END;
5994:
6100: , 1);
6101: END IF;
6102:
6103: IF SQLCODE IS NOT NULL THEN
6104: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.get_req_shipment_header_id', l_progress, SQLCODE);
6105: END IF;
6106:
6107: -- Get message count and data
6108: fnd_msg_pub.count_and_get(
6567: ROLLBACK TO rcv_create_cross_reference_sp;
6568: x_return_status := fnd_api.g_ret_sts_unexp_error;
6569:
6570: IF SQLCODE IS NOT NULL THEN
6571: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.create_cross_reference', l_progress, SQLCODE);
6572: END IF;
6573:
6574: fnd_msg_pub.count_and_get(
6575: p_encoded => fnd_api.g_false,
6975: print_debug(SQLCODE, 1);
6976:
6977: IF SQLCODE IS NOT NULL THEN
6978: l_progress := 100;
6979: inv_mobile_helper_functions.sql_error('validate_nested_lpns', l_progress, SQLCODE);
6980: END IF;
6981: END validate_nested_lpn;
6982:
6983: /**
7182: EXCEPTION
7183: WHEN OTHERS THEN
7184: x_return_status := fnd_api.g_ret_sts_unexp_error;
7185: IF SQLCODE IS NOT NULL THEN
7186: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_sub_code', l_progress, SQLCODE);
7187: END IF;
7188: IF (l_debug = 1) THEN
7189: print_debug('Exitting get_sub_code - other exception:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7190: END IF;
7451: WHEN OTHERS THEN
7452: x_return_status := fnd_api.g_ret_sts_unexp_error;
7453:
7454: IF SQLCODE IS NOT NULL THEN
7455: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.validate_from_lpn', l_progress, SQLCODE);
7456: END IF;
7457:
7458: IF (l_debug = 1) THEN
7459: print_debug('Exitting validate_from_lpn - other exception:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7670:
7671: x_return_status := fnd_api.g_ret_sts_unexp_error;
7672:
7673: IF SQLCODE IS NOT NULL THEN
7674: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_rec_uom_code', l_progress, SQLCODE);
7675: END IF;
7676:
7677: IF (l_debug = 1) THEN
7678: print_debug('Exiting get_rec_uom_code - other exception:' || l_progress ||' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);