[Home] [Help]
1: package body AP_INVOICE_LINES_INTERFACE_PKG as
2: /* $Header: apailthb.pls 120.10.12010000.2 2009/04/09 12:42:29 sbonala ship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID IN OUT NOCOPY VARCHAR2,
147: debug_info VARCHAR2(100);
148:
149: CURSOR C IS
150: SELECT ROWID
151: FROM AP_INVOICE_LINES_INTERFACE
152: WHERE invoice_id = X_Invoice_Id
153: AND invoice_line_id = X_Invoice_Line_Id;
154: BEGIN
155: -- Update the calling sequence
153: AND invoice_line_id = X_Invoice_Line_Id;
154: BEGIN
155: -- Update the calling sequence
156:
157: current_calling_sequence :='AP_INVOICE_LINES_INTERFACE_PKG.Insert_Row<-'||
158: X_Calling_Sequence;
159:
160: -- Check for uniqueness of the line number in the process.
161:
160: -- Check for uniqueness of the line number in the process.
161:
162: debug_info := 'Insert into ap_invoice_distributions';
163:
164: INSERT INTO AP_INVOICE_LINES_INTERFACE (
165: INVOICE_ID,
166: INVOICE_LINE_ID,
167: LINE_NUMBER,
168: LINE_TYPE_LOOKUP_CODE,
727: PURCHASING_CATEGORY_ID,
728: COST_FACTOR_NAME,
729: COST_FACTOR_ID,
730: TAX_CLASSIFICATION_CODE
731: FROM AP_INVOICE_LINES_INTERFACE
732: WHERE rowid = X_Rowid
733: FOR UPDATE OF Invoice_id NOWAIT;
734:
735: tlinfo c1%rowtype;
737: debug_info VARCHAR2(100);
738: BEGIN
739: -- Update the calling sequence
740:
741: current_calling_sequence :='AP_INVOICE_LINES_INTERFACE_PKG.Lock_Row<-'
742: ||X_Calling_Sequence;
743:
744: debug_info := 'Select from ap_invoice_lines_interface';
745:
740:
741: current_calling_sequence :='AP_INVOICE_LINES_INTERFACE_PKG.Lock_Row<-'
742: ||X_Calling_Sequence;
743:
744: debug_info := 'Select from ap_invoice_lines_interface';
745:
746: OPEN c1;
747:
748: debug_info := 'Fetch cursor C1';
1318:
1319: BEGIN
1320: -- Update the calling sequence
1321:
1322: current_calling_sequence := 'AP_INVOICE_LINES_INTERFACE_PKG.Update_Row<-'
1323: ||X_Calling_Sequence;
1324:
1325: debug_info := 'Update ap_invoice_lines_interface';
1326:
1321:
1322: current_calling_sequence := 'AP_INVOICE_LINES_INTERFACE_PKG.Update_Row<-'
1323: ||X_Calling_Sequence;
1324:
1325: debug_info := 'Update ap_invoice_lines_interface';
1326:
1327: UPDATE AP_INVOICE_LINES_INTERFACE SET
1328: INVOICE_ID = X_INVOICE_ID,
1329: INVOICE_LINE_ID = X_INVOICE_LINE_ID,
1323: ||X_Calling_Sequence;
1324:
1325: debug_info := 'Update ap_invoice_lines_interface';
1326:
1327: UPDATE AP_INVOICE_LINES_INTERFACE SET
1328: INVOICE_ID = X_INVOICE_ID,
1329: INVOICE_LINE_ID = X_INVOICE_LINE_ID,
1330: LINE_NUMBER = X_LINE_NUMBER,
1331: LINE_TYPE_LOOKUP_CODE = X_LINE_TYPE_LOOKUP_CODE,
1486: BEGIN
1487:
1488: -- Update the calling sequence
1489:
1490: current_calling_sequence := 'AP_INVOICE_LINES_INTERFACE_PKG.Delete_Row<-'
1491: ||X_Calling_Sequence;
1492:
1493: -- Bug 2496745. Deleting the rejections for this invoice line.
1494:
1495: debug_info := 'Delete from ap_interface_rejections';
1496:
1497: DELETE FROM AP_INTERFACE_REJECTIONS
1498: WHERE parent_id = X_invoice_line_id
1499: AND parent_table = 'AP_INVOICE_LINES_INTERFACE';
1500:
1501: debug_info := 'Delete from ap_invoice_lines_interface';
1502:
1503: DELETE FROM AP_INVOICE_LINES_INTERFACE
1497: DELETE FROM AP_INTERFACE_REJECTIONS
1498: WHERE parent_id = X_invoice_line_id
1499: AND parent_table = 'AP_INVOICE_LINES_INTERFACE';
1500:
1501: debug_info := 'Delete from ap_invoice_lines_interface';
1502:
1503: DELETE FROM AP_INVOICE_LINES_INTERFACE
1504: WHERE invoice_line_id = X_invoice_line_id;
1505:
1499: AND parent_table = 'AP_INVOICE_LINES_INTERFACE';
1500:
1501: debug_info := 'Delete from ap_invoice_lines_interface';
1502:
1503: DELETE FROM AP_INVOICE_LINES_INTERFACE
1504: WHERE invoice_line_id = X_invoice_line_id;
1505:
1506: IF (SQL%NOTFOUND) THEN
1507: Raise NO_DATA_FOUND;
1518: APP_EXCEPTION.RAISE_EXCEPTION;
1519:
1520: END Delete_Row;
1521:
1522: END AP_INVOICE_LINES_INTERFACE_PKG;