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:
1319:
1320: l_module_name := 'delete_all_lines';
1321: x_result := FND_API.g_ret_sts_success;
1322:
1323: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1324: FND_LOG.string (log_level => FND_LOG.level_procedure,
1325: module => g_module_prefix || l_module_name,
1326: message => 'Entered procedure = ' || l_module_name ||
1327: ' p_auction_header_id = ' || p_auction_header_id);
1320: l_module_name := 'delete_all_lines';
1321: x_result := FND_API.g_ret_sts_success;
1322:
1323: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1324: FND_LOG.string (log_level => FND_LOG.level_procedure,
1325: module => g_module_prefix || l_module_name,
1326: message => 'Entered procedure = ' || l_module_name ||
1327: ' p_auction_header_id = ' || p_auction_header_id);
1328: END IF;
1381:
1382: --Line type and structure changes project
1383: IF(pon_clm_util_pkg.IS_NEG_DOCUMENT_FEDERAL(p_auction_header_id) = 1) THEN
1384:
1385: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1386: FND_LOG.string (log_level => FND_LOG.level_statement,
1387: module => g_module_prefix || l_module_name,
1388: message => 'Found that this auction is a federal auction. Call delete all lines APi for Federal docs');
1389: END IF;
1382: --Line type and structure changes project
1383: IF(pon_clm_util_pkg.IS_NEG_DOCUMENT_FEDERAL(p_auction_header_id) = 1) THEN
1384:
1385: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1386: FND_LOG.string (log_level => FND_LOG.level_statement,
1387: module => g_module_prefix || l_module_name,
1388: message => 'Found that this auction is a federal auction. Call delete all lines APi for Federal docs');
1389: END IF;
1390: -- Delete pon_backing requisitions when Linked pr references are enabled.
1397: -- Call the delete only if the origination code of the auction is
1398: -- REQUISITION
1399: ELSIF (l_auction_origination_code = 'REQUISITION') THEN
1400:
1401: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1402: FND_LOG.string (log_level => FND_LOG.level_statement,
1403: module => g_module_prefix || l_module_name,
1404: message => 'Found that this auction is from a requisition');
1405: END IF;
1398: -- REQUISITION
1399: ELSIF (l_auction_origination_code = 'REQUISITION') THEN
1400:
1401: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1402: FND_LOG.string (log_level => FND_LOG.level_statement,
1403: module => g_module_prefix || l_module_name,
1404: message => 'Found that this auction is from a requisition');
1405: END IF;
1406:
1406:
1407: --Delete Backing requisition references
1408: FOR backing_req_line IN lines_with_backing_requisition (p_auction_header_id) LOOP
1409:
1410: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1411: FND_LOG.string (log_level => FND_LOG.level_statement,
1412: module => g_module_prefix || l_module_name,
1413: message => 'Deleting backing req references for line = ' || backing_req_line.line_number);
1414: END IF;
1407: --Delete Backing requisition references
1408: FOR backing_req_line IN lines_with_backing_requisition (p_auction_header_id) LOOP
1409:
1410: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1411: FND_LOG.string (log_level => FND_LOG.level_statement,
1412: module => g_module_prefix || l_module_name,
1413: message => 'Deleting backing req references for line = ' || backing_req_line.line_number);
1414: END IF;
1415:
1418: x_negotiation_line_num => backing_req_line.line_number,
1419: x_org_id => backing_req_line.org_id,
1420: x_error_code => x_error_code);
1421:
1422: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1423: FND_LOG.string (log_level => FND_LOG.level_statement,
1424: module => g_module_prefix || l_module_name,
1425: message => 'Deletion of req reference done, x_error_code = ' || x_error_code);
1426: END IF;
1419: x_org_id => backing_req_line.org_id,
1420: x_error_code => x_error_code);
1421:
1422: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1423: FND_LOG.string (log_level => FND_LOG.level_statement,
1424: module => g_module_prefix || l_module_name,
1425: message => 'Deletion of req reference done, x_error_code = ' || x_error_code);
1426: END IF;
1427:
1444: x_pk5_value => NULL);
1445:
1446: END LOOP;
1447:
1448: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1449: FND_LOG.string (log_level => FND_LOG.level_statement,
1450: module => g_module_prefix || l_module_name,
1451: message => 'Attachments deletion complete');
1452: END IF;
1445:
1446: END LOOP;
1447:
1448: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1449: FND_LOG.string (log_level => FND_LOG.level_statement,
1450: module => g_module_prefix || l_module_name,
1451: message => 'Attachments deletion complete');
1452: END IF;
1453:
1468: WHILE (l_batch_start <= l_max_line_number) LOOP
1469:
1470: IF ('STANDARD' = l_contract_type AND l_progress_payment_type <> 'NONE') THEN
1471: --complex work-delete fnd_attachments for payments
1472: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1473: FND_LOG.string (log_level => FND_LOG.level_procedure,
1474: module => g_module_prefix || l_module_name,
1475: message => 'Before call Delete_Payment_Attachments = ' || l_module_name);
1476: END IF;
1469:
1470: IF ('STANDARD' = l_contract_type AND l_progress_payment_type <> 'NONE') THEN
1471: --complex work-delete fnd_attachments for payments
1472: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1473: FND_LOG.string (log_level => FND_LOG.level_procedure,
1474: module => g_module_prefix || l_module_name,
1475: message => 'Before call Delete_Payment_Attachments = ' || l_module_name);
1476: END IF;
1477:
1479: p_auction_header_id => p_auction_header_id,
1480: p_curr_from_line_number => l_batch_start,
1481: p_curr_to_line_number => l_batch_end);
1482:
1483: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1484: FND_LOG.string (log_level => FND_LOG.level_statement,
1485: module => g_module_prefix || l_module_name,
1486: message => 'Payments Attachments deletion complete');
1487: END IF;
1480: p_curr_from_line_number => l_batch_start,
1481: p_curr_to_line_number => l_batch_end);
1482:
1483: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1484: FND_LOG.string (log_level => FND_LOG.level_statement,
1485: module => g_module_prefix || l_module_name,
1486: message => 'Payments Attachments deletion complete');
1487: END IF;
1488:
1493: auction_header_id = p_auction_header_id AND
1494: line_number >= l_batch_start AND
1495: line_number <= l_batch_end;
1496:
1497: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1498: FND_LOG.string (log_level => FND_LOG.level_statement,
1499: module => g_module_prefix || l_module_name,
1500: message => 'Payments deletion complete');
1501: END IF;
1494: line_number >= l_batch_start AND
1495: line_number <= l_batch_end;
1496:
1497: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1498: FND_LOG.string (log_level => FND_LOG.level_statement,
1499: module => g_module_prefix || l_module_name,
1500: message => 'Payments deletion complete');
1501: END IF;
1502: END IF; --if complex work
1516: auction_header_id = p_auction_header_id AND
1517: line_number >= l_batch_start AND
1518: line_number <= l_batch_end;
1519:
1520: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1521: FND_LOG.string (log_level => FND_LOG.level_statement,
1522: module => g_module_prefix || l_module_name,
1523: message => 'Scores deletion complete');
1524: END IF;
1517: line_number >= l_batch_start AND
1518: line_number <= l_batch_end;
1519:
1520: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1521: FND_LOG.string (log_level => FND_LOG.level_statement,
1522: module => g_module_prefix || l_module_name,
1523: message => 'Scores deletion complete');
1524: END IF;
1525:
1543: auction_header_id = p_auction_header_id AND
1544: line_number >= l_batch_start AND
1545: line_number <= l_batch_end;
1546:
1547: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1548: FND_LOG.string (log_level => FND_LOG.level_statement,
1549: module => g_module_prefix || l_module_name,
1550: message => 'Attributes deletion complete');
1551: END IF;
1544: line_number >= l_batch_start AND
1545: line_number <= l_batch_end;
1546:
1547: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1548: FND_LOG.string (log_level => FND_LOG.level_statement,
1549: module => g_module_prefix || l_module_name,
1550: message => 'Attributes deletion complete');
1551: END IF;
1552: END IF;
1562: auction_header_id = p_auction_header_id AND
1563: line_number >= l_batch_start AND
1564: line_number <= l_batch_end;
1565:
1566: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1567: FND_LOG.string (log_level => FND_LOG.level_statement,
1568: module => g_module_prefix || l_module_name,
1569: message => 'PF deletion complete');
1570: END IF;
1563: line_number >= l_batch_start AND
1564: line_number <= l_batch_end;
1565:
1566: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1567: FND_LOG.string (log_level => FND_LOG.level_statement,
1568: module => g_module_prefix || l_module_name,
1569: message => 'PF deletion complete');
1570: END IF;
1571:
1576: auction_header_id = p_auction_header_id AND
1577: line_number >= l_batch_start AND
1578: line_number <= l_batch_end;
1579:
1580: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1581: FND_LOG.string (log_level => FND_LOG.level_statement,
1582: module => g_module_prefix || l_module_name,
1583: message => 'PF Supplier values deletion complete');
1584: END IF;
1577: line_number >= l_batch_start AND
1578: line_number <= l_batch_end;
1579:
1580: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1581: FND_LOG.string (log_level => FND_LOG.level_statement,
1582: module => g_module_prefix || l_module_name,
1583: message => 'PF Supplier values deletion complete');
1584: END IF;
1585:
1584: END IF;
1585:
1586: END IF; --}
1587:
1588: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1589: FND_LOG.string (log_level => FND_LOG.level_statement,
1590: module => g_module_prefix || l_module_name,
1591: message => 'price_tiers_indicator for auction ' || p_auction_header_id || ' is ' || l_price_tiers_indicator);
1592: END IF;
1585:
1586: END IF; --}
1587:
1588: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1589: FND_LOG.string (log_level => FND_LOG.level_statement,
1590: module => g_module_prefix || l_module_name,
1591: message => 'price_tiers_indicator for auction ' || p_auction_header_id || ' is ' || l_price_tiers_indicator);
1592: END IF;
1593:
1594: -- Call the delete shipments only if price tiers indicator is not 'NONE'
1595:
1596: IF ( NVl(l_price_tiers_indicator, 'NONE') <> 'NONE') THEN
1597:
1598: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1599: FND_LOG.string (log_level => FND_LOG.level_statement,
1600: module => g_module_prefix || l_module_name,
1601: message => 'Price tiers indicator is not none , so need to delete Price tiers.');
1602: END IF;
1595:
1596: IF ( NVl(l_price_tiers_indicator, 'NONE') <> 'NONE') THEN
1597:
1598: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1599: FND_LOG.string (log_level => FND_LOG.level_statement,
1600: module => g_module_prefix || l_module_name,
1601: message => 'Price tiers indicator is not none , so need to delete Price tiers.');
1602: END IF;
1603:
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 => 'shipments 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 => 'shipments deletion complete');
1616: END IF;
1617:
1628: auction_header_id = p_auction_header_id AND
1629: line_number >= l_batch_start AND
1630: line_number <= l_batch_end;
1631:
1632: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1633: FND_LOG.string (log_level => FND_LOG.level_statement,
1634: module => g_module_prefix || l_module_name,
1635: message => 'PD deletion complete');
1636: END IF;
1629: line_number >= l_batch_start AND
1630: line_number <= l_batch_end;
1631:
1632: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1633: FND_LOG.string (log_level => FND_LOG.level_statement,
1634: module => g_module_prefix || l_module_name,
1635: message => 'PD deletion complete');
1636: END IF;
1637: END IF;
1647: auction_header_id = p_auction_header_id AND
1648: line_number >= l_batch_start AND
1649: line_number <= l_batch_end;
1650:
1651: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1652: FND_LOG.string (log_level => FND_LOG.level_statement,
1653: module => g_module_prefix || l_module_name,
1654: message => 'party exclusions deletion complete');
1655: END IF;
1648: line_number >= l_batch_start AND
1649: line_number <= l_batch_end;
1650:
1651: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1652: FND_LOG.string (log_level => FND_LOG.level_statement,
1653: module => g_module_prefix || l_module_name,
1654: message => 'party exclusions deletion complete');
1655: END IF;
1656:
1664: auction_header_id = p_auction_header_id AND
1665: line_number >= l_batch_start AND
1666: line_number <= l_batch_end;
1667:
1668: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1669: FND_LOG.string (log_level => FND_LOG.level_statement,
1670: module => g_module_prefix || l_module_name,
1671: message => 'UDA deletion complete');
1672: END IF;
1665: line_number >= l_batch_start AND
1666: line_number <= l_batch_end;
1667:
1668: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1669: FND_LOG.string (log_level => FND_LOG.level_statement,
1670: module => g_module_prefix || l_module_name,
1671: message => 'UDA deletion complete');
1672: END IF;
1673: END IF;
1688: auction_header_id = p_auction_header_id AND
1689: line_number >= l_batch_start AND
1690: line_number <= l_batch_end;
1691:
1692: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1693: FND_LOG.string (log_level => FND_LOG.level_statement,
1694: module => g_module_prefix || l_module_name,
1695: message => 'Lines deletion complete');
1696: END IF;
1689: line_number >= l_batch_start AND
1690: line_number <= l_batch_end;
1691:
1692: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1693: FND_LOG.string (log_level => FND_LOG.level_statement,
1694: module => g_module_prefix || l_module_name,
1695: message => 'Lines deletion complete');
1696: END IF;
1697:
1718: pon_large_neg_pf_values
1719: WHERE
1720: auction_header_id = p_auction_header_id;
1721:
1722: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1723: FND_LOG.string (log_level => FND_LOG.level_statement,
1724: module => g_module_prefix || l_module_name,
1725: message => 'Large neg pf values deletion complete');
1726: END IF;
1719: WHERE
1720: auction_header_id = p_auction_header_id;
1721:
1722: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1723: FND_LOG.string (log_level => FND_LOG.level_statement,
1724: module => g_module_prefix || l_module_name,
1725: message => 'Large neg pf values deletion complete');
1726: END IF;
1727:
1734: pon_auction_exhibit_details
1735: WHERE auction_header_id = p_auction_header_id
1736: AND IS_CDRL='N';
1737:
1738: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1739: FND_LOG.string (log_level => FND_LOG.level_statement,
1740: module => g_module_prefix || l_module_name,
1741: message => 'Exhibit Details deletion complete');
1742: END IF;
1735: WHERE auction_header_id = p_auction_header_id
1736: AND IS_CDRL='N';
1737:
1738: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1739: FND_LOG.string (log_level => FND_LOG.level_statement,
1740: module => g_module_prefix || l_module_name,
1741: message => 'Exhibit Details deletion complete');
1742: END IF;
1743:
1761: (SELECT trading_partner_id, vendor_site_id
1762: FROM pon_party_line_exclusions
1763: WHERE auction_header_id = p_auction_header_id);
1764:
1765: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1766: FND_LOG.string (log_level => FND_LOG.level_statement,
1767: module => g_module_prefix || l_module_name,
1768: message => 'Updating bidding parties done');
1769: END IF;
1762: FROM pon_party_line_exclusions
1763: WHERE auction_header_id = p_auction_header_id);
1764:
1765: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1766: FND_LOG.string (log_level => FND_LOG.level_statement,
1767: module => g_module_prefix || l_module_name,
1768: message => 'Updating bidding parties done');
1769: END IF;
1770:
1769: END IF;
1770:
1771: END IF;
1772:
1773: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1774: FND_LOG.string (log_level => FND_LOG.level_procedure,
1775: module => g_module_prefix || l_module_name,
1776: message => 'Leaving procedure = ' || l_module_name);
1777: END IF;
1770:
1771: END IF;
1772:
1773: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1774: FND_LOG.string (log_level => FND_LOG.level_procedure,
1775: module => g_module_prefix || l_module_name,
1776: message => 'Leaving procedure = ' || l_module_name);
1777: END IF;
1778:
1781: x_result := FND_API.g_ret_sts_unexp_error;
1782: x_error_code := SQLCODE;
1783: x_error_message := SUBSTR(SQLERRM, 1, 100);
1784:
1785: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
1786: FND_LOG.string (log_level => FND_LOG.level_exception,
1787: module => g_module_prefix || l_module_name,
1788: message => 'Unexpected exception occured error_code = ' ||
1789: x_error_code || ', error_message = ' || x_error_message);
1782: x_error_code := SQLCODE;
1783: x_error_message := SUBSTR(SQLERRM, 1, 100);
1784:
1785: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
1786: FND_LOG.string (log_level => FND_LOG.level_exception,
1787: module => g_module_prefix || l_module_name,
1788: message => 'Unexpected exception occured error_code = ' ||
1789: x_error_code || ', error_message = ' || x_error_message);
1790: END IF;
1896:
1897: l_module_name := 'delete_single_line';
1898: x_result := FND_API.g_ret_sts_success;
1899:
1900: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1901: FND_LOG.string (log_level => FND_LOG.level_procedure,
1902: module => g_module_prefix || l_module_name,
1903: message => 'Entered procedure = ' || l_module_name ||
1904: ', p_auction_header_id = ' || p_auction_header_id ||
1897: l_module_name := 'delete_single_line';
1898: x_result := FND_API.g_ret_sts_success;
1899:
1900: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1901: FND_LOG.string (log_level => FND_LOG.level_procedure,
1902: module => g_module_prefix || l_module_name,
1903: message => 'Entered procedure = ' || l_module_name ||
1904: ', p_auction_header_id = ' || p_auction_header_id ||
1905: ', p_line_number = ' || p_line_number ||
1970: pon_auction_headers_all
1971: WHERE
1972: auction_header_id = p_auction_header_id;
1973:
1974: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1975: FND_LOG.string (log_level => FND_LOG.level_statement,
1976: module => g_module_prefix || l_module_name,
1977: message => 'The selected row is of type LINE/LOT_LINE/GROUP_LINE');
1978: END IF;
1971: WHERE
1972: auction_header_id = p_auction_header_id;
1973:
1974: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1975: FND_LOG.string (log_level => FND_LOG.level_statement,
1976: module => g_module_prefix || l_module_name,
1977: message => 'The selected row is of type LINE/LOT_LINE/GROUP_LINE');
1978: END IF;
1979:
1978: END IF;
1979:
1980: BEGIN
1981:
1982: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1983: FND_LOG.string (log_level => FND_LOG.level_statement,
1984: module => g_module_prefix || l_module_name,
1985: message => 'Checking if the line still exists');
1986: END IF;
1979:
1980: BEGIN
1981:
1982: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1983: FND_LOG.string (log_level => FND_LOG.level_statement,
1984: module => g_module_prefix || l_module_name,
1985: message => 'Checking if the line still exists');
1986: END IF;
1987:
2000: WHERE
2001: auction_header_id = p_auction_header_id and
2002: line_number = p_line_number;
2003:
2004: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2005: FND_LOG.string (log_level => FND_LOG.level_statement,
2006: module => g_module_prefix || l_module_name,
2007: message => 'Line exists');
2008: END IF;
2001: auction_header_id = p_auction_header_id and
2002: line_number = p_line_number;
2003:
2004: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2005: FND_LOG.string (log_level => FND_LOG.level_statement,
2006: module => g_module_prefix || l_module_name,
2007: message => 'Line exists');
2008: END IF;
2009: EXCEPTION
2008: END IF;
2009: EXCEPTION
2010: WHEN NO_DATA_FOUND THEN
2011: x_number_of_lines_deleted := 0;
2012: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2013: FND_LOG.string (log_level => FND_LOG.level_statement,
2014: module => g_module_prefix || l_module_name,
2015: message => 'Line no longer exists');
2016: END IF;
2009: EXCEPTION
2010: WHEN NO_DATA_FOUND THEN
2011: x_number_of_lines_deleted := 0;
2012: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2013: FND_LOG.string (log_level => FND_LOG.level_statement,
2014: module => g_module_prefix || l_module_name,
2015: message => 'Line no longer exists');
2016: END IF;
2017: RETURN;
2022: WHERE
2023: auction_header_id = p_auction_header_id AND
2024: line_number = p_line_number;
2025:
2026: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2027: FND_LOG.string (log_level => FND_LOG.level_statement,
2028: module => g_module_prefix || l_module_name,
2029: message => 'Deleted the entry in pon_attribute_scores');
2030: END IF;
2023: auction_header_id = p_auction_header_id AND
2024: line_number = p_line_number;
2025:
2026: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2027: FND_LOG.string (log_level => FND_LOG.level_statement,
2028: module => g_module_prefix || l_module_name,
2029: message => 'Deleted the entry in pon_attribute_scores');
2030: END IF;
2031:
2034: WHERE
2035: auction_header_id = p_auction_header_id and
2036: line_number = p_line_number;
2037:
2038: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2039: FND_LOG.string (log_level => FND_LOG.level_statement,
2040: module => g_module_prefix || l_module_name,
2041: message => 'Entry in pon_auction_attributes deleted');
2042: END IF;
2035: auction_header_id = p_auction_header_id and
2036: line_number = p_line_number;
2037:
2038: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2039: FND_LOG.string (log_level => FND_LOG.level_statement,
2040: module => g_module_prefix || l_module_name,
2041: message => 'Entry in pon_auction_attributes deleted');
2042: END IF;
2043:
2046: WHERE
2047: auction_header_id = p_auction_header_id AND
2048: line_number = p_line_number;
2049:
2050: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2051: FND_LOG.string (log_level => FND_LOG.level_statement,
2052: module => g_module_prefix || l_module_name,
2053: message => 'Deleted the entry in pon_pf_supplier_values');
2054: END IF;
2047: auction_header_id = p_auction_header_id AND
2048: line_number = p_line_number;
2049:
2050: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2051: FND_LOG.string (log_level => FND_LOG.level_statement,
2052: module => g_module_prefix || l_module_name,
2053: message => 'Deleted the entry in pon_pf_supplier_values');
2054: END IF;
2055:
2058: WHERE
2059: auction_header_id = p_auction_header_id AND
2060: line_number = p_line_number;
2061:
2062: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2063: FND_LOG.string (log_level => FND_LOG.level_statement,
2064: module => g_module_prefix || l_module_name,
2065: message => 'Deleted the entry in pon_price_elements');
2066: END IF;
2059: auction_header_id = p_auction_header_id AND
2060: line_number = p_line_number;
2061:
2062: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2063: FND_LOG.string (log_level => FND_LOG.level_statement,
2064: module => g_module_prefix || l_module_name,
2065: message => 'Deleted the entry in pon_price_elements');
2066: END IF;
2067:
2070: WHERE
2071: auction_header_id = p_auction_header_id AND
2072: line_number = p_line_number;
2073:
2074: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2075: FND_LOG.string (log_level => FND_LOG.level_statement,
2076: module => g_module_prefix || l_module_name,
2077: message => 'Deleted the entry in pon_price_differentials');
2078: END IF;
2071: auction_header_id = p_auction_header_id AND
2072: line_number = p_line_number;
2073:
2074: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2075: FND_LOG.string (log_level => FND_LOG.level_statement,
2076: module => g_module_prefix || l_module_name,
2077: message => 'Deleted the entry in pon_price_differentials');
2078: END IF;
2079:
2082: WHERE
2083: auction_header_id = p_auction_header_id AND
2084: line_number = p_line_number;
2085:
2086: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2087: FND_LOG.string (log_level => FND_LOG.level_statement,
2088: module => g_module_prefix || l_module_name,
2089: message => 'Deleted the entry in pon_auction_shipments_all');
2090: END IF;
2083: auction_header_id = p_auction_header_id AND
2084: line_number = p_line_number;
2085:
2086: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2087: FND_LOG.string (log_level => FND_LOG.level_statement,
2088: module => g_module_prefix || l_module_name,
2089: message => 'Deleted the entry in pon_auction_shipments_all');
2090: END IF;
2091:
2091:
2092: IF ( 'STANDARD' = l_contract_type AND 'NONE' <> l_progress_payment_type) --{
2093: THEN
2094:
2095: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2096: FND_LOG.string (log_level => FND_LOG.level_statement,
2097: module => g_module_prefix || l_module_name,
2098: message => 'Delete attachments for pon_auc_payments_shipments');
2099: END IF;
2092: IF ( 'STANDARD' = l_contract_type AND 'NONE' <> l_progress_payment_type) --{
2093: THEN
2094:
2095: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2096: FND_LOG.string (log_level => FND_LOG.level_statement,
2097: module => g_module_prefix || l_module_name,
2098: message => 'Delete attachments for pon_auc_payments_shipments');
2099: END IF;
2100:
2105: p_curr_from_line_number => p_line_number,
2106: p_curr_to_line_number => p_line_number);
2107:
2108:
2109: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2110: FND_LOG.string (log_level => FND_LOG.level_statement,
2111: module => g_module_prefix || l_module_name,
2112: message => 'Deleted the attachments for pon_auc_payments_shipments');
2113: END IF;
2106: p_curr_to_line_number => p_line_number);
2107:
2108:
2109: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2110: FND_LOG.string (log_level => FND_LOG.level_statement,
2111: module => g_module_prefix || l_module_name,
2112: message => 'Deleted the attachments for pon_auc_payments_shipments');
2113: END IF;
2114:
2117: WHERE
2118: auction_header_id = p_auction_header_id AND
2119: line_number = p_line_number;
2120:
2121: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2122: FND_LOG.string (log_level => FND_LOG.level_statement,
2123: module => g_module_prefix || l_module_name,
2124: message => 'Deleted the entry in pon_auc_payments_shipments');
2125: END IF;
2118: auction_header_id = p_auction_header_id AND
2119: line_number = p_line_number;
2120:
2121: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2122: FND_LOG.string (log_level => FND_LOG.level_statement,
2123: module => g_module_prefix || l_module_name,
2124: message => 'Deleted the entry in pon_auc_payments_shipments');
2125: END IF;
2126: END IF;--if neg has payments }
2130: WHERE
2131: auction_header_id = p_auction_header_id AND
2132: line_number = p_line_number;
2133:
2134: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2135: FND_LOG.string (log_level => FND_LOG.level_statement,
2136: module => g_module_prefix || l_module_name,
2137: message => 'Deleted the entry in PON_PARTY_LINE_EXCLUSIONS');
2138: END IF;
2131: auction_header_id = p_auction_header_id AND
2132: line_number = p_line_number;
2133:
2134: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2135: FND_LOG.string (log_level => FND_LOG.level_statement,
2136: module => g_module_prefix || l_module_name,
2137: message => 'Deleted the entry in PON_PARTY_LINE_EXCLUSIONS');
2138: END IF;
2139:
2144: WHERE
2145: auction_header_id = p_auction_header_id AND
2146: line_number = p_line_number;
2147:
2148: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2149: FND_LOG.string (log_level => FND_LOG.level_statement,
2150: module => g_module_prefix || l_module_name,
2151: message => 'UDA deletion complete');
2152: END IF;
2145: auction_header_id = p_auction_header_id AND
2146: line_number = p_line_number;
2147:
2148: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2149: FND_LOG.string (log_level => FND_LOG.level_statement,
2150: module => g_module_prefix || l_module_name,
2151: message => 'UDA deletion complete');
2152: END IF;
2153: END IF;
2172: WHERE
2173: auction_header_id = p_auction_header_id AND
2174: line_number = p_line_number;
2175:
2176: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2177: FND_LOG.string (log_level => FND_LOG.level_statement,
2178: module => g_module_prefix || l_module_name,
2179: message => 'Deleted the entry in pon_auction_headers_all');
2180: END IF;
2173: auction_header_id = p_auction_header_id AND
2174: line_number = p_line_number;
2175:
2176: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2177: FND_LOG.string (log_level => FND_LOG.level_statement,
2178: module => g_module_prefix || l_module_name,
2179: message => 'Deleted the entry in pon_auction_headers_all');
2180: END IF;
2181:
2211: x_result => x_result,
2212: x_error_code => x_error_code,
2213: x_error_message => x_error_message);
2214:
2215: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2216: FND_LOG.string (log_level => FND_LOG.level_statement,
2217: module => g_module_prefix || l_module_name,
2218: message => 'Sync pf values procedure called. x_result = ' || x_result ||
2219: ', x_error_code = ' || x_error_code ||
2212: x_error_code => x_error_code,
2213: x_error_message => x_error_message);
2214:
2215: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2216: FND_LOG.string (log_level => FND_LOG.level_statement,
2217: module => g_module_prefix || l_module_name,
2218: message => 'Sync pf values procedure called. x_result = ' || x_result ||
2219: ', x_error_code = ' || x_error_code ||
2220: ', x_error_message = ' || x_error_message);
2230: x_entity_name => 'PON_AUCTION_ITEM_PRICES_ALL',
2231: x_pk1_value => p_auction_header_id,
2232: x_pk2_value => p_line_number);
2233:
2234: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2235: FND_LOG.string (log_level => FND_LOG.level_statement,
2236: module => g_module_prefix || l_module_name,
2237: message => 'Deleted the line attachments');
2238: END IF;
2231: x_pk1_value => p_auction_header_id,
2232: x_pk2_value => p_line_number);
2233:
2234: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2235: FND_LOG.string (log_level => FND_LOG.level_statement,
2236: module => g_module_prefix || l_module_name,
2237: message => 'Deleted the line attachments');
2238: END IF;
2239:
2239:
2240: --Line type and structure changes project
2241: IF(pon_clm_util_pkg.IS_NEG_DOCUMENT_FEDERAL(p_auction_header_id) = 1) THEN
2242:
2243: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2244: FND_LOG.string (log_level => FND_LOG.level_statement,
2245: module => g_module_prefix || l_module_name,
2246: message => 'Found that this auction is a federal auction. Call delete all lines APi for Federal docs');
2247: END IF;
2240: --Line type and structure changes project
2241: IF(pon_clm_util_pkg.IS_NEG_DOCUMENT_FEDERAL(p_auction_header_id) = 1) THEN
2242:
2243: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2244: FND_LOG.string (log_level => FND_LOG.level_statement,
2245: module => g_module_prefix || l_module_name,
2246: message => 'Found that this auction is a federal auction. Call delete all lines APi for Federal docs');
2247: END IF;
2248:
2266: RETURN;
2267: END IF;
2268: END IF;
2269:
2270: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2271: FND_LOG.string (log_level => FND_LOG.level_statement,
2272: module => g_module_prefix || l_module_name,
2273: message => 'Deleted the line backing requisitions if any');
2274: END IF;
2267: END IF;
2268: END IF;
2269:
2270: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2271: FND_LOG.string (log_level => FND_LOG.level_statement,
2272: module => g_module_prefix || l_module_name,
2273: message => 'Deleted the line backing requisitions if any');
2274: END IF;
2275:
2322:
2323: -- Call deletion of attributes only if line_attribute_enabled_flag is Y
2324: IF (NVL (l_line_attribute_enabled_flag, 'Y') = 'Y') THEN --{
2325:
2326: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2327: FND_LOG.string (log_level => FND_LOG.level_statement,
2328: module => g_module_prefix || l_module_name,
2329: message => 'line attributes are enabled. l_line_attribute_enabled_flag = ' || l_line_attribute_enabled_flag);
2330: END IF;
2323: -- Call deletion of attributes only if line_attribute_enabled_flag is Y
2324: IF (NVL (l_line_attribute_enabled_flag, 'Y') = 'Y') THEN --{
2325:
2326: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2327: FND_LOG.string (log_level => FND_LOG.level_statement,
2328: module => g_module_prefix || l_module_name,
2329: message => 'line attributes are enabled. l_line_attribute_enabled_flag = ' || l_line_attribute_enabled_flag);
2330: END IF;
2331:
2331:
2332: -- Call deletion of scores only if this is an MAS
2333: IF (l_bid_ranking = 'MULTI_ATTRIBUTE_SCORING') THEN --{
2334:
2335: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2336: FND_LOG.string (log_level => FND_LOG.level_statement,
2337: module => g_module_prefix || l_module_name,
2338: message => 'This is an MAS auction so need to delete scores');
2339: END IF;
2332: -- Call deletion of scores only if this is an MAS
2333: IF (l_bid_ranking = 'MULTI_ATTRIBUTE_SCORING') THEN --{
2334:
2335: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2336: FND_LOG.string (log_level => FND_LOG.level_statement,
2337: module => g_module_prefix || l_module_name,
2338: message => 'This is an MAS auction so need to delete scores');
2339: END IF;
2340:
2388: -- only if the pf_type_allowed is not NONE
2389:
2390: IF (l_pf_type_allowed <> 'NONE') THEN --{
2391:
2392: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2393: FND_LOG.string (log_level => FND_LOG.level_statement,
2394: module => g_module_prefix || l_module_name,
2395: message => 'There are price factors. l_pf_type_allowed = ' || l_pf_type_allowed);
2396: END IF;
2389:
2390: IF (l_pf_type_allowed <> 'NONE') THEN --{
2391:
2392: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2393: FND_LOG.string (log_level => FND_LOG.level_statement,
2394: module => g_module_prefix || l_module_name,
2395: message => 'There are price factors. l_pf_type_allowed = ' || l_pf_type_allowed);
2396: END IF;
2397:
2441:
2442: IF ( 'STANDARD' = l_contract_type AND 'NONE' <> l_progress_payment_type)
2443: THEN
2444:
2445: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2446: FND_LOG.string (log_level => FND_LOG.level_statement,
2447: module => g_module_prefix || l_module_name,
2448: message => 'Delete attachments for pon_auc_payments_shipments');
2449: END IF;
2442: IF ( 'STANDARD' = l_contract_type AND 'NONE' <> l_progress_payment_type)
2443: THEN
2444:
2445: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2446: FND_LOG.string (log_level => FND_LOG.level_statement,
2447: module => g_module_prefix || l_module_name,
2448: message => 'Delete attachments for pon_auc_payments_shipments');
2449: END IF;
2450:
2449: END IF;
2450:
2451: --delete payment attachments
2452: FOR delete_attachments_rec IN delete_payments_attachments LOOP
2453: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2454: FND_LOG.string (log_level => FND_LOG.level_procedure,
2455: module => g_module_prefix || l_module_name,
2456: message => 'Deleting fnd attachments for payments for line number ' ||delete_attachments_rec.line_number||'='|| l_module_name);
2457: END IF;
2450:
2451: --delete payment attachments
2452: FOR delete_attachments_rec IN delete_payments_attachments LOOP
2453: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2454: FND_LOG.string (log_level => FND_LOG.level_procedure,
2455: module => g_module_prefix || l_module_name,
2456: message => 'Deleting fnd attachments for payments for line number ' ||delete_attachments_rec.line_number||'='|| l_module_name);
2457: END IF;
2458: --delete the attachments for a payment
2462: x_pk2_value => delete_attachments_rec.line_number,
2463: x_delete_document_flag => 'Y');
2464: END LOOP;
2465:
2466: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2467: FND_LOG.string (log_level => FND_LOG.level_statement,
2468: module => g_module_prefix || l_module_name,
2469: message => 'Deleted the attachments for pon_auc_payments_shipments');
2470: END IF;
2463: x_delete_document_flag => 'Y');
2464: END LOOP;
2465:
2466: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2467: FND_LOG.string (log_level => FND_LOG.level_statement,
2468: module => g_module_prefix || l_module_name,
2469: message => 'Deleted the attachments for pon_auc_payments_shipments');
2470: END IF;
2471:
2486: paip.line_number = paps.line_number
2487: )
2488: );
2489:
2490: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2491: FND_LOG.string (log_level => FND_LOG.level_statement,
2492: module => g_module_prefix || l_module_name,
2493: message => 'Deleted the entry in pon_auc_payments_shipments');
2494: END IF;
2487: )
2488: );
2489:
2490: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2491: FND_LOG.string (log_level => FND_LOG.level_statement,
2492: module => g_module_prefix || l_module_name,
2493: message => 'Deleted the entry in pon_auc_payments_shipments');
2494: END IF;
2495: END IF;--if neg has payments
2493: message => 'Deleted the entry in pon_auc_payments_shipments');
2494: END IF;
2495: END IF;--if neg has payments
2496:
2497: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2498: FND_LOG.string (log_level => FND_LOG.level_statement,
2499: module => g_module_prefix || l_module_name,
2500: message => 'price_tiers_indicator for auction ' || p_auction_header_id || ' is ' || l_price_tiers_indicator);
2501: END IF;
2494: END IF;
2495: END IF;--if neg has payments
2496:
2497: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2498: FND_LOG.string (log_level => FND_LOG.level_statement,
2499: module => g_module_prefix || l_module_name,
2500: message => 'price_tiers_indicator for auction ' || p_auction_header_id || ' is ' || l_price_tiers_indicator);
2501: END IF;
2502:
2504: -- Call the delete shipments only if price tiers indicator is not 'NONE'
2505:
2506: IF ( NVl(l_price_tiers_indicator, 'NONE') <> 'NONE') THEN --{
2507:
2508: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2509: FND_LOG.string (log_level => FND_LOG.level_statement,
2510: module => g_module_prefix || l_module_name,
2511: message => 'Price tiers indicator is not none , so need to delete Price tiers.');
2512: END IF;
2505:
2506: IF ( NVl(l_price_tiers_indicator, 'NONE') <> 'NONE') THEN --{
2507:
2508: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2509: FND_LOG.string (log_level => FND_LOG.level_statement,
2510: module => g_module_prefix || l_module_name,
2511: message => 'Price tiers indicator is not none , so need to delete Price tiers.');
2512: END IF;
2513:
2531: paip.line_number = pasa.line_number
2532: )
2533: );
2534:
2535: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
2536: FND_LOG.string (log_level => FND_LOG.level_statement,
2537: module => g_module_prefix || l_module_name,
2538: message => 'shipments deletion complete');
2539: END IF; --}
2532: )
2533: );
2534:
2535: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN --{
2536: FND_LOG.string (log_level => FND_LOG.level_statement,
2537: module => g_module_prefix || l_module_name,
2538: message => 'shipments deletion complete');
2539: END IF; --}
2540:
2544: -- this is an RFI
2545: IF (l_doctype_group_name = PON_CONTERMS_UTL_PVT.SRC_REQUEST_FOR_INFORMATION OR
2546: nvl (l_global_agreement_flag, 'Y') = 'Y') THEN --{
2547:
2548: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2549: FND_LOG.string (log_level => FND_LOG.level_statement,
2550: module => g_module_prefix || l_module_name,
2551: message => 'This is an RFI or Global Agreement. Need to delete price diffs.');
2552: END IF;
2545: IF (l_doctype_group_name = PON_CONTERMS_UTL_PVT.SRC_REQUEST_FOR_INFORMATION OR
2546: nvl (l_global_agreement_flag, 'Y') = 'Y') THEN --{
2547:
2548: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2549: FND_LOG.string (log_level => FND_LOG.level_statement,
2550: module => g_module_prefix || l_module_name,
2551: message => 'This is an RFI or Global Agreement. Need to delete price diffs.');
2552: END IF;
2553:
2578: IF (nvl (l_large_neg_enabled_flag, 'N') = 'N') THEN --{
2579: -- Delete the exclusions that belong to this
2580: -- lot/group and also its children
2581:
2582: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2583: FND_LOG.string (log_level => FND_LOG.level_statement,
2584: module => g_module_prefix || l_module_name,
2585: message => 'This is not large so deleting the exclusion entries.');
2586: END IF;
2579: -- Delete the exclusions that belong to this
2580: -- lot/group and also its children
2581:
2582: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2583: FND_LOG.string (log_level => FND_LOG.level_statement,
2584: module => g_module_prefix || l_module_name,
2585: message => 'This is not large so deleting the exclusion entries.');
2586: END IF;
2587:
2604: )
2605: );
2606: END IF;
2607:
2608: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2609: FND_LOG.string (log_level => FND_LOG.level_statement,
2610: module => g_module_prefix || l_module_name,
2611: message => 'Deleting attachments.');
2612: END IF;
2605: );
2606: END IF;
2607:
2608: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2609: FND_LOG.string (log_level => FND_LOG.level_statement,
2610: module => g_module_prefix || l_module_name,
2611: message => 'Deleting attachments.');
2612: END IF;
2613:
2623: x_pk5_value => NULL);
2624:
2625: END LOOP;
2626:
2627: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2628: FND_LOG.string (log_level => FND_LOG.level_statement,
2629: module => g_module_prefix || l_module_name,
2630: message => 'Deleting backing requisition line references.');
2631: END IF;
2624:
2625: END LOOP;
2626:
2627: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2628: FND_LOG.string (log_level => FND_LOG.level_statement,
2629: module => g_module_prefix || l_module_name,
2630: message => 'Deleting backing requisition line references.');
2631: END IF;
2632:
2633: -- Call delete references to backing reqs only if the auction origination
2634: -- code is REQUISITION
2635: IF (l_auction_origination_code = 'REQUISITION') THEN
2636:
2637: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2638: FND_LOG.string (log_level => FND_LOG.level_statement,
2639: module => g_module_prefix || l_module_name,
2640: message => 'This auction comes from a requisition.');
2641: END IF;
2634: -- code is REQUISITION
2635: IF (l_auction_origination_code = 'REQUISITION') THEN
2636:
2637: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2638: FND_LOG.string (log_level => FND_LOG.level_statement,
2639: module => g_module_prefix || l_module_name,
2640: message => 'This auction comes from a requisition.');
2641: END IF;
2642:
2642:
2643: -- Delete references to the backing req
2644: FOR backing_req_line IN lines_with_backing_requisition LOOP
2645:
2646: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2647: FND_LOG.string (log_level => FND_LOG.level_statement,
2648: module => g_module_prefix || l_module_name,
2649: message => 'Deleting backing reqs for line_number = ' || backing_req_line.line_number);
2650: END IF;
2643: -- Delete references to the backing req
2644: FOR backing_req_line IN lines_with_backing_requisition LOOP
2645:
2646: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2647: FND_LOG.string (log_level => FND_LOG.level_statement,
2648: module => g_module_prefix || l_module_name,
2649: message => 'Deleting backing reqs for line_number = ' || backing_req_line.line_number);
2650: END IF;
2651:
2654: x_negotiation_line_num => backing_req_line.line_number,
2655: x_org_id => backing_req_line.org_id,
2656: x_error_code => x_error_code);
2657:
2658: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2659: FND_LOG.string (log_level => FND_LOG.level_statement,
2660: module => g_module_prefix || l_module_name,
2661: message => 'Done deleting reference. x_error_code = ' || x_error_code);
2662: END IF;
2655: x_org_id => backing_req_line.org_id,
2656: x_error_code => x_error_code);
2657:
2658: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2659: FND_LOG.string (log_level => FND_LOG.level_statement,
2660: module => g_module_prefix || l_module_name,
2661: message => 'Done deleting reference. x_error_code = ' || x_error_code);
2662: END IF;
2663:
2669: END LOOP;
2670:
2671: END IF;
2672:
2673: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2674: FND_LOG.string (log_level => FND_LOG.level_statement,
2675: module => g_module_prefix || l_module_name,
2676: message => 'Deleting the lines');
2677: END IF;
2670:
2671: END IF;
2672:
2673: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2674: FND_LOG.string (log_level => FND_LOG.level_statement,
2675: module => g_module_prefix || l_module_name,
2676: message => 'Deleting the lines');
2677: END IF;
2678:
2709: x_result => x_result,
2710: x_error_code => x_error_code,
2711: x_error_message => x_error_message);
2712:
2713: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2714: FND_LOG.string (log_level => FND_LOG.level_statement,
2715: module => g_module_prefix || l_module_name,
2716: message => 'Sync pf values procedure called. x_result = ' || x_result ||
2717: ', x_error_code = ' || x_error_code ||
2710: x_error_code => x_error_code,
2711: x_error_message => x_error_message);
2712:
2713: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2714: FND_LOG.string (log_level => FND_LOG.level_statement,
2715: module => g_module_prefix || l_module_name,
2716: message => 'Sync pf values procedure called. x_result = ' || x_result ||
2717: ', x_error_code = ' || x_error_code ||
2718: ', x_error_message = ' || x_error_message);
2739: (SELECT distinct trading_partner_id, vendor_site_id
2740: FROM pon_party_line_exclusions
2741: WHERE auction_header_id = p_auction_header_id);
2742:
2743: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2744: FND_LOG.string (log_level => FND_LOG.level_procedure,
2745: module => g_module_prefix || l_module_name,
2746: message => 'Leaving procedure = ' || l_module_name);
2747: END IF;
2740: FROM pon_party_line_exclusions
2741: WHERE auction_header_id = p_auction_header_id);
2742:
2743: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2744: FND_LOG.string (log_level => FND_LOG.level_procedure,
2745: module => g_module_prefix || l_module_name,
2746: message => 'Leaving procedure = ' || l_module_name);
2747: END IF;
2748:
2751: x_result := FND_API.g_ret_sts_unexp_error;
2752: x_error_code := SQLCODE;
2753: x_error_message := SUBSTR(SQLERRM, 1, 100);
2754:
2755: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
2756: FND_LOG.string (log_level => FND_LOG.level_exception,
2757: module => g_module_prefix || l_module_name,
2758: message => 'Unexpected exception occured error_code = ' ||
2759: x_error_code || ', error_message = ' || x_error_message);
2752: x_error_code := SQLCODE;
2753: x_error_message := SUBSTR(SQLERRM, 1, 100);
2754:
2755: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
2756: FND_LOG.string (log_level => FND_LOG.level_exception,
2757: module => g_module_prefix || l_module_name,
2758: message => 'Unexpected exception occured error_code = ' ||
2759: x_error_code || ', error_message = ' || x_error_message);
2760: END IF;
2815: l_module_name := 'renumber_lines';
2816: x_result := FND_API.g_ret_sts_success;
2817: x_last_line_number := -1;
2818:
2819: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2820:
2821: FND_LOG.string(log_level => FND_LOG.level_procedure,
2822: module => g_module_prefix || 'RENUMBER_LINES',
2823: message => 'Entering PON_NEGOTIATION_HELPER_PVT.RENUMBER_LINES'
2817: x_last_line_number := -1;
2818:
2819: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2820:
2821: FND_LOG.string(log_level => FND_LOG.level_procedure,
2822: module => g_module_prefix || 'RENUMBER_LINES',
2823: message => 'Entering PON_NEGOTIATION_HELPER_PVT.RENUMBER_LINES'
2824: || ', p_auction_header_id = ' || p_auction_header_id
2825: || ', p_min_disp_line_number_parent = ' || p_min_disp_line_number_parent
2827: || ', p_min_child_parent_line_num = ' || p_min_child_parent_line_num);
2828: END IF;
2829:
2830: --START: CORRECT_SUB_LINE_SEQUENCE_NUMBER {
2831: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2832:
2833: FND_LOG.string(log_level => FND_LOG.level_statement,
2834: module => g_module_prefix || 'RENUMBER_LINES',
2835: message => 'Selecting the maximum sub_line_sequence_number from the header');
2829:
2830: --START: CORRECT_SUB_LINE_SEQUENCE_NUMBER {
2831: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2832:
2833: FND_LOG.string(log_level => FND_LOG.level_statement,
2834: module => g_module_prefix || 'RENUMBER_LINES',
2835: message => 'Selecting the maximum sub_line_sequence_number from the header');
2836: END IF;
2837:
2845: PON_AUCTION_HEADERS_ALL
2846: WHERE
2847: AUCTION_HEADER_ID = p_auction_header_id;
2848:
2849: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2850:
2851: FND_LOG.string(log_level => FND_LOG.level_statement,
2852: module => g_module_prefix || 'RENUMBER_LINES',
2853: message => 'The maximum sub_line_sequence_number from the header = ' || l_max_document_line_num);
2847: AUCTION_HEADER_ID = p_auction_header_id;
2848:
2849: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2850:
2851: FND_LOG.string(log_level => FND_LOG.level_statement,
2852: module => g_module_prefix || 'RENUMBER_LINES',
2853: message => 'The maximum sub_line_sequence_number from the header = ' || l_max_document_line_num);
2854: END IF;
2855:
2853: message => 'The maximum sub_line_sequence_number from the header = ' || l_max_document_line_num);
2854: END IF;
2855:
2856: --START: CORRECT FOR LINES, LOTS, GROUPS
2857: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2858:
2859: FND_LOG.string(log_level => FND_LOG.level_statement,
2860: module => g_module_prefix || 'RENUMBER_LINES',
2861: message => 'Retrieving the line_numbers into a table of numbers');
2855:
2856: --START: CORRECT FOR LINES, LOTS, GROUPS
2857: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2858:
2859: FND_LOG.string(log_level => FND_LOG.level_statement,
2860: module => g_module_prefix || 'RENUMBER_LINES',
2861: message => 'Retrieving the line_numbers into a table of numbers');
2862: END IF;
2863:
2875: DISP_LINE_NUMBER > p_min_disp_line_number_parent
2876: ORDER BY
2877: DISP_LINE_NUMBER;
2878:
2879: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2880:
2881: FND_LOG.string(log_level => FND_LOG.level_statement,
2882: module => g_module_prefix || 'RENUMBER_LINES',
2883: message => 'Number of lines collected = ' || l_line_number.COUNT);
2877: DISP_LINE_NUMBER;
2878:
2879: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2880:
2881: FND_LOG.string(log_level => FND_LOG.level_statement,
2882: module => g_module_prefix || 'RENUMBER_LINES',
2883: message => 'Number of lines collected = ' || l_line_number.COUNT);
2884: END IF;
2885:
2892:
2893: --GET THE GREATEST SUB_LINE_SEQUENCE_NUMBER WHOSE
2894: --DISP_LINE_NUMBER IS LESS THAN p_min_disp_line_number_parent
2895:
2896: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2897:
2898: FND_LOG.string(log_level => FND_LOG.level_statement,
2899: module => g_module_prefix || 'RENUMBER_LINES',
2900: message => 'Getting the maximum sub_line_sequence_number from the items table');
2894: --DISP_LINE_NUMBER IS LESS THAN p_min_disp_line_number_parent
2895:
2896: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2897:
2898: FND_LOG.string(log_level => FND_LOG.level_statement,
2899: module => g_module_prefix || 'RENUMBER_LINES',
2900: message => 'Getting the maximum sub_line_sequence_number from the items table');
2901: END IF;
2902:
2913:
2914: --IN GENERAL THE l_max_sub_line_sequence_number WILL BE GREATER
2915: --SO CHECK FOR THE RARER CONDITION
2916:
2917: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2918:
2919: FND_LOG.string(log_level => FND_LOG.level_statement,
2920: module => g_module_prefix || 'RENUMBER_LINES',
2921: message => 'Checking where to start the sequencing');
2915: --SO CHECK FOR THE RARER CONDITION
2916:
2917: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2918:
2919: FND_LOG.string(log_level => FND_LOG.level_statement,
2920: module => g_module_prefix || 'RENUMBER_LINES',
2921: message => 'Checking where to start the sequencing');
2922: END IF;
2923:
2925:
2926: l_max_sub_line_sequence_number := l_max_document_line_num;
2927: END IF;
2928:
2929: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2930:
2931: FND_LOG.string(log_level => FND_LOG.level_statement,
2932: module => g_module_prefix || 'RENUMBER_LINES',
2933: message => 'Sequencing will start at l_max_document_line_num = ' || l_max_document_line_num);
2927: END IF;
2928:
2929: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2930:
2931: FND_LOG.string(log_level => FND_LOG.level_statement,
2932: module => g_module_prefix || 'RENUMBER_LINES',
2933: message => 'Sequencing will start at l_max_document_line_num = ' || l_max_document_line_num);
2934: END IF;
2935:
2938: LOOP
2939:
2940: l_max_sub_line_sequence_number := l_max_sub_line_sequence_number + 1;
2941: l_sub_line_seq_number (x) := l_max_sub_line_sequence_number;
2942: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2943:
2944: FND_LOG.string(log_level => FND_LOG.level_statement,
2945: module => g_module_prefix || 'RENUMBER_LINES',
2946: message => 'Calculating the sub_line_sequence_number for line_number (' || l_line_number(x) || ' as ' || l_sub_line_seq_number (x));
2940: l_max_sub_line_sequence_number := l_max_sub_line_sequence_number + 1;
2941: l_sub_line_seq_number (x) := l_max_sub_line_sequence_number;
2942: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2943:
2944: FND_LOG.string(log_level => FND_LOG.level_statement,
2945: module => g_module_prefix || 'RENUMBER_LINES',
2946: message => 'Calculating the sub_line_sequence_number for line_number (' || l_line_number(x) || ' as ' || l_sub_line_seq_number (x));
2947: END IF;
2948: END LOOP;
2962: LINE_NUMBER = l_line_number (x);
2963:
2964: END IF; --}
2965:
2966: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2967:
2968: FND_LOG.string(log_level => FND_LOG.level_statement,
2969: module => g_module_prefix || 'RENUMBER_LINES',
2970: message => 'Starting correction of sub_line_sequence_number for lot_lines and group_lines');
2964: END IF; --}
2965:
2966: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2967:
2968: FND_LOG.string(log_level => FND_LOG.level_statement,
2969: module => g_module_prefix || 'RENUMBER_LINES',
2970: message => 'Starting correction of sub_line_sequence_number for lot_lines and group_lines');
2971: END IF;
2972:
2995: CHILDREN.DISP_LINE_NUMBER > p_min_disp_line_number_parent)
2996: ORDER BY
2997: CHILDREN.DISP_LINE_NUMBER;
2998:
2999: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3000:
3001: FND_LOG.string(log_level => FND_LOG.level_statement,
3002: module => g_module_prefix || 'RENUMBER_LINES',
3003: message => 'Number of lines to be corrected = ' || l_line_number.COUNT);
2997: CHILDREN.DISP_LINE_NUMBER;
2998:
2999: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3000:
3001: FND_LOG.string(log_level => FND_LOG.level_statement,
3002: module => g_module_prefix || 'RENUMBER_LINES',
3003: message => 'Number of lines to be corrected = ' || l_line_number.COUNT);
3004: END IF;
3005:
3004: END IF;
3005:
3006: IF (l_line_number.COUNT > 0) THEN --{
3007:
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 => 'p_min_disp_line_number_child = ' || p_min_disp_line_number_child ||
3012: ', p_min_disp_line_number_parent = ' || p_min_disp_line_number_parent);
3005:
3006: IF (l_line_number.COUNT > 0) THEN --{
3007:
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 => 'p_min_disp_line_number_child = ' || p_min_disp_line_number_child ||
3012: ', p_min_disp_line_number_parent = ' || p_min_disp_line_number_parent);
3013: END IF;
3014:
3015: IF (p_min_disp_line_number_child <> 0 AND
3016: p_min_disp_line_number_child < nvl (p_min_disp_line_number_parent, p_min_disp_line_number_child + 1)) THEN -- {
3017:
3018: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3019: FND_LOG.string(log_level => FND_LOG.level_statement,
3020: module => g_module_prefix || 'RENUMBER_LINES',
3021: message => 'The min disp line number child is not zero');
3022: END IF;
3015: IF (p_min_disp_line_number_child <> 0 AND
3016: p_min_disp_line_number_child < nvl (p_min_disp_line_number_parent, p_min_disp_line_number_child + 1)) THEN -- {
3017:
3018: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3019: FND_LOG.string(log_level => FND_LOG.level_statement,
3020: module => g_module_prefix || 'RENUMBER_LINES',
3021: message => 'The min disp line number child is not zero');
3022: END IF;
3023:
3031: AUCTION_HEADER_ID = p_auction_header_id AND
3032: PARENT_LINE_NUMBER = p_min_child_parent_line_num AND
3033: DISP_LINE_NUMBER < p_min_disp_line_number_child;
3034:
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 => 'l_current_max_sub_line_seq = ' || l_current_max_sub_line_seq ||
3039: 'l_parent_max_sub_line_seq_num(1) = ' || l_parent_max_sub_line_seq_num(1));
3032: PARENT_LINE_NUMBER = p_min_child_parent_line_num AND
3033: DISP_LINE_NUMBER < p_min_disp_line_number_child;
3034:
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 => 'l_current_max_sub_line_seq = ' || l_current_max_sub_line_seq ||
3039: 'l_parent_max_sub_line_seq_num(1) = ' || l_parent_max_sub_line_seq_num(1));
3040: END IF;
3046: END IF;
3047:
3048: ELSE
3049:
3050: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3051: FND_LOG.string(log_level => FND_LOG.level_statement,
3052: module => g_module_prefix || 'RENUMBER_LINES',
3053: message => 'is zero l_current_max_sub_line_seq = ' || l_current_max_sub_line_seq ||
3054: 'l_parent_max_sub_line_seq_num(1) = ' || l_parent_max_sub_line_seq_num(1));
3047:
3048: ELSE
3049:
3050: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3051: FND_LOG.string(log_level => FND_LOG.level_statement,
3052: module => g_module_prefix || 'RENUMBER_LINES',
3053: message => 'is zero l_current_max_sub_line_seq = ' || l_current_max_sub_line_seq ||
3054: 'l_parent_max_sub_line_seq_num(1) = ' || l_parent_max_sub_line_seq_num(1));
3055: END IF;
3061: --CORRECT THE SUB_LINE_SEQUENCE_NUMBER AND DOCUMENT_DISP_LINE_NUMBER
3062: FOR x IN 1..l_line_number.COUNT
3063: LOOP
3064:
3065: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3066: FND_LOG.string(log_level => FND_LOG.level_statement,
3067: module => g_module_prefix || 'RENUMBER_LINES',
3068: message => 'Determining the display for ' || l_line_number (x) ||
3069: ', l_current_parent_line_number = ' || l_current_parent_line_number ||
3062: FOR x IN 1..l_line_number.COUNT
3063: LOOP
3064:
3065: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3066: FND_LOG.string(log_level => FND_LOG.level_statement,
3067: module => g_module_prefix || 'RENUMBER_LINES',
3068: message => 'Determining the display for ' || l_line_number (x) ||
3069: ', l_current_parent_line_number = ' || l_current_parent_line_number ||
3070: ', l_parent_line_number (x) ' || l_parent_line_number(x));
3084: -- CORRECT THE SUB_LINE_SEQUENCE_NUMBER AND DOCUMENT_DISP_LINE_NUMBER
3085: l_sub_line_seq_number (x) := l_current_max_sub_line_seq;
3086: l_document_disp_line_number (x) := l_parent_doc_disp_line_number(x) || '.' || l_current_max_sub_line_seq;
3087:
3088: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3089: FND_LOG.string(log_level => FND_LOG.level_statement,
3090: module => g_module_prefix || 'RENUMBER_LINES',
3091: message => 'Determined ' ||
3092: ', l_sub_line_seq_number(x) = ' || l_sub_line_seq_number (x)||
3085: l_sub_line_seq_number (x) := l_current_max_sub_line_seq;
3086: l_document_disp_line_number (x) := l_parent_doc_disp_line_number(x) || '.' || l_current_max_sub_line_seq;
3087:
3088: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3089: FND_LOG.string(log_level => FND_LOG.level_statement,
3090: module => g_module_prefix || 'RENUMBER_LINES',
3091: message => 'Determined ' ||
3092: ', l_sub_line_seq_number(x) = ' || l_sub_line_seq_number (x)||
3093: ', l_document_disp_line_number(x) ' || l_document_disp_line_number(x));
3139: DISP_LINE_NUMBER > l_min_disp_line_number
3140: ORDER BY
3141: DISP_LINE_NUMBER;
3142:
3143: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3144: FND_LOG.string(log_level => FND_LOG.level_statement,
3145: module => g_module_prefix || 'RENUMBER_LINES',
3146: message => 'Obtained ' || l_line_number.COUNT || ' lines to correct');
3147: END IF;
3140: ORDER BY
3141: DISP_LINE_NUMBER;
3142:
3143: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3144: FND_LOG.string(log_level => FND_LOG.level_statement,
3145: module => g_module_prefix || 'RENUMBER_LINES',
3146: message => 'Obtained ' || l_line_number.COUNT || ' lines to correct');
3147: END IF;
3148:
3148:
3149: --IF THERE ARE NO LINES BELOW THIS LINE
3150: --THEN NO RENUMBERING IS REQUIRED
3151: IF (l_line_number.COUNT = 0) THEN
3152: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3153: FND_LOG.string(log_level => FND_LOG.level_statement,
3154: module => g_module_prefix || 'RENUMBER_LINES',
3155: message => 'Returning without doing anything as there are no lines to renumber');
3156: END IF;
3149: --IF THERE ARE NO LINES BELOW THIS LINE
3150: --THEN NO RENUMBERING IS REQUIRED
3151: IF (l_line_number.COUNT = 0) THEN
3152: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3153: FND_LOG.string(log_level => FND_LOG.level_statement,
3154: module => g_module_prefix || 'RENUMBER_LINES',
3155: message => 'Returning without doing anything as there are no lines to renumber');
3156: END IF;
3157:
3175: END IF;
3176:
3177: --DETERMINE THE NEXT INTEGER TO START WITH
3178: l_temp := floor (l_min_disp_line_number);
3179: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3180: FND_LOG.string(log_level => FND_LOG.level_statement,
3181: module => g_module_prefix || 'RENUMBER_LINES',
3182: message => 'The new disp line number should start after ' || l_temp);
3183: END IF;
3176:
3177: --DETERMINE THE NEXT INTEGER TO START WITH
3178: l_temp := floor (l_min_disp_line_number);
3179: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3180: FND_LOG.string(log_level => FND_LOG.level_statement,
3181: module => g_module_prefix || 'RENUMBER_LINES',
3182: message => 'The new disp line number should start after ' || l_temp);
3183: END IF;
3184:
3187: LOOP
3188:
3189: l_new_disp_line_number (y) := y + l_temp;
3190:
3191: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3192: FND_LOG.string(log_level => FND_LOG.level_statement,
3193: module => g_module_prefix || 'RENUMBER_LINES',
3194: message => 'Determined that ' || l_new_disp_line_number (y)
3195: || ' is the new disp_line_number of ' || l_line_number (y));
3188:
3189: l_new_disp_line_number (y) := y + l_temp;
3190:
3191: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3192: FND_LOG.string(log_level => FND_LOG.level_statement,
3193: module => g_module_prefix || 'RENUMBER_LINES',
3194: message => 'Determined that ' || l_new_disp_line_number (y)
3195: || ' is the new disp_line_number of ' || l_line_number (y));
3196: END IF;
3195: || ' is the new disp_line_number of ' || l_line_number (y));
3196: END IF;
3197: END LOOP; --}
3198:
3199: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3200: FND_LOG.string(log_level => FND_LOG.level_statement,
3201: module => g_module_prefix || 'RENUMBER_LINES',
3202: message => 'Calling bulk update to set the new disp_line_number');
3203: END IF;
3196: END IF;
3197: END LOOP; --}
3198:
3199: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3200: FND_LOG.string(log_level => FND_LOG.level_statement,
3201: module => g_module_prefix || 'RENUMBER_LINES',
3202: message => 'Calling bulk update to set the new disp_line_number');
3203: END IF;
3204:
3220: WHERE
3221: auction_header_id = p_auction_header_id and
3222: group_type IN ('LOT', 'LINE', 'GROUP');
3223:
3224: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3225: FND_LOG.string(log_level => FND_LOG.level_procedure,
3226: module => g_module_prefix || 'RENUMBER_LINES',
3227: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.RENUMBER_LINES');
3228: END IF;
3221: auction_header_id = p_auction_header_id and
3222: group_type IN ('LOT', 'LINE', 'GROUP');
3223:
3224: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3225: FND_LOG.string(log_level => FND_LOG.level_procedure,
3226: module => g_module_prefix || 'RENUMBER_LINES',
3227: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.RENUMBER_LINES');
3228: END IF;
3229:
3232: x_result := FND_API.g_ret_sts_unexp_error;
3233: x_error_code := SQLCODE;
3234: x_error_message := SUBSTR(SQLERRM, 1, 100);
3235:
3236: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
3237: FND_LOG.string (log_level => FND_LOG.level_exception,
3238: module => g_module_prefix || l_module_name,
3239: message => 'Unexpected exception occured error_code = ' ||
3240: x_error_code || ', error_message = ' || x_error_message);
3233: x_error_code := SQLCODE;
3234: x_error_message := SUBSTR(SQLERRM, 1, 100);
3235:
3236: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
3237: FND_LOG.string (log_level => FND_LOG.level_exception,
3238: module => g_module_prefix || l_module_name,
3239: message => 'Unexpected exception occured error_code = ' ||
3240: x_error_code || ', error_message = ' || x_error_message);
3241: END IF;
3268: x_prev_min_disp_line_num OUT NOCOPY NUMBER
3269: ) IS
3270: BEGIN
3271:
3272: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3273: FND_LOG.string(log_level => FND_LOG.level_statement,
3274: module => g_module_prefix || 'GET_SRCH_MIN_DISP_LINE_NUMBERS',
3275: message => 'Entering PON_NEGOTIATION_HELPER_PVT.GET_SRCH_MIN_DISP_LINE_NUMBERS'
3276: || ', p_curr_auction_header_id = ' || p_curr_auction_header_id
3269: ) IS
3270: BEGIN
3271:
3272: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3273: FND_LOG.string(log_level => FND_LOG.level_statement,
3274: module => g_module_prefix || 'GET_SRCH_MIN_DISP_LINE_NUMBERS',
3275: message => 'Entering PON_NEGOTIATION_HELPER_PVT.GET_SRCH_MIN_DISP_LINE_NUMBERS'
3276: || ', p_curr_auction_header_id = ' || p_curr_auction_header_id
3277: || ', p_prev_auction_header_id = ' || p_prev_auction_header_id
3294: WHERE AUCTION_HEADER_ID = p_prev_auction_header_id
3295: AND GROUP_TYPE IN ('LOT', 'GROUP', 'LINE')
3296: AND SUB_LINE_SEQUENCE_NUMBER > p_value;
3297:
3298: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3299: FND_LOG.string(log_level => FND_LOG.level_statement,
3300: module => g_module_prefix || 'GET_SRCH_MIN_DISP_LINE_NUMBERS',
3301: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.GET_SRCH_MIN_DISP_LINE_NUMBERS'
3302: || 'x_curr_min_disp_line_num = ' || x_curr_min_disp_line_num
3295: AND GROUP_TYPE IN ('LOT', 'GROUP', 'LINE')
3296: AND SUB_LINE_SEQUENCE_NUMBER > p_value;
3297:
3298: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3299: FND_LOG.string(log_level => FND_LOG.level_statement,
3300: module => g_module_prefix || 'GET_SRCH_MIN_DISP_LINE_NUMBERS',
3301: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.GET_SRCH_MIN_DISP_LINE_NUMBERS'
3302: || 'x_curr_min_disp_line_num = ' || x_curr_min_disp_line_num
3303: || 'x_prev_min_disp_line_num = ' || x_prev_min_disp_line_num
3337: l_prev_group_type PON_AUCTION_ITEM_PRICES_ALL.GROUP_TYPE%TYPE;
3338:
3339: BEGIN
3340:
3341: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3342: FND_LOG.string(log_level => FND_LOG.level_statement,
3343: module => g_module_prefix || 'GET_SRCH_MAX_DISP_LINE_NUMBERS',
3344: message => 'Entering PON_NEGOTIATION_HELPER_PVT.GET_SRCH_MAX_DISP_LINE_NUMBERS '
3345: || ', p_curr_auction_header_id = ' || p_curr_auction_header_id
3338:
3339: BEGIN
3340:
3341: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3342: FND_LOG.string(log_level => FND_LOG.level_statement,
3343: module => g_module_prefix || 'GET_SRCH_MAX_DISP_LINE_NUMBERS',
3344: message => 'Entering PON_NEGOTIATION_HELPER_PVT.GET_SRCH_MAX_DISP_LINE_NUMBERS '
3345: || ', p_curr_auction_header_id = ' || p_curr_auction_header_id
3346: || ', p_prev_auction_header_id = ' || p_prev_auction_header_id
3363: WHERE AUCTION_HEADER_ID = p_prev_auction_header_id
3364: AND GROUP_TYPE IN ('LOT', 'LINE', 'GROUP')
3365: AND SUB_LINE_SEQUENCE_NUMBER < p_value;
3366:
3367: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3368: FND_LOG.string(log_level => FND_LOG.level_statement,
3369: module => g_module_prefix || 'GET_SRCH_MAX_DISP_LINE_NUMBERS',
3370: message => 'After the first query x_curr_max_disp_line_num = ' ||
3371: x_curr_max_disp_line_num || ' and x_prev_max_disp_line_num = ' || x_prev_max_disp_line_num);
3364: AND GROUP_TYPE IN ('LOT', 'LINE', 'GROUP')
3365: AND SUB_LINE_SEQUENCE_NUMBER < p_value;
3366:
3367: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3368: FND_LOG.string(log_level => FND_LOG.level_statement,
3369: module => g_module_prefix || 'GET_SRCH_MAX_DISP_LINE_NUMBERS',
3370: message => 'After the first query x_curr_max_disp_line_num = ' ||
3371: x_curr_max_disp_line_num || ' and x_prev_max_disp_line_num = ' || x_prev_max_disp_line_num);
3372: END IF;
3372: END IF;
3373:
3374: IF (x_curr_max_disp_line_num IS NULL AND x_prev_max_disp_line_num IS NULL) THEN
3375:
3376: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3377: FND_LOG.string(log_level => FND_LOG.level_statement,
3378: module => g_module_prefix || 'GET_SRCH_MAX_DISP_LINE_NUMBERS',
3379: message => 'There are no lines in both the auctions so returning null');
3380: END IF;
3373:
3374: IF (x_curr_max_disp_line_num IS NULL AND x_prev_max_disp_line_num IS NULL) THEN
3375:
3376: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3377: FND_LOG.string(log_level => FND_LOG.level_statement,
3378: module => g_module_prefix || 'GET_SRCH_MAX_DISP_LINE_NUMBERS',
3379: message => 'There are no lines in both the auctions so returning null');
3380: END IF;
3381:
3393: FROM PON_AUCTION_ITEM_PRICES_ALL
3394: WHERE AUCTION_HEADER_ID = p_prev_auction_header_id
3395: AND DISP_LINE_NUMBER = x_prev_max_disp_line_num;
3396:
3397: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3398: FND_LOG.string(log_level => FND_LOG.level_statement,
3399: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
3400: message => 'l_curr_group_type = ' || l_curr_group_type
3401: || ', l_curr_line_number = ' || l_curr_line_number
3394: WHERE AUCTION_HEADER_ID = p_prev_auction_header_id
3395: AND DISP_LINE_NUMBER = x_prev_max_disp_line_num;
3396:
3397: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3398: FND_LOG.string(log_level => FND_LOG.level_statement,
3399: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
3400: message => 'l_curr_group_type = ' || l_curr_group_type
3401: || ', l_curr_line_number = ' || l_curr_line_number
3402: ||'l_prev_group_type = ' || l_prev_group_type
3422: WHERE AUCTION_HEADER_ID = p_prev_auction_header_id
3423: AND PARENT_LINE_NUMBER = l_prev_line_number;
3424: END IF;
3425:
3426: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3427: FND_LOG.string(log_level => FND_LOG.level_statement,
3428: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
3429: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.GET_AUCTION_REQUEST_ID '
3430: || ', x_curr_max_disp_line_num = ' || x_curr_max_disp_line_num
3423: AND PARENT_LINE_NUMBER = l_prev_line_number;
3424: END IF;
3425:
3426: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3427: FND_LOG.string(log_level => FND_LOG.level_statement,
3428: module => g_module_prefix || 'GET_SEARCH_MAX_DISP_LINE_NUM',
3429: message => 'Leaving PON_NEGOTIATION_HELPER_PVT.GET_AUCTION_REQUEST_ID '
3430: || ', x_curr_max_disp_line_num = ' || x_curr_max_disp_line_num
3431: || ', x_prev_max_disp_line_num = ' || x_prev_max_disp_line_num);
3460:
3461: l_module_name := 'DELETE_DISCUSSIONS';
3462: x_result := FND_API.g_ret_sts_success;
3463:
3464: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3465: FND_LOG.string (log_level => FND_LOG.level_procedure,
3466: module => g_module_prefix || l_module_name,
3467: message => 'Entered procedure = ' || l_module_name ||
3468: ' p_auction_header_id = ' || p_auction_header_id);
3461: l_module_name := 'DELETE_DISCUSSIONS';
3462: x_result := FND_API.g_ret_sts_success;
3463:
3464: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3465: FND_LOG.string (log_level => FND_LOG.level_procedure,
3466: module => g_module_prefix || l_module_name,
3467: message => 'Entered procedure = ' || l_module_name ||
3468: ' p_auction_header_id = ' || p_auction_header_id);
3469: END IF;
3485: ENTRY_ID IN ( SELECT ENTRY_ID
3486: FROM PON_THREAD_ENTRIES
3487: WHERE DISCUSSION_ID = l_discussion_id);
3488:
3489: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3490: FND_LOG.string (log_level => FND_LOG.level_statement,
3491: module => g_module_prefix || l_module_name,
3492: message => 'PON_TE_RECIPIENTS records deleted');
3493: END IF;
3486: FROM PON_THREAD_ENTRIES
3487: WHERE DISCUSSION_ID = l_discussion_id);
3488:
3489: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3490: FND_LOG.string (log_level => FND_LOG.level_statement,
3491: module => g_module_prefix || l_module_name,
3492: message => 'PON_TE_RECIPIENTS records deleted');
3493: END IF;
3494:
3499: ENTRY_ID IN ( SELECT ENTRY_ID
3500: FROM PON_THREAD_ENTRIES
3501: WHERE DISCUSSION_ID = l_discussion_id);
3502:
3503: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3504: FND_LOG.string (log_level => FND_LOG.level_statement,
3505: module => g_module_prefix || l_module_name,
3506: message => 'PON_TE_VIEW_AUDIT records deleted');
3507: END IF;
3500: FROM PON_THREAD_ENTRIES
3501: WHERE DISCUSSION_ID = l_discussion_id);
3502:
3503: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3504: FND_LOG.string (log_level => FND_LOG.level_statement,
3505: module => g_module_prefix || l_module_name,
3506: message => 'PON_TE_VIEW_AUDIT records deleted');
3507: END IF;
3508:
3510: PON_THREAD_ENTRIES
3511: WHERE
3512: DISCUSSION_ID = l_discussion_id;
3513:
3514: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3515: FND_LOG.string (log_level => FND_LOG.level_statement,
3516: module => g_module_prefix || l_module_name,
3517: message => 'PON_THREAD_ENTRIES records deleted');
3518: END IF;
3511: WHERE
3512: DISCUSSION_ID = l_discussion_id;
3513:
3514: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3515: FND_LOG.string (log_level => FND_LOG.level_statement,
3516: module => g_module_prefix || l_module_name,
3517: message => 'PON_THREAD_ENTRIES records deleted');
3518: END IF;
3519:
3521: PON_THREADS
3522: WHERE
3523: DISCUSSION_ID = l_discussion_id;
3524:
3525: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3526: FND_LOG.string (log_level => FND_LOG.level_statement,
3527: module => g_module_prefix || l_module_name,
3528: message => 'PON_THREADS records deleted');
3529: END IF;
3522: WHERE
3523: DISCUSSION_ID = l_discussion_id;
3524:
3525: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3526: FND_LOG.string (log_level => FND_LOG.level_statement,
3527: module => g_module_prefix || l_module_name,
3528: message => 'PON_THREADS records deleted');
3529: END IF;
3530:
3532: PON_DISCUSSIONS
3533: WHERE
3534: DISCUSSION_ID = l_discussion_id;
3535:
3536: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3537: FND_LOG.string (log_level => FND_LOG.level_statement,
3538: module => g_module_prefix || l_module_name,
3539: message => 'PON_DISCUSSIONS records deleted');
3540: END IF;
3533: WHERE
3534: DISCUSSION_ID = l_discussion_id;
3535:
3536: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3537: FND_LOG.string (log_level => FND_LOG.level_statement,
3538: module => g_module_prefix || l_module_name,
3539: message => 'PON_DISCUSSIONS records deleted');
3540: END IF;
3541:
3538: module => g_module_prefix || l_module_name,
3539: message => 'PON_DISCUSSIONS records deleted');
3540: END IF;
3541:
3542: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3543: FND_LOG.string (log_level => FND_LOG.level_procedure,
3544: module => g_module_prefix || l_module_name,
3545: message => 'Leaving procedure = ' || l_module_name);
3546: END IF;
3539: message => 'PON_DISCUSSIONS records deleted');
3540: END IF;
3541:
3542: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3543: FND_LOG.string (log_level => FND_LOG.level_procedure,
3544: module => g_module_prefix || l_module_name,
3545: message => 'Leaving procedure = ' || l_module_name);
3546: END IF;
3547:
3550: x_result := FND_API.g_ret_sts_unexp_error;
3551: x_error_code := SQLCODE;
3552: x_error_message := SUBSTR(SQLERRM, 1, 100);
3553:
3554: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
3555: FND_LOG.string (log_level => FND_LOG.level_exception,
3556: module => g_module_prefix || l_module_name,
3557: message => 'Unexpected exception occured error_code = ' ||
3558: x_error_code || ', error_message = ' || x_error_message);
3551: x_error_code := SQLCODE;
3552: x_error_message := SUBSTR(SQLERRM, 1, 100);
3553:
3554: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
3555: FND_LOG.string (log_level => FND_LOG.level_exception,
3556: module => g_module_prefix || l_module_name,
3557: message => 'Unexpected exception occured error_code = ' ||
3558: x_error_code || ', error_message = ' || x_error_message);
3559: END IF;
3593: l_curr_close_date DATE;
3594: l_stag_interval NUMBER;
3595:
3596: BEGIN
3597: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3598: FND_LOG.string(log_level => FND_LOG.level_statement,
3599: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3600: message => 'Entered PON_NEGOTIATION_HELPER_PVT.UPDATE_LINES_CLOSE_DATES'
3601: || ', p_auction_header_id = ' || p_auction_header_id
3594: l_stag_interval NUMBER;
3595:
3596: BEGIN
3597: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3598: FND_LOG.string(log_level => FND_LOG.level_statement,
3599: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3600: message => 'Entered PON_NEGOTIATION_HELPER_PVT.UPDATE_LINES_CLOSE_DATES'
3601: || ', p_auction_header_id = ' || p_auction_header_id
3602: || ', p_first_line_close_date = ' || p_first_line_close_date
3610: SELECT max(disp_line_number)
3611: INTO l_max_line_number
3612: FROM pon_auction_item_prices_all WHERE auction_header_id = p_auction_header_id;
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 => 'l_max_line_number : ' || l_max_line_number
3618: );
3611: INTO l_max_line_number
3612: FROM pon_auction_item_prices_all WHERE auction_header_id = p_auction_header_id;
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 => 'l_max_line_number : ' || l_max_line_number
3618: );
3619: END IF;
3621: IF (l_max_line_number) > 0 then --{
3622:
3623: IF (p_start_disp_line_number > l_max_line_number) THEN --{
3624:
3625: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3626: FND_LOG.string(log_level => FND_LOG.level_statement,
3627: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3628: message => 'p_start_disp_line_number > l_max_line_number; so returning'
3629: );
3622:
3623: IF (p_start_disp_line_number > l_max_line_number) THEN --{
3624:
3625: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3626: FND_LOG.string(log_level => FND_LOG.level_statement,
3627: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3628: message => 'p_start_disp_line_number > l_max_line_number; so returning'
3629: );
3630: END IF;
3649: --we offset the current close date back by the staggered interval
3650: --so that the close date of the first line/lot/group is set the the
3651: --first line close date in the loop
3652:
3653: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3654: FND_LOG.string(log_level => FND_LOG.level_statement,
3655: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3656: message => 'l_batch_size : ' || l_batch_size
3657: ||'; l_stag_interval : ' || l_stag_interval
3650: --so that the close date of the first line/lot/group is set the the
3651: --first line close date in the loop
3652:
3653: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3654: FND_LOG.string(log_level => FND_LOG.level_statement,
3655: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3656: message => 'l_batch_size : ' || l_batch_size
3657: ||'; l_stag_interval : ' || l_stag_interval
3658: ||'; l_curr_close_date : ' || to_char (l_curr_close_date, 'dd-mon-yyyy hh24:mi:ss')
3669: --So we need to translate the batch end based on batch start
3670: l_batch_end := l_batch_start + l_batch_size - 1;
3671: END IF;
3672:
3673: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3674: FND_LOG.string(log_level => FND_LOG.level_statement,
3675: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3676: message => 'Finished setting the batching loop limits; l_batch_start : '||l_batch_start
3677: ||'; l_batch_end : ' || l_batch_end
3670: l_batch_end := l_batch_start + l_batch_size - 1;
3671: END IF;
3672:
3673: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3674: FND_LOG.string(log_level => FND_LOG.level_statement,
3675: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3676: message => 'Finished setting the batching loop limits; l_batch_start : '||l_batch_start
3677: ||'; l_batch_end : ' || l_batch_end
3678: );
3680:
3681: WHILE (l_batch_start <= l_max_line_number)
3682: LOOP
3683:
3684: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3685: FND_LOG.string(log_level => FND_LOG.level_statement,
3686: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3687: message => 'Processing the batch from l_batch_start : ' || l_batch_start
3688: ||' to l_batch_end : ' || l_batch_end || ' ; bulk collecting the records now'
3681: WHILE (l_batch_start <= l_max_line_number)
3682: LOOP
3683:
3684: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3685: FND_LOG.string(log_level => FND_LOG.level_statement,
3686: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3687: message => 'Processing the batch from l_batch_start : ' || l_batch_start
3688: ||' to l_batch_end : ' || l_batch_end || ' ; bulk collecting the records now'
3689: );
3699: order by disp_line_number;
3700:
3701: IF l_line_number.COUNT <> 0 THEN
3702:
3703: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3704: FND_LOG.string(log_level => FND_LOG.level_statement,
3705: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3706: message => 'setting up the close dates array'
3707: );
3700:
3701: IF l_line_number.COUNT <> 0 THEN
3702:
3703: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3704: FND_LOG.string(log_level => FND_LOG.level_statement,
3705: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3706: message => 'setting up the close dates array'
3707: );
3708: END IF;
3716: END LOOP;
3717:
3718: x_last_line_close_date := l_close_date(l_line_number.COUNT);
3719:
3720: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3721: FND_LOG.string(log_level => FND_LOG.level_statement,
3722: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3723: 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')
3724: ||'; now bulk updating the PON_AUCTION_ITEM_PRICES_ALL'
3717:
3718: x_last_line_close_date := l_close_date(l_line_number.COUNT);
3719:
3720: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3721: FND_LOG.string(log_level => FND_LOG.level_statement,
3722: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3723: 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')
3724: ||'; now bulk updating the PON_AUCTION_ITEM_PRICES_ALL'
3725: );
3730: set close_bidding_date = l_close_date(x)
3731: WHERE auction_header_id = p_auction_header_id
3732: AND line_number = l_line_number(x);
3733:
3734: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3735: FND_LOG.string(log_level => FND_LOG.level_statement,
3736: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3737: message => 'Committing the batch now'
3738: );
3731: WHERE auction_header_id = p_auction_header_id
3732: AND line_number = l_line_number(x);
3733:
3734: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3735: FND_LOG.string(log_level => FND_LOG.level_statement,
3736: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3737: message => 'Committing the batch now'
3738: );
3739: END IF;
3739: END IF;
3740:
3741: COMMIT;
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 || 'UPDATE_STAG_LINES_CLOSE_DATES',
3746: message => 'Updating the batch limits for next iteration'
3747: );
3740:
3741: COMMIT;
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 || 'UPDATE_STAG_LINES_CLOSE_DATES',
3746: message => 'Updating the batch limits for next iteration'
3747: );
3748: END IF;
3754: ELSE
3755: l_batch_end := l_batch_end + l_batch_size;
3756: END IF;
3757:
3758: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3759: FND_LOG.string(log_level => FND_LOG.level_statement,
3760: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3761: message => 'New limits are l_batch_start : ' || l_batch_start
3762: || '; l_batch_end : ' || l_batch_end
3755: l_batch_end := l_batch_end + l_batch_size;
3756: END IF;
3757:
3758: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3759: FND_LOG.string(log_level => FND_LOG.level_statement,
3760: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3761: message => 'New limits are l_batch_start : ' || l_batch_start
3762: || '; l_batch_end : ' || l_batch_end
3763: );
3771: x_last_line_close_date := p_first_line_close_date;
3772: END IF; --}
3773: x_result := FND_API.G_RET_STS_SUCCESS;
3774:
3775: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3776: FND_LOG.string(log_level => FND_LOG.level_statement,
3777: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3778: message => 'Exitting the method with '
3779: || 'x_last_line_close_date : '||x_last_line_close_date
3772: END IF; --}
3773: x_result := FND_API.G_RET_STS_SUCCESS;
3774:
3775: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3776: FND_LOG.string(log_level => FND_LOG.level_statement,
3777: module => g_module_prefix || 'UPDATE_STAG_LINES_CLOSE_DATES',
3778: message => 'Exitting the method with '
3779: || 'x_last_line_close_date : '||x_last_line_close_date
3780: || '; x_result : '||x_result
3798: IS
3799: l_lines_lots_groups_count NUMBER := -1;
3800: BEGIN
3801:
3802: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3803: FND_LOG.string(log_level => FND_LOG.level_statement,
3804: module => g_module_prefix || 'COUNT_LINES_LOTS_GROUPS',
3805: message => 'Entered the procedure COUNT_LINES_LOTS_GROUPS; p_auction_header_id : ' || p_auction_header_id );
3806: END IF;
3799: l_lines_lots_groups_count NUMBER := -1;
3800: BEGIN
3801:
3802: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3803: FND_LOG.string(log_level => FND_LOG.level_statement,
3804: module => g_module_prefix || 'COUNT_LINES_LOTS_GROUPS',
3805: message => 'Entered the procedure COUNT_LINES_LOTS_GROUPS; p_auction_header_id : ' || p_auction_header_id );
3806: END IF;
3807:
3810: FROM pon_auction_item_prices_all
3811: WHERE group_type IN ('LINE', 'LOT', 'GROUP')
3812: AND auction_header_id = p_auction_header_id;
3813:
3814: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3815: FND_LOG.string(log_level => FND_LOG.level_statement,
3816: module => g_module_prefix || 'GET_SEARCH_MIN_DISP_LINE_NUM',
3817: message => 'Exitting the procedure COUNT_LINES_LOTS_GROUPS; l_lines_lots_groups_count : ' || l_lines_lots_groups_count );
3818: END IF;
3811: WHERE group_type IN ('LINE', 'LOT', 'GROUP')
3812: AND auction_header_id = p_auction_header_id;
3813:
3814: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3815: FND_LOG.string(log_level => FND_LOG.level_statement,
3816: module => g_module_prefix || 'GET_SEARCH_MIN_DISP_LINE_NUM',
3817: message => 'Exitting the procedure COUNT_LINES_LOTS_GROUPS; l_lines_lots_groups_count : ' || l_lines_lots_groups_count );
3818: END IF;
3819:
3842: v_return_status VARCHAR2(1);
3843: v_po_auth_status PO_LOOKUP_CODES.displayed_field%TYPE;
3844: BEGIN
3845:
3846: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3847: FND_LOG.string(log_level => FND_LOG.level_statement,
3848: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3849: message => 'Entered the procedure GET_PO_AUTHORIZATION_STATUS; p_document_id : ' || p_document_id
3850: || '; p_document_type : ' || p_document_type
3843: v_po_auth_status PO_LOOKUP_CODES.displayed_field%TYPE;
3844: BEGIN
3845:
3846: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3847: FND_LOG.string(log_level => FND_LOG.level_statement,
3848: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3849: message => 'Entered the procedure GET_PO_AUTHORIZATION_STATUS; p_document_id : ' || p_document_id
3850: || '; p_document_type : ' || p_document_type
3851: || '; p_document_subtype : ' || p_document_subtype);
3858:
3859: IF (p_document_id is null OR --This case cannot happen
3860: p_document_type is null -- this means it's an RFI
3861: ) THEN
3862: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3863: FND_LOG.string(log_level => FND_LOG.level_statement,
3864: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3865: message => 'Returning null because either p_document_id or p_document_type is null');
3866: END IF;
3859: IF (p_document_id is null OR --This case cannot happen
3860: p_document_type is null -- this means it's an RFI
3861: ) THEN
3862: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3863: FND_LOG.string(log_level => FND_LOG.level_statement,
3864: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3865: message => 'Returning null because either p_document_id or p_document_type is null');
3866: END IF;
3867: return null;
3875: x_document_status => v_po_auth_status
3876: );
3877:
3878: IF ( v_return_status <> 'S' ) THEN
3879: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3880: FND_LOG.string(log_level => FND_LOG.level_statement,
3881: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3882: message => 'Returning null because either x_return_status : ' || v_return_status);
3883: END IF;
3876: );
3877:
3878: IF ( v_return_status <> 'S' ) THEN
3879: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3880: FND_LOG.string(log_level => FND_LOG.level_statement,
3881: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3882: message => 'Returning null because either x_return_status : ' || v_return_status);
3883: END IF;
3884: return null;
3883: END IF;
3884: return null;
3885: END IF;
3886:
3887: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3888: FND_LOG.string(log_level => FND_LOG.level_statement,
3889: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3890: message => 'Exitting the procedure GET_PO_AUTHORIZATION_STATUS; v_return_status : ' || v_return_status
3891: || '; v_po_auth_status : ' || v_po_auth_status);
3884: return null;
3885: END IF;
3886:
3887: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3888: FND_LOG.string(log_level => FND_LOG.level_statement,
3889: module => g_module_prefix || 'GET_PO_AUTHORIZATION_STATUS',
3890: message => 'Exitting the procedure GET_PO_AUTHORIZATION_STATUS; v_return_status : ' || v_return_status
3891: || '; v_po_auth_status : ' || v_po_auth_status);
3892: END IF;
3921: l_module_name := 'has_price_tiers';
3922: x_result := FND_API.g_ret_sts_success;
3923: x_has_price_tiers := 'Y';
3924:
3925: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3926: FND_LOG.string(log_level => FND_LOG.level_statement,
3927: module => g_module_prefix || l_module_name,
3928: message => 'Entered the procedure HAS_PRICE_TIERS; p_auction_header_id : ' || p_auction_header_id);
3929: END IF;
3922: x_result := FND_API.g_ret_sts_success;
3923: x_has_price_tiers := 'Y';
3924:
3925: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3926: FND_LOG.string(log_level => FND_LOG.level_statement,
3927: module => g_module_prefix || l_module_name,
3928: message => 'Entered the procedure HAS_PRICE_TIERS; p_auction_header_id : ' || p_auction_header_id);
3929: END IF;
3930:
3943: WHERE
3944: auction_header_id = p_auction_header_id AND
3945: rownum = 1;
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 => 'x_has_price_tiers' || x_has_price_tiers);
3951: END IF;
3944: auction_header_id = p_auction_header_id AND
3945: rownum = 1;
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 => 'x_has_price_tiers' || x_has_price_tiers);
3951: END IF;
3952:
3957: --There are no shipments for the auction, so set the return value to N
3958: --
3959:
3960: x_has_price_tiers := 'N';
3961: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3962: FND_LOG.string(log_level => FND_LOG.level_statement,
3963: module => g_module_prefix || 'HAS_PRICE_TIERS',
3964: message => 'No shipments for auction; x_has_price_tiers' || x_has_price_tiers);
3965: END IF;
3958: --
3959:
3960: x_has_price_tiers := 'N';
3961: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3962: FND_LOG.string(log_level => FND_LOG.level_statement,
3963: module => g_module_prefix || 'HAS_PRICE_TIERS',
3964: message => 'No shipments for auction; x_has_price_tiers' || x_has_price_tiers);
3965: END IF;
3966: END;
3973: x_result := FND_API.g_ret_sts_unexp_error;
3974: x_error_code := SQLCODE;
3975: x_error_message := SUBSTR(SQLERRM, 1, 100);
3976:
3977: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3978: FND_LOG.string(log_level => FND_LOG.level_statement,
3979: module => g_module_prefix || 'HAS_PRICE_TIERS',
3980: message => 'EXCEPTION ; x_error_code' || x_error_code || ' and x_error_message : ' || x_error_message);
3981: END IF;
3974: x_error_code := SQLCODE;
3975: x_error_message := SUBSTR(SQLERRM, 1, 100);
3976:
3977: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3978: FND_LOG.string(log_level => FND_LOG.level_statement,
3979: module => g_module_prefix || 'HAS_PRICE_TIERS',
3980: message => 'EXCEPTION ; x_error_code' || x_error_code || ' and x_error_message : ' || x_error_message);
3981: END IF;
3982:
3980: message => 'EXCEPTION ; x_error_code' || x_error_code || ' and x_error_message : ' || x_error_message);
3981: END IF;
3982:
3983:
3984: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3985: FND_LOG.string(log_level => FND_LOG.level_statement,
3986: module => g_module_prefix || l_module_name,
3987: message => 'Returning to the caller with x_has_price_tiers: '|| x_has_price_tiers );
3988: END IF;
3981: END IF;
3982:
3983:
3984: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
3985: FND_LOG.string(log_level => FND_LOG.level_statement,
3986: module => g_module_prefix || l_module_name,
3987: message => 'Returning to the caller with x_has_price_tiers: '|| x_has_price_tiers );
3988: END IF;
3989:
4030:
4031: l_module_name := 'handle_change_price_tiers';
4032: x_result := FND_API.g_ret_sts_success;
4033:
4034: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4035: FND_LOG.string(log_level => FND_LOG.level_statement,
4036: module => g_module_prefix || l_module_name,
4037: message => 'Entered the procedure ; p_auction_header_id : ' || p_auction_header_id || ' ; p_delete_price_tiers : '|| p_delete_price_tiers);
4038: END IF;
4031: l_module_name := 'handle_change_price_tiers';
4032: x_result := FND_API.g_ret_sts_success;
4033:
4034: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4035: FND_LOG.string(log_level => FND_LOG.level_statement,
4036: module => g_module_prefix || l_module_name,
4037: message => 'Entered the procedure ; p_auction_header_id : ' || p_auction_header_id || ' ; p_delete_price_tiers : '|| p_delete_price_tiers);
4038: END IF;
4039: --
4047: l_round_number
4048: FROM pon_auction_headers_all
4049: WHERE auction_header_id = p_auction_header_id;
4050:
4051: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4052: FND_LOG.string(log_level => FND_LOG.level_statement,
4053: module => g_module_prefix || l_module_name,
4054: message => 'l_prev_price_tiers_indicator : ' || l_prev_price_tiers_indicator);
4055: END IF;
4048: FROM pon_auction_headers_all
4049: WHERE auction_header_id = p_auction_header_id;
4050:
4051: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4052: FND_LOG.string(log_level => FND_LOG.level_statement,
4053: module => g_module_prefix || l_module_name,
4054: message => 'l_prev_price_tiers_indicator : ' || l_prev_price_tiers_indicator);
4055: END IF;
4056:
4061: INTO l_max_line_number
4062: FROM PON_AUCTION_ITEM_PRICES_ALL
4063: WHERE AUCTION_HEADER_ID=p_auction_header_id;
4064:
4065: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4066: FND_LOG.string(log_level => FND_LOG.level_statement,
4067: module => g_module_prefix || l_module_name,
4068: message => 'l_max_line_number : ' || l_max_line_number || '; l_amendment_number : ' || l_amendment_number
4069: || ' ; l_round_number : ' || l_round_number);
4062: FROM PON_AUCTION_ITEM_PRICES_ALL
4063: WHERE AUCTION_HEADER_ID=p_auction_header_id;
4064:
4065: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4066: FND_LOG.string(log_level => FND_LOG.level_statement,
4067: module => g_module_prefix || l_module_name,
4068: message => 'l_max_line_number : ' || l_max_line_number || '; l_amendment_number : ' || l_amendment_number
4069: || ' ; l_round_number : ' || l_round_number);
4070: END IF;
4087: (SELECT auction_header_id_prev_amend
4088: FROM pon_auction_headers_all
4089: WHERE auction_header_id = p_auction_header_id);
4090:
4091: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4092: FND_LOG.string(log_level => FND_LOG.level_statement,
4093: module => g_module_prefix || l_module_name,
4094: message => 'Neg is Amendment ; l_parent_auc_max_line_number : ' || l_parent_auc_max_line_number);
4095: END IF;
4088: FROM pon_auction_headers_all
4089: WHERE auction_header_id = p_auction_header_id);
4090:
4091: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4092: FND_LOG.string(log_level => FND_LOG.level_statement,
4093: module => g_module_prefix || l_module_name,
4094: message => 'Neg is Amendment ; l_parent_auc_max_line_number : ' || l_parent_auc_max_line_number);
4095: END IF;
4096:
4105: (SELECT auction_header_id_prev_round
4106: FROM pon_auction_headers_all
4107: WHERE auction_header_id = p_auction_header_id);
4108:
4109: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4110: FND_LOG.string(log_level => FND_LOG.level_statement,
4111: module => g_module_prefix || l_module_name,
4112: message => 'This is new round ' || '; l_parent_auc_max_line_number : '|| l_parent_auc_max_line_number);
4113: END IF;
4106: FROM pon_auction_headers_all
4107: WHERE auction_header_id = p_auction_header_id);
4108:
4109: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4110: FND_LOG.string(log_level => FND_LOG.level_statement,
4111: module => g_module_prefix || l_module_name,
4112: message => 'This is new round ' || '; l_parent_auc_max_line_number : '|| l_parent_auc_max_line_number);
4113: END IF;
4114:
4131: ELSE
4132: l_batch_end := l_batch_size;
4133: END IF;
4134:
4135: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4136: FND_LOG.string(log_level => FND_LOG.level_statement,
4137: module => g_module_prefix || l_module_name,
4138: message => 'l_batch_size : ' || l_batch_size || '; l_batch_end : '
4139: || l_batch_end);
4132: l_batch_end := l_batch_size;
4133: END IF;
4134:
4135: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4136: FND_LOG.string(log_level => FND_LOG.level_statement,
4137: module => g_module_prefix || l_module_name,
4138: message => 'l_batch_size : ' || l_batch_size || '; l_batch_end : '
4139: || l_batch_end);
4140: END IF;
4145: --default the price break settings if price tiers indicator has been changed from price breaks
4146: --
4147: IF (l_prev_price_tiers_indicator = 'PRICE_BREAKS') THEN --{
4148:
4149: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4150: FND_LOG.string(log_level => FND_LOG.level_statement,
4151: module => g_module_prefix || l_module_name,
4152: 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');
4153: END IF;
4146: --
4147: IF (l_prev_price_tiers_indicator = 'PRICE_BREAKS') THEN --{
4148:
4149: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4150: FND_LOG.string(log_level => FND_LOG.level_statement,
4151: module => g_module_prefix || l_module_name,
4152: 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');
4153: END IF;
4154:
4164: IF (p_delete_price_tiers = 'Y') THEN--{
4165: --
4166: -- Delete the entries from the shipments table for this auction
4167: --
4168: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4169: FND_LOG.string(log_level => FND_LOG.level_statement,
4170: module => g_module_prefix || l_module_name,
4171: message => 'Deleting the entries from the shipments table for negotiation ' || p_auction_header_id
4172: || ' and line_number between ' || l_batch_start ||' and ' || l_batch_end );
4165: --
4166: -- Delete the entries from the shipments table for this auction
4167: --
4168: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4169: FND_LOG.string(log_level => FND_LOG.level_statement,
4170: module => g_module_prefix || l_module_name,
4171: message => 'Deleting the entries from the shipments table for negotiation ' || p_auction_header_id
4172: || ' and line_number between ' || l_batch_start ||' and ' || l_batch_end );
4173: END IF;
4186: --
4187:
4188: IF (l_prev_price_tiers_indicator = 'PRICE_BREAKS') THEN
4189:
4190: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4191: FND_LOG.string(log_level => FND_LOG.level_statement,
4192: module => g_module_prefix || l_module_name,
4193: message => 'Deleting the child differentials for negotiation ' || p_auction_header_id
4194: || ' and line_number between ' || l_batch_start ||' and ' || l_batch_end );
4187:
4188: IF (l_prev_price_tiers_indicator = 'PRICE_BREAKS') THEN
4189:
4190: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4191: FND_LOG.string(log_level => FND_LOG.level_statement,
4192: module => g_module_prefix || l_module_name,
4193: message => 'Deleting the child differentials for negotiation ' || p_auction_header_id
4194: || ' and line_number between ' || l_batch_start ||' and ' || l_batch_end );
4195: END IF;
4211: --as modified and set the flag has_price_tiers as 'N'.
4212: --
4213: IF (l_is_new_round OR l_is_new_amendment) THEN
4214:
4215: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4216: FND_LOG.string(log_level => FND_LOG.level_statement,
4217: module => g_module_prefix || l_module_name,
4218: message => 'Negotiation is a new round or an amendment. Updating flags modified_flag and has_quantity_tiers');
4219: END IF;
4212: --
4213: IF (l_is_new_round OR l_is_new_amendment) THEN
4214:
4215: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4216: FND_LOG.string(log_level => FND_LOG.level_statement,
4217: module => g_module_prefix || l_module_name,
4218: message => 'Negotiation is a new round or an amendment. Updating flags modified_flag and has_quantity_tiers');
4219: END IF;
4220:
4236: line_number <= l_batch_end;
4237:
4238: ELSE
4239:
4240: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4241: FND_LOG.string(log_level => FND_LOG.level_statement,
4242: module => g_module_prefix || l_module_name,
4243: message => 'Negotiation is a not new round or an amendment. Updating has_quantity_tiers flag');
4244: END IF;
4237:
4238: ELSE
4239:
4240: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4241: FND_LOG.string(log_level => FND_LOG.level_statement,
4242: module => g_module_prefix || l_module_name,
4243: message => 'Negotiation is a not new round or an amendment. Updating has_quantity_tiers flag');
4244: END IF;
4245:
4263: ELSE
4264: l_batch_end := l_batch_end + l_batch_size;
4265: END IF;
4266:
4267: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4268: FND_LOG.string(log_level => FND_LOG.level_statement,
4269: module => g_module_prefix || l_module_name,
4270: message => 'New Batch with l_batch_start' || l_batch_start || ' and l_batch_end : ' || l_batch_end);
4271: END IF;
4264: l_batch_end := l_batch_end + l_batch_size;
4265: END IF;
4266:
4267: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4268: FND_LOG.string(log_level => FND_LOG.level_statement,
4269: module => g_module_prefix || l_module_name,
4270: message => 'New Batch with l_batch_start' || l_batch_start || ' and l_batch_end : ' || l_batch_end);
4271: END IF;
4272:
4281: x_result := FND_API.g_ret_sts_unexp_error;
4282: x_error_code := SQLCODE;
4283: x_error_message := SUBSTR(SQLERRM, 1, 100);
4284:
4285: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4286: FND_LOG.string(log_level => FND_LOG.level_statement,
4287: module => g_module_prefix || l_module_name,
4288: message => 'EXCEPTION ; x_error_code' || x_error_code || ' and x_error_message : ' || x_error_message);
4289: END IF;
4282: x_error_code := SQLCODE;
4283: x_error_message := SUBSTR(SQLERRM, 1, 100);
4284:
4285: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4286: FND_LOG.string(log_level => FND_LOG.level_statement,
4287: module => g_module_prefix || l_module_name,
4288: message => 'EXCEPTION ; x_error_code' || x_error_code || ' and x_error_message : ' || x_error_message);
4289: END IF;
4290:
4288: message => 'EXCEPTION ; x_error_code' || x_error_code || ' and x_error_message : ' || x_error_message);
4289: END IF;
4290:
4291:
4292: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4293: FND_LOG.string(log_level => FND_LOG.level_statement,
4294: module => g_module_prefix || l_module_name,
4295: message => 'Returning to the caller');
4296: END IF;
4289: END IF;
4290:
4291:
4292: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4293: FND_LOG.string(log_level => FND_LOG.level_statement,
4294: module => g_module_prefix || l_module_name,
4295: message => 'Returning to the caller');
4296: END IF;
4297: END HANDLE_CHANGE_PRICE_TIERS;
4311: v_doctype_name pon_auc_doctypes_tl.name%TYPE;
4312:
4313: BEGIN
4314:
4315: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4316: FND_LOG.string(log_level => FND_LOG.level_statement,
4317: module => g_module_prefix || 'GET_ABBR_DOC_TYPE_GRP_NAME',
4318: message => 'Entered the procedure GET_ABBR_DOC_TYPE_GRP_NAME; p_doctype_id : ' || p_doctype_id);
4319: END IF;
4312:
4313: BEGIN
4314:
4315: IF (FND_LOG.level_statement>= FND_LOG.g_current_runtime_level) THEN
4316: FND_LOG.string(log_level => FND_LOG.level_statement,
4317: module => g_module_prefix || 'GET_ABBR_DOC_TYPE_GRP_NAME',
4318: message => 'Entered the procedure GET_ABBR_DOC_TYPE_GRP_NAME; p_doctype_id : ' || p_doctype_id);
4319: END IF;
4320:
4332: EXCEPTION WHEN NO_DATA_FOUND THEN
4333:
4334: v_doctype_name := NULL;
4335:
4336: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
4337: FND_LOG.string(log_level => FND_LOG.level_exception,
4338: module => g_module_prefix || 'GET_ABBR_DOC_TYPE_GRP_NAME',
4339: message => 'Exception in PON_NEGOTIATION_HELPER_PVT.GET_ABBR_DOC_TYPE_GRP_NAME '
4340: || 'errnum = ' || SQLCODE || ', errmsg = ' || SUBSTR (SQLERRM, 1, 200));
4333:
4334: v_doctype_name := NULL;
4335:
4336: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
4337: FND_LOG.string(log_level => FND_LOG.level_exception,
4338: module => g_module_prefix || 'GET_ABBR_DOC_TYPE_GRP_NAME',
4339: message => 'Exception in PON_NEGOTIATION_HELPER_PVT.GET_ABBR_DOC_TYPE_GRP_NAME '
4340: || 'errnum = ' || SQLCODE || ', errmsg = ' || SUBSTR (SQLERRM, 1, 200));
4341: END IF;