249: l_rcv_transaction_rec inv_rcv_std_rcpt_apis.rcv_transaction_rec_tp; -- rcv_transaction block
250: l_transaction_type VARCHAR2(20) := 'DELIVER';
251: l_total_primary_qty NUMBER := 0;
252: l_msg_count NUMBER;
253: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
254: l_group_id NUMBER;
255: l_rcv_rcpt_rec inv_rcv_std_rcpt_apis.rcv_enter_receipts_rec_tp;
256: l_err_message VARCHAR2(100);
257: l_temp_message VARCHAR2(100);
416: --table to store all RTId, quantity and original_rti_id for lot/serial splits
417: l_new_rti_info inv_rcv_integration_apis.child_rec_tb_tp;
418: l_split_lot_serial_ok BOOLEAN; --Return status of lot_serial_split API
419: BEGIN
420: x_status := fnd_api.g_ret_sts_success;
421:
422: IF (l_debug = 1) THEN
423: print_debug('Enter create_osp_drct_dlvr_rti_rec: 1 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
424: END IF;
541: );
542: END IF;
543:
544: -- x_status is not successful if there is any execution error in matching.
545: IF x_status = fnd_api.g_ret_sts_error THEN
546: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
547: fnd_msg_pub.ADD;
548:
549: IF (l_debug = 1) THEN
549: IF (l_debug = 1) THEN
550: print_debug('create_osp_drct_dlvr_rti_rec 60.1: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
551: END IF;
552:
553: RAISE fnd_api.g_exc_error;
554: END IF;
555:
556: IF x_status = fnd_api.g_ret_sts_unexp_error THEN
557: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
552:
553: RAISE fnd_api.g_exc_error;
554: END IF;
555:
556: IF x_status = fnd_api.g_ret_sts_unexp_error THEN
557: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
558: fnd_msg_pub.ADD;
559:
560: IF (l_debug = 1) THEN
562: 'Exiting create_osp_drct_dlvr_rti_rec 60.2: Unexpect error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
563: , 1
564: );
565: END IF;
566: RAISE fnd_api.g_exc_unexpected_error;
567: END IF;
568:
569: IF inv_rcv_std_rcpt_apis.g_rcpt_match_table_gross(inv_rcv_std_rcpt_apis.g_receipt_detail_index).error_status = 'E' THEN
570: l_err_message := inv_rcv_std_rcpt_apis.g_rcpt_match_table_gross(inv_rcv_std_rcpt_apis.g_receipt_detail_index).error_message;
574: IF (l_debug = 1) THEN
575: print_debug('create_osp_drct_dlvr_rti_rec 70: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
576: END IF;
577:
578: RAISE fnd_api.g_exc_error;
579: END IF;
580:
581: l_err_message := '@@@';
582:
717: l_new_rti_info(1).quantity := l_rcv_transaction_rec.transaction_qty;
718:
719: l_split_lot_serial_ok := inv_rcv_integration_apis.split_lot_serial(
720: p_api_version => 1.0
721: , p_init_msg_lst => FND_API.G_FALSE
722: , x_return_status => l_return_status
723: , x_msg_count => l_msg_count
724: , x_msg_data => x_message
725: , p_new_rti_info => l_new_rti_info);
726: IF ( NOT l_split_lot_serial_ok) THEN
727: IF (l_debug = 1) THEN
728: print_debug('create_osp_drct_dlvr_rti_rec 8.1: Failure in split_lot_serial', 4);
729: END IF;
730: RAISE FND_API.G_EXC_ERROR;
731: END IF;
732:
733: IF (l_debug = 1) THEN
734: print_debug('create_osp_drct_dlvr_rti_rec 8.2: Call split_lot_serial is OK', 4);
750: , x_msg_count => l_msg_count
751: , x_msg_data => x_message
752: );
753:
754: IF l_return_status <> fnd_api.g_ret_sts_success THEN
755: x_status := l_return_status;
756: END IF;
757:
758: l_progress := '70';
762: IF (l_debug = 1) THEN
763: print_debug('Exiting create_osp_drct_dlvr_rti_rec:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
764: END IF;
765: EXCEPTION
766: WHEN fnd_api.g_exc_error THEN
767: ROLLBACK TO crt_po_rti_sp;
768: x_status := fnd_api.g_ret_sts_error;
769:
770: IF l_curs_rcpt_detail%ISOPEN THEN
764: END IF;
765: EXCEPTION
766: WHEN fnd_api.g_exc_error THEN
767: ROLLBACK TO crt_po_rti_sp;
768: x_status := fnd_api.g_ret_sts_error;
769:
770: IF l_curs_rcpt_detail%ISOPEN THEN
771: CLOSE l_curs_rcpt_detail;
772: END IF;
770: IF l_curs_rcpt_detail%ISOPEN THEN
771: CLOSE l_curs_rcpt_detail;
772: END IF;
773:
774: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
775:
776: IF (l_debug = 1) THEN
777: print_debug('create_osp_drct_dlvr_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
778: END IF;
773:
774: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
775:
776: IF (l_debug = 1) THEN
777: print_debug('create_osp_drct_dlvr_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
778: END IF;
779: WHEN fnd_api.g_exc_unexpected_error THEN
780: ROLLBACK TO crt_po_rti_sp;
781: x_status := fnd_api.g_ret_sts_unexp_error;
775:
776: IF (l_debug = 1) THEN
777: print_debug('create_osp_drct_dlvr_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
778: END IF;
779: WHEN fnd_api.g_exc_unexpected_error THEN
780: ROLLBACK TO crt_po_rti_sp;
781: x_status := fnd_api.g_ret_sts_unexp_error;
782:
783: IF l_curs_rcpt_detail%ISOPEN THEN
777: print_debug('create_osp_drct_dlvr_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
778: END IF;
779: WHEN fnd_api.g_exc_unexpected_error THEN
780: ROLLBACK TO crt_po_rti_sp;
781: x_status := fnd_api.g_ret_sts_unexp_error;
782:
783: IF l_curs_rcpt_detail%ISOPEN THEN
784: CLOSE l_curs_rcpt_detail;
785: END IF;
783: IF l_curs_rcpt_detail%ISOPEN THEN
784: CLOSE l_curs_rcpt_detail;
785: END IF;
786:
787: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
788:
789: IF (l_debug = 1) THEN
790: print_debug('create_osp_drct_dlvr_rti_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
791: END IF;
786:
787: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
788:
789: IF (l_debug = 1) THEN
790: print_debug('create_osp_drct_dlvr_rti_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
791: END IF;
792: WHEN OTHERS THEN
793: ROLLBACK TO crt_po_rti_sp;
794: x_status := fnd_api.g_ret_sts_unexp_error;
790: print_debug('create_osp_drct_dlvr_rti_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
791: END IF;
792: WHEN OTHERS THEN
793: ROLLBACK TO crt_po_rti_sp;
794: x_status := fnd_api.g_ret_sts_unexp_error;
795:
796: IF l_curs_rcpt_detail%ISOPEN THEN
797: CLOSE l_curs_rcpt_detail;
798: END IF;
800: IF SQLCODE IS NOT NULL THEN
801: inv_mobile_helper_functions.sql_error('inv_rcv_dir_rcpt_apis.create_osp_drct_dlvr_rti_rec', l_progress, SQLCODE);
802: END IF;
803:
804: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
805:
806: IF (l_debug = 1) THEN
807: print_debug('create_osp_drct_dlvr_rti_rec: OTHER exception : ' || SQLCODE || ' '
808: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
863: l_rcv_transaction_rec inv_rcv_std_rcpt_apis.rcv_transaction_rec_tp; -- rcv_transaction block
864: l_transaction_type VARCHAR2(20) := 'DELIVER';
865: l_total_primary_qty NUMBER := 0;
866: l_msg_count NUMBER;
867: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
868: l_group_id NUMBER;
869: l_rcv_rcpt_rec inv_rcv_std_rcpt_apis.rcv_enter_receipts_rec_tp;
870: --l_mmtt_rec mtl_material_transactions_temp%ROWTYPE;
871:
1041: l_new_rti_info inv_rcv_integration_apis.child_rec_tb_tp;
1042: l_split_lot_serial_ok BOOLEAN; --Return status of lot_serial_split API
1043: l_msni_count NUMBER := 0;
1044: BEGIN
1045: x_status := fnd_api.g_ret_sts_success;
1046:
1047: IF (l_debug = 1) THEN
1048: print_debug('Enter create_po_drct_dlvr_rti_rec: 1 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1049: END IF;
1176: , 4);
1177: END IF;
1178:
1179: -- x_status is not successful if there is any execution error in matching.
1180: IF x_status = fnd_api.g_ret_sts_error THEN
1181: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
1182: fnd_msg_pub.ADD;
1183:
1184: IF (l_debug = 1) THEN
1184: IF (l_debug = 1) THEN
1185: print_debug('create_po_drct_dlvr_rti_rec 60.1: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1186: END IF;
1187:
1188: RAISE fnd_api.g_exc_error;
1189: END IF;
1190:
1191: IF x_status = fnd_api.g_ret_sts_unexp_error THEN
1192: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
1187:
1188: RAISE fnd_api.g_exc_error;
1189: END IF;
1190:
1191: IF x_status = fnd_api.g_ret_sts_unexp_error THEN
1192: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
1193: fnd_msg_pub.ADD;
1194:
1195: IF (l_debug = 1) THEN
1197: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
1198: , 1);
1199: END IF;
1200:
1201: RAISE fnd_api.g_exc_unexpected_error;
1202: END IF;
1203:
1204: IF inv_rcv_std_rcpt_apis.g_rcpt_match_table_gross(inv_rcv_std_rcpt_apis.g_receipt_detail_index).error_status = 'E' THEN
1205: l_err_message := inv_rcv_std_rcpt_apis.g_rcpt_match_table_gross(inv_rcv_std_rcpt_apis.g_receipt_detail_index).error_message;
1209: IF (l_debug = 1) THEN
1210: print_debug('create_po_drct_dlvr_rti_rec 70: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1211: END IF;
1212:
1213: RAISE fnd_api.g_exc_error;
1214: END IF;
1215:
1216: l_err_message := '@@@';
1217:
1466: END IF;--IF (l_rcv_rcpt_rec.serial_number_control_code = 6) THEN
1467:
1468: l_split_lot_serial_ok := inv_rcv_integration_apis.split_lot_serial(
1469: p_api_version => 1.0
1470: , p_init_msg_lst => FND_API.G_FALSE
1471: , x_return_status => l_return_status
1472: , x_msg_count => l_msg_count
1473: , x_msg_data => x_message
1474: , p_new_rti_info => l_new_rti_info);
1475: IF ( NOT l_split_lot_serial_ok) THEN
1476: IF (l_debug = 1) THEN
1477: print_debug('create_po_drct_dlvr_rti_rec 10.1: Failure in split_lot_serial', 4);
1478: END IF;
1479: RAISE FND_API.G_EXC_ERROR;
1480: END IF;
1481:
1482: IF (l_debug = 1) THEN
1483: print_debug('create_po_drct_dlvr_rti_rec 10.2: Call split_lot_serial is OK', 4);
1497: , x_msg_count => l_msg_count
1498: , x_msg_data => x_message
1499: );
1500:
1501: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1502: x_status := l_return_status;
1503: END IF;
1504:
1505: l_progress := '100';
1509: IF (l_debug = 1) THEN
1510: print_debug('Exiting create_po_drct_dlvr_rti_rec:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1511: END IF;
1512: EXCEPTION
1513: WHEN fnd_api.g_exc_error THEN
1514: ROLLBACK TO crt_po_rti_sp;
1515: x_status := fnd_api.g_ret_sts_error;
1516:
1517: IF l_curs_rcpt_detail%ISOPEN THEN
1511: END IF;
1512: EXCEPTION
1513: WHEN fnd_api.g_exc_error THEN
1514: ROLLBACK TO crt_po_rti_sp;
1515: x_status := fnd_api.g_ret_sts_error;
1516:
1517: IF l_curs_rcpt_detail%ISOPEN THEN
1518: CLOSE l_curs_rcpt_detail;
1519: END IF;
1517: IF l_curs_rcpt_detail%ISOPEN THEN
1518: CLOSE l_curs_rcpt_detail;
1519: END IF;
1520:
1521: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
1522:
1523: IF (l_debug = 1) THEN
1524: print_debug('create_po_drct_dlvr_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1525: END IF;
1520:
1521: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
1522:
1523: IF (l_debug = 1) THEN
1524: print_debug('create_po_drct_dlvr_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1525: END IF;
1526: WHEN fnd_api.g_exc_unexpected_error THEN
1527: ROLLBACK TO crt_po_rti_sp;
1528: x_status := fnd_api.g_ret_sts_unexp_error;
1522:
1523: IF (l_debug = 1) THEN
1524: print_debug('create_po_drct_dlvr_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1525: END IF;
1526: WHEN fnd_api.g_exc_unexpected_error THEN
1527: ROLLBACK TO crt_po_rti_sp;
1528: x_status := fnd_api.g_ret_sts_unexp_error;
1529:
1530: IF l_curs_rcpt_detail%ISOPEN THEN
1524: print_debug('create_po_drct_dlvr_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1525: END IF;
1526: WHEN fnd_api.g_exc_unexpected_error THEN
1527: ROLLBACK TO crt_po_rti_sp;
1528: x_status := fnd_api.g_ret_sts_unexp_error;
1529:
1530: IF l_curs_rcpt_detail%ISOPEN THEN
1531: CLOSE l_curs_rcpt_detail;
1532: END IF;
1530: IF l_curs_rcpt_detail%ISOPEN THEN
1531: CLOSE l_curs_rcpt_detail;
1532: END IF;
1533:
1534: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
1535:
1536: IF (l_debug = 1) THEN
1537: print_debug('create_po_drct_dlvr_rti_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1538: END IF;
1533:
1534: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
1535:
1536: IF (l_debug = 1) THEN
1537: print_debug('create_po_drct_dlvr_rti_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1538: END IF;
1539: WHEN OTHERS THEN
1540: ROLLBACK TO crt_po_rti_sp;
1541: x_status := fnd_api.g_ret_sts_unexp_error;
1537: print_debug('create_po_drct_dlvr_rti_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1538: END IF;
1539: WHEN OTHERS THEN
1540: ROLLBACK TO crt_po_rti_sp;
1541: x_status := fnd_api.g_ret_sts_unexp_error;
1542:
1543: IF l_curs_rcpt_detail%ISOPEN THEN
1544: CLOSE l_curs_rcpt_detail;
1545: END IF;
1547: IF SQLCODE IS NOT NULL THEN
1548: inv_mobile_helper_functions.sql_error('inv_rcv_dir_rcpt_apis.create_po_drct_dlvr_rti_rec', l_progress, SQLCODE);
1549: END IF;
1550:
1551: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
1552:
1553: IF (l_debug = 1) THEN
1554: print_debug('create_po_drct_dlvr_rti_rec: OTHER exception : ' || SQLCODE || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
1555: , 4);
1603: l_rcv_transaction_rec inv_rcv_std_rcpt_apis.rcv_transaction_rec_tp; -- rcv_transaction block
1604: l_transaction_type VARCHAR2(20) := 'DELIVER';
1605: l_total_primary_qty NUMBER := 0;
1606: l_msg_count NUMBER;
1607: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1608: l_group_id NUMBER;
1609: l_rcv_rcpt_rec inv_rcv_std_rcpt_apis.rcv_enter_receipts_rec_tp;
1610: l_mmtt_rec mtl_material_transactions_temp%ROWTYPE;
1611: l_err_message VARCHAR2(100);
1815: l_rcpt_lots l_curs_rcpt_lots_detail%ROWTYPE;
1816: l_transaction_quantity NUMBER;
1817:
1818: BEGIN
1819: x_status := fnd_api.g_ret_sts_success;
1820:
1821: IF (l_debug = 1) THEN
1822: print_debug('Enter create_int_shp_dr_del_rti_rec: 1 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1823: END IF;
2017: print_debug('create_int_shp_dr_del_rti_rec: 4.3 - after matching l_msg_data = ' || x_message, 4);
2018: END IF;
2019:
2020: -- x_status is not successful if there is any execution error in matching.
2021: IF x_status = fnd_api.g_ret_sts_error THEN
2022: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
2023: fnd_msg_pub.ADD;
2024:
2025: IF (l_debug = 1) THEN
2025: IF (l_debug = 1) THEN
2026: print_debug('create_int_shp_dr_del_rti_rec 60.1: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2027: END IF;
2028:
2029: RAISE fnd_api.g_exc_error;
2030: END IF;
2031:
2032: IF x_status = fnd_api.g_ret_sts_unexp_error THEN
2033: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
2028:
2029: RAISE fnd_api.g_exc_error;
2030: END IF;
2031:
2032: IF x_status = fnd_api.g_ret_sts_unexp_error THEN
2033: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
2034: fnd_msg_pub.ADD;
2035:
2036: IF (l_debug = 1) THEN
2038: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
2039: , 1);
2040: END IF;
2041:
2042: RAISE fnd_api.g_exc_unexpected_error;
2043: END IF;
2044:
2045: IF inv_rcv_std_rcpt_apis.g_rcpt_match_table_gross(inv_rcv_std_rcpt_apis.g_receipt_detail_index).error_status = 'E' THEN
2046: l_err_message := inv_rcv_std_rcpt_apis.g_rcpt_match_table_gross(inv_rcv_std_rcpt_apis.g_receipt_detail_index).error_message;
2050: IF (l_debug = 1) THEN
2051: print_debug('create_int_shp_dr_del_rti_rec 70: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2052: END IF;
2053:
2054: RAISE fnd_api.g_exc_error;
2055: END IF;
2056:
2057: l_err_message := '@@@';
2058:
2332: END IF;--IF (l_rcv_rcpt_rec.serial_number_control_code = 6) THEN
2333:
2334: l_split_lot_serial_ok := inv_rcv_integration_apis.split_lot_serial(
2335: p_api_version => 1.0
2336: , p_init_msg_lst => FND_API.G_FALSE
2337: , x_return_status => l_return_status
2338: , x_msg_count => l_msg_count
2339: , x_msg_data => x_message
2340: , p_new_rti_info => l_new_rti_info);
2341: IF ( NOT l_split_lot_serial_ok) THEN
2342: IF (l_debug = 1) THEN
2343: print_debug('create_int_shp_dr_del_rti_rec 129.1: Failure in split_lot_serial', 4);
2344: END IF;
2345: RAISE FND_API.G_EXC_ERROR;
2346: END IF;
2347:
2348: IF (l_debug = 1) THEN
2349: print_debug('create_int_shp_dr_del_rti_rec 128.2: Call split_lot_serial is OK', 4);
2363: , x_msg_count => l_msg_count
2364: , x_msg_data => x_message
2365: );
2366:
2367: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2368: x_status := l_return_status;
2369: END IF;
2370:
2371: l_progress := '100';
2375: IF (l_debug = 1) THEN
2376: print_debug('About exit create_int_shp_dr_del_rti_rec: 130 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2377: END IF;
2378: EXCEPTION
2379: WHEN fnd_api.g_exc_error THEN
2380: ROLLBACK TO crt_intship_rti_sp;
2381: x_status := fnd_api.g_ret_sts_error;
2382:
2383: IF l_curs_rcpt_detail%ISOPEN THEN
2377: END IF;
2378: EXCEPTION
2379: WHEN fnd_api.g_exc_error THEN
2380: ROLLBACK TO crt_intship_rti_sp;
2381: x_status := fnd_api.g_ret_sts_error;
2382:
2383: IF l_curs_rcpt_detail%ISOPEN THEN
2384: CLOSE l_curs_rcpt_detail;
2385: END IF;
2383: IF l_curs_rcpt_detail%ISOPEN THEN
2384: CLOSE l_curs_rcpt_detail;
2385: END IF;
2386:
2387: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
2388:
2389: IF (l_debug = 1) THEN
2390: print_debug('create_int_shp_dr_del_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2391: END IF;
2386:
2387: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
2388:
2389: IF (l_debug = 1) THEN
2390: print_debug('create_int_shp_dr_del_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2391: END IF;
2392: WHEN fnd_api.g_exc_unexpected_error THEN
2393: ROLLBACK TO crt_intship_rti_sp;
2394: x_status := fnd_api.g_ret_sts_unexp_error;
2388:
2389: IF (l_debug = 1) THEN
2390: print_debug('create_int_shp_dr_del_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2391: END IF;
2392: WHEN fnd_api.g_exc_unexpected_error THEN
2393: ROLLBACK TO crt_intship_rti_sp;
2394: x_status := fnd_api.g_ret_sts_unexp_error;
2395:
2396: IF l_curs_rcpt_detail%ISOPEN THEN
2390: print_debug('create_int_shp_dr_del_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2391: END IF;
2392: WHEN fnd_api.g_exc_unexpected_error THEN
2393: ROLLBACK TO crt_intship_rti_sp;
2394: x_status := fnd_api.g_ret_sts_unexp_error;
2395:
2396: IF l_curs_rcpt_detail%ISOPEN THEN
2397: CLOSE l_curs_rcpt_detail;
2398: END IF;
2396: IF l_curs_rcpt_detail%ISOPEN THEN
2397: CLOSE l_curs_rcpt_detail;
2398: END IF;
2399:
2400: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
2401:
2402: IF (l_debug = 1) THEN
2403: print_debug('create_int_shp_dr_del_rti_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2404: END IF;
2399:
2400: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
2401:
2402: IF (l_debug = 1) THEN
2403: print_debug('create_int_shp_dr_del_rti_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2404: END IF;
2405: WHEN OTHERS THEN
2406: ROLLBACK TO crt_intship_rti_sp;
2407: x_status := fnd_api.g_ret_sts_unexp_error;
2403: print_debug('create_int_shp_dr_del_rti_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2404: END IF;
2405: WHEN OTHERS THEN
2406: ROLLBACK TO crt_intship_rti_sp;
2407: x_status := fnd_api.g_ret_sts_unexp_error;
2408:
2409: IF l_curs_rcpt_detail%ISOPEN THEN
2410: CLOSE l_curs_rcpt_detail;
2411: END IF;
2413: IF SQLCODE IS NOT NULL THEN
2414: inv_mobile_helper_functions.sql_error('inv_rcv_dir_rcpt_apis.create_int_shp_dr_del_rti_rec', l_progress, SQLCODE);
2415: END IF;
2416:
2417: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
2418: END create_int_shp_dr_del_rti_rec;
2419:
2420: PROCEDURE create_rma_drct_dlvr_rti_rec(
2421: p_move_order_header_id IN OUT NOCOPY NUMBER
2463: l_rcv_transaction_rec inv_rcv_std_rcpt_apis.rcv_transaction_rec_tp; -- rcv_transaction block
2464: l_transaction_type VARCHAR2(20) := 'DELIVER';
2465: l_total_primary_qty NUMBER := 0;
2466: l_msg_count NUMBER;
2467: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2468: l_group_id NUMBER;
2469: l_rcv_rcpt_rec inv_rcv_std_rcpt_apis.rcv_enter_receipts_rec_tp;
2470: l_mmtt_rec mtl_material_transactions_temp%ROWTYPE;
2471: l_err_message VARCHAR2(100);
2628: --table to store all RTId, quantity and original_rti_id for lot/serial splits
2629: l_new_rti_info inv_rcv_integration_apis.child_rec_tb_tp;
2630: l_split_lot_serial_ok BOOLEAN; --Return status of lot_serial_split API
2631: BEGIN
2632: x_status := fnd_api.g_ret_sts_success;
2633:
2634: IF (l_debug = 1) THEN
2635: print_debug('Enter create_rma_drct_dlvr_rti_rec: 1 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2636: END IF;
2733: print_debug('create_rma_drct_dlvr_rti_rec: 4.3 - after matching l_msg_data = ' || x_message, 4);
2734: END IF;
2735:
2736: -- x_status is not successful if there is any execution error in matching.
2737: IF x_status = fnd_api.g_ret_sts_error THEN
2738: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
2739: fnd_msg_pub.ADD;
2740:
2741: IF (l_debug = 1) THEN
2741: IF (l_debug = 1) THEN
2742: print_debug('create_rma_drct_dlvr_rti_rec 60.1: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2743: END IF;
2744:
2745: RAISE fnd_api.g_exc_error;
2746: END IF;
2747:
2748: IF x_status = fnd_api.g_ret_sts_unexp_error THEN
2749: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
2744:
2745: RAISE fnd_api.g_exc_error;
2746: END IF;
2747:
2748: IF x_status = fnd_api.g_ret_sts_unexp_error THEN
2749: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
2750: fnd_msg_pub.ADD;
2751:
2752: IF (l_debug = 1) THEN
2753: print_debug('create_rma_drct_dlvr_rti_rec 60.2: Unexpect error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
2754: , 1);
2755: END IF;
2756:
2757: RAISE fnd_api.g_exc_unexpected_error;
2758: END IF;
2759:
2760: IF inv_rcv_std_rcpt_apis.g_rcpt_match_table_gross(inv_rcv_std_rcpt_apis.g_receipt_detail_index).error_status = 'E' THEN
2761: l_err_message := inv_rcv_std_rcpt_apis.g_rcpt_match_table_gross(inv_rcv_std_rcpt_apis.g_receipt_detail_index).error_message;
2765: IF (l_debug = 1) THEN
2766: print_debug('create_rma_drct_dlvr_rti_rec 70: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2767: END IF;
2768:
2769: RAISE fnd_api.g_exc_error;
2770: END IF;
2771:
2772: l_err_message := '@@@';
2773:
2964: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
2965:
2966: l_split_lot_serial_ok := inv_rcv_integration_apis.split_lot_serial(
2967: p_api_version => 1.0
2968: , p_init_msg_lst => FND_API.G_FALSE
2969: , x_return_status => l_return_status
2970: , x_msg_count => l_msg_count
2971: , x_msg_data => x_message
2972: , p_new_rti_info => l_new_rti_info);
2973: IF ( NOT l_split_lot_serial_ok) THEN
2974: IF (l_debug = 1) THEN
2975: print_debug('create_rma_drct_dlvr_rti_rec 9.1: Failure in split_lot_serial', 4);
2976: END IF;
2977: RAISE FND_API.G_EXC_ERROR;
2978: END IF;
2979:
2980: IF (l_debug = 1) THEN
2981: print_debug('create_rma_drct_dlvr_rti_rec 9.2: Call split_lot_serial is OK', 4);
2995: , x_msg_count => l_msg_count
2996: , x_msg_data => x_message
2997: );
2998:
2999: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3000: x_status := l_return_status;
3001: END IF;
3002:
3003: l_progress := '100';
3007: IF (l_debug = 1) THEN
3008: print_debug('About exit create_rma_drct_dlvr_rti_rec: 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3009: END IF;
3010: EXCEPTION
3011: WHEN fnd_api.g_exc_error THEN
3012: ROLLBACK TO crt_rma_rti_sp;
3013: x_status := fnd_api.g_ret_sts_error;
3014:
3015: IF l_curs_rcpt_detail%ISOPEN THEN
3009: END IF;
3010: EXCEPTION
3011: WHEN fnd_api.g_exc_error THEN
3012: ROLLBACK TO crt_rma_rti_sp;
3013: x_status := fnd_api.g_ret_sts_error;
3014:
3015: IF l_curs_rcpt_detail%ISOPEN THEN
3016: CLOSE l_curs_rcpt_detail;
3017: END IF;
3015: IF l_curs_rcpt_detail%ISOPEN THEN
3016: CLOSE l_curs_rcpt_detail;
3017: END IF;
3018:
3019: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
3020:
3021: IF (l_debug = 1) THEN
3022: print_debug('create_rma_drct_dlvr_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3023: END IF;
3018:
3019: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
3020:
3021: IF (l_debug = 1) THEN
3022: print_debug('create_rma_drct_dlvr_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3023: END IF;
3024: WHEN fnd_api.g_exc_unexpected_error THEN
3025: ROLLBACK TO crt_rma_rti_sp;
3026: x_status := fnd_api.g_ret_sts_unexp_error;
3020:
3021: IF (l_debug = 1) THEN
3022: print_debug('create_rma_drct_dlvr_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3023: END IF;
3024: WHEN fnd_api.g_exc_unexpected_error THEN
3025: ROLLBACK TO crt_rma_rti_sp;
3026: x_status := fnd_api.g_ret_sts_unexp_error;
3027:
3028: IF l_curs_rcpt_detail%ISOPEN THEN
3022: print_debug('create_rma_drct_dlvr_rti_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3023: END IF;
3024: WHEN fnd_api.g_exc_unexpected_error THEN
3025: ROLLBACK TO crt_rma_rti_sp;
3026: x_status := fnd_api.g_ret_sts_unexp_error;
3027:
3028: IF l_curs_rcpt_detail%ISOPEN THEN
3029: CLOSE l_curs_rcpt_detail;
3030: END IF;
3028: IF l_curs_rcpt_detail%ISOPEN THEN
3029: CLOSE l_curs_rcpt_detail;
3030: END IF;
3031:
3032: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
3033:
3034: IF (l_debug = 1) THEN
3035: print_debug('create_rma_drct_dlvr_rti_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3036: END IF;
3031:
3032: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
3033:
3034: IF (l_debug = 1) THEN
3035: print_debug('create_rma_drct_dlvr_rti_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3036: END IF;
3037: WHEN OTHERS THEN
3038: ROLLBACK TO crt_rma_rti_sp;
3039: x_status := fnd_api.g_ret_sts_unexp_error;
3035: print_debug('create_rma_drct_dlvr_rti_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3036: END IF;
3037: WHEN OTHERS THEN
3038: ROLLBACK TO crt_rma_rti_sp;
3039: x_status := fnd_api.g_ret_sts_unexp_error;
3040:
3041: IF l_curs_rcpt_detail%ISOPEN THEN
3042: CLOSE l_curs_rcpt_detail;
3043: END IF;
3045: IF SQLCODE IS NOT NULL THEN
3046: inv_mobile_helper_functions.sql_error('inv_rcv_dir_rcpt_apis.create_rma_drct_dlvr_rti_rec', l_progress, SQLCODE);
3047: END IF;
3048:
3049: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
3050: END create_rma_drct_dlvr_rti_rec;
3051:
3052: PROCEDURE create_asn_con_dd_intf_rec(
3053: p_move_order_header_id IN OUT NOCOPY NUMBER
3101: l_total_primary_qty NUMBER := 0;
3102: l_match_type VARCHAR2(20);
3103: l_msg_count NUMBER;
3104: l_msg_data VARCHAR2(400);
3105: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3106: l_group_id NUMBER;
3107: l_rcv_rcpt_rec inv_rcv_std_rcpt_apis.rcv_enter_receipts_rec_tp;
3108: l_mmtt_rec mtl_material_transactions_temp%ROWTYPE;
3109: l_err_message VARCHAR2(100);
3481: print_debug('p_task_id = ' || p_task_id, 4);
3482: END IF;
3483:
3484: SAVEPOINT crt_asn_con_rti_sp;
3485: x_status := fnd_api.g_ret_sts_success;
3486: l_progress := '10';
3487:
3488: -- query po_startup_value
3489: BEGIN
3516: EXCEPTION
3517: WHEN NO_DATA_FOUND THEN
3518: fnd_message.set_name('INV', 'INV_RCV_PARAM');
3519: fnd_msg_pub.ADD;
3520: RAISE fnd_api.g_exc_error;
3521: END;
3522:
3523: -- default header level non-DB items in rcv_transaction block
3524: -- and default other values need to be insert into RTI
3659: print_debug('create_asn_con_dd_intf_rec: 40.2 - after matching l_msg_count = ' || l_msg_count, 4);
3660: print_debug('create_asn_con_dd_intf_rec: 40.3 - after matching l_msg_data = ' || l_msg_data, 4);
3661: END IF;
3662:
3663: IF l_return_status = fnd_api.g_ret_sts_error THEN
3664: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
3665: fnd_msg_pub.ADD;
3666:
3667: IF (l_debug = 1) THEN
3667: IF (l_debug = 1) THEN
3668: print_debug('create_asn_con_dd_intf_rec 60.1: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3669: END IF;
3670:
3671: RAISE fnd_api.g_exc_error;
3672: END IF;
3673:
3674: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3675: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
3670:
3671: RAISE fnd_api.g_exc_error;
3672: END IF;
3673:
3674: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3675: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
3676: fnd_msg_pub.ADD;
3677:
3678: IF (l_debug = 1) THEN
3679: print_debug('create_asn_con_dd_intf_rec 60.2: Unexpect error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
3680: , 1);
3681: END IF;
3682:
3683: RAISE fnd_api.g_exc_unexpected_error;
3684: END IF;
3685:
3686: IF inv_rcv_std_rcpt_apis.g_rcpt_match_table_gross(inv_rcv_std_rcpt_apis.g_receipt_detail_index).error_status = 'E' THEN
3687: l_err_message := inv_rcv_std_rcpt_apis.g_rcpt_match_table_gross(inv_rcv_std_rcpt_apis.g_receipt_detail_index).error_message;
3691: IF (l_debug = 1) THEN
3692: print_debug('create_asn_con_dd_intf_rec 70: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3693: END IF;
3694:
3695: RAISE fnd_api.g_exc_error;
3696: END IF;
3697:
3698: l_err_message := '@@@';
3699:
3963: END IF;--IF (l_rcv_rcpt_rec.serial_number_control_code = 6) THEN
3964:
3965: l_split_lot_serial_ok := inv_rcv_integration_apis.split_lot_serial(
3966: p_api_version => 1.0
3967: , p_init_msg_lst => FND_API.G_FALSE
3968: , x_return_status => l_return_status
3969: , x_msg_count => l_msg_count
3970: , x_msg_data => x_message
3971: , p_new_rti_info => l_new_rti_info);
3972: IF ( NOT l_split_lot_serial_ok) THEN
3973: IF (l_debug = 1) THEN
3974: print_debug('create_asn_con_dd_intf_rec 115.1: Failure in split_lot_serial', 4);
3975: END IF;
3976: RAISE FND_API.G_EXC_ERROR;
3977: END IF;
3978:
3979: IF (l_debug = 1) THEN
3980: print_debug('create_asn_con_dd_intf_rec 115.2: Call split_lot_serial is OK', 4);
4011: , x_msg_count => l_msg_count
4012: , x_msg_data => x_message
4013: );
4014:
4015: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4016: x_status := l_return_status;
4017: END IF;
4018:
4019: l_progress := '130';
4033: , l_return_status
4034: , l_msg_data
4035: );
4036:
4037: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4038: x_status := l_return_status;
4039: END IF;
4040:
4041: l_progress := '140';
4045: IF (l_debug = 1) THEN
4046: print_debug('About exit create_asn_con_dd_intf_rec: 140' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4047: END IF;
4048: EXCEPTION
4049: WHEN fnd_api.g_exc_error THEN
4050: ROLLBACK TO crt_asn_con_rti_sp;
4051: x_status := fnd_api.g_ret_sts_error;
4052:
4053: IF l_curs_rcpt_detail%ISOPEN THEN
4047: END IF;
4048: EXCEPTION
4049: WHEN fnd_api.g_exc_error THEN
4050: ROLLBACK TO crt_asn_con_rti_sp;
4051: x_status := fnd_api.g_ret_sts_error;
4052:
4053: IF l_curs_rcpt_detail%ISOPEN THEN
4054: CLOSE l_curs_rcpt_detail;
4055: END IF;
4053: IF l_curs_rcpt_detail%ISOPEN THEN
4054: CLOSE l_curs_rcpt_detail;
4055: END IF;
4056:
4057: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
4058:
4059: IF (l_debug = 1) THEN
4060: print_debug('create_asn_con_dd_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4061: END IF;
4056:
4057: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
4058:
4059: IF (l_debug = 1) THEN
4060: print_debug('create_asn_con_dd_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4061: END IF;
4062: WHEN fnd_api.g_exc_unexpected_error THEN
4063: ROLLBACK TO crt_asn_con_rti_sp;
4064: x_status := fnd_api.g_ret_sts_unexp_error;
4058:
4059: IF (l_debug = 1) THEN
4060: print_debug('create_asn_con_dd_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4061: END IF;
4062: WHEN fnd_api.g_exc_unexpected_error THEN
4063: ROLLBACK TO crt_asn_con_rti_sp;
4064: x_status := fnd_api.g_ret_sts_unexp_error;
4065:
4066: IF l_curs_rcpt_detail%ISOPEN THEN
4060: print_debug('create_asn_con_dd_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4061: END IF;
4062: WHEN fnd_api.g_exc_unexpected_error THEN
4063: ROLLBACK TO crt_asn_con_rti_sp;
4064: x_status := fnd_api.g_ret_sts_unexp_error;
4065:
4066: IF l_curs_rcpt_detail%ISOPEN THEN
4067: CLOSE l_curs_rcpt_detail;
4068: END IF;
4066: IF l_curs_rcpt_detail%ISOPEN THEN
4067: CLOSE l_curs_rcpt_detail;
4068: END IF;
4069:
4070: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
4071:
4072: IF (l_debug = 1) THEN
4073: print_debug('create_asn_con_dd_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4074: END IF;
4069:
4070: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
4071:
4072: IF (l_debug = 1) THEN
4073: print_debug('create_asn_con_dd_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4074: END IF;
4075: WHEN OTHERS THEN
4076: ROLLBACK TO crt_asn_con_rti_sp;
4077: x_status := fnd_api.g_ret_sts_unexp_error;
4073: print_debug('create_asn_con_dd_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4074: END IF;
4075: WHEN OTHERS THEN
4076: ROLLBACK TO crt_asn_con_rti_sp;
4077: x_status := fnd_api.g_ret_sts_unexp_error;
4078:
4079: IF l_curs_rcpt_detail%ISOPEN THEN
4080: CLOSE l_curs_rcpt_detail;
4081: END IF;
4083: IF SQLCODE IS NOT NULL THEN
4084: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_asn_con_dd_intf_rec', l_progress, SQLCODE);
4085: END IF;
4086:
4087: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
4088:
4089: IF (l_debug = 1) THEN
4090: print_debug('create_asn_con_dd_intf_rec: Other exception ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4091: END IF;
4229: l_po_header_id NUMBER;
4230: -- Increased lot size to 80 Char - Mercy Thomas - B4625329
4231: l_lot_number VARCHAR2(80);
4232: l_lot_expiration_date DATE;
4233: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
4234: l_msg_count NUMBER;
4235: l_msg_data VARCHAR2(400);
4236: l_progress VARCHAR2(10);
4237: l_transaction_temp_id NUMBER;
4270: print_debug('p_lpn_id = ' || p_lpn_id, 4);
4271: print_debug('project id = ' || p_project_id);
4272: END IF;
4273:
4274: x_status := fnd_api.g_ret_sts_success;
4275: l_progress := '10';
4276: OPEN l_curs_asn_lpn_content;
4277: l_progress := '20';
4278:
4317: , x_msg_count => l_msg_count
4318: , x_msg_data => l_msg_data
4319: );
4320:
4321: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4322: RAISE fnd_api.g_exc_error;
4323: END IF;
4324: END IF;
4325:
4318: , x_msg_data => l_msg_data
4319: );
4320:
4321: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4322: RAISE fnd_api.g_exc_error;
4323: END IF;
4324: END IF;
4325:
4326: l_progress := '35';
4363: , 4
4364: );
4365: END IF;
4366:
4367: RAISE fnd_api.g_exc_error;
4368: END IF;
4369:
4370: IF (p_source_type = 'INTERNAL' AND l_lot_control_code = 2) THEN
4371: BEGIN
4398: , x_return_status => l_return_status
4399: , x_msg_data => l_msg_data
4400: );
4401:
4402: IF l_return_status = fnd_api.g_ret_sts_error THEN
4403: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
4404: fnd_msg_pub.ADD;
4405:
4406: IF (l_debug = 1) THEN
4404: fnd_msg_pub.ADD;
4405:
4406: IF (l_debug = 1) THEN
4407: print_debug(
4408: 'create_asn_exp_dd_intf_rec 25.1: inv_rcv_common_apis.insert_lot RAISE FND_API.G_EXC_ERROR;'
4409: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4410: END IF;
4411:
4412: RAISE fnd_api.g_exc_error;
4408: 'create_asn_exp_dd_intf_rec 25.1: inv_rcv_common_apis.insert_lot RAISE FND_API.G_EXC_ERROR;'
4409: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4410: END IF;
4411:
4412: RAISE fnd_api.g_exc_error;
4413: END IF;
4414:
4415: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4416: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
4411:
4412: RAISE fnd_api.g_exc_error;
4413: END IF;
4414:
4415: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4416: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
4417: fnd_msg_pub.ADD;
4418:
4419: IF (l_debug = 1) THEN
4417: fnd_msg_pub.ADD;
4418:
4419: IF (l_debug = 1) THEN
4420: print_debug(
4421: 'create_asn_exp_dd_intf_rec 25.2: inv_rcv_common_apis.insert_lot RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
4422: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4423: END IF;
4424:
4425: RAISE fnd_api.g_exc_unexpected_error;
4421: 'create_asn_exp_dd_intf_rec 25.2: inv_rcv_common_apis.insert_lot RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
4422: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4423: END IF;
4424:
4425: RAISE fnd_api.g_exc_unexpected_error;
4426: END IF; --END IF ret_status = unexp_error
4427: END IF; --END IF item is lot controlled
4428:
4429: l_progress := '41';
4527: fnd_msg_pub.ADD;
4528: IF (l_debug = 1) THEN
4529: print_debug('create_asn_exp_rcpt_intf_rec: 20.2 - txn/primary uom conversion failed', 4);
4530: END IF;
4531: RAISE fnd_api.g_exc_error;
4532: END IF; --END IF check for failure
4533:
4534: ELSE
4535: l_lot_prm_quantity := l_quantity;
4544: --Create MTLI record for the lot and the lot quantity for this content
4545: --Set the flag for the API to populate the lot attributes
4546: inv_rcv_integration_apis.insert_mtli(
4547: p_api_version => 1.0
4548: , p_init_msg_lst => FND_API.G_FALSE
4549: , x_return_status => l_return_status
4550: , x_msg_count => l_msg_count
4551: , x_msg_data => l_msg_data
4552: , p_transaction_interface_id => l_transaction_interface_id
4564: , p_att_exist => 'Y'
4565: , p_update_mln => 'N'
4566: );
4567:
4568: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4569: IF (l_debug = 1) THEN
4570: print_debug('create_asn_exp_dd_intf_rec 28.1: Error in MTLI creation', 4);
4571: END IF;
4572: RAISE FND_API.G_EXC_ERROR;
4568: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4569: IF (l_debug = 1) THEN
4570: print_debug('create_asn_exp_dd_intf_rec 28.1: Error in MTLI creation', 4);
4571: END IF;
4572: RAISE FND_API.G_EXC_ERROR;
4573: END IF;
4574:
4575: IF (l_debug = 1) THEN
4576: print_debug('create_asn_exp_dd_intf_rec 28.2: txn i/f id: ' || l_transaction_interface_id
4596: --For each serial number in the lot create one MSNI record. The
4597: --serial attributes would be populated by the API
4598: inv_rcv_integration_apis.insert_msni(
4599: p_api_version => 1.0
4600: , p_init_msg_lst => FND_API.G_FALSE
4601: , x_return_status => l_return_status
4602: , x_msg_count => l_msg_count
4603: , x_msg_data => l_msg_data
4604: , p_transaction_interface_id => l_serial_transaction_temp_id
4612: , p_att_exist => 'Y'
4613: , p_update_msn => 'N'
4614: );
4615:
4616: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4617: IF (l_debug = 1) THEN
4618: print_debug('create_asn_exp_dd_intf_rec 28.3: Error in MSNI creation', 4);
4619: END IF;
4620: RAISE FND_API.G_EXC_ERROR;
4616: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4617: IF (l_debug = 1) THEN
4618: print_debug('create_asn_exp_dd_intf_rec 28.3: Error in MSNI creation', 4);
4619: END IF;
4620: RAISE FND_API.G_EXC_ERROR;
4621: END IF;
4622: END LOOP; --END LOOP through serials for the lot
4623:
4624: --Close the serial cursor
4653: print_debug('create_asn_exp_dd_intf_rec 28.3.1: Before MSNI creation', 4);
4654: END IF;
4655: inv_rcv_integration_apis.insert_msni(
4656: p_api_version => 1.0
4657: , p_init_msg_lst => FND_API.G_FALSE
4658: , x_return_status => l_return_status
4659: , x_msg_count => l_msg_count
4660: , x_msg_data => l_msg_data
4661: , p_transaction_interface_id => l_transaction_interface_id
4669: , p_att_exist => 'Y'
4670: , p_update_msn => 'N'
4671: );
4672:
4673: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4674: IF (l_debug = 1) THEN
4675: print_debug('create_asn_exp_dd_intf_rec 28.4: Error in MSNI creation', 4);
4676: END IF;
4677: RAISE FND_API.G_EXC_ERROR;
4673: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4674: IF (l_debug = 1) THEN
4675: print_debug('create_asn_exp_dd_intf_rec 28.4: Error in MSNI creation', 4);
4676: END IF;
4677: RAISE FND_API.G_EXC_ERROR;
4678: END IF;
4679: IF (l_debug = 1) THEN
4680: print_debug('create_asn_exp_dd_intf_rec 28.5: txn i/f id: ' || l_transaction_interface_id || ' prod txn id: ' || l_product_transaction_id, 4);
4681: END IF;
4747: , p_attribute15 => p_attribute15
4748: , p_express_transaction => 'Y'--Bug 5550783
4749: );
4750:
4751: IF l_return_status = fnd_api.g_ret_sts_error THEN
4752: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
4753: fnd_msg_pub.ADD;
4754:
4755: IF (l_debug = 1) THEN
4753: fnd_msg_pub.ADD;
4754:
4755: IF (l_debug = 1) THEN
4756: print_debug(
4757: 'create_asn_exp_dd_intf_rec 40.1:create_asn_con_dd_intf_rec RAISE FND_API.G_EXC_ERROR;'
4758: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
4759: , 4
4760: );
4761: END IF;
4759: , 4
4760: );
4761: END IF;
4762:
4763: RAISE fnd_api.g_exc_error;
4764: END IF;
4765:
4766: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4767: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
4762:
4763: RAISE fnd_api.g_exc_error;
4764: END IF;
4765:
4766: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4767: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
4768: fnd_msg_pub.ADD;
4769:
4770: IF (l_debug = 1) THEN
4768: fnd_msg_pub.ADD;
4769:
4770: IF (l_debug = 1) THEN
4771: print_debug(
4772: 'create_asn_exp_dd_intf_rec 40.2: create_asn_con_dd_intf_rec RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
4773: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
4774: , 4
4775: );
4776: END IF;
4774: , 4
4775: );
4776: END IF;
4777:
4778: RAISE fnd_api.g_exc_unexpected_error;
4779: END IF;
4780:
4781: IF (l_debug = 1) THEN
4782: print_debug('create_asn_exp_dd_intf_rec: 50 after create_asn_con_dd_intf_rec' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
4824: ,p_lpn_group_id => inv_rcv_common_apis.g_rcv_global_var.interface_group_id
4825: ,p_parent_lpn_id => NULL
4826: );
4827:
4828: IF l_return_status = fnd_api.g_ret_sts_error THEN
4829: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
4830: fnd_msg_pub.ADD;
4831:
4832: IF (l_debug = 1) THEN
4829: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
4830: fnd_msg_pub.ADD;
4831:
4832: IF (l_debug = 1) THEN
4833: print_debug('create_asn_exp_dd_intf_rec 50.2:create_asn_con_dd_intf_rec - RAISE FND_API.G_EXC_ERROR after insert_wlpni;'|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4834: END IF;
4835:
4836: RAISE fnd_api.g_exc_error;
4837: END IF;
4832: IF (l_debug = 1) THEN
4833: print_debug('create_asn_exp_dd_intf_rec 50.2:create_asn_con_dd_intf_rec - RAISE FND_API.G_EXC_ERROR after insert_wlpni;'|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4834: END IF;
4835:
4836: RAISE fnd_api.g_exc_error;
4837: END IF;
4838:
4839: IF (l_debug = 1) THEN
4840: print_debug(
4891: IF (l_debug = 1) THEN
4892: print_debug('Exit create_asn_exp_dd_intf_rec: 90 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4893: END IF;
4894: EXCEPTION
4895: WHEN fnd_api.g_exc_error THEN
4896: x_status := fnd_api.g_ret_sts_error;
4897:
4898: IF l_curs_asn_lpn_content%ISOPEN THEN
4899: CLOSE l_curs_asn_lpn_content;
4892: print_debug('Exit create_asn_exp_dd_intf_rec: 90 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4893: END IF;
4894: EXCEPTION
4895: WHEN fnd_api.g_exc_error THEN
4896: x_status := fnd_api.g_ret_sts_error;
4897:
4898: IF l_curs_asn_lpn_content%ISOPEN THEN
4899: CLOSE l_curs_asn_lpn_content;
4900: END IF;
4898: IF l_curs_asn_lpn_content%ISOPEN THEN
4899: CLOSE l_curs_asn_lpn_content;
4900: END IF;
4901:
4902: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
4903:
4904: IF (l_debug = 1) THEN
4905: print_debug('create_asn_exp_dd_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4906: END IF;
4901:
4902: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
4903:
4904: IF (l_debug = 1) THEN
4905: print_debug('create_asn_exp_dd_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4906: END IF;
4907: WHEN fnd_api.g_exc_unexpected_error THEN
4908: x_status := fnd_api.g_ret_sts_unexp_error;
4909:
4903:
4904: IF (l_debug = 1) THEN
4905: print_debug('create_asn_exp_dd_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4906: END IF;
4907: WHEN fnd_api.g_exc_unexpected_error THEN
4908: x_status := fnd_api.g_ret_sts_unexp_error;
4909:
4910: IF l_curs_asn_lpn_content%ISOPEN THEN
4911: CLOSE l_curs_asn_lpn_content;
4904: IF (l_debug = 1) THEN
4905: print_debug('create_asn_exp_dd_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4906: END IF;
4907: WHEN fnd_api.g_exc_unexpected_error THEN
4908: x_status := fnd_api.g_ret_sts_unexp_error;
4909:
4910: IF l_curs_asn_lpn_content%ISOPEN THEN
4911: CLOSE l_curs_asn_lpn_content;
4912: END IF;
4910: IF l_curs_asn_lpn_content%ISOPEN THEN
4911: CLOSE l_curs_asn_lpn_content;
4912: END IF;
4913:
4914: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
4915:
4916: IF (l_debug = 1) THEN
4917: print_debug('create_asn_exp_dd_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4918: END IF;
4913:
4914: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
4915:
4916: IF (l_debug = 1) THEN
4917: print_debug('create_asn_exp_dd_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4918: END IF;
4919: WHEN OTHERS THEN
4920: x_status := fnd_api.g_ret_sts_unexp_error;
4921:
4916: IF (l_debug = 1) THEN
4917: print_debug('create_asn_exp_dd_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4918: END IF;
4919: WHEN OTHERS THEN
4920: x_status := fnd_api.g_ret_sts_unexp_error;
4921:
4922: IF l_curs_asn_lpn_content%ISOPEN THEN
4923: CLOSE l_curs_asn_lpn_content;
4924: END IF;
4926: IF SQLCODE IS NOT NULL THEN
4927: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_asn_exp_dd_intf_rec', l_progress, SQLCODE);
4928: END IF;
4929:
4930: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
4931:
4932: IF (l_debug = 1) THEN
4933: print_debug('create_asn_exp_dd_intf_rec: Other exception ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4934: END IF;
4966: , p_attribute13 IN VARCHAR2 DEFAULT NULL
4967: , p_attribute14 IN VARCHAR2 DEFAULT NULL
4968: , p_attribute15 IN VARCHAR2 DEFAULT NULL
4969: ) IS
4970: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
4971: l_msg_count NUMBER;
4972: l_msg_data VARCHAR2(400);
4973: l_label_status VARCHAR2(500);
4974: l_progress VARCHAR2(10);
4987: -- GROUP BY rti.lpn_id;
4988:
4989: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4990: BEGIN
4991: x_status := fnd_api.g_ret_sts_success;
4992: l_progress := '10';
4993:
4994: IF (l_debug = 1) THEN
4995: print_debug('create_osp_direct_rti_rec: 10' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5020: , x_return_status => x_status
5021: , x_error_code => x_message
5022: );
5023:
5024: IF x_status <> fnd_api.g_ret_sts_success THEN
5025: RETURN;
5026: END IF;
5027:
5028: IF p_po_header_id IS NULL
5030: IF (l_debug = 1) THEN
5031: print_debug('create_osp_direct_rti_rec: 2 item id and po number cannot be NULL', 4);
5032: END IF;
5033:
5034: x_status := fnd_api.g_ret_sts_error;
5035: RETURN;
5036: END IF;
5037:
5038: l_progress := '30';
5070: , p_attribute14 => p_attribute14
5071: , p_attribute15 => p_attribute15
5072: );
5073:
5074: IF l_return_status = fnd_api.g_ret_sts_error THEN
5075: fnd_message.set_name('INV', 'INV_RCV_CREATE_PO_RTI_FAIL'); -- MSGTBD
5076: fnd_msg_pub.ADD;
5077:
5078: IF (l_debug = 1) THEN
5076: fnd_msg_pub.ADD;
5077:
5078: IF (l_debug = 1) THEN
5079: print_debug(
5080: 'create_osp_direct_rti_rec 20.1: create_osp_drct_dlvr_rti_rec RAISE FND_API.G_EXC_ERROR;'
5081: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5082: END IF;
5083:
5084: RAISE fnd_api.g_exc_error;
5080: 'create_osp_direct_rti_rec 20.1: create_osp_drct_dlvr_rti_rec RAISE FND_API.G_EXC_ERROR;'
5081: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5082: END IF;
5083:
5084: RAISE fnd_api.g_exc_error;
5085: END IF;
5086:
5087: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5088: fnd_message.set_name('INV', 'INV_RCV_CREATE_PO_RTI_FAIL'); -- MSGTBD
5083:
5084: RAISE fnd_api.g_exc_error;
5085: END IF;
5086:
5087: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5088: fnd_message.set_name('INV', 'INV_RCV_CREATE_PO_RTI_FAIL'); -- MSGTBD
5089: fnd_msg_pub.ADD;
5090:
5091: IF (l_debug = 1) THEN
5089: fnd_msg_pub.ADD;
5090:
5091: IF (l_debug = 1) THEN
5092: print_debug(
5093: 'create_osp_direct_rti_rec 20.2: create_osp_drct_dlvr_rti_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
5094: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5095: END IF;
5096:
5097: RAISE fnd_api.g_exc_unexpected_error;
5093: 'create_osp_direct_rti_rec 20.2: create_osp_drct_dlvr_rti_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
5094: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5095: END IF;
5096:
5097: RAISE fnd_api.g_exc_unexpected_error;
5098: END IF;
5099:
5100: l_progress := '40';
5101:
5105:
5106: x_status := l_return_status; -- l_return_status can be 'W', we want to carry that over
5107: -- calling label printing API
5108:
5109: IF l_return_status <> fnd_api.g_ret_sts_error THEN
5110: l_progress := '40';
5111:
5112: IF (l_debug = 1) THEN
5113: print_debug(
5146: , p_business_flow_code => 1
5147: , p_transaction_id => l_txn_id_tbl
5148: );
5149:
5150: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5151: fnd_message.set_name('INV', 'INV_RCV_CRT_PRINT_LAB_FAIL'); -- MSGTBD
5152: fnd_msg_pub.ADD;
5153: x_status := 'W';
5154:
5173: print_debug('create_osp_direct_rti_rec: 8.1 - x_status = ' || x_status, 4);
5174: print_debug('create_osp_direct_rti_rec: 8.2 - x_message= ' || x_message, 4);
5175: END IF;
5176: EXCEPTION
5177: WHEN fnd_api.g_exc_error THEN
5178: x_status := fnd_api.g_ret_sts_error;
5179: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5180: WHEN fnd_api.g_exc_unexpected_error THEN
5181: x_status := fnd_api.g_ret_sts_unexp_error;
5174: print_debug('create_osp_direct_rti_rec: 8.2 - x_message= ' || x_message, 4);
5175: END IF;
5176: EXCEPTION
5177: WHEN fnd_api.g_exc_error THEN
5178: x_status := fnd_api.g_ret_sts_error;
5179: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5180: WHEN fnd_api.g_exc_unexpected_error THEN
5181: x_status := fnd_api.g_ret_sts_unexp_error;
5182: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5175: END IF;
5176: EXCEPTION
5177: WHEN fnd_api.g_exc_error THEN
5178: x_status := fnd_api.g_ret_sts_error;
5179: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5180: WHEN fnd_api.g_exc_unexpected_error THEN
5181: x_status := fnd_api.g_ret_sts_unexp_error;
5182: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5183: WHEN OTHERS THEN
5176: EXCEPTION
5177: WHEN fnd_api.g_exc_error THEN
5178: x_status := fnd_api.g_ret_sts_error;
5179: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5180: WHEN fnd_api.g_exc_unexpected_error THEN
5181: x_status := fnd_api.g_ret_sts_unexp_error;
5182: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5183: WHEN OTHERS THEN
5184: x_status := fnd_api.g_ret_sts_unexp_error;
5177: WHEN fnd_api.g_exc_error THEN
5178: x_status := fnd_api.g_ret_sts_error;
5179: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5180: WHEN fnd_api.g_exc_unexpected_error THEN
5181: x_status := fnd_api.g_ret_sts_unexp_error;
5182: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5183: WHEN OTHERS THEN
5184: x_status := fnd_api.g_ret_sts_unexp_error;
5185:
5178: x_status := fnd_api.g_ret_sts_error;
5179: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5180: WHEN fnd_api.g_exc_unexpected_error THEN
5181: x_status := fnd_api.g_ret_sts_unexp_error;
5182: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5183: WHEN OTHERS THEN
5184: x_status := fnd_api.g_ret_sts_unexp_error;
5185:
5186: IF SQLCODE IS NOT NULL THEN
5180: WHEN fnd_api.g_exc_unexpected_error THEN
5181: x_status := fnd_api.g_ret_sts_unexp_error;
5182: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5183: WHEN OTHERS THEN
5184: x_status := fnd_api.g_ret_sts_unexp_error;
5185:
5186: IF SQLCODE IS NOT NULL THEN
5187: inv_mobile_helper_functions.sql_error('inv_rcv_dir_rcpt_apis.create_osp_direct_rti_rec', l_progress, SQLCODE);
5188: END IF;
5186: IF SQLCODE IS NOT NULL THEN
5187: inv_mobile_helper_functions.sql_error('inv_rcv_dir_rcpt_apis.create_osp_direct_rti_rec', l_progress, SQLCODE);
5188: END IF;
5189:
5190: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5191: END create_osp_direct_rti_rec;
5192:
5193: PROCEDURE create_direct_rti_rec(
5194: p_move_order_header_id IN OUT NOCOPY NUMBER
5239: , p_attribute13 IN VARCHAR2 DEFAULT NULL
5240: , p_attribute14 IN VARCHAR2 DEFAULT NULL
5241: , p_attribute15 IN VARCHAR2 DEFAULT NULL
5242: ) IS
5243: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
5244: l_msg_count NUMBER;
5245: l_msg_data VARCHAR2(400);
5246: l_label_status VARCHAR2(500);
5247: l_progress VARCHAR2(10);
5267:
5268: -- GROUP BY rti.lpn_id;
5269: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
5270: BEGIN
5271: x_status := fnd_api.g_ret_sts_success;
5272: l_progress := '10';
5273:
5274: IF (l_debug = 1) THEN
5275: print_debug('create_direct_rti_rec: 10' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5307: , x_return_status => x_status
5308: , x_error_code => x_message
5309: );
5310:
5311: IF x_status <> fnd_api.g_ret_sts_success THEN
5312: RETURN;
5313: END IF;
5314:
5315: IF p_shipment_header_id IS NULL THEN -- Added this check to fix bug no. 2159179
5318: IF (l_debug = 1) THEN
5319: print_debug('create_direct_rti_rec: 2 item id and po number cannot be NULL', 4);
5320: END IF;
5321:
5322: x_status := fnd_api.g_ret_sts_error;
5323: RETURN;
5324: END IF;
5325: END IF;
5326:
5344: IF (l_debug = 1) THEN
5345: print_debug('create_direct_rti_rec: 2 item id and po number cannot be NULL', 4);
5346: END IF;
5347:
5348: x_status := fnd_api.g_ret_sts_error;
5349: RETURN;
5350: END IF;
5351:
5352: l_subinventory := p_subinventory;
5406: , p_attribute14 => p_attribute14
5407: , p_attribute15 => p_attribute15
5408: );
5409:
5410: IF l_return_status = fnd_api.g_ret_sts_error THEN
5411: fnd_message.set_name('INV', 'INV_RCV_CREATE_PO_RTI_FAIL'); -- MSGTBD
5412: fnd_msg_pub.ADD;
5413:
5414: IF (l_debug = 1) THEN
5412: fnd_msg_pub.ADD;
5413:
5414: IF (l_debug = 1) THEN
5415: print_debug(
5416: 'create_direct_rti_rec 20.1: create_po_drct_dlvr_rti_rec RAISE FND_API.G_EXC_ERROR;'
5417: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5418: END IF;
5419:
5420: RAISE fnd_api.g_exc_error;
5416: 'create_direct_rti_rec 20.1: create_po_drct_dlvr_rti_rec RAISE FND_API.G_EXC_ERROR;'
5417: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5418: END IF;
5419:
5420: RAISE fnd_api.g_exc_error;
5421: END IF;
5422:
5423: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5424: fnd_message.set_name('INV', 'INV_RCV_CREATE_PO_RTI_FAIL'); -- MSGTBD
5419:
5420: RAISE fnd_api.g_exc_error;
5421: END IF;
5422:
5423: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5424: fnd_message.set_name('INV', 'INV_RCV_CREATE_PO_RTI_FAIL'); -- MSGTBD
5425: fnd_msg_pub.ADD;
5426:
5427: IF (l_debug = 1) THEN
5425: fnd_msg_pub.ADD;
5426:
5427: IF (l_debug = 1) THEN
5428: print_debug(
5429: 'create_direct_rti_rec 20.2: create_po_drct_dlvr_rti_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
5430: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5431: END IF;
5432:
5433: RAISE fnd_api.g_exc_unexpected_error;
5429: 'create_direct_rti_rec 20.2: create_po_drct_dlvr_rti_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
5430: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5431: END IF;
5432:
5433: RAISE fnd_api.g_exc_unexpected_error;
5434: END IF;
5435: ELSIF p_shipment_header_id IS NOT NULL THEN
5436: l_progress := '50';
5437:
5495: , p_attribute14 => p_attribute14
5496: , p_attribute15 => p_attribute15
5497: );
5498:
5499: IF l_return_status = fnd_api.g_ret_sts_error THEN
5500: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL'); -- MSGTBD
5501: fnd_msg_pub.ADD;
5502:
5503: IF (l_debug = 1) THEN
5501: fnd_msg_pub.ADD;
5502:
5503: IF (l_debug = 1) THEN
5504: print_debug(
5505: 'create_direct_rti_rec 23.1: create_asn_exp_dd_intf_rec RAISE FND_API.G_EXC_ERROR;'
5506: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5507: END IF;
5508:
5509: RAISE fnd_api.g_exc_error;
5505: 'create_direct_rti_rec 23.1: create_asn_exp_dd_intf_rec RAISE FND_API.G_EXC_ERROR;'
5506: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5507: END IF;
5508:
5509: RAISE fnd_api.g_exc_error;
5510: END IF;
5511:
5512: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5513: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL'); -- MSGTBD
5508:
5509: RAISE fnd_api.g_exc_error;
5510: END IF;
5511:
5512: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5513: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL'); -- MSGTBD
5514: fnd_msg_pub.ADD;
5515:
5516: IF (l_debug = 1) THEN
5514: fnd_msg_pub.ADD;
5515:
5516: IF (l_debug = 1) THEN
5517: print_debug(
5518: 'create_direct_rti_rec 23.2: create_asn_exp_dd_intf_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
5519: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5520: END IF;
5521:
5522: RAISE fnd_api.g_exc_unexpected_error;
5518: 'create_direct_rti_rec 23.2: create_asn_exp_dd_intf_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
5519: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5520: END IF;
5521:
5522: RAISE fnd_api.g_exc_unexpected_error;
5523: END IF;
5524: ELSE
5525: l_progress := '50';
5526:
5565: , p_attribute14 => p_attribute14
5566: , p_attribute15 => p_attribute15
5567: );
5568:
5569: IF l_return_status = fnd_api.g_ret_sts_error THEN
5570: --BUG 3433072: The message below is not defined. Plus, it
5571: --create_asn_exp_dd_intf_rec fails, it will fails with a error
5572: --message.
5573: --fnd_message.set_name('INV', 'INV_RCV_CRT_INTSHIPEXP_RTI_FAIL'); -- MSGTBD
5574: --fnd_msg_pub.ADD;
5575:
5576: IF (l_debug = 1) THEN
5577: print_debug(
5578: 'create_direct_rti_rec 24.1: create_asn_exp_dd_intf_rec for IntShip RAISE FND_API.G_EXC_ERROR;'
5579: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5580: END IF;
5581:
5582: RAISE fnd_api.g_exc_error;
5578: 'create_direct_rti_rec 24.1: create_asn_exp_dd_intf_rec for IntShip RAISE FND_API.G_EXC_ERROR;'
5579: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5580: END IF;
5581:
5582: RAISE fnd_api.g_exc_error;
5583: END IF;
5584:
5585: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5586: --BUG 3433072: The message below is not defined
5581:
5582: RAISE fnd_api.g_exc_error;
5583: END IF;
5584:
5585: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5586: --BUG 3433072: The message below is not defined
5587: --fnd_message.set_name('INV', 'INV_RCV_CREATE_INTSHIPEXP_RTI_FAIL');
5588: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL');
5589: fnd_msg_pub.ADD;
5589: fnd_msg_pub.ADD;
5590:
5591: IF (l_debug = 1) THEN
5592: print_debug(
5593: 'create_direct_rti_rec 24.2: create_asn_exp_dd_intf_rec for IntShip RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
5594: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5595: END IF;
5596:
5597: RAISE fnd_api.g_exc_unexpected_error;
5593: 'create_direct_rti_rec 24.2: create_asn_exp_dd_intf_rec for IntShip RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
5594: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5595: END IF;
5596:
5597: RAISE fnd_api.g_exc_unexpected_error;
5598: END IF;
5599: END IF;
5600: ELSIF p_source_type IN ('ASNCONFM', 'LCMCONFM') THEN -- For LCM Project
5601:
5660: , p_express_transaction => NULL--Bug 5550783
5661: , p_location_id => p_location_id --Bug 13490287
5662: );
5663:
5664: IF l_return_status = fnd_api.g_ret_sts_error THEN
5665: fnd_message.set_name('INV', 'INV_RCV_CRT_ASNCON_RTI_FAIL'); -- MSGTBD
5666: fnd_msg_pub.ADD;
5667:
5668: IF (l_debug = 1) THEN
5666: fnd_msg_pub.ADD;
5667:
5668: IF (l_debug = 1) THEN
5669: print_debug(
5670: 'create_direct_rti_rec 25.1: create_asn_con_dd_intf_rec RAISE FND_API.G_EXC_ERROR;'
5671: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5672: END IF;
5673:
5674: RAISE fnd_api.g_exc_error;
5670: 'create_direct_rti_rec 25.1: create_asn_con_dd_intf_rec RAISE FND_API.G_EXC_ERROR;'
5671: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5672: END IF;
5673:
5674: RAISE fnd_api.g_exc_error;
5675: END IF;
5676:
5677: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5678: fnd_message.set_name('INV', 'INV_RCV_CREATE_INTSHIPEXP_RTI_FAIL'); -- MSGTBD
5673:
5674: RAISE fnd_api.g_exc_error;
5675: END IF;
5676:
5677: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5678: fnd_message.set_name('INV', 'INV_RCV_CREATE_INTSHIPEXP_RTI_FAIL'); -- MSGTBD
5679: fnd_msg_pub.ADD;
5680:
5681: IF (l_debug = 1) THEN
5679: fnd_msg_pub.ADD;
5680:
5681: IF (l_debug = 1) THEN
5682: print_debug(
5683: 'create_direct_rti_rec 25.2: create_asn_con_dd_intf_rec RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
5684: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5685: , 4
5686: );
5687: END IF;
5685: , 4
5686: );
5687: END IF;
5688:
5689: RAISE fnd_api.g_exc_unexpected_error;
5690: END IF;
5691: ELSE
5692: create_int_shp_dr_del_rti_rec(
5693: p_move_order_header_id => p_move_order_header_id
5733: , p_attribute14 => p_attribute14
5734: , p_attribute15 => p_attribute15
5735: );
5736:
5737: IF l_return_status = fnd_api.g_ret_sts_error THEN
5738: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
5739: fnd_msg_pub.ADD;
5740:
5741: IF (l_debug = 1) THEN
5739: fnd_msg_pub.ADD;
5740:
5741: IF (l_debug = 1) THEN
5742: print_debug(
5743: 'create_direct_rti_rec 40.1: create_int_shp_dr_del_rti_rec RAISE FND_API.G_EXC_ERROR;'
5744: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5745: END IF;
5746:
5747: RAISE fnd_api.g_exc_error;
5743: 'create_direct_rti_rec 40.1: create_int_shp_dr_del_rti_rec RAISE FND_API.G_EXC_ERROR;'
5744: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5745: END IF;
5746:
5747: RAISE fnd_api.g_exc_error;
5748: END IF;
5749:
5750: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5751: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
5746:
5747: RAISE fnd_api.g_exc_error;
5748: END IF;
5749:
5750: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5751: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
5752: fnd_msg_pub.ADD;
5753:
5754: IF (l_debug = 1) THEN
5752: fnd_msg_pub.ADD;
5753:
5754: IF (l_debug = 1) THEN
5755: print_debug(
5756: 'create_direct_rti_rec 40.2:create_int_shp_dr_del_rti_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
5757: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5758: END IF;
5759:
5760: RAISE fnd_api.g_exc_unexpected_error;
5756: 'create_direct_rti_rec 40.2:create_int_shp_dr_del_rti_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
5757: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5758: END IF;
5759:
5760: RAISE fnd_api.g_exc_unexpected_error;
5761: END IF;
5762: END IF;
5763: ELSIF p_oe_order_header_id IS NOT NULL THEN
5764: l_progress := '60';
5810: , p_attribute14 => p_attribute14
5811: , p_attribute15 => p_attribute15
5812: );
5813:
5814: IF l_return_status = fnd_api.g_ret_sts_error THEN
5815: fnd_message.set_name('INV', 'INV_RCV_CREATE_RMA_RTI_FAIL'); -- MSGTBD
5816: fnd_msg_pub.ADD;
5817:
5818: IF (l_debug = 1) THEN
5816: fnd_msg_pub.ADD;
5817:
5818: IF (l_debug = 1) THEN
5819: print_debug(
5820: 'create_direct_rti_rec 50.1: create_rma_drct_dlvr_rti_rec RAISE FND_API.G_EXC_ERROR;'
5821: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5822: END IF;
5823:
5824: RAISE fnd_api.g_exc_error;
5820: 'create_direct_rti_rec 50.1: create_rma_drct_dlvr_rti_rec RAISE FND_API.G_EXC_ERROR;'
5821: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5822: END IF;
5823:
5824: RAISE fnd_api.g_exc_error;
5825: END IF;
5826:
5827: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5828: fnd_message.set_name('INV', 'INV_RCV_CREATE_RMA_RTI_FAIL'); -- MSGTBD
5823:
5824: RAISE fnd_api.g_exc_error;
5825: END IF;
5826:
5827: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5828: fnd_message.set_name('INV', 'INV_RCV_CREATE_RMA_RTI_FAIL'); -- MSGTBD
5829: fnd_msg_pub.ADD;
5830:
5831: IF (l_debug = 1) THEN
5829: fnd_msg_pub.ADD;
5830:
5831: IF (l_debug = 1) THEN
5832: print_debug(
5833: 'create_direct_rti_rec 50.2: create_rma_drct_dlvr_rti_rec RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
5834: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5835: END IF;
5836:
5837: RAISE fnd_api.g_exc_unexpected_error;
5833: 'create_direct_rti_rec 50.2: create_rma_drct_dlvr_rti_rec RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
5834: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5835: END IF;
5836:
5837: RAISE fnd_api.g_exc_unexpected_error;
5838: END IF;
5839: END IF;
5840:
5841: l_progress := '80';
5847: x_status := l_return_status; -- l_return_status can be 'W', we want to carry that over
5848:
5849: -- calling label printing API
5850:
5851: IF l_return_status <> fnd_api.g_ret_sts_error THEN
5852: l_progress := '80';
5853:
5854: IF (l_debug = 1) THEN
5855: print_debug('create_direct_rti_rec: 8.1 before inv_label.print_label ' || inv_rcv_common_apis.g_rcv_global_var.interface_group_id, 4);
5888: , p_business_flow_code => 1
5889: , p_transaction_id => l_txn_id_tbl
5890: );
5891:
5892: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5893: fnd_message.set_name('INV', 'INV_RCV_CRT_PRINT_LAB_FAIL'); -- MSGTBD
5894: fnd_msg_pub.ADD;
5895: x_status := 'W';
5896:
5915: print_debug('create_direct_rti_rec: 8.1 - x_status = ' || x_status, 4);
5916: print_debug('create_direct_rti_rec: 8.2 - x_message= ' || x_message, 4);
5917: END IF;
5918: EXCEPTION
5919: WHEN fnd_api.g_exc_error THEN
5920: x_status := fnd_api.g_ret_sts_error;
5921: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5922: WHEN fnd_api.g_exc_unexpected_error THEN
5923: x_status := fnd_api.g_ret_sts_unexp_error;
5916: print_debug('create_direct_rti_rec: 8.2 - x_message= ' || x_message, 4);
5917: END IF;
5918: EXCEPTION
5919: WHEN fnd_api.g_exc_error THEN
5920: x_status := fnd_api.g_ret_sts_error;
5921: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5922: WHEN fnd_api.g_exc_unexpected_error THEN
5923: x_status := fnd_api.g_ret_sts_unexp_error;
5924: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5917: END IF;
5918: EXCEPTION
5919: WHEN fnd_api.g_exc_error THEN
5920: x_status := fnd_api.g_ret_sts_error;
5921: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5922: WHEN fnd_api.g_exc_unexpected_error THEN
5923: x_status := fnd_api.g_ret_sts_unexp_error;
5924: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5925: WHEN OTHERS THEN
5918: EXCEPTION
5919: WHEN fnd_api.g_exc_error THEN
5920: x_status := fnd_api.g_ret_sts_error;
5921: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5922: WHEN fnd_api.g_exc_unexpected_error THEN
5923: x_status := fnd_api.g_ret_sts_unexp_error;
5924: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5925: WHEN OTHERS THEN
5926: x_status := fnd_api.g_ret_sts_unexp_error;
5919: WHEN fnd_api.g_exc_error THEN
5920: x_status := fnd_api.g_ret_sts_error;
5921: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5922: WHEN fnd_api.g_exc_unexpected_error THEN
5923: x_status := fnd_api.g_ret_sts_unexp_error;
5924: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5925: WHEN OTHERS THEN
5926: x_status := fnd_api.g_ret_sts_unexp_error;
5927:
5920: x_status := fnd_api.g_ret_sts_error;
5921: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5922: WHEN fnd_api.g_exc_unexpected_error THEN
5923: x_status := fnd_api.g_ret_sts_unexp_error;
5924: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5925: WHEN OTHERS THEN
5926: x_status := fnd_api.g_ret_sts_unexp_error;
5927:
5928: IF SQLCODE IS NOT NULL THEN
5922: WHEN fnd_api.g_exc_unexpected_error THEN
5923: x_status := fnd_api.g_ret_sts_unexp_error;
5924: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5925: WHEN OTHERS THEN
5926: x_status := fnd_api.g_ret_sts_unexp_error;
5927:
5928: IF SQLCODE IS NOT NULL THEN
5929: inv_mobile_helper_functions.sql_error('inv_rcv_dir_rcpt_apis.create_direct_rti_rec', l_progress, SQLCODE);
5930: END IF;
5928: IF SQLCODE IS NOT NULL THEN
5929: inv_mobile_helper_functions.sql_error('inv_rcv_dir_rcpt_apis.create_direct_rti_rec', l_progress, SQLCODE);
5930: END IF;
5931:
5932: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5933: END create_direct_rti_rec;
5934: /*
5935: PROCEDURE pack_lpn_txn
5936: IS