The following lines contain the word 'select', 'insert', 'update' or 'delete':
INSERT INTO PO_INTERFACE_ERRORS
(
INTERFACE_TYPE,
INTERFACE_TRANSACTION_ID,
COLUMN_NAME,
COLUMN_VALUE,
TABLE_NAME,
ERROR_MESSAGE,
ERROR_MESSAGE_NAME,
PROCESSING_DATE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
INTERFACE_HEADER_ID,
INTERFACE_LINE_ID,
INTERFACE_DISTRIBUTION_ID,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE,
BATCH_ID
) VALUES (
'PO_DOCS_OPEN_INTERFACE',
PO_INTERFACE_ERRORS_S.nextval,
p_column_name,
substrb(p_column_value, 1, 4000),
p_table_name,
l_error_message_text,
p_error_message_name,
sysdate,
sysdate,
FND_GLOBAL.user_id,
sysdate,
FND_GLOBAL.user_id,
FND_GLOBAL.login_id,
p_interface_header_id,
p_interface_line_id,
p_interface_distribution_id,
FND_GLOBAL.conc_request_id,
FND_GLOBAL.prog_appl_id,
FND_GLOBAL.conc_program_id,
sysdate,
PO_R12_CAT_UPG_PVT.g_job.batch_id
);
UPDATE po_headers_interface
SET process_code = PO_R12_CAT_UPG_PVT.g_PROCESS_CODE_REJECTED
--processing_id = -PO_R12_CAT_UPG_PVT.g_processing_id
WHERE interface_header_id = p_id_tbl(i);
UPDATE po_lines_interface
SET process_code = PO_R12_CAT_UPG_PVT.g_PROCESS_CODE_REJECTED
--processing_id = -PO_R12_CAT_UPG_PVT.g_processing_id
WHERE interface_header_id = p_id_tbl(i)
RETURNING interface_header_id, interface_line_id
BULK COLLECT INTO l_processed_intf_hdr_id_tbl, l_intf_line_id_tbl;
UPDATE po_lines_interface
SET process_code = PO_R12_CAT_UPG_PVT.g_PROCESS_CODE_REJECTED
--processing_id = -PO_R12_CAT_UPG_PVT.g_processing_id
WHERE interface_line_id = p_id_tbl(i)
RETURNING interface_header_id, interface_line_id
BULK COLLECT INTO l_processed_intf_hdr_id_tbl, l_intf_line_id_tbl;
UPDATE /*+ INDEX(POATRI, PO_ATTR_VALUES_INT_N1) */
PO_ATTR_VALUES_INTERFACE POATRI
SET POATRI.process_code = PO_R12_CAT_UPG_PVT.g_PROCESS_CODE_REJECTED,
POATRI.processing_id = -PO_R12_CAT_UPG_PVT.g_processing_id
WHERE POATRI.interface_line_id = p_id_tbl(i);
UPDATE PO_ATTR_VALUES_INTERFACE POATRI
SET POATRI.process_code = PO_R12_CAT_UPG_PVT.g_PROCESS_CODE_REJECTED,
POATRI.processing_id = -PO_R12_CAT_UPG_PVT.g_processing_id
WHERE POATRI.interface_attr_values_id = p_id_tbl(i);
UPDATE /*+ INDEX(POTLPI, PO_ATTR_VALUES_TLP_INT_N1) */
PO_ATTR_VALUES_TLP_INTERFACE POTLPI
SET POTLPI.process_code = PO_R12_CAT_UPG_PVT.g_PROCESS_CODE_REJECTED,
POTLPI.processing_id = -PO_R12_CAT_UPG_PVT.g_processing_id
WHERE POTLPI.interface_line_id = p_id_tbl(i);
UPDATE po_attr_values_tlp_interface
SET process_code = PO_R12_CAT_UPG_PVT.g_PROCESS_CODE_REJECTED,
processing_id = -PO_R12_CAT_UPG_PVT.g_processing_id
WHERE interface_attr_values_tlp_id = p_id_tbl(i);
SELECT PHI.interface_header_id
FROM po_headers_interface PHI
WHERE PHI.batch_id = PO_R12_CAT_UPG_PVT.g_job.batch_id
AND (PHI.org_id = PO_R12_CAT_UPG_PVT.g_job.org_id OR
PO_R12_CAT_UPG_PVT.g_job.org_id IS NULL)
AND PHI.processing_id IS NULL
AND PHI.process_code = PO_R12_CAT_UPG_PVT.g_PROCESS_CODE_NEW;
UPDATE po_headers_interface
SET processing_id = PO_R12_CAT_UPG_PVT.g_processing_id
WHERE interface_header_id = l_intf_header_id_tbl(i)
AND processing_id IS NULL;
IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows updated in Headers Interface='||SQL%rowcount); END IF;
UPDATE po_lines_interface
SET processing_id = PO_R12_CAT_UPG_PVT.g_processing_id
WHERE interface_header_id = l_intf_header_id_tbl(i)
AND processing_id IS NULL
RETURNING interface_header_id, interface_line_id
BULK COLLECT INTO l_processed_intf_hdr_id_tbl, l_intf_line_id_tbl;
IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows updated in Lines Interface='||SQL%rowcount); END IF;
UPDATE /*+ INDEX(POATRI, PO_ATTR_VALUES_INT_N1) */
PO_ATTR_VALUES_INTERFACE POATRI
SET POATRI.processing_id = PO_R12_CAT_UPG_PVT.g_processing_id
WHERE POATRI.interface_line_id = l_intf_line_id_tbl(i)
-- Bug 5345544: Start
-- Bug 5417386: Not required after index column re-ordering
--AND POATRI.interface_header_id = l_processed_intf_hdr_id_tbl(i)
-- Bug 5345544: End
AND POATRI.processing_id IS NULL;
IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows updated in Attr Interface='||SQL%rowcount); END IF;
UPDATE /*+ INDEX(POTLPI, PO_ATTR_VALUES_TLP_INT_N1) */
PO_ATTR_VALUES_TLP_INTERFACE POTLPI
SET POTLPI.processing_id = PO_R12_CAT_UPG_PVT.g_processing_id
WHERE POTLPI.interface_line_id = l_intf_line_id_tbl(i)
-- Bug 5345544: Start
-- Bug 5417386: Not required after index column re-ordering
--AND POTLPI.interface_header_id = l_processed_intf_hdr_id_tbl(i)
-- Bug 5345544: End
AND POTLPI.processing_id IS NULL;
IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows updated in TLP Interface='||SQL%rowcount); END IF;
p_selected_batch_id IN NUMBER,
p_batch_size IN NUMBER,
p_buyer_id IN NUMBER,
p_document_type IN VARCHAR2,
p_document_subtype IN VARCHAR2,
p_create_items IN VARCHAR2,
p_create_sourcing_rules_flag IN VARCHAR2,
p_rel_gen_method IN VARCHAR2,
p_approved_status IN VARCHAR2,
p_process_code IN VARCHAR2,
p_interface_header_id IN NUMBER,
p_org_id IN NUMBER,
p_ga_flag IN VARCHAR2,
p_role IN VARCHAR2,
p_error_threshold IN NUMBER,
p_validate_only_mode IN VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'init_startup_values';
PO_R12_CAT_UPG_PVT.g_job.batch_id := p_selected_batch_id;
SELECT PO_PDOI_PROCESSING_ID_S.nextval
INTO PO_R12_CAT_UPG_PVT.g_processing_id
FROM DUAL;
SELECT
sob.currency_code,
sob.chart_of_accounts_id,
nvl(FSPA.purch_encumbrance_flag,'N'),
nvl(FSPA.req_encumbrance_flag,'N'),
sob.set_of_books_id,
FSPA.ship_to_location_id,
FSPA.bill_to_location_id,
FSPA.fob_lookup_code,
FSPA.freight_terms_lookup_code,
FSPA.terms_id,
PSPA.default_rate_type,
null,--PSPA.taxable_flag,
PSPA.receiving_flag,
nvl(PSPA.enforce_buyer_name_flag, 'N'),
nvl(PSPA.enforce_buyer_authority_flag,'N'),
PSPA.line_type_id,
PSPA.manual_po_num_type,
PSPA.user_defined_po_num_code,
PSPA.price_type_lookup_code,
PSPA.invoice_close_tolerance,
PSPA.receive_close_tolerance,
PSPA.security_position_structure_id,
PSPA.expense_accrual_code,
FSPA.inventory_organization_id,
FSPA.revision_sort_ordering,
PSPA.min_release_amount,
nvl(PSPA.notify_if_blanket_flag,'N'),
nvl(sob.enable_budgetary_control_flag,'N'),
PSPA.user_defined_req_num_code,
nvl(PSPA.rfq_required_flag,'N'),
PSPA.manual_req_num_type,
PSPA.enforce_full_lot_quantities,
PSPA.disposition_warning_flag,
nvl(FSPA.reserve_at_completion_flag,'N'),
PSPA.user_defined_receipt_num_code,
PSPA.manual_receipt_num_type,
FSPA.use_positions_flag,
PSPA.default_quote_warning_delay,
PSPA.inspection_required_flag,
PSPA.user_defined_quote_num_code,
PSPA.manual_quote_num_type,
PSPA.user_defined_rfq_num_code,
PSPA.manual_rfq_num_type,
FSPA.ship_via_lookup_code,
rcv.qty_rcv_tolerance
INTO
PO_R12_CAT_UPG_PVT.g_sys.currency_code,
PO_R12_CAT_UPG_PVT.g_sys.coa_id,
PO_R12_CAT_UPG_PVT.g_sys.po_encumberance_flag,
PO_R12_CAT_UPG_PVT.g_sys.req_encumberance_flag,
PO_R12_CAT_UPG_PVT.g_sys.sob_id,
PO_R12_CAT_UPG_PVT.g_sys.ship_to_location_id,
PO_R12_CAT_UPG_PVT.g_sys.bill_to_location_id,
PO_R12_CAT_UPG_PVT.g_sys.fob_lookup_code,
PO_R12_CAT_UPG_PVT.g_sys.freight_terms_lookup_code,
PO_R12_CAT_UPG_PVT.g_sys.terms_id,
PO_R12_CAT_UPG_PVT.g_sys.default_rate_type,
PO_R12_CAT_UPG_PVT.g_sys.taxable_flag,
PO_R12_CAT_UPG_PVT.g_sys.receiving_flag,
PO_R12_CAT_UPG_PVT.g_sys.enforce_buyer_name_flag,
PO_R12_CAT_UPG_PVT.g_sys.enforce_buyer_auth_flag,
PO_R12_CAT_UPG_PVT.g_sys.line_type_id,
PO_R12_CAT_UPG_PVT.g_sys.manual_po_num_type,
PO_R12_CAT_UPG_PVT.g_sys.po_num_code,
PO_R12_CAT_UPG_PVT.g_sys.price_lookup_code,
PO_R12_CAT_UPG_PVT.g_sys.invoice_close_tolerance,
PO_R12_CAT_UPG_PVT.g_sys.receive_close_tolerance,
PO_R12_CAT_UPG_PVT.g_sys.security_structure_id,
PO_R12_CAT_UPG_PVT.g_sys.expense_accrual_code,
PO_R12_CAT_UPG_PVT.g_sys.inv_org_id,
PO_R12_CAT_UPG_PVT.g_sys.rev_sort_ordering,
PO_R12_CAT_UPG_PVT.g_sys.min_rel_amount,
PO_R12_CAT_UPG_PVT.g_sys.notify_blanket_flag,
PO_R12_CAT_UPG_PVT.g_sys.budgetary_control_flag,
PO_R12_CAT_UPG_PVT.g_sys.user_defined_req_num_code,
PO_R12_CAT_UPG_PVT.g_sys.rfq_required_flag,
PO_R12_CAT_UPG_PVT.g_sys.manual_req_num_type,
PO_R12_CAT_UPG_PVT.g_sys.enforce_full_lot_qty,
PO_R12_CAT_UPG_PVT.g_sys.disposition_warning_flag,
PO_R12_CAT_UPG_PVT.g_sys.reserve_at_completion_flag,
PO_R12_CAT_UPG_PVT.g_sys.user_defined_rcpt_num_code,
PO_R12_CAT_UPG_PVT.g_sys.manual_rcpt_num_type,
PO_R12_CAT_UPG_PVT.g_sys.use_positions_flag,
PO_R12_CAT_UPG_PVT.g_sys.default_quote_warning_delay,
PO_R12_CAT_UPG_PVT.g_sys.inspection_required_flag,
PO_R12_CAT_UPG_PVT.g_sys.user_defined_quote_num_code,
PO_R12_CAT_UPG_PVT.g_sys.manual_quote_num_type,
PO_R12_CAT_UPG_PVT.g_sys.user_defined_rfq_num_code,
PO_R12_CAT_UPG_PVT.g_sys.manual_rfq_num_type,
PO_R12_CAT_UPG_PVT.g_sys.ship_via_lookup_code,
PO_R12_CAT_UPG_PVT.g_sys.qty_rcv_tolerance
FROM FINANCIALS_SYSTEM_PARAMS_ALL FSPA,
GL_SETS_OF_BOOKS SOB,
PO_SYSTEM_PARAMETERS_ALL PSPA,
RCV_PARAMETERS RCV
WHERE FSPA.set_of_books_id = SOB.set_of_books_id
AND RCV.organization_id (+) = FSPA.inventory_organization_id
AND PSPA.org_id = PO_R12_CAT_UPG_PVT.g_job.org_id
AND FSPA.org_id = PO_R12_CAT_UPG_PVT.g_job.org_id;
SELECT master_organization_id
INTO PO_R12_CAT_UPG_PVT.g_sys.master_inv_org_id
FROM MTL_PARAMETERS
WHERE organization_id = PO_R12_CAT_UPG_PVT.g_sys.inv_org_id;
SELECT language_code
INTO g_base_language
FROM FND_LANGUAGES
WHERE installed_flag='B';
SELECT count(*)
INTO l_num_languages
FROM FND_LANGUAGES
WHERE installed_flag IN ('B', 'I');