18:
19: PROCEDURE log_message(p_message IN VARCHAR2) IS
20: BEGIN
21: IF (g_fnd_debug = 'Y') THEN
22: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
23: FND_LOG.string(log_level => FND_LOG.level_statement,
24: module => g_module,
25: message => substr(p_message, 0, 4000));
26: END IF;
19: PROCEDURE log_message(p_message IN VARCHAR2) IS
20: BEGIN
21: IF (g_fnd_debug = 'Y') THEN
22: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
23: FND_LOG.string(log_level => FND_LOG.level_statement,
24: module => g_module,
25: message => substr(p_message, 0, 4000));
26: END IF;
27: END IF;
29:
30: PROCEDURE log_error(p_message IN VARCHAR2) IS
31: BEGIN
32: IF (g_fnd_debug = 'Y') THEN
33: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
34: FND_LOG.string(log_level => FND_LOG.level_unexpected,
35: module => g_module,
36: message => substr(p_message, 0, 4000));
37: END IF;
30: PROCEDURE log_error(p_message IN VARCHAR2) IS
31: BEGIN
32: IF (g_fnd_debug = 'Y') THEN
33: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
34: FND_LOG.string(log_level => FND_LOG.level_unexpected,
35: module => g_module,
36: message => substr(p_message, 0, 4000));
37: END IF;
38: END IF;
82: x_application_id number := null;
83:
84: x_language_code VARCHAR2(3);
85: x_last_update_date pon_auction_headers_all.last_update_date%TYPE;
86: x_progress FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
87: x_origination_code pon_auction_headers_all.auction_origination_code%TYPE;
88: x_return_code VARCHAR2(10);
89:
90: l_api_name VARCHAR2(30) := ' AUTO_ALLOC_AND_SPLIT_REQ';
98: l_unawarded_line_count NUMBER;
99:
100: BEGIN
101:
102: /* perform initialization for FND logging */
103: if(g_fnd_debug = 'Y') then
104:
105: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
106: l_debug_enabled := 'Y';
101:
102: /* perform initialization for FND logging */
103: if(g_fnd_debug = 'Y') then
104:
105: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
106: l_debug_enabled := 'Y';
107: end if;
108:
109: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
105: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
106: l_debug_enabled := 'Y';
107: end if;
108:
109: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
110: l_exception_enabled := 'Y';
111: end if;
112:
113: end if;
404: p_requisition_number OUT NOCOPY VARCHAR2,
405: p_job_name OUT NOCOPY VARCHAR2,
406: p_document_disp_line_number OUT NOCOPY VARCHAR2) IS
407:
408: x_progress FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
409: x_result VARCHAR2(10);
410: x_error_message VARCHAR2(1000);
411:
412: -- unallocatedItems are items that have awarded bids that have yet to be
440: l_progress NUMBER := 0;
441:
442: BEGIN
443:
444: /* perform initialization for FND logging */
445: if(g_fnd_debug = 'Y') then
446:
447: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
448: l_debug_enabled := 'Y';
443:
444: /* perform initialization for FND logging */
445: if(g_fnd_debug = 'Y') then
446:
447: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
448: l_debug_enabled := 'Y';
449: end if;
450:
451: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
447: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
448: l_debug_enabled := 'Y';
449: end if;
450:
451: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
452: l_exception_enabled := 'Y';
453: end if;
454:
455: end if;
554: l_split_error_code VARCHAR2(10);
555: l_orig_req_line NUMBER;
556: l_req_qty NUMBER;
557: l_num_messages NUMBER;
558: x_progress FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
559: l_req_line_id_col dbms_sql.number_table;
560: lock_not_acquired EXCEPTION;
561: l_user_id NUMBER;
562:
623:
624:
625: BEGIN
626:
627: /* perform initialization for FND logging */
628: if(g_fnd_debug = 'Y') then
629:
630: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
631: l_debug_enabled := 'Y';
626:
627: /* perform initialization for FND logging */
628: if(g_fnd_debug = 'Y') then
629:
630: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
631: l_debug_enabled := 'Y';
632: end if;
633:
634: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
630: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
631: l_debug_enabled := 'Y';
632: end if;
633:
634: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
635: l_exception_enabled := 'Y';
636: end if;
637:
638: end if;
958: --l_split_req_line_id_insertcol dbms_sql.number_table;
959: l_clm_info_flag dbms_sql.number_table;
960:
961: l_empty_table dbms_sql.number_table;
962: x_progress FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
963: l_user_id NUMBER;
964: l_login_id NUMBER;
965: l_bid_price_col dbms_sql.number_table;
966: l_order_type_lookup_code pon_auction_item_prices_all.order_type_lookup_code%TYPE;
974: l_progress NUMBER := 0;
975:
976: BEGIN
977:
978: /* perform initialization for FND logging */
979: if(g_fnd_debug = 'Y') then
980:
981: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
982: l_debug_enabled := 'Y';
977:
978: /* perform initialization for FND logging */
979: if(g_fnd_debug = 'Y') then
980:
981: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
982: l_debug_enabled := 'Y';
983: end if;
984:
985: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
981: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
982: l_debug_enabled := 'Y';
983: end if;
984:
985: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
986: l_exception_enabled := 'Y';
987: end if;
988:
989: end if;
1742: x_line_number NUMBER;
1743: x_award_quantity NUMBER;
1744: x_allocation_quantity NUMBER;
1745: x_requisition_line_id NUMBER;
1746: x_progress FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1747: x_interface_header_id NUMBER;
1748: x_interface_line_id NUMBER;
1749: x_price NUMBER;
1750: x_quantity NUMBER;
3758: IF (x_pdoi_header.contract_type = 'STANDARD') THEN --{
3759:
3760: /* The following code is added only for logging purpose. */
3761: IF (g_fnd_debug = 'Y') THEN
3762: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3763: log_message('x_interface_header_id1 : ' ||x_interface_header_id);
3764: log_message('*********************************************************************************');
3765: log_message('Interface Header Id - Interface Line Id - Auction Header Id - Auction Line Number'||
3766: 'Group Line Id - Requisition Line Id - Clm Base Line Num - Lne Number');
3873: END IF; -- if l_is_fed = 'Y'
3874:
3875: /* The following code is added only for logging purpose. */
3876: IF (g_fnd_debug = 'Y') THEN
3877: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3878: log_message('*********************************************************************************');
3879: log_message('Interface Header Id - Interface Line Id - Auction Header Id - Auction Line Number'||
3880: 'Group Line Id - Requisition Line Id - Clm Base Line Num - Lne Number');
3881: OPEN log_cursor(x_interface_header_id);
3957: END IF;
3958:
3959: /* The following code is added only for logging purpose. */
3960: IF (g_fnd_debug = 'Y') THEN
3961: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3962: log_message('*********************************************************************************');
3963: log_message('Interface Header Id - Interface Line Id - Auction Header Id - Auction Line Number'||
3964: 'Group Line Id - Requisition Line Id - Clm Base Line Num - Lne Number');
3965: OPEN log_cursor(x_interface_header_id);
4349: x_language_code VARCHAR2(4);
4350: x_round_number NUMBER;
4351: x_line_number NUMBER;
4352: x_bid_number NUMBER;
4353: x_progress FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4354: x_po_header_id NUMBER;
4355: x_order_number pon_bid_headers.order_number%TYPE;
4356: x_interface_header_id NUMBER;
4357: x_last_update_date pon_auction_headers_all.last_update_date%TYPE;
4510: -- Get the current policy
4511: v_old_policy := mo_global.get_access_mode();
4512: v_old_org_id := mo_global.get_current_org_id();
4513:
4514: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
4515: fnd_log.string(
4516: fnd_log.level_statement,
4517: g_module || '.check_unique_order_number',
4518: 'old_policy = ' || v_old_policy || ', old_org_id = ' || v_old_org_id);
4511: v_old_policy := mo_global.get_access_mode();
4512: v_old_org_id := mo_global.get_current_org_id();
4513:
4514: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
4515: fnd_log.string(
4516: fnd_log.level_statement,
4517: g_module || '.check_unique_order_number',
4518: 'old_policy = ' || v_old_policy || ', old_org_id = ' || v_old_org_id);
4519: end if;
4512: v_old_org_id := mo_global.get_current_org_id();
4513:
4514: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
4515: fnd_log.string(
4516: fnd_log.level_statement,
4517: g_module || '.check_unique_order_number',
4518: 'old_policy = ' || v_old_policy || ', old_org_id = ' || v_old_org_id);
4519: end if;
4520:
4852: x_seq_for_item_key varchar2(6) := null;
4853: x_doc_type_to_create varchar2(25);
4854: v_old_policy varchar2(1);
4855: v_old_org_id number;
4856: x_progress FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4857: x_supplier_notif_method po_vendor_sites_all.supplier_notif_method%TYPE := null;
4858: x_print_flag varchar2(1) := 'N';
4859: x_fax_flag varchar2(1) := 'N';
4860: x_email_flag varchar2(1) := 'N';
4879: -- Get the current policy
4880: v_old_policy := mo_global.get_access_mode();
4881: v_old_org_id := mo_global.get_current_org_id();
4882:
4883: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
4884: fnd_log.string(
4885: fnd_log.level_statement,
4886: g_module || '.check_unique_order_number',
4887: 'old_policy = ' || v_old_policy || ', old_org_id = ' || v_old_org_id);
4880: v_old_policy := mo_global.get_access_mode();
4881: v_old_org_id := mo_global.get_current_org_id();
4882:
4883: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
4884: fnd_log.string(
4885: fnd_log.level_statement,
4886: g_module || '.check_unique_order_number',
4887: 'old_policy = ' || v_old_policy || ', old_org_id = ' || v_old_org_id);
4888: end if;
4881: v_old_org_id := mo_global.get_current_org_id();
4882:
4883: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
4884: fnd_log.string(
4885: fnd_log.level_statement,
4886: g_module || '.check_unique_order_number',
4887: 'old_policy = ' || v_old_policy || ', old_org_id = ' || v_old_org_id);
4888: end if;
4889:
5041:
5042:
5043: x_number_of_failed_pos NUMBER;
5044: x_auction_header_id NUMBER;
5045: x_progress FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5046:
5047: BEGIN
5048: IF (UNCMODE = 'CANCEL') THEN
5049: return;
5129: newline varchar2(256);
5130: beginBold VARCHAR2(10);
5131: endBold VARCHAR2(10);
5132: x_count NUMBER;
5133: x_progress FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5134: itemkey pon_auction_headers_all.wf_poncompl_item_key%TYPE;
5135: x_purchase_orders VARCHAR2(30);
5136: x_contract_type pon_auction_headers_all.contract_type%TYPE;
5137:
5299: newline varchar2(256);
5300: beginBold VARCHAR2(10);
5301: endBold VARCHAR2(10);
5302: x_count NUMBER;
5303: x_progress FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5304: itemkey pon_auction_headers_all.wf_poncompl_item_key%TYPE;
5305: x_purchase_orders VARCHAR2(30);
5306: x_contract_type pon_auction_headers_all.contract_type%TYPE;
5307: x_error_msg pon_bid_headers.po_error_msg%type;
5516: l_debug_enabled VARCHAR2(1) := 'N';
5517: l_exception_enabled VARCHAR2(1) := 'N';
5518: l_progress NUMBER := 0;
5519:
5520: x_progress FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5521:
5522: -- Business Events Project
5523: x_return_status VARCHAR2(20);
5524: x_msg_count NUMBER;
5531: l_is_line_type_enabled VARCHAR2(1);
5532:
5533: BEGIN
5534:
5535: /* perform initialization for FND logging */
5536: if(g_fnd_debug = 'Y') then
5537:
5538: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
5539: l_debug_enabled := 'Y';
5534:
5535: /* perform initialization for FND logging */
5536: if(g_fnd_debug = 'Y') then
5537:
5538: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
5539: l_debug_enabled := 'Y';
5540: end if;
5541:
5542: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
5538: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
5539: l_debug_enabled := 'Y';
5540: end if;
5541:
5542: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
5543: l_exception_enabled := 'Y';
5544: end if;
5545:
5546: end if;
6019: l_api_name VARCHAR2(150) := 'create_pon_back_req_alloc';
6020: l_debug_enabled VARCHAR2(1);
6021: l_exception_enabled VARCHAR2(1);
6022:
6023: x_progress FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
6024: x_result VARCHAR2(10);
6025: x_error_message VARCHAR2(1000);
6026: l_count NUMBER;
6027:
6028: BEGIN
6029:
6030: if(g_fnd_debug = 'Y') then
6031:
6032: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
6033: l_debug_enabled := 'Y';
6034: end if;
6035:
6036: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
6032: if (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
6033: l_debug_enabled := 'Y';
6034: end if;
6035:
6036: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
6037: l_exception_enabled := 'Y';
6038: end if;
6039:
6040: end if;