The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Fbt_Payment
( p_fbt_payment IN jai_fbt_payment%ROWTYPE
)
IS
lv_procedure_name VARCHAR2(40):='Insert_Fbt_Payment';
INSERT INTO jai_fbt_payment
( fbt_payment_id
, legal_entity_id
, fbt_year
, status_date
, invoice_reference
, invoice_date
, inv_supplier_id
, inv_supplier_site_id
, inv_ou_id
, creation_date
, created_by
, last_update_date
, last_updated_by
, last_update_login
, deposit_date
, bank_name
, branch_name
, it_challan
, bsr_code
, fbt_tax_amount
, fbt_surcharge_amount
, fbt_edu_cess_amount
, fbt_sh_cess_amount
)
VALUES ( p_fbt_payment.fbt_payment_id
, p_fbt_payment.legal_entity_id
, p_fbt_payment.fbt_year
, p_fbt_payment.status_date
, p_fbt_payment.invoice_reference
, p_fbt_payment.invoice_date
, p_fbt_payment.inv_supplier_id
, p_fbt_payment.inv_supplier_site_id
, p_fbt_payment.inv_ou_id
, p_fbt_payment.creation_date
, p_fbt_payment.created_by
, p_fbt_payment.last_update_date
, p_fbt_payment.last_updated_by
, p_fbt_payment.last_update_login
, p_fbt_payment.deposit_date
, p_fbt_payment.bank_name
, p_fbt_payment.branch_name
, p_fbt_payment.it_challan
, p_fbt_payment.bsr_code
, p_fbt_payment.fbt_tax_amount
, p_fbt_payment.fbt_surcharge_amount
, p_fbt_payment.fbt_edu_cess_amount
, p_fbt_payment.fbt_sh_cess_amount
);
END Insert_Fbt_Payment;
PROCEDURE Insert_Interface_Table
( p_inv_interface IN inv_interface_rec_type
, p_inv_lines_interface IN inv_lines_interface_rec_type
)
IS
lv_procedure_name VARCHAR2(40):='Insert_Interface_Table';
INSERT INTO ap_invoices_interface
( invoice_id
, invoice_num
, invoice_date
, vendor_id
, vendor_site_id
, invoice_amount
, invoice_currency_code
, accts_pay_code_combination_id
, source
, org_id
, legal_entity_id
, payment_method_lookup_code
, created_by
, creation_date
, last_updated_by
, last_update_date
, last_update_login
)
VALUES ( p_inv_interface.invoice_id
, p_inv_interface.invoice_num
, p_inv_interface.invoice_date
, p_inv_interface.vendor_id
, p_inv_interface.vendor_site_id
, p_inv_interface.invoice_amount
, p_inv_interface.invoice_currency_code
, p_inv_interface.accts_pay_ccid
, p_inv_interface.source
, p_inv_interface.org_id
, p_inv_interface.legal_entity_id
, p_inv_interface.payment_method_lookup_code
, p_inv_interface.created_by
, p_inv_interface.creation_date
, p_inv_interface.last_updated_by
, p_inv_interface.last_update_date
, p_inv_interface.last_update_login
);
INSERT INTO ap_invoice_lines_interface
( invoice_id
, invoice_line_id
, line_number
, line_type_lookup_code
, amount
, accounting_date
, description
, dist_code_combination_id
, org_id
, created_by
, creation_date
, last_updated_by
, last_update_date
, last_update_login
)
VALUES ( p_inv_lines_interface.invoice_id
, p_inv_lines_interface.invoice_line_id
, p_inv_lines_interface.line_number
, p_inv_lines_interface.line_type_lookup_code
, p_inv_lines_interface.amount
, p_inv_lines_interface.accounting_date
, p_inv_lines_interface.description
, p_inv_lines_interface.dist_code_combination_id
, p_inv_lines_interface.org_id
, p_inv_lines_interface.created_by
, p_inv_lines_interface.creation_date
, p_inv_lines_interface.last_updated_by
, p_inv_lines_interface.last_update_date
, p_inv_lines_interface.last_update_login
);
END Insert_Interface_Table;
SELECT
-- pvsa.org_id,
pvsa.accts_pay_code_combination_id
, pvsa.payment_method_lookup_code
FROM po_vendor_sites_all pvsa
WHERE pvsa.vendor_site_id = pn_supplier_site_id;
SELECT
gsob.currency_code
FROM
gl_sets_of_books gsob
, xle_fp_ou_ledger_v xfolv
WHERE gsob.set_of_books_id = xfolv.ledger_id
AND xfolv.legal_entity_id = pn_legal_entity_id;
SELECT
gsob.currency_code
FROM
gl_sets_of_books gsob
WHERE gsob.set_of_books_id IN
( SELECT
org_information3 --set of book id
FROM
hr_organization_information b
WHERE b.org_information2 = pn_legal_entity_id --LEGAL ENTITY ID
AND b.ORG_INFORMATION_CONTEXT='Operating Unit Information'
);
SELECT fbt_account_ccid
FROM JAI_FBT_SETUP_HEADERS
WHERE legal_entity_id = pn_legal_entity_id
and fbt_year = pn_fbt_year;
SELECT
NVL(fc.precision, 2)
INTO
ln_precision
FROM
gl_sets_of_books gsob
, fnd_currencies fc
WHERE gsob.set_of_books_id = fnd_profile.VALUE('GL_SET_OF_BKS_ID')
AND gsob.currency_code = fc.currency_code;
SELECT
ap_invoices_interface_s.nextval
INTO
ln_invoice_id
FROM dual;
SELECT jai_fbt_payment_s.NEXTVAL
INTO ln_fbt_payment_id
FROM dual;
UPDATE
jai_fbt_payment
SET
invoice_date = invoice_date
WHERE TRUNC(invoice_date) = TRUNC(invoice_date)
AND legal_entity_id = pn_legal_entity_id;
SELECT
COUNT(fbt_payment_id)+1
INTO
pn_invoice_number_seq
FROM
jai_fbt_payment
WHERE TRUNC(invoice_date) = TRUNC(ld_invoice_date)
AND legal_entity_id = pn_legal_entity_id;
SELECT 'FBT/Invoice/'||pn_legal_entity_id||'/'|| TO_CHAR(ld_invoice_date,lv_date_mask)||'/'|| pn_invoice_number_seq
INTO ln_invoice_num
FROM dual;
fbt_payment_rec.last_update_date := SYSDATE;
fbt_payment_rec.last_updated_by := ln_user_id;
fbt_payment_rec.last_update_login := ln_login_id;
Insert_Fbt_Payment(fbt_payment_rec);
inv_interface_rec.last_update_date := SYSDATE;
inv_interface_rec.last_updated_by := ln_user_id;
inv_interface_rec.last_update_login := ln_login_id;
SELECT ap_invoice_lines_interface_s.nextval
INTO ln_invoice_line_id
FROM dual;
inv_lines_interface_rec.last_update_date := SYSDATE;
inv_lines_interface_rec.last_updated_by := ln_user_id;
inv_lines_interface_rec.last_update_login := ln_login_id;
Insert_Interface_Table( inv_interface_rec
, inv_lines_interface_rec
);