[Home] [Help]
PACKAGE: APPS.OKL_AM_CNTRCT_LN_TRMNT_PVT
Source
1 PACKAGE OKL_AM_CNTRCT_LN_TRMNT_PVT AS
2 /* $Header: OKLRCLTS.pls 120.2 2005/10/30 03:39:05 appldev noship $ */
3
4 ---------------------------------------------------------------------------
5 -- GLOBAL CONSTANTS
6 ---------------------------------------------------------------------------
7 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_AM_CNTRCT_LN_TRMNT_PVT';
8 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
9 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
10
11 -- RMUNJULU 03-MAR-03 2830997 Changed SQLerrm to ERROR_MESSAGE
12 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
13
14 -- RMUNJULU 03-MAR-03 2830997 Changed SQLcode to ERROR_CODE
15 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
16
17 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
18 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
19 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
20 G_YES CONSTANT VARCHAR2(1) := 'Y';
21 G_NO CONSTANT VARCHAR2(1) := 'N';
22 G_API_VERSION CONSTANT NUMBER := 1;
23
24 -- RMUNJULU Changed FND_API to OKL_API for GSCC
25 G_MISS_CHAR CONSTANT VARCHAR2(1) := OKL_API.G_MISS_CHAR;
26 G_MISS_NUM CONSTANT NUMBER := OKL_API.G_MISS_NUM;
27 G_MISS_DATE CONSTANT DATE := OKL_API.G_MISS_DATE;
28
29 G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
30 G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
31
32
33 G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
34 G_FIN_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM1';
35 G_SER_LINE_LTY_CODE OKC_LINE_STYLES_B.LTY_CODE%TYPE := 'SOLD_SERVICE';
36 G_SRL_LINE_LTY_CODE OKC_LINE_STYLES_B.LTY_CODE%TYPE := 'LINK_SERV_ASSET';
37 G_FEE_LINE_LTY_CODE OKC_LINE_STYLES_B.LTY_CODE%TYPE := 'FEE';
38 G_FEL_LINE_LTY_CODE OKC_LINE_STYLES_B.LTY_CODE%TYPE := 'LINK_FEE_ASSET';
39 G_USG_LINE_LTY_CODE OKC_LINE_STYLES_B.LTY_CODE%TYPE := 'USAGE';
40 G_USL_LINE_LTY_CODE OKC_LINE_STYLES_B.LTY_CODE%TYPE := 'LINK_USAGE_ASSET';
41 G_LEASE_SCS_CODE OKC_K_HEADERS_V.SCS_CODE%TYPE := 'LEASE';
42 G_LOAN_SCS_CODE OKC_K_HEADERS_V.SCS_CODE%TYPE := 'LOAN';
43 G_TLS_TYPE OKC_LINE_STYLES_V.LSE_TYPE%TYPE := 'TLS';
44
45
46 -- RMUNJULU -- 04-DEC-02 Bug # 2484327
47 -- Added these constants for better performance
48 G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
49 G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
50 G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
51 G_APP_NAME_1 CONSTANT VARCHAR2(200) := OKC_API.G_APP_NAME;
52
53
54
55 -- RMUNJULU -- 04-DEC-02 Bug # 2484327
56 -- Taken these out from package body to spec
57 G_AM_ERR_TRMT_ASSET VARCHAR2(200) := 'OKL_AM_ERR_TRMT_ASSET';
58 G_AM_ERR_TRMT_ASSET_LN VARCHAR2(200) := 'OKL_AM_ERR_TRMT_ASSET_LN';
59 G_AM_ERR_TRMT_TOP_LN VARCHAR2(200) := 'OKL_AM_ERR_TRMT_TOP_LN';
60 G_AM_ERR_UPD_AMT VARCHAR2(200) := 'OKL_AM_ERR_UPD_AMT';
61 G_AM_ERR_UPD_PAY_AMT VARCHAR2(200) := 'OKL_AM_ERR_UPD_PAY_AMT';
62 G_AM_ASSET_TRMT VARCHAR2(200) := 'OKL_AM_ASSET_TRMT';
63 G_AM_SERVICE_TRMT VARCHAR2(200) := 'OKL_AM_SERVICE_TRMT';
64 G_AM_FEE_TRMT VARCHAR2(200) := 'OKL_AM_FEE_TRMT';
65 G_AM_USAGE_TRMT VARCHAR2(200) := 'OKL_AM_USAGE_TRMT';
66
67 -- RMUNJULU -- 04-DEC-02 Bug # 2484327
68 -- Added
69 G_AM_K_STATUS_UPD VARCHAR2(200) := 'OKL_AM_K_STATUS_UPD';
70
71 ---------------------------------------------------------------------------
72 -- GLOBAL EXCEPTIONS
73 ---------------------------------------------------------------------------
74 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
75 G_EXCEPTION_STOP_VALIDATION EXCEPTION;
76
77
78 ---------------------------------------------------------------------------
79 -- GLOBAL DATASTRUCTURES
80 ---------------------------------------------------------------------------
81
82 SUBTYPE term_rec_type IS OKL_AM_LEASE_LOAN_TRMNT_PUB.term_rec_type;
83 SUBTYPE tcnv_rec_type IS OKL_AM_LEASE_LOAN_TRMNT_PUB.tcnv_rec_type;
84 SUBTYPE stmv_tbl_type IS OKL_STREAMS_PUB.stmv_tbl_type;
85
86
87 -- RMUNJULU -- Bug # 2484327 16-DEC-02 Added columns to rec type
88 TYPE klev_rec_type IS RECORD (
89 p_kle_id NUMBER,
90 p_asset_quantity NUMBER,
91 p_asset_name VARCHAR2(2000),
92 p_quote_quantity NUMBER,
93 p_tql_id NUMBER,
94 p_split_kle_id NUMBER,
95 p_split_kle_name VARCHAR2(150)); -- RMUNJULU 2757312 Added
96
97
98 TYPE klev_tbl_type IS TABLE OF klev_rec_type INDEX BY BINARY_INTEGER;
99
100
101 TYPE g_cle_amt_rec IS RECORD (
102 cle_id NUMBER := G_MISS_NUM,
103 amount NUMBER := G_MISS_NUM);
104
105
106 TYPE g_cle_amt_tbl IS TABLE OF g_cle_amt_rec INDEX BY BINARY_INTEGER;
107
108
109 -- RMUNJULU -- 04-DEC-02 Bug # 2484327
110 -- Taken these out from package body to spec
111 TYPE g_msg_rec IS RECORD (
112 msg_token1 VARCHAR2(200),
113 msg_token1_value VARCHAR2(200),
114 msg_token2 VARCHAR2(200),
115 msg_token2_value VARCHAR2(200),
116 msg_desc FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE);
117
118 TYPE g_msg_tbl IS TABLE OF g_msg_rec INDEX BY BINARY_INTEGER;
119
120
121
122 ---------------------------------------------------------------------------
123 -- PROCEDURES
124 ---------------------------------------------------------------------------
125
126 PROCEDURE set_database_values(
127 px_term_rec IN OUT NOCOPY term_rec_type);
128
129
130 PROCEDURE set_info_messages(
131 p_term_rec IN term_rec_type);
132
133
134 PROCEDURE set_overall_status(
135 p_return_status IN VARCHAR2,
136 px_overall_status IN OUT NOCOPY VARCHAR2);
137
138
139 PROCEDURE initialize_transaction (
140 p_term_rec IN term_rec_type,
141 p_sys_date IN DATE,
142 p_control_flag IN VARCHAR2,
143 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
144 x_return_status OUT NOCOPY VARCHAR2);
145
146
147 PROCEDURE set_transaction_rec(
148 p_return_status IN VARCHAR2 DEFAULT G_MISS_CHAR,
149 p_overall_status IN VARCHAR2 DEFAULT G_MISS_CHAR,
150 p_tmt_flag IN VARCHAR2 DEFAULT G_MISS_CHAR,
151 p_tsu_code IN VARCHAR2 DEFAULT G_MISS_CHAR,
152 p_ret_val IN VARCHAR2 DEFAULT G_MISS_CHAR,
153 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type);
154
155
156 PROCEDURE process_transaction(
157 p_id IN NUMBER,
158 p_term_rec IN term_rec_type,
159 p_tcnv_rec IN tcnv_rec_type,
160 p_trn_mode IN VARCHAR2,
161 x_id OUT NOCOPY NUMBER,
162 x_return_status OUT NOCOPY VARCHAR2);
163
164
165 PROCEDURE get_lines(
166 p_term_rec IN term_rec_type,
167 x_klev_tbl OUT NOCOPY klev_tbl_type,
168 x_return_status OUT NOCOPY VARCHAR2);
169
170
171 PROCEDURE validate_contract_and_lines(
172 p_term_rec IN term_rec_type,
173 p_sys_date IN DATE,
174 p_klev_tbl IN klev_tbl_type,
175 x_return_status OUT NOCOPY VARCHAR2);
176
177
178 PROCEDURE split_asset(
179 p_term_rec IN term_rec_type,
180 p_sys_date IN DATE,
181 p_klev_tbl IN klev_tbl_type,
182 p_trn_already_set IN VARCHAR2,
183 px_overall_status IN OUT NOCOPY VARCHAR2,
184 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
185 x_klev_tbl OUT NOCOPY klev_tbl_type,
186 x_return_status OUT NOCOPY VARCHAR2);
187
188
189
190 PROCEDURE close_streams(
191 p_term_rec IN term_rec_type,
192 p_sys_date IN DATE,
193 p_klev_tbl IN klev_tbl_type,
194 p_trn_already_set IN VARCHAR2,
195 px_overall_status IN OUT NOCOPY VARCHAR2,
196 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
197 x_return_status OUT NOCOPY VARCHAR2);
198
199
200 PROCEDURE accounting_entries(
201 p_term_rec IN term_rec_type,
202 p_sys_date IN DATE,
203 p_klev_tbl IN klev_tbl_type,
204 p_trn_already_set IN VARCHAR2,
205 px_overall_status IN OUT NOCOPY VARCHAR2,
206 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
207 x_return_status OUT NOCOPY VARCHAR2);
208
209
210 PROCEDURE dispose_assets(
211 p_term_rec IN term_rec_type,
212 p_sys_date IN DATE,
213 p_klev_tbl IN klev_tbl_type,
214 p_trn_already_set IN VARCHAR2,
215 px_overall_status IN OUT NOCOPY VARCHAR2,
216 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
217 x_return_status OUT NOCOPY VARCHAR2);
218
219
220 PROCEDURE amortize_assets(
221 p_term_rec IN term_rec_type,
222 p_sys_date IN DATE,
223 p_klev_tbl IN klev_tbl_type,
224 p_trn_already_set IN VARCHAR2,
225 px_overall_status IN OUT NOCOPY VARCHAR2,
226 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
227 x_return_status OUT NOCOPY VARCHAR2);
228
229
230 PROCEDURE return_assets(
231 p_term_rec IN term_rec_type,
232 p_sys_date IN DATE,
233 p_klev_tbl IN klev_tbl_type,
234 p_trn_already_set IN VARCHAR2,
235 px_overall_status IN OUT NOCOPY VARCHAR2,
236 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
237 x_return_status OUT NOCOPY VARCHAR2);
238
239
240 -- RMUNJULU 03-JAN-03 2683876 Added close balances
241 PROCEDURE close_balances(
242 p_api_version IN NUMBER,
243 p_init_msg_list IN VARCHAR2,
244 x_msg_count OUT NOCOPY NUMBER,
245 x_msg_data OUT NOCOPY VARCHAR2,
246 x_return_status OUT NOCOPY VARCHAR2,
247 p_term_rec IN term_rec_type,
248 p_sys_date IN DATE,
249 p_tcnv_rec IN tcnv_rec_type,
250 px_msg_tbl IN OUT NOCOPY g_msg_tbl);
251
252
253 PROCEDURE mass_rebook(
254 p_api_version IN NUMBER,
255 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
256 x_msg_count OUT NOCOPY NUMBER,
257 x_msg_data OUT NOCOPY VARCHAR2,
258 x_return_status OUT NOCOPY VARCHAR2,
259 p_term_rec IN term_rec_type,
260 p_tcnv_rec IN tcnv_rec_type,
261 p_sys_date IN DATE, -- rmunjulu EDAT
262 x_mrbk_success OUT NOCOPY VARCHAR2); -- RMUNJULU CONTRACT BLOCKING ADDED
263
264
265
266 PROCEDURE cancel_activate_insurance(
267 p_api_version IN NUMBER,
268 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
269 x_msg_count OUT NOCOPY NUMBER,
270 x_msg_data OUT NOCOPY VARCHAR2,
271 x_return_status OUT NOCOPY VARCHAR2,
272 p_term_rec IN term_rec_type,
273 p_sys_date IN DATE,
274 p_klev_tbl IN klev_tbl_type);
275
276
277 -- RMUNJULU -- 20-DEC-02 2484327
278 -- Added this proc,used to cancel all insurances when all lines terminated
279 PROCEDURE cancel_insurance(
280 p_api_version IN NUMBER,
281 p_init_msg_list IN VARCHAR2,
282 x_msg_count OUT NOCOPY NUMBER,
283 x_msg_data OUT NOCOPY VARCHAR2,
284 x_return_status OUT NOCOPY VARCHAR2,
285 p_term_rec IN term_rec_type,
286 p_sys_date IN DATE,
287 p_klev_tbl IN klev_tbl_type);
288
289
290 -- RMUNJULU 09-JAN-03 2743604
291 -- Added this proc,used to reverse loss provisions when all lines terminated
292 PROCEDURE reverse_loss_provisions(
293 p_api_version IN NUMBER,
294 p_init_msg_list IN VARCHAR2,
295 x_msg_count OUT NOCOPY NUMBER,
296 x_msg_data OUT NOCOPY VARCHAR2,
297 x_return_status OUT NOCOPY VARCHAR2,
298 p_term_rec IN term_rec_type,
299 p_sys_date IN DATE,
300 px_msg_tbl IN OUT NOCOPY g_msg_tbl);
301
302
303 -- RMUNJULU -- 04-DEC-02 Bug # 2484327
304 -- Added p_trn_reason_code and x_msg_tbl parameters
305 -- BAKUCHIB 28-MAR-03 2877278 Added new parameter
306 PROCEDURE update_lines(
307 p_api_version IN NUMBER,
308 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
309 x_msg_count OUT NOCOPY NUMBER,
310 x_msg_data OUT NOCOPY VARCHAR2,
311 x_return_status OUT NOCOPY VARCHAR2,
312 p_term_rec IN term_rec_type,
313 p_sys_date IN DATE,
314 p_klev_tbl IN klev_tbl_type,
315 p_status IN VARCHAR2,
316 p_trn_reason_code IN VARCHAR2,
317 x_klev_tbl OUT NOCOPY klev_tbl_type, -- BAKUCHIB 28-MAR-03 2877278 Added
318 x_msg_tbl OUT NOCOPY g_msg_tbl);
319
320
321 -- RMUNJULU -- 04-DEC-02 Bug # 2484327
322 -- Added the specification to this new procedure which will be used to
323 -- terminate contract if all lines terminated
324 PROCEDURE update_contract(
325 p_api_version IN NUMBER,
326 p_init_msg_list IN VARCHAR2,
327 x_msg_count OUT NOCOPY NUMBER,
328 x_msg_data OUT NOCOPY VARCHAR2,
329 x_return_status OUT NOCOPY VARCHAR2,
330 p_term_rec IN term_rec_type,
331 p_sys_date IN DATE,
332 p_status IN VARCHAR2,
333 p_trn_reason_code IN VARCHAR2,
334 px_msg_tbl IN OUT NOCOPY g_msg_tbl);
335
336
337 PROCEDURE terminate_lines(
338 p_api_version IN NUMBER,
339 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
340 x_msg_count OUT NOCOPY NUMBER,
341 x_msg_data OUT NOCOPY VARCHAR2,
342 x_return_status OUT NOCOPY VARCHAR2,
343 px_overall_status IN OUT NOCOPY VARCHAR2,
344 p_trn_already_set IN VARCHAR2, -- RMUNJULU CONTRACT BLOCKING
345 p_term_rec IN term_rec_type,
346 p_sys_date IN DATE,
347 p_klev_tbl IN klev_tbl_type,
348 p_status IN VARCHAR2,
349 px_tcnv_rec IN OUT NOCOPY tcnv_rec_type);
350
351
352
353 PROCEDURE asset_level_termination(
354 p_api_version IN NUMBER,
355 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
356 p_term_rec IN term_rec_type,
357 p_tcnv_rec IN tcnv_rec_type,
358 x_msg_count OUT NOCOPY NUMBER,
359 x_msg_data OUT NOCOPY VARCHAR2,
360 x_return_status OUT NOCOPY VARCHAR2);
361
362
363
364 END OKL_AM_CNTRCT_LN_TRMNT_PVT;