1 PACKAGE OKL_CURE_CALC_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRCURS.pls 115.2 2003/01/02 23:48:22 pdevaraj noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_CURE_CALC_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
29
30 /*
31 This is a concurrent process that is used to identify
32 delinquent contracts and based on vendor program rules calculate
33 the Cure and Repurchase Amounts.
34 Note: Calculation of Cure and Repurchase is allowed only
35 for those contract that have Vendor Programs that
36 allow cures and repurchases.
37 */
38 PROCEDURE GENERATE_CURE_AMOUNT(
39 errbuf OUT NOCOPY VARCHAR2,
40 retcode OUT NOCOPY NUMBER,
41 p_contract_number IN VARCHAR2
42 );
43
44 PROCEDURE write_log(mesg_level IN NUMBER, mesg IN VARCHAR2);
45
46
47 END OKL_CURE_CALC_PVT;