526: x_status OUT nocopy varchar2,
527: x_message OUT nocopy varchar2)
528: IS
529:
530: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
531: l_msg_count NUMBER;
532: l_msg_data VARCHAR2(4000);
533: l_progress VARCHAR2(10);
534: l_create_asn_details_rec asn_details_rec_tp ;
550: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
551: BEGIN
552:
553: SAVEPOINT crt_asn_details;
554: x_status := FND_API.G_RET_STS_SUCCESS;
555:
556:
557: l_progress := '10';
558: IF (l_debug = 1) THEN
845:
846:
847: EXCEPTION
848:
849: WHEN fnd_api.g_exc_error THEN
850: ROLLBACK TO crt_asn_details;
851: x_status := fnd_api.g_ret_sts_error;
852: fnd_msg_pub.count_and_get
853: (p_encoded => FND_API.g_false,
847: EXCEPTION
848:
849: WHEN fnd_api.g_exc_error THEN
850: ROLLBACK TO crt_asn_details;
851: x_status := fnd_api.g_ret_sts_error;
852: fnd_msg_pub.count_and_get
853: (p_encoded => FND_API.g_false,
854: p_count => l_msg_count,
855: p_data => x_message
849: WHEN fnd_api.g_exc_error THEN
850: ROLLBACK TO crt_asn_details;
851: x_status := fnd_api.g_ret_sts_error;
852: fnd_msg_pub.count_and_get
853: (p_encoded => FND_API.g_false,
854: p_count => l_msg_count,
855: p_data => x_message
856: );
857: WHEN fnd_api.g_exc_unexpected_error THEN
853: (p_encoded => FND_API.g_false,
854: p_count => l_msg_count,
855: p_data => x_message
856: );
857: WHEN fnd_api.g_exc_unexpected_error THEN
858: ROLLBACK TO crt_asn_details;
859: x_status := fnd_api.g_ret_sts_unexp_error ;
860: fnd_msg_pub.count_and_get
861: (p_encoded => FND_API.g_false,
855: p_data => x_message
856: );
857: WHEN fnd_api.g_exc_unexpected_error THEN
858: ROLLBACK TO crt_asn_details;
859: x_status := fnd_api.g_ret_sts_unexp_error ;
860: fnd_msg_pub.count_and_get
861: (p_encoded => FND_API.g_false,
862: p_count => l_msg_count,
863: p_data => x_message
857: WHEN fnd_api.g_exc_unexpected_error THEN
858: ROLLBACK TO crt_asn_details;
859: x_status := fnd_api.g_ret_sts_unexp_error ;
860: fnd_msg_pub.count_and_get
861: (p_encoded => FND_API.g_false,
862: p_count => l_msg_count,
863: p_data => x_message
864: );
865: WHEN OTHERS THEN
866: IF (l_debug = 1) THEN
867: print_debug('Other Problem Occured progress = '||l_progress||'sqlcode ='||SQLCODE, 1);
868: END IF;
869: ROLLBACK TO crt_asn_details;
870: x_status := fnd_api.g_ret_sts_unexp_error ;
871: IF SQLCODE IS NOT NULL THEN
872: inv_mobile_helper_functions.sql_error('INV_CR_ASN_DETAILS.create_asn_details', l_progress, SQLCODE);
873: END IF;
874:
872: inv_mobile_helper_functions.sql_error('INV_CR_ASN_DETAILS.create_asn_details', l_progress, SQLCODE);
873: END IF;
874:
875: fnd_msg_pub.count_and_get
876: (p_encoded => FND_API.g_false,
877: p_count => l_msg_count,
878: p_data => x_message
879: );
880: END create_asn_details;
885: x_status OUT nocopy varchar2,
886: x_message OUT nocopy varchar2)
887: IS
888:
889: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
890: l_msg_count NUMBER;
891: l_msg_data VARCHAR2(4000);
892: l_progress VARCHAR2(10);
893: l_create_asn_details_rec asn_details_rec_tp ;
909: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
910: BEGIN
911:
912: SAVEPOINT crt_asn_details_interface;
913: x_status := FND_API.G_RET_STS_SUCCESS;
914: l_progress := '10';
915:
916: IF (l_debug = 1) THEN
917: print_debug('Create ASN Details from interface : 10 '|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 1);
926: l_vendor_site_id
927: FROM RCV_SHIPMENT_HEADERS RSH
928: WHERE RSH.shipment_header_id = p_interface_transaction_rec.shipment_header_id ;
929: Exception
930: when others then raise fnd_api.g_exc_error ;
931: End;
932:
933: l_progress := '20';
934: IF (l_debug = 1) THEN
1078:
1079:
1080:
1081: EXCEPTION
1082: WHEN fnd_api.g_exc_error THEN
1083: ROLLBACK TO crt_asn_details_interface;
1084: x_status := fnd_api.g_ret_sts_error;
1085: fnd_msg_pub.count_and_get
1086: (p_encoded => FND_API.g_false,
1080:
1081: EXCEPTION
1082: WHEN fnd_api.g_exc_error THEN
1083: ROLLBACK TO crt_asn_details_interface;
1084: x_status := fnd_api.g_ret_sts_error;
1085: fnd_msg_pub.count_and_get
1086: (p_encoded => FND_API.g_false,
1087: p_count => l_msg_count,
1088: p_data => x_message
1082: WHEN fnd_api.g_exc_error THEN
1083: ROLLBACK TO crt_asn_details_interface;
1084: x_status := fnd_api.g_ret_sts_error;
1085: fnd_msg_pub.count_and_get
1086: (p_encoded => FND_API.g_false,
1087: p_count => l_msg_count,
1088: p_data => x_message
1089: );
1090: WHEN fnd_api.g_exc_unexpected_error THEN
1086: (p_encoded => FND_API.g_false,
1087: p_count => l_msg_count,
1088: p_data => x_message
1089: );
1090: WHEN fnd_api.g_exc_unexpected_error THEN
1091: ROLLBACK TO crt_asn_details_interface;
1092: x_status := fnd_api.g_ret_sts_unexp_error ;
1093: fnd_msg_pub.count_and_get
1094: (p_encoded => FND_API.g_false,
1088: p_data => x_message
1089: );
1090: WHEN fnd_api.g_exc_unexpected_error THEN
1091: ROLLBACK TO crt_asn_details_interface;
1092: x_status := fnd_api.g_ret_sts_unexp_error ;
1093: fnd_msg_pub.count_and_get
1094: (p_encoded => FND_API.g_false,
1095: p_count => l_msg_count,
1096: p_data => x_message
1090: WHEN fnd_api.g_exc_unexpected_error THEN
1091: ROLLBACK TO crt_asn_details_interface;
1092: x_status := fnd_api.g_ret_sts_unexp_error ;
1093: fnd_msg_pub.count_and_get
1094: (p_encoded => FND_API.g_false,
1095: p_count => l_msg_count,
1096: p_data => x_message
1097: );
1098: WHEN OTHERS THEN
1099: IF (l_debug = 1) THEN
1100: print_debug('Other Problem Occured progress = '||l_progress||'sqlcode ='||SQLCODE, 1);
1101: END IF;
1102: ROLLBACK TO crt_asn_details_interface;
1103: x_status := fnd_api.g_ret_sts_unexp_error ;
1104: IF SQLCODE IS NOT NULL THEN
1105: inv_mobile_helper_functions.sql_error('INV_CR_ASN_DETAILS.create_asn_details_from_intf', l_progress, SQLCODE);
1106: END IF;
1107:
1105: inv_mobile_helper_functions.sql_error('INV_CR_ASN_DETAILS.create_asn_details_from_intf', l_progress, SQLCODE);
1106: END IF;
1107:
1108: fnd_msg_pub.count_and_get
1109: (p_encoded => FND_API.g_false,
1110: p_count => l_msg_count,
1111: p_data => x_message
1112: );
1113: