[Home] [Help]
23: x_min_disp_line_num OUT NOCOPY NUMBER
24: ) IS
25: BEGIN
26:
27: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
28: FND_LOG.string(log_level => FND_LOG.level_statement,
29: module => g_module_prefix || 'GET_SEARCH_MIN_DISP_LINE_NUM',
30: message => 'Entering PON_NEGOTIATION_HELPER_PVT.GET_SEARCH_MIN_DISP_LINE_NUM '
31: || ', p_auction_header_id = ' || p_auction_header_id
24: ) IS
25: BEGIN
26:
27: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
28: FND_LOG.string(log_level => FND_LOG.level_statement,
29: module => g_module_prefix || 'GET_SEARCH_MIN_DISP_LINE_NUM',
30: message => 'Entering PON_NEGOTIATION_HELPER_PVT.GET_SEARCH_MIN_DISP_LINE_NUM '
31: || ', p_auction_header_id = ' || p_auction_header_id
32: || ', p_value = ' || p_value);
41: WHERE AUCTION_HEADER_ID = p_auction_header_id
42: AND GROUP_TYPE IN ('LOT', 'GROUP', 'LINE')
43: AND SUB_LINE_SEQUENCE_NUMBER > p_value;
44:
45: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
46: FND_LOG.string(log_level => FND_LOG.level_statement,
47: module => g_module_prefix || 'GET_SEARCH_MIN_DISP_LINE_NUM',
48: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.GET_SEARCH_MIN_DISP_LINE_NUM'
49: || 'x_min_disp_line_num = ' || x_min_disp_line_num);
42: AND GROUP_TYPE IN ('LOT', 'GROUP', 'LINE')
43: AND SUB_LINE_SEQUENCE_NUMBER > p_value;
44:
45: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
46: FND_LOG.string(log_level => FND_LOG.level_statement,
47: module => g_module_prefix || 'GET_SEARCH_MIN_DISP_LINE_NUM',
48: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.GET_SEARCH_MIN_DISP_LINE_NUM'
49: || 'x_min_disp_line_num = ' || x_min_disp_line_num);
50: END IF;
74: l_line_number PON_AUCTION_ITEM_PRICES_ALL.LINE_NUMBER%TYPE;
75: l_group_type PON_AUCTION_ITEM_PRICES_ALL.GROUP_TYPE%TYPE;
76: BEGIN
77:
78: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
79: FND_LOG.string(log_level => FND_LOG.level_statement,
80: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
81: message => 'Entering PON_NEGOTIATION_HELPER_PVT.GET_SEARCH_MAX_DISP_LINE_NUM '
82: || ', p_auction_header_id = ' || p_auction_header_id
75: l_group_type PON_AUCTION_ITEM_PRICES_ALL.GROUP_TYPE%TYPE;
76: BEGIN
77:
78: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
79: FND_LOG.string(log_level => FND_LOG.level_statement,
80: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
81: message => 'Entering PON_NEGOTIATION_HELPER_PVT.GET_SEARCH_MAX_DISP_LINE_NUM '
82: || ', p_auction_header_id = ' || p_auction_header_id
83: || ', p_value = ' || p_value);
92: WHERE AUCTION_HEADER_ID = p_auction_header_id
93: AND GROUP_TYPE IN ('LOT', 'LINE', 'GROUP')
94: AND SUB_LINE_SEQUENCE_NUMBER < p_value;
95:
96: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
97: FND_LOG.string(log_level => FND_LOG.level_statement,
98: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
99: message => 'After the first query x_max_disp_line_num = ' ||
100: x_max_disp_line_num);
93: AND GROUP_TYPE IN ('LOT', 'LINE', 'GROUP')
94: AND SUB_LINE_SEQUENCE_NUMBER < p_value;
95:
96: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
97: FND_LOG.string(log_level => FND_LOG.level_statement,
98: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
99: message => 'After the first query x_max_disp_line_num = ' ||
100: x_max_disp_line_num);
101: END IF;
101: END IF;
102:
103: IF (x_max_disp_line_num IS NULL) THEN
104:
105: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
106: FND_LOG.string(log_level => FND_LOG.level_statement,
107: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
108: message => 'There are no lines so returning null');
109: END IF;
102:
103: IF (x_max_disp_line_num IS NULL) THEN
104:
105: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
106: FND_LOG.string(log_level => FND_LOG.level_statement,
107: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
108: message => 'There are no lines so returning null');
109: END IF;
110:
116: FROM PON_AUCTION_ITEM_PRICES_ALL
117: WHERE AUCTION_HEADER_ID = p_auction_header_id
118: AND DISP_LINE_NUMBER = x_max_disp_line_num;
119:
120: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
121: FND_LOG.string(log_level => FND_LOG.level_statement,
122: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
123: message => 'l_group_type = ' || l_group_type
124: || ', l_line_number = ' || l_line_number);
117: WHERE AUCTION_HEADER_ID = p_auction_header_id
118: AND DISP_LINE_NUMBER = x_max_disp_line_num;
119:
120: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
121: FND_LOG.string(log_level => FND_LOG.level_statement,
122: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
123: message => 'l_group_type = ' || l_group_type
124: || ', l_line_number = ' || l_line_number);
125: END IF;
134: WHERE AUCTION_HEADER_ID = p_auction_header_id
135: AND PARENT_LINE_NUMBER = l_line_number;
136: END IF;
137:
138: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
139: FND_LOG.string(log_level => FND_LOG.level_statement,
140: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
141: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.GET_AUCTION_REQUEST_ID '
142: || ', x_max_disp_line_num = ' || x_max_disp_line_num);
135: AND PARENT_LINE_NUMBER = l_line_number;
136: END IF;
137:
138: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
139: FND_LOG.string(log_level => FND_LOG.level_statement,
140: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
141: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.GET_AUCTION_REQUEST_ID '
142: || ', x_max_disp_line_num = ' || x_max_disp_line_num);
143: END IF;
149: x_request_id OUT NOCOPY NUMBER
150: ) IS
151: BEGIN
152:
153: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
154: FND_LOG.string(log_level => FND_LOG.level_statement,
155: module => g_module_prefix || 'GET_AUCTION_REQUEST_ID',
156: message => 'Entering PON_NEGOTIATION_HELPER_PVT.GET_AUCTION_REQUEST_ID '
157: || ', p_auction_header_id = ' || p_auction_header_id);
150: ) IS
151: BEGIN
152:
153: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
154: FND_LOG.string(log_level => FND_LOG.level_statement,
155: module => g_module_prefix || 'GET_AUCTION_REQUEST_ID',
156: message => 'Entering PON_NEGOTIATION_HELPER_PVT.GET_AUCTION_REQUEST_ID '
157: || ', p_auction_header_id = ' || p_auction_header_id);
158: END IF;
161: INTO x_request_id
162: FROM PON_AUCTION_HEADERS_ALL
163: WHERE AUCTION_HEADER_ID = p_auction_header_id;
164:
165: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
166: FND_LOG.string(log_level => FND_LOG.level_statement,
167: module => g_module_prefix || 'GET_AUCTION_REQUEST_ID',
168: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.GET_AUCTION_REQUEST_ID '
169: || ', x_request_id = ' || x_request_id);
162: FROM PON_AUCTION_HEADERS_ALL
163: WHERE AUCTION_HEADER_ID = p_auction_header_id;
164:
165: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
166: FND_LOG.string(log_level => FND_LOG.level_statement,
167: module => g_module_prefix || 'GET_AUCTION_REQUEST_ID',
168: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.GET_AUCTION_REQUEST_ID '
169: || ', x_request_id = ' || x_request_id);
170: END IF;
171:
172: EXCEPTION WHEN NO_DATA_FOUND THEN
173: x_request_id := NULL;
174:
175: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
176: FND_LOG.string(log_level => FND_LOG.level_exception,
177: module => g_module_prefix || 'GET_AUCTION_REQUEST_ID',
178: message => 'Exception in PON_NEGOTIATION_HELPER_PVT.GET_AUCTION_REQUEST_ID '
179: || 'errnum = ' || SQLCODE || ', errmsg = ' || SUBSTR (SQLERRM, 1, 200));
172: EXCEPTION WHEN NO_DATA_FOUND THEN
173: x_request_id := NULL;
174:
175: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
176: FND_LOG.string(log_level => FND_LOG.level_exception,
177: module => g_module_prefix || 'GET_AUCTION_REQUEST_ID',
178: message => 'Exception in PON_NEGOTIATION_HELPER_PVT.GET_AUCTION_REQUEST_ID '
179: || 'errnum = ' || SQLCODE || ', errmsg = ' || SUBSTR (SQLERRM, 1, 200));
180: END IF;
203:
204: l_line_number NUMBER;
205: BEGIN
206:
207: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
208: FND_LOG.string (log_level => FND_LOG.level_statement,
209: module => g_module_prefix || 'HAS_FIXED_AMT_OR_PER_UNIT_PE',
210: message => 'Entered procedure with p_auction_header_id = ' || p_auction_header_id);
211: END IF;
204: l_line_number NUMBER;
205: BEGIN
206:
207: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
208: FND_LOG.string (log_level => FND_LOG.level_statement,
209: module => g_module_prefix || 'HAS_FIXED_AMT_OR_PER_UNIT_PE',
210: message => 'Entered procedure with p_auction_header_id = ' || p_auction_header_id);
211: END IF;
212:
224: ROWNUM = 1;
225:
226: x_has_fixed_amt_or_per_unit_pe := 'Y';
227:
228: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
229: FND_LOG.string (log_level => FND_LOG.level_statement,
230: module => g_module_prefix || 'HAS_FIXED_AMT_OR_PER_UNIT_PE',
231: message => 'Returning x_has_fixed_amt_or_per_unit_pe = ' || x_has_fixed_amt_or_per_unit_pe);
232: END IF;
225:
226: x_has_fixed_amt_or_per_unit_pe := 'Y';
227:
228: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
229: FND_LOG.string (log_level => FND_LOG.level_statement,
230: module => g_module_prefix || 'HAS_FIXED_AMT_OR_PER_UNIT_PE',
231: message => 'Returning x_has_fixed_amt_or_per_unit_pe = ' || x_has_fixed_amt_or_per_unit_pe);
232: END IF;
233:
234: EXCEPTION
235: WHEN NO_DATA_FOUND THEN --{
236: x_has_fixed_amt_or_per_unit_pe := 'N';
237:
238: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
239: FND_LOG.string (log_level => FND_LOG.level_statement,
240: module => g_module_prefix || 'HAS_FIXED_AMT_OR_PER_UNIT_PE',
241: message => 'Returning x_has_fixed_amt_or_per_unit_pe = ' || x_has_fixed_amt_or_per_unit_pe);
242: END IF;
235: WHEN NO_DATA_FOUND THEN --{
236: x_has_fixed_amt_or_per_unit_pe := 'N';
237:
238: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
239: FND_LOG.string (log_level => FND_LOG.level_statement,
240: module => g_module_prefix || 'HAS_FIXED_AMT_OR_PER_UNIT_PE',
241: message => 'Returning x_has_fixed_amt_or_per_unit_pe = ' || x_has_fixed_amt_or_per_unit_pe);
242: END IF;
243:
245: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
246: x_error_code := SQLCODE;
247: x_error_message := SUBSTR(SQLERRM, 1, 100);
248:
249: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
250: FND_LOG.string (log_level => FND_LOG.level_exception,
251: module => g_module_prefix || 'HAS_FIXED_AMT_OR_PER_UNIT_PE',
252: message => 'Exception occured while checking for fixed amount or per unit price elements'
253: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200) );
246: x_error_code := SQLCODE;
247: x_error_message := SUBSTR(SQLERRM, 1, 100);
248:
249: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
250: FND_LOG.string (log_level => FND_LOG.level_exception,
251: module => g_module_prefix || 'HAS_FIXED_AMT_OR_PER_UNIT_PE',
252: message => 'Exception occured while checking for fixed amount or per unit price elements'
253: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200) );
254: END IF;
277:
278: l_line_number NUMBER;
279: BEGIN
280:
281: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
282: FND_LOG.string (log_level => FND_LOG.level_statement,
283: module => g_module_prefix || 'HAS_GOODS_LINE_FIXED_AMOUNT_PE',
284: message => 'Entered procedure with p_auction_header_id = ' || p_auction_header_id);
285: END IF;
278: l_line_number NUMBER;
279: BEGIN
280:
281: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
282: FND_LOG.string (log_level => FND_LOG.level_statement,
283: module => g_module_prefix || 'HAS_GOODS_LINE_FIXED_AMOUNT_PE',
284: message => 'Entered procedure with p_auction_header_id = ' || p_auction_header_id);
285: END IF;
286:
302: ROWNUM = 1;
303:
304: x_has_goods_line_fixed_amt_pe := 'Y';
305:
306: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
307: FND_LOG.string (log_level => FND_LOG.level_statement,
308: module => g_module_prefix || 'HAS_GOODS_LINE_FIXED_AMOUNT_PE',
309: message => 'Returning x_has_goods_line_fixed_amt_pe = ' || x_has_goods_line_fixed_amt_pe);
310: END IF;
303:
304: x_has_goods_line_fixed_amt_pe := 'Y';
305:
306: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
307: FND_LOG.string (log_level => FND_LOG.level_statement,
308: module => g_module_prefix || 'HAS_GOODS_LINE_FIXED_AMOUNT_PE',
309: message => 'Returning x_has_goods_line_fixed_amt_pe = ' || x_has_goods_line_fixed_amt_pe);
310: END IF;
311: EXCEPTION
311: EXCEPTION
312: WHEN NO_DATA_FOUND THEN --{
313: x_has_goods_line_fixed_amt_pe := 'N';
314:
315: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
316: FND_LOG.string (log_level => FND_LOG.level_statement,
317: module => g_module_prefix || 'HAS_GOODS_LINE_FIXED_AMOUNT_PE',
318: message => 'Returning x_has_goods_line_fixed_amt_pe = ' || x_has_goods_line_fixed_amt_pe);
319: END IF;
312: WHEN NO_DATA_FOUND THEN --{
313: x_has_goods_line_fixed_amt_pe := 'N';
314:
315: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
316: FND_LOG.string (log_level => FND_LOG.level_statement,
317: module => g_module_prefix || 'HAS_GOODS_LINE_FIXED_AMOUNT_PE',
318: message => 'Returning x_has_goods_line_fixed_amt_pe = ' || x_has_goods_line_fixed_amt_pe);
319: END IF;
320:
322: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
323: x_error_code := SQLCODE;
324: x_error_message := SUBSTR(SQLERRM, 1, 100);
325:
326: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
327: FND_LOG.string (log_level => FND_LOG.level_exception,
328: module => g_module_prefix || 'HAS_GOODS_LINE_FIXED_AMOUNT_PE',
329: message => 'Exception occured while checking for goods lines with fixed amount price elements'
330: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200) );
323: x_error_code := SQLCODE;
324: x_error_message := SUBSTR(SQLERRM, 1, 100);
325:
326: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
327: FND_LOG.string (log_level => FND_LOG.level_exception,
328: module => g_module_prefix || 'HAS_GOODS_LINE_FIXED_AMOUNT_PE',
329: message => 'Exception occured while checking for goods lines with fixed amount price elements'
330: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200) );
331: END IF;
359:
360: l_number_of_lines NUMBER;
361: BEGIN
362:
363: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
364: FND_LOG.string (log_level => FND_LOG.level_statement,
365: module => g_module_prefix || 'GET_MAX_INTERNAL_AND_DOC_NUM',
366: message => 'Entered procedure with p_auction_header_id = ' || p_auction_header_id);
367: END IF;
360: l_number_of_lines NUMBER;
361: BEGIN
362:
363: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
364: FND_LOG.string (log_level => FND_LOG.level_statement,
365: module => g_module_prefix || 'GET_MAX_INTERNAL_AND_DOC_NUM',
366: message => 'Entered procedure with p_auction_header_id = ' || p_auction_header_id);
367: END IF;
368:
402: items.auction_header_id = p_auction_header_id;
403:
404: END IF;
405:
406: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
407: FND_LOG.string (log_level => FND_LOG.level_statement,
408: module => g_module_prefix || 'GET_MAX_INTERNAL_AND_DOC_NUM',
409: message => 'Returning x_max_internal_line_num = ' || x_max_internal_line_num ||
410: ', x_max_document_line_num = ' || x_max_document_line_num ||
403:
404: END IF;
405:
406: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
407: FND_LOG.string (log_level => FND_LOG.level_statement,
408: module => g_module_prefix || 'GET_MAX_INTERNAL_AND_DOC_NUM',
409: message => 'Returning x_max_internal_line_num = ' || x_max_internal_line_num ||
410: ', x_max_document_line_num = ' || x_max_document_line_num ||
411: ', x_max_disp_line_num = ' || x_max_disp_line_num);
416: x_max_disp_line_num := 0;
417: x_max_document_line_num := 0;
418: x_max_internal_line_num := 0;
419:
420: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
421: FND_LOG.string (log_level => FND_LOG.level_statement,
422: module => g_module_prefix || 'GET_MAX_INTERNAL_AND_DOC_NUM',
423: message => 'Returning x_max_internal_line_num = ' || x_max_internal_line_num ||
424: ', x_max_document_line_num = ' || x_max_document_line_num ||
417: x_max_document_line_num := 0;
418: x_max_internal_line_num := 0;
419:
420: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
421: FND_LOG.string (log_level => FND_LOG.level_statement,
422: module => g_module_prefix || 'GET_MAX_INTERNAL_AND_DOC_NUM',
423: message => 'Returning x_max_internal_line_num = ' || x_max_internal_line_num ||
424: ', x_max_document_line_num = ' || x_max_document_line_num ||
425: ', x_max_disp_line_num = ' || x_max_disp_line_num);
428: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
429: x_error_code := SQLCODE;
430: x_error_message := SUBSTR(SQLERRM, 1, 100);
431:
432: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
433: FND_LOG.string (log_level => FND_LOG.level_exception,
434: module => g_module_prefix || 'GET_MAX_INTERNAL_AND_DOC_NUM',
435: message => 'Exception occured while getting the sequences'
436: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200) );
429: x_error_code := SQLCODE;
430: x_error_message := SUBSTR(SQLERRM, 1, 100);
431:
432: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
433: FND_LOG.string (log_level => FND_LOG.level_exception,
434: module => g_module_prefix || 'GET_MAX_INTERNAL_AND_DOC_NUM',
435: message => 'Exception occured while getting the sequences'
436: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200) );
437: END IF;
457: x_error_message OUT NOCOPY VARCHAR2
458: ) IS
459: BEGIN
460:
461: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
462: FND_LOG.string (log_level => FND_LOG.level_statement,
463: module => g_module_prefix || 'GET_NUMBER_OF_LINES',
464: message => 'Entered procedure with p_auction_header_id = ' || p_auction_header_id);
465: END IF;
458: ) IS
459: BEGIN
460:
461: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
462: FND_LOG.string (log_level => FND_LOG.level_statement,
463: module => g_module_prefix || 'GET_NUMBER_OF_LINES',
464: message => 'Entered procedure with p_auction_header_id = ' || p_auction_header_id);
465: END IF;
466:
474: PON_AUCTION_ITEM_PRICES_ALL
475: WHERE
476: AUCTION_HEADER_ID = p_auction_header_id;
477:
478: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
479: FND_LOG.string (log_level => FND_LOG.level_statement,
480: module => g_module_prefix || 'GET_NUMBER_OF_LINES',
481: message => 'Returning x_number_of_lines = ' || x_number_of_lines);
482: END IF;
475: WHERE
476: AUCTION_HEADER_ID = p_auction_header_id;
477:
478: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
479: FND_LOG.string (log_level => FND_LOG.level_statement,
480: module => g_module_prefix || 'GET_NUMBER_OF_LINES',
481: message => 'Returning x_number_of_lines = ' || x_number_of_lines);
482: END IF;
483:
485: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
486: x_error_code := SQLCODE;
487: x_error_message := SUBSTR(SQLERRM, 1, 100);
488:
489: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
490: FND_LOG.string (log_level => FND_LOG.level_exception,
491: module => g_module_prefix || 'GET_NUMBER_OF_LINES',
492: message => 'Exception occured while getting the number of lines'
493: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200) );
486: x_error_code := SQLCODE;
487: x_error_message := SUBSTR(SQLERRM, 1, 100);
488:
489: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
490: FND_LOG.string (log_level => FND_LOG.level_exception,
491: module => g_module_prefix || 'GET_NUMBER_OF_LINES',
492: message => 'Exception occured while getting the number of lines'
493: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200) );
494: END IF;
517:
518: l_line_number NUMBER;
519: BEGIN
520:
521: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
522: FND_LOG.string (log_level => FND_LOG.level_statement,
523: module => g_module_prefix || 'HAS_ITEMS',
524: message => 'Entered procedure with p_auction_header_id = ' || p_auction_header_id);
525: END IF;
518: l_line_number NUMBER;
519: BEGIN
520:
521: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
522: FND_LOG.string (log_level => FND_LOG.level_statement,
523: module => g_module_prefix || 'HAS_ITEMS',
524: message => 'Entered procedure with p_auction_header_id = ' || p_auction_header_id);
525: END IF;
526:
537: ROWNUM = 1;
538:
539: x_has_items := 'Y';
540:
541: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
542: FND_LOG.string (log_level => FND_LOG.level_statement,
543: module => g_module_prefix || 'HAS_ITEMS',
544: message => 'Returning x_has_items = ' || x_has_items);
545: END IF;
538:
539: x_has_items := 'Y';
540:
541: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
542: FND_LOG.string (log_level => FND_LOG.level_statement,
543: module => g_module_prefix || 'HAS_ITEMS',
544: message => 'Returning x_has_items = ' || x_has_items);
545: END IF;
546: EXCEPTION
547: WHEN NO_DATA_FOUND THEN --{
548:
549: x_has_items := 'N';
550:
551: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
552: FND_LOG.string (log_level => FND_LOG.level_statement,
553: module => g_module_prefix || 'HAS_ITEMS',
554: message => 'Returning x_has_items = ' || x_has_items);
555: END IF;
548:
549: x_has_items := 'N';
550:
551: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.g_current_runtime_level) THEN
552: FND_LOG.string (log_level => FND_LOG.level_statement,
553: module => g_module_prefix || 'HAS_ITEMS',
554: message => 'Returning x_has_items = ' || x_has_items);
555: END IF;
556:
558: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
559: x_error_code := SQLCODE;
560: x_error_message := SUBSTR(SQLERRM, 1, 100);
561:
562: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
563: FND_LOG.string (log_level => FND_LOG.level_exception,
564: module => g_module_prefix || 'HAS_ITEMS',
565: message => 'Exception occured while checking if items are present'
566: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200) );
559: x_error_code := SQLCODE;
560: x_error_message := SUBSTR(SQLERRM, 1, 100);
561:
562: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.g_current_runtime_level) THEN
563: FND_LOG.string (log_level => FND_LOG.level_exception,
564: module => g_module_prefix || 'HAS_ITEMS',
565: message => 'Exception occured while checking if items are present'
566: || ' Error Number :' || SQLCODE || ' Exception Message :' || SUBSTR(SQLERRM, 1, 200) );
567: END IF;
596:
597: l_module_name := 'remove_score';
598: x_result := FND_API.g_ret_sts_success;
599:
600: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
601: FND_LOG.string (log_level => FND_LOG.level_procedure,
602: module => g_module_prefix || l_module_name,
603: message => 'Entered procedure = ' || l_module_name ||
604: 'p_auction_header_id = ' || p_auction_header_id);
597: l_module_name := 'remove_score';
598: x_result := FND_API.g_ret_sts_success;
599:
600: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
601: FND_LOG.string (log_level => FND_LOG.level_procedure,
602: module => g_module_prefix || l_module_name,
603: message => 'Entered procedure = ' || l_module_name ||
604: 'p_auction_header_id = ' || p_auction_header_id);
605: END IF;
670: END LOOP;
671:
672: END IF; --}
673:
674: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
675: FND_LOG.string (log_level => FND_LOG.level_procedure,
676: module => g_module_prefix || l_module_name,
677: message => 'Leaving procedure = ' || l_module_name);
678: END IF;
671:
672: END IF; --}
673:
674: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
675: FND_LOG.string (log_level => FND_LOG.level_procedure,
676: module => g_module_prefix || l_module_name,
677: message => 'Leaving procedure = ' || l_module_name);
678: END IF;
679:
682: x_result := FND_API.g_ret_sts_unexp_error;
683: x_error_code := SQLCODE;
684: x_error_message := SUBSTR(SQLERRM, 1, 100);
685:
686: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
687: FND_LOG.string (log_level => FND_LOG.level_exception,
688: module => g_module_prefix || l_module_name,
689: message => 'Unexpected exception occured error_code = ' ||
690: x_error_code || ', error_message = ' || x_error_message);
683: x_error_code := SQLCODE;
684: x_error_message := SUBSTR(SQLERRM, 1, 100);
685:
686: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
687: FND_LOG.string (log_level => FND_LOG.level_exception,
688: module => g_module_prefix || l_module_name,
689: message => 'Unexpected exception occured error_code = ' ||
690: x_error_code || ', error_message = ' || x_error_message);
691: END IF;
715:
716: l_module_name := 'has_price_elements';
717: x_result := FND_API.g_ret_sts_success;
718:
719: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
720: FND_LOG.string (log_level => FND_LOG.level_procedure,
721: module => g_module_prefix || l_module_name,
722: message => 'Entered procedure = ' || l_module_name ||
723: ' p_auction_header_id = ' || p_auction_header_id);
716: l_module_name := 'has_price_elements';
717: x_result := FND_API.g_ret_sts_success;
718:
719: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
720: FND_LOG.string (log_level => FND_LOG.level_procedure,
721: module => g_module_prefix || l_module_name,
722: message => 'Entered procedure = ' || l_module_name ||
723: ' p_auction_header_id = ' || p_auction_header_id);
724: END IF;
739: WHEN NO_DATA_FOUND THEN
740: x_has_price_elements := 'N';
741: END;
742:
743: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
744: FND_LOG.string (log_level => FND_LOG.level_procedure,
745: module => g_module_prefix || l_module_name,
746: message => 'Leaving procedure = ' || l_module_name ||
747: ' x_has_price_elements = ' || x_has_price_elements);
740: x_has_price_elements := 'N';
741: END;
742:
743: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
744: FND_LOG.string (log_level => FND_LOG.level_procedure,
745: module => g_module_prefix || l_module_name,
746: message => 'Leaving procedure = ' || l_module_name ||
747: ' x_has_price_elements = ' || x_has_price_elements);
748: END IF;
752: x_result := FND_API.g_ret_sts_unexp_error;
753: x_error_code := SQLCODE;
754: x_error_message := SUBSTR(SQLERRM, 1, 100);
755:
756: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
757: FND_LOG.string (log_level => FND_LOG.level_exception,
758: module => g_module_prefix || l_module_name,
759: message => 'Unexpected exception occured error_code = ' ||
760: x_error_code || ', error_message = ' || x_error_message);
753: x_error_code := SQLCODE;
754: x_error_message := SUBSTR(SQLERRM, 1, 100);
755:
756: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
757: FND_LOG.string (log_level => FND_LOG.level_exception,
758: module => g_module_prefix || l_module_name,
759: message => 'Unexpected exception occured error_code = ' ||
760: x_error_code || ', error_message = ' || x_error_message);
761: END IF;
785:
786: l_module_name := 'has_supplier_price_elements';
787: x_result := FND_API.g_ret_sts_success;
788:
789: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
790: FND_LOG.string (log_level => FND_LOG.level_procedure,
791: module => g_module_prefix || l_module_name,
792: message => 'Entered procedure = ' || l_module_name ||
793: ' p_auction_header_id = ' || p_auction_header_id);
786: l_module_name := 'has_supplier_price_elements';
787: x_result := FND_API.g_ret_sts_success;
788:
789: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
790: FND_LOG.string (log_level => FND_LOG.level_procedure,
791: module => g_module_prefix || l_module_name,
792: message => 'Entered procedure = ' || l_module_name ||
793: ' p_auction_header_id = ' || p_auction_header_id);
794: END IF;
810: WHEN NO_DATA_FOUND THEN
811: x_has_supplier_price_elements := 'N';
812: END;
813:
814: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
815: FND_LOG.string (log_level => FND_LOG.level_procedure,
816: module => g_module_prefix || l_module_name,
817: message => 'Leaving procedure = ' || l_module_name ||
818: ' x_has_supplier_price_elements = ' || x_has_supplier_price_elements);
811: x_has_supplier_price_elements := 'N';
812: END;
813:
814: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
815: FND_LOG.string (log_level => FND_LOG.level_procedure,
816: module => g_module_prefix || l_module_name,
817: message => 'Leaving procedure = ' || l_module_name ||
818: ' x_has_supplier_price_elements = ' || x_has_supplier_price_elements);
819: END IF;
823: x_result := FND_API.g_ret_sts_unexp_error;
824: x_error_code := SQLCODE;
825: x_error_message := SUBSTR(SQLERRM, 1, 100);
826:
827: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
828: FND_LOG.string (log_level => FND_LOG.level_exception,
829: module => g_module_prefix || l_module_name,
830: message => 'Unexpected exception occured error_code = ' ||
831: x_error_code || ', error_message = ' || x_error_message);
824: x_error_code := SQLCODE;
825: x_error_message := SUBSTR(SQLERRM, 1, 100);
826:
827: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
828: FND_LOG.string (log_level => FND_LOG.level_exception,
829: module => g_module_prefix || l_module_name,
830: message => 'Unexpected exception occured error_code = ' ||
831: x_error_code || ', error_message = ' || x_error_message);
832: END IF;
856:
857: l_module_name := 'has_buyer_price_elements';
858: x_result := FND_API.g_ret_sts_success;
859:
860: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
861: FND_LOG.string (log_level => FND_LOG.level_procedure,
862: module => g_module_prefix || l_module_name,
863: message => 'Entered procedure = ' || l_module_name ||
864: ' p_auction_header_id = ' || p_auction_header_id);
857: l_module_name := 'has_buyer_price_elements';
858: x_result := FND_API.g_ret_sts_success;
859:
860: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
861: FND_LOG.string (log_level => FND_LOG.level_procedure,
862: module => g_module_prefix || l_module_name,
863: message => 'Entered procedure = ' || l_module_name ||
864: ' p_auction_header_id = ' || p_auction_header_id);
865: END IF;
881: WHEN NO_DATA_FOUND THEN
882: x_has_buyer_price_elements := 'N';
883: END;
884:
885: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
886: FND_LOG.string (log_level => FND_LOG.level_procedure,
887: module => g_module_prefix || l_module_name,
888: message => 'Leaving procedure = ' || l_module_name ||
889: ' x_has_buyer_price_elements = ' || x_has_buyer_price_elements);
882: x_has_buyer_price_elements := 'N';
883: END;
884:
885: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
886: FND_LOG.string (log_level => FND_LOG.level_procedure,
887: module => g_module_prefix || l_module_name,
888: message => 'Leaving procedure = ' || l_module_name ||
889: ' x_has_buyer_price_elements = ' || x_has_buyer_price_elements);
890: END IF;
894: x_result := FND_API.g_ret_sts_unexp_error;
895: x_error_code := SQLCODE;
896: x_error_message := SUBSTR(SQLERRM, 1, 100);
897:
898: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
899: FND_LOG.string (log_level => FND_LOG.level_exception,
900: module => g_module_prefix || l_module_name,
901: message => 'Unexpected exception occured error_code = ' ||
902: x_error_code || ', error_message = ' || x_error_message);
895: x_error_code := SQLCODE;
896: x_error_message := SUBSTR(SQLERRM, 1, 100);
897:
898: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
899: FND_LOG.string (log_level => FND_LOG.level_exception,
900: module => g_module_prefix || l_module_name,
901: message => 'Unexpected exception occured error_code = ' ||
902: x_error_code || ', error_message = ' || x_error_message);
903: END IF;
940: l_module_name VARCHAR2 (30);
941: BEGIN
942: l_module_name := 'SYNC_PF_VALUES_ITEM_PRICES';
943: x_result := FND_API.G_RET_STS_SUCCESS;
944: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
945: FND_LOG.string (log_level => FND_LOG.level_statement,
946: module => g_module_prefix || l_module_name,
947: message => 'Entered the procedure; p_auction_header_id : '||p_auction_header_id ||
948: ' p_line_number : '||p_line_number||
941: BEGIN
942: l_module_name := 'SYNC_PF_VALUES_ITEM_PRICES';
943: x_result := FND_API.G_RET_STS_SUCCESS;
944: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
945: FND_LOG.string (log_level => FND_LOG.level_statement,
946: module => g_module_prefix || l_module_name,
947: message => 'Entered the procedure; p_auction_header_id : '||p_auction_header_id ||
948: ' p_line_number : '||p_line_number||
949: ' p_add_pf : '||p_add_pf||
952: END IF;
953:
954: if p_add_pf = 'Y' then
955:
956: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
957: FND_LOG.string (log_level => FND_LOG.level_statement,
958: module => g_module_prefix || l_module_name,
959: message => 'Inserting newly added/modified price factors...'
960: );
953:
954: if p_add_pf = 'Y' then
955:
956: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
957: FND_LOG.string (log_level => FND_LOG.level_statement,
958: module => g_module_prefix || l_module_name,
959: message => 'Inserting newly added/modified price factors...'
960: );
961: END IF;
982: end if;
983:
984: if p_del_pf = 'Y' then
985:
986: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
987: FND_LOG.string (log_level => FND_LOG.level_statement,
988: module => g_module_prefix || l_module_name,
989: message => 'Removing the deleted/modified price factors...'
990: );
983:
984: if p_del_pf = 'Y' then
985:
986: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
987: FND_LOG.string (log_level => FND_LOG.level_statement,
988: module => g_module_prefix || l_module_name,
989: message => 'Removing the deleted/modified price factors...'
990: );
991: END IF;
1003: and PPE.pf_type = 'BUYER'
1004: and rownum = 1);
1005:
1006: end if;
1007: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1008: FND_LOG.string (log_level => FND_LOG.level_statement,
1009: module => g_module_prefix || l_module_name,
1010: message => 'Returning from the procedure with status : '||x_result
1011: );
1004: and rownum = 1);
1005:
1006: end if;
1007: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1008: FND_LOG.string (log_level => FND_LOG.level_statement,
1009: module => g_module_prefix || l_module_name,
1010: message => 'Returning from the procedure with status : '||x_result
1011: );
1012: END IF;
1016: x_result := FND_API.g_ret_sts_unexp_error;
1017: x_error_code := SQLCODE;
1018: x_error_message := SUBSTR(SQLERRM, 1, 100);
1019:
1020: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
1021: FND_LOG.string (log_level => FND_LOG.level_exception,
1022: module => g_module_prefix || l_module_name,
1023: message => 'Unexpected exception occured error_code = ' ||
1024: x_error_code || ', error_message = ' || x_error_message);
1017: x_error_code := SQLCODE;
1018: x_error_message := SUBSTR(SQLERRM, 1, 100);
1019:
1020: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
1021: FND_LOG.string (log_level => FND_LOG.level_exception,
1022: module => g_module_prefix || l_module_name,
1023: message => 'Unexpected exception occured error_code = ' ||
1024: x_error_code || ', error_message = ' || x_error_message);
1025: END IF;
1057: l_supplier_exists VARCHAR2(1);
1058: BEGIN
1059: l_module_name := 'SYNC_PF_VALUES_BIDDING_PARTIES';
1060: x_result := FND_API.G_RET_STS_SUCCESS;
1061: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1062: FND_LOG.string (log_level => FND_LOG.level_statement,
1063: module => g_module_prefix || l_module_name,
1064: message => 'Entered the procedure ; p_auction_header_id : '||p_auction_header_id ||
1065: ' p_line_number : '||p_supplier_seq_num||
1058: BEGIN
1059: l_module_name := 'SYNC_PF_VALUES_BIDDING_PARTIES';
1060: x_result := FND_API.G_RET_STS_SUCCESS;
1061: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1062: FND_LOG.string (log_level => FND_LOG.level_statement,
1063: module => g_module_prefix || l_module_name,
1064: message => 'Entered the procedure ; p_auction_header_id : '||p_auction_header_id ||
1065: ' p_line_number : '||p_supplier_seq_num||
1066: ' p_action : '||p_action
1067: );
1068: END IF;
1069:
1070: if p_action = 'ADD_SUPPLIER' then
1071: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1072: FND_LOG.string (log_level => FND_LOG.level_statement,
1073: module => g_module_prefix || l_module_name,
1074: message => 'Adding price factors for the new supplier with sequence number: '||p_supplier_seq_num
1075: );
1068: END IF;
1069:
1070: if p_action = 'ADD_SUPPLIER' then
1071: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1072: FND_LOG.string (log_level => FND_LOG.level_statement,
1073: module => g_module_prefix || l_module_name,
1074: message => 'Adding price factors for the new supplier with sequence number: '||p_supplier_seq_num
1075: );
1076: END IF;
1107: END;
1108:
1109: if l_supplier_seq_num >= 0 then
1110:
1111: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1112: FND_LOG.string (log_level => FND_LOG.level_statement,
1113: module => g_module_prefix || l_module_name,
1114: message => 'adding the price factors with the help of PON_LARGE_NEG_PF_VALUES table'
1115: );
1108:
1109: if l_supplier_seq_num >= 0 then
1110:
1111: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1112: FND_LOG.string (log_level => FND_LOG.level_statement,
1113: module => g_module_prefix || l_module_name,
1114: message => 'adding the price factors with the help of PON_LARGE_NEG_PF_VALUES table'
1115: );
1116: END IF;
1125: auction_header_id = p_auction_header_id and
1126: supplier_seq_number = l_supplier_seq_num;
1127: elsif l_supplier_seq_num is null then
1128:
1129: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1130: FND_LOG.string (log_level => FND_LOG.level_statement,
1131: module => g_module_prefix || l_module_name,
1132: message => 'adding the price factors with the help of PON_PRICE_ELEMENTS'
1133: );
1126: supplier_seq_number = l_supplier_seq_num;
1127: elsif l_supplier_seq_num is null then
1128:
1129: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1130: FND_LOG.string (log_level => FND_LOG.level_statement,
1131: module => g_module_prefix || l_module_name,
1132: message => 'adding the price factors with the help of PON_PRICE_ELEMENTS'
1133: );
1134: END IF;
1143: auction_header_id = p_auction_header_id and
1144: pf_type = 'BUYER';
1145:
1146: else
1147: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1148: FND_LOG.string (log_level => FND_LOG.level_statement,
1149: module => g_module_prefix || l_module_name,
1150: message => 'Addition of price factor values failed'
1151: );
1144: pf_type = 'BUYER';
1145:
1146: else
1147: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1148: FND_LOG.string (log_level => FND_LOG.level_statement,
1149: module => g_module_prefix || l_module_name,
1150: message => 'Addition of price factor values failed'
1151: );
1152: END IF;
1152: END IF;
1153:
1154: end if;
1155: elsif p_action = 'DELETE_SUPPLIER' then
1156: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1157: FND_LOG.string (log_level => FND_LOG.level_statement,
1158: module => g_module_prefix || l_module_name,
1159: message => 'deleting price factors for the deleted supplier with sequence number: '||p_supplier_seq_num
1160: );
1153:
1154: end if;
1155: elsif p_action = 'DELETE_SUPPLIER' then
1156: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1157: FND_LOG.string (log_level => FND_LOG.level_statement,
1158: module => g_module_prefix || l_module_name,
1159: message => 'deleting price factors for the deleted supplier with sequence number: '||p_supplier_seq_num
1160: );
1161: END IF;
1165: auction_header_id = p_auction_header_id AND
1166: supplier_seq_number = p_supplier_seq_num;
1167: end if;
1168:
1169: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1170: FND_LOG.string (log_level => FND_LOG.level_statement,
1171: module => g_module_prefix || l_module_name,
1172: message => 'Exitting with return status of ' ||x_result
1173: );
1166: supplier_seq_number = p_supplier_seq_num;
1167: end if;
1168:
1169: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1170: FND_LOG.string (log_level => FND_LOG.level_statement,
1171: module => g_module_prefix || l_module_name,
1172: message => 'Exitting with return status of ' ||x_result
1173: );
1174: END IF;
1177: when OTHERS then
1178: x_error_code := SQLCODE;
1179: x_error_message := substr(SQLERRM,1,200);
1180: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
1181: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
1182: FND_LOG.string (log_level => FND_LOG.level_exception,
1183: module => g_module_prefix || l_module_name,
1184: message => 'Exception in processing auction ' || p_auction_header_id
1185: );
1178: x_error_code := SQLCODE;
1179: x_error_message := substr(SQLERRM,1,200);
1180: x_result := FND_API.G_RET_STS_UNEXP_ERROR;
1181: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
1182: FND_LOG.string (log_level => FND_LOG.level_exception,
1183: module => g_module_prefix || l_module_name,
1184: message => 'Exception in processing auction ' || p_auction_header_id
1185: );
1186: END IF;
1210: BEGIN
1211:
1212: l_module_name := 'Delete_Payment_Attachments';
1213:
1214: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1215: FND_LOG.string (log_level => FND_LOG.level_procedure,
1216: module => g_module_prefix || l_module_name,
1217: message => 'Entered procedure = ' || l_module_name);
1218: END IF;
1211:
1212: l_module_name := 'Delete_Payment_Attachments';
1213:
1214: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1215: FND_LOG.string (log_level => FND_LOG.level_procedure,
1216: module => g_module_prefix || l_module_name,
1217: message => 'Entered procedure = ' || l_module_name);
1218: END IF;
1219:
1216: module => g_module_prefix || l_module_name,
1217: message => 'Entered procedure = ' || l_module_name);
1218: END IF;
1219:
1220: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1221: FND_LOG.string (log_level => FND_LOG.level_procedure,
1222: module => g_module_prefix || l_module_name,
1223: message => 'before Call FND_ATTACHED_DOCUMENTS2_PKG.DELETE_ATTACHMENTS = ' || l_module_name);
1224: END IF;
1217: message => 'Entered procedure = ' || l_module_name);
1218: END IF;
1219:
1220: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1221: FND_LOG.string (log_level => FND_LOG.level_procedure,
1222: module => g_module_prefix || l_module_name,
1223: message => 'before Call FND_ATTACHED_DOCUMENTS2_PKG.DELETE_ATTACHMENTS = ' || l_module_name);
1224: END IF;
1225:
1224: END IF;
1225:
1226: -- delete attachments for the payments if any
1227: FOR delete_attachments_rec IN delete_attachments LOOP
1228: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1229: FND_LOG.string (log_level => FND_LOG.level_procedure,
1230: module => g_module_prefix || l_module_name,
1231: message => 'Deleting fnd attachments for all the payments for line ' ||delete_attachments_rec.line_number||'='|| l_module_name);
1232: END IF;
1225:
1226: -- delete attachments for the payments if any
1227: FOR delete_attachments_rec IN delete_attachments LOOP
1228: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1229: FND_LOG.string (log_level => FND_LOG.level_procedure,
1230: module => g_module_prefix || l_module_name,
1231: message => 'Deleting fnd attachments for all the payments for line ' ||delete_attachments_rec.line_number||'='|| l_module_name);
1232: END IF;
1233: --delete the attachments for a payment
1237: x_pk2_value => delete_attachments_rec.line_number,
1238: x_delete_document_flag => 'Y');
1239: END LOOP;
1240:
1241: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1242: FND_LOG.string (log_level => FND_LOG.level_procedure,
1243: module => g_module_prefix || l_module_name,
1244: message => 'After Call FND_ATTACHED_DOCUMENTS2_PKG.DELETE_ATTACHMENTS = ' || l_module_name);
1245: END IF;
1238: x_delete_document_flag => 'Y');
1239: END LOOP;
1240:
1241: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1242: FND_LOG.string (log_level => FND_LOG.level_procedure,
1243: module => g_module_prefix || l_module_name,
1244: message => 'After Call FND_ATTACHED_DOCUMENTS2_PKG.DELETE_ATTACHMENTS = ' || l_module_name);
1245: END IF;
1246:
1243: module => g_module_prefix || l_module_name,
1244: message => 'After Call FND_ATTACHED_DOCUMENTS2_PKG.DELETE_ATTACHMENTS = ' || l_module_name);
1245: END IF;
1246:
1247: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1248: FND_LOG.string (log_level => FND_LOG.level_procedure,
1249: module => g_module_prefix || l_module_name,
1250: message => 'Leaving procedure = ' || l_module_name);
1251: END IF;
1244: message => 'After Call FND_ATTACHED_DOCUMENTS2_PKG.DELETE_ATTACHMENTS = ' || l_module_name);
1245: END IF;
1246:
1247: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1248: FND_LOG.string (log_level => FND_LOG.level_procedure,
1249: module => g_module_prefix || l_module_name,
1250: message => 'Leaving procedure = ' || l_module_name);
1251: END IF;
1252:
1316:
1317: l_module_name := 'delete_all_lines';
1318: x_result := FND_API.g_ret_sts_success;
1319:
1320: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1321: FND_LOG.string (log_level => FND_LOG.level_procedure,
1322: module => g_module_prefix || l_module_name,
1323: message => 'Entered procedure = ' || l_module_name ||
1324: ' p_auction_header_id = ' || p_auction_header_id);
1317: l_module_name := 'delete_all_lines';
1318: x_result := FND_API.g_ret_sts_success;
1319:
1320: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1321: FND_LOG.string (log_level => FND_LOG.level_procedure,
1322: module => g_module_prefix || l_module_name,
1323: message => 'Entered procedure = ' || l_module_name ||
1324: ' p_auction_header_id = ' || p_auction_header_id);
1325: END IF;
1377: -- Call the delete only if the origination code of the auction is
1378: -- REQUISITION
1379: IF (l_auction_origination_code = 'REQUISITION') THEN
1380:
1381: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1382: FND_LOG.string (log_level => FND_LOG.level_statement,
1383: module => g_module_prefix || l_module_name,
1384: message => 'Found that this auction is from a requisition');
1385: END IF;
1378: -- REQUISITION
1379: IF (l_auction_origination_code = 'REQUISITION') THEN
1380:
1381: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1382: FND_LOG.string (log_level => FND_LOG.level_statement,
1383: module => g_module_prefix || l_module_name,
1384: message => 'Found that this auction is from a requisition');
1385: END IF;
1386:
1386:
1387: --Delete Backing requisition references
1388: FOR backing_req_line IN lines_with_backing_requisition (p_auction_header_id) LOOP
1389:
1390: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1391: FND_LOG.string (log_level => FND_LOG.level_statement,
1392: module => g_module_prefix || l_module_name,
1393: message => 'Deleting backing req references for line = ' || backing_req_line.line_number);
1394: END IF;
1387: --Delete Backing requisition references
1388: FOR backing_req_line IN lines_with_backing_requisition (p_auction_header_id) LOOP
1389:
1390: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1391: FND_LOG.string (log_level => FND_LOG.level_statement,
1392: module => g_module_prefix || l_module_name,
1393: message => 'Deleting backing req references for line = ' || backing_req_line.line_number);
1394: END IF;
1395:
1398: x_negotiation_line_num => backing_req_line.line_number,
1399: x_org_id => backing_req_line.org_id,
1400: x_error_code => x_error_code);
1401:
1402: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1403: FND_LOG.string (log_level => FND_LOG.level_statement,
1404: module => g_module_prefix || l_module_name,
1405: message => 'Deletion of req reference done, x_error_code = ' || x_error_code);
1406: END IF;
1399: x_org_id => backing_req_line.org_id,
1400: x_error_code => x_error_code);
1401:
1402: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1403: FND_LOG.string (log_level => FND_LOG.level_statement,
1404: module => g_module_prefix || l_module_name,
1405: message => 'Deletion of req reference done, x_error_code = ' || x_error_code);
1406: END IF;
1407:
1424: x_pk5_value => NULL);
1425:
1426: END LOOP;
1427:
1428: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1429: FND_LOG.string (log_level => FND_LOG.level_statement,
1430: module => g_module_prefix || l_module_name,
1431: message => 'Attachments deletion complete');
1432: END IF;
1425:
1426: END LOOP;
1427:
1428: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1429: FND_LOG.string (log_level => FND_LOG.level_statement,
1430: module => g_module_prefix || l_module_name,
1431: message => 'Attachments deletion complete');
1432: END IF;
1433:
1448: WHILE (l_batch_start <= l_max_line_number) LOOP
1449:
1450: IF ('STANDARD' = l_contract_type AND l_progress_payment_type <> 'NONE') THEN
1451: --complex work-delete fnd_attachments for payments
1452: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1453: FND_LOG.string (log_level => FND_LOG.level_procedure,
1454: module => g_module_prefix || l_module_name,
1455: message => 'Before call Delete_Payment_Attachments = ' || l_module_name);
1456: END IF;
1449:
1450: IF ('STANDARD' = l_contract_type AND l_progress_payment_type <> 'NONE') THEN
1451: --complex work-delete fnd_attachments for payments
1452: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1453: FND_LOG.string (log_level => FND_LOG.level_procedure,
1454: module => g_module_prefix || l_module_name,
1455: message => 'Before call Delete_Payment_Attachments = ' || l_module_name);
1456: END IF;
1457:
1459: p_auction_header_id => p_auction_header_id,
1460: p_curr_from_line_number => l_batch_start,
1461: p_curr_to_line_number => l_batch_end);
1462:
1463: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1464: FND_LOG.string (log_level => FND_LOG.level_statement,
1465: module => g_module_prefix || l_module_name,
1466: message => 'Payments Attachments deletion complete');
1467: END IF;
1460: p_curr_from_line_number => l_batch_start,
1461: p_curr_to_line_number => l_batch_end);
1462:
1463: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1464: FND_LOG.string (log_level => FND_LOG.level_statement,
1465: module => g_module_prefix || l_module_name,
1466: message => 'Payments Attachments deletion complete');
1467: END IF;
1468:
1473: auction_header_id = p_auction_header_id AND
1474: line_number >= l_batch_start AND
1475: line_number <= l_batch_end;
1476:
1477: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1478: FND_LOG.string (log_level => FND_LOG.level_statement,
1479: module => g_module_prefix || l_module_name,
1480: message => 'Payments deletion complete');
1481: END IF;
1474: line_number >= l_batch_start AND
1475: line_number <= l_batch_end;
1476:
1477: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1478: FND_LOG.string (log_level => FND_LOG.level_statement,
1479: module => g_module_prefix || l_module_name,
1480: message => 'Payments deletion complete');
1481: END IF;
1482: END IF; --if complex work
1496: auction_header_id = p_auction_header_id AND
1497: line_number >= l_batch_start AND
1498: line_number <= l_batch_end;
1499:
1500: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1501: FND_LOG.string (log_level => FND_LOG.level_statement,
1502: module => g_module_prefix || l_module_name,
1503: message => 'Scores deletion complete');
1504: END IF;
1497: line_number >= l_batch_start AND
1498: line_number <= l_batch_end;
1499:
1500: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1501: FND_LOG.string (log_level => FND_LOG.level_statement,
1502: module => g_module_prefix || l_module_name,
1503: message => 'Scores deletion complete');
1504: END IF;
1505:
1523: auction_header_id = p_auction_header_id AND
1524: line_number >= l_batch_start AND
1525: line_number <= l_batch_end;
1526:
1527: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1528: FND_LOG.string (log_level => FND_LOG.level_statement,
1529: module => g_module_prefix || l_module_name,
1530: message => 'Attributes deletion complete');
1531: END IF;
1524: line_number >= l_batch_start AND
1525: line_number <= l_batch_end;
1526:
1527: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1528: FND_LOG.string (log_level => FND_LOG.level_statement,
1529: module => g_module_prefix || l_module_name,
1530: message => 'Attributes deletion complete');
1531: END IF;
1532: END IF;
1542: auction_header_id = p_auction_header_id AND
1543: line_number >= l_batch_start AND
1544: line_number <= l_batch_end;
1545:
1546: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1547: FND_LOG.string (log_level => FND_LOG.level_statement,
1548: module => g_module_prefix || l_module_name,
1549: message => 'PF deletion complete');
1550: END IF;
1543: line_number >= l_batch_start AND
1544: line_number <= l_batch_end;
1545:
1546: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1547: FND_LOG.string (log_level => FND_LOG.level_statement,
1548: module => g_module_prefix || l_module_name,
1549: message => 'PF deletion complete');
1550: END IF;
1551:
1556: auction_header_id = p_auction_header_id AND
1557: line_number >= l_batch_start AND
1558: line_number <= l_batch_end;
1559:
1560: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1561: FND_LOG.string (log_level => FND_LOG.level_statement,
1562: module => g_module_prefix || l_module_name,
1563: message => 'PF Supplier values deletion complete');
1564: END IF;
1557: line_number >= l_batch_start AND
1558: line_number <= l_batch_end;
1559:
1560: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1561: FND_LOG.string (log_level => FND_LOG.level_statement,
1562: module => g_module_prefix || l_module_name,
1563: message => 'PF Supplier values deletion complete');
1564: END IF;
1565:
1564: END IF;
1565:
1566: END IF; --}
1567:
1568: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1569: FND_LOG.string (log_level => FND_LOG.level_statement,
1570: module => g_module_prefix || l_module_name,
1571: message => 'price_tiers_indicator for auction ' || p_auction_header_id || ' is ' || l_price_tiers_indicator);
1572: END IF;
1565:
1566: END IF; --}
1567:
1568: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1569: FND_LOG.string (log_level => FND_LOG.level_statement,
1570: module => g_module_prefix || l_module_name,
1571: message => 'price_tiers_indicator for auction ' || p_auction_header_id || ' is ' || l_price_tiers_indicator);
1572: END IF;
1573:
1574: -- Call the delete shipments only if price tiers indicator is not 'NONE'
1575:
1576: IF ( NVl(l_price_tiers_indicator, 'NONE') <> 'NONE') THEN
1577:
1578: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1579: FND_LOG.string (log_level => FND_LOG.level_statement,
1580: module => g_module_prefix || l_module_name,
1581: message => 'Price tiers indicator is not none , so need to delete Price tiers.');
1582: END IF;
1575:
1576: IF ( NVl(l_price_tiers_indicator, 'NONE') <> 'NONE') THEN
1577:
1578: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1579: FND_LOG.string (log_level => FND_LOG.level_statement,
1580: module => g_module_prefix || l_module_name,
1581: message => 'Price tiers indicator is not none , so need to delete Price tiers.');
1582: END IF;
1583:
1588: auction_header_id = p_auction_header_id AND
1589: line_number >= l_batch_start AND
1590: line_number <= l_batch_end;
1591:
1592: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1593: FND_LOG.string (log_level => FND_LOG.level_statement,
1594: module => g_module_prefix || l_module_name,
1595: message => 'shipments deletion complete');
1596: END IF;
1589: line_number >= l_batch_start AND
1590: line_number <= l_batch_end;
1591:
1592: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1593: FND_LOG.string (log_level => FND_LOG.level_statement,
1594: module => g_module_prefix || l_module_name,
1595: message => 'shipments deletion complete');
1596: END IF;
1597:
1608: auction_header_id = p_auction_header_id AND
1609: line_number >= l_batch_start AND
1610: line_number <= l_batch_end;
1611:
1612: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1613: FND_LOG.string (log_level => FND_LOG.level_statement,
1614: module => g_module_prefix || l_module_name,
1615: message => 'PD deletion complete');
1616: END IF;
1609: line_number >= l_batch_start AND
1610: line_number <= l_batch_end;
1611:
1612: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1613: FND_LOG.string (log_level => FND_LOG.level_statement,
1614: module => g_module_prefix || l_module_name,
1615: message => 'PD deletion complete');
1616: END IF;
1617: END IF;
1627: auction_header_id = p_auction_header_id AND
1628: line_number >= l_batch_start AND
1629: line_number <= l_batch_end;
1630:
1631: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1632: FND_LOG.string (log_level => FND_LOG.level_statement,
1633: module => g_module_prefix || l_module_name,
1634: message => 'party exclusions deletion complete');
1635: END IF;
1628: line_number >= l_batch_start AND
1629: line_number <= l_batch_end;
1630:
1631: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1632: FND_LOG.string (log_level => FND_LOG.level_statement,
1633: module => g_module_prefix || l_module_name,
1634: message => 'party exclusions deletion complete');
1635: END IF;
1636:
1643: auction_header_id = p_auction_header_id AND
1644: line_number >= l_batch_start AND
1645: line_number <= l_batch_end;
1646:
1647: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1648: FND_LOG.string (log_level => FND_LOG.level_statement,
1649: module => g_module_prefix || l_module_name,
1650: message => 'Lines deletion complete');
1651: END IF;
1644: line_number >= l_batch_start AND
1645: line_number <= l_batch_end;
1646:
1647: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1648: FND_LOG.string (log_level => FND_LOG.level_statement,
1649: module => g_module_prefix || l_module_name,
1650: message => 'Lines deletion complete');
1651: END IF;
1652:
1673: pon_large_neg_pf_values
1674: WHERE
1675: auction_header_id = p_auction_header_id;
1676:
1677: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1678: FND_LOG.string (log_level => FND_LOG.level_statement,
1679: module => g_module_prefix || l_module_name,
1680: message => 'Large neg pf values deletion complete');
1681: END IF;
1674: WHERE
1675: auction_header_id = p_auction_header_id;
1676:
1677: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1678: FND_LOG.string (log_level => FND_LOG.level_statement,
1679: module => g_module_prefix || l_module_name,
1680: message => 'Large neg pf values deletion complete');
1681: END IF;
1682:
1700: (SELECT trading_partner_id, vendor_site_id
1701: FROM pon_party_line_exclusions
1702: WHERE auction_header_id = p_auction_header_id);
1703:
1704: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1705: FND_LOG.string (log_level => FND_LOG.level_statement,
1706: module => g_module_prefix || l_module_name,
1707: message => 'Updating bidding parties done');
1708: END IF;
1701: FROM pon_party_line_exclusions
1702: WHERE auction_header_id = p_auction_header_id);
1703:
1704: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1705: FND_LOG.string (log_level => FND_LOG.level_statement,
1706: module => g_module_prefix || l_module_name,
1707: message => 'Updating bidding parties done');
1708: END IF;
1709:
1708: END IF;
1709:
1710: END IF;
1711:
1712: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1713: FND_LOG.string (log_level => FND_LOG.level_procedure,
1714: module => g_module_prefix || l_module_name,
1715: message => 'Leaving procedure = ' || l_module_name);
1716: END IF;
1709:
1710: END IF;
1711:
1712: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1713: FND_LOG.string (log_level => FND_LOG.level_procedure,
1714: module => g_module_prefix || l_module_name,
1715: message => 'Leaving procedure = ' || l_module_name);
1716: END IF;
1717:
1720: x_result := FND_API.g_ret_sts_unexp_error;
1721: x_error_code := SQLCODE;
1722: x_error_message := SUBSTR(SQLERRM, 1, 100);
1723:
1724: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
1725: FND_LOG.string (log_level => FND_LOG.level_exception,
1726: module => g_module_prefix || l_module_name,
1727: message => 'Unexpected exception occured error_code = ' ||
1728: x_error_code || ', error_message = ' || x_error_message);
1721: x_error_code := SQLCODE;
1722: x_error_message := SUBSTR(SQLERRM, 1, 100);
1723:
1724: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
1725: FND_LOG.string (log_level => FND_LOG.level_exception,
1726: module => g_module_prefix || l_module_name,
1727: message => 'Unexpected exception occured error_code = ' ||
1728: x_error_code || ', error_message = ' || x_error_message);
1729: END IF;
1831:
1832: l_module_name := 'delete_single_line';
1833: x_result := FND_API.g_ret_sts_success;
1834:
1835: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1836: FND_LOG.string (log_level => FND_LOG.level_procedure,
1837: module => g_module_prefix || l_module_name,
1838: message => 'Entered procedure = ' || l_module_name ||
1839: ', p_auction_header_id = ' || p_auction_header_id ||
1832: l_module_name := 'delete_single_line';
1833: x_result := FND_API.g_ret_sts_success;
1834:
1835: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1836: FND_LOG.string (log_level => FND_LOG.level_procedure,
1837: module => g_module_prefix || l_module_name,
1838: message => 'Entered procedure = ' || l_module_name ||
1839: ', p_auction_header_id = ' || p_auction_header_id ||
1840: ', p_line_number = ' || p_line_number ||
1903: pon_auction_headers_all
1904: WHERE
1905: auction_header_id = p_auction_header_id;
1906:
1907: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1908: FND_LOG.string (log_level => FND_LOG.level_statement,
1909: module => g_module_prefix || l_module_name,
1910: message => 'The selected row is of type LINE/LOT_LINE/GROUP_LINE');
1911: END IF;
1904: WHERE
1905: auction_header_id = p_auction_header_id;
1906:
1907: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1908: FND_LOG.string (log_level => FND_LOG.level_statement,
1909: module => g_module_prefix || l_module_name,
1910: message => 'The selected row is of type LINE/LOT_LINE/GROUP_LINE');
1911: END IF;
1912:
1911: END IF;
1912:
1913: BEGIN
1914:
1915: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1916: FND_LOG.string (log_level => FND_LOG.level_statement,
1917: module => g_module_prefix || l_module_name,
1918: message => 'Checking if the line still exists');
1919: END IF;
1912:
1913: BEGIN
1914:
1915: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1916: FND_LOG.string (log_level => FND_LOG.level_statement,
1917: module => g_module_prefix || l_module_name,
1918: message => 'Checking if the line still exists');
1919: END IF;
1920:
1933: WHERE
1934: auction_header_id = p_auction_header_id and
1935: line_number = p_line_number;
1936:
1937: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1938: FND_LOG.string (log_level => FND_LOG.level_statement,
1939: module => g_module_prefix || l_module_name,
1940: message => 'Line exists');
1941: END IF;
1934: auction_header_id = p_auction_header_id and
1935: line_number = p_line_number;
1936:
1937: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1938: FND_LOG.string (log_level => FND_LOG.level_statement,
1939: module => g_module_prefix || l_module_name,
1940: message => 'Line exists');
1941: END IF;
1942: EXCEPTION
1941: END IF;
1942: EXCEPTION
1943: WHEN NO_DATA_FOUND THEN
1944: x_number_of_lines_deleted := 0;
1945: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1946: FND_LOG.string (log_level => FND_LOG.level_statement,
1947: module => g_module_prefix || l_module_name,
1948: message => 'Line no longer exists');
1949: END IF;
1942: EXCEPTION
1943: WHEN NO_DATA_FOUND THEN
1944: x_number_of_lines_deleted := 0;
1945: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1946: FND_LOG.string (log_level => FND_LOG.level_statement,
1947: module => g_module_prefix || l_module_name,
1948: message => 'Line no longer exists');
1949: END IF;
1950: RETURN;
1955: WHERE
1956: auction_header_id = p_auction_header_id AND
1957: line_number = p_line_number;
1958:
1959: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1960: FND_LOG.string (log_level => FND_LOG.level_statement,
1961: module => g_module_prefix || l_module_name,
1962: message => 'Deleted the entry in pon_attribute_scores');
1963: END IF;
1956: auction_header_id = p_auction_header_id AND
1957: line_number = p_line_number;
1958:
1959: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1960: FND_LOG.string (log_level => FND_LOG.level_statement,
1961: module => g_module_prefix || l_module_name,
1962: message => 'Deleted the entry in pon_attribute_scores');
1963: END IF;
1964:
1967: WHERE
1968: auction_header_id = p_auction_header_id and
1969: line_number = p_line_number;
1970:
1971: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1972: FND_LOG.string (log_level => FND_LOG.level_statement,
1973: module => g_module_prefix || l_module_name,
1974: message => 'Entry in pon_auction_attributes deleted');
1975: END IF;
1968: auction_header_id = p_auction_header_id and
1969: line_number = p_line_number;
1970:
1971: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1972: FND_LOG.string (log_level => FND_LOG.level_statement,
1973: module => g_module_prefix || l_module_name,
1974: message => 'Entry in pon_auction_attributes deleted');
1975: END IF;
1976:
1979: WHERE
1980: auction_header_id = p_auction_header_id AND
1981: line_number = p_line_number;
1982:
1983: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1984: FND_LOG.string (log_level => FND_LOG.level_statement,
1985: module => g_module_prefix || l_module_name,
1986: message => 'Deleted the entry in pon_pf_supplier_values');
1987: END IF;
1980: auction_header_id = p_auction_header_id AND
1981: line_number = p_line_number;
1982:
1983: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1984: FND_LOG.string (log_level => FND_LOG.level_statement,
1985: module => g_module_prefix || l_module_name,
1986: message => 'Deleted the entry in pon_pf_supplier_values');
1987: END IF;
1988:
1991: WHERE
1992: auction_header_id = p_auction_header_id AND
1993: line_number = p_line_number;
1994:
1995: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1996: FND_LOG.string (log_level => FND_LOG.level_statement,
1997: module => g_module_prefix || l_module_name,
1998: message => 'Deleted the entry in pon_price_elements');
1999: END IF;
1992: auction_header_id = p_auction_header_id AND
1993: line_number = p_line_number;
1994:
1995: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1996: FND_LOG.string (log_level => FND_LOG.level_statement,
1997: module => g_module_prefix || l_module_name,
1998: message => 'Deleted the entry in pon_price_elements');
1999: END IF;
2000:
2003: WHERE
2004: auction_header_id = p_auction_header_id AND
2005: line_number = p_line_number;
2006:
2007: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2008: FND_LOG.string (log_level => FND_LOG.level_statement,
2009: module => g_module_prefix || l_module_name,
2010: message => 'Deleted the entry in pon_price_differentials');
2011: END IF;
2004: auction_header_id = p_auction_header_id AND
2005: line_number = p_line_number;
2006:
2007: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2008: FND_LOG.string (log_level => FND_LOG.level_statement,
2009: module => g_module_prefix || l_module_name,
2010: message => 'Deleted the entry in pon_price_differentials');
2011: END IF;
2012:
2015: WHERE
2016: auction_header_id = p_auction_header_id AND
2017: line_number = p_line_number;
2018:
2019: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2020: FND_LOG.string (log_level => FND_LOG.level_statement,
2021: module => g_module_prefix || l_module_name,
2022: message => 'Deleted the entry in pon_auction_shipments_all');
2023: END IF;
2016: auction_header_id = p_auction_header_id AND
2017: line_number = p_line_number;
2018:
2019: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2020: FND_LOG.string (log_level => FND_LOG.level_statement,
2021: module => g_module_prefix || l_module_name,
2022: message => 'Deleted the entry in pon_auction_shipments_all');
2023: END IF;
2024:
2024:
2025: IF ( 'STANDARD' = l_contract_type AND 'NONE' <> l_progress_payment_type) --{
2026: THEN
2027:
2028: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2029: FND_LOG.string (log_level => FND_LOG.level_statement,
2030: module => g_module_prefix || l_module_name,
2031: message => 'Delete attachments for pon_auc_payments_shipments');
2032: END IF;
2025: IF ( 'STANDARD' = l_contract_type AND 'NONE' <> l_progress_payment_type) --{
2026: THEN
2027:
2028: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2029: FND_LOG.string (log_level => FND_LOG.level_statement,
2030: module => g_module_prefix || l_module_name,
2031: message => 'Delete attachments for pon_auc_payments_shipments');
2032: END IF;
2033:
2038: p_curr_from_line_number => p_line_number,
2039: p_curr_to_line_number => p_line_number);
2040:
2041:
2042: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2043: FND_LOG.string (log_level => FND_LOG.level_statement,
2044: module => g_module_prefix || l_module_name,
2045: message => 'Deleted the attachments for pon_auc_payments_shipments');
2046: END IF;
2039: p_curr_to_line_number => p_line_number);
2040:
2041:
2042: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2043: FND_LOG.string (log_level => FND_LOG.level_statement,
2044: module => g_module_prefix || l_module_name,
2045: message => 'Deleted the attachments for pon_auc_payments_shipments');
2046: END IF;
2047:
2050: WHERE
2051: auction_header_id = p_auction_header_id AND
2052: line_number = p_line_number;
2053:
2054: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2055: FND_LOG.string (log_level => FND_LOG.level_statement,
2056: module => g_module_prefix || l_module_name,
2057: message => 'Deleted the entry in pon_auc_payments_shipments');
2058: END IF;
2051: auction_header_id = p_auction_header_id AND
2052: line_number = p_line_number;
2053:
2054: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2055: FND_LOG.string (log_level => FND_LOG.level_statement,
2056: module => g_module_prefix || l_module_name,
2057: message => 'Deleted the entry in pon_auc_payments_shipments');
2058: END IF;
2059: END IF;--if neg has payments }
2063: WHERE
2064: auction_header_id = p_auction_header_id AND
2065: line_number = p_line_number;
2066:
2067: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2068: FND_LOG.string (log_level => FND_LOG.level_statement,
2069: module => g_module_prefix || l_module_name,
2070: message => 'Deleted the entry in PON_PARTY_LINE_EXCLUSIONS');
2071: END IF;
2064: auction_header_id = p_auction_header_id AND
2065: line_number = p_line_number;
2066:
2067: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2068: FND_LOG.string (log_level => FND_LOG.level_statement,
2069: module => g_module_prefix || l_module_name,
2070: message => 'Deleted the entry in PON_PARTY_LINE_EXCLUSIONS');
2071: END IF;
2072:
2075: WHERE
2076: auction_header_id = p_auction_header_id AND
2077: line_number = p_line_number;
2078:
2079: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2080: FND_LOG.string (log_level => FND_LOG.level_statement,
2081: module => g_module_prefix || l_module_name,
2082: message => 'Deleted the entry in pon_auction_headers_all');
2083: END IF;
2076: auction_header_id = p_auction_header_id AND
2077: line_number = p_line_number;
2078:
2079: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2080: FND_LOG.string (log_level => FND_LOG.level_statement,
2081: module => g_module_prefix || l_module_name,
2082: message => 'Deleted the entry in pon_auction_headers_all');
2083: END IF;
2084:
2096: x_result => x_result,
2097: x_error_code => x_error_code,
2098: x_error_message => x_error_message);
2099:
2100: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2101: FND_LOG.string (log_level => FND_LOG.level_statement,
2102: module => g_module_prefix || l_module_name,
2103: message => 'Sync pf values procedure called. x_result = ' || x_result ||
2104: ', x_error_code = ' || x_error_code ||
2097: x_error_code => x_error_code,
2098: x_error_message => x_error_message);
2099:
2100: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2101: FND_LOG.string (log_level => FND_LOG.level_statement,
2102: module => g_module_prefix || l_module_name,
2103: message => 'Sync pf values procedure called. x_result = ' || x_result ||
2104: ', x_error_code = ' || x_error_code ||
2105: ', x_error_message = ' || x_error_message);
2115: x_entity_name => 'PON_AUCTION_ITEM_PRICES_ALL',
2116: x_pk1_value => p_auction_header_id,
2117: x_pk2_value => p_line_number);
2118:
2119: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2120: FND_LOG.string (log_level => FND_LOG.level_statement,
2121: module => g_module_prefix || l_module_name,
2122: message => 'Deleted the line attachments');
2123: END IF;
2116: x_pk1_value => p_auction_header_id,
2117: x_pk2_value => p_line_number);
2118:
2119: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2120: FND_LOG.string (log_level => FND_LOG.level_statement,
2121: module => g_module_prefix || l_module_name,
2122: message => 'Deleted the line attachments');
2123: END IF;
2124:
2134: RETURN;
2135: END IF;
2136: END IF;
2137:
2138: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2139: FND_LOG.string (log_level => FND_LOG.level_statement,
2140: module => g_module_prefix || l_module_name,
2141: message => 'Deleted the line backing requisitions if any');
2142: END IF;
2135: END IF;
2136: END IF;
2137:
2138: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2139: FND_LOG.string (log_level => FND_LOG.level_statement,
2140: module => g_module_prefix || l_module_name,
2141: message => 'Deleted the line backing requisitions if any');
2142: END IF;
2143:
2190:
2191: -- Call deletion of attributes only if line_attribute_enabled_flag is Y
2192: IF (NVL (l_line_attribute_enabled_flag, 'Y') = 'Y') THEN --{
2193:
2194: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2195: FND_LOG.string (log_level => FND_LOG.level_statement,
2196: module => g_module_prefix || l_module_name,
2197: message => 'line attributes are enabled. l_line_attribute_enabled_flag = ' || l_line_attribute_enabled_flag);
2198: END IF;
2191: -- Call deletion of attributes only if line_attribute_enabled_flag is Y
2192: IF (NVL (l_line_attribute_enabled_flag, 'Y') = 'Y') THEN --{
2193:
2194: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2195: FND_LOG.string (log_level => FND_LOG.level_statement,
2196: module => g_module_prefix || l_module_name,
2197: message => 'line attributes are enabled. l_line_attribute_enabled_flag = ' || l_line_attribute_enabled_flag);
2198: END IF;
2199:
2199:
2200: -- Call deletion of scores only if this is an MAS
2201: IF (l_bid_ranking = 'MULTI_ATTRIBUTE_SCORING') THEN --{
2202:
2203: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2204: FND_LOG.string (log_level => FND_LOG.level_statement,
2205: module => g_module_prefix || l_module_name,
2206: message => 'This is an MAS auction so need to delete scores');
2207: END IF;
2200: -- Call deletion of scores only if this is an MAS
2201: IF (l_bid_ranking = 'MULTI_ATTRIBUTE_SCORING') THEN --{
2202:
2203: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2204: FND_LOG.string (log_level => FND_LOG.level_statement,
2205: module => g_module_prefix || l_module_name,
2206: message => 'This is an MAS auction so need to delete scores');
2207: END IF;
2208:
2256: -- only if the pf_type_allowed is not NONE
2257:
2258: IF (l_pf_type_allowed <> 'NONE') THEN --{
2259:
2260: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2261: FND_LOG.string (log_level => FND_LOG.level_statement,
2262: module => g_module_prefix || l_module_name,
2263: message => 'There are price factors. l_pf_type_allowed = ' || l_pf_type_allowed);
2264: END IF;
2257:
2258: IF (l_pf_type_allowed <> 'NONE') THEN --{
2259:
2260: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2261: FND_LOG.string (log_level => FND_LOG.level_statement,
2262: module => g_module_prefix || l_module_name,
2263: message => 'There are price factors. l_pf_type_allowed = ' || l_pf_type_allowed);
2264: END IF;
2265:
2309:
2310: IF ( 'STANDARD' = l_contract_type AND 'NONE' <> l_progress_payment_type)
2311: THEN
2312:
2313: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2314: FND_LOG.string (log_level => FND_LOG.level_statement,
2315: module => g_module_prefix || l_module_name,
2316: message => 'Delete attachments for pon_auc_payments_shipments');
2317: END IF;
2310: IF ( 'STANDARD' = l_contract_type AND 'NONE' <> l_progress_payment_type)
2311: THEN
2312:
2313: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2314: FND_LOG.string (log_level => FND_LOG.level_statement,
2315: module => g_module_prefix || l_module_name,
2316: message => 'Delete attachments for pon_auc_payments_shipments');
2317: END IF;
2318:
2317: END IF;
2318:
2319: --delete payment attachments
2320: FOR delete_attachments_rec IN delete_payments_attachments LOOP
2321: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2322: FND_LOG.string (log_level => FND_LOG.level_procedure,
2323: module => g_module_prefix || l_module_name,
2324: message => 'Deleting fnd attachments for payments for line number ' ||delete_attachments_rec.line_number||'='|| l_module_name);
2325: END IF;
2318:
2319: --delete payment attachments
2320: FOR delete_attachments_rec IN delete_payments_attachments LOOP
2321: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2322: FND_LOG.string (log_level => FND_LOG.level_procedure,
2323: module => g_module_prefix || l_module_name,
2324: message => 'Deleting fnd attachments for payments for line number ' ||delete_attachments_rec.line_number||'='|| l_module_name);
2325: END IF;
2326: --delete the attachments for a payment
2330: x_pk2_value => delete_attachments_rec.line_number,
2331: x_delete_document_flag => 'Y');
2332: END LOOP;
2333:
2334: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2335: FND_LOG.string (log_level => FND_LOG.level_statement,
2336: module => g_module_prefix || l_module_name,
2337: message => 'Deleted the attachments for pon_auc_payments_shipments');
2338: END IF;
2331: x_delete_document_flag => 'Y');
2332: END LOOP;
2333:
2334: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2335: FND_LOG.string (log_level => FND_LOG.level_statement,
2336: module => g_module_prefix || l_module_name,
2337: message => 'Deleted the attachments for pon_auc_payments_shipments');
2338: END IF;
2339:
2354: paip.line_number = paps.line_number
2355: )
2356: );
2357:
2358: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2359: FND_LOG.string (log_level => FND_LOG.level_statement,
2360: module => g_module_prefix || l_module_name,
2361: message => 'Deleted the entry in pon_auc_payments_shipments');
2362: END IF;
2355: )
2356: );
2357:
2358: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2359: FND_LOG.string (log_level => FND_LOG.level_statement,
2360: module => g_module_prefix || l_module_name,
2361: message => 'Deleted the entry in pon_auc_payments_shipments');
2362: END IF;
2363: END IF;--if neg has payments
2361: message => 'Deleted the entry in pon_auc_payments_shipments');
2362: END IF;
2363: END IF;--if neg has payments
2364:
2365: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2366: FND_LOG.string (log_level => FND_LOG.level_statement,
2367: module => g_module_prefix || l_module_name,
2368: message => 'price_tiers_indicator for auction ' || p_auction_header_id || ' is ' || l_price_tiers_indicator);
2369: END IF;
2362: END IF;
2363: END IF;--if neg has payments
2364:
2365: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2366: FND_LOG.string (log_level => FND_LOG.level_statement,
2367: module => g_module_prefix || l_module_name,
2368: message => 'price_tiers_indicator for auction ' || p_auction_header_id || ' is ' || l_price_tiers_indicator);
2369: END IF;
2370:
2372: -- Call the delete shipments only if price tiers indicator is not 'NONE'
2373:
2374: IF ( NVl(l_price_tiers_indicator, 'NONE') <> 'NONE') THEN --{
2375:
2376: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2377: FND_LOG.string (log_level => FND_LOG.level_statement,
2378: module => g_module_prefix || l_module_name,
2379: message => 'Price tiers indicator is not none , so need to delete Price tiers.');
2380: END IF;
2373:
2374: IF ( NVl(l_price_tiers_indicator, 'NONE') <> 'NONE') THEN --{
2375:
2376: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2377: FND_LOG.string (log_level => FND_LOG.level_statement,
2378: module => g_module_prefix || l_module_name,
2379: message => 'Price tiers indicator is not none , so need to delete Price tiers.');
2380: END IF;
2381:
2399: paip.line_number = pasa.line_number
2400: )
2401: );
2402:
2403: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
2404: FND_LOG.string (log_level => FND_LOG.level_statement,
2405: module => g_module_prefix || l_module_name,
2406: message => 'shipments deletion complete');
2407: END IF; --}
2400: )
2401: );
2402:
2403: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
2404: FND_LOG.string (log_level => FND_LOG.level_statement,
2405: module => g_module_prefix || l_module_name,
2406: message => 'shipments deletion complete');
2407: END IF; --}
2408:
2412: -- this is an RFI
2413: IF (l_doctype_group_name = PON_CONTERMS_UTL_PVT.SRC_REQUEST_FOR_INFORMATION OR
2414: nvl (l_global_agreement_flag, 'Y') = 'Y') THEN --{
2415:
2416: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2417: FND_LOG.string (log_level => FND_LOG.level_statement,
2418: module => g_module_prefix || l_module_name,
2419: message => 'This is an RFI or Global Agreement. Need to delete price diffs.');
2420: END IF;
2413: IF (l_doctype_group_name = PON_CONTERMS_UTL_PVT.SRC_REQUEST_FOR_INFORMATION OR
2414: nvl (l_global_agreement_flag, 'Y') = 'Y') THEN --{
2415:
2416: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2417: FND_LOG.string (log_level => FND_LOG.level_statement,
2418: module => g_module_prefix || l_module_name,
2419: message => 'This is an RFI or Global Agreement. Need to delete price diffs.');
2420: END IF;
2421:
2446: IF (nvl (l_large_neg_enabled_flag, 'N') = 'N') THEN --{
2447: -- Delete the exclusions that belong to this
2448: -- lot/group and also its children
2449:
2450: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2451: FND_LOG.string (log_level => FND_LOG.level_statement,
2452: module => g_module_prefix || l_module_name,
2453: message => 'This is not large so deleting the exclusion entries.');
2454: END IF;
2447: -- Delete the exclusions that belong to this
2448: -- lot/group and also its children
2449:
2450: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2451: FND_LOG.string (log_level => FND_LOG.level_statement,
2452: module => g_module_prefix || l_module_name,
2453: message => 'This is not large so deleting the exclusion entries.');
2454: END IF;
2455:
2472: )
2473: );
2474: END IF;
2475:
2476: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2477: FND_LOG.string (log_level => FND_LOG.level_statement,
2478: module => g_module_prefix || l_module_name,
2479: message => 'Deleting attachments.');
2480: END IF;
2473: );
2474: END IF;
2475:
2476: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2477: FND_LOG.string (log_level => FND_LOG.level_statement,
2478: module => g_module_prefix || l_module_name,
2479: message => 'Deleting attachments.');
2480: END IF;
2481:
2491: x_pk5_value => NULL);
2492:
2493: END LOOP;
2494:
2495: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2496: FND_LOG.string (log_level => FND_LOG.level_statement,
2497: module => g_module_prefix || l_module_name,
2498: message => 'Deleting backing requisition line references.');
2499: END IF;
2492:
2493: END LOOP;
2494:
2495: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2496: FND_LOG.string (log_level => FND_LOG.level_statement,
2497: module => g_module_prefix || l_module_name,
2498: message => 'Deleting backing requisition line references.');
2499: END IF;
2500:
2501: -- Call delete references to backing reqs only if the auction origination
2502: -- code is REQUISITION
2503: IF (l_auction_origination_code = 'REQUISITION') THEN
2504:
2505: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2506: FND_LOG.string (log_level => FND_LOG.level_statement,
2507: module => g_module_prefix || l_module_name,
2508: message => 'This auction comes from a requisition.');
2509: END IF;
2502: -- code is REQUISITION
2503: IF (l_auction_origination_code = 'REQUISITION') THEN
2504:
2505: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2506: FND_LOG.string (log_level => FND_LOG.level_statement,
2507: module => g_module_prefix || l_module_name,
2508: message => 'This auction comes from a requisition.');
2509: END IF;
2510:
2510:
2511: -- Delete references to the backing req
2512: FOR backing_req_line IN lines_with_backing_requisition LOOP
2513:
2514: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2515: FND_LOG.string (log_level => FND_LOG.level_statement,
2516: module => g_module_prefix || l_module_name,
2517: message => 'Deleting backing reqs for line_number = ' || backing_req_line.line_number);
2518: END IF;
2511: -- Delete references to the backing req
2512: FOR backing_req_line IN lines_with_backing_requisition LOOP
2513:
2514: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2515: FND_LOG.string (log_level => FND_LOG.level_statement,
2516: module => g_module_prefix || l_module_name,
2517: message => 'Deleting backing reqs for line_number = ' || backing_req_line.line_number);
2518: END IF;
2519:
2522: x_negotiation_line_num => backing_req_line.line_number,
2523: x_org_id => backing_req_line.org_id,
2524: x_error_code => x_error_code);
2525:
2526: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2527: FND_LOG.string (log_level => FND_LOG.level_statement,
2528: module => g_module_prefix || l_module_name,
2529: message => 'Done deleting reference. x_error_code = ' || x_error_code);
2530: END IF;
2523: x_org_id => backing_req_line.org_id,
2524: x_error_code => x_error_code);
2525:
2526: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2527: FND_LOG.string (log_level => FND_LOG.level_statement,
2528: module => g_module_prefix || l_module_name,
2529: message => 'Done deleting reference. x_error_code = ' || x_error_code);
2530: END IF;
2531:
2537: END LOOP;
2538:
2539: END IF;
2540:
2541: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2542: FND_LOG.string (log_level => FND_LOG.level_statement,
2543: module => g_module_prefix || l_module_name,
2544: message => 'Deleting the lines');
2545: END IF;
2538:
2539: END IF;
2540:
2541: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2542: FND_LOG.string (log_level => FND_LOG.level_statement,
2543: module => g_module_prefix || l_module_name,
2544: message => 'Deleting the lines');
2545: END IF;
2546:
2565: x_result => x_result,
2566: x_error_code => x_error_code,
2567: x_error_message => x_error_message);
2568:
2569: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2570: FND_LOG.string (log_level => FND_LOG.level_statement,
2571: module => g_module_prefix || l_module_name,
2572: message => 'Sync pf values procedure called. x_result = ' || x_result ||
2573: ', x_error_code = ' || x_error_code ||
2566: x_error_code => x_error_code,
2567: x_error_message => x_error_message);
2568:
2569: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2570: FND_LOG.string (log_level => FND_LOG.level_statement,
2571: module => g_module_prefix || l_module_name,
2572: message => 'Sync pf values procedure called. x_result = ' || x_result ||
2573: ', x_error_code = ' || x_error_code ||
2574: ', x_error_message = ' || x_error_message);
2595: (SELECT distinct trading_partner_id, vendor_site_id
2596: FROM pon_party_line_exclusions
2597: WHERE auction_header_id = p_auction_header_id);
2598:
2599: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2600: FND_LOG.string (log_level => FND_LOG.level_procedure,
2601: module => g_module_prefix || l_module_name,
2602: message => 'Leaving procedure = ' || l_module_name);
2603: END IF;
2596: FROM pon_party_line_exclusions
2597: WHERE auction_header_id = p_auction_header_id);
2598:
2599: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2600: FND_LOG.string (log_level => FND_LOG.level_procedure,
2601: module => g_module_prefix || l_module_name,
2602: message => 'Leaving procedure = ' || l_module_name);
2603: END IF;
2604:
2607: x_result := FND_API.g_ret_sts_unexp_error;
2608: x_error_code := SQLCODE;
2609: x_error_message := SUBSTR(SQLERRM, 1, 100);
2610:
2611: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
2612: FND_LOG.string (log_level => FND_LOG.level_exception,
2613: module => g_module_prefix || l_module_name,
2614: message => 'Unexpected exception occured error_code = ' ||
2615: x_error_code || ', error_message = ' || x_error_message);
2608: x_error_code := SQLCODE;
2609: x_error_message := SUBSTR(SQLERRM, 1, 100);
2610:
2611: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
2612: FND_LOG.string (log_level => FND_LOG.level_exception,
2613: module => g_module_prefix || l_module_name,
2614: message => 'Unexpected exception occured error_code = ' ||
2615: x_error_code || ', error_message = ' || x_error_message);
2616: END IF;
2671: l_module_name := 'renumber_lines';
2672: x_result := FND_API.g_ret_sts_success;
2673: x_last_line_number := -1;
2674:
2675: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2676:
2677: FND_LOG.string(log_level => FND_LOG.level_procedure,
2678: module => g_module_prefix || 'RENUMBER_LINES',
2679: message => 'Entering PON_NEGOTIATION_HELPER_PVT.RENUMBER_LINES'
2673: x_last_line_number := -1;
2674:
2675: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2676:
2677: FND_LOG.string(log_level => FND_LOG.level_procedure,
2678: module => g_module_prefix || 'RENUMBER_LINES',
2679: message => 'Entering PON_NEGOTIATION_HELPER_PVT.RENUMBER_LINES'
2680: || ', p_auction_header_id = ' || p_auction_header_id
2681: || ', p_min_disp_line_number_parent = ' || p_min_disp_line_number_parent
2683: || ', p_min_child_parent_line_num = ' || p_min_child_parent_line_num);
2684: END IF;
2685:
2686: --START: CORRECT_SUB_LINE_SEQUENCE_NUMBER {
2687: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2688:
2689: FND_LOG.string(log_level => FND_LOG.level_statement,
2690: module => g_module_prefix || 'RENUMBER_LINES',
2691: message => 'Selecting the maximum sub_line_sequence_number from the header');
2685:
2686: --START: CORRECT_SUB_LINE_SEQUENCE_NUMBER {
2687: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2688:
2689: FND_LOG.string(log_level => FND_LOG.level_statement,
2690: module => g_module_prefix || 'RENUMBER_LINES',
2691: message => 'Selecting the maximum sub_line_sequence_number from the header');
2692: END IF;
2693:
2701: PON_AUCTION_HEADERS_ALL
2702: WHERE
2703: AUCTION_HEADER_ID = p_auction_header_id;
2704:
2705: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2706:
2707: FND_LOG.string(log_level => FND_LOG.level_statement,
2708: module => g_module_prefix || 'RENUMBER_LINES',
2709: message => 'The maximum sub_line_sequence_number from the header = ' || l_max_document_line_num);
2703: AUCTION_HEADER_ID = p_auction_header_id;
2704:
2705: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2706:
2707: FND_LOG.string(log_level => FND_LOG.level_statement,
2708: module => g_module_prefix || 'RENUMBER_LINES',
2709: message => 'The maximum sub_line_sequence_number from the header = ' || l_max_document_line_num);
2710: END IF;
2711:
2709: message => 'The maximum sub_line_sequence_number from the header = ' || l_max_document_line_num);
2710: END IF;
2711:
2712: --START: CORRECT FOR LINES, LOTS, GROUPS
2713: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2714:
2715: FND_LOG.string(log_level => FND_LOG.level_statement,
2716: module => g_module_prefix || 'RENUMBER_LINES',
2717: message => 'Retrieving the line_numbers into a table of numbers');
2711:
2712: --START: CORRECT FOR LINES, LOTS, GROUPS
2713: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2714:
2715: FND_LOG.string(log_level => FND_LOG.level_statement,
2716: module => g_module_prefix || 'RENUMBER_LINES',
2717: message => 'Retrieving the line_numbers into a table of numbers');
2718: END IF;
2719:
2731: DISP_LINE_NUMBER > p_min_disp_line_number_parent
2732: ORDER BY
2733: DISP_LINE_NUMBER;
2734:
2735: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2736:
2737: FND_LOG.string(log_level => FND_LOG.level_statement,
2738: module => g_module_prefix || 'RENUMBER_LINES',
2739: message => 'Number of lines collected = ' || l_line_number.COUNT);
2733: DISP_LINE_NUMBER;
2734:
2735: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2736:
2737: FND_LOG.string(log_level => FND_LOG.level_statement,
2738: module => g_module_prefix || 'RENUMBER_LINES',
2739: message => 'Number of lines collected = ' || l_line_number.COUNT);
2740: END IF;
2741:
2748:
2749: --GET THE GREATEST SUB_LINE_SEQUENCE_NUMBER WHOSE
2750: --DISP_LINE_NUMBER IS LESS THAN p_min_disp_line_number_parent
2751:
2752: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2753:
2754: FND_LOG.string(log_level => FND_LOG.level_statement,
2755: module => g_module_prefix || 'RENUMBER_LINES',
2756: message => 'Getting the maximum sub_line_sequence_number from the items table');
2750: --DISP_LINE_NUMBER IS LESS THAN p_min_disp_line_number_parent
2751:
2752: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2753:
2754: FND_LOG.string(log_level => FND_LOG.level_statement,
2755: module => g_module_prefix || 'RENUMBER_LINES',
2756: message => 'Getting the maximum sub_line_sequence_number from the items table');
2757: END IF;
2758:
2769:
2770: --IN GENERAL THE l_max_sub_line_sequence_number WILL BE GREATER
2771: --SO CHECK FOR THE RARER CONDITION
2772:
2773: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2774:
2775: FND_LOG.string(log_level => FND_LOG.level_statement,
2776: module => g_module_prefix || 'RENUMBER_LINES',
2777: message => 'Checking where to start the sequencing');
2771: --SO CHECK FOR THE RARER CONDITION
2772:
2773: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2774:
2775: FND_LOG.string(log_level => FND_LOG.level_statement,
2776: module => g_module_prefix || 'RENUMBER_LINES',
2777: message => 'Checking where to start the sequencing');
2778: END IF;
2779:
2781:
2782: l_max_sub_line_sequence_number := l_max_document_line_num;
2783: END IF;
2784:
2785: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2786:
2787: FND_LOG.string(log_level => FND_LOG.level_statement,
2788: module => g_module_prefix || 'RENUMBER_LINES',
2789: message => 'Sequencing will start at l_max_document_line_num = ' || l_max_document_line_num);
2783: END IF;
2784:
2785: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2786:
2787: FND_LOG.string(log_level => FND_LOG.level_statement,
2788: module => g_module_prefix || 'RENUMBER_LINES',
2789: message => 'Sequencing will start at l_max_document_line_num = ' || l_max_document_line_num);
2790: END IF;
2791:
2794: LOOP
2795:
2796: l_max_sub_line_sequence_number := l_max_sub_line_sequence_number + 1;
2797: l_sub_line_seq_number (x) := l_max_sub_line_sequence_number;
2798: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2799:
2800: FND_LOG.string(log_level => FND_LOG.level_statement,
2801: module => g_module_prefix || 'RENUMBER_LINES',
2802: message => 'Calculating the sub_line_sequence_number for line_number (' || l_line_number(x) || ' as ' || l_sub_line_seq_number (x));
2796: l_max_sub_line_sequence_number := l_max_sub_line_sequence_number + 1;
2797: l_sub_line_seq_number (x) := l_max_sub_line_sequence_number;
2798: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2799:
2800: FND_LOG.string(log_level => FND_LOG.level_statement,
2801: module => g_module_prefix || 'RENUMBER_LINES',
2802: message => 'Calculating the sub_line_sequence_number for line_number (' || l_line_number(x) || ' as ' || l_sub_line_seq_number (x));
2803: END IF;
2804: END LOOP;
2818: LINE_NUMBER = l_line_number (x);
2819:
2820: END IF; --}
2821:
2822: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2823:
2824: FND_LOG.string(log_level => FND_LOG.level_statement,
2825: module => g_module_prefix || 'RENUMBER_LINES',
2826: message => 'Starting correction of sub_line_sequence_number for lot_lines and group_lines');
2820: END IF; --}
2821:
2822: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2823:
2824: FND_LOG.string(log_level => FND_LOG.level_statement,
2825: module => g_module_prefix || 'RENUMBER_LINES',
2826: message => 'Starting correction of sub_line_sequence_number for lot_lines and group_lines');
2827: END IF;
2828:
2851: CHILDREN.DISP_LINE_NUMBER > p_min_disp_line_number_parent)
2852: ORDER BY
2853: CHILDREN.DISP_LINE_NUMBER;
2854:
2855: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2856:
2857: FND_LOG.string(log_level => FND_LOG.level_statement,
2858: module => g_module_prefix || 'RENUMBER_LINES',
2859: message => 'Number of lines to be corrected = ' || l_line_number.COUNT);
2853: CHILDREN.DISP_LINE_NUMBER;
2854:
2855: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2856:
2857: FND_LOG.string(log_level => FND_LOG.level_statement,
2858: module => g_module_prefix || 'RENUMBER_LINES',
2859: message => 'Number of lines to be corrected = ' || l_line_number.COUNT);
2860: END IF;
2861:
2860: END IF;
2861:
2862: IF (l_line_number.COUNT > 0) THEN --{
2863:
2864: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2865: FND_LOG.string(log_level => FND_LOG.level_statement,
2866: module => g_module_prefix || 'RENUMBER_LINES',
2867: message => 'p_min_disp_line_number_child = ' || p_min_disp_line_number_child ||
2868: ', p_min_disp_line_number_parent = ' || p_min_disp_line_number_parent);
2861:
2862: IF (l_line_number.COUNT > 0) THEN --{
2863:
2864: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2865: FND_LOG.string(log_level => FND_LOG.level_statement,
2866: module => g_module_prefix || 'RENUMBER_LINES',
2867: message => 'p_min_disp_line_number_child = ' || p_min_disp_line_number_child ||
2868: ', p_min_disp_line_number_parent = ' || p_min_disp_line_number_parent);
2869: END IF;
2870:
2871: IF (p_min_disp_line_number_child <> 0 AND
2872: p_min_disp_line_number_child < nvl (p_min_disp_line_number_parent, p_min_disp_line_number_child + 1)) THEN -- {
2873:
2874: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2875: FND_LOG.string(log_level => FND_LOG.level_statement,
2876: module => g_module_prefix || 'RENUMBER_LINES',
2877: message => 'The min disp line number child is not zero');
2878: END IF;
2871: IF (p_min_disp_line_number_child <> 0 AND
2872: p_min_disp_line_number_child < nvl (p_min_disp_line_number_parent, p_min_disp_line_number_child + 1)) THEN -- {
2873:
2874: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2875: FND_LOG.string(log_level => FND_LOG.level_statement,
2876: module => g_module_prefix || 'RENUMBER_LINES',
2877: message => 'The min disp line number child is not zero');
2878: END IF;
2879:
2887: AUCTION_HEADER_ID = p_auction_header_id AND
2888: PARENT_LINE_NUMBER = p_min_child_parent_line_num AND
2889: DISP_LINE_NUMBER < p_min_disp_line_number_child;
2890:
2891: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2892: FND_LOG.string(log_level => FND_LOG.level_statement,
2893: module => g_module_prefix || 'RENUMBER_LINES',
2894: message => 'l_current_max_sub_line_seq = ' || l_current_max_sub_line_seq ||
2895: 'l_parent_max_sub_line_seq_num(1) = ' || l_parent_max_sub_line_seq_num(1));
2888: PARENT_LINE_NUMBER = p_min_child_parent_line_num AND
2889: DISP_LINE_NUMBER < p_min_disp_line_number_child;
2890:
2891: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2892: FND_LOG.string(log_level => FND_LOG.level_statement,
2893: module => g_module_prefix || 'RENUMBER_LINES',
2894: message => 'l_current_max_sub_line_seq = ' || l_current_max_sub_line_seq ||
2895: 'l_parent_max_sub_line_seq_num(1) = ' || l_parent_max_sub_line_seq_num(1));
2896: END IF;
2902: END IF;
2903:
2904: ELSE
2905:
2906: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2907: FND_LOG.string(log_level => FND_LOG.level_statement,
2908: module => g_module_prefix || 'RENUMBER_LINES',
2909: message => 'is zero l_current_max_sub_line_seq = ' || l_current_max_sub_line_seq ||
2910: 'l_parent_max_sub_line_seq_num(1) = ' || l_parent_max_sub_line_seq_num(1));
2903:
2904: ELSE
2905:
2906: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2907: FND_LOG.string(log_level => FND_LOG.level_statement,
2908: module => g_module_prefix || 'RENUMBER_LINES',
2909: message => 'is zero l_current_max_sub_line_seq = ' || l_current_max_sub_line_seq ||
2910: 'l_parent_max_sub_line_seq_num(1) = ' || l_parent_max_sub_line_seq_num(1));
2911: END IF;
2917: --CORRECT THE SUB_LINE_SEQUENCE_NUMBER AND DOCUMENT_DISP_LINE_NUMBER
2918: FOR x IN 1..l_line_number.COUNT
2919: LOOP
2920:
2921: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2922: FND_LOG.string(log_level => FND_LOG.level_statement,
2923: module => g_module_prefix || 'RENUMBER_LINES',
2924: message => 'Determining the display for ' || l_line_number (x) ||
2925: ', l_current_parent_line_number = ' || l_current_parent_line_number ||
2918: FOR x IN 1..l_line_number.COUNT
2919: LOOP
2920:
2921: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2922: FND_LOG.string(log_level => FND_LOG.level_statement,
2923: module => g_module_prefix || 'RENUMBER_LINES',
2924: message => 'Determining the display for ' || l_line_number (x) ||
2925: ', l_current_parent_line_number = ' || l_current_parent_line_number ||
2926: ', l_parent_line_number (x) ' || l_parent_line_number(x));
2940: -- CORRECT THE SUB_LINE_SEQUENCE_NUMBER AND DOCUMENT_DISP_LINE_NUMBER
2941: l_sub_line_seq_number (x) := l_current_max_sub_line_seq;
2942: l_document_disp_line_number (x) := l_parent_doc_disp_line_number(x) || '.' || l_current_max_sub_line_seq;
2943:
2944: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2945: FND_LOG.string(log_level => FND_LOG.level_statement,
2946: module => g_module_prefix || 'RENUMBER_LINES',
2947: message => 'Determined ' ||
2948: ', l_sub_line_seq_number(x) = ' || l_sub_line_seq_number (x)||
2941: l_sub_line_seq_number (x) := l_current_max_sub_line_seq;
2942: l_document_disp_line_number (x) := l_parent_doc_disp_line_number(x) || '.' || l_current_max_sub_line_seq;
2943:
2944: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2945: FND_LOG.string(log_level => FND_LOG.level_statement,
2946: module => g_module_prefix || 'RENUMBER_LINES',
2947: message => 'Determined ' ||
2948: ', l_sub_line_seq_number(x) = ' || l_sub_line_seq_number (x)||
2949: ', l_document_disp_line_number(x) ' || l_document_disp_line_number(x));
2995: DISP_LINE_NUMBER > l_min_disp_line_number
2996: ORDER BY
2997: DISP_LINE_NUMBER;
2998:
2999: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3000: FND_LOG.string(log_level => FND_LOG.level_statement,
3001: module => g_module_prefix || 'RENUMBER_LINES',
3002: message => 'Obtained ' || l_line_number.COUNT || ' lines to correct');
3003: END IF;
2996: ORDER BY
2997: DISP_LINE_NUMBER;
2998:
2999: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3000: FND_LOG.string(log_level => FND_LOG.level_statement,
3001: module => g_module_prefix || 'RENUMBER_LINES',
3002: message => 'Obtained ' || l_line_number.COUNT || ' lines to correct');
3003: END IF;
3004:
3004:
3005: --IF THERE ARE NO LINES BELOW THIS LINE
3006: --THEN NO RENUMBERING IS REQUIRED
3007: IF (l_line_number.COUNT = 0) THEN
3008: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3009: FND_LOG.string(log_level => FND_LOG.level_statement,
3010: module => g_module_prefix || 'RENUMBER_LINES',
3011: message => 'Returning without doing anything as there are no lines to renumber');
3012: END IF;
3005: --IF THERE ARE NO LINES BELOW THIS LINE
3006: --THEN NO RENUMBERING IS REQUIRED
3007: IF (l_line_number.COUNT = 0) THEN
3008: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3009: FND_LOG.string(log_level => FND_LOG.level_statement,
3010: module => g_module_prefix || 'RENUMBER_LINES',
3011: message => 'Returning without doing anything as there are no lines to renumber');
3012: END IF;
3013:
3031: END IF;
3032:
3033: --DETERMINE THE NEXT INTEGER TO START WITH
3034: l_temp := floor (l_min_disp_line_number);
3035: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3036: FND_LOG.string(log_level => FND_LOG.level_statement,
3037: module => g_module_prefix || 'RENUMBER_LINES',
3038: message => 'The new disp line number should start after ' || l_temp);
3039: END IF;
3032:
3033: --DETERMINE THE NEXT INTEGER TO START WITH
3034: l_temp := floor (l_min_disp_line_number);
3035: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3036: FND_LOG.string(log_level => FND_LOG.level_statement,
3037: module => g_module_prefix || 'RENUMBER_LINES',
3038: message => 'The new disp line number should start after ' || l_temp);
3039: END IF;
3040:
3043: LOOP
3044:
3045: l_new_disp_line_number (y) := y + l_temp;
3046:
3047: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3048: FND_LOG.string(log_level => FND_LOG.level_statement,
3049: module => g_module_prefix || 'RENUMBER_LINES',
3050: message => 'Determined that ' || l_new_disp_line_number (y)
3051: || ' is the new disp_line_number of ' || l_line_number (y));
3044:
3045: l_new_disp_line_number (y) := y + l_temp;
3046:
3047: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3048: FND_LOG.string(log_level => FND_LOG.level_statement,
3049: module => g_module_prefix || 'RENUMBER_LINES',
3050: message => 'Determined that ' || l_new_disp_line_number (y)
3051: || ' is the new disp_line_number of ' || l_line_number (y));
3052: END IF;
3051: || ' is the new disp_line_number of ' || l_line_number (y));
3052: END IF;
3053: END LOOP; --}
3054:
3055: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3056: FND_LOG.string(log_level => FND_LOG.level_statement,
3057: module => g_module_prefix || 'RENUMBER_LINES',
3058: message => 'Calling bulk update to set the new disp_line_number');
3059: END IF;
3052: END IF;
3053: END LOOP; --}
3054:
3055: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3056: FND_LOG.string(log_level => FND_LOG.level_statement,
3057: module => g_module_prefix || 'RENUMBER_LINES',
3058: message => 'Calling bulk update to set the new disp_line_number');
3059: END IF;
3060:
3076: WHERE
3077: auction_header_id = p_auction_header_id and
3078: group_type IN ('LOT', 'LINE', 'GROUP');
3079:
3080: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3081: FND_LOG.string(log_level => FND_LOG.level_procedure,
3082: module => g_module_prefix || 'RENUMBER_LINES',
3083: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.RENUMBER_LINES');
3084: END IF;
3077: auction_header_id = p_auction_header_id and
3078: group_type IN ('LOT', 'LINE', 'GROUP');
3079:
3080: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3081: FND_LOG.string(log_level => FND_LOG.level_procedure,
3082: module => g_module_prefix || 'RENUMBER_LINES',
3083: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.RENUMBER_LINES');
3084: END IF;
3085:
3088: x_result := FND_API.g_ret_sts_unexp_error;
3089: x_error_code := SQLCODE;
3090: x_error_message := SUBSTR(SQLERRM, 1, 100);
3091:
3092: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
3093: FND_LOG.string (log_level => FND_LOG.level_exception,
3094: module => g_module_prefix || l_module_name,
3095: message => 'Unexpected exception occured error_code = ' ||
3096: x_error_code || ', error_message = ' || x_error_message);
3089: x_error_code := SQLCODE;
3090: x_error_message := SUBSTR(SQLERRM, 1, 100);
3091:
3092: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
3093: FND_LOG.string (log_level => FND_LOG.level_exception,
3094: module => g_module_prefix || l_module_name,
3095: message => 'Unexpected exception occured error_code = ' ||
3096: x_error_code || ', error_message = ' || x_error_message);
3097: END IF;
3124: x_prev_min_disp_line_num OUT NOCOPY NUMBER
3125: ) IS
3126: BEGIN
3127:
3128: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3129: FND_LOG.string(log_level => FND_LOG.level_statement,
3130: module => g_module_prefix || 'GET_SRCH_MIN_DISP_LINE_NUMBERS',
3131: message => 'Entering PON_NEGOTIATION_HELPER_PVT.GET_SRCH_MIN_DISP_LINE_NUMBERS'
3132: || ', p_curr_auction_header_id = ' || p_curr_auction_header_id
3125: ) IS
3126: BEGIN
3127:
3128: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3129: FND_LOG.string(log_level => FND_LOG.level_statement,
3130: module => g_module_prefix || 'GET_SRCH_MIN_DISP_LINE_NUMBERS',
3131: message => 'Entering PON_NEGOTIATION_HELPER_PVT.GET_SRCH_MIN_DISP_LINE_NUMBERS'
3132: || ', p_curr_auction_header_id = ' || p_curr_auction_header_id
3133: || ', p_prev_auction_header_id = ' || p_prev_auction_header_id
3150: WHERE AUCTION_HEADER_ID = p_prev_auction_header_id
3151: AND GROUP_TYPE IN ('LOT', 'GROUP', 'LINE')
3152: AND SUB_LINE_SEQUENCE_NUMBER > p_value;
3153:
3154: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3155: FND_LOG.string(log_level => FND_LOG.level_statement,
3156: module => g_module_prefix || 'GET_SRCH_MIN_DISP_LINE_NUMBERS',
3157: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.GET_SRCH_MIN_DISP_LINE_NUMBERS'
3158: || 'x_curr_min_disp_line_num = ' || x_curr_min_disp_line_num
3151: AND GROUP_TYPE IN ('LOT', 'GROUP', 'LINE')
3152: AND SUB_LINE_SEQUENCE_NUMBER > p_value;
3153:
3154: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3155: FND_LOG.string(log_level => FND_LOG.level_statement,
3156: module => g_module_prefix || 'GET_SRCH_MIN_DISP_LINE_NUMBERS',
3157: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.GET_SRCH_MIN_DISP_LINE_NUMBERS'
3158: || 'x_curr_min_disp_line_num = ' || x_curr_min_disp_line_num
3159: || 'x_prev_min_disp_line_num = ' || x_prev_min_disp_line_num
3193: l_prev_group_type PON_AUCTION_ITEM_PRICES_ALL.GROUP_TYPE%TYPE;
3194:
3195: BEGIN
3196:
3197: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3198: FND_LOG.string(log_level => FND_LOG.level_statement,
3199: module => g_module_prefix || 'GET_SRCH_MAX_DISP_LINE_NUMBERS',
3200: message => 'Entering PON_NEGOTIATION_HELPER_PVT.GET_SRCH_MAX_DISP_LINE_NUMBERS '
3201: || ', p_curr_auction_header_id = ' || p_curr_auction_header_id
3194:
3195: BEGIN
3196:
3197: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3198: FND_LOG.string(log_level => FND_LOG.level_statement,
3199: module => g_module_prefix || 'GET_SRCH_MAX_DISP_LINE_NUMBERS',
3200: message => 'Entering PON_NEGOTIATION_HELPER_PVT.GET_SRCH_MAX_DISP_LINE_NUMBERS '
3201: || ', p_curr_auction_header_id = ' || p_curr_auction_header_id
3202: || ', p_prev_auction_header_id = ' || p_prev_auction_header_id
3219: WHERE AUCTION_HEADER_ID = p_prev_auction_header_id
3220: AND GROUP_TYPE IN ('LOT', 'LINE', 'GROUP')
3221: AND SUB_LINE_SEQUENCE_NUMBER < p_value;
3222:
3223: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3224: FND_LOG.string(log_level => FND_LOG.level_statement,
3225: module => g_module_prefix || 'GET_SRCH_MAX_DISP_LINE_NUMBERS',
3226: message => 'After the first query x_curr_max_disp_line_num = ' ||
3227: x_curr_max_disp_line_num || ' and x_prev_max_disp_line_num = ' || x_prev_max_disp_line_num);
3220: AND GROUP_TYPE IN ('LOT', 'LINE', 'GROUP')
3221: AND SUB_LINE_SEQUENCE_NUMBER < p_value;
3222:
3223: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3224: FND_LOG.string(log_level => FND_LOG.level_statement,
3225: module => g_module_prefix || 'GET_SRCH_MAX_DISP_LINE_NUMBERS',
3226: message => 'After the first query x_curr_max_disp_line_num = ' ||
3227: x_curr_max_disp_line_num || ' and x_prev_max_disp_line_num = ' || x_prev_max_disp_line_num);
3228: END IF;
3228: END IF;
3229:
3230: IF (x_curr_max_disp_line_num IS NULL AND x_prev_max_disp_line_num IS NULL) THEN
3231:
3232: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3233: FND_LOG.string(log_level => FND_LOG.level_statement,
3234: module => g_module_prefix || 'GET_SRCH_MAX_DISP_LINE_NUMBERS',
3235: message => 'There are no lines in both the auctions so returning null');
3236: END IF;
3229:
3230: IF (x_curr_max_disp_line_num IS NULL AND x_prev_max_disp_line_num IS NULL) THEN
3231:
3232: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3233: FND_LOG.string(log_level => FND_LOG.level_statement,
3234: module => g_module_prefix || 'GET_SRCH_MAX_DISP_LINE_NUMBERS',
3235: message => 'There are no lines in both the auctions so returning null');
3236: END IF;
3237:
3249: FROM PON_AUCTION_ITEM_PRICES_ALL
3250: WHERE AUCTION_HEADER_ID = p_prev_auction_header_id
3251: AND DISP_LINE_NUMBER = x_prev_max_disp_line_num;
3252:
3253: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3254: FND_LOG.string(log_level => FND_LOG.level_statement,
3255: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
3256: message => 'l_curr_group_type = ' || l_curr_group_type
3257: || ', l_curr_line_number = ' || l_curr_line_number
3250: WHERE AUCTION_HEADER_ID = p_prev_auction_header_id
3251: AND DISP_LINE_NUMBER = x_prev_max_disp_line_num;
3252:
3253: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3254: FND_LOG.string(log_level => FND_LOG.level_statement,
3255: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
3256: message => 'l_curr_group_type = ' || l_curr_group_type
3257: || ', l_curr_line_number = ' || l_curr_line_number
3258: ||'l_prev_group_type = ' || l_prev_group_type
3278: WHERE AUCTION_HEADER_ID = p_prev_auction_header_id
3279: AND PARENT_LINE_NUMBER = l_prev_line_number;
3280: END IF;
3281:
3282: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3283: FND_LOG.string(log_level => FND_LOG.level_statement,
3284: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
3285: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.GET_AUCTION_REQUEST_ID '
3286: || ', x_curr_max_disp_line_num = ' || x_curr_max_disp_line_num
3279: AND PARENT_LINE_NUMBER = l_prev_line_number;
3280: END IF;
3281:
3282: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3283: FND_LOG.string(log_level => FND_LOG.level_statement,
3284: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
3285: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.GET_AUCTION_REQUEST_ID '
3286: || ', x_curr_max_disp_line_num = ' || x_curr_max_disp_line_num
3287: || ', x_prev_max_disp_line_num = ' || x_prev_max_disp_line_num);
3316:
3317: l_module_name := 'DELETE_DISCUSSIONS';
3318: x_result := FND_API.g_ret_sts_success;
3319:
3320: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3321: FND_LOG.string (log_level => FND_LOG.level_procedure,
3322: module => g_module_prefix || l_module_name,
3323: message => 'Entered procedure = ' || l_module_name ||
3324: ' p_auction_header_id = ' || p_auction_header_id);
3317: l_module_name := 'DELETE_DISCUSSIONS';
3318: x_result := FND_API.g_ret_sts_success;
3319:
3320: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3321: FND_LOG.string (log_level => FND_LOG.level_procedure,
3322: module => g_module_prefix || l_module_name,
3323: message => 'Entered procedure = ' || l_module_name ||
3324: ' p_auction_header_id = ' || p_auction_header_id);
3325: END IF;
3341: ENTRY_ID IN ( SELECT ENTRY_ID
3342: FROM PON_THREAD_ENTRIES
3343: WHERE DISCUSSION_ID = l_discussion_id);
3344:
3345: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3346: FND_LOG.string (log_level => FND_LOG.level_statement,
3347: module => g_module_prefix || l_module_name,
3348: message => 'PON_TE_RECIPIENTS records deleted');
3349: END IF;
3342: FROM PON_THREAD_ENTRIES
3343: WHERE DISCUSSION_ID = l_discussion_id);
3344:
3345: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3346: FND_LOG.string (log_level => FND_LOG.level_statement,
3347: module => g_module_prefix || l_module_name,
3348: message => 'PON_TE_RECIPIENTS records deleted');
3349: END IF;
3350:
3355: ENTRY_ID IN ( SELECT ENTRY_ID
3356: FROM PON_THREAD_ENTRIES
3357: WHERE DISCUSSION_ID = l_discussion_id);
3358:
3359: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3360: FND_LOG.string (log_level => FND_LOG.level_statement,
3361: module => g_module_prefix || l_module_name,
3362: message => 'PON_TE_VIEW_AUDIT records deleted');
3363: END IF;
3356: FROM PON_THREAD_ENTRIES
3357: WHERE DISCUSSION_ID = l_discussion_id);
3358:
3359: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3360: FND_LOG.string (log_level => FND_LOG.level_statement,
3361: module => g_module_prefix || l_module_name,
3362: message => 'PON_TE_VIEW_AUDIT records deleted');
3363: END IF;
3364:
3366: PON_THREAD_ENTRIES
3367: WHERE
3368: DISCUSSION_ID = l_discussion_id;
3369:
3370: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3371: FND_LOG.string (log_level => FND_LOG.level_statement,
3372: module => g_module_prefix || l_module_name,
3373: message => 'PON_THREAD_ENTRIES records deleted');
3374: END IF;
3367: WHERE
3368: DISCUSSION_ID = l_discussion_id;
3369:
3370: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3371: FND_LOG.string (log_level => FND_LOG.level_statement,
3372: module => g_module_prefix || l_module_name,
3373: message => 'PON_THREAD_ENTRIES records deleted');
3374: END IF;
3375:
3377: PON_THREADS
3378: WHERE
3379: DISCUSSION_ID = l_discussion_id;
3380:
3381: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3382: FND_LOG.string (log_level => FND_LOG.level_statement,
3383: module => g_module_prefix || l_module_name,
3384: message => 'PON_THREADS records deleted');
3385: END IF;
3378: WHERE
3379: DISCUSSION_ID = l_discussion_id;
3380:
3381: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3382: FND_LOG.string (log_level => FND_LOG.level_statement,
3383: module => g_module_prefix || l_module_name,
3384: message => 'PON_THREADS records deleted');
3385: END IF;
3386:
3388: PON_DISCUSSIONS
3389: WHERE
3390: DISCUSSION_ID = l_discussion_id;
3391:
3392: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3393: FND_LOG.string (log_level => FND_LOG.level_statement,
3394: module => g_module_prefix || l_module_name,
3395: message => 'PON_DISCUSSIONS records deleted');
3396: END IF;
3389: WHERE
3390: DISCUSSION_ID = l_discussion_id;
3391:
3392: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3393: FND_LOG.string (log_level => FND_LOG.level_statement,
3394: module => g_module_prefix || l_module_name,
3395: message => 'PON_DISCUSSIONS records deleted');
3396: END IF;
3397:
3394: module => g_module_prefix || l_module_name,
3395: message => 'PON_DISCUSSIONS records deleted');
3396: END IF;
3397:
3398: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3399: FND_LOG.string (log_level => FND_LOG.level_procedure,
3400: module => g_module_prefix || l_module_name,
3401: message => 'Leaving procedure = ' || l_module_name);
3402: END IF;
3395: message => 'PON_DISCUSSIONS records deleted');
3396: END IF;
3397:
3398: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3399: FND_LOG.string (log_level => FND_LOG.level_procedure,
3400: module => g_module_prefix || l_module_name,
3401: message => 'Leaving procedure = ' || l_module_name);
3402: END IF;
3403:
3406: x_result := FND_API.g_ret_sts_unexp_error;
3407: x_error_code := SQLCODE;
3408: x_error_message := SUBSTR(SQLERRM, 1, 100);
3409:
3410: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
3411: FND_LOG.string (log_level => FND_LOG.level_exception,
3412: module => g_module_prefix || l_module_name,
3413: message => 'Unexpected exception occured error_code = ' ||
3414: x_error_code || ', error_message = ' || x_error_message);
3407: x_error_code := SQLCODE;
3408: x_error_message := SUBSTR(SQLERRM, 1, 100);
3409:
3410: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
3411: FND_LOG.string (log_level => FND_LOG.level_exception,
3412: module => g_module_prefix || l_module_name,
3413: message => 'Unexpected exception occured error_code = ' ||
3414: x_error_code || ', error_message = ' || x_error_message);
3415: END IF;
3449: l_curr_close_date DATE;
3450: l_stag_interval NUMBER;
3451:
3452: BEGIN
3453: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3454: FND_LOG.string(log_level => FND_LOG.level_statement,
3455: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3456: message => 'Entered PON_NEGOTIATION_HELPER_PVT.UPDATE_LINES_CLOSE_DATES'
3457: || ', p_auction_header_id = ' || p_auction_header_id
3450: l_stag_interval NUMBER;
3451:
3452: BEGIN
3453: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3454: FND_LOG.string(log_level => FND_LOG.level_statement,
3455: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3456: message => 'Entered PON_NEGOTIATION_HELPER_PVT.UPDATE_LINES_CLOSE_DATES'
3457: || ', p_auction_header_id = ' || p_auction_header_id
3458: || ', p_first_line_close_date = ' || p_first_line_close_date
3466: SELECT max(disp_line_number)
3467: INTO l_max_line_number
3468: FROM pon_auction_item_prices_all WHERE auction_header_id = p_auction_header_id;
3469:
3470: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3471: FND_LOG.string(log_level => FND_LOG.level_statement,
3472: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3473: message => 'l_max_line_number : ' || l_max_line_number
3474: );
3467: INTO l_max_line_number
3468: FROM pon_auction_item_prices_all WHERE auction_header_id = p_auction_header_id;
3469:
3470: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3471: FND_LOG.string(log_level => FND_LOG.level_statement,
3472: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3473: message => 'l_max_line_number : ' || l_max_line_number
3474: );
3475: END IF;
3477: IF (l_max_line_number) > 0 then --{
3478:
3479: IF (p_start_disp_line_number > l_max_line_number) THEN --{
3480:
3481: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3482: FND_LOG.string(log_level => FND_LOG.level_statement,
3483: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3484: message => 'p_start_disp_line_number > l_max_line_number; so returning'
3485: );
3478:
3479: IF (p_start_disp_line_number > l_max_line_number) THEN --{
3480:
3481: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3482: FND_LOG.string(log_level => FND_LOG.level_statement,
3483: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3484: message => 'p_start_disp_line_number > l_max_line_number; so returning'
3485: );
3486: END IF;
3505: --we offset the current close date back by the staggered interval
3506: --so that the close date of the first line/lot/group is set the the
3507: --first line close date in the loop
3508:
3509: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3510: FND_LOG.string(log_level => FND_LOG.level_statement,
3511: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3512: message => 'l_batch_size : ' || l_batch_size
3513: ||'; l_stag_interval : ' || l_stag_interval
3506: --so that the close date of the first line/lot/group is set the the
3507: --first line close date in the loop
3508:
3509: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3510: FND_LOG.string(log_level => FND_LOG.level_statement,
3511: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3512: message => 'l_batch_size : ' || l_batch_size
3513: ||'; l_stag_interval : ' || l_stag_interval
3514: ||'; l_curr_close_date : ' || to_char (l_curr_close_date, 'dd-mon-yyyy hh24:mi:ss')
3525: --So we need to translate the batch end based on batch start
3526: l_batch_end := l_batch_start + l_batch_size - 1;
3527: END IF;
3528:
3529: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3530: FND_LOG.string(log_level => FND_LOG.level_statement,
3531: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3532: message => 'Finished setting the batching loop limits; l_batch_start : '||l_batch_start
3533: ||'; l_batch_end : ' || l_batch_end
3526: l_batch_end := l_batch_start + l_batch_size - 1;
3527: END IF;
3528:
3529: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3530: FND_LOG.string(log_level => FND_LOG.level_statement,
3531: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3532: message => 'Finished setting the batching loop limits; l_batch_start : '||l_batch_start
3533: ||'; l_batch_end : ' || l_batch_end
3534: );
3536:
3537: WHILE (l_batch_start <= l_max_line_number)
3538: LOOP
3539:
3540: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3541: FND_LOG.string(log_level => FND_LOG.level_statement,
3542: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3543: message => 'Processing the batch from l_batch_start : ' || l_batch_start
3544: ||' to l_batch_end : ' || l_batch_end || ' ; bulk collecting the records now'
3537: WHILE (l_batch_start <= l_max_line_number)
3538: LOOP
3539:
3540: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3541: FND_LOG.string(log_level => FND_LOG.level_statement,
3542: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3543: message => 'Processing the batch from l_batch_start : ' || l_batch_start
3544: ||' to l_batch_end : ' || l_batch_end || ' ; bulk collecting the records now'
3545: );
3555: order by disp_line_number;
3556:
3557: IF l_line_number.COUNT <> 0 THEN
3558:
3559: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3560: FND_LOG.string(log_level => FND_LOG.level_statement,
3561: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3562: message => 'setting up the close dates array'
3563: );
3556:
3557: IF l_line_number.COUNT <> 0 THEN
3558:
3559: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3560: FND_LOG.string(log_level => FND_LOG.level_statement,
3561: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3562: message => 'setting up the close dates array'
3563: );
3564: END IF;
3572: END LOOP;
3573:
3574: x_last_line_close_date := l_close_date(l_line_number.COUNT);
3575:
3576: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3577: FND_LOG.string(log_level => FND_LOG.level_statement,
3578: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3579: message => 'Last close date for this batch is x_last_line_close_date : ' || to_char (x_last_line_close_date, 'dd-mon-yyyy hh24:mi:ss')
3580: ||'; now bulk updating the PON_AUCTION_ITEM_PRICES_ALL'
3573:
3574: x_last_line_close_date := l_close_date(l_line_number.COUNT);
3575:
3576: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3577: FND_LOG.string(log_level => FND_LOG.level_statement,
3578: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3579: message => 'Last close date for this batch is x_last_line_close_date : ' || to_char (x_last_line_close_date, 'dd-mon-yyyy hh24:mi:ss')
3580: ||'; now bulk updating the PON_AUCTION_ITEM_PRICES_ALL'
3581: );
3586: set close_bidding_date = l_close_date(x)
3587: WHERE auction_header_id = p_auction_header_id
3588: AND line_number = l_line_number(x);
3589:
3590: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3591: FND_LOG.string(log_level => FND_LOG.level_statement,
3592: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3593: message => 'Committing the batch now'
3594: );
3587: WHERE auction_header_id = p_auction_header_id
3588: AND line_number = l_line_number(x);
3589:
3590: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3591: FND_LOG.string(log_level => FND_LOG.level_statement,
3592: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3593: message => 'Committing the batch now'
3594: );
3595: END IF;
3595: END IF;
3596:
3597: COMMIT;
3598:
3599: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3600: FND_LOG.string(log_level => FND_LOG.level_statement,
3601: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3602: message => 'Updating the batch limits for next iteration'
3603: );
3596:
3597: COMMIT;
3598:
3599: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3600: FND_LOG.string(log_level => FND_LOG.level_statement,
3601: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3602: message => 'Updating the batch limits for next iteration'
3603: );
3604: END IF;
3610: ELSE
3611: l_batch_end := l_batch_end + l_batch_size;
3612: END IF;
3613:
3614: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3615: FND_LOG.string(log_level => FND_LOG.level_statement,
3616: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3617: message => 'New limits are l_batch_start : ' || l_batch_start
3618: || '; l_batch_end : ' || l_batch_end
3611: l_batch_end := l_batch_end + l_batch_size;
3612: END IF;
3613:
3614: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3615: FND_LOG.string(log_level => FND_LOG.level_statement,
3616: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3617: message => 'New limits are l_batch_start : ' || l_batch_start
3618: || '; l_batch_end : ' || l_batch_end
3619: );
3627: x_last_line_close_date := p_first_line_close_date;
3628: END IF; --}
3629: x_result := FND_API.G_RET_STS_SUCCESS;
3630:
3631: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3632: FND_LOG.string(log_level => FND_LOG.level_statement,
3633: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3634: message => 'Exitting the method with '
3635: || 'x_last_line_close_date : '||x_last_line_close_date
3628: END IF; --}
3629: x_result := FND_API.G_RET_STS_SUCCESS;
3630:
3631: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3632: FND_LOG.string(log_level => FND_LOG.level_statement,
3633: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3634: message => 'Exitting the method with '
3635: || 'x_last_line_close_date : '||x_last_line_close_date
3636: || '; x_result : '||x_result
3654: IS
3655: l_lines_lots_groups_count NUMBER := -1;
3656: BEGIN
3657:
3658: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3659: FND_LOG.string(log_level => FND_LOG.level_statement,
3660: module => g_module_prefix || 'COUNT_LINES_LOTS_GROUPS',
3661: message => 'Entered the procedure COUNT_LINES_LOTS_GROUPS; p_auction_header_id : ' || p_auction_header_id );
3662: END IF;
3655: l_lines_lots_groups_count NUMBER := -1;
3656: BEGIN
3657:
3658: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3659: FND_LOG.string(log_level => FND_LOG.level_statement,
3660: module => g_module_prefix || 'COUNT_LINES_LOTS_GROUPS',
3661: message => 'Entered the procedure COUNT_LINES_LOTS_GROUPS; p_auction_header_id : ' || p_auction_header_id );
3662: END IF;
3663:
3666: FROM pon_auction_item_prices_all
3667: WHERE group_type IN ('LINE', 'LOT', 'GROUP')
3668: AND auction_header_id = p_auction_header_id;
3669:
3670: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3671: FND_LOG.string(log_level => FND_LOG.level_statement,
3672: module => g_module_prefix || 'GET_SEARCH_MIN_DISP_LINE_NUM',
3673: message => 'Exitting the procedure COUNT_LINES_LOTS_GROUPS; l_lines_lots_groups_count : ' || l_lines_lots_groups_count );
3674: END IF;
3667: WHERE group_type IN ('LINE', 'LOT', 'GROUP')
3668: AND auction_header_id = p_auction_header_id;
3669:
3670: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3671: FND_LOG.string(log_level => FND_LOG.level_statement,
3672: module => g_module_prefix || 'GET_SEARCH_MIN_DISP_LINE_NUM',
3673: message => 'Exitting the procedure COUNT_LINES_LOTS_GROUPS; l_lines_lots_groups_count : ' || l_lines_lots_groups_count );
3674: END IF;
3675:
3698: v_return_status VARCHAR2(1);
3699: v_po_auth_status PO_LOOKUP_CODES.displayed_field%TYPE;
3700: BEGIN
3701:
3702: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3703: FND_LOG.string(log_level => FND_LOG.level_statement,
3704: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3705: message => 'Entered the procedure GET_PO_AUTHORIZATION_STATUS; p_document_id : ' || p_document_id
3706: || '; p_document_type : ' || p_document_type
3699: v_po_auth_status PO_LOOKUP_CODES.displayed_field%TYPE;
3700: BEGIN
3701:
3702: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3703: FND_LOG.string(log_level => FND_LOG.level_statement,
3704: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3705: message => 'Entered the procedure GET_PO_AUTHORIZATION_STATUS; p_document_id : ' || p_document_id
3706: || '; p_document_type : ' || p_document_type
3707: || '; p_document_subtype : ' || p_document_subtype);
3714:
3715: IF (p_document_id is null OR --This case cannot happen
3716: p_document_type is null -- this means it's an RFI
3717: ) THEN
3718: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3719: FND_LOG.string(log_level => FND_LOG.level_statement,
3720: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3721: message => 'Returning null because either p_document_id or p_document_type is null');
3722: END IF;
3715: IF (p_document_id is null OR --This case cannot happen
3716: p_document_type is null -- this means it's an RFI
3717: ) THEN
3718: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3719: FND_LOG.string(log_level => FND_LOG.level_statement,
3720: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3721: message => 'Returning null because either p_document_id or p_document_type is null');
3722: END IF;
3723: return null;
3731: x_document_status => v_po_auth_status
3732: );
3733:
3734: IF ( v_return_status <> 'S' ) THEN
3735: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3736: FND_LOG.string(log_level => FND_LOG.level_statement,
3737: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3738: message => 'Returning null because either x_return_status : ' || v_return_status);
3739: END IF;
3732: );
3733:
3734: IF ( v_return_status <> 'S' ) THEN
3735: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3736: FND_LOG.string(log_level => FND_LOG.level_statement,
3737: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3738: message => 'Returning null because either x_return_status : ' || v_return_status);
3739: END IF;
3740: return null;
3739: END IF;
3740: return null;
3741: END IF;
3742:
3743: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3744: FND_LOG.string(log_level => FND_LOG.level_statement,
3745: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3746: message => 'Exitting the procedure GET_PO_AUTHORIZATION_STATUS; v_return_status : ' || v_return_status
3747: || '; v_po_auth_status : ' || v_po_auth_status);
3740: return null;
3741: END IF;
3742:
3743: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3744: FND_LOG.string(log_level => FND_LOG.level_statement,
3745: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3746: message => 'Exitting the procedure GET_PO_AUTHORIZATION_STATUS; v_return_status : ' || v_return_status
3747: || '; v_po_auth_status : ' || v_po_auth_status);
3748: END IF;
3777: l_module_name := 'has_price_tiers';
3778: x_result := FND_API.g_ret_sts_success;
3779: x_has_price_tiers := 'Y';
3780:
3781: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3782: FND_LOG.string(log_level => FND_LOG.level_statement,
3783: module => g_module_prefix || l_module_name,
3784: message => 'Entered the procedure HAS_PRICE_TIERS; p_auction_header_id : ' || p_auction_header_id);
3785: END IF;
3778: x_result := FND_API.g_ret_sts_success;
3779: x_has_price_tiers := 'Y';
3780:
3781: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3782: FND_LOG.string(log_level => FND_LOG.level_statement,
3783: module => g_module_prefix || l_module_name,
3784: message => 'Entered the procedure HAS_PRICE_TIERS; p_auction_header_id : ' || p_auction_header_id);
3785: END IF;
3786:
3799: WHERE
3800: auction_header_id = p_auction_header_id AND
3801: rownum = 1;
3802:
3803: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3804: FND_LOG.string(log_level => FND_LOG.level_statement,
3805: module => g_module_prefix || l_module_name,
3806: message => 'x_has_price_tiers' || x_has_price_tiers);
3807: END IF;
3800: auction_header_id = p_auction_header_id AND
3801: rownum = 1;
3802:
3803: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3804: FND_LOG.string(log_level => FND_LOG.level_statement,
3805: module => g_module_prefix || l_module_name,
3806: message => 'x_has_price_tiers' || x_has_price_tiers);
3807: END IF;
3808:
3813: --There are no shipments for the auction, so set the return value to N
3814: --
3815:
3816: x_has_price_tiers := 'N';
3817: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3818: FND_LOG.string(log_level => FND_LOG.level_statement,
3819: module => g_module_prefix || 'HAS_PRICE_TIERS',
3820: message => 'No shipments for auction; x_has_price_tiers' || x_has_price_tiers);
3821: END IF;
3814: --
3815:
3816: x_has_price_tiers := 'N';
3817: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3818: FND_LOG.string(log_level => FND_LOG.level_statement,
3819: module => g_module_prefix || 'HAS_PRICE_TIERS',
3820: message => 'No shipments for auction; x_has_price_tiers' || x_has_price_tiers);
3821: END IF;
3822: END;
3829: x_result := FND_API.g_ret_sts_unexp_error;
3830: x_error_code := SQLCODE;
3831: x_error_message := SUBSTR(SQLERRM, 1, 100);
3832:
3833: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3834: FND_LOG.string(log_level => FND_LOG.level_statement,
3835: module => g_module_prefix || 'HAS_PRICE_TIERS',
3836: message => 'EXCEPTION ; x_error_code' || x_error_code || ' and x_error_message : ' || x_error_message);
3837: END IF;
3830: x_error_code := SQLCODE;
3831: x_error_message := SUBSTR(SQLERRM, 1, 100);
3832:
3833: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3834: FND_LOG.string(log_level => FND_LOG.level_statement,
3835: module => g_module_prefix || 'HAS_PRICE_TIERS',
3836: message => 'EXCEPTION ; x_error_code' || x_error_code || ' and x_error_message : ' || x_error_message);
3837: END IF;
3838:
3836: message => 'EXCEPTION ; x_error_code' || x_error_code || ' and x_error_message : ' || x_error_message);
3837: END IF;
3838:
3839:
3840: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3841: FND_LOG.string(log_level => FND_LOG.level_statement,
3842: module => g_module_prefix || l_module_name,
3843: message => 'Returning to the caller with x_has_price_tiers: '|| x_has_price_tiers );
3844: END IF;
3837: END IF;
3838:
3839:
3840: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3841: FND_LOG.string(log_level => FND_LOG.level_statement,
3842: module => g_module_prefix || l_module_name,
3843: message => 'Returning to the caller with x_has_price_tiers: '|| x_has_price_tiers );
3844: END IF;
3845:
3886:
3887: l_module_name := 'handle_change_price_tiers';
3888: x_result := FND_API.g_ret_sts_success;
3889:
3890: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3891: FND_LOG.string(log_level => FND_LOG.level_statement,
3892: module => g_module_prefix || l_module_name,
3893: message => 'Entered the procedure ; p_auction_header_id : ' || p_auction_header_id || ' ; p_delete_price_tiers : '|| p_delete_price_tiers);
3894: END IF;
3887: l_module_name := 'handle_change_price_tiers';
3888: x_result := FND_API.g_ret_sts_success;
3889:
3890: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3891: FND_LOG.string(log_level => FND_LOG.level_statement,
3892: module => g_module_prefix || l_module_name,
3893: message => 'Entered the procedure ; p_auction_header_id : ' || p_auction_header_id || ' ; p_delete_price_tiers : '|| p_delete_price_tiers);
3894: END IF;
3895: --
3903: l_round_number
3904: FROM pon_auction_headers_all
3905: WHERE auction_header_id = p_auction_header_id;
3906:
3907: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3908: FND_LOG.string(log_level => FND_LOG.level_statement,
3909: module => g_module_prefix || l_module_name,
3910: message => 'l_prev_price_tiers_indicator : ' || l_prev_price_tiers_indicator);
3911: END IF;
3904: FROM pon_auction_headers_all
3905: WHERE auction_header_id = p_auction_header_id;
3906:
3907: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3908: FND_LOG.string(log_level => FND_LOG.level_statement,
3909: module => g_module_prefix || l_module_name,
3910: message => 'l_prev_price_tiers_indicator : ' || l_prev_price_tiers_indicator);
3911: END IF;
3912:
3917: INTO l_max_line_number
3918: FROM PON_AUCTION_ITEM_PRICES_ALL
3919: WHERE AUCTION_HEADER_ID=p_auction_header_id;
3920:
3921: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3922: FND_LOG.string(log_level => FND_LOG.level_statement,
3923: module => g_module_prefix || l_module_name,
3924: message => 'l_max_line_number : ' || l_max_line_number || '; l_amendment_number : ' || l_amendment_number
3925: || ' ; l_round_number : ' || l_round_number);
3918: FROM PON_AUCTION_ITEM_PRICES_ALL
3919: WHERE AUCTION_HEADER_ID=p_auction_header_id;
3920:
3921: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3922: FND_LOG.string(log_level => FND_LOG.level_statement,
3923: module => g_module_prefix || l_module_name,
3924: message => 'l_max_line_number : ' || l_max_line_number || '; l_amendment_number : ' || l_amendment_number
3925: || ' ; l_round_number : ' || l_round_number);
3926: END IF;
3943: (SELECT auction_header_id_prev_amend
3944: FROM pon_auction_headers_all
3945: WHERE auction_header_id = p_auction_header_id);
3946:
3947: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3948: FND_LOG.string(log_level => FND_LOG.level_statement,
3949: module => g_module_prefix || l_module_name,
3950: message => 'Neg is Amendment ; l_parent_auc_max_line_number : ' || l_parent_auc_max_line_number);
3951: END IF;
3944: FROM pon_auction_headers_all
3945: WHERE auction_header_id = p_auction_header_id);
3946:
3947: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3948: FND_LOG.string(log_level => FND_LOG.level_statement,
3949: module => g_module_prefix || l_module_name,
3950: message => 'Neg is Amendment ; l_parent_auc_max_line_number : ' || l_parent_auc_max_line_number);
3951: END IF;
3952:
3961: (SELECT auction_header_id_prev_round
3962: FROM pon_auction_headers_all
3963: WHERE auction_header_id = p_auction_header_id);
3964:
3965: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3966: FND_LOG.string(log_level => FND_LOG.level_statement,
3967: module => g_module_prefix || l_module_name,
3968: message => 'This is new round ' || '; l_parent_auc_max_line_number : '|| l_parent_auc_max_line_number);
3969: END IF;
3962: FROM pon_auction_headers_all
3963: WHERE auction_header_id = p_auction_header_id);
3964:
3965: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3966: FND_LOG.string(log_level => FND_LOG.level_statement,
3967: module => g_module_prefix || l_module_name,
3968: message => 'This is new round ' || '; l_parent_auc_max_line_number : '|| l_parent_auc_max_line_number);
3969: END IF;
3970:
3987: ELSE
3988: l_batch_end := l_batch_size;
3989: END IF;
3990:
3991: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3992: FND_LOG.string(log_level => FND_LOG.level_statement,
3993: module => g_module_prefix || l_module_name,
3994: message => 'l_batch_size : ' || l_batch_size || '; l_batch_end : '
3995: || l_batch_end);
3988: l_batch_end := l_batch_size;
3989: END IF;
3990:
3991: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3992: FND_LOG.string(log_level => FND_LOG.level_statement,
3993: module => g_module_prefix || l_module_name,
3994: message => 'l_batch_size : ' || l_batch_size || '; l_batch_end : '
3995: || l_batch_end);
3996: END IF;
4001: --default the price break settings if price tiers indicator has been changed from price breaks
4002: --
4003: IF (l_prev_price_tiers_indicator = 'PRICE_BREAKS') THEN --{
4004:
4005: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4006: FND_LOG.string(log_level => FND_LOG.level_statement,
4007: module => g_module_prefix || l_module_name,
4008: message => 'Price tier indicator has chnaged from ' || l_prev_price_tiers_indicator ||' ; updating the pon_auction_item_prices_all, setting price_break_type to NONE and price_break_neg_flag to Y');
4009: END IF;
4002: --
4003: IF (l_prev_price_tiers_indicator = 'PRICE_BREAKS') THEN --{
4004:
4005: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4006: FND_LOG.string(log_level => FND_LOG.level_statement,
4007: module => g_module_prefix || l_module_name,
4008: message => 'Price tier indicator has chnaged from ' || l_prev_price_tiers_indicator ||' ; updating the pon_auction_item_prices_all, setting price_break_type to NONE and price_break_neg_flag to Y');
4009: END IF;
4010:
4020: IF (p_delete_price_tiers = 'Y') THEN--{
4021: --
4022: -- Delete the entries from the shipments table for this auction
4023: --
4024: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4025: FND_LOG.string(log_level => FND_LOG.level_statement,
4026: module => g_module_prefix || l_module_name,
4027: message => 'Deleting the entries from the shipments table for negotiation ' || p_auction_header_id
4028: || ' and line_number between ' || l_batch_start ||' and ' || l_batch_end );
4021: --
4022: -- Delete the entries from the shipments table for this auction
4023: --
4024: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4025: FND_LOG.string(log_level => FND_LOG.level_statement,
4026: module => g_module_prefix || l_module_name,
4027: message => 'Deleting the entries from the shipments table for negotiation ' || p_auction_header_id
4028: || ' and line_number between ' || l_batch_start ||' and ' || l_batch_end );
4029: END IF;
4042: --
4043:
4044: IF (l_prev_price_tiers_indicator = 'PRICE_BREAKS') THEN
4045:
4046: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4047: FND_LOG.string(log_level => FND_LOG.level_statement,
4048: module => g_module_prefix || l_module_name,
4049: message => 'Deleting the child differentials for negotiation ' || p_auction_header_id
4050: || ' and line_number between ' || l_batch_start ||' and ' || l_batch_end );
4043:
4044: IF (l_prev_price_tiers_indicator = 'PRICE_BREAKS') THEN
4045:
4046: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4047: FND_LOG.string(log_level => FND_LOG.level_statement,
4048: module => g_module_prefix || l_module_name,
4049: message => 'Deleting the child differentials for negotiation ' || p_auction_header_id
4050: || ' and line_number between ' || l_batch_start ||' and ' || l_batch_end );
4051: END IF;
4067: --as modified and set the flag has_price_tiers as 'N'.
4068: --
4069: IF (l_is_new_round OR l_is_new_amendment) THEN
4070:
4071: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4072: FND_LOG.string(log_level => FND_LOG.level_statement,
4073: module => g_module_prefix || l_module_name,
4074: message => 'Negotiation is a new round or an amendment. Updating flags modified_flag and has_quantity_tiers');
4075: END IF;
4068: --
4069: IF (l_is_new_round OR l_is_new_amendment) THEN
4070:
4071: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4072: FND_LOG.string(log_level => FND_LOG.level_statement,
4073: module => g_module_prefix || l_module_name,
4074: message => 'Negotiation is a new round or an amendment. Updating flags modified_flag and has_quantity_tiers');
4075: END IF;
4076:
4092: line_number <= l_batch_end;
4093:
4094: ELSE
4095:
4096: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4097: FND_LOG.string(log_level => FND_LOG.level_statement,
4098: module => g_module_prefix || l_module_name,
4099: message => 'Negotiation is a not new round or an amendment. Updating has_quantity_tiers flag');
4100: END IF;
4093:
4094: ELSE
4095:
4096: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4097: FND_LOG.string(log_level => FND_LOG.level_statement,
4098: module => g_module_prefix || l_module_name,
4099: message => 'Negotiation is a not new round or an amendment. Updating has_quantity_tiers flag');
4100: END IF;
4101:
4119: ELSE
4120: l_batch_end := l_batch_end + l_batch_size;
4121: END IF;
4122:
4123: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4124: FND_LOG.string(log_level => FND_LOG.level_statement,
4125: module => g_module_prefix || l_module_name,
4126: message => 'New Batch with l_batch_start' || l_batch_start || ' and l_batch_end : ' || l_batch_end);
4127: END IF;
4120: l_batch_end := l_batch_end + l_batch_size;
4121: END IF;
4122:
4123: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4124: FND_LOG.string(log_level => FND_LOG.level_statement,
4125: module => g_module_prefix || l_module_name,
4126: message => 'New Batch with l_batch_start' || l_batch_start || ' and l_batch_end : ' || l_batch_end);
4127: END IF;
4128:
4137: x_result := FND_API.g_ret_sts_unexp_error;
4138: x_error_code := SQLCODE;
4139: x_error_message := SUBSTR(SQLERRM, 1, 100);
4140:
4141: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4142: FND_LOG.string(log_level => FND_LOG.level_statement,
4143: module => g_module_prefix || l_module_name,
4144: message => 'EXCEPTION ; x_error_code' || x_error_code || ' and x_error_message : ' || x_error_message);
4145: END IF;
4138: x_error_code := SQLCODE;
4139: x_error_message := SUBSTR(SQLERRM, 1, 100);
4140:
4141: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4142: FND_LOG.string(log_level => FND_LOG.level_statement,
4143: module => g_module_prefix || l_module_name,
4144: message => 'EXCEPTION ; x_error_code' || x_error_code || ' and x_error_message : ' || x_error_message);
4145: END IF;
4146:
4144: message => 'EXCEPTION ; x_error_code' || x_error_code || ' and x_error_message : ' || x_error_message);
4145: END IF;
4146:
4147:
4148: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4149: FND_LOG.string(log_level => FND_LOG.level_statement,
4150: module => g_module_prefix || l_module_name,
4151: message => 'Returning to the caller');
4152: END IF;
4145: END IF;
4146:
4147:
4148: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4149: FND_LOG.string(log_level => FND_LOG.level_statement,
4150: module => g_module_prefix || l_module_name,
4151: message => 'Returning to the caller');
4152: END IF;
4153: END HANDLE_CHANGE_PRICE_TIERS;
4167: v_doctype_name pon_auc_doctypes_tl.name%TYPE;
4168:
4169: BEGIN
4170:
4171: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4172: FND_LOG.string(log_level => FND_LOG.level_statement,
4173: module => g_module_prefix || 'GET_ABBR_DOC_TYPE_GRP_NAME',
4174: message => 'Entered the procedure GET_ABBR_DOC_TYPE_GRP_NAME; p_doctype_id : ' || p_doctype_id);
4175: END IF;
4168:
4169: BEGIN
4170:
4171: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4172: FND_LOG.string(log_level => FND_LOG.level_statement,
4173: module => g_module_prefix || 'GET_ABBR_DOC_TYPE_GRP_NAME',
4174: message => 'Entered the procedure GET_ABBR_DOC_TYPE_GRP_NAME; p_doctype_id : ' || p_doctype_id);
4175: END IF;
4176:
4188: EXCEPTION WHEN NO_DATA_FOUND THEN
4189:
4190: v_doctype_name := NULL;
4191:
4192: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
4193: FND_LOG.string(log_level => FND_LOG.level_exception,
4194: module => g_module_prefix || 'GET_ABBR_DOC_TYPE_GRP_NAME',
4195: message => 'Exception in PON_NEGOTIATION_HELPER_PVT.GET_ABBR_DOC_TYPE_GRP_NAME '
4196: || 'errnum = ' || SQLCODE || ', errmsg = ' || SUBSTR (SQLERRM, 1, 200));
4189:
4190: v_doctype_name := NULL;
4191:
4192: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
4193: FND_LOG.string(log_level => FND_LOG.level_exception,
4194: module => g_module_prefix || 'GET_ABBR_DOC_TYPE_GRP_NAME',
4195: message => 'Exception in PON_NEGOTIATION_HELPER_PVT.GET_ABBR_DOC_TYPE_GRP_NAME '
4196: || 'errnum = ' || SQLCODE || ', errmsg = ' || SUBSTR (SQLERRM, 1, 200));
4197: END IF;