[Home] [Help]
1: package body AP_INVOICES_INTERFACE_PKG as
2: /* $Header: apaiithb.pls 120.12.12020000.2 2012/10/23 09:41:31 cmaredup ship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID IN OUT NOCOPY VARCHAR2,
140: )
141: IS
142: CURSOR C IS
143: SELECT ROWID
144: FROM AP_INVOICES_INTERFACE
145: WHERE INVOICE_ID = X_INVOICE_ID;
146: BEGIN
147: INSERT INTO AP_INVOICES_INTERFACE (
148: INVOICE_ID,
143: SELECT ROWID
144: FROM AP_INVOICES_INTERFACE
145: WHERE INVOICE_ID = X_INVOICE_ID;
146: BEGIN
147: INSERT INTO AP_INVOICES_INTERFACE (
148: INVOICE_ID,
149: INVOICE_NUM,
150: INVOICE_TYPE_LOOKUP_CODE,
151: INVOICE_DATE,
681: REMIT_TO_SUPPLIER_ID,
682: REMIT_TO_SUPPLIER_SITE,
683: REMIT_TO_SUPPLIER_SITE_ID,
684: RELATIONSHIP_ID
685: FROM AP_INVOICES_INTERFACE
686: WHERE INVOICE_ID = X_INVOICE_ID
687: FOR UPDATE OF INVOICE_ID nowait;
688:
689: tlinfo c1%rowtype;
1221: X_REMIT_TO_SUPPLIER_SITE_ID IN NUMBER DEFAULT NULL,
1222: X_RELATIONSHIP_ID IN NUMBER DEFAULT NULL)
1223: IS
1224: BEGIN
1225: UPDATE AP_INVOICES_INTERFACE
1226: SET
1227: INVOICE_NUM = X_INVOICE_NUM,
1228: INVOICE_TYPE_LOOKUP_CODE = X_INVOICE_TYPE_LOOKUP_CODE,
1229: INVOICE_DATE = X_INVOICE_DATE,
1371:
1372: /* Delete invoice rejections from the rejections table */
1373: DELETE FROM ap_interface_rejections
1374: WHERE parent_id = X_INVOICE_ID AND
1375: parent_table = 'AP_INVOICES_INTERFACE';
1376:
1377: /* Delete invoice lines rejections from the rejections table */
1378: DELETE FROM ap_interface_rejections
1379: WHERE parent_id IN (SELECT invoice_line_id
1385: DELETE FROM ap_invoice_lines_interface
1386: WHERE invoice_id = X_INVOICE_ID;
1387:
1388: /* Delete invoices from interface */
1389: DELETE FROM AP_INVOICES_INTERFACE
1390: WHERE INVOICE_ID = X_INVOICE_ID;
1391:
1392: IF (sql%notfound) THEN
1393: RAISE NO_DATA_FOUND;
1393: RAISE NO_DATA_FOUND;
1394: END IF;
1395: END DELETE_ROW;
1396:
1397: END AP_INVOICES_INTERFACE_PKG;