1 PACKAGE ARI_SERVICE_CHARGE_PKG AS
2 /* $Header: ARISCRGS.pls 120.0 2005/05/13 09:36:09 vnb noship $ */
3 --
4 --
5 -- Purpose: This package is called to apply any service charges
6 -- to the invoice.
7 --
8 -- MODIFICATION HISTORY
9 -- Person Date Comments
10 -- --------- ------ ------------------------------------------
11 -- bchowdar 15-Jan-2003 Created.
12
13 /*=======================================================================+
14 | Procedures and Functions
15 +=======================================================================*/
16
17 -- RECORD TYPE FOR AR ADJUSTMENT FUNCTION
18 TYPE ADJUSTMENT_REC_TYPE IS RECORD
19 (PAYMENT_SCHEDULE_ID AR_ADJUSTMENTS.PAYMENT_SCHEDULE_ID%TYPE,
20 RECEIVABLES_TRX_ID AR_ADJUSTMENTS.RECEIVABLES_TRX_ID%TYPE,
21 AMOUNT AR_ADJUSTMENTS.AMOUNT%TYPE,
22 CUSTOMER_TRX_LINE_ID AR_ADJUSTMENTS.CUSTOMER_TRX_LINE_ID%TYPE,
23 APPLY_DATE AR_ADJUSTMENTS.APPLY_DATE%TYPE,
24 GL_DATE AR_ADJUSTMENTS.GL_DATE%TYPE,
25 CREATED_FROM AR_ADJUSTMENTS.CREATED_FROM%TYPE);
26
27 --Bug 3886652 - Customer site added to Invoice_rec_type
28 TYPE INVOICE_REC_TYPE IS RECORD
29 (PAYMENT_SCHEDULE_ID NUMBER(15),
30 PAYMENT_AMOUNT NUMBER,
31 CUSTOMER_ID NUMBER(15),
32 CUSTOMER_SITE_USE_ID NUMBER(15),
33 ACCOUNT_NUMBER VARCHAR2(30),
34 CUSTOMER_TRX_ID NUMBER(15),
35 CURRENCY_CODE VARCHAR2(15),
36 SERVICE_CHARGE NUMBER
37 );
38
39
40 TYPE INVOICE_LIST_TABTYPE IS TABLE OF INVOICE_REC_TYPE INDEX BY BINARY_INTEGER;
41
42 -- ADJUST AN INVOICE.
43 FUNCTION ADJUST_INVOICE (P_ADJUSTMENT_REC_TYPE IN ARI_SERVICE_CHARGE_PKG.ADJUSTMENT_REC_TYPE)
44 RETURN VARCHAR2;
45
46 -- APPLY SERVICE CHARGE
47 FUNCTION APPLY_CHARGE(P_INVOICE_SET IN ARI_SERVICE_CHARGE_PKG.INVOICE_LIST_TABTYPE)
48 RETURN VARCHAR2;
49
50 PROCEDURE COMPUTE_SERVICE_CHARGE(P_INVOICE_SET IN OUT NOCOPY ARI_SERVICE_CHARGE_PKG.INVOICE_LIST_TABTYPE);
51
52 END ARI_SERVICE_CHARGE_PKG;