172: l_module_name VARCHAR2(200) := g_module_name || 'Validate_Invoices';
173:
174: CURSOR get_invoice_csr IS
175: SELECT invoice_id,invoice_num,invoice_date
176: FROM Ap_Invoices
177: WHERE set_of_books_id = g_sob_id
178: AND source = 'IPAC'
179: AND batch_id = g_batch_id
180: ORDER BY invoice_num;
181:
182: CURSOR get_recinv_csr(inv_action VARCHAR2) IS
183: SELECT fv.invoice_id, ap.invoice_num,
184: fv.accomplish_date, ap.payment_method_lookup_code
185: FROM Fv_Ipac_Recurring_Inv fv, Ap_Invoices ap
186: WHERE fv.invoice_id = ap.invoice_id
187: AND fv.batch_name = g_batch_name
188: AND fv.invoice_action = inv_action
189: ORDER BY ap.invoice_num;
187: AND fv.batch_name = g_batch_name
188: AND fv.invoice_action = inv_action
189: ORDER BY ap.invoice_num;
190:
191: l_invoice_num Ap_Invoices_All.invoice_num%TYPE;
192: l_inv_action Fv_Ipac_Recurring_Inv.invoice_action%TYPE;
193: l_validate_flag VARCHAR2(1);
194:
195: BEGIN
322: l_module_name VARCHAR2(200) := g_module_name || 'Call_Approval_Api';
323: l_holds_count NUMBER;
324: l_approval_status VARCHAR2(25);
325: l_mesg VARCHAR(2000);
326: x_paygroup Ap_Invoices.pay_group_lookup_code%TYPE;
327: l_funds_return_code VARCHAR2(15);
328:
329: BEGIN
330: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
501: PROCEDURE Insert_IA_Txns(p_invoice_id NUMBER,
502: p_invoice_num VARCHAR2,
503: x_paygroup OUT NOCOPY VARCHAR2) IS
504: l_module_name VARCHAR2(200) := g_module_name || 'Insert_IA_Txns';
505: l_vendor_id Ap_Invoices.vendor_id%TYPE;
506: l_vendor_name Po_Vendors.vendor_name%TYPE;
507: l_date Ap_Invoices.creation_date%TYPE;
508: l_count NUMBER := 0;
509: BEGIN
503: x_paygroup OUT NOCOPY VARCHAR2) IS
504: l_module_name VARCHAR2(200) := g_module_name || 'Insert_IA_Txns';
505: l_vendor_id Ap_Invoices.vendor_id%TYPE;
506: l_vendor_name Po_Vendors.vendor_name%TYPE;
507: l_date Ap_Invoices.creation_date%TYPE;
508: l_count NUMBER := 0;
509: BEGIN
510: -- Check if the paygroup matches with the paygroup in Federal options.
511: BEGIN
510: -- Check if the paygroup matches with the paygroup in Federal options.
511: BEGIN
512: SELECT COUNT(*)
513: INTO l_count
514: FROM Fv_Operating_Units fo,Ap_Invoices ai
515: WHERE ai.invoice_id = p_invoice_id
516: AND fo.set_of_books_id = g_sob_id
517: AND fo.payables_ia_paygroup = ai.pay_group_lookup_code;
518: EXCEPTION
532:
533: BEGIN
534: SELECT ai.vendor_id, pv.vendor_name, ai.creation_date
535: INTO l_vendor_id, l_vendor_name, l_date
536: FROM Ap_Invoices ai, Po_Vendors pv
537: WHERE ai.invoice_id = p_invoice_id
538: AND ai.vendor_id = pv.vendor_id
539: AND NOT EXISTS (SELECT 'X'
540: FROM Fv_Interagency_Funds
569: ' has not been inserted '|| 'into the interagency table.');
570: BEGIN
571: SELECT pay_group_lookup_code
572: INTO x_paygroup
573: FROM Ap_Invoices
574: WHERE invoice_id = p_invoice_id;
575:
576: EXCEPTION
577: WHEN OTHERS THEN
633: -- ------------------------------------------------------------------
634: PROCEDURE Update_WfStatus(p_invoice_id NUMBER) IS
635: l_module_name VARCHAR2(200) := g_module_name || 'Update_WfStatus';
636: BEGIN
637: UPDATE Ap_Invoices
638: SET wfapproval_status = 'NOT REQUIRED'
639: WHERE invoice_id = p_invoice_id;
640: EXCEPTION
641: WHEN OTHERS THEN