36: g_period_name gl_period_statuses.period_name%TYPE;
37: g_user_id NUMBER;
38: g_login_id NUMBER;
39:
40: TYPE releaseLinesType IS TABLE OF ap_invoice_lines_all%rowtype INDEX BY PLS_INTEGER;
41: TYPE relDistType IS TABLE OF ap_invoice_distributions_all%rowtype INDEX BY PLS_INTEGER;
42:
43: Procedure Lock_Retained_Invoices (x_retained_lines_tab IN retainedLinesType,
44: x_lock_status OUT NOCOPY BOOLEAN);
60: Procedure final_release_rounding (x_line_location_id IN po_line_locations_all.line_location_id%type,
61: x_max_invoice_dist_id IN NUMBER);
62:
63: Procedure Update_PO_Shipment_Dists
64: (x_line_location_id IN ap_invoice_lines_all.po_line_location_id%type,
65: x_released_amount IN ap_invoice_lines_all.retained_amount%type,
66: x_released_dist_tab IN relDistType);
67:
68: PROCEDURE log (x_api_name IN varchar2, x_debug_info IN varchar2);
61: x_max_invoice_dist_id IN NUMBER);
62:
63: Procedure Update_PO_Shipment_Dists
64: (x_line_location_id IN ap_invoice_lines_all.po_line_location_id%type,
65: x_released_amount IN ap_invoice_lines_all.retained_amount%type,
66: x_released_dist_tab IN relDistType);
67:
68: PROCEDURE log (x_api_name IN varchar2, x_debug_info IN varchar2);
69:
226: l_max_line_amount NUMBER := 0;
227: l_rounding_index NUMBER;
228: l_max_inv_line_num NUMBER;
229:
230: TYPE invIDType IS TABLE OF ap_invoice_lines_all.invoice_id%type INDEX BY PLS_INTEGER;
231: TYPE LineNumType IS TABLE OF ap_invoice_lines_all.line_number%type INDEX BY PLS_INTEGER;
232: TYPE relAmtType IS TABLE OF ap_invoice_lines_all.retained_amount_remaining%type INDEX BY PLS_INTEGER;
233:
234: retained_inv_id_tab invIDType;
227: l_rounding_index NUMBER;
228: l_max_inv_line_num NUMBER;
229:
230: TYPE invIDType IS TABLE OF ap_invoice_lines_all.invoice_id%type INDEX BY PLS_INTEGER;
231: TYPE LineNumType IS TABLE OF ap_invoice_lines_all.line_number%type INDEX BY PLS_INTEGER;
232: TYPE relAmtType IS TABLE OF ap_invoice_lines_all.retained_amount_remaining%type INDEX BY PLS_INTEGER;
233:
234: retained_inv_id_tab invIDType;
235: retained_line_num_tab LineNumType;
228: l_max_inv_line_num NUMBER;
229:
230: TYPE invIDType IS TABLE OF ap_invoice_lines_all.invoice_id%type INDEX BY PLS_INTEGER;
231: TYPE LineNumType IS TABLE OF ap_invoice_lines_all.line_number%type INDEX BY PLS_INTEGER;
232: TYPE relAmtType IS TABLE OF ap_invoice_lines_all.retained_amount_remaining%type INDEX BY PLS_INTEGER;
233:
234: retained_inv_id_tab invIDType;
235: retained_line_num_tab LineNumType;
236: release_amount_tab relAmtType;
265: g_release_invoice_info.invoice_currency_code);
266:
267: SELECT nvl(max(line_number),0) + 1
268: INTO l_max_inv_line_num
269: FROM ap_invoice_lines_all
270: WHERE invoice_id = X_invoice_id;
271:
272: -- l_max_inv_line_num := ap_invoices_pkg.get_max_line_number(x_invoice_id) + 1;
273:
475: IF x_released_lines_tab.count > 0 THEN
476:
477: FORALL i in x_released_lines_tab.first .. x_released_lines_tab.last
478:
479: INSERT INTO ap_invoice_lines_all VALUES x_released_lines_tab(i);
480:
481: END IF;
482:
483: -- Update original invoice line retained amount remaining
536: l_rounding_index NUMBER;
537:
538: -- Recoupment
539: l_recoupment_rate po_lines_all.recoupment_rate%TYPE;
540: l_amount_to_recoup ap_invoice_lines_all.amount%TYPE;
541: l_success Boolean;
542: l_error_message Varchar2(4000);
543:
544: l_debug_info Varchar2(240);
867: Procedure Lock_Retained_Invoices (x_retained_lines_tab IN retainedLinesType,
868: x_lock_status OUT NOCOPY BOOLEAN) As
869: Pragma Autonomous_Transaction;
870:
871: TYPE invIDType IS TABLE OF ap_invoice_lines_all.invoice_id%type INDEX BY PLS_INTEGER;
872: TYPE lineNumType IS TABLE OF ap_invoice_lines_all.line_number%type INDEX BY PLS_INTEGER;
873:
874: lock_invoice_id_tab invIDType;
875: lock_line_number_tab lineNumType;
868: x_lock_status OUT NOCOPY BOOLEAN) As
869: Pragma Autonomous_Transaction;
870:
871: TYPE invIDType IS TABLE OF ap_invoice_lines_all.invoice_id%type INDEX BY PLS_INTEGER;
872: TYPE lineNumType IS TABLE OF ap_invoice_lines_all.line_number%type INDEX BY PLS_INTEGER;
873:
874: lock_invoice_id_tab invIDType;
875: lock_line_number_tab lineNumType;
876:
908: Procedure Unlock_Retained_Invoices (x_retained_lines_tab IN retainedLinesType,
909: x_lock_status OUT NOCOPY BOOLEAN) As
910: Pragma Autonomous_Transaction;
911:
912: TYPE invIDType IS TABLE OF ap_invoice_lines_all.invoice_id%type INDEX BY PLS_INTEGER;
913: TYPE lineNumType IS TABLE OF ap_invoice_lines_all.line_number%type INDEX BY PLS_INTEGER;
914:
915: lock_invoice_id_tab invIDType;
916: lock_line_number_tab lineNumType;
909: x_lock_status OUT NOCOPY BOOLEAN) As
910: Pragma Autonomous_Transaction;
911:
912: TYPE invIDType IS TABLE OF ap_invoice_lines_all.invoice_id%type INDEX BY PLS_INTEGER;
913: TYPE lineNumType IS TABLE OF ap_invoice_lines_all.line_number%type INDEX BY PLS_INTEGER;
914:
915: lock_invoice_id_tab invIDType;
916: lock_line_number_tab lineNumType;
917:
964:
965: End Unlock_Retained_Invoices;
966:
967: Procedure Update_PO_Shipment_Dists
968: (x_line_location_id IN ap_invoice_lines_all.po_line_location_id%type,
969: x_released_amount IN ap_invoice_lines_all.retained_amount%type,
970: x_released_dist_tab IN relDistType) As
971:
972: l_po_ap_dist_rec PO_AP_DIST_REC_TYPE;
965: End Unlock_Retained_Invoices;
966:
967: Procedure Update_PO_Shipment_Dists
968: (x_line_location_id IN ap_invoice_lines_all.po_line_location_id%type,
969: x_released_amount IN ap_invoice_lines_all.retained_amount%type,
970: x_released_dist_tab IN relDistType) As
971:
972: l_po_ap_dist_rec PO_AP_DIST_REC_TYPE;
973: l_po_ap_line_loc_rec PO_AP_LINE_LOC_REC_TYPE;