1 PACKAGE AP_FUNDS_CONTROL_PKG AS
2 /* $Header: aprfunds.pls 120.11 2006/02/09 00:39:03 sfeng noship $ */
3
4
5 /*=============================================================================
6 | Global variable Spec
7 *===========================================================================*/
8 g_debug_mode VARCHAR2(1):= 'N';
9
10 --Invoice Lines: Distributions, Added the Index by binary integer clause
11 TYPE Key_Value_Tab_Type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
12
13 TYPE Funds_Dist_Tab_Type IS TABLE OF PSA_AP_BC_PVT.Funds_Dist_Rec
14 INDEX BY BINARY_INTEGER;
15
16
17 /*=============================================================================
18 |Public Procedure Specification
19 *===========================================================================*/
20
21 PROCEDURE Funds_Reserve(
22 p_calling_mode IN VARCHAR2 DEFAULT 'APPROVE',
23 p_invoice_id IN NUMBER,
24 p_set_of_books_id IN NUMBER,
25 p_base_currency_code IN VARCHAR2,
26 p_conc_flag IN VARCHAR2,
27 p_system_user IN NUMBER,
28 p_holds IN OUT NOCOPY AP_APPROVAL_PKG.HOLDSARRAY,
29 p_hold_count IN OUT NOCOPY AP_APPROVAL_PKG.COUNTARRAY,
30 p_release_count IN OUT NOCOPY AP_APPROVAL_PKG.COUNTARRAY,
31 p_funds_return_code OUT NOCOPY VARCHAR2,
32 p_calling_sequence IN VARCHAR2);
33
34 --ETAX: Validation
35 PROCEDURE GET_ERV_CCID(
36 p_sys_xrate_gain_ccid IN NUMBER,
37 p_sys_xrate_loss_ccid IN NUMBER,
38 p_dist_ccid IN NUMBER,
39 p_variance_ccid IN NUMBER,
40 p_destination_type IN VARCHAR2,
41 p_inv_distribution_id IN NUMBER,
42 p_related_id IN NUMBER,
43 p_erv IN NUMBER,
44 p_erv_ccid IN OUT NOCOPY NUMBER,
45 p_calling_sequence IN VARCHAR2);
46
47 PROCEDURE Calc_QV(
48 p_invoice_id IN NUMBER,
49 p_po_dist_id IN NUMBER,
50 p_inv_currency_code IN VARCHAR2,
51 p_base_currency_code IN VARCHAR2,
52 p_po_price IN NUMBER,
53 p_po_qty IN NUMBER,
54 p_match_option IN VARCHAR2,
55 p_po_uom IN VARCHAR2,
56 p_item_id IN NUMBER,
57 p_qv IN OUT NOCOPY NUMBER,
58 p_bqv IN OUT NOCOPY NUMBER,
59 p_update_line_num IN OUT NOCOPY NUMBER,
60 p_update_dist_num IN OUT NOCOPY NUMBER,
61 p_calling_sequence IN VARCHAR2);
62
63 PROCEDURE Calc_AV(
64 p_invoice_id IN NUMBER,
65 p_po_dist_id IN NUMBER,
66 p_inv_currency_code IN VARCHAR2,
67 p_base_currency_code IN VARCHAR2,
68 p_po_amt IN NUMBER,
69 p_av IN OUT NOCOPY NUMBER,
70 p_bav IN OUT NOCOPY NUMBER,
71 p_update_line_num IN OUT NOCOPY NUMBER,
72 p_update_dist_num IN OUT NOCOPY NUMBER,
73 p_calling_sequence IN VARCHAR2);
74
75 PROCEDURE Funds_Check(
76 p_invoice_id IN NUMBER,
77 p_inv_line_num IN NUMBER,
78 p_dist_line_num IN NUMBER,
79 p_return_message_name IN OUT NOCOPY VARCHAR2,
80 p_calling_sequence IN VARCHAR2);
81
82 FUNCTION Funds_Check_Processor (
83 P_Invoice_Id IN NUMBER,
84 P_Invoice_Line_Number IN NUMBER,
85 p_dist_line_num IN NUMBER,
86 P_Invoice_Needs_Validation IN VARCHAR2,
87 P_Error_Code OUT NOCOPY VARCHAR2,
88 P_Token1 OUT NOCOPY NUMBER,
89 P_Calling_Sequence IN VARCHAR2) RETURN BOOLEAN;
90
91 END AP_FUNDS_CONTROL_PKG;