137:
138: l_module_name := 'delete_single_line';
139: x_result := FND_API.g_ret_sts_success;
140:
141: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
142: FND_LOG.string (log_level => FND_LOG.level_procedure,
143: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
144: message => 'Entered procedure = ' || l_module_name ||
145: ', p_auction_header_id = ' || p_auction_header_id ||
138: l_module_name := 'delete_single_line';
139: x_result := FND_API.g_ret_sts_success;
140:
141: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
142: FND_LOG.string (log_level => FND_LOG.level_procedure,
143: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
144: message => 'Entered procedure = ' || l_module_name ||
145: ', p_auction_header_id = ' || p_auction_header_id ||
146: ', p_line_number = ' || p_line_number);
163: FOR sl_line IN SlinLines(op_line.line_number) LOOP
164: IF (p_delete_linked_option = 'Y') THEN
165: FOR cross_linked_options IN CrossLinkedOptionLines(sl_line.line_number) LOOP
166: temp :=0;
167: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
168: FND_LOG.string (log_level => FND_LOG.level_procedure,
169: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
170: message => 'Inside cross_linked_options loop: Calling delete_single_line for ' || cross_linked_options.line_number);
171: END IF;
164: IF (p_delete_linked_option = 'Y') THEN
165: FOR cross_linked_options IN CrossLinkedOptionLines(sl_line.line_number) LOOP
166: temp :=0;
167: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
168: FND_LOG.string (log_level => FND_LOG.level_procedure,
169: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
170: message => 'Inside cross_linked_options loop: Calling delete_single_line for ' || cross_linked_options.line_number);
171: END IF;
172:
192: x_number_of_lines_deleted => temp
193: );
194: total_lines := total_lines + temp;
195:
196: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
197: FND_LOG.string (log_level => FND_LOG.level_procedure,
198: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
199: message => 'Deleted cross linked option : ' || cross_linked_options.line_number);
200: END IF;
193: );
194: total_lines := total_lines + temp;
195:
196: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
197: FND_LOG.string (log_level => FND_LOG.level_procedure,
198: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
199: message => 'Deleted cross linked option : ' || cross_linked_options.line_number);
200: END IF;
201: END LOOP;
209:
210: END IF;
211:
212: temp :=0;
213: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
214: FND_LOG.string (log_level => FND_LOG.level_procedure,
215: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
216: message => 'Inside slinLines loop: Calling delete_single_line for ' || sl_line.line_number);
217: END IF;
210: END IF;
211:
212: temp :=0;
213: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
214: FND_LOG.string (log_level => FND_LOG.level_procedure,
215: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
216: message => 'Inside slinLines loop: Calling delete_single_line for ' || sl_line.line_number);
217: END IF;
218:
237: x_number_of_lines_deleted => temp
238: );
239: total_lines := total_lines + temp;
240:
241: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
242: FND_LOG.string (log_level => FND_LOG.level_procedure,
243: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
244: message => 'Deleted slin ' || sl_line.line_number);
245: END IF;
238: );
239: total_lines := total_lines + temp;
240:
241: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
242: FND_LOG.string (log_level => FND_LOG.level_procedure,
243: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
244: message => 'Deleted slin ' || sl_line.line_number);
245: END IF;
246: END LOOP;
244: message => 'Deleted slin ' || sl_line.line_number);
245: END IF;
246: END LOOP;
247:
248: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
249: FND_LOG.string (log_level => FND_LOG.level_procedure,
250: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
251: message => 'after slinLines loop: Calling delete_single_line for ' || op_line.line_number);
252: END IF;
245: END IF;
246: END LOOP;
247:
248: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
249: FND_LOG.string (log_level => FND_LOG.level_procedure,
250: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
251: message => 'after slinLines loop: Calling delete_single_line for ' || op_line.line_number);
252: END IF;
253:
271: p_parent_line_number => op_line.parent_line_number,
272: p_sub_line_sequence_number => op_line.SUB_LINE_SEQUENCE_NUMBER,
273: x_number_of_lines_deleted => temp
274: );
275: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
276: FND_LOG.string (log_level => FND_LOG.level_procedure,
277: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
278: message => 'Deleted clin/option ' || op_line.line_number);
279: END IF;
272: p_sub_line_sequence_number => op_line.SUB_LINE_SEQUENCE_NUMBER,
273: x_number_of_lines_deleted => temp
274: );
275: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
276: FND_LOG.string (log_level => FND_LOG.level_procedure,
277: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
278: message => 'Deleted clin/option ' || op_line.line_number);
279: END IF;
280:
279: END IF;
280:
281: IF ( nvl(op_line.clm_base_line_num,-1) <> -1) THEN
282: opcount:=0;
283: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
284: FND_LOG.string (log_level => FND_LOG.level_procedure,
285: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
286: message => 'Renumbering options for ' || op_line.clm_base_line_num);
287: END IF;
280:
281: IF ( nvl(op_line.clm_base_line_num,-1) <> -1) THEN
282: opcount:=0;
283: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
284: FND_LOG.string (log_level => FND_LOG.level_procedure,
285: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
286: message => 'Renumbering options for ' || op_line.clm_base_line_num);
287: END IF;
288:
300: END IF;
301: END IF;
302:
303: total_lines := total_lines + temp;
304: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
305: FND_LOG.string (log_level => FND_LOG.level_procedure,
306: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
307: message => 'total_lines ' || total_lines);
308: END IF;
301: END IF;
302:
303: total_lines := total_lines + temp;
304: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
305: FND_LOG.string (log_level => FND_LOG.level_procedure,
306: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
307: message => 'total_lines ' || total_lines);
308: END IF;
309: END LOOP;
313: For requisition based clins, we need to find previously deleted slins also
314: for this clin and return them back to pool
315: */
316: IF( x_slin_flag = 'N' and x_option_flag = 'N' AND x_is_req_backed='Y') THEN
317: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
318: FND_LOG.string (log_level => FND_LOG.level_procedure,
319: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
320: message => 'This is a clin.Checking previously deleted slins/options to return them to req pool ');
321: END IF;
314: for this clin and return them back to pool
315: */
316: IF( x_slin_flag = 'N' and x_option_flag = 'N' AND x_is_req_backed='Y') THEN
317: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
318: FND_LOG.string (log_level => FND_LOG.level_procedure,
319: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
320: message => 'This is a clin.Checking previously deleted slins/options to return them to req pool ');
321: END IF;
322: FOR rec IN (SELECT requisition_line_id FROM po_requisition_lines_all prl WHERE requisition_header_id = x_req_hdr_id
358: END LOOP;
359: END IF;
360:
361: x_number_of_lines_deleted := total_lines;
362: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
363: FND_LOG.string (log_level => FND_LOG.level_procedure,
364: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
365: message => 'Number of lines deleted ' || x_number_of_lines_deleted);
366: END IF;
359: END IF;
360:
361: x_number_of_lines_deleted := total_lines;
362: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
363: FND_LOG.string (log_level => FND_LOG.level_procedure,
364: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
365: message => 'Number of lines deleted ' || x_number_of_lines_deleted);
366: END IF;
367:
367:
368:
369: EXCEPTION
370: WHEN OTHERS THEN
371: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
372: FND_LOG.string (log_level => FND_LOG.level_procedure,
373: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
374: message => 'Exception' || SQLERRM );
375: END IF;
368:
369: EXCEPTION
370: WHEN OTHERS THEN
371: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
372: FND_LOG.string (log_level => FND_LOG.level_procedure,
373: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
374: message => 'Exception' || SQLERRM );
375: END IF;
376: END delete_single_line;
399: BEGIN
400:
401: l_module_name := 'copy_and_create_option';
402:
403: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
404: FND_LOG.string (log_level => FND_LOG.level_procedure,
405: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
406: message => 'Entered procedure = ' || l_module_name ||
407: ', p_auction_header_id = ' || p_auction_header_id ||
400:
401: l_module_name := 'copy_and_create_option';
402:
403: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
404: FND_LOG.string (log_level => FND_LOG.level_procedure,
405: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
406: message => 'Entered procedure = ' || l_module_name ||
407: ', p_auction_header_id = ' || p_auction_header_id ||
408: ', p_line_number = ' || p_src_line_number);
538: BEGIN
539:
540: l_module_name := 'copy_clin';
541:
542: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
543: FND_LOG.string (log_level => FND_LOG.level_procedure,
544: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
545: message => 'Entered procedure = ' || l_module_name ||
546: ', p_auction_header_id = ' || p_auction_header_id ||
539:
540: l_module_name := 'copy_clin';
541:
542: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
543: FND_LOG.string (log_level => FND_LOG.level_procedure,
544: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
545: message => 'Entered procedure = ' || l_module_name ||
546: ', p_auction_header_id = ' || p_auction_header_id ||
547: ', p_line_number = ' || p_src_line_number);
1735: l_buyer_id;
1736: EXIT WHEN l_req_lines_csr%NOTFOUND;
1737:
1738:
1739: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1740: FND_LOG.string (log_level => FND_LOG.level_procedure,
1741: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
1742: message => 'Entered procedure = ' || l_module_name ||
1743: ', l_slin_flag = ' || l_slin_flag ||
1736: EXIT WHEN l_req_lines_csr%NOTFOUND;
1737:
1738:
1739: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1740: FND_LOG.string (log_level => FND_LOG.level_procedure,
1741: module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name,
1742: message => 'Entered procedure = ' || l_module_name ||
1743: ', l_slin_flag = ' || l_slin_flag ||
1744: ', l_req_num = ' || l_req_num ||
1947: l_exhibits exhibit_type;
1948: exhibit VARCHAR2(2);
1949: BEGIN
1950: l_module_name := 'copy_clin';
1951: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1952: FND_LOG.string (log_level => FND_LOG.level_procedure, module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name, MESSAGE => 'Entered procedure = '
1953: || l_module_name || ', p_auction_header_id = ' || p_auction_header_id );
1954: END IF;
1955: -- we will return x_max_line_number to the calling method so it will be used
1948: exhibit VARCHAR2(2);
1949: BEGIN
1950: l_module_name := 'copy_clin';
1951: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1952: FND_LOG.string (log_level => FND_LOG.level_procedure, module => 'PON_CLM_CLO_UTIL_PKG.' || l_module_name, MESSAGE => 'Entered procedure = '
1953: || l_module_name || ', p_auction_header_id = ' || p_auction_header_id );
1954: END IF;
1955: -- we will return x_max_line_number to the calling method so it will be used
1956: -- in copying subsequent lines if user had selected more than one line to copy.