1 PACKAGE OKL_VENDOR_REFUND_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRRFDS.pls 115.5 2003/04/25 04:15:08 smereddy noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_VENDOR_REFUND_PVT';
5 G_APP_NAME CONSTANT VARCHAR2(3) := 'OKL';
6
7 l_MsgLevel NUMBER := NVL(to_number(FND_PROFILE.VALUE('FND_AS_MSG_LEVEL_THRESHOLD')),
8 FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
9
10 TYPE error_rec_type IS RECORD (
11 contract_number okc_k_headers_b.contract_number%type,
12 cure_type okl_cure_amounts.cure_type%type,
13 cure_amount okl_cure_amounts.cure_amount%type
14 );
15
16 TYPE error_tbl_type IS TABLE OF error_rec_type
17 INDEX BY BINARY_INTEGER;
18
19 TYPE error_message_type IS TABLE OF VARCHAR2(2000)
20 INDEX BY BINARY_INTEGER;
21
22 l_error_tbl error_tbl_type;
23 l_success_tbl error_tbl_type;
24 l_success_idx NUMBER;
25 l_error_idx NUMBER;
26
27 /*
28 This is a concurrent process that is used to identify non delinquent contracts
29 for refund based on vendor program rules. It calculates vendor's elgibility for
30 refund using vendor program rules.
31 */
32
33 PROCEDURE GENERATE_VENDOR_REFUND(
34 errbuf OUT NOCOPY VARCHAR2,
35 retcode OUT NOCOPY NUMBER,
36 p_contract_number IN VARCHAR2
37 );
38
39 PROCEDURE write_log(mesg_level IN NUMBER, mesg IN VARCHAR2);
40
41
42 END OKL_VENDOR_REFUND_PVT;