1 PACKAGE fv_ap_prepay_pkg AUTHID CURRENT_USER AS
2 -- $Header: FVAPIPPS.pls 120.0 2003/09/15 21:36:51 snama noship $
3 PROCEDURE Funds_Reserve(p_invoice_id IN NUMBER,
4 p_unique_packet_id_per IN VARCHAR2,
5 p_set_of_books_id IN NUMBER,
6 p_base_currency_code IN VARCHAR2,
7 p_inv_enc_type_id IN NUMBER,
8 p_purch_enc_type_id IN NUMBER,
9 p_conc_flag IN VARCHAR2,
10 p_system_user IN NUMBER,
11 p_ussgl_option IN VARCHAR2,
12 p_holds IN OUT NOCOPY AP_APPROVAL_PKG.HOLDSARRAY,
13 p_hold_count IN OUT NOCOPY AP_APPROVAL_PKG.COUNTARRAY,
14 p_release_count IN OUT NOCOPY AP_APPROVAL_PKG.COUNTARRAY,
15 p_calling_sequence IN VARCHAR2);
16 ------------------------------------------------------------------------------
17 -- Purpose :
18 -- This package is called when matching a prepayment invoice to a purchase
19 -- order. If the invoice amount plus the tolerance (setup on the Define
20 -- Federal Options form) is greater than the remaining amount on the purchase
21 -- order, then the transaction is not allowed.
22 --
23 -- History
24 --
25 -- Date Name Comments
26
27 -- 15-JUL-2003 Shiva Nama Created
28
29
30 PROCEDURE tolerance_check(p_line_location_id IN NUMBER,
31 p_match_amount IN NUMBER,
32 p_min_acc_unit in number,
33 p_precision in number,
34 p_tolerance_check_status OUT NOCOPY VARCHAR2);
35
36 --------------------------------------------------------------------------------
37 PROCEDURE create_prepay_lines(p_packet_id IN NUMBER,
38 p_status OUT NOCOPY NUMBER);
39 --------------------------------------------------------------------------------
40 TYPE r_dist_info IS RECORD
41 (invoice_dist_id ap_invoice_distributions.invoice_distribution_id%TYPE
42 ,item_amount ap_invoice_distributions.amount%TYPE);
43
44 TYPE r_prorate_info IS RECORD
45 (invoice_dist_id ap_invoice_distributions.invoice_distribution_id%TYPE
46 ,prorated_amount ap_invoice_distributions.amount%TYPE
47 ,ussgl_transaction_code ap_invoice_distributions.ussgl_transaction_code%TYPE
48 ,code_combination_id ap_invoice_distributions.dist_code_combination_id%TYPE );
49
50 TYPE prorate_amt_tab IS TABLE OF r_prorate_info
51 INDEX BY BINARY_INTEGER;
52
53 TYPE dist_tab IS TABLE OF r_dist_info
54 INDEX BY BINARY_INTEGER;
55
56 g_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('FV_DEBUG_FLAG'),'N');
57
58 PROCEDURE get_prorated_amount(p_invoice_id IN NUMBER
59 ,p_dist_tab IN dist_tab
60 ,p_prorated_amt OUT NOCOPY prorate_amt_tab
61 ,p_calling_sequence IN VARCHAR2 DEFAULT NULL
62 ,p_status OUT NOCOPY NUMBER);
63 --------------------------------------------------------------------------------
64
65 END FV_AP_PREPAY_PKG;