45: IS
46: l_request_id NUMBER;
47: BEGIN
48:
49: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
50: fnd_log.string(fnd_log.level_statement,
51: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
52: 'Entered with input -- '||
53: 'p_interface_id : '|| p_interface_id);
46: l_request_id NUMBER;
47: BEGIN
48:
49: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
50: fnd_log.string(fnd_log.level_statement,
51: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
52: 'Entered with input -- '||
53: 'p_interface_id : '|| p_interface_id);
54: end if;
65: x_error_code => x_error_code,
66: x_error_message => x_error_message
67: );
68:
69: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
70: fnd_log.string(fnd_log.level_statement,
71: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
72: 'returning with output -- '||
73: 'x_document_number : '|| x_document_number ||
66: x_error_message => x_error_message
67: );
68:
69: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
70: fnd_log.string(fnd_log.level_statement,
71: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
72: 'returning with output -- '||
73: 'x_document_number : '|| x_document_number ||
74: 'x_document_url : ' || x_document_url ||
109: x_error_message OUT NOCOPY VARCHAR2)
110: IS
111: BEGIN
112:
113: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
114: fnd_log.string(fnd_log.level_statement,
115: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
116: 'Entered with input -- '||
117: 'p_interface_id : '|| p_interface_id);
110: IS
111: BEGIN
112:
113: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
114: fnd_log.string(fnd_log.level_statement,
115: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
116: 'Entered with input -- '||
117: 'p_interface_id : '|| p_interface_id);
118: end if;
138: x_concurrent_program_started := 'Y';
139:
140: end if;
141:
142: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
143: fnd_log.string(fnd_log.level_statement,
144: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
145: 'returning with output -- '||
146: 'x_document_number : '|| x_document_number ||
139:
140: end if;
141:
142: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
143: fnd_log.string(fnd_log.level_statement,
144: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
145: 'returning with output -- '||
146: 'x_document_number : '|| x_document_number ||
147: 'x_document_url : ' || x_document_url ||
260: --If it is a concurrent call set the return values
261: --
262: IF (p_is_concurrent_call = 'Y') THEN
263:
264: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
265: fnd_log.string(fnd_log.level_statement,
266: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
267: 'This is a concurrent call');
268: end if;
261: --
262: IF (p_is_concurrent_call = 'Y') THEN
263:
264: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
265: fnd_log.string(fnd_log.level_statement,
266: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
267: 'This is a concurrent call');
268: end if;
269:
291: UPDATE pon_auc_headers_interface
292: SET process_status = 'REJECTED'
293: WHERE interface_auction_header_id = p_interface_id;
294:
295: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
296: fnd_log.string(fnd_log.level_statement,
297: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
298: x_error_message);
299: end if;
292: SET process_status = 'REJECTED'
293: WHERE interface_auction_header_id = p_interface_id;
294:
295: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
296: fnd_log.string(fnd_log.level_statement,
297: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
298: x_error_message);
299: end if;
300:
315: UPDATE pon_auc_headers_interface
316: SET process_status = 'REJECTED'
317: WHERE interface_auction_header_id = p_interface_id;
318:
319: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
320: fnd_log.string(fnd_log.level_statement,
321: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
322: x_error_message);
323: end if;
316: SET process_status = 'REJECTED'
317: WHERE interface_auction_header_id = p_interface_id;
318:
319: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
320: fnd_log.string(fnd_log.level_statement,
321: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
322: x_error_message);
323: end if;
324:
324:
325: RETURN;
326: END IF;
327:
328: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
329: fnd_log.string(fnd_log.level_statement,
330: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
331: 'Counting the number of lines for p_interface_id : ' || p_interface_id);
332: end if;
325: RETURN;
326: END IF;
327:
328: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
329: fnd_log.string(fnd_log.level_statement,
330: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
331: 'Counting the number of lines for p_interface_id : ' || p_interface_id);
332: end if;
333:
335: INTO l_number_of_lines
336: FROM pon_auc_items_interface
337: WHERE interface_auction_header_id = p_interface_id;
338:
339: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
340: fnd_log.string(fnd_log.level_statement,
341: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
342: '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) : '||
343: l_number_of_lines ||';Cheking if l_number_of_lines > Threshold for p_party_id: '|| v_site_id);
336: FROM pon_auc_items_interface
337: WHERE interface_auction_header_id = p_interface_id;
338:
339: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
340: fnd_log.string(fnd_log.level_statement,
341: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
342: '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) : '||
343: l_number_of_lines ||';Cheking if l_number_of_lines > Threshold for p_party_id: '|| v_site_id);
344: end if;
403: -- Handle Header data if it is an online call
404: --
405: IF (p_is_concurrent_call = 'N') THEN
406:
407: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
408: fnd_log.string(fnd_log.level_statement,
409: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
410: 'This is not a concurrent call; Handling Header information now; Validating the header');
411: end if;
404: --
405: IF (p_is_concurrent_call = 'N') THEN
406:
407: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
408: fnd_log.string(fnd_log.level_statement,
409: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
410: 'This is not a concurrent call; Handling Header information now; Validating the header');
411: end if;
412:
424: UPDATE pon_auc_headers_interface
425: SET process_status = 'REJECTED'
426: WHERE interface_auction_header_id = p_interface_id;
427:
428: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
429: fnd_log.string(fnd_log.level_statement,
430: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
431: 'Error in validating the header; error mesg : ' ||x_error_message);
432: end if;
425: SET process_status = 'REJECTED'
426: WHERE interface_auction_header_id = p_interface_id;
427:
428: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
429: fnd_log.string(fnd_log.level_statement,
430: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
431: 'Error in validating the header; error mesg : ' ||x_error_message);
432: end if;
433:
438: --Insert a row in the transaction table
439: v_debug_status := 'INSERT_PON_AUC_HEADERS';
440:
441:
442: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
443: fnd_log.string(fnd_log.level_statement,
444: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
445: 'preparing to insert a row in the transaction table');
446: end if;
439: v_debug_status := 'INSERT_PON_AUC_HEADERS';
440:
441:
442: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
443: fnd_log.string(fnd_log.level_statement,
444: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
445: 'preparing to insert a row in the transaction table');
446: end if;
447:
447:
448: -- Get the document_number from sequence and store it so that it can
449: -- be returned
450:
451: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
452: fnd_log.string(fnd_log.level_statement,
453: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
454: 'Getting the document_number from sequence');
455: end if;
448: -- Get the document_number from sequence and store it so that it can
449: -- be returned
450:
451: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
452: fnd_log.string(fnd_log.level_statement,
453: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
454: 'Getting the document_number from sequence');
455: end if;
456:
456:
457: SELECT pon_auction_headers_all_s.NEXTVAL INTO x_document_number
458: FROM dual;
459:
460: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
461: fnd_log.string(fnd_log.level_statement,
462: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
463: 'New document_number is (x_document_number) : ' ||x_document_number);
464: end if;
457: SELECT pon_auction_headers_all_s.NEXTVAL INTO x_document_number
458: FROM dual;
459:
460: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
461: fnd_log.string(fnd_log.level_statement,
462: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
463: 'New document_number is (x_document_number) : ' ||x_document_number);
464: end if;
465:
485: and nvl(fnd_user.end_date,sysdate) >= sysdate;
486: exception
487: when others then
488: v_auc_contact_id := null;
489: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
490: fnd_log.string(fnd_log.level_statement,
491: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
492: 'Could not determine contact_id for fnd_user_id ' || fnd_global.user_id());
493: end if;
486: exception
487: when others then
488: v_auc_contact_id := null;
489: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
490: fnd_log.string(fnd_log.level_statement,
491: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface',
492: 'Could not determine contact_id for fnd_user_id ' || fnd_global.user_id());
493: end if;
494: end;
494: end;
495:
496: v_contracts_doctype := pon_conterms_utl_pvt.get_negotiation_doc_type(v_doctype_id);
497:
498: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
499: fnd_log.string(fnd_log.level_statement,
500: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
501: 'Calling okc_terms_copy_grp.copy_doc with parameters -- '||
502: 'v_contracts_doctype : ' || v_contracts_doctype ||
495:
496: v_contracts_doctype := pon_conterms_utl_pvt.get_negotiation_doc_type(v_doctype_id);
497:
498: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
499: fnd_log.string(fnd_log.level_statement,
500: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
501: 'Calling okc_terms_copy_grp.copy_doc with parameters -- '||
502: 'v_contracts_doctype : ' || v_contracts_doctype ||
503: 'x_document_number : ' || x_document_number ||
509: -- Get the current policy
510: --
511: l_old_policy := mo_global.get_access_mode();
512: l_old_org_id := mo_global.get_current_org_id();
513: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
514: fnd_log.string(fnd_log.level_statement,
515: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
516: 'Getting current policy -- '||
517: 'old policy : ' || l_old_policy ||
510: --
511: l_old_policy := mo_global.get_access_mode();
512: l_old_org_id := mo_global.get_current_org_id();
513: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
514: fnd_log.string(fnd_log.level_statement,
515: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
516: 'Getting current policy -- '||
517: 'old policy : ' || l_old_policy ||
518: 'old org_id : ' || l_old_org_id
560: --
561: mo_global.set_policy_context(l_old_policy, l_old_org_id);
562:
563:
564: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
565: fnd_log.string(fnd_log.level_statement,
566: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
567: 'Executed copy_doc() ; returned with status : ' ||v_return_status);
568: end if;
561: mo_global.set_policy_context(l_old_policy, l_old_org_id);
562:
563:
564: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
565: fnd_log.string(fnd_log.level_statement,
566: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
567: 'Executed copy_doc() ; returned with status : ' ||v_return_status);
568: end if;
569:
567: 'Executed copy_doc() ; returned with status : ' ||v_return_status);
568: end if;
569:
570: if (v_return_status <> fnd_api.g_ret_sts_success) then
571: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
572: fnd_log.string(fnd_log.level_statement,
573: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
574: 'Call to copy_doc() failed for source_id=' || g_header_rec.source_doc_id || ' target_id=' || x_document_number);
575: end if;
568: end if;
569:
570: if (v_return_status <> fnd_api.g_ret_sts_success) then
571: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
572: fnd_log.string(fnd_log.level_statement,
573: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
574: 'Call to copy_doc() failed for source_id=' || g_header_rec.source_doc_id || ' target_id=' || x_document_number);
575: end if;
576:
608: -- As Reneg blanket does not allow styles to be set while creation
609: -- user can cng the style once a draft neg has been created.
610: -- Default style allows quantity based price tiers passing Y as p_qty_price_tiers_enabled.
611:
612: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN --{
613: fnd_log.string(fnd_log.level_statement,
614: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
615: 'Calling the PON_AUCTION_PKG.GET_DEFAULT_TIERS_INDICATOR API to get the' ||
616: ' default price tiers indicator value.');
609: -- user can cng the style once a draft neg has been created.
610: -- Default style allows quantity based price tiers passing Y as p_qty_price_tiers_enabled.
611:
612: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN --{
613: fnd_log.string(fnd_log.level_statement,
614: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
615: 'Calling the PON_AUCTION_PKG.GET_DEFAULT_TIERS_INDICATOR API to get the' ||
616: ' default price tiers indicator value.');
617: END IF;
623: p_qty_price_tiers_enabled => 'Y',
624: p_doctype_id => v_doctype_id,
625: x_price_tiers_indicator => v_price_tiers_indicator);
626:
627: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
628: fnd_log.string(fnd_log.level_statement,
629: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
630: 'Inserting row into PON_AUCTION_HEADERS_ALL with the following filed values -- ' ||
631: 'auction_header_id (x_document_number) : '|| x_document_number ||
624: p_doctype_id => v_doctype_id,
625: x_price_tiers_indicator => v_price_tiers_indicator);
626:
627: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
628: fnd_log.string(fnd_log.level_statement,
629: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
630: 'Inserting row into PON_AUCTION_HEADERS_ALL with the following filed values -- ' ||
631: 'auction_header_id (x_document_number) : '|| x_document_number ||
632: '; document_number (x_document_number) : ' || x_document_number ||
789: 'NONE', --Progress_Payment_Type
790: v_price_tiers_indicator --price_tiers_indicator
791: );
792:
793: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
794: fnd_log.string(fnd_log.level_statement,
795: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
796: 'Inserted recore into pon_auction_headers_all');
797: end if;
790: v_price_tiers_indicator --price_tiers_indicator
791: );
792:
793: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
794: fnd_log.string(fnd_log.level_statement,
795: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
796: 'Inserted recore into pon_auction_headers_all');
797: end if;
798:
808:
809: IF (l_is_super_large_neg = 'N') OR (l_is_super_large_neg = 'Y' AND p_is_concurrent_call = 'Y') THEN
810: --{
811: -- price break line setting, this should be called after header is inserted
812: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
813: fnd_log.string(fnd_log.level_statement,
814: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
815: 'calling PON_AUCTION_PKG.get_default_pb_settings with x_document_number : ' || x_document_number);
816: end if;
809: IF (l_is_super_large_neg = 'N') OR (l_is_super_large_neg = 'Y' AND p_is_concurrent_call = 'Y') THEN
810: --{
811: -- price break line setting, this should be called after header is inserted
812: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
813: fnd_log.string(fnd_log.level_statement,
814: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
815: 'calling PON_AUCTION_PKG.get_default_pb_settings with x_document_number : ' || x_document_number);
816: end if;
817:
818: PON_AUCTION_PKG.get_default_pb_settings (x_document_number,
819: v_price_break_type,
820: v_price_break_neg_flag);
821:
822: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
823: fnd_log.string(fnd_log.level_statement,
824: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
825: 'v_price_break_type : ' || v_price_break_type || '; v_price_break_neg_flag : ' || v_price_break_neg_flag);
826: end if;
819: v_price_break_type,
820: v_price_break_neg_flag);
821:
822: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
823: fnd_log.string(fnd_log.level_statement,
824: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
825: 'v_price_break_type : ' || v_price_break_type || '; v_price_break_neg_flag : ' || v_price_break_neg_flag);
826: end if;
827:
829: IF (g_header_rec.origination_code <> 'CONTRACT') THEN
830: -- Validate data in the PON_AUCTION_ITEM_PRICES_INTERFACE table
831: v_debug_status := 'VALIDATE_ITEM' ;
832:
833: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
834: fnd_log.string(fnd_log.level_statement,
835: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
836: 'validating PON_AUCTION_ITEM_PRICES_INTERFACE; calling val_auc_items_interface with p_interface_id : ' || p_interface_id);
837: end if;
830: -- Validate data in the PON_AUCTION_ITEM_PRICES_INTERFACE table
831: v_debug_status := 'VALIDATE_ITEM' ;
832:
833: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
834: fnd_log.string(fnd_log.level_statement,
835: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
836: 'validating PON_AUCTION_ITEM_PRICES_INTERFACE; calling val_auc_items_interface with p_interface_id : ' || p_interface_id);
837: end if;
838:
849: UPDATE pon_auc_headers_interface
850: SET process_status = 'REJECTED'
851: WHERE interface_auction_header_id = p_interface_id;
852:
853: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
854: fnd_log.string(fnd_log.level_statement,
855: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
856: 'error when validating PON_AUCTION_ITEM_PRICES_INTERFACE; x_error_message : ' || x_error_message);
857: end if;
850: SET process_status = 'REJECTED'
851: WHERE interface_auction_header_id = p_interface_id;
852:
853: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
854: fnd_log.string(fnd_log.level_statement,
855: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
856: 'error when validating PON_AUCTION_ITEM_PRICES_INTERFACE; x_error_message : ' || x_error_message);
857: end if;
858:
860: END IF;-- error code not null
861:
862: -- Validate data in the PON_AUCTION_SHIPMENTS_INTERFACE table
863:
864: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
865: fnd_log.string(fnd_log.level_statement,
866: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
867: 'validating PON_AUCTION_SHIPMENTS_INTERFACE; calling val_auc_shipments_interface with p_interface_id : ' || p_interface_id);
868: end if;
861:
862: -- Validate data in the PON_AUCTION_SHIPMENTS_INTERFACE table
863:
864: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
865: fnd_log.string(fnd_log.level_statement,
866: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
867: 'validating PON_AUCTION_SHIPMENTS_INTERFACE; calling val_auc_shipments_interface with p_interface_id : ' || p_interface_id);
868: end if;
869:
879: UPDATE pon_auc_headers_interface
880: SET process_status = 'REJECTED'
881: WHERE interface_auction_header_id = p_interface_id;
882:
883: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
884: fnd_log.string(fnd_log.level_statement,
885: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
886: 'error when validating PON_AUCTION_SHIPMENTS_INTERFACE; x_error_message : ' || x_error_message);
887: end if;
880: SET process_status = 'REJECTED'
881: WHERE interface_auction_header_id = p_interface_id;
882:
883: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
884: fnd_log.string(fnd_log.level_statement,
885: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
886: 'error when validating PON_AUCTION_SHIPMENTS_INTERFACE; x_error_message : ' || x_error_message);
887: end if;
888:
889: RETURN;
890: END IF;-- error code not null
891: END IF; -- end if (g_header_rec.origination_code <> 'CONTRACT')
892:
893: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
894: fnd_log.string(fnd_log.level_statement,
895: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
896: 'validating PON_ATTACHMENTS_INTERFACE; calling val_attachments_interface with p_interface_id : ' || p_interface_id);
897: end if;
890: END IF;-- error code not null
891: END IF; -- end if (g_header_rec.origination_code <> 'CONTRACT')
892:
893: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
894: fnd_log.string(fnd_log.level_statement,
895: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
896: 'validating PON_ATTACHMENTS_INTERFACE; calling val_attachments_interface with p_interface_id : ' || p_interface_id);
897: end if;
898:
909: UPDATE pon_auc_headers_interface
910: SET process_status = 'REJECTED'
911: WHERE interface_auction_header_id = p_interface_id;
912:
913: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
914: fnd_log.string(fnd_log.level_statement,
915: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
916: 'error when validating PON_ATTACHMENTS_INTERFACE; x_error_message : ' || x_error_message);
917: end if;
910: SET process_status = 'REJECTED'
911: WHERE interface_auction_header_id = p_interface_id;
912:
913: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
914: fnd_log.string(fnd_log.level_statement,
915: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
916: 'error when validating PON_ATTACHMENTS_INTERFACE; x_error_message : ' || x_error_message);
917: end if;
918:
918:
919: RETURN;
920: END IF;
921:
922: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
923: fnd_log.string(fnd_log.level_statement,
924: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
925: 'getting category id for VENDOR attachments');
926: end if;
919: RETURN;
920: END IF;
921:
922: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
923: fnd_log.string(fnd_log.level_statement,
924: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
925: 'getting category id for VENDOR attachments');
926: end if;
927:
936: WHEN no_data_found THEN
937: X_RESULT := 'FAILURE';
938: X_ERROR_CODE := 'CREATE_DRAFT:ATTACHMENT_CATEGORY_ID';
939: X_ERROR_MESSAGE := 'The attachment category id for name=VENDOR could not be found';
940: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
941: fnd_log.string(fnd_log.level_statement,
942: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
943: 'error when getting category id for VENDOR attachments; x_error_message : ' || X_ERROR_MESSAGE);
944: end if;
937: X_RESULT := 'FAILURE';
938: X_ERROR_CODE := 'CREATE_DRAFT:ATTACHMENT_CATEGORY_ID';
939: X_ERROR_MESSAGE := 'The attachment category id for name=VENDOR could not be found';
940: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
941: fnd_log.string(fnd_log.level_statement,
942: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
943: 'error when getting category id for VENDOR attachments; x_error_message : ' || X_ERROR_MESSAGE);
944: end if;
945:
945:
946: RETURN;
947: END;
948:
949: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
950: fnd_log.string(fnd_log.level_statement,
951: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
952: 'getting UOM for amount based line types');
953: end if;
946: RETURN;
947: END;
948:
949: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
950: fnd_log.string(fnd_log.level_statement,
951: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
952: 'getting UOM for amount based line types');
953: end if;
954:
988:
989: SELECT nvl(max(interface_line_number),0) INTO l_max_line_number FROM pon_auc_items_interface
990: WHERE interface_auction_header_id = p_interface_id;
991:
992: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
993: fnd_log.string(fnd_log.level_statement,
994: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
995: 'Max lines to copy (l_max_line_number) : ' || l_max_line_number);
996: end if;
989: SELECT nvl(max(interface_line_number),0) INTO l_max_line_number FROM pon_auc_items_interface
990: WHERE interface_auction_header_id = p_interface_id;
991:
992: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
993: fnd_log.string(fnd_log.level_statement,
994: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
995: 'Max lines to copy (l_max_line_number) : ' || l_max_line_number);
996: end if;
997:
1002:
1003: -- Get the batch size
1004: l_batch_size := PON_LARGE_AUCTION_UTIL_PKG.BATCH_SIZE;
1005:
1006: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1007: fnd_log.string(fnd_log.level_statement,
1008: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1009: 'Starting batching with batchsize (l_batch_size) : ' || l_batch_size);
1010: end if;
1003: -- Get the batch size
1004: l_batch_size := PON_LARGE_AUCTION_UTIL_PKG.BATCH_SIZE;
1005:
1006: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1007: fnd_log.string(fnd_log.level_statement,
1008: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1009: 'Starting batching with batchsize (l_batch_size) : ' || l_batch_size);
1010: end if;
1011:
1022: END IF;
1023:
1024: WHILE (l_batch_start <= l_max_line_number) LOOP
1025:
1026: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1027: fnd_log.string(fnd_log.level_statement,
1028: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1029: 'Batching the line_numbers in the range '|| l_batch_start ||' to '|| l_batch_end ||' (inclusive)');
1030: end if;
1023:
1024: WHILE (l_batch_start <= l_max_line_number) LOOP
1025:
1026: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1027: fnd_log.string(fnd_log.level_statement,
1028: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1029: 'Batching the line_numbers in the range '|| l_batch_start ||' to '|| l_batch_end ||' (inclusive)');
1030: end if;
1031:
1035: -- Before that prepare the interface table. This means updating some internal
1036: -- columns in the interface item level columns.
1037: v_debug_status := 'INSERT_PON_AUC_ITEMS';
1038:
1039: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1040: fnd_log.string(fnd_log.level_statement,
1041: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1042: 'Handling Item level data; updating the pon_auc_items_interface table with the correct order_type_lookup_code values');
1043: end if;
1036: -- columns in the interface item level columns.
1037: v_debug_status := 'INSERT_PON_AUC_ITEMS';
1038:
1039: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1040: fnd_log.string(fnd_log.level_statement,
1041: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1042: 'Handling Item level data; updating the pon_auc_items_interface table with the correct order_type_lookup_code values');
1043: end if;
1044:
1053: WHERE paii.interface_auction_header_id = p_interface_id
1054: AND interface_line_number >= l_batch_start
1055: AND interface_line_number <= l_batch_end;
1056:
1057: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1058: fnd_log.string(fnd_log.level_statement,
1059: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1060: 'inserting into pon_auction_item_prices_all for auction_header_id (x_document_number) : ' || x_document_number);
1061: end if;
1054: AND interface_line_number >= l_batch_start
1055: AND interface_line_number <= l_batch_end;
1056:
1057: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1058: fnd_log.string(fnd_log.level_statement,
1059: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1060: 'inserting into pon_auction_item_prices_all for auction_header_id (x_document_number) : ' || x_document_number);
1061: end if;
1062:
1165: AND mtl_categories_kfv.category_id (+) = pon_auc_items_interface.category_id;
1166:
1167: -- Update the shipments flag based on if their are shipments
1168:
1169: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1170: fnd_log.string(fnd_log.level_statement,
1171: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1172: ' Updating the shipments flag based on if there are shipments');
1173: end if;
1166:
1167: -- Update the shipments flag based on if their are shipments
1168:
1169: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1170: fnd_log.string(fnd_log.level_statement,
1171: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1172: ' Updating the shipments flag based on if there are shipments');
1173: end if;
1174:
1183: AND auction_header_id = x_document_number;
1184:
1185: -- ADDED FOR SERVICES PROCUREMENT PROJECT
1186: -- Update the price differntials flag based on if their are price differentials at item level
1187: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1188: fnd_log.string(fnd_log.level_statement,
1189: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1190: ' Updating the price differntials flag based on if their are price differentials at item level');
1191: end if;
1184:
1185: -- ADDED FOR SERVICES PROCUREMENT PROJECT
1186: -- Update the price differntials flag based on if their are price differentials at item level
1187: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1188: fnd_log.string(fnd_log.level_statement,
1189: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1190: ' Updating the price differntials flag based on if their are price differentials at item level');
1191: end if;
1192:
1214: -- FROM pon_attachments_interface
1215: -- WHERE interface_auction_header_id = p_interface_id
1216: -- AND interface_line_number IS NOT NULL);
1217:
1218: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1219: fnd_log.string(fnd_log.level_statement,
1220: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1221: ' CAlling Add_Catalog_Descriptors with x_document_number : ' || x_document_number || '; p_interface_id : ' || p_interface_id);
1222: end if;
1215: -- WHERE interface_auction_header_id = p_interface_id
1216: -- AND interface_line_number IS NOT NULL);
1217:
1218: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1219: fnd_log.string(fnd_log.level_statement,
1220: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1221: ' CAlling Add_Catalog_Descriptors with x_document_number : ' || x_document_number || '; p_interface_id : ' || p_interface_id);
1222: end if;
1223:
1231: -- all price breaks that differ only in quantity, ship_to_location_id
1232: -- and the ship_to_organization_id column values. Hence we apply a group by
1233: -- clause
1234:
1235: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1236: fnd_log.string(fnd_log.level_statement,
1237: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1238: ' copying price breaks and price break level price differentials' );
1239: end if;
1232: -- and the ship_to_organization_id column values. Hence we apply a group by
1233: -- clause
1234:
1235: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1236: fnd_log.string(fnd_log.level_statement,
1237: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1238: ' copying price breaks and price break level price differentials' );
1239: end if;
1240:
1295: -- Insert price differentials information into the transaction table
1296: -- at item level
1297: v_debug_status := 'INSERT_PRICE_DIFFERENTIALS_ITEM';
1298:
1299: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1300: fnd_log.string(fnd_log.level_statement,
1301: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1302: 'Inserting price differentials information into the transaction table at item level' );
1303: end if;
1296: -- at item level
1297: v_debug_status := 'INSERT_PRICE_DIFFERENTIALS_ITEM';
1298:
1299: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1300: fnd_log.string(fnd_log.level_statement,
1301: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1302: 'Inserting price differentials information into the transaction table at item level' );
1303: end if;
1304:
1343:
1344: -- Insert price differentials information into the transaction table
1345: -- at shipment level
1346:
1347: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1348: fnd_log.string(fnd_log.level_statement,
1349: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1350: 'Inserting price differentials information into the transaction table at shipment level' );
1351: end if;
1344: -- Insert price differentials information into the transaction table
1345: -- at shipment level
1346:
1347: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1348: fnd_log.string(fnd_log.level_statement,
1349: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1350: 'Inserting price differentials information into the transaction table at shipment level' );
1351: end if;
1352:
1385:
1386: -- Copy over the attachments from the PON_ATTACHMENTS_INTERFACE table
1387: v_debug_status := 'INSERT_LINE_ATTACHMENTS';
1388:
1389: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1390: fnd_log.string(fnd_log.level_statement,
1391: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1392: 'Copying over the (Line) attachments from the PON_ATTACHMENTS_INTERFACE table' );
1393: end if;
1386: -- Copy over the attachments from the PON_ATTACHMENTS_INTERFACE table
1387: v_debug_status := 'INSERT_LINE_ATTACHMENTS';
1388:
1389: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1390: fnd_log.string(fnd_log.level_statement,
1391: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1392: 'Copying over the (Line) attachments from the PON_ATTACHMENTS_INTERFACE table' );
1393: end if;
1394:
1434:
1435: --Update the attachment_flag in pon_auction_item_prices_all
1436: --table for all the items that have attachments.
1437:
1438: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1439: fnd_log.string(fnd_log.level_statement,
1440: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1441: 'Updating the attachment_flag in pon_auction_item_prices_all table for all the items that have attachments.' );
1442: end if;
1435: --Update the attachment_flag in pon_auction_item_prices_all
1436: --table for all the items that have attachments.
1437:
1438: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1439: fnd_log.string(fnd_log.level_statement,
1440: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1441: 'Updating the attachment_flag in pon_auction_item_prices_all table for all the items that have attachments.' );
1442: end if;
1443:
1457:
1458: --commit the DML transactions of this batch only if it is a concurrent call
1459:
1460: IF (p_is_concurrent_call = 'Y') THEN
1461: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1462: fnd_log.string(fnd_log.level_statement,
1463: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1464: 'This being a concurrent call, the batch is being committed( from line numbers ' || l_batch_start || ' to ' || l_batch_end);
1465: end if;
1458: --commit the DML transactions of this batch only if it is a concurrent call
1459:
1460: IF (p_is_concurrent_call = 'Y') THEN
1461: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1462: fnd_log.string(fnd_log.level_statement,
1463: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1464: 'This being a concurrent call, the batch is being committed( from line numbers ' || l_batch_start || ' to ' || l_batch_end);
1465: end if;
1466:
1475: ELSE
1476: l_batch_end := l_batch_end + l_batch_size;
1477: END IF;
1478:
1479: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1480: fnd_log.string(fnd_log.level_statement,
1481: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1482: 'Computed the window for next batch to be ' || l_batch_start || ' to ' || l_batch_end || ' (inclusive) ' );
1483: end if;
1476: l_batch_end := l_batch_end + l_batch_size;
1477: END IF;
1478:
1479: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1480: fnd_log.string(fnd_log.level_statement,
1481: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1482: 'Computed the window for next batch to be ' || l_batch_start || ' to ' || l_batch_end || ' (inclusive) ' );
1483: end if;
1484:
1502:
1503: -- Copy over the attachments from the PON_ATTACHMENTS_INTERFACE table
1504: v_debug_status := 'INSERT_HEADER_ATTACHMENTS';
1505:
1506: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1507: fnd_log.string(fnd_log.level_statement,
1508: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1509: 'Copying over the (header)attachments from the PON_ATTACHMENTS_INTERFACE table' );
1510: end if;
1503: -- Copy over the attachments from the PON_ATTACHMENTS_INTERFACE table
1504: v_debug_status := 'INSERT_HEADER_ATTACHMENTS';
1505:
1506: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1507: fnd_log.string(fnd_log.level_statement,
1508: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1509: 'Copying over the (header)attachments from the PON_ATTACHMENTS_INTERFACE table' );
1510: end if;
1511:
1554: v_debug_status := 'INSERT_BIDDERS_CURR';
1555:
1556: IF (v_set_as_bidders_curr = 'Y' AND v_blanket_bidders_curr = 'Y') THEN
1557:
1558: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1559: fnd_log.string(fnd_log.level_statement,
1560: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1561: 'Copying over the currency into PON_AUC_CURR_INFO table' );
1562: end if;
1555:
1556: IF (v_set_as_bidders_curr = 'Y' AND v_blanket_bidders_curr = 'Y') THEN
1557:
1558: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1559: fnd_log.string(fnd_log.level_statement,
1560: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1561: 'Copying over the currency into PON_AUC_CURR_INFO table' );
1562: end if;
1563:
1591: -- Add the supplier information on the blanket to the PON_BIDDING_PARTIES
1592: -- transaction table.
1593: v_debug_status := 'INSERT_SUPPLIER_INFO';
1594:
1595: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1596: fnd_log.string(fnd_log.level_statement,
1597: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1598: 'Addding the supplier information on the blanket to the PON_BIDDING_PARTIES; selectiong supplier_site_id' );
1599: end if;
1592: -- transaction table.
1593: v_debug_status := 'INSERT_SUPPLIER_INFO';
1594:
1595: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1596: fnd_log.string(fnd_log.level_statement,
1597: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1598: 'Addding the supplier information on the blanket to the PON_BIDDING_PARTIES; selectiong supplier_site_id' );
1599: end if;
1600:
1619: v_supplier_site_code := '-1';
1620: end if;
1621:
1622: --lxchen
1623: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1624: fnd_log.string(fnd_log.level_statement,
1625: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1626: 'Getting supplier information' );
1627: end if;
1620: end if;
1621:
1622: --lxchen
1623: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1624: fnd_log.string(fnd_log.level_statement,
1625: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1626: 'Getting supplier information' );
1627: end if;
1628:
1644: UPDATE pon_auc_headers_interface
1645: SET process_status = 'REJECTED'
1646: WHERE interface_auction_header_id = p_interface_id;
1647:
1648: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1649: fnd_log.string(fnd_log.level_statement,
1650: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1651: 'Error in retrieving supplier information for supplier_id : ' || g_header_rec.supplier_id );
1652: end if;
1645: SET process_status = 'REJECTED'
1646: WHERE interface_auction_header_id = p_interface_id;
1647:
1648: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1649: fnd_log.string(fnd_log.level_statement,
1650: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1651: 'Error in retrieving supplier information for supplier_id : ' || g_header_rec.supplier_id );
1652: end if;
1653:
1653:
1654: RETURN;
1655: END IF;
1656:
1657: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1658: fnd_log.string(fnd_log.level_statement,
1659: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1660: 'Inserting record into PON_BIDDING_PARTIES' );
1661: end if;
1654: RETURN;
1655: END IF;
1656:
1657: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1658: fnd_log.string(fnd_log.level_statement,
1659: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1660: 'Inserting record into PON_BIDDING_PARTIES' );
1661: end if;
1662:
1704: --
1705: --If it's a super large auction, then raise a concurrent request here
1706: --to handle the children
1707: --
1708: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1709: fnd_log.string(fnd_log.level_statement,
1710: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1711: 'Is this auction super large? (l_is_super_large_neg) : ' || l_is_super_large_neg);
1712: end if;
1705: --If it's a super large auction, then raise a concurrent request here
1706: --to handle the children
1707: --
1708: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1709: fnd_log.string(fnd_log.level_statement,
1710: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1711: 'Is this auction super large? (l_is_super_large_neg) : ' || l_is_super_large_neg);
1712: end if;
1713:
1711: 'Is this auction super large? (l_is_super_large_neg) : ' || l_is_super_large_neg);
1712: end if;
1713:
1714: IF (l_is_super_large_neg = 'Y') THEN
1715: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1716: fnd_log.string(fnd_log.level_statement,
1717: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1718: 'Raising a concurrent request here');
1719: end if;
1712: end if;
1713:
1714: IF (l_is_super_large_neg = 'Y') THEN
1715: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1716: fnd_log.string(fnd_log.level_statement,
1717: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1718: 'Raising a concurrent request here');
1719: end if;
1720:
1729: argument2 => to_char(x_document_number),
1730: argument3 => FND_GLOBAL.USER_NAME
1731: );
1732:
1733: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1734: fnd_log.string(fnd_log.level_statement,
1735: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1736: 'Concurrent request successfully raised; Request id : ' || l_request_id ||' ; setting the request information into pon_auction_headers_all');
1737: end if;
1730: argument3 => FND_GLOBAL.USER_NAME
1731: );
1732:
1733: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1734: fnd_log.string(fnd_log.level_statement,
1735: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1736: 'Concurrent request successfully raised; Request id : ' || l_request_id ||' ; setting the request information into pon_auction_headers_all');
1737: end if;
1738:
1753: END IF; --IF (p_is_concurrent_call = 'N')
1754:
1755: -----------------------------------------------------------------------------
1756: -- Set the result to success and unset any variables required.
1757: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1758: fnd_log.string(fnd_log.level_statement,
1759: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1760: 'Setting the result to success');
1761: end if;
1754:
1755: -----------------------------------------------------------------------------
1756: -- Set the result to success and unset any variables required.
1757: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1758: fnd_log.string(fnd_log.level_statement,
1759: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1760: 'Setting the result to success');
1761: end if;
1762:
1772: -- from a concurrent program
1773: --
1774: IF (l_is_super_large_neg = 'N') OR (l_is_super_large_neg = 'Y' AND p_is_concurrent_call = 'Y') THEN
1775:
1776: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1777: fnd_log.string(fnd_log.level_statement,
1778: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1779: 'updating the process_status in pon_auc_headers_interface to ACCEPTED');
1780: end if;
1773: --
1774: IF (l_is_super_large_neg = 'N') OR (l_is_super_large_neg = 'Y' AND p_is_concurrent_call = 'Y') THEN
1775:
1776: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1777: fnd_log.string(fnd_log.level_statement,
1778: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1779: 'updating the process_status in pon_auc_headers_interface to ACCEPTED');
1780: end if;
1781:
1782: UPDATE pon_auc_headers_interface
1783: SET process_status = 'ACCEPTED'
1784: WHERE interface_auction_header_id = p_interface_id;
1785:
1786: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1787: fnd_log.string(fnd_log.level_statement,
1788: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1789: 'updating the complete_flag in pon_auc_headers_all to Y');
1790: end if;
1783: SET process_status = 'ACCEPTED'
1784: WHERE interface_auction_header_id = p_interface_id;
1785:
1786: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1787: fnd_log.string(fnd_log.level_statement,
1788: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1789: 'updating the complete_flag in pon_auc_headers_all to Y');
1790: end if;
1791:
1808:
1809: --call commit. This is for TEST purposes only
1810: --COMMIT;
1811:
1812: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1813: fnd_log.string(fnd_log.level_statement,
1814: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1815: 'returning with output -- '||
1816: 'x_document_number : '|| x_document_number ||
1809: --call commit. This is for TEST purposes only
1810: --COMMIT;
1811:
1812: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1813: fnd_log.string(fnd_log.level_statement,
1814: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
1815: 'returning with output -- '||
1816: 'x_document_number : '|| x_document_number ||
1817: 'x_document_url : ' || x_document_url ||
1970: BEGIN
1971:
1972: v_debug_status := 'VALIDATING_ITEMS';
1973:
1974: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1975: fnd_log.string(fnd_log.level_statement,
1976: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
1977: 'Validating the lines in the range ; validating item org_id');
1978: end if;
1971:
1972: v_debug_status := 'VALIDATING_ITEMS';
1973:
1974: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1975: fnd_log.string(fnd_log.level_statement,
1976: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
1977: 'Validating the lines in the range ; validating item org_id');
1978: end if;
1979:
1985: AND org_id <> g_header_rec.org_id;
1986:
1987: IF (v_invalid_item_recs IS NOT NULL ) THEN
1988:
1989: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1990: fnd_log.string(fnd_log.level_statement,
1991: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
1992: 'Error in validating item org_id');
1993: end if;
1986:
1987: IF (v_invalid_item_recs IS NOT NULL ) THEN
1988:
1989: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
1990: fnd_log.string(fnd_log.level_statement,
1991: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
1992: 'Error in validating item org_id');
1993: end if;
1994:
1999: END IF;
2000:
2001: -- Validate origination_code is BLANKET
2002:
2003: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2004: fnd_log.string(fnd_log.level_statement,
2005: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2006: 'Validating origination_code is BLANKET');
2007: end if;
2000:
2001: -- Validate origination_code is BLANKET
2002:
2003: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2004: fnd_log.string(fnd_log.level_statement,
2005: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2006: 'Validating origination_code is BLANKET');
2007: end if;
2008:
2014: AND origination_code <> 'BLANKET';
2015:
2016: IF (v_invalid_item_recs IS NOT NULL ) THEN
2017:
2018: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2019: fnd_log.string(fnd_log.level_statement,
2020: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2021: 'Error in validating origination_code is BLANKET');
2022: end if;
2015:
2016: IF (v_invalid_item_recs IS NOT NULL ) THEN
2017:
2018: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2019: fnd_log.string(fnd_log.level_statement,
2020: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2021: 'Error in validating origination_code is BLANKET');
2022: end if;
2023:
2028: END if;
2029:
2030: -- Validate that price_break_type values are CUMULATIVE, NON-CUMMULATIVE or null
2031:
2032: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2033: fnd_log.string(fnd_log.level_statement,
2034: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2035: 'Validating that price_break_type values are CUMULATIVE, NON-CUMMULATIVE or null');
2036: end if;
2029:
2030: -- Validate that price_break_type values are CUMULATIVE, NON-CUMMULATIVE or null
2031:
2032: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2033: fnd_log.string(fnd_log.level_statement,
2034: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2035: 'Validating that price_break_type values are CUMULATIVE, NON-CUMMULATIVE or null');
2036: end if;
2037:
2043: AND decode(price_break_type, null, 'NONE', 'NON CUMULATIVE', 'NON-CUMULATIVE', price_break_type) NOT IN ('CUMULATIVE', 'NON-CUMULATIVE','NONE');
2044:
2045: IF (v_invalid_item_recs IS NOT NULL ) THEN
2046:
2047: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2048: fnd_log.string(fnd_log.level_statement,
2049: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2050: 'Error in validating that price_break_type values are CUMULATIVE, NON-CUMMULATIVE or null');
2051: end if;
2044:
2045: IF (v_invalid_item_recs IS NOT NULL ) THEN
2046:
2047: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2048: fnd_log.string(fnd_log.level_statement,
2049: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2050: 'Error in validating that price_break_type values are CUMULATIVE, NON-CUMMULATIVE or null');
2051: end if;
2052:
2055:
2056: RETURN;
2057: END if;
2058:
2059: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2060: fnd_log.string(fnd_log.level_statement,
2061: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2062: 'Returning with x_error_code : ' || x_error_code || '; x_error_message : ' || x_error_message);
2063: end if;
2056: RETURN;
2057: END if;
2058:
2059: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2060: fnd_log.string(fnd_log.level_statement,
2061: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2062: 'Returning with x_error_code : ' || x_error_code || '; x_error_message : ' || x_error_message);
2063: end if;
2064:
2093: v_shipment_rec VARCHAR2(40);
2094:
2095: BEGIN
2096:
2097: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2098: fnd_log.string(fnd_log.level_statement,
2099: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2100: 'Entered the procedure');
2101: end if;
2094:
2095: BEGIN
2096:
2097: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2098: fnd_log.string(fnd_log.level_statement,
2099: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2100: 'Entered the procedure');
2101: end if;
2102:
2109: AND org_id <> g_header_rec.org_id;
2110:
2111: IF (v_shipment_rec IS NOT null) THEN
2112:
2113: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2114: fnd_log.string(fnd_log.level_statement,
2115: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2116: 'Error in validating item org_id');
2117: end if;
2110:
2111: IF (v_shipment_rec IS NOT null) THEN
2112:
2113: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2114: fnd_log.string(fnd_log.level_statement,
2115: 'pon.plsql.pon_sourcing_openapi_grp.val_auc_items_interface',
2116: 'Error in validating item org_id');
2117: end if;
2118:
2123: END IF;
2124:
2125: -- Validate the shipment type columns have correct values
2126:
2127: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2128: fnd_log.string(fnd_log.level_statement,
2129: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2130: 'Validating the shipment type columns have correct values');
2131: end if;
2124:
2125: -- Validate the shipment type columns have correct values
2126:
2127: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2128: fnd_log.string(fnd_log.level_statement,
2129: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
2130: 'Validating the shipment type columns have correct values');
2131: end if;
2132:
2250:
2251: EXCEPTION
2252:
2253: WHEN too_many_rows THEN
2254: IF ( FND_LOG.level_error >= fnd_log.g_current_runtime_level) then
2255: FND_LOG.string(log_level => FND_LOG.level_error,
2256: module => ' get_trading_partner_info ',
2257: message => ' Error while fetching UserName from fnd_user '|| SQLERRM);
2258: END IF;
2251: EXCEPTION
2252:
2253: WHEN too_many_rows THEN
2254: IF ( FND_LOG.level_error >= fnd_log.g_current_runtime_level) then
2255: FND_LOG.string(log_level => FND_LOG.level_error,
2256: module => ' get_trading_partner_info ',
2257: message => ' Error while fetching UserName from fnd_user '|| SQLERRM);
2258: END IF;
2259:
2435: WHEN OTHERS THEN
2436: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2437: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2438: FND_MSG_PUB.add_exc_msg(l_pkg_name, l_api_name,SQLERRM);
2439: IF ( FND_LOG.level_unexpected >= fnd_log.g_current_runtime_level) then
2440: FND_LOG.string(log_level => FND_LOG.level_unexpected
2441: ,module => l_pkg_name ||'.'||l_api_name
2442: ,message => SQLERRM);
2443: END IF;
2436: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2437: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2438: FND_MSG_PUB.add_exc_msg(l_pkg_name, l_api_name,SQLERRM);
2439: IF ( FND_LOG.level_unexpected >= fnd_log.g_current_runtime_level) then
2440: FND_LOG.string(log_level => FND_LOG.level_unexpected
2441: ,module => l_pkg_name ||'.'||l_api_name
2442: ,message => SQLERRM);
2443: END IF;
2444: END IF;
2511: when others then
2512: x_return_status := FND_API.G_RET_STS_ERROR;
2513: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2514: FND_MSG_PUB.add_exc_msg(l_pkg_name, l_api_name, SQLERRM);
2515: IF ( FND_LOG.level_error >= fnd_log.g_current_runtime_level) then
2516: FND_LOG.string(log_level => FND_LOG.level_error,
2517: module => l_pkg_name || '.' || l_api_name,
2518: message => 'Negotiation ' || p_auction_header_id || ' and line ' || p_auction_line_number || ' not found. ' || SQLERRM);
2519: END IF;
2512: x_return_status := FND_API.G_RET_STS_ERROR;
2513: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2514: FND_MSG_PUB.add_exc_msg(l_pkg_name, l_api_name, SQLERRM);
2515: IF ( FND_LOG.level_error >= fnd_log.g_current_runtime_level) then
2516: FND_LOG.string(log_level => FND_LOG.level_error,
2517: module => l_pkg_name || '.' || l_api_name,
2518: message => 'Negotiation ' || p_auction_header_id || ' and line ' || p_auction_line_number || ' not found. ' || SQLERRM);
2519: END IF;
2520: END IF;
2529: when others then
2530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2531: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2532: FND_MSG_PUB.add_exc_msg(l_pkg_name, l_api_name, SQLERRM);
2533: IF (FND_LOG.level_unexpected >= fnd_log.g_current_runtime_level) then
2534: FND_LOG.string(log_level => FND_LOG.level_unexpected,
2535: module => l_pkg_name ||'.'|| l_api_name,
2536: message => SQLERRM);
2537: END IF;
2530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2531: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2532: FND_MSG_PUB.add_exc_msg(l_pkg_name, l_api_name, SQLERRM);
2533: IF (FND_LOG.level_unexpected >= fnd_log.g_current_runtime_level) then
2534: FND_LOG.string(log_level => FND_LOG.level_unexpected,
2535: module => l_pkg_name ||'.'|| l_api_name,
2536: message => SQLERRM);
2537: END IF;
2538: END IF;
2692: PROCEDURE INITIALISE_GLOBALS(p_interface_id IN NUMBER)
2693: is
2694: BEGIN
2695:
2696: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2697: fnd_log.string(fnd_log.level_statement,
2698: 'pon.plsql.pon_sourcing_openapi_grp.initialise_globals',
2699: 'Entered the procedure; initialising g_header_rec');
2700: end if;
2693: is
2694: BEGIN
2695:
2696: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2697: fnd_log.string(fnd_log.level_statement,
2698: 'pon.plsql.pon_sourcing_openapi_grp.initialise_globals',
2699: 'Entered the procedure; initialising g_header_rec');
2700: end if;
2701:
2703: SELECT * INTO g_header_rec
2704: FROM pon_auc_headers_interface
2705: WHERE interface_auction_header_id = p_interface_id;
2706:
2707: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2708: fnd_log.string(fnd_log.level_statement,
2709: 'pon.plsql.pon_sourcing_openapi_grp.initialise_globals',
2710: 'initialised g_header_rec; Entered the procedure');
2711: end if;
2704: FROM pon_auc_headers_interface
2705: WHERE interface_auction_header_id = p_interface_id;
2706:
2707: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2708: fnd_log.string(fnd_log.level_statement,
2709: 'pon.plsql.pon_sourcing_openapi_grp.initialise_globals',
2710: 'initialised g_header_rec; Entered the procedure');
2711: end if;
2712:
2736: dummy NUMBER;
2737: l_message_suffix varchar2(1);
2738:
2739: BEGIN
2740: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2741: fnd_log.string(fnd_log.level_statement,
2742: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2743: 'This is a concurrent program; Entered the procedure');
2744: end if;
2737: l_message_suffix varchar2(1);
2738:
2739: BEGIN
2740: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2741: fnd_log.string(fnd_log.level_statement,
2742: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2743: 'This is a concurrent program; Entered the procedure');
2744: end if;
2745:
2753: END IF;
2754:
2755: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
2756:
2757: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2758: fnd_log.string(fnd_log.level_statement,
2759: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2760: 'The request Id of this concurrent process is ' || l_request_id ||'; Now calling create_draft_neg_interface_pvt');
2761: end if;
2754:
2755: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
2756:
2757: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2758: fnd_log.string(fnd_log.level_statement,
2759: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2760: 'The request Id of this concurrent process is ' || l_request_id ||'; Now calling create_draft_neg_interface_pvt');
2761: end if;
2762:
2773: );
2774: IF (l_result <> 'SUCCESS') THEN
2775: RETCODE := '2' ;
2776:
2777: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2778: fnd_log.string(fnd_log.level_statement,
2779: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2780: l_error_message);
2781: end if;
2774: IF (l_result <> 'SUCCESS') THEN
2775: RETCODE := '2' ;
2776:
2777: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2778: fnd_log.string(fnd_log.level_statement,
2779: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2780: l_error_message);
2781: end if;
2782:
2781: end if;
2782:
2783: ELSE
2784:
2785: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2786: fnd_log.string(fnd_log.level_statement,
2787: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2788: 'purging the tables; calling PON_SOURCING_OPENAPI_GRP.PURGE_INTERFACE_TABLE()');
2789: end if;
2782:
2783: ELSE
2784:
2785: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2786: fnd_log.string(fnd_log.level_statement,
2787: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2788: 'purging the tables; calling PON_SOURCING_OPENAPI_GRP.PURGE_INTERFACE_TABLE()');
2789: end if;
2790:
2797: g_call_purge := false;
2798: IF (l_result <> 'SUCCESS') THEN
2799: RETCODE := '2' ;
2800:
2801: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2802: fnd_log.string(fnd_log.level_statement,
2803: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2804: l_error_message);
2805: end if;
2798: IF (l_result <> 'SUCCESS') THEN
2799: RETCODE := '2' ;
2800:
2801: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2802: fnd_log.string(fnd_log.level_statement,
2803: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2804: l_error_message);
2805: end if;
2806:
2805: end if;
2806:
2807: END IF;
2808:
2809: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2810: fnd_log.string(fnd_log.level_statement,
2811: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2812: 'Notifying SUCCESS');
2813: end if;
2806:
2807: END IF;
2808:
2809: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2810: fnd_log.string(fnd_log.level_statement,
2811: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2812: 'Notifying SUCCESS');
2813: end if;
2814:
2828: --
2829: --Ref: ECO - 4517992
2830: --
2831:
2832: /* if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2833: fnd_log.string(fnd_log.level_statement,
2834: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2835: 'Clearing request_id in pon_auction_headers_all');
2836: end if;
2829: --Ref: ECO - 4517992
2830: --
2831:
2832: /* if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2833: fnd_log.string(fnd_log.level_statement,
2834: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2835: 'Clearing request_id in pon_auction_headers_all');
2836: end if;
2837:
2840: where auction_header_id = p_auction_header_id;
2841: */
2842: RETCODE := '0';
2843:
2844: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2845: fnd_log.string(fnd_log.level_statement,
2846: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2847: 'Cleared request_id in pon_auction_headers_all for auction_header_id : ' || p_auction_header_id ||' ; returning');
2848: end if;
2841: */
2842: RETCODE := '0';
2843:
2844: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2845: fnd_log.string(fnd_log.level_statement,
2846: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2847: 'Cleared request_id in pon_auction_headers_all for auction_header_id : ' || p_auction_header_id ||' ; returning');
2848: end if;
2849:
2860: p_auction_header_id => p_auction_header_id,
2861: p_ProgramTypeCode => 'NEG_RENEGOTIATE',
2862: p_DestinationPageCode => 'PON_MANAGE_DRAFT_NEG',
2863: p_bid_number => NULL);
2864: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2865: fnd_log.string(fnd_log.level_statement,
2866: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2867: 'Notifying FAILURE');
2868: end if;
2861: p_ProgramTypeCode => 'NEG_RENEGOTIATE',
2862: p_DestinationPageCode => 'PON_MANAGE_DRAFT_NEG',
2863: p_bid_number => NULL);
2864: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2865: fnd_log.string(fnd_log.level_statement,
2866: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2867: 'Notifying FAILURE');
2868: end if;
2869:
2925: SYSDATE,
2926: fnd_global.login_id,
2927: sysdate + 7);
2928:
2929: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2930: fnd_log.string(fnd_log.level_statement,
2931: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2932: 'Notifying FAILURE');
2933: end if;
2926: fnd_global.login_id,
2927: sysdate + 7);
2928:
2929: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
2930: fnd_log.string(fnd_log.level_statement,
2931: 'pon.plsql.pon_sourcing_openapi_grp.pon_reneg_super_large_neg',
2932: 'Notifying FAILURE');
2933: end if;
2934: