100: BEGIN
101: -- Standard start of API savepoint
102: SAVEPOINT create_negotiation_bulk_SP;
103: -- Standard call to check for call compatibility
104: IF NOT FND_API.Compatible_API_Call( l_api_version ,
105: p_api_version ,
106: l_api_name ,
107: G_PKG_NAME)
108: THEN
105: p_api_version ,
106: l_api_name ,
107: G_PKG_NAME)
108: THEN
109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
110: END IF;
111:
112: -- API Body
113: -- Get the number of lines being passed in.
159:
160: -- End of API Body
161: -- Standard check to see if there is any error
162: IF(x_result = -1) THEN
163: RAISE FND_API.G_EXC_ERROR;
164: END IF;
165: EXCEPTION
166: WHEN FND_API.G_EXC_ERROR THEN
167: ROLLBACK TO create_negotiation_bulk_SP;
162: IF(x_result = -1) THEN
163: RAISE FND_API.G_EXC_ERROR;
164: END IF;
165: EXCEPTION
166: WHEN FND_API.G_EXC_ERROR THEN
167: ROLLBACK TO create_negotiation_bulk_SP;
168: x_result := -1;
169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
170: ROLLBACK TO create_negotiation_bulk_SP;
165: EXCEPTION
166: WHEN FND_API.G_EXC_ERROR THEN
167: ROLLBACK TO create_negotiation_bulk_SP;
168: x_result := -1;
169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
170: ROLLBACK TO create_negotiation_bulk_SP;
171: x_result := -1;
172: x_error_message := 'Unexpected error in create_negotiaton_bulk';
173: WHEN OTHERS THEN
226: BEGIN
227: -- Standard start of API savepoint
228: SAVEPOINT create_negotiation_bulk_SP;
229: -- Standard call to check for call compatibility
230: IF NOT FND_API.Compatible_API_Call( l_api_version ,
231: p_api_version ,
232: l_api_name ,
233: G_PKG_NAME)
234: THEN
231: p_api_version ,
232: l_api_name ,
233: G_PKG_NAME)
234: THEN
235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
236: END IF;
237:
238: -- API Body
239: -- Get the number of lines being passed in.
284:
285: -- End of API Body
286: -- Standard check to see if there is any error
287: IF(x_result = -1) THEN
288: RAISE FND_API.G_EXC_ERROR;
289: END IF;
290: EXCEPTION
291: WHEN FND_API.G_EXC_ERROR THEN
292: ROLLBACK TO create_negotiation_bulk_SP;
287: IF(x_result = -1) THEN
288: RAISE FND_API.G_EXC_ERROR;
289: END IF;
290: EXCEPTION
291: WHEN FND_API.G_EXC_ERROR THEN
292: ROLLBACK TO create_negotiation_bulk_SP;
293: x_result := -1;
294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
295: ROLLBACK TO create_negotiation_bulk_SP;
290: EXCEPTION
291: WHEN FND_API.G_EXC_ERROR THEN
292: ROLLBACK TO create_negotiation_bulk_SP;
293: x_result := -1;
294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
295: ROLLBACK TO create_negotiation_bulk_SP;
296: x_result := -1;
297: x_error_message := 'Unexpected error in create_negotiaton_bulk';
298: WHEN OTHERS THEN
504: l_destination_type_table(i):= t_req_lines(i).destination_type_code;
505: l_purchase_basis_table(i):= t_req_lines(i).purchase_basis;
506: end loop;
507: PO_DOC_STYLE_PVT.populate_gt_and_validate(p_api_version => 1.0,
508: p_init_msg_list => FND_API.G_TRUE,
509: X_return_status => l_return_status,
510: X_msg_count => l_msg_count,
511: x_msg_data => l_msg_data,
512: p_req_line_id_table => l_req_line_id_table,
1253: fnd_log.string(fnd_log.level_statement,g_log_head,'After PON_AUCTION_INTERFACE_PKG.maintain_clm_relations');
1254: fnd_log.string(fnd_log.level_statement,g_log_head,'l_return_status : '||l_return_status);
1255: END IF;
1256:
1257: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1258:
1259: x_result := -1;
1260: x_error_message := l_msg_data;
1261:
1279: fnd_log.string(fnd_log.level_statement,g_log_head,'After PON_CLO_RENUMBER_PKG.RenumberAllLines');
1280: END IF;
1281: END IF ;
1282:
1283: /* if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1284:
1285: x_result := -1;
1286: x_error_message := l_msg_data;
1287:
1313: fnd_log.string(fnd_log.level_statement,g_log_head,'l_return_status : '||l_return_status);
1314: END IF;
1315:
1316:
1317: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1318: x_progress := '030';
1319: x_result := -1;
1320: x_error_message := l_msg_data;
1321:
1345: fnd_log.string(fnd_log.level_statement,g_log_head,'l_return_status : '||l_return_status);
1346: END IF;
1347:
1348:
1349: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1350: x_progress := '040';
1351: x_result := -1;
1352: x_error_message := l_msg_data;
1353:
1521: p_new_negotiation_line_num : new negotiation line where reference has
1522: to be added
1523: Output parameters :
1524: x_return_status: The return status of the API. Valid values are:
1525: FND_API.G_RET_STS_SUCCESS
1526: FND_API.G_RET_STS_ERROR
1527: FND_API.G_RET_STS_UNEXP_ERROR
1528: x_error_message: Contain translated error message in case the return status
1529: is G_RET_STS_ERROR or G_RET_STS_UNEXP_ERROR
1522: to be added
1523: Output parameters :
1524: x_return_status: The return status of the API. Valid values are:
1525: FND_API.G_RET_STS_SUCCESS
1526: FND_API.G_RET_STS_ERROR
1527: FND_API.G_RET_STS_UNEXP_ERROR
1528: x_error_message: Contain translated error message in case the return status
1529: is G_RET_STS_ERROR or G_RET_STS_UNEXP_ERROR
1530: Version: Current Version 1.0
1523: Output parameters :
1524: x_return_status: The return status of the API. Valid values are:
1525: FND_API.G_RET_STS_SUCCESS
1526: FND_API.G_RET_STS_ERROR
1527: FND_API.G_RET_STS_UNEXP_ERROR
1528: x_error_message: Contain translated error message in case the return status
1529: is G_RET_STS_ERROR or G_RET_STS_UNEXP_ERROR
1530: Version: Current Version 1.0
1531: Changed: Initial design 1/27/2003
1549: BEGIN
1550: l_progress := '000';
1551:
1552: -- Standard call to check for call compatibility
1553: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1554: THEN
1555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1556: END IF;
1557:
1551:
1552: -- Standard call to check for call compatibility
1553: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1554: THEN
1555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1556: END IF;
1557:
1558: l_progress := '001';
1559:
1563: auction_line_number = p_new_negotiation_line_num
1564: where auction_header_id = p_old_negotiation_id and
1565: auction_line_number = p_old_negotiation_line_num;
1566:
1567: x_return_status := FND_API.G_RET_STS_SUCCESS;
1568:
1569: EXCEPTION
1570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1571: x_error_message := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
1566:
1567: x_return_status := FND_API.G_RET_STS_SUCCESS;
1568:
1569: EXCEPTION
1570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1571: x_error_message := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
1572: p_encoded => 'F');
1573: x_return_status := FND_API.G_RET_STS_ERROR;
1574: WHEN OTHERS THEN
1569: EXCEPTION
1570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1571: x_error_message := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
1572: p_encoded => 'F');
1573: x_return_status := FND_API.G_RET_STS_ERROR;
1574: WHEN OTHERS THEN
1575: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1576: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name,
1577: SUBSTRB (SQLERRM , 1 , 200) || ' at location ' || l_progress);
1578: END IF;
1579:
1580: x_error_message := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
1581: p_encoded => 'F');
1582: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1583:
1584: END UPDATE_NEGOTIATION_LINE_REF;
1585: --
1586:
1818: -- Standard start of API savepoint
1819: SAVEPOINT renegotiate_blanket_grp;
1820:
1821: -- Standard call to check for call compatibility
1822: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1823: THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826:
1820:
1821: -- Standard call to check for call compatibility
1822: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1823: THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826:
1827: l_progress := '001';
1828:
2298: end if;
2299: --
2300:
2301: -- Committing the changes to the database
2302: if FND_API.To_Boolean(p_commit) then
2303: commit;
2304: end if;
2305:
2306: EXCEPTION
2303: commit;
2304: end if;
2305:
2306: EXCEPTION
2307: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2308: ROLLBACK TO renegotiate_blanket_grp;
2309: x_error_message := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
2310: p_encoded => 'F');
2311: x_return_status := l_ret_sts_error;
2382: x_return_status => l_return_status,
2383: x_msg_count => l_msg_count,
2384: x_msg_data => l_msg_data);
2385:
2386: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2387: l_progress := '010';
2388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2389: END IF;
2390:
2384: x_msg_data => l_msg_data);
2385:
2386: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2387: l_progress := '010';
2388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2389: END IF;
2390:
2391: l_progress := '020';
2392: IF g_debug_stmt THEN
3100: fnd_log.string(fnd_log.level_statement,g_log_head,'After PON_AUCTION_INTERFACE_PKG.maintain_clm_relations');
3101: fnd_log.string(fnd_log.level_statement,g_log_head,'l_return_status : '||l_return_status);
3102: END IF;
3103:
3104: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3105:
3106: x_result := -1;
3107: x_error_message := l_msg_data;
3108:
3380: l_progress VARCHAR2(10);
3381: l_requisition_header_id NUMBER;
3382:
3383: BEGIN
3384: x_return_status := FND_API.G_RET_STS_SUCCESS;
3385:
3386: l_progress := '0010';
3387: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3388: FND_LOG.string(fnd_log.level_statement, g_log_module_name, 'progress:='||l_progress||' Begin proc: remove_from_req_pool');
3495: END IF;
3496:
3497: EXCEPTION
3498: WHEN OTHERS THEN
3499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3500: x_error_msg := 'Unexpectional error occured. sqlerrm: '||sqlerrm;
3501:
3502: l_progress := '0060';
3503: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3673: END LOOP;
3674:
3675: EXCEPTION
3676: WHEN OTHERS THEN
3677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3678: x_error_msg := 'Unexpectional error occured. sqlerrm: '||sqlerrm;
3679:
3680: l_progress := '0060';
3681: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3745: last_updated_by = FND_GLOBAL.USER_ID,
3746: last_update_login = FND_GLOBAL.LOGIN_ID
3747: where auction_header_id = p_auction_header_id;
3748:
3749: x_return_status := FND_API.G_RET_STS_SUCCESS;
3750:
3751: EXCEPTION
3752: WHEN OTHERS THEN
3753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3749: x_return_status := FND_API.G_RET_STS_SUCCESS;
3750:
3751: EXCEPTION
3752: WHEN OTHERS THEN
3753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3754: x_error_msg := 'Unexpectional error occured. sqlerrm: '||sqlerrm;
3755:
3756: l_progress := '0060';
3757: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3862: x_error_msg => x_error_msg,
3863: x_error_code => x_error_code);
3864: END IF;
3865:
3866: x_return_status := FND_API.G_RET_STS_SUCCESS;
3867:
3868: EXCEPTION
3869: WHEN OTHERS THEN
3870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3866: x_return_status := FND_API.G_RET_STS_SUCCESS;
3867:
3868: EXCEPTION
3869: WHEN OTHERS THEN
3870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3871: x_error_msg := 'Unexpectional error occured. sqlerrm: '||sqlerrm;
3872:
3873: l_progress := '0060';
3874: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3938: x_error_msg => x_error_msg,
3939: x_error_code => x_error_code);
3940: END IF;
3941:
3942: x_return_status := FND_API.G_RET_STS_SUCCESS;
3943:
3944:
3945: EXCEPTION
3946: WHEN OTHERS THEN
3943:
3944:
3945: EXCEPTION
3946: WHEN OTHERS THEN
3947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3948: x_error_msg := 'Unexpectional error occured. sqlerrm: '||sqlerrm;
3949:
3950: l_progress := '0060';
3951: IF ( fnd_log.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN