1 PACKAGE okl_subsidy_pool_auth_trx_pvt AUTHID CURRENT_USER AS
2 /* $Header: OKLRSIUS.pls 120.1 2005/10/30 03:17:15 appldev noship $ */
3
4 subtype sixv_rec_type is OKL_SIX_PVT.sixv_rec_type;
5 subtype sixv_tbl_type is OKL_SIX_PVT.sixv_tbl_type;
6
7 ---------------------------------------------------------------------------
8 -- GLOBAL VARIABLES
9 ---------------------------------------------------------------------------
10 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OKL_SUBSIDY_POOL_AUTH_TRX_PVT';
11 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
12 G_API_TYPE CONSTANT VARCHAR2(30) := '_PVT';
13
14 G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
15 G_RET_STS_ERROR CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
16 G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_UNEXP_ERROR;
17
18 G_EXCEPTION_ERROR EXCEPTION;
19 G_EXCEPTION_UNEXPECTED_ERROR EXCEPTION;
20
21 -------------------------------------------------------------------------------
22 -- PROCEDURE create_pool_trx_khr_book
23 -------------------------------------------------------------------------------
24 -- Start of comments
25 --
26 -- Procedure Name : create_pool_trx_khr_book
27 -- Description : common procedure which creates pool transaction in the okl_trx_subsidy_pools table
28 -- api for authoring contracts
29 -- Parameters : IN p_chr_id: CONTRACT_ID
30 -- IN p_subsidy_id
31 -- IN p_subsidy_pool_id
32 -- IN p_trx_amount : amount on the subsidy (if override amt not present then calculated value)
33 -- Version : 1.0
34 -- History : 07-FEB-2005 SJALASUT created
35 -- End of comments
36
37 PROCEDURE create_pool_trx_khr_book(p_api_version IN NUMBER
38 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
39 ,x_return_status OUT NOCOPY VARCHAR2
40 ,x_msg_count OUT NOCOPY NUMBER
41 ,x_msg_data OUT NOCOPY VARCHAR2
42 ,p_chr_id IN okc_k_headers_b.id%TYPE
43 ,p_asset_id IN okc_k_lines_b.id%TYPE
44 ,p_subsidy_id IN okl_subsidies_b.id%TYPE
45 ,p_subsidy_pool_id IN okl_subsidy_pools_b.id%TYPE
46 ,p_trx_amount IN okl_k_lines.amount%TYPE
47 );
48
49 -------------------------------------------------------------------------------
50 -- PROCEDURE create_pool_trx_khr_reverse
51 -------------------------------------------------------------------------------
52 -- Start of comments
53 --
54 -- Procedure Name : create_pool_trx_khr_reverse
55 -- Description : procedure which adds back the subsidy amount that has been earlier reduced
56 -- this adding back to pool balance is done upon contract reversal
57 -- Parameters : IN p_chr_id: CONTRACT_ID
58 -- Version : 1.0
59 -- History : 07-FEB-2005 SJALASUT created
60 -- End of comments
61 PROCEDURE create_pool_trx_khr_reverse(p_api_version IN NUMBER
62 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
63 ,x_return_status OUT NOCOPY VARCHAR2
64 ,x_msg_count OUT NOCOPY NUMBER
65 ,x_msg_data OUT NOCOPY VARCHAR2
66 ,p_chr_id IN okc_k_headers_b.id%TYPE
67 ,p_reversal_date IN DATE
68 ,p_override_trx_reason IN okl_trx_subsidy_pools.trx_reason_code%TYPE DEFAULT NULL
69 );
70
71 -------------------------------------------------------------------------------
72 -- PROCEDURE create_pool_trx_khr_rbk
73 -------------------------------------------------------------------------------
74 -- Start of comments
75 --
76 -- Procedure Name : create_pool_trx_khr_rbk
77 -- Description : procedure which creates subsidy pool transaction based on the trx_type_code
78 -- for the case of contract rebook.
79 -- Parameters : IN p_rbk_chr_id: Contract Id of the Reebook Copy Contract
80 -- IN p_orig_chr_id: Contract Id of the Original Contract
81 -- Version : 1.0
82 -- History : 07-FEB-2005 SJALASUT created
83 -- End of comments
84 PROCEDURE create_pool_trx_khr_rbk(p_api_version IN NUMBER
85 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
86 ,x_return_status OUT NOCOPY VARCHAR2
87 ,x_msg_count OUT NOCOPY NUMBER
88 ,x_msg_data OUT NOCOPY VARCHAR2
89 ,p_rbk_chr_id IN okc_k_headers_b.id%TYPE
90 ,p_orig_chr_id IN okc_k_headers_b.id%TYPE
91 );
92
93 -------------------------------------------------------------------------------
94 -- PROCEDURE create_pool_trx_khr_split
95 -------------------------------------------------------------------------------
96 -- Start of comments
97 --
98 -- Procedure Name : create_pool_trx_khr_split
99 -- Description : procedure which creates subsidy pool transaction based on the trx_type_code
100 -- for the case of split contract
101 -- Parameters : IN p_new1_chr_id: Contract Id of first split contract
102 -- IN p_new2_chr_id: Contract Id of second split contract
103 -- Version : 1.0
104 -- History : 07-FEB-2005 SJALASUT created
105 -- End of comments
106 PROCEDURE create_pool_trx_khr_split(p_api_version IN NUMBER
107 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
108 ,x_return_status OUT NOCOPY VARCHAR2
109 ,x_msg_count OUT NOCOPY NUMBER
110 ,x_msg_data OUT NOCOPY VARCHAR2
111 ,p_new1_chr_id IN okc_k_headers_b.id%TYPE
112 ,p_new2_chr_id IN okc_k_headers_b.id%TYPE
113 );
114
115
116 END okl_subsidy_pool_auth_trx_pvt;