63: IS
64: l_request_id NUMBER;
65: BEGIN
66:
67: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
68: fnd_log.string(fnd_log.level_statement,
69: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
70: 'Entered with input -- '||
71: 'p_interface_id : '|| p_interface_id);
64: l_request_id NUMBER;
65: BEGIN
66:
67: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
68: fnd_log.string(fnd_log.level_statement,
69: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
70: 'Entered with input -- '||
71: 'p_interface_id : '|| p_interface_id);
72: end if;
83: x_error_code => x_error_code,
84: x_error_message => x_error_message
85: );
86:
87: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
88: fnd_log.string(fnd_log.level_statement,
89: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
90: 'returning with output -- '||
91: 'x_document_number : '|| x_document_number ||
84: x_error_message => x_error_message
85: );
86:
87: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
88: fnd_log.string(fnd_log.level_statement,
89: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
90: 'returning with output -- '||
91: 'x_document_number : '|| x_document_number ||
92: 'x_document_url : ' || x_document_url ||
127: x_error_message OUT NOCOPY VARCHAR2)
128: IS
129: BEGIN
130:
131: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
132: fnd_log.string(fnd_log.level_statement,
133: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
134: 'Entered with input -- '||
135: 'p_interface_id : '|| p_interface_id);
128: IS
129: BEGIN
130:
131: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
132: fnd_log.string(fnd_log.level_statement,
133: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
134: 'Entered with input -- '||
135: 'p_interface_id : '|| p_interface_id);
136: end if;
156: x_concurrent_program_started := 'Y';
157:
158: end if;
159:
160: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
161: fnd_log.string(fnd_log.level_statement,
162: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
163: 'returning with output -- '||
164: 'x_document_number : '|| x_document_number ||
157:
158: end if;
159:
160: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
161: fnd_log.string(fnd_log.level_statement,
162: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
163: 'returning with output -- '||
164: 'x_document_number : '|| x_document_number ||
165: 'x_document_url : ' || x_document_url ||
299: --If it is a concurrent call set the return values
300: --
301: IF (p_is_concurrent_call = 'Y') THEN
302:
303: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
304: fnd_log.string(fnd_log.level_statement,
305: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
306: 'This is a concurrent call');
307: end if;
300: --
301: IF (p_is_concurrent_call = 'Y') THEN
302:
303: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
304: fnd_log.string(fnd_log.level_statement,
305: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
306: 'This is a concurrent call');
307: end if;
308:
330: UPDATE pon_auc_headers_interface
331: SET process_status = 'REJECTED'
332: WHERE interface_auction_header_id = p_interface_id;
333:
334: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
335: fnd_log.string(fnd_log.level_statement,
336: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
337: x_error_message);
338: end if;
331: SET process_status = 'REJECTED'
332: WHERE interface_auction_header_id = p_interface_id;
333:
334: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
335: fnd_log.string(fnd_log.level_statement,
336: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
337: x_error_message);
338: end if;
339:
354: UPDATE pon_auc_headers_interface
355: SET process_status = 'REJECTED'
356: WHERE interface_auction_header_id = p_interface_id;
357:
358: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
359: fnd_log.string(fnd_log.level_statement,
360: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
361: x_error_message);
362: end if;
355: SET process_status = 'REJECTED'
356: WHERE interface_auction_header_id = p_interface_id;
357:
358: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
359: fnd_log.string(fnd_log.level_statement,
360: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
361: x_error_message);
362: end if;
363:
363:
364: RETURN;
365: END IF;
366:
367: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
368: fnd_log.string(fnd_log.level_statement,
369: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
370: 'Counting the number of lines for p_interface_id : ' || p_interface_id);
371: end if;
364: RETURN;
365: END IF;
366:
367: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
368: fnd_log.string(fnd_log.level_statement,
369: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
370: 'Counting the number of lines for p_interface_id : ' || p_interface_id);
371: end if;
372:
374: INTO l_number_of_lines
375: FROM pon_auc_items_interface
376: WHERE interface_auction_header_id = p_interface_id;
377:
378: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
379: fnd_log.string(fnd_log.level_statement,
380: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
381: 'l_number_of_lines (number of lines to copy into PON tables, which may not be the same as the value in number_of_lines field in PON_AUCTION_HEADERS_ALL for this auction) : '||
382: l_number_of_lines ||';Cheking if l_number_of_lines > Threshold for p_party_id: '|| v_site_id);
375: FROM pon_auc_items_interface
376: WHERE interface_auction_header_id = p_interface_id;
377:
378: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
379: fnd_log.string(fnd_log.level_statement,
380: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
381: 'l_number_of_lines (number of lines to copy into PON tables, which may not be the same as the value in number_of_lines field in PON_AUCTION_HEADERS_ALL for this auction) : '||
382: l_number_of_lines ||';Cheking if l_number_of_lines > Threshold for p_party_id: '|| v_site_id);
383: end if;
442: -- Handle Header data if it is an online call
443: --
444: IF (p_is_concurrent_call = 'N') THEN
445:
446: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
447: fnd_log.string(fnd_log.level_statement,
448: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
449: 'This is not a concurrent call; Handling Header information now; Validating the header');
450: end if;
443: --
444: IF (p_is_concurrent_call = 'N') THEN
445:
446: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
447: fnd_log.string(fnd_log.level_statement,
448: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
449: 'This is not a concurrent call; Handling Header information now; Validating the header');
450: end if;
451:
463: UPDATE pon_auc_headers_interface
464: SET process_status = 'REJECTED'
465: WHERE interface_auction_header_id = p_interface_id;
466:
467: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
468: fnd_log.string(fnd_log.level_statement,
469: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
470: 'Error in validating the header; error mesg : ' ||x_error_message);
471: end if;
464: SET process_status = 'REJECTED'
465: WHERE interface_auction_header_id = p_interface_id;
466:
467: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
468: fnd_log.string(fnd_log.level_statement,
469: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
470: 'Error in validating the header; error mesg : ' ||x_error_message);
471: end if;
472:
477: --Insert a row in the transaction table
478: v_debug_status := 'INSERT_PON_AUC_HEADERS';
479:
480:
481: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
482: fnd_log.string(fnd_log.level_statement,
483: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
484: 'preparing to insert a row in the transaction table');
485: end if;
478: v_debug_status := 'INSERT_PON_AUC_HEADERS';
479:
480:
481: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
482: fnd_log.string(fnd_log.level_statement,
483: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
484: 'preparing to insert a row in the transaction table');
485: end if;
486:
486:
487: -- Get the document_number from sequence and store it so that it can
488: -- be returned
489:
490: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
491: fnd_log.string(fnd_log.level_statement,
492: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
493: 'Getting the document_number from sequence');
494: end if;
487: -- Get the document_number from sequence and store it so that it can
488: -- be returned
489:
490: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
491: fnd_log.string(fnd_log.level_statement,
492: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
493: 'Getting the document_number from sequence');
494: end if;
495:
495:
496: SELECT pon_auction_headers_all_s.NEXTVAL INTO x_document_number
497: FROM dual;
498:
499: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
500: fnd_log.string(fnd_log.level_statement,
501: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
502: 'New document_number is (x_document_number) : ' ||x_document_number);
503: end if;
496: SELECT pon_auction_headers_all_s.NEXTVAL INTO x_document_number
497: FROM dual;
498:
499: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
500: fnd_log.string(fnd_log.level_statement,
501: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
502: 'New document_number is (x_document_number) : ' ||x_document_number);
503: end if;
504:
524: and nvl(fnd_user.end_date,sysdate) >= sysdate;
525: exception
526: when others then
527: v_auc_contact_id := null;
528: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
529: fnd_log.string(fnd_log.level_statement,
530: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
531: 'Could not determine contact_id for fnd_user_id ' || fnd_global.user_id());
532: end if;
525: exception
526: when others then
527: v_auc_contact_id := null;
528: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
529: fnd_log.string(fnd_log.level_statement,
530: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
531: 'Could not determine contact_id for fnd_user_id ' || fnd_global.user_id());
532: end if;
533: end;
533: end;
534:
535: v_contracts_doctype := pon_conterms_utl_pvt.get_negotiation_doc_type(v_doctype_id);
536:
537: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
538: fnd_log.string(fnd_log.level_statement,
539: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
540: 'Calling okc_terms_copy_grp.copy_doc with parameters -- '||
541: 'v_contracts_doctype : ' || v_contracts_doctype ||
534:
535: v_contracts_doctype := pon_conterms_utl_pvt.get_negotiation_doc_type(v_doctype_id);
536:
537: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
538: fnd_log.string(fnd_log.level_statement,
539: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
540: 'Calling okc_terms_copy_grp.copy_doc with parameters -- '||
541: 'v_contracts_doctype : ' || v_contracts_doctype ||
542: 'x_document_number : ' || x_document_number ||
548: -- Get the current policy
549: --
550: l_old_policy := mo_global.get_access_mode();
551: l_old_org_id := mo_global.get_current_org_id();
552: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
553: fnd_log.string(fnd_log.level_statement,
554: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
555: 'Getting current policy -- '||
556: 'old policy : ' || l_old_policy ||
549: --
550: l_old_policy := mo_global.get_access_mode();
551: l_old_org_id := mo_global.get_current_org_id();
552: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
553: fnd_log.string(fnd_log.level_statement,
554: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
555: 'Getting current policy -- '||
556: 'old policy : ' || l_old_policy ||
557: 'old org_id : ' || l_old_org_id
599: --
600: mo_global.set_policy_context(l_old_policy, l_old_org_id);
601:
602:
603: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
604: fnd_log.string(fnd_log.level_statement,
605: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
606: 'Executed copy_doc() ; returned with status : ' ||v_return_status);
607: end if;
600: mo_global.set_policy_context(l_old_policy, l_old_org_id);
601:
602:
603: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
604: fnd_log.string(fnd_log.level_statement,
605: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
606: 'Executed copy_doc() ; returned with status : ' ||v_return_status);
607: end if;
608:
606: 'Executed copy_doc() ; returned with status : ' ||v_return_status);
607: end if;
608:
609: if (v_return_status <> fnd_api.g_ret_sts_success) then
610: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
611: fnd_log.string(fnd_log.level_statement,
612: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
613: 'Call to copy_doc() failed for source_id=' || g_header_rec.source_doc_id || ' target_id=' || x_document_number);
614: end if;
607: end if;
608:
609: if (v_return_status <> fnd_api.g_ret_sts_success) then
610: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
611: fnd_log.string(fnd_log.level_statement,
612: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
613: 'Call to copy_doc() failed for source_id=' || g_header_rec.source_doc_id || ' target_id=' || x_document_number);
614: end if;
615:
647: -- As Reneg blanket does not allow styles to be set while creation
648: -- user can cng the style once a draft neg has been created.
649: -- Default style allows quantity based price tiers passing Y as p_qty_price_tiers_enabled.
650:
651: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN --{
652: fnd_log.string(fnd_log.level_statement,
653: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
654: 'Calling the PON_AUCTION_PKG.GET_DEFAULT_TIERS_INDICATOR API to get the' ||
655: ' default price tiers indicator value.');
648: -- user can cng the style once a draft neg has been created.
649: -- Default style allows quantity based price tiers passing Y as p_qty_price_tiers_enabled.
650:
651: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN --{
652: fnd_log.string(fnd_log.level_statement,
653: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
654: 'Calling the PON_AUCTION_PKG.GET_DEFAULT_TIERS_INDICATOR API to get the' ||
655: ' default price tiers indicator value.');
656: END IF;
662: p_qty_price_tiers_enabled => 'Y',
663: p_doctype_id => v_doctype_id,
664: x_price_tiers_indicator => v_price_tiers_indicator);
665:
666: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
667: fnd_log.string(fnd_log.level_statement,
668: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
669: 'Inserting row into PON_AUCTION_HEADERS_ALL with the following filed values -- ' ||
670: 'auction_header_id (x_document_number) : '|| x_document_number ||
663: p_doctype_id => v_doctype_id,
664: x_price_tiers_indicator => v_price_tiers_indicator);
665:
666: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
667: fnd_log.string(fnd_log.level_statement,
668: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
669: 'Inserting row into PON_AUCTION_HEADERS_ALL with the following filed values -- ' ||
670: 'auction_header_id (x_document_number) : '|| x_document_number ||
671: '; document_number (x_document_number) : ' || x_document_number ||
724: l_sol_type := NULL;
725: l_line_uda_temp_id := NULL;
726:
727: IF PON_CLM_UTIL_PKG.IS_DOCUMENT_FEDERAL(p_doc_type_id => v_doctype_id) = 1 THEN
728: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
729: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
730: 'Retrieve Uda Template Id for Header');
731: end if;
732:
725: l_line_uda_temp_id := NULL;
726:
727: IF PON_CLM_UTIL_PKG.IS_DOCUMENT_FEDERAL(p_doc_type_id => v_doctype_id) = 1 THEN
728: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
729: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
730: 'Retrieve Uda Template Id for Header');
731: end if;
732:
733: l_uda_template_id := po_uda_data_util.get_template_id (
737: 'HEADER',
738: sysdate,
739: v_return_status,
740: v_error_message);
741: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
742: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
743: 'Return from po_uda_data_util.get_template_id '||v_return_status);
744: end if;
745:
738: sysdate,
739: v_return_status,
740: v_error_message);
741: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
742: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
743: 'Return from po_uda_data_util.get_template_id '||v_return_status);
744: end if;
745:
746: IF ( v_return_status = 'E' ) THEN
752: UPDATE pon_auc_headers_interface
753: SET process_status = 'REJECTED'
754: WHERE interface_auction_header_id = p_interface_id;
755:
756: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
757: fnd_log.string(fnd_log.level_statement,
758: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
759: x_error_message);
760: end if;
753: SET process_status = 'REJECTED'
754: WHERE interface_auction_header_id = p_interface_id;
755:
756: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
757: fnd_log.string(fnd_log.level_statement,
758: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
759: x_error_message);
760: end if;
761:
760: end if;
761:
762: RETURN;
763: END IF;
764: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
765: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.Create_Draft_Neg_interface_pvt',
766: 'Got uda_template_id for Header'||l_uda_template_id);
767: end if;
768:
761:
762: RETURN;
763: END IF;
764: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
765: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.Create_Draft_Neg_interface_pvt',
766: 'Got uda_template_id for Header'||l_uda_template_id);
767: end if;
768:
769: l_uda_template_date := sysdate;
779: v_return_status,
780: v_error_message);
781:
782:
783: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
784: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
785: 'Return from Line po_uda_data_util.get_template_id '||v_return_status);
786: end if;
787:
780: v_error_message);
781:
782:
783: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
784: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
785: 'Return from Line po_uda_data_util.get_template_id '||v_return_status);
786: end if;
787:
788: IF ( v_return_status = 'E' ) THEN
794: UPDATE pon_auc_headers_interface
795: SET process_status = 'REJECTED'
796: WHERE interface_auction_header_id = p_interface_id;
797:
798: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
799: fnd_log.string(fnd_log.level_statement,
800: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
801: x_error_message);
802: end if;
795: SET process_status = 'REJECTED'
796: WHERE interface_auction_header_id = p_interface_id;
797:
798: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
799: fnd_log.string(fnd_log.level_statement,
800: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
801: x_error_message);
802: end if;
803:
802: end if;
803:
804: RETURN;
805: END IF;
806: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
807: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.Create_Draft_Neg_interface_pvt',
808: 'Got uda_template_id for Line '||l_line_uda_temp_id);
809: end if;
810:
803:
804: RETURN;
805: END IF;
806: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
807: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.Create_Draft_Neg_interface_pvt',
808: 'Got uda_template_id for Line '||l_line_uda_temp_id);
809: end if;
810:
811: /* Bug : 16690156 : Get STANDARD_FORM, DOCUMENT_FORMAT default values */
814: INTO l_standard_form, l_document_format
815: FROM po_print_form_formats
816: WHERE document_type = 'PO_SOL_STD_FORM' AND default_flag = 'Y' ;
817:
818: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
819: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.Create_Draft_Neg_interface_pvt',
820: 'Got default standard_form, document_format : l_standard_form '||l_standard_form||' l_document_format '||l_document_format);
821: end if;
822:
815: FROM po_print_form_formats
816: WHERE document_type = 'PO_SOL_STD_FORM' AND default_flag = 'Y' ;
817:
818: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
819: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.Create_Draft_Neg_interface_pvt',
820: 'Got default standard_form, document_format : l_standard_form '||l_standard_form||' l_document_format '||l_document_format);
821: end if;
822:
823: EXCEPTION
821: end if;
822:
823: EXCEPTION
824: WHEN No_Data_Found THEN
825: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
826: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.Create_Draft_Neg_interface_pvt',
827: 'Default values donot exist for standard form and document format');
828: end if;
829: l_standard_form := NULL;
822:
823: EXCEPTION
824: WHEN No_Data_Found THEN
825: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
826: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.Create_Draft_Neg_interface_pvt',
827: 'Default values donot exist for standard form and document format');
828: end if;
829: l_standard_form := NULL;
830: l_document_format := NULL;
963: --
964: --Copy Header Udas
965:
966: IF PON_CLM_UTIL_PKG.IS_DOCUMENT_FEDERAL(p_doc_type_id => v_doctype_id) = 1 THEN
967: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
968: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
969: 'Copy Header UDA from PO to Solicitation');
970: end if;
971: -- bug#9645160
964: --Copy Header Udas
965:
966: IF PON_CLM_UTIL_PKG.IS_DOCUMENT_FEDERAL(p_doc_type_id => v_doctype_id) = 1 THEN
967: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
968: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
969: 'Copy Header UDA from PO to Solicitation');
970: end if;
971: -- bug#9645160
972: PO_DOC_NUMBERING_PKG.DEFAULT_DOC_NUMBER_UDA
978: p_caller => 'SOL',
979: x_doc_number => clm_doc_number,
980: x_return_status => l_return_status);
981:
982: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
983: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_auction_interface_pkg.Create_Draft_Negotiation',
984: 'Defaulted Document Number '||clm_doc_number||' status '||l_return_status);
985: END IF;
986:
979: x_doc_number => clm_doc_number,
980: x_return_status => l_return_status);
981:
982: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
983: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_auction_interface_pkg.Create_Draft_Negotiation',
984: 'Defaulted Document Number '||clm_doc_number||' status '||l_return_status);
985: END IF;
986:
987: IF ( l_return_status = 'E' ) THEN
1023: UPDATE pon_auc_headers_interface
1024: SET process_status = 'REJECTED'
1025: WHERE interface_auction_header_id = p_interface_id;
1026:
1027: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1028: fnd_log.string(fnd_log.level_statement,
1029: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1030: x_error_message);
1031: end if;
1024: SET process_status = 'REJECTED'
1025: WHERE interface_auction_header_id = p_interface_id;
1026:
1027: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1028: fnd_log.string(fnd_log.level_statement,
1029: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1030: x_error_message);
1031: end if;
1032:
1031: end if;
1032:
1033: RETURN;
1034: END IF;
1035: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1036: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.Create_Draft_Neg_interface_pvt',
1037: 'Copy Header Uda Status '||v_return_status);
1038: end if;
1039: end if;
1032:
1033: RETURN;
1034: END IF;
1035: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1036: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.Create_Draft_Neg_interface_pvt',
1037: 'Copy Header Uda Status '||v_return_status);
1038: end if;
1039: end if;
1040: --
1038: end if;
1039: end if;
1040: --
1041:
1042: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1043: fnd_log.string(fnd_log.level_statement,
1044: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1045: 'Inserted recore into pon_auction_headers_all');
1046: end if;
1039: end if;
1040: --
1041:
1042: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1043: fnd_log.string(fnd_log.level_statement,
1044: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1045: 'Inserted recore into pon_auction_headers_all');
1046: end if;
1047:
1057:
1058: IF (l_is_super_large_neg = 'N') OR (l_is_super_large_neg = 'Y' AND p_is_concurrent_call = 'Y') THEN
1059: --{
1060: -- price break line setting, this should be called after header is inserted
1061: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1062: fnd_log.string(fnd_log.level_statement,
1063: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1064: 'calling PON_AUCTION_PKG.get_default_pb_settings with x_document_number : ' || x_document_number);
1065: end if;
1058: IF (l_is_super_large_neg = 'N') OR (l_is_super_large_neg = 'Y' AND p_is_concurrent_call = 'Y') THEN
1059: --{
1060: -- price break line setting, this should be called after header is inserted
1061: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1062: fnd_log.string(fnd_log.level_statement,
1063: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1064: 'calling PON_AUCTION_PKG.get_default_pb_settings with x_document_number : ' || x_document_number);
1065: end if;
1066:
1067: PON_AUCTION_PKG.get_default_pb_settings (x_document_number,
1068: v_price_break_type,
1069: v_price_break_neg_flag);
1070:
1071: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1072: fnd_log.string(fnd_log.level_statement,
1073: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1074: 'v_price_break_type : ' || v_price_break_type || '; v_price_break_neg_flag : ' || v_price_break_neg_flag);
1075: end if;
1068: v_price_break_type,
1069: v_price_break_neg_flag);
1070:
1071: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1072: fnd_log.string(fnd_log.level_statement,
1073: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1074: 'v_price_break_type : ' || v_price_break_type || '; v_price_break_neg_flag : ' || v_price_break_neg_flag);
1075: end if;
1076:
1078: IF (g_header_rec.origination_code <> 'CONTRACT') THEN
1079: -- Validate data in the PON_AUCTION_ITEM_PRICES_INTERFACE table
1080: v_debug_status := 'VALIDATE_ITEM' ;
1081:
1082: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1083: fnd_log.string(fnd_log.level_statement,
1084: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1085: 'validating PON_AUCTION_ITEM_PRICES_INTERFACE; calling val_auc_items_interface with p_interface_id : ' || p_interface_id);
1086: end if;
1079: -- Validate data in the PON_AUCTION_ITEM_PRICES_INTERFACE table
1080: v_debug_status := 'VALIDATE_ITEM' ;
1081:
1082: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1083: fnd_log.string(fnd_log.level_statement,
1084: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1085: 'validating PON_AUCTION_ITEM_PRICES_INTERFACE; calling val_auc_items_interface with p_interface_id : ' || p_interface_id);
1086: end if;
1087:
1098: UPDATE pon_auc_headers_interface
1099: SET process_status = 'REJECTED'
1100: WHERE interface_auction_header_id = p_interface_id;
1101:
1102: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1103: fnd_log.string(fnd_log.level_statement,
1104: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1105: 'error when validating PON_AUCTION_ITEM_PRICES_INTERFACE; x_error_message : ' || x_error_message);
1106: end if;
1099: SET process_status = 'REJECTED'
1100: WHERE interface_auction_header_id = p_interface_id;
1101:
1102: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1103: fnd_log.string(fnd_log.level_statement,
1104: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1105: 'error when validating PON_AUCTION_ITEM_PRICES_INTERFACE; x_error_message : ' || x_error_message);
1106: end if;
1107:
1109: END IF;-- error code not null
1110:
1111: -- Validate data in the PON_AUCTION_SHIPMENTS_INTERFACE table
1112:
1113: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1114: fnd_log.string(fnd_log.level_statement,
1115: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1116: 'validating PON_AUCTION_SHIPMENTS_INTERFACE; calling val_auc_shipments_interface with p_interface_id : ' || p_interface_id);
1117: end if;
1110:
1111: -- Validate data in the PON_AUCTION_SHIPMENTS_INTERFACE table
1112:
1113: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1114: fnd_log.string(fnd_log.level_statement,
1115: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1116: 'validating PON_AUCTION_SHIPMENTS_INTERFACE; calling val_auc_shipments_interface with p_interface_id : ' || p_interface_id);
1117: end if;
1118:
1128: UPDATE pon_auc_headers_interface
1129: SET process_status = 'REJECTED'
1130: WHERE interface_auction_header_id = p_interface_id;
1131:
1132: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1133: fnd_log.string(fnd_log.level_statement,
1134: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1135: 'error when validating PON_AUCTION_SHIPMENTS_INTERFACE; x_error_message : ' || x_error_message);
1136: end if;
1129: SET process_status = 'REJECTED'
1130: WHERE interface_auction_header_id = p_interface_id;
1131:
1132: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1133: fnd_log.string(fnd_log.level_statement,
1134: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1135: 'error when validating PON_AUCTION_SHIPMENTS_INTERFACE; x_error_message : ' || x_error_message);
1136: end if;
1137:
1138: RETURN;
1139: END IF;-- error code not null
1140: END IF; -- end if (g_header_rec.origination_code <> 'CONTRACT')
1141:
1142: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1143: fnd_log.string(fnd_log.level_statement,
1144: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1145: 'validating PON_ATTACHMENTS_INTERFACE; calling val_attachments_interface with p_interface_id : ' || p_interface_id);
1146: end if;
1139: END IF;-- error code not null
1140: END IF; -- end if (g_header_rec.origination_code <> 'CONTRACT')
1141:
1142: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1143: fnd_log.string(fnd_log.level_statement,
1144: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1145: 'validating PON_ATTACHMENTS_INTERFACE; calling val_attachments_interface with p_interface_id : ' || p_interface_id);
1146: end if;
1147:
1158: UPDATE pon_auc_headers_interface
1159: SET process_status = 'REJECTED'
1160: WHERE interface_auction_header_id = p_interface_id;
1161:
1162: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1163: fnd_log.string(fnd_log.level_statement,
1164: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1165: 'error when validating PON_ATTACHMENTS_INTERFACE; x_error_message : ' || x_error_message);
1166: end if;
1159: SET process_status = 'REJECTED'
1160: WHERE interface_auction_header_id = p_interface_id;
1161:
1162: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1163: fnd_log.string(fnd_log.level_statement,
1164: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1165: 'error when validating PON_ATTACHMENTS_INTERFACE; x_error_message : ' || x_error_message);
1166: end if;
1167:
1167:
1168: RETURN;
1169: END IF;
1170:
1171: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1172: fnd_log.string(fnd_log.level_statement,
1173: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1174: 'getting category id for VENDOR attachments');
1175: end if;
1168: RETURN;
1169: END IF;
1170:
1171: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1172: fnd_log.string(fnd_log.level_statement,
1173: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1174: 'getting category id for VENDOR attachments');
1175: end if;
1176:
1185: WHEN no_data_found THEN
1186: X_RESULT := 'FAILURE';
1187: X_ERROR_CODE := 'CREATE_DRAFT:ATTACHMENT_CATEGORY_ID';
1188: X_ERROR_MESSAGE := 'The attachment category id for name=VENDOR could not be found';
1189: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1190: fnd_log.string(fnd_log.level_statement,
1191: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1192: 'error when getting category id for VENDOR attachments; x_error_message : ' || X_ERROR_MESSAGE);
1193: end if;
1186: X_RESULT := 'FAILURE';
1187: X_ERROR_CODE := 'CREATE_DRAFT:ATTACHMENT_CATEGORY_ID';
1188: X_ERROR_MESSAGE := 'The attachment category id for name=VENDOR could not be found';
1189: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1190: fnd_log.string(fnd_log.level_statement,
1191: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1192: 'error when getting category id for VENDOR attachments; x_error_message : ' || X_ERROR_MESSAGE);
1193: end if;
1194:
1194:
1195: RETURN;
1196: END;
1197:
1198: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1199: fnd_log.string(fnd_log.level_statement,
1200: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1201: 'getting UOM for amount based line types');
1202: end if;
1195: RETURN;
1196: END;
1197:
1198: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1199: fnd_log.string(fnd_log.level_statement,
1200: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1201: 'getting UOM for amount based line types');
1202: end if;
1203:
1237:
1238: SELECT nvl(max(interface_line_number),0) INTO l_max_line_number FROM pon_auc_items_interface
1239: WHERE interface_auction_header_id = p_interface_id;
1240:
1241: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1242: fnd_log.string(fnd_log.level_statement,
1243: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1244: 'Max lines to copy (l_max_line_number) : ' || l_max_line_number);
1245: end if;
1238: SELECT nvl(max(interface_line_number),0) INTO l_max_line_number FROM pon_auc_items_interface
1239: WHERE interface_auction_header_id = p_interface_id;
1240:
1241: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1242: fnd_log.string(fnd_log.level_statement,
1243: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1244: 'Max lines to copy (l_max_line_number) : ' || l_max_line_number);
1245: end if;
1246:
1251:
1252: -- Get the batch size
1253: l_batch_size := PON_LARGE_AUCTION_UTIL_PKG.BATCH_SIZE;
1254:
1255: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1256: fnd_log.string(fnd_log.level_statement,
1257: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1258: 'Starting batching with batchsize (l_batch_size) : ' || l_batch_size);
1259: end if;
1252: -- Get the batch size
1253: l_batch_size := PON_LARGE_AUCTION_UTIL_PKG.BATCH_SIZE;
1254:
1255: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1256: fnd_log.string(fnd_log.level_statement,
1257: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1258: 'Starting batching with batchsize (l_batch_size) : ' || l_batch_size);
1259: end if;
1260:
1271: END IF;
1272:
1273: WHILE (l_batch_start <= l_max_line_number) LOOP
1274:
1275: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1276: fnd_log.string(fnd_log.level_statement,
1277: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1278: 'Batching the line_numbers in the range '|| l_batch_start ||' to '|| l_batch_end ||' (inclusive)');
1279: end if;
1272:
1273: WHILE (l_batch_start <= l_max_line_number) LOOP
1274:
1275: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1276: fnd_log.string(fnd_log.level_statement,
1277: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1278: 'Batching the line_numbers in the range '|| l_batch_start ||' to '|| l_batch_end ||' (inclusive)');
1279: end if;
1280:
1284: -- Before that prepare the interface table. This means updating some internal
1285: -- columns in the interface item level columns.
1286: v_debug_status := 'INSERT_PON_AUC_ITEMS';
1287:
1288: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1289: fnd_log.string(fnd_log.level_statement,
1290: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1291: 'Handling Item level data; updating the pon_auc_items_interface table with the correct order_type_lookup_code values');
1292: end if;
1285: -- columns in the interface item level columns.
1286: v_debug_status := 'INSERT_PON_AUC_ITEMS';
1287:
1288: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1289: fnd_log.string(fnd_log.level_statement,
1290: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1291: 'Handling Item level data; updating the pon_auc_items_interface table with the correct order_type_lookup_code values');
1292: end if;
1293:
1302: WHERE paii.interface_auction_header_id = p_interface_id
1303: AND interface_line_number >= l_batch_start
1304: AND interface_line_number <= l_batch_end;
1305:
1306: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1307: fnd_log.string(fnd_log.level_statement,
1308: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1309: 'inserting into pon_auction_item_prices_all for auction_header_id (x_document_number) : ' || x_document_number);
1310: end if;
1303: AND interface_line_number >= l_batch_start
1304: AND interface_line_number <= l_batch_end;
1305:
1306: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1307: fnd_log.string(fnd_log.level_statement,
1308: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1309: 'inserting into pon_auction_item_prices_all for auction_header_id (x_document_number) : ' || x_document_number);
1310: end if;
1311:
1445:
1446:
1447: -- Update the shipments flag based on if their are shipments
1448:
1449: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1450: fnd_log.string(fnd_log.level_statement,
1451: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1452: ' Updating the shipments flag based on if there are shipments');
1453: end if;
1446:
1447: -- Update the shipments flag based on if their are shipments
1448:
1449: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1450: fnd_log.string(fnd_log.level_statement,
1451: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1452: ' Updating the shipments flag based on if there are shipments');
1453: end if;
1454:
1463: AND auction_header_id = x_document_number;
1464:
1465: -- ADDED FOR SERVICES PROCUREMENT PROJECT
1466: -- Update the price differntials flag based on if their are price differentials at item level
1467: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1468: fnd_log.string(fnd_log.level_statement,
1469: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1470: ' Updating the price differntials flag based on if their are price differentials at item level');
1471: end if;
1464:
1465: -- ADDED FOR SERVICES PROCUREMENT PROJECT
1466: -- Update the price differntials flag based on if their are price differentials at item level
1467: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1468: fnd_log.string(fnd_log.level_statement,
1469: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1470: ' Updating the price differntials flag based on if their are price differentials at item level');
1471: end if;
1472:
1494: -- FROM pon_attachments_interface
1495: -- WHERE interface_auction_header_id = p_interface_id
1496: -- AND interface_line_number IS NOT NULL);
1497:
1498: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1499: fnd_log.string(fnd_log.level_statement,
1500: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1501: ' CAlling Add_Catalog_Descriptors with x_document_number : ' || x_document_number || '; p_interface_id : ' || p_interface_id);
1502: end if;
1495: -- WHERE interface_auction_header_id = p_interface_id
1496: -- AND interface_line_number IS NOT NULL);
1497:
1498: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1499: fnd_log.string(fnd_log.level_statement,
1500: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1501: ' CAlling Add_Catalog_Descriptors with x_document_number : ' || x_document_number || '; p_interface_id : ' || p_interface_id);
1502: end if;
1503:
1510: --
1511: --Copy Header Udas
1512:
1513: IF PON_CLM_UTIL_PKG.IS_DOCUMENT_FEDERAL(p_doc_type_id => v_doctype_id) = 1 THEN
1514: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1515: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1516: 'Copy Line UDA from PO to Solicitation');
1517: end if;
1518:
1511: --Copy Header Udas
1512:
1513: IF PON_CLM_UTIL_PKG.IS_DOCUMENT_FEDERAL(p_doc_type_id => v_doctype_id) = 1 THEN
1514: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1515: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1516: 'Copy Line UDA from PO to Solicitation');
1517: end if;
1518:
1519: -- Insert price breaks information into the transaction table
1569: WHERE auction_header_id = x_document_number
1570: AND line_number = l_lineno_list(i);
1571: EXCEPTION
1572: WHEN OTHERS THEN
1573: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1574: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1575: 'Exception in updating complex pricing extended price ');
1576: END IF;
1577: END;
1570: AND line_number = l_lineno_list(i);
1571: EXCEPTION
1572: WHEN OTHERS THEN
1573: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1574: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1575: 'Exception in updating complex pricing extended price ');
1576: END IF;
1577: END;
1578: ELSE
1612: v_msg_count,
1613: v_msg_data);
1614:
1615: exit when ( v_return_status = 'E');
1616: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1617: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.Create_Draft_Neg_interface_pvt',
1618: 'Copy Shipment Uda Status '||v_return_status||' '||l_lineloc_list(j));
1619: end if;
1620: end loop;
1613: v_msg_data);
1614:
1615: exit when ( v_return_status = 'E');
1616: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1617: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.Create_Draft_Neg_interface_pvt',
1618: 'Copy Shipment Uda Status '||v_return_status||' '||l_lineloc_list(j));
1619: end if;
1620: end loop;
1621: END IF;
1629: UPDATE pon_auc_headers_interface
1630: SET process_status = 'REJECTED'
1631: WHERE interface_auction_header_id = p_interface_id;
1632:
1633: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1634: fnd_log.string(fnd_log.level_statement,
1635: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1636: x_error_message);
1637: end if;
1630: SET process_status = 'REJECTED'
1631: WHERE interface_auction_header_id = p_interface_id;
1632:
1633: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1634: fnd_log.string(fnd_log.level_statement,
1635: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1636: x_error_message);
1637: end if;
1638:
1637: end if;
1638:
1639: RETURN;
1640: END IF;
1641: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1642: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.Create_Draft_Neg_interface_pvt',
1643: 'Copy Line Uda Status '||v_return_status||' '||l_lineno_list(i));
1644: end if;
1645: end loop;
1638:
1639: RETURN;
1640: END IF;
1641: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1642: fnd_log.string(fnd_log.level_statement,'pon.plsql.pon_sourcing_openapi_grp.Create_Draft_Neg_interface_pvt',
1643: 'Copy Line Uda Status '||v_return_status||' '||l_lineno_list(i));
1644: end if;
1645: end loop;
1646: end if;
1655: -- all price breaks that differ only in quantity, ship_to_location_id
1656: -- and the ship_to_organization_id column values. Hence we apply a group by
1657: -- clause
1658:
1659: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1660: fnd_log.string(fnd_log.level_statement,
1661: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1662: ' copying price breaks and price break level price differentials' );
1663: end if;
1656: -- and the ship_to_organization_id column values. Hence we apply a group by
1657: -- clause
1658:
1659: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1660: fnd_log.string(fnd_log.level_statement,
1661: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1662: ' copying price breaks and price break level price differentials' );
1663: end if;
1664:
1719: -- Insert price differentials information into the transaction table
1720: -- at item level
1721: v_debug_status := 'INSERT_PRICE_DIFFERENTIALS_ITEM';
1722:
1723: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1724: fnd_log.string(fnd_log.level_statement,
1725: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1726: 'Inserting price differentials information into the transaction table at item level' );
1727: end if;
1720: -- at item level
1721: v_debug_status := 'INSERT_PRICE_DIFFERENTIALS_ITEM';
1722:
1723: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1724: fnd_log.string(fnd_log.level_statement,
1725: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1726: 'Inserting price differentials information into the transaction table at item level' );
1727: end if;
1728:
1767:
1768: -- Insert price differentials information into the transaction table
1769: -- at shipment level
1770:
1771: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1772: fnd_log.string(fnd_log.level_statement,
1773: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1774: 'Inserting price differentials information into the transaction table at shipment level' );
1775: end if;
1768: -- Insert price differentials information into the transaction table
1769: -- at shipment level
1770:
1771: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1772: fnd_log.string(fnd_log.level_statement,
1773: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1774: 'Inserting price differentials information into the transaction table at shipment level' );
1775: end if;
1776:
1809:
1810: -- Copy over the attachments from the PON_ATTACHMENTS_INTERFACE table
1811: v_debug_status := 'INSERT_LINE_ATTACHMENTS';
1812:
1813: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1814: fnd_log.string(fnd_log.level_statement,
1815: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1816: 'Copying over the (Line) attachments from the PON_ATTACHMENTS_INTERFACE table' );
1817: end if;
1810: -- Copy over the attachments from the PON_ATTACHMENTS_INTERFACE table
1811: v_debug_status := 'INSERT_LINE_ATTACHMENTS';
1812:
1813: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1814: fnd_log.string(fnd_log.level_statement,
1815: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1816: 'Copying over the (Line) attachments from the PON_ATTACHMENTS_INTERFACE table' );
1817: end if;
1818:
1858:
1859: --Update the attachment_flag in pon_auction_item_prices_all
1860: --table for all the items that have attachments.
1861:
1862: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1863: fnd_log.string(fnd_log.level_statement,
1864: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1865: 'Updating the attachment_flag in pon_auction_item_prices_all table for all the items that have attachments.' );
1866: end if;
1859: --Update the attachment_flag in pon_auction_item_prices_all
1860: --table for all the items that have attachments.
1861:
1862: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1863: fnd_log.string(fnd_log.level_statement,
1864: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1865: 'Updating the attachment_flag in pon_auction_item_prices_all table for all the items that have attachments.' );
1866: end if;
1867:
1881:
1882: --commit the DML transactions of this batch only if it is a concurrent call
1883:
1884: IF (p_is_concurrent_call = 'Y') THEN
1885: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1886: fnd_log.string(fnd_log.level_statement,
1887: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1888: 'This being a concurrent call, the batch is being committed( from line numbers ' || l_batch_start || ' to ' || l_batch_end);
1889: end if;
1882: --commit the DML transactions of this batch only if it is a concurrent call
1883:
1884: IF (p_is_concurrent_call = 'Y') THEN
1885: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1886: fnd_log.string(fnd_log.level_statement,
1887: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1888: 'This being a concurrent call, the batch is being committed( from line numbers ' || l_batch_start || ' to ' || l_batch_end);
1889: end if;
1890:
1899: ELSE
1900: l_batch_end := l_batch_end + l_batch_size;
1901: END IF;
1902:
1903: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1904: fnd_log.string(fnd_log.level_statement,
1905: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1906: 'Computed the window for next batch to be ' || l_batch_start || ' to ' || l_batch_end || ' (inclusive) ' );
1907: end if;
1900: l_batch_end := l_batch_end + l_batch_size;
1901: END IF;
1902:
1903: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1904: fnd_log.string(fnd_log.level_statement,
1905: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1906: 'Computed the window for next batch to be ' || l_batch_start || ' to ' || l_batch_end || ' (inclusive) ' );
1907: end if;
1908:
1912:
1913: ----------------------------------------------------------------------------------------------------
1914: --BATCHING ENDS HERE--
1915: ----------------------------------------------------------------------------------------------------
1916: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1917: fnd_log.string(fnd_log.level_statement,
1918: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1919: ' Before updating exhibits, check if elins are enabled or not');
1920: end if;
1913: ----------------------------------------------------------------------------------------------------
1914: --BATCHING ENDS HERE--
1915: ----------------------------------------------------------------------------------------------------
1916: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1917: fnd_log.string(fnd_log.level_statement,
1918: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1919: ' Before updating exhibits, check if elins are enabled or not');
1920: end if;
1921: /* Bug : 16690958 : Update exhibit_number field for the lines */
1920: end if;
1921: /* Bug : 16690958 : Update exhibit_number field for the lines */
1922: IF PON_EXHIBITS_PKG.IS_EXHIBITS_ENABLED(g_header_rec.org_id, v_doctype_id) = 'Y' THEN
1923:
1924: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1925: fnd_log.string(fnd_log.level_statement,
1926: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1927: ' Before updating exhibit numbers');
1928: end if;
1921: /* Bug : 16690958 : Update exhibit_number field for the lines */
1922: IF PON_EXHIBITS_PKG.IS_EXHIBITS_ENABLED(g_header_rec.org_id, v_doctype_id) = 'Y' THEN
1923:
1924: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1925: fnd_log.string(fnd_log.level_statement,
1926: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1927: ' Before updating exhibit numbers');
1928: end if;
1929:
1938:
1939: IF PON_EXHIBITS_PKG.IS_EXHIBITS_ENABLED(g_header_rec.org_id, v_doctype_id) = 'Y'
1940: OR PON_EXHIBITS_PKG.IS_CDRLS_ENABLED(g_header_rec.org_id, v_doctype_id) = 'Y' THEN
1941:
1942: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1943: fnd_log.string(fnd_log.level_statement,
1944: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1945: ' Insert exhibit details into pon_auction_exhibit_details');
1946: end if;
1939: IF PON_EXHIBITS_PKG.IS_EXHIBITS_ENABLED(g_header_rec.org_id, v_doctype_id) = 'Y'
1940: OR PON_EXHIBITS_PKG.IS_CDRLS_ENABLED(g_header_rec.org_id, v_doctype_id) = 'Y' THEN
1941:
1942: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1943: fnd_log.string(fnd_log.level_statement,
1944: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1945: ' Insert exhibit details into pon_auction_exhibit_details');
1946: end if;
1947:
1987:
1988: -- Copy over the attachments from the PON_ATTACHMENTS_INTERFACE table
1989: v_debug_status := 'INSERT_HEADER_ATTACHMENTS';
1990:
1991: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1992: fnd_log.string(fnd_log.level_statement,
1993: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1994: 'Copying over the (header)attachments from the PON_ATTACHMENTS_INTERFACE table' );
1995: end if;
1988: -- Copy over the attachments from the PON_ATTACHMENTS_INTERFACE table
1989: v_debug_status := 'INSERT_HEADER_ATTACHMENTS';
1990:
1991: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1992: fnd_log.string(fnd_log.level_statement,
1993: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1994: 'Copying over the (header)attachments from the PON_ATTACHMENTS_INTERFACE table' );
1995: end if;
1996:
2039: v_debug_status := 'INSERT_BIDDERS_CURR';
2040:
2041: IF (v_set_as_bidders_curr = 'Y' AND v_blanket_bidders_curr = 'Y') THEN
2042:
2043: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2044: fnd_log.string(fnd_log.level_statement,
2045: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2046: 'Copying over the currency into PON_AUC_CURR_INFO table' );
2047: end if;
2040:
2041: IF (v_set_as_bidders_curr = 'Y' AND v_blanket_bidders_curr = 'Y') THEN
2042:
2043: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2044: fnd_log.string(fnd_log.level_statement,
2045: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2046: 'Copying over the currency into PON_AUC_CURR_INFO table' );
2047: end if;
2048:
2076: -- Add the supplier information on the blanket to the PON_BIDDING_PARTIES
2077: -- transaction table.
2078: v_debug_status := 'INSERT_SUPPLIER_INFO';
2079:
2080: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2081: fnd_log.string(fnd_log.level_statement,
2082: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2083: 'Addding the supplier information on the blanket to the PON_BIDDING_PARTIES; selectiong supplier_site_id' );
2084: end if;
2077: -- transaction table.
2078: v_debug_status := 'INSERT_SUPPLIER_INFO';
2079:
2080: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2081: fnd_log.string(fnd_log.level_statement,
2082: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2083: 'Addding the supplier information on the blanket to the PON_BIDDING_PARTIES; selectiong supplier_site_id' );
2084: end if;
2085:
2104: v_supplier_site_code := '-1';
2105: end if;
2106:
2107: --lxchen
2108: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2109: fnd_log.string(fnd_log.level_statement,
2110: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2111: 'Getting supplier information' );
2112: end if;
2105: end if;
2106:
2107: --lxchen
2108: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2109: fnd_log.string(fnd_log.level_statement,
2110: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2111: 'Getting supplier information' );
2112: end if;
2113:
2129: UPDATE pon_auc_headers_interface
2130: SET process_status = 'REJECTED'
2131: WHERE interface_auction_header_id = p_interface_id;
2132:
2133: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2134: fnd_log.string(fnd_log.level_statement,
2135: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2136: 'Error in retrieving supplier information for supplier_id : ' || g_header_rec.supplier_id );
2137: end if;
2130: SET process_status = 'REJECTED'
2131: WHERE interface_auction_header_id = p_interface_id;
2132:
2133: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2134: fnd_log.string(fnd_log.level_statement,
2135: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2136: 'Error in retrieving supplier information for supplier_id : ' || g_header_rec.supplier_id );
2137: end if;
2138:
2138:
2139: RETURN;
2140: END IF;
2141:
2142: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2143: fnd_log.string(fnd_log.level_statement,
2144: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2145: 'Inserting record into PON_BIDDING_PARTIES' );
2146: end if;
2139: RETURN;
2140: END IF;
2141:
2142: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2143: fnd_log.string(fnd_log.level_statement,
2144: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2145: 'Inserting record into PON_BIDDING_PARTIES' );
2146: end if;
2147:
2189: --
2190: --If it's a super large auction, then raise a concurrent request here
2191: --to handle the children
2192: --
2193: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2194: fnd_log.string(fnd_log.level_statement,
2195: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2196: 'Is this auction super large? (l_is_super_large_neg) : ' || l_is_super_large_neg);
2197: end if;
2190: --If it's a super large auction, then raise a concurrent request here
2191: --to handle the children
2192: --
2193: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2194: fnd_log.string(fnd_log.level_statement,
2195: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2196: 'Is this auction super large? (l_is_super_large_neg) : ' || l_is_super_large_neg);
2197: end if;
2198:
2196: 'Is this auction super large? (l_is_super_large_neg) : ' || l_is_super_large_neg);
2197: end if;
2198:
2199: IF (l_is_super_large_neg = 'Y') THEN
2200: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2201: fnd_log.string(fnd_log.level_statement,
2202: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2203: 'Raising a concurrent request here');
2204: end if;
2197: end if;
2198:
2199: IF (l_is_super_large_neg = 'Y') THEN
2200: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2201: fnd_log.string(fnd_log.level_statement,
2202: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2203: 'Raising a concurrent request here');
2204: end if;
2205:
2214: argument2 => to_char(x_document_number),
2215: argument3 => FND_GLOBAL.USER_NAME
2216: );
2217:
2218: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2219: fnd_log.string(fnd_log.level_statement,
2220: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2221: 'Concurrent request successfully raised; Request id : ' || l_request_id ||' ; setting the request information into pon_auction_headers_all');
2222: end if;
2215: argument3 => FND_GLOBAL.USER_NAME
2216: );
2217:
2218: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2219: fnd_log.string(fnd_log.level_statement,
2220: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2221: 'Concurrent request successfully raised; Request id : ' || l_request_id ||' ; setting the request information into pon_auction_headers_all');
2222: end if;
2223:
2238: END IF; --IF (p_is_concurrent_call = 'N')
2239:
2240: -----------------------------------------------------------------------------
2241: -- Set the result to success and unset any variables required.
2242: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2243: fnd_log.string(fnd_log.level_statement,
2244: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2245: 'Setting the result to success');
2246: end if;
2239:
2240: -----------------------------------------------------------------------------
2241: -- Set the result to success and unset any variables required.
2242: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2243: fnd_log.string(fnd_log.level_statement,
2244: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2245: 'Setting the result to success');
2246: end if;
2247:
2257: -- from a concurrent program
2258: --
2259: IF (l_is_super_large_neg = 'N') OR (l_is_super_large_neg = 'Y' AND p_is_concurrent_call = 'Y') THEN
2260:
2261: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2262: fnd_log.string(fnd_log.level_statement,
2263: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2264: 'updating the process_status in pon_auc_headers_interface to ACCEPTED');
2265: end if;
2258: --
2259: IF (l_is_super_large_neg = 'N') OR (l_is_super_large_neg = 'Y' AND p_is_concurrent_call = 'Y') THEN
2260:
2261: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2262: fnd_log.string(fnd_log.level_statement,
2263: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2264: 'updating the process_status in pon_auc_headers_interface to ACCEPTED');
2265: end if;
2266:
2267: UPDATE pon_auc_headers_interface
2268: SET process_status = 'ACCEPTED'
2269: WHERE interface_auction_header_id = p_interface_id;
2270:
2271: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2272: fnd_log.string(fnd_log.level_statement,
2273: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2274: 'updating the complete_flag in pon_auc_headers_all to Y');
2275: end if;
2268: SET process_status = 'ACCEPTED'
2269: WHERE interface_auction_header_id = p_interface_id;
2270:
2271: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2272: fnd_log.string(fnd_log.level_statement,
2273: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2274: 'updating the complete_flag in pon_auc_headers_all to Y');
2275: end if;
2276:
2293:
2294: --call commit. This is for TEST purposes only
2295: --COMMIT;
2296:
2297: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2298: fnd_log.string(fnd_log.level_statement,
2299: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2300: 'returning with output -- '||
2301: 'x_document_number : '|| x_document_number ||
2294: --call commit. This is for TEST purposes only
2295: --COMMIT;
2296:
2297: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2298: fnd_log.string(fnd_log.level_statement,
2299: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2300: 'returning with output -- '||
2301: 'x_document_number : '|| x_document_number ||
2302: 'x_document_url : ' || x_document_url ||
2455: BEGIN
2456:
2457: v_debug_status := 'VALIDATING_ITEMS';
2458:
2459: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2460: fnd_log.string(fnd_log.level_statement,
2461: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2462: 'Validating the lines in the range ; validating item org_id');
2463: end if;
2456:
2457: v_debug_status := 'VALIDATING_ITEMS';
2458:
2459: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2460: fnd_log.string(fnd_log.level_statement,
2461: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2462: 'Validating the lines in the range ; validating item org_id');
2463: end if;
2464:
2470: AND org_id <> g_header_rec.org_id;
2471:
2472: IF (v_invalid_item_recs IS NOT NULL ) THEN
2473:
2474: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2475: fnd_log.string(fnd_log.level_statement,
2476: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2477: 'Error in validating item org_id');
2478: end if;
2471:
2472: IF (v_invalid_item_recs IS NOT NULL ) THEN
2473:
2474: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2475: fnd_log.string(fnd_log.level_statement,
2476: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2477: 'Error in validating item org_id');
2478: end if;
2479:
2484: END IF;
2485:
2486: -- Validate origination_code is BLANKET
2487:
2488: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2489: fnd_log.string(fnd_log.level_statement,
2490: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2491: 'Validating origination_code is BLANKET');
2492: end if;
2485:
2486: -- Validate origination_code is BLANKET
2487:
2488: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2489: fnd_log.string(fnd_log.level_statement,
2490: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2491: 'Validating origination_code is BLANKET');
2492: end if;
2493:
2499: AND origination_code <> 'BLANKET';
2500:
2501: IF (v_invalid_item_recs IS NOT NULL ) THEN
2502:
2503: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2504: fnd_log.string(fnd_log.level_statement,
2505: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2506: 'Error in validating origination_code is BLANKET');
2507: end if;
2500:
2501: IF (v_invalid_item_recs IS NOT NULL ) THEN
2502:
2503: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2504: fnd_log.string(fnd_log.level_statement,
2505: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2506: 'Error in validating origination_code is BLANKET');
2507: end if;
2508:
2513: END if;
2514:
2515: -- Validate that price_break_type values are CUMULATIVE, NON-CUMMULATIVE or null
2516:
2517: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2518: fnd_log.string(fnd_log.level_statement,
2519: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2520: 'Validating that price_break_type values are CUMULATIVE, NON-CUMMULATIVE or null');
2521: end if;
2514:
2515: -- Validate that price_break_type values are CUMULATIVE, NON-CUMMULATIVE or null
2516:
2517: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2518: fnd_log.string(fnd_log.level_statement,
2519: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2520: 'Validating that price_break_type values are CUMULATIVE, NON-CUMMULATIVE or null');
2521: end if;
2522:
2528: AND decode(price_break_type, null, 'NONE', 'NON CUMULATIVE', 'NON-CUMULATIVE', price_break_type) NOT IN ('CUMULATIVE', 'NON-CUMULATIVE','NONE');
2529:
2530: IF (v_invalid_item_recs IS NOT NULL ) THEN
2531:
2532: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2533: fnd_log.string(fnd_log.level_statement,
2534: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2535: 'Error in validating that price_break_type values are CUMULATIVE, NON-CUMMULATIVE or null');
2536: end if;
2529:
2530: IF (v_invalid_item_recs IS NOT NULL ) THEN
2531:
2532: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2533: fnd_log.string(fnd_log.level_statement,
2534: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2535: 'Error in validating that price_break_type values are CUMULATIVE, NON-CUMMULATIVE or null');
2536: end if;
2537:
2540:
2541: RETURN;
2542: END if;
2543:
2544: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2545: fnd_log.string(fnd_log.level_statement,
2546: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2547: 'Returning with x_error_code : ' || x_error_code || '; x_error_message : ' || x_error_message);
2548: end if;
2541: RETURN;
2542: END if;
2543:
2544: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2545: fnd_log.string(fnd_log.level_statement,
2546: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2547: 'Returning with x_error_code : ' || x_error_code || '; x_error_message : ' || x_error_message);
2548: end if;
2549:
2578: v_shipment_rec VARCHAR2(40);
2579:
2580: BEGIN
2581:
2582: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2583: fnd_log.string(fnd_log.level_statement,
2584: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2585: 'Entered the procedure');
2586: end if;
2579:
2580: BEGIN
2581:
2582: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2583: fnd_log.string(fnd_log.level_statement,
2584: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2585: 'Entered the procedure');
2586: end if;
2587:
2594: AND org_id <> g_header_rec.org_id;
2595:
2596: IF (v_shipment_rec IS NOT null) THEN
2597:
2598: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2599: fnd_log.string(fnd_log.level_statement,
2600: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2601: 'Error in validating item org_id');
2602: end if;
2595:
2596: IF (v_shipment_rec IS NOT null) THEN
2597:
2598: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2599: fnd_log.string(fnd_log.level_statement,
2600: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2601: 'Error in validating item org_id');
2602: end if;
2603:
2608: END IF;
2609:
2610: -- Validate the shipment type columns have correct values
2611:
2612: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2613: fnd_log.string(fnd_log.level_statement,
2614: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2615: 'Validating the shipment type columns have correct values');
2616: end if;
2609:
2610: -- Validate the shipment type columns have correct values
2611:
2612: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2613: fnd_log.string(fnd_log.level_statement,
2614: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2615: 'Validating the shipment type columns have correct values');
2616: end if;
2617:
2735:
2736: EXCEPTION
2737:
2738: WHEN too_many_rows THEN
2739: IF ( FND_LOG.level_error >= fnd_log.g_current_runtime_level) then
2740: FND_LOG.string(log_level => FND_LOG.level_error,
2741: module => ' get_trading_partner_info ',
2742: message => ' Error while fetching UserName from fnd_user '|| SQLERRM);
2743: END IF;
2736: EXCEPTION
2737:
2738: WHEN too_many_rows THEN
2739: IF ( FND_LOG.level_error >= fnd_log.g_current_runtime_level) then
2740: FND_LOG.string(log_level => FND_LOG.level_error,
2741: module => ' get_trading_partner_info ',
2742: message => ' Error while fetching UserName from fnd_user '|| SQLERRM);
2743: END IF;
2744:
2920: WHEN OTHERS THEN
2921: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2922: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2923: FND_MSG_PUB.add_exc_msg(l_pkg_name, l_api_name,SQLERRM);
2924: IF ( FND_LOG.level_unexpected >= fnd_log.g_current_runtime_level) then
2925: FND_LOG.string(log_level => FND_LOG.level_unexpected
2926: ,module => l_pkg_name ||'.'||l_api_name
2927: ,message => SQLERRM);
2928: END IF;
2921: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2922: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2923: FND_MSG_PUB.add_exc_msg(l_pkg_name, l_api_name,SQLERRM);
2924: IF ( FND_LOG.level_unexpected >= fnd_log.g_current_runtime_level) then
2925: FND_LOG.string(log_level => FND_LOG.level_unexpected
2926: ,module => l_pkg_name ||'.'||l_api_name
2927: ,message => SQLERRM);
2928: END IF;
2929: END IF;
3010: when others then
3011: x_return_status := FND_API.G_RET_STS_ERROR;
3012: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3013: FND_MSG_PUB.add_exc_msg(l_pkg_name, l_api_name, SQLERRM);
3014: IF ( FND_LOG.level_error >= fnd_log.g_current_runtime_level) then
3015: FND_LOG.string(log_level => FND_LOG.level_error,
3016: module => l_pkg_name || '.' || l_api_name,
3017: message => 'Negotiation ' || p_auction_header_id || ' and line ' || p_auction_line_number || ' not found. ' || SQLERRM);
3018: END IF;
3011: x_return_status := FND_API.G_RET_STS_ERROR;
3012: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3013: FND_MSG_PUB.add_exc_msg(l_pkg_name, l_api_name, SQLERRM);
3014: IF ( FND_LOG.level_error >= fnd_log.g_current_runtime_level) then
3015: FND_LOG.string(log_level => FND_LOG.level_error,
3016: module => l_pkg_name || '.' || l_api_name,
3017: message => 'Negotiation ' || p_auction_header_id || ' and line ' || p_auction_line_number || ' not found. ' || SQLERRM);
3018: END IF;
3019: END IF;
3028: when others then
3029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3030: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3031: FND_MSG_PUB.add_exc_msg(l_pkg_name, l_api_name, SQLERRM);
3032: IF (FND_LOG.level_unexpected >= fnd_log.g_current_runtime_level) then
3033: FND_LOG.string(log_level => FND_LOG.level_unexpected,
3034: module => l_pkg_name ||'.'|| l_api_name,
3035: message => SQLERRM);
3036: END IF;
3029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3030: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3031: FND_MSG_PUB.add_exc_msg(l_pkg_name, l_api_name, SQLERRM);
3032: IF (FND_LOG.level_unexpected >= fnd_log.g_current_runtime_level) then
3033: FND_LOG.string(log_level => FND_LOG.level_unexpected,
3034: module => l_pkg_name ||'.'|| l_api_name,
3035: message => SQLERRM);
3036: END IF;
3037: END IF;
3191: PROCEDURE INITIALISE_GLOBALS(p_interface_id IN NUMBER)
3192: is
3193: BEGIN
3194:
3195: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3196: fnd_log.string(fnd_log.level_statement,
3197: 'pon.plsql.pon_sourcing_openapi_grp.initialise_globals',
3198: 'Entered the procedure; initialising g_header_rec');
3199: end if;
3192: is
3193: BEGIN
3194:
3195: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3196: fnd_log.string(fnd_log.level_statement,
3197: 'pon.plsql.pon_sourcing_openapi_grp.initialise_globals',
3198: 'Entered the procedure; initialising g_header_rec');
3199: end if;
3200:
3202: SELECT * INTO g_header_rec
3203: FROM pon_auc_headers_interface
3204: WHERE interface_auction_header_id = p_interface_id;
3205:
3206: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3207: fnd_log.string(fnd_log.level_statement,
3208: 'pon.plsql.pon_sourcing_openapi_grp.initialise_globals',
3209: 'initialised g_header_rec; Entered the procedure');
3210: end if;
3203: FROM pon_auc_headers_interface
3204: WHERE interface_auction_header_id = p_interface_id;
3205:
3206: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3207: fnd_log.string(fnd_log.level_statement,
3208: 'pon.plsql.pon_sourcing_openapi_grp.initialise_globals',
3209: 'initialised g_header_rec; Entered the procedure');
3210: end if;
3211:
3235: dummy NUMBER;
3236: l_message_suffix varchar2(1);
3237:
3238: BEGIN
3239: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3240: fnd_log.string(fnd_log.level_statement,
3241: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3242: 'This is a concurrent program; Entered the procedure');
3243: end if;
3236: l_message_suffix varchar2(1);
3237:
3238: BEGIN
3239: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3240: fnd_log.string(fnd_log.level_statement,
3241: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3242: 'This is a concurrent program; Entered the procedure');
3243: end if;
3244:
3252: END IF;
3253:
3254: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
3255:
3256: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3257: fnd_log.string(fnd_log.level_statement,
3258: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3259: 'The request Id of this concurrent process is ' || l_request_id ||'; Now calling create_draft_neg_interface_pvt');
3260: end if;
3253:
3254: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
3255:
3256: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3257: fnd_log.string(fnd_log.level_statement,
3258: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3259: 'The request Id of this concurrent process is ' || l_request_id ||'; Now calling create_draft_neg_interface_pvt');
3260: end if;
3261:
3272: );
3273: IF (l_result <> 'SUCCESS') THEN
3274: RETCODE := '2' ;
3275:
3276: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3277: fnd_log.string(fnd_log.level_statement,
3278: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3279: l_error_message);
3280: end if;
3273: IF (l_result <> 'SUCCESS') THEN
3274: RETCODE := '2' ;
3275:
3276: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3277: fnd_log.string(fnd_log.level_statement,
3278: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3279: l_error_message);
3280: end if;
3281:
3280: end if;
3281:
3282: ELSE
3283:
3284: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3285: fnd_log.string(fnd_log.level_statement,
3286: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3287: 'purging the tables; calling PON_SOURCING_OPENAPI_GRP.PURGE_INTERFACE_TABLE()');
3288: end if;
3281:
3282: ELSE
3283:
3284: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3285: fnd_log.string(fnd_log.level_statement,
3286: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3287: 'purging the tables; calling PON_SOURCING_OPENAPI_GRP.PURGE_INTERFACE_TABLE()');
3288: end if;
3289:
3296: g_call_purge := false;
3297: IF (l_result <> 'SUCCESS') THEN
3298: RETCODE := '2' ;
3299:
3300: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3301: fnd_log.string(fnd_log.level_statement,
3302: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3303: l_error_message);
3304: end if;
3297: IF (l_result <> 'SUCCESS') THEN
3298: RETCODE := '2' ;
3299:
3300: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3301: fnd_log.string(fnd_log.level_statement,
3302: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3303: l_error_message);
3304: end if;
3305:
3304: end if;
3305:
3306: END IF;
3307:
3308: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3309: fnd_log.string(fnd_log.level_statement,
3310: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3311: 'Notifying SUCCESS');
3312: end if;
3305:
3306: END IF;
3307:
3308: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3309: fnd_log.string(fnd_log.level_statement,
3310: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3311: 'Notifying SUCCESS');
3312: end if;
3313:
3327: --
3328: --Ref: ECO - 4517992
3329: --
3330:
3331: /* if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3332: fnd_log.string(fnd_log.level_statement,
3333: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3334: 'Clearing request_id in pon_auction_headers_all');
3335: end if;
3328: --Ref: ECO - 4517992
3329: --
3330:
3331: /* if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3332: fnd_log.string(fnd_log.level_statement,
3333: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3334: 'Clearing request_id in pon_auction_headers_all');
3335: end if;
3336:
3339: where auction_header_id = p_auction_header_id;
3340: */
3341: RETCODE := '0';
3342:
3343: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3344: fnd_log.string(fnd_log.level_statement,
3345: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3346: 'Cleared request_id in pon_auction_headers_all for auction_header_id : ' || p_auction_header_id ||' ; returning');
3347: end if;
3340: */
3341: RETCODE := '0';
3342:
3343: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3344: fnd_log.string(fnd_log.level_statement,
3345: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3346: 'Cleared request_id in pon_auction_headers_all for auction_header_id : ' || p_auction_header_id ||' ; returning');
3347: end if;
3348:
3359: p_auction_header_id => p_auction_header_id,
3360: p_ProgramTypeCode => 'NEG_RENEGOTIATE',
3361: p_DestinationPageCode => 'PON_MANAGE_DRAFT_NEG',
3362: p_bid_number => NULL);
3363: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3364: fnd_log.string(fnd_log.level_statement,
3365: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3366: 'Notifying FAILURE');
3367: end if;
3360: p_ProgramTypeCode => 'NEG_RENEGOTIATE',
3361: p_DestinationPageCode => 'PON_MANAGE_DRAFT_NEG',
3362: p_bid_number => NULL);
3363: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3364: fnd_log.string(fnd_log.level_statement,
3365: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3366: 'Notifying FAILURE');
3367: end if;
3368:
3424: SYSDATE,
3425: fnd_global.login_id,
3426: sysdate + 7);
3427:
3428: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3429: fnd_log.string(fnd_log.level_statement,
3430: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3431: 'Notifying FAILURE');
3432: end if;
3425: fnd_global.login_id,
3426: sysdate + 7);
3427:
3428: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
3429: fnd_log.string(fnd_log.level_statement,
3430: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
3431: 'Notifying FAILURE');
3432: end if;
3433: