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;
247: g_release_invoice_info.invoice_currency_code);
248:
249: SELECT nvl(max(line_number),0) + 1
250: INTO l_max_inv_line_num
251: FROM ap_invoice_lines_all
252: WHERE invoice_id = X_invoice_id;
253:
254: -- l_max_inv_line_num := ap_invoices_pkg.get_max_line_number(x_invoice_id) + 1;
255:
447: IF x_released_lines_tab.count > 0 THEN
448:
449: FORALL i in x_released_lines_tab.first .. x_released_lines_tab.last
450:
451: INSERT INTO ap_invoice_lines_all VALUES x_released_lines_tab(i);
452:
453: END IF;
454:
455: -- Update original invoice line retained amount remaining
508: l_rounding_index NUMBER;
509:
510: -- Recoupment
511: l_recoupment_rate po_lines_all.recoupment_rate%TYPE;
512: l_amount_to_recoup ap_invoice_lines_all.amount%TYPE;
513: l_success Boolean;
514: l_error_message Varchar2(4000);
515:
516: l_debug_info Varchar2(240);
831: Procedure Lock_Retained_Invoices (x_retained_lines_tab IN retainedLinesType,
832: x_lock_status OUT NOCOPY BOOLEAN) As
833: Pragma Autonomous_Transaction;
834:
835: TYPE invIDType IS TABLE OF ap_invoice_lines_all.invoice_id%type INDEX BY PLS_INTEGER;
836: TYPE lineNumType IS TABLE OF ap_invoice_lines_all.line_number%type INDEX BY PLS_INTEGER;
837:
838: lock_invoice_id_tab invIDType;
839: lock_line_number_tab lineNumType;
832: x_lock_status OUT NOCOPY BOOLEAN) As
833: Pragma Autonomous_Transaction;
834:
835: TYPE invIDType IS TABLE OF ap_invoice_lines_all.invoice_id%type INDEX BY PLS_INTEGER;
836: TYPE lineNumType IS TABLE OF ap_invoice_lines_all.line_number%type INDEX BY PLS_INTEGER;
837:
838: lock_invoice_id_tab invIDType;
839: lock_line_number_tab lineNumType;
840:
872: Procedure Unlock_Retained_Invoices (x_retained_lines_tab IN retainedLinesType,
873: x_lock_status OUT NOCOPY BOOLEAN) As
874: Pragma Autonomous_Transaction;
875:
876: TYPE invIDType IS TABLE OF ap_invoice_lines_all.invoice_id%type INDEX BY PLS_INTEGER;
877: TYPE lineNumType IS TABLE OF ap_invoice_lines_all.line_number%type INDEX BY PLS_INTEGER;
878:
879: lock_invoice_id_tab invIDType;
880: lock_line_number_tab lineNumType;
873: x_lock_status OUT NOCOPY BOOLEAN) As
874: Pragma Autonomous_Transaction;
875:
876: TYPE invIDType IS TABLE OF ap_invoice_lines_all.invoice_id%type INDEX BY PLS_INTEGER;
877: TYPE lineNumType IS TABLE OF ap_invoice_lines_all.line_number%type INDEX BY PLS_INTEGER;
878:
879: lock_invoice_id_tab invIDType;
880: lock_line_number_tab lineNumType;
881:
928:
929: End Unlock_Retained_Invoices;
930:
931: Procedure Update_PO_Shipment_Dists
932: (x_line_location_id IN ap_invoice_lines_all.po_line_location_id%type,
933: x_released_amount IN ap_invoice_lines_all.retained_amount%type,
934: x_released_dist_tab IN relDistType) As
935:
936: l_po_ap_dist_rec PO_AP_DIST_REC_TYPE;
929: End Unlock_Retained_Invoices;
930:
931: Procedure Update_PO_Shipment_Dists
932: (x_line_location_id IN ap_invoice_lines_all.po_line_location_id%type,
933: x_released_amount IN ap_invoice_lines_all.retained_amount%type,
934: x_released_dist_tab IN relDistType) As
935:
936: l_po_ap_dist_rec PO_AP_DIST_REC_TYPE;
937: l_po_ap_line_loc_rec PO_AP_LINE_LOC_REC_TYPE;