[Home] [Help]
PACKAGE: APPS.ARI_SERVICE_CHARGE_PKG
Source
1 PACKAGE ARI_SERVICE_CHARGE_PKG AUTHID CURRENT_USER AS
2 /* $Header: ARISCRGS.pls 120.2.12020000.2 2012/07/22 13:28:00 rsinthre ship $ */
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 APPLY_DATE AR_ADJUSTMENTS.APPLY_DATE%TYPE,
38 GL_DATE AR_ADJUSTMENTS.GL_DATE%TYPE
39 );
40
41
42 TYPE INVOICE_LIST_TABTYPE IS TABLE OF INVOICE_REC_TYPE INDEX BY BINARY_INTEGER;
43
44 -- ADJUST AN INVOICE.
45 FUNCTION ADJUST_INVOICE (P_ADJUSTMENT_REC_TYPE IN ARI_SERVICE_CHARGE_PKG.ADJUSTMENT_REC_TYPE)
46 RETURN VARCHAR2;
47
48 -- APPLY SERVICE CHARGE
49 FUNCTION APPLY_CHARGE(P_INVOICE_SET IN ARI_SERVICE_CHARGE_PKG.INVOICE_LIST_TABTYPE)
50 RETURN VARCHAR2;
51
52 PROCEDURE COMPUTE_SERVICE_CHARGE(P_INVOICE_SET IN OUT NOCOPY ARI_SERVICE_CHARGE_PKG.INVOICE_LIST_TABTYPE,
53 P_PAYMENT_TYPE IN varchar2 DEFAULT NULL, P_LOOKUP_CODE IN varchar2 DEFAULT NULL);
54
55 END ARI_SERVICE_CHARGE_PKG;