[Home] [Help]
44: ,p_token2_val VARCHAR2 :=''
45: ,p_token3_val VARCHAR2 :=''
46: ,p_token4_val VARCHAR2 :='');
47:
48: -- This procedure is to create entry into ap_invoices_interface table.
49: Procedure Create_Invoice_Header (
50: p_deduction_req_id IN NUMBER
51: ,p_invoice_id IN NUMBER
52: ,p_invoice_num IN VARCHAR2
783: AND vendor_id = p_vendor_id
784: AND org_id = p_org_id
785: UNION ALL
786: SELECT 1
787: FROM AP_INVOICES_INTERFACE
788: WHERE invoice_num = p_debit_memo_num
789: AND vendor_id = p_vendor_id
790: AND org_id = p_org_id
791: AND nvl(status, 'REJECTED') <> 'REJECTED');
1496:
1497: Update_Deduction_Status(p_dctn_hdr_rec.deduction_req_id,
1498: 'APPROVED');
1499:
1500: SELECT AP_INVOICES_INTERFACE_S.nextval
1501: INTO l_int_invoice_id
1502: FROM SYS.DUAL;
1503:
1504: IF P_DEBUG_MODE = 'Y' THEN
1660: ,p_tax_flag IN VARCHAR2
1661: ,p_org_id IN NUMBER ) IS
1662:
1663: l_rowid ROWID;
1664: l_groupid AP_INVOICES_INTERFACE.group_id%TYPE;
1665: Begin
1666: g_api_name := 'Create_Invoice_Header';
1667:
1668: IF P_DEBUG_MODE = 'Y' THEN
1674: IF P_DEBUG_MODE = 'Y' THEN
1675: log_message ('Before inserting invoice header : '||l_groupId, g_api_name);
1676: END IF;
1677:
1678: INSERT INTO AP_INVOICES_INTERFACE (
1679: invoice_id
1680: ,invoice_num
1681: ,invoice_type_lookup_code
1682: ,invoice_date
1825: p_print_batch VARCHAR2(1);
1826: p_calling_sequence VARCHAR2(100);
1827:
1828: CURSOR C1 IS
1829: SELECT * FROM AP_INVOICES_INTERFACE
1830: WHERE product_table = 'PA_DEDUCTIONS_ALL'
1831: AND reference_key1 = p_dctn_req_id;
1832:
1833: CURSOR C2 IS
1855: hr.name exp_org,
1856: al.amount
1857: from AP_INVOICE_LINES_INTERFACE al
1858: , ap_interface_rejections ar,
1859: AP_INVOICES_INTERFACE ad,
1860: pa_tasks pta,hr_organization_units hr,
1861: fnd_lookup_values lookup
1862: where ar.parent_id=al.invoice_line_id
1863: and ar.parent_table='AP_INVOICE_LINES_INTERFACE'
1874:
1875: CURSOR C5 IS
1876: select lookup.description reason
1877: from ap_interface_rejections ar,
1878: AP_INVOICES_INTERFACE ad,
1879: fnd_lookup_values lookup
1880: where ar.parent_id=ad.invoice_id
1881: and ar.parent_table='AP_INVOICES_INTERFACE'
1882: and ad.product_table = 'PA_DEDUCTIONS_ALL'
1877: from ap_interface_rejections ar,
1878: AP_INVOICES_INTERFACE ad,
1879: fnd_lookup_values lookup
1880: where ar.parent_id=ad.invoice_id
1881: and ar.parent_table='AP_INVOICES_INTERFACE'
1882: and ad.product_table = 'PA_DEDUCTIONS_ALL'
1883: and ar.reject_lookup_code = lookup.lookup_code
1884: and lookup.lookup_type='REJECT CODE'
1885: and view_application_id=200
2160: BEGIN
2161: NULL;
2162:
2163: DELETE AP_INVOICE_LINES_INTERFACE WHERE invoice_id IN(
2164: SELECT invoice_id FROM AP_INVOICES_INTERFACE WHERE
2165: product_table = 'PA_DEDUCTIONS_ALL' and reference_key1 = to_char(p_dctn_req_id));
2166:
2167: DELETE AP_INVOICES_INTERFACE WHERE
2168: product_table = 'PA_DEDUCTIONS_ALL' and reference_key1 = to_char(p_dctn_req_id);
2163: DELETE AP_INVOICE_LINES_INTERFACE WHERE invoice_id IN(
2164: SELECT invoice_id FROM AP_INVOICES_INTERFACE WHERE
2165: product_table = 'PA_DEDUCTIONS_ALL' and reference_key1 = to_char(p_dctn_req_id));
2166:
2167: DELETE AP_INVOICES_INTERFACE WHERE
2168: product_table = 'PA_DEDUCTIONS_ALL' and reference_key1 = to_char(p_dctn_req_id);
2169:
2170: DELETE AP_INVOICE_DISTRIBUTIONS_ALL WHERE invoice_id IN(
2171: SELECT invoice_id FROM AP_INVOICES_ALL WHERE
2208: AND vendor_id = p_vendor_id
2209: AND org_id = p_org_id
2210: UNION ALL
2211: SELECT 1
2212: FROM AP_INVOICES_INTERFACE
2213: WHERE invoice_num = p_debit_memo_num
2214: AND vendor_id = p_vendor_id
2215: AND org_id = p_org_id
2216: AND nvl(status, 'REJECTED') <> 'REJECTED');