341: where auction_header_id = p_auction_header_id_prev_doc;
342:
343: if v_is_paused <> 'Y' then
344:
345: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
346: FND_LOG.string (log_level => FND_LOG.level_procedure,
347: module => g_module_prefix || l_module_name,
348: message => 'The auction is not paused.');
349: END IF;
342:
343: if v_is_paused <> 'Y' then
344:
345: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
346: FND_LOG.string (log_level => FND_LOG.level_procedure,
347: module => g_module_prefix || l_module_name,
348: message => 'The auction is not paused.');
349: END IF;
350:
1004: BEGIN
1005:
1006: l_module_name := 'PROPAGATE_BACK_UNLOCK';
1007:
1008: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1009: FND_LOG.string (log_level => FND_LOG.level_procedure,
1010: module => g_module_prefix || l_module_name,
1011: message => 'Entered procedure = ' || l_module_name || '.' ||
1012: ' Parameters: p_currAuctionHeaderId = ' || p_currAuctionHeaderId || ', ' ||
1005:
1006: l_module_name := 'PROPAGATE_BACK_UNLOCK';
1007:
1008: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1009: FND_LOG.string (log_level => FND_LOG.level_procedure,
1010: module => g_module_prefix || l_module_name,
1011: message => 'Entered procedure = ' || l_module_name || '.' ||
1012: ' Parameters: p_currAuctionHeaderId = ' || p_currAuctionHeaderId || ', ' ||
1013: ' p_userId = ' || p_userId || ', ' || ' p_unlock_date = ' || p_unlock_date || ', ' ||
1034: where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
1035: amendment_number < v_currAmendmentNumber;
1036: END IF;
1037:
1038: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1039: FND_LOG.string (log_level => FND_LOG.level_procedure,
1040: module => g_module_prefix || l_module_name,
1041: message => 'Leaving procedure = ' || l_module_name);
1042: END IF;
1035: amendment_number < v_currAmendmentNumber;
1036: END IF;
1037:
1038: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1039: FND_LOG.string (log_level => FND_LOG.level_procedure,
1040: module => g_module_prefix || l_module_name,
1041: message => 'Leaving procedure = ' || l_module_name);
1042: END IF;
1043:
1056: BEGIN
1057:
1058: l_module_name := 'PROPAGATE_BACK_UNSEAL';
1059:
1060: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1061: FND_LOG.string (log_level => FND_LOG.level_procedure,
1062: module => g_module_prefix || l_module_name,
1063: message => 'Entered procedure = ' || l_module_name || '.' ||
1064: ' Parameters: p_currAuctionHeaderId = ' || p_currAuctionHeaderId || ', ' ||
1057:
1058: l_module_name := 'PROPAGATE_BACK_UNSEAL';
1059:
1060: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1061: FND_LOG.string (log_level => FND_LOG.level_procedure,
1062: module => g_module_prefix || l_module_name,
1063: message => 'Entered procedure = ' || l_module_name || '.' ||
1064: ' Parameters: p_currAuctionHeaderId = ' || p_currAuctionHeaderId || ', ' ||
1065: ' p_userId = ' || p_userId || ', ' || ' p_unseal_date = ' || p_unseal_date || ', ' ||
1106: where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
1107: amendment_number < v_currAmendmentNumber;
1108: END IF;
1109:
1110: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1111: FND_LOG.string (log_level => FND_LOG.level_procedure,
1112: module => g_module_prefix || l_module_name,
1113: message => 'Leaving procedure = ' || l_module_name);
1114: END IF;
1107: amendment_number < v_currAmendmentNumber;
1108: END IF;
1109:
1110: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1111: FND_LOG.string (log_level => FND_LOG.level_procedure,
1112: module => g_module_prefix || l_module_name,
1113: message => 'Leaving procedure = ' || l_module_name);
1114: END IF;
1115:
1226:
1227: l_module_name := 'MANUAL_CLOSE_LINE';
1228: x_result := FND_API.g_ret_sts_success;
1229:
1230: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1231: FND_LOG.string (log_level => FND_LOG.level_procedure,
1232: module => g_module_prefix || l_module_name,
1233: message => 'Entered procedure = ' || l_module_name || '.' ||
1234: ' Parameters: p_auction_header_id = ' || p_auction_header_id || ', ' ||
1227: l_module_name := 'MANUAL_CLOSE_LINE';
1228: x_result := FND_API.g_ret_sts_success;
1229:
1230: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1231: FND_LOG.string (log_level => FND_LOG.level_procedure,
1232: module => g_module_prefix || l_module_name,
1233: message => 'Entered procedure = ' || l_module_name || '.' ||
1234: ' Parameters: p_auction_header_id = ' || p_auction_header_id || ', ' ||
1235: ' p_user_id = ' || p_user_id);
1241: FROM PON_AUCTION_HEADERS_ALL
1242: WHERE AUCTION_HEADER_ID = p_auction_header_id
1243: FOR UPDATE;
1244:
1245: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1246: FND_LOG.string (log_level => FND_LOG.level_statement,
1247: module => g_module_prefix || l_module_name,
1248: message => 'Locked the negotiation header');
1249: END IF;
1242: WHERE AUCTION_HEADER_ID = p_auction_header_id
1243: FOR UPDATE;
1244:
1245: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1246: FND_LOG.string (log_level => FND_LOG.level_statement,
1247: module => g_module_prefix || l_module_name,
1248: message => 'Locked the negotiation header');
1249: END IF;
1250:
1264: where auction_header_id = p_auction_header_id
1265: and (line_number = p_line_number
1266: or parent_line_number = p_line_number);
1267:
1268: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1269: FND_LOG.string (log_level => FND_LOG.level_statement,
1270: module => g_module_prefix || l_module_name,
1271: message => 'Update header and the line.');
1272: END IF;
1265: and (line_number = p_line_number
1266: or parent_line_number = p_line_number);
1267:
1268: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1269: FND_LOG.string (log_level => FND_LOG.level_statement,
1270: module => g_module_prefix || l_module_name,
1271: message => 'Update header and the line.');
1272: END IF;
1273:
1280: from pon_auction_item_prices_all
1281: where auction_header_id=p_auction_header_id
1282: and group_type in ('LINE', 'LOT', 'GROUP'));
1283:
1284: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1285: FND_LOG.string (log_level => FND_LOG.level_statement,
1286: module => g_module_prefix || l_module_name,
1287: message => 'The last line in the auction is = ' || v_auction_last_line_number);
1288: END IF;
1281: where auction_header_id=p_auction_header_id
1282: and group_type in ('LINE', 'LOT', 'GROUP'));
1283:
1284: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1285: FND_LOG.string (log_level => FND_LOG.level_statement,
1286: module => g_module_prefix || l_module_name,
1287: message => 'The last line in the auction is = ' || v_auction_last_line_number);
1288: END IF;
1289:
1288: END IF;
1289:
1290: if (p_line_number = v_auction_last_line_number) then
1291:
1292: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1293: FND_LOG.string (log_level => FND_LOG.level_statement,
1294: module => g_module_prefix || l_module_name,
1295: message => 'The last line number in the auction matches with p_line_number, closing the negotiation');
1296: END IF;
1289:
1290: if (p_line_number = v_auction_last_line_number) then
1291:
1292: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1293: FND_LOG.string (log_level => FND_LOG.level_statement,
1294: module => g_module_prefix || l_module_name,
1295: message => 'The last line number in the auction matches with p_line_number, closing the negotiation');
1296: END IF;
1297:
1298: update pon_auction_headers_all set close_bidding_date = p_new_close_date
1299: where auction_header_id = p_auction_header_id;
1300: x_is_auction_closed := 'Y';
1301:
1302: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1303: FND_LOG.string (log_level => FND_LOG.level_statement,
1304: module => g_module_prefix || l_module_name,
1305: message => 'Updated header sending notification.');
1306: END IF;
1299: where auction_header_id = p_auction_header_id;
1300: x_is_auction_closed := 'Y';
1301:
1302: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1303: FND_LOG.string (log_level => FND_LOG.level_statement,
1304: module => g_module_prefix || l_module_name,
1305: message => 'Updated header sending notification.');
1306: END IF;
1307:
1309: p_new_close_date,
1310: null);
1311: end if;
1312:
1313: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1314: FND_LOG.string (log_level => FND_LOG.level_procedure,
1315: module => g_module_prefix || l_module_name,
1316: message => 'Leaving procedure = ' || l_module_name);
1317: END IF;
1310: null);
1311: end if;
1312:
1313: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1314: FND_LOG.string (log_level => FND_LOG.level_procedure,
1315: module => g_module_prefix || l_module_name,
1316: message => 'Leaving procedure = ' || l_module_name);
1317: END IF;
1318:
1321: x_result := FND_API.g_ret_sts_unexp_error;
1322: x_error_code := SQLCODE;
1323: x_error_message := SUBSTR(SQLERRM, 1, 100);
1324:
1325: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
1326: FND_LOG.string (log_level => FND_LOG.level_exception,
1327: module => g_module_prefix || l_module_name,
1328: message => 'Unexpected exception occured error_code = ' ||
1329: x_error_code || ', error_message = ' || x_error_message);
1322: x_error_code := SQLCODE;
1323: x_error_message := SUBSTR(SQLERRM, 1, 100);
1324:
1325: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
1326: FND_LOG.string (log_level => FND_LOG.level_exception,
1327: module => g_module_prefix || l_module_name,
1328: message => 'Unexpected exception occured error_code = ' ||
1329: x_error_code || ', error_message = ' || x_error_message);
1330: END IF;
1341: BEGIN
1342:
1343: l_module_name := 'PROPAGATE_BACK_TECH_EVAL';
1344:
1345: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1346: FND_LOG.string (log_level => FND_LOG.level_procedure,
1347: module => g_module_prefix || l_module_name,
1348: message => 'Entered procedure = ' || l_module_name || '.' ||
1349: ' Parameters: p_currAuctionHeaderId = ' || p_currAuctionHeaderId || ', ' ||
1342:
1343: l_module_name := 'PROPAGATE_BACK_TECH_EVAL';
1344:
1345: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1346: FND_LOG.string (log_level => FND_LOG.level_procedure,
1347: module => g_module_prefix || l_module_name,
1348: message => 'Entered procedure = ' || l_module_name || '.' ||
1349: ' Parameters: p_currAuctionHeaderId = ' || p_currAuctionHeaderId || ', ' ||
1350: ' p_tech_eval_status = ' || p_tech_eval_status);
1359: set technical_evaluation_status = p_tech_eval_status
1360: where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
1361: amendment_number < v_currAmendmentNumber;
1362:
1363: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1364: FND_LOG.string (log_level => FND_LOG.level_procedure,
1365: module => g_module_prefix || l_module_name,
1366: message => 'Leaving procedure = ' || l_module_name);
1367: END IF;
1360: where auction_header_id_orig_amend = v_auctionHeaderIdOrigAmend and
1361: amendment_number < v_currAmendmentNumber;
1362:
1363: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1364: FND_LOG.string (log_level => FND_LOG.level_procedure,
1365: module => g_module_prefix || l_module_name,
1366: message => 'Leaving procedure = ' || l_module_name);
1367: END IF;
1368: