[Home] [Help]
PACKAGE: APPS.OKL_GENERATE_ACCRUALS_PVT
Source
1 PACKAGE OKL_GENERATE_ACCRUALS_PVT AS
2 /* $Header: OKLRACRS.pls 120.14.12010000.3 2008/10/20 19:41:41 apaul ship $ */
3 ---------------------------------------------------------------------------
4 -- GLOBAL DATASTRUCTURES
5 ---------------------------------------------------------------------------
6
7 -- commenting stream_type_name as not needed. SGIYER 27-APR-2005
8 TYPE stream_rec_type IS RECORD (
9 stream_type_id OKL_STRM_TYPE_V.id%TYPE,
10 stream_type_name OKL_STRM_TYPE_V.name%TYPE,
11 stream_id OKL_STREAMS_V.id%TYPE,
12 stream_element_id OKL_STRM_ELEMENTS_V.id%TYPE,
13 stream_amount OKL_STRM_ELEMENTS_V.amount%TYPE,
14 kle_id OKL_STREAMS.KLE_ID%TYPE);
15
16 TYPE accrual_rec_type IS RECORD (
17 contract_id OKL_K_HEADERS_FULL_V.ID%TYPE,
18 sty_id OKL_TXL_CNTRCT_LNS.sty_id%TYPE,
19 set_of_books_id OKL_TRX_CONTRACTS.SET_OF_BOOKS_ID%TYPE,
20 reverse_date_to DATE,
21 accrual_date DATE,
22 trx_date DATE,
23 contract_number OKL_K_HEADERS_FULL_V.CONTRACT_NUMBER%TYPE,
24 rule_result OKL_TRX_CONTRACTS.ACCRUAL_STATUS_YN%TYPE,
25 override_status OKL_TRX_CONTRACTS.UPDATE_STATUS_YN%TYPE,
26 description OKL_TRX_CONTRACTS.DESCRIPTION%TYPE,
27 amount OKL_TRX_CONTRACTS.AMOUNT%TYPE,
28 currency_code OKL_TRX_CONTRACTS.CURRENCY_CODE%TYPE,
29 currency_conversion_type OKL_TRX_CONTRACTS.CURRENCY_CONVERSION_TYPE%TYPE,
30 currency_conversion_rate OKL_TRX_CONTRACTS.CURRENCY_CONVERSION_RATE%TYPE,
31 currency_conversion_date OKL_TRX_CONTRACTS.CURRENCY_CONVERSION_DATE%TYPE,
32 product_id OKL_PRODUCTS_V.ID%TYPE,
33 trx_type_id OKL_TRX_TYPES_V.ID%TYPE,
34 advance_arrears OKL_AE_TEMPLATES.ADVANCE_ARREARS%TYPE,
35 factoring_synd_flag OKL_AE_TEMPLATES.FACTORING_SYND_FLAG%TYPE,
36 post_to_gl VARCHAR2(1),
37 gl_reversal_flag VARCHAR2(1),
38 memo_yn VARCHAR2(1),
39 accrual_activity OKL_TRX_CONTRACTS.ACCRUAL_ACTIVITY%TYPE,
40 accrual_rule_yn VARCHAR2(1),
41 source_trx_id OKL_TRX_CONTRACTS.SOURCE_TRX_ID%TYPE,
42 source_trx_type OKL_TRX_CONTRACTS.SOURCE_TRX_TYPE%TYPE,
43 -- Bug 5707866 Added by dpsingh
44 accrual_reversal_date OKL_TRX_CONTRACTS.ACCRUAL_REVERSAL_DATE%TYPE,
45 trx_number OKL_TRX_CONTRACTS.TRX_NUMBER%TYPE,
46 primary_rep_trx_id OKL_TRX_CONTRACTS.PRIMARY_REP_TRX_ID%TYPE);
47 -- Added new field accelerate_from_date by akrangan for bug 5526955
48 TYPE acceleration_rec_type IS RECORD (
49 khr_id OKL_K_HEADERS_FULL_V.id%TYPE,
50 kle_id OKL_K_LINES_FULL_V.id%TYPE,
51 sty_id OKL_STRM_TYPE_V.id%TYPE,
52 acceleration_date DATE,
53 accelerate_till_date DATE,
54 description OKL_TRX_CONTRACTS.description%TYPE,
55 accrual_rule_yn OKL_TXL_CNTRCT_LNS.accrual_rule_yn%TYPE,
56 accelerate_from_date DATE DEFAULT NULL,
57 trx_number OKL_TRX_CONTRACTS.TRX_NUMBER%TYPE DEFAULT NULL); --MGAAP 7263041
58
59 TYPE adjust_accrual_rec_type IS RECORD(
60 contract_id OKL_K_HEADERS_FULL_V.ID%TYPE,
61 accrual_date OKL_TRX_CONTRACTS.DATE_ACCRUAL%TYPE,
62 description OKL_TRX_CONTRACTS.DESCRIPTION%TYPE,
63 source_trx_id OKL_TRX_CONTRACTS.SOURCE_TRX_ID%TYPE,
64 source_trx_type OKL_TRX_CONTRACTS.SOURCE_TRX_TYPE%TYPE,
65 trx_number OKL_TRX_CONTRACTS.TRX_NUMBER%TYPE);
66
67 TYPE stream_tbl_type IS TABLE OF stream_rec_type
68 INDEX BY BINARY_INTEGER;
69
70 TYPE acceleration_tbl_type IS TABLE OF acceleration_rec_type
71 INDEX BY BINARY_INTEGER;
72
73 ---------------------------------------------------------------------------
74 -- GLOBAL MESSAGE CONSTANTS
75 ---------------------------------------------------------------------------
76 G_FND_APP CONSTANT VARCHAR2(200) := Okl_Api.G_FND_APP;
77 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := Okl_Api.G_COL_NAME_TOKEN;
78 G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := Okl_Api.G_PARENT_TABLE_TOKEN;
79 G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := Okl_Api.G_CHILD_TABLE_TOKEN;
80 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := Okl_Api.G_REQUIRED_VALUE;
81 G_INVALID_VALUE CONSTANT VARCHAR2(200) := Okl_Api.G_INVALID_VALUE;
82 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
83 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'OKL_SQLerrm';
84 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'OKL_SQLcode';
85 G_CONTRACT_NUMBER_TOKEN CONSTANT VARCHAR2(200) := 'CONTRACT_NUMBER';
86 G_STREAM_NAME_TOKEN CONSTANT VARCHAR2(200) := 'STREAM_NAME';
87 G_NO_MATCHING_RECORD CONSTANT VARCHAR2(2000) := 'OKL_LLA_NO_MATCHING_RECORD';
88 ---------------------------------------------------------------------------
89 -- GLOBAL EXCEPTION
90 ---------------------------------------------------------------------------
91 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
92 ---------------------------------------------------------------------------
93
94 ---------------------------------------------------------------------------
95 -- GLOBAL VARIABLES
96 ---------------------------------------------------------------------------
97 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_GENERATE_ACCRUALS_PVT';
98 G_APP_NAME CONSTANT VARCHAR2(3) := Okl_Api.G_APP_NAME;
99 G_COMMIT_CYCLE CONSTANT NUMBER := 500;
100 ---------------------------------------------------------------------------
101 -- Procedures and Functions
102 ---------------------------------------------------------------------------
103
104 FUNCTION SUBMIT_ACCRUALS(
105 x_return_status OUT NOCOPY VARCHAR2,
106 x_msg_count OUT NOCOPY NUMBER,
107 x_msg_data OUT NOCOPY VARCHAR2,
108 p_api_version IN NUMBER,
109 p_accrual_date IN DATE,
110 p_batch_name IN VARCHAR2) RETURN NUMBER;
111
112
113 FUNCTION CALCULATE_OPERAND_VALUE(p_ctr_id IN OKL_K_HEADERS_FULL_V.ID%TYPE
114 ,p_operand_code IN VARCHAR2) RETURN NUMBER;
115
116 PROCEDURE GET_ACCRUAL_STREAMS(x_return_status OUT NOCOPY VARCHAR2
117 ,x_stream_tbl OUT NOCOPY stream_tbl_type
118 ,p_khr_id IN OKL_K_HEADERS.ID%TYPE
119 ,p_product_id IN OKL_PRODUCTS_V.ID%TYPE
120 ,p_ctr_start_date IN DATE
121 ,p_period_end_date IN DATE
122 ,p_accrual_rule_yn IN VARCHAR2);
123
124 PROCEDURE VALIDATE_ACCRUAL_RULE(x_return_status OUT NOCOPY VARCHAR2
125 ,x_result OUT NOCOPY VARCHAR2
126 ,p_ctr_id IN OKL_K_HEADERS.id%TYPE);
127
128 FUNCTION CALCULATE_CNTRCT_REC(p_ctr_id IN NUMBER) RETURN NUMBER;
129
130 FUNCTION GET_SYNDICATE_FLAG(p_contract_id IN NUMBER,
131 x_syndicate_flag OUT NOCOPY VARCHAR2) RETURN VARCHAR2;
132
133 FUNCTION GET_FACTORING_FLAG(p_contract_id IN NUMBER,
134 x_factoring_flag OUT NOCOPY VARCHAR2) RETURN VARCHAR2;
135
136 FUNCTION CHECK_DATE_ACCRUED_TILL(p_khr_id IN OKL_K_HEADERS_FULL_V.ID%TYPE
137 ,p_date IN DATE) RETURN VARCHAR2;
138
139 PROCEDURE GENERATE_ACCRUALS(errbuf OUT NOCOPY VARCHAR2
140 ,retcode OUT NOCOPY NUMBER
141 ,p_accrual_date IN VARCHAR2
142 ,p_batch_name IN VARCHAR2
143 ,p_contract_number IN VARCHAR2
144 ,p_rev_rec_method IN VARCHAR2);
145
146 PROCEDURE GENERATE_ACCRUALS_PARALLEL
147 (errbuf OUT NOCOPY VARCHAR2
148 ,retcode OUT NOCOPY NUMBER
149 ,p_accrual_date IN VARCHAR2
150 ,p_batch_name IN VARCHAR2
151 ,p_worker_id IN VARCHAR2
152 ,p_rev_rec_method IN VARCHAR2);
153
154 PROCEDURE CATCHUP_ACCRUALS (
155 p_api_version IN NUMBER,
156 p_init_msg_list IN VARCHAR2,
157 p_catchup_rec IN accrual_rec_type,
158 x_return_status OUT NOCOPY VARCHAR2,
159 x_msg_count OUT NOCOPY NUMBER,
160 x_msg_data OUT NOCOPY VARCHAR2,
161 x_tcnv_tbl OUT NOCOPY OKL_TRX_CONTRACTS_PUB.tcnv_tbl_type,
162 x_tclv_tbl OUT NOCOPY OKL_TRX_CONTRACTS_PUB.tclv_tbl_type,
163 p_representation_type IN VARCHAR2 DEFAULT 'PRIMARY'); --MGAAP 7263041
164
165 PROCEDURE REVERSE_ACCRUALS (
166 p_api_version IN NUMBER,
167 p_init_msg_list IN VARCHAR2,
168 p_reverse_rec IN accrual_rec_type,
169 x_return_status OUT NOCOPY VARCHAR2,
170 x_msg_count OUT NOCOPY NUMBER,
171 x_msg_data OUT NOCOPY VARCHAR2,
172 x_tcnv_tbl OUT NOCOPY OKL_TRX_CONTRACTS_PUB.tcnv_tbl_type,
173 x_tclv_tbl OUT NOCOPY OKL_TRX_CONTRACTS_PUB.tclv_tbl_type,
174 p_representation_type IN VARCHAR2 DEFAULT 'PRIMARY'); --MGAAP 7263041
175
176 PROCEDURE REVERSE_ACCRUALS (
177 p_api_version IN NUMBER,
178 p_init_msg_list IN VARCHAR2,
179 x_return_status OUT NOCOPY VARCHAR2,
180 x_msg_count OUT NOCOPY NUMBER,
181 x_msg_data OUT NOCOPY VARCHAR2,
182 p_khr_id IN NUMBER,
183 p_reversal_date IN DATE,
184 p_accounting_date IN DATE,
185 p_reverse_from IN DATE,
186 p_reverse_to IN DATE,
187 p_tcn_type IN VARCHAR2);
188
189 PROCEDURE REVERSE_ALL_ACCRUALS (
190 p_api_version IN NUMBER,
191 p_init_msg_list IN VARCHAR2,
192 p_khr_id IN NUMBER,
193 p_reverse_date IN DATE,
194 p_description IN VARCHAR2,
195 x_return_status OUT NOCOPY VARCHAR2,
196 x_msg_count OUT NOCOPY NUMBER,
197 x_msg_data OUT NOCOPY VARCHAR2);
198
199
200 PROCEDURE REVERSE_ACCRUALS (
201 p_api_version IN NUMBER,
202 p_init_msg_list IN VARCHAR2,
203 p_reverse_rec IN accrual_rec_type,
204 x_return_status OUT NOCOPY VARCHAR2,
205 x_msg_count OUT NOCOPY NUMBER,
206 x_msg_data OUT NOCOPY VARCHAR2,
207 x_rev_tcnv_tbl OUT NOCOPY OKL_TRX_CONTRACTS_PUB.tcnv_tbl_type,
208 x_rev_tclv_tbl OUT NOCOPY OKL_TRX_CONTRACTS_PUB.tclv_tbl_type,
209 x_memo_tcnv_tbl OUT NOCOPY OKL_TRX_CONTRACTS_PUB.tcnv_tbl_type,
210 x_memo_tclv_tbl OUT NOCOPY OKL_TRX_CONTRACTS_PUB.tclv_tbl_type,
211 p_representation_type IN VARCHAR2 DEFAULT 'PRIMARY'
212 );
213
214 PROCEDURE ACCELERATE_ACCRUALS (
215 p_api_version IN NUMBER,
216 p_init_msg_list IN VARCHAR2,
217 x_return_status OUT NOCOPY VARCHAR2,
218 x_msg_count OUT NOCOPY NUMBER,
219 x_msg_data OUT NOCOPY VARCHAR2,
220 p_acceleration_rec IN acceleration_rec_type,
221 p_representation_type IN VARCHAR2 DEFAULT 'PRIMARY', --MGAAP 7263041
222 x_trx_number OUT NOCOPY OKL_TRX_CONTRACTS.TRX_NUMBER%TYPE); --MGAAP 7263041
223
224 PROCEDURE ADJUST_ACCRUALS (
225 p_api_version IN NUMBER,
226 p_init_msg_list IN VARCHAR2,
227 x_return_status OUT NOCOPY VARCHAR2,
228 x_msg_count OUT NOCOPY NUMBER,
229 x_msg_data OUT NOCOPY VARCHAR2,
230 x_trx_number OUT NOCOPY VARCHAR2,
231 p_accrual_rec IN adjust_accrual_rec_type,
232 p_stream_tbl IN stream_tbl_type,
233 p_representation_type IN VARCHAR2 DEFAULT 'PRIMARY');
234
235 PROCEDURE GENERATE_ACCRUALS (
236 p_api_version IN NUMBER,
237 p_init_msg_list IN VARCHAR2,
238 x_return_status OUT NOCOPY VARCHAR2,
239 x_msg_count OUT NOCOPY NUMBER,
240 x_msg_data OUT NOCOPY VARCHAR2,
241 p_accrual_rec IN adjust_accrual_rec_type);
242
243 END OKL_GENERATE_ACCRUALS_PVT;