[Home] [Help]
1: PACKAGE BODY FA_LPITEMS_EXPT_PKG AS
2: /* $Header: FAXLPTPB.pls 120.11 2009/03/28 11:46:47 bridgway ship $ */
3:
4: /*This is a wrapper procedure for inserting rows into table
5: AP_INVOICE_LINES_INTERFACE.*/
6: PROCEDURE Invoice_Insert_Row(
7:
8: X_Invoice_ID IN NUMBER,
9: X_Invoice_Num IN VARCHAR2,
87:
88: END Invoice_Insert_Row;
89:
90: /*This is a wrapper procedure for inserting rows into table
91: AP_INVOICE_LINES_INTERFACE.*/
92: PROCEDURE Invoice_Line_Insert_Row(
93:
94: X_Invoice_ID IN NUMBER,
95: X_Invoice_Line_ID IN NUMBER,
107: p_log_level_rec IN FA_API_TYPES.log_level_rec_type ) IS
108:
109: BEGIN
110:
111: INSERT INTO AP_Invoice_Lines_Interface(
112:
113: Invoice_ID,
114: Invoice_Line_ID,
115: Line_Number,
153:
154: /* Procedure Payment_Items_to_AP pushes lease payment items in Fixed
155: Assets into Account Payables. For all rows with Export Status
156: 'POST', it will create new rows in tables AP_INVOICES_INTERFACE and
157: AP_INVOICE_LINES_INTERFACE. It will be called when a user presses
158: the EXPORT button in the Export Lease Payments to Payables window
159: and run as a concurrent program.*/
160: PROCEDURE Payment_Items_to_AP(
161: errbuf out nocopy varchar2,
349: FND_File.Put(FND_FILE.LOG, V_Title);
350: FND_File.New_Line(FND_FILE.LOG,2);
351: FOR current_item IN post_payment_items LOOP
352:
353: SELECT ap_invoices_interface_s.nextval, ap_invoice_lines_interface_s.nextval
354: INTO V_Invoice_ID, V_Invoice_Line_ID
355: FROM dual;
356:
357: -- set other variables from current_item;