30: , x_msg_data OUT NOCOPY VARCHAR2
31: ) IS
32: PRAGMA AUTONOMOUS_TRANSACTION;
33: l_receipt_exists NUMBER;
34: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
35: l_msg_count NUMBER;
36: l_msg_data VARCHAR2(400);
37: l_progress VARCHAR2(10);
38: l_receipt_code VARCHAR2(25);
37: l_progress VARCHAR2(10);
38: l_receipt_code VARCHAR2(25);
39: l_api_name VARCHAR2(25) := 'gen_receipt_num';
40: BEGIN
41: x_return_status := fnd_api.g_ret_sts_success;
42:
43: UPDATE rcv_parameters
44: SET next_receipt_num = next_receipt_num + 1
45: WHERE organization_id = p_organization_id
63: IF (l_receipt_exists = 1) THEN
64: fnd_message.set_name('CSP','CSP_RECEIPT_NUM_EXISTS');
65: fnd_message.set_token('RECEIPT',x_receipt_num,false);
66: fnd_msg_pub.add;
67: RAISE FND_API.G_EXC_ERROR;
68: END IF;
69:
70: EXCEPTION
71: WHEN FND_API.G_EXC_ERROR THEN
67: RAISE FND_API.G_EXC_ERROR;
68: END IF;
69:
70: EXCEPTION
71: WHEN FND_API.G_EXC_ERROR THEN
72: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
73: P_API_NAME => L_API_NAME
74: ,P_PKG_NAME => G_PKG_NAME
75: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
76: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
77: ,X_MSG_COUNT => X_MSG_COUNT
78: ,X_MSG_DATA => X_MSG_DATA
79: ,X_RETURN_STATUS => X_RETURN_STATUS);
80: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
81: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
82: P_API_NAME => L_API_NAME
83: ,P_PKG_NAME => G_PKG_NAME
84: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
230: END IF ;
231:
232: return(TRUE);
233: exception
234: WHEN FND_API.G_EXC_ERROR THEN
235: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
236: P_API_NAME => L_API_NAME
237: ,P_PKG_NAME => G_PKG_NAME
238: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
240: ,X_MSG_COUNT => X_MSG_COUNT
241: ,X_MSG_DATA => X_MSG_DATA
242: ,X_RETURN_STATUS => X_RETURN_STATUS);
243: return FALSE;
244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
245: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
246: P_API_NAME => L_API_NAME
247: ,P_PKG_NAME => G_PKG_NAME
248: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
385: end if;
386: po_moac_utils_pvt.set_org_context(l_org_id);
387: end if;
388:
389: x_return_status := FND_API.G_RET_STS_SUCCESS;
390:
391: -- Standard call to check for call compatibility.
392: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
393: p_api_version_number,
388:
389: x_return_status := FND_API.G_RET_STS_SUCCESS;
390:
391: -- Standard call to check for call compatibility.
392: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
393: p_api_version_number,
394: l_api_name,
395: G_PKG_NAME)
396: THEN
393: p_api_version_number,
394: l_api_name,
395: G_PKG_NAME)
396: THEN
397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
398: END IF;
399:
400:
401: -- Initialize message list
398: END IF;
399:
400:
401: -- Initialize message list
402: IF fnd_api.to_boolean(p_init_msg_list) THEN
403: fnd_msg_pub.initialize;
404: END IF;
405:
406:
404: END IF;
405:
406:
407: -- Initialize API return status to SUCCESS
408: x_return_status := FND_API.G_RET_STS_SUCCESS;
409:
410: If NOT get_employee (l_employee_id,
411: l_employee_name,
412: l_location_id ,
414: l_is_buyer ,
415: l_emp_flag
416: ) Then
417: GET_MESSAGES(x_msg_data);
418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
419: End If;
420:
421: -- bug # 10401140
422: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
442: -- API body
443: --
444: insert_rcv_hdr_interface
445: (P_Api_Version_Number => 1.0
446: ,P_init_Msg_List => FND_API.G_FALSE
447: ,P_Commit => FND_API.G_FALSE
448: ,P_Validation_Level => p_validation_level
449: ,X_Return_Status => X_return_Status
450: ,X_Msg_Count => X_Msg_Count
443: --
444: insert_rcv_hdr_interface
445: (P_Api_Version_Number => 1.0
446: ,P_init_Msg_List => FND_API.G_FALSE
447: ,P_Commit => FND_API.G_FALSE
448: ,P_Validation_Level => p_validation_level
449: ,X_Return_Status => X_return_Status
450: ,X_Msg_Count => X_Msg_Count
451: ,X_Msg_Data => X_Msg_Data
471: ,p_customer_id => p_receive_hdr_rec.customer_id
472: ,p_customer_site_id => p_receive_hdr_rec.customer_site_id
473: ,x_header_interface_id => l_header_interface_id
474: ,x_group_id => l_group_id);
475: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
476: Get_Messages(X_MSG_DATA);
477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
478: End If;
479: FOR i in 1..p_receive_rec_tbl.COUNT LOOP
473: ,x_header_interface_id => l_header_interface_id
474: ,x_group_id => l_group_id);
475: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
476: Get_Messages(X_MSG_DATA);
477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
478: End If;
479: FOR i in 1..p_receive_rec_tbl.COUNT LOOP
480:
481: If p_receive_rec_tbl(i).inv_loc_assignment_id is not null Then
499: l_rcv_transaction_rec.item_id,
500: l_rcv_transaction_rec.primary_uom);
501: insert_rcv_txn_interface
502: (P_Api_Version_Number => 1.0
503: ,P_init_Msg_List => FND_API.G_FALSE
504: ,P_Commit => FND_API.G_FALSE
505: ,P_Validation_Level => p_Validation_Level
506: ,X_Return_Status => X_return_Status
507: ,X_Msg_Count => X_Msg_Count
500: l_rcv_transaction_rec.primary_uom);
501: insert_rcv_txn_interface
502: (P_Api_Version_Number => 1.0
503: ,P_init_Msg_List => FND_API.G_FALSE
504: ,P_Commit => FND_API.G_FALSE
505: ,P_Validation_Level => p_Validation_Level
506: ,X_Return_Status => X_return_Status
507: ,X_Msg_Count => X_Msg_Count
508: ,X_Msg_Data => X_Msg_Data
508: ,X_Msg_Data => X_Msg_Data
509: ,x_interface_transaction_id => x_interface_transaction_id
510: ,p_receive_rec => l_rcv_transaction_rec);
511:
512: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
513: Get_Messages(X_MSG_DATA);
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
515: End If;
516: l_serial_interface_inserted := FALSE;
510: ,p_receive_rec => l_rcv_transaction_rec);
511:
512: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
513: Get_Messages(X_MSG_DATA);
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
515: End If;
516: l_serial_interface_inserted := FALSE;
517: l_serial_interface_id := null;
518: l_lot_interface_id := null;
519: -- Lot/Serial
520: If p_receive_rec_tbl(i).fm_serial_number is not null then
521: insert_serial_interface (
522: p_api_version => 1.0
523: , p_init_msg_list => FND_API.G_FALSE
524: , x_return_status => x_return_status
525: , x_msg_count => x_msg_count
526: , x_msg_data => x_msg_data
527: , px_transaction_interface_id => l_serial_interface_id
528: , p_product_transaction_id => x_interface_transaction_id
529: , p_product_code => p_receive_rec_tbl(i).product_code
530: , p_fm_serial_number => p_receive_rec_tbl(i).fm_serial_number
531: , p_to_serial_number => p_receive_rec_tbl(i).to_serial_number);
532: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
533: Get_Messages(X_MSG_DATA);
534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
535: End If;
536: end if;
530: , p_fm_serial_number => p_receive_rec_tbl(i).fm_serial_number
531: , p_to_serial_number => p_receive_rec_tbl(i).to_serial_number);
532: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
533: Get_Messages(X_MSG_DATA);
534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
535: End If;
536: end if;
537: If p_receive_rec_tbl(i).lot_number is not null then
538: insert_lots_interface (
536: end if;
537: If p_receive_rec_tbl(i).lot_number is not null then
538: insert_lots_interface (
539: p_api_version => 1.0
540: , p_init_msg_list => FND_API.G_FALSE
541: , x_return_status => x_return_status
542: , x_msg_count => x_msg_count
543: , x_msg_data => x_msg_data
544: , p_transaction_interface_id => l_lot_interface_id
549: , p_inventory_item_id => p_receive_rec_tbl(i).item_id
550: , p_serial_transaction_temp_id => l_serial_interface_id
551: , p_product_transaction_id => x_interface_transaction_id
552: , p_product_code => p_receive_rec_tbl(i).product_code);
553: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
554: Get_Messages(X_MSG_DATA);
555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
556: End If;
557: End If;
551: , p_product_transaction_id => x_interface_transaction_id
552: , p_product_code => p_receive_rec_tbl(i).product_code);
553: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
554: Get_Messages(X_MSG_DATA);
555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
556: End If;
557: End If;
558:
559: END LOOP;
565: --- Process the interface record
566: rcv_online_request (p_group_id => l_group_id,
567: x_return_status => x_return_status,
568: x_msg_data => x_msg_data);
569: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
570: GET_MESSAGES(x_msg_data);
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: End If;
573: --- Commit;
567: x_return_status => x_return_status,
568: x_msg_data => x_msg_data);
569: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
570: GET_MESSAGES(x_msg_data);
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: End If;
573: --- Commit;
574:
575: if l_org_id <> l_org_org_id then
581: end if;
582:
583: COMMIT;
584: EXCEPTION
585: WHEN FND_API.G_EXC_ERROR THEN
586: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
587: P_API_NAME => L_API_NAME
588: ,P_PKG_NAME => G_PKG_NAME
589: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
599: end if;
600: po_moac_utils_pvt.set_org_context(l_org_org_id);
601: end if;
602:
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
605: P_API_NAME => L_API_NAME
606: ,P_PKG_NAME => G_PKG_NAME
607: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
687: BEGIN
688: SAVEPOINT insert_rcv_hdr_interface_pvt;
689:
690: -- Standard call to check for call compatibility.
691: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
692: p_api_version_number,
693: l_api_name,
694: G_PKG_NAME)
695: THEN
692: p_api_version_number,
693: l_api_name,
694: G_PKG_NAME)
695: THEN
696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
697: END IF;
698:
699: -- Initialize message list if p_init_msg_list is set to TRUE.
700: IF fnd_api.to_boolean(p_init_msg_list) THEN
696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
697: END IF;
698:
699: -- Initialize message list if p_init_msg_list is set to TRUE.
700: IF fnd_api.to_boolean(p_init_msg_list) THEN
701: fnd_msg_pub.initialize;
702: END IF;
703:
704: x_return_status := FND_API.G_RET_STS_SUCCESS;
700: IF fnd_api.to_boolean(p_init_msg_list) THEN
701: fnd_msg_pub.initialize;
702: END IF;
703:
704: x_return_status := FND_API.G_RET_STS_SUCCESS;
705:
706:
707: l_header_interface_id := p_header_interface_id;
708: If (l_header_interface_id IS NULL) THEN
724: , p_organization_id => p_ship_to_org_id
725: , x_return_status => x_return_status
726: , x_msg_count => x_msg_count
727: , x_msg_data => x_msg_data);
728: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
729: GET_MESSAGES(x_msg_data);
730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
731: End If;
732: End If;
726: , x_msg_count => x_msg_count
727: , x_msg_data => x_msg_data);
728: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
729: GET_MESSAGES(x_msg_data);
730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
731: End If;
732: End If;
733: IF p_source_type_code = 'INTERNAL' THEN
734: l_receipt_header_id := p_receipt_header_id;
802: x_header_interface_id := l_header_interface_id;
803: x_group_id := l_group_id;
804:
805: EXCEPTION
806: WHEN FND_API.G_EXC_ERROR THEN
807: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
808: P_API_NAME => L_API_NAME
809: ,P_PKG_NAME => G_PKG_NAME
810: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
811: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
812: ,X_MSG_COUNT => X_MSG_COUNT
813: ,X_MSG_DATA => X_MSG_DATA
814: ,X_RETURN_STATUS => X_RETURN_STATUS);
815: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
816: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
817: P_API_NAME => L_API_NAME
818: ,P_PKG_NAME => G_PKG_NAME
819: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
956: BEGIN
957: SAVEPOINT insert_rcv_txn_interface_pvt;
958:
959: -- Standard call to check for call compatibility.
960: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
961: p_api_version_number,
962: l_api_name,
963: G_PKG_NAME)
964: THEN
961: p_api_version_number,
962: l_api_name,
963: G_PKG_NAME)
964: THEN
965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
966: END IF;
967:
968: -- Initialize message list if p_init_msg_list is set to TRUE.
969: IF fnd_api.to_boolean(p_init_msg_list) THEN
965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
966: END IF;
967:
968: -- Initialize message list if p_init_msg_list is set to TRUE.
969: IF fnd_api.to_boolean(p_init_msg_list) THEN
970: fnd_msg_pub.initialize;
971: END IF;
972:
973: x_return_status := FND_API.G_RET_STS_SUCCESS;
969: IF fnd_api.to_boolean(p_init_msg_list) THEN
970: fnd_msg_pub.initialize;
971: END IF;
972:
973: x_return_status := FND_API.G_RET_STS_SUCCESS;
974:
975: l_rcv_transaction_rec := p_receive_rec;
976:
977: l_interface_transaction_id := l_rcv_transaction_rec.interface_transaction_id;
1044: fnd_message.set_token('ROUTINE','rcv_receipts_query_sv.post_query',false);
1045: fnd_message.set_token('SQLERRM',sqlerrm,false);
1046: fnd_msg_pub.add;
1047: get_messages(x_msg_data);
1048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1049: END;
1050:
1051:
1052: IF (NOT x_valid_ship_to_location) THEN
1067: fnd_message.set_token('ROUTINE','get receiving flag',false);
1068: fnd_message.set_token('SQLERRM',sqlerrm,false);
1069: fnd_msg_pub.add;
1070: get_messages(x_msg_data);
1071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1072: END;
1073:
1074: IF l_blind_receiving_flag = 'Y' THEN
1075: l_rcv_transaction_rec.ordered_qty := 0;
1532: );
1533:
1534: x_interface_transaction_id := l_interface_transaction_id;
1535: EXCEPTION
1536: WHEN FND_API.G_EXC_ERROR THEN
1537: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1538: P_API_NAME => L_API_NAME
1539: ,P_PKG_NAME => G_PKG_NAME
1540: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1541: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
1542: ,X_MSG_COUNT => X_MSG_COUNT
1543: ,X_MSG_DATA => X_MESSAGE
1544: ,X_RETURN_STATUS => X_RETURN_STATUS);
1545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1546: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1547: P_API_NAME => L_API_NAME
1548: ,P_PKG_NAME => G_PKG_NAME
1549: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1742:
1743: BEGIN
1744:
1745: -- Standard call to check for call compatibility.
1746: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
1747: l_api_name, G_PKG_NAME) THEN
1748: RAISE fnd_api.g_exc_unexpected_error;
1749: END IF;
1750:
1744:
1745: -- Standard call to check for call compatibility.
1746: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
1747: l_api_name, G_PKG_NAME) THEN
1748: RAISE fnd_api.g_exc_unexpected_error;
1749: END IF;
1750:
1751: -- Initialize message list if p_init_msg_list is set to TRUE.
1752: IF fnd_api.to_boolean(p_init_msg_list) THEN
1748: RAISE fnd_api.g_exc_unexpected_error;
1749: END IF;
1750:
1751: -- Initialize message list if p_init_msg_list is set to TRUE.
1752: IF fnd_api.to_boolean(p_init_msg_list) THEN
1753: fnd_msg_pub.initialize;
1754: END IF;
1755:
1756: --Initialize the return status
1753: fnd_msg_pub.initialize;
1754: END IF;
1755:
1756: --Initialize the return status
1757: x_return_status := FND_API.G_RET_STS_SUCCESS;
1758:
1759: l_transaction_interface_id := p_transaction_interface_id;
1760: If (l_transaction_interface_id IS NULL) THEN
1761: SELECT mtl_material_transactions_s.NEXTVAL
2007: , l_territory_code
2008: );
2009:
2010: EXCEPTION
2011: WHEN FND_API.G_EXC_ERROR THEN
2012: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2013: P_API_NAME => L_API_NAME
2014: ,P_PKG_NAME => G_PKG_NAME
2015: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2016: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
2017: ,X_MSG_COUNT => X_MSG_COUNT
2018: ,X_MSG_DATA => X_MESSAGE
2019: ,X_RETURN_STATUS => X_RETURN_STATUS);
2020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2021: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2022: P_API_NAME => L_API_NAME
2023: ,P_PKG_NAME => G_PKG_NAME
2024: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2107: x_message varchar2(4000);
2108: BEGIN
2109:
2110: -- Standard call to check for call compatibility.
2111: IF NOT fnd_api.compatible_api_call(l_api_version,
2112: p_api_version,
2113: l_api_name,
2114: G_PKG_NAME) THEN
2115: RAISE fnd_api.g_exc_unexpected_error;
2111: IF NOT fnd_api.compatible_api_call(l_api_version,
2112: p_api_version,
2113: l_api_name,
2114: G_PKG_NAME) THEN
2115: RAISE fnd_api.g_exc_unexpected_error;
2116: END IF;
2117:
2118: -- Initialize message list if p_init_msg_list is set to TRUE.
2119: IF fnd_api.to_boolean(p_init_msg_list) THEN
2115: RAISE fnd_api.g_exc_unexpected_error;
2116: END IF;
2117:
2118: -- Initialize message list if p_init_msg_list is set to TRUE.
2119: IF fnd_api.to_boolean(p_init_msg_list) THEN
2120: fnd_msg_pub.initialize;
2121: END IF;
2122:
2123: --Initialize the return status
2120: fnd_msg_pub.initialize;
2121: END IF;
2122:
2123: --Initialize the return status
2124: x_return_status := fnd_api.g_ret_sts_success;
2125:
2126: --Generate transaction_interface_id if necessary
2127: l_transaction_interface_id := px_transaction_interface_id;
2128: IF (l_transaction_interface_id IS NULL) THEN
2165: px_transaction_interface_id := l_transaction_interface_id;
2166:
2167:
2168: EXCEPTION
2169: WHEN FND_API.G_EXC_ERROR THEN
2170: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2171: P_API_NAME => L_API_NAME
2172: ,P_PKG_NAME => G_PKG_NAME
2173: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2174: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
2175: ,X_MSG_COUNT => X_MSG_COUNT
2176: ,X_MSG_DATA => X_MESSAGE
2177: ,X_RETURN_STATUS => X_RETURN_STATUS);
2178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2179: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2180: P_API_NAME => L_API_NAME
2181: ,P_PKG_NAME => G_PKG_NAME
2182: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2238: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
2239: 'Begin for p_group_id = ' || p_group_id);
2240: end if;
2241:
2242: x_return_status := fnd_api.g_ret_sts_success;
2243:
2244: rc := fnd_transaction.synchronous
2245: (
2246: l_timeout, l_outcome, l_message, 'PO', 'RCVTPO',
2264: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
2265: fnd_message.set_token('REQUEST', p_group_id);
2266: fnd_message.set_token('REASON', x_str);
2267: fnd_msg_pub.ADD;
2268: x_return_status := fnd_api.g_ret_sts_error;
2269: ELSIF (rc = 2) THEN
2270: fnd_message.set_name('FND', 'TM-SVC LOCK HANDLE FAILED');
2271: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
2272: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
2272: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
2273: fnd_message.set_token('REQUEST', p_group_id);
2274: fnd_message.set_token('REASON', x_str);
2275: fnd_msg_pub.ADD;
2276: x_return_status := fnd_api.g_ret_sts_error;
2277: ELSIF (rc = 3 or (l_outcome IN ('WARNING', 'ERROR'))) THEN
2278: BEGIN
2279: select ERROR_MESSAGE INTO po_message
2280: from po_interface_errors
2287:
2288: FND_MESSAGE.set_name('CSP', 'CSP_ATP');
2289: fnd_message.set_token('ERROR', po_message);
2290: fnd_msg_pub.ADD;
2291: x_return_status := fnd_api.g_ret_sts_error;
2292: Exception
2293: when NO_DATA_FOUND THEN
2294:
2295: rc := fnd_transaction.get_values
2373: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
2374: fnd_message.set_token('REQUEST', p_group_id);
2375: fnd_message.set_token('REASON', l_message);
2376: fnd_msg_pub.ADD;
2377: x_return_status := fnd_api.g_ret_sts_error;
2378: END;
2379: END IF;
2380: EXCEPTION
2381: WHEN OTHERS THEN
2382: fnd_message.set_name('CSP','CSP_UNEXPECTED_EXEC_ERRORS');
2383: fnd_message.set_token('ROUTINE',l_api_name,FALSE);
2384: fnd_message.set_token('SQLERRM',sqlerrm,FALSE);
2385: fnd_msg_pub.add;
2386: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2387: END rcv_online_request;
2388:
2389: /*
2390: Function : USER_INPUT_REQUIRED