eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.OKL_AM_LEASE_LOAN_TRMNT_PUB

Source


1 PACKAGE BODY OKL_AM_LEASE_LOAN_TRMNT_PUB AS
2 /* $Header: OKLPLLTB.pls 120.3 2007/12/14 13:58:25 nikshah ship $ */
3 
4 -- GLOBAL VARIABLES
5   G_LEVEL_PROCEDURE            CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
6   G_LEVEL_EXCEPTION            CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
7   G_LEVEL_STATEMENT            CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
8   G_MODULE_NAME                CONSTANT VARCHAR2(500) := 'okl.am.plsql.okl_am_lease_loan_trmnt_pub.';
9 
10 
11 PROCEDURE validate_contract(
12            p_api_version                 IN  NUMBER,
13            p_init_msg_list               IN  VARCHAR2 DEFAULT OKL_API.G_FALSE,
14            x_return_status               OUT NOCOPY VARCHAR2,
15            x_msg_count                   OUT NOCOPY NUMBER,
16            x_msg_data                    OUT NOCOPY VARCHAR2,
17            p_contract_id                 IN  NUMBER,
18            p_control_flag                IN  VARCHAR2,
19            x_contract_status             OUT NOCOPY VARCHAR2) AS
20 
21     l_api_version NUMBER ;
22     l_init_msg_list VARCHAR2(1) ;
23     l_return_status VARCHAR2(1);
24     l_msg_count NUMBER ;
25     l_msg_data VARCHAR2(2000);
26     lp_contract_id  NUMBER;
27     lp_control_flag  VARCHAR2(200);
28     lx_contract_status VARCHAR2(200);
29     l_module_name VARCHAR2(500) := G_MODULE_NAME || 'validate_contract';
33 
30     is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
31     is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
32     is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
34 
35 BEGIN
36 SAVEPOINT trx_validate_contract;
37 IF (is_debug_procedure_on) THEN
38   OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name  ,'Begin(+)');
39 END IF;
40 IF (is_debug_statement_on) THEN
41   OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: ' || p_contract_id);
42   OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_control_flag: ' || p_control_flag);
43 END IF;
44 l_api_version := p_api_version ;
45 l_init_msg_list := p_init_msg_list ;
46 l_return_status := x_return_status ;
47 l_msg_count := x_msg_count ;
48 l_msg_data := x_msg_data ;
49 lp_contract_id := p_contract_id;
50 lp_control_flag := p_control_flag;
51 lx_contract_status := x_contract_status;
52 
53 
54 
55 
56 -- call the insert of pvt
57     IF (is_debug_statement_on) THEN
58       OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_LOAN_TRMNT_PVT.validate_contract');
59     END IF;
60 
61 	OKL_AM_LEASE_LOAN_TRMNT_PVT.validate_contract(
62                                                 p_api_version => l_api_version
63 	                                           ,p_init_msg_list => l_init_msg_list
64 	                                           ,x_msg_data => l_msg_data
65 	                                           ,x_msg_count => l_msg_count
66 	                                           ,x_return_status => l_return_status
67 	                                           ,p_contract_id => lp_contract_id
68 	                                           ,p_control_flag => lp_control_flag
69                                                ,x_contract_status => lx_contract_status) ;
70     IF (is_debug_statement_on) THEN
71       OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_LOAN_TRMNT_PVT.validate_contract , return status: ' || l_return_status);
72     END IF;
73 
74 IF ( l_return_status = FND_API.G_RET_STS_ERROR )  THEN
75 	RAISE FND_API.G_EXC_ERROR;
76 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
77 	RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
78 END IF;
79 
80 
81 
82 
83 --Assign value to OUT variables
84 x_contract_status := lx_contract_status;
85 x_return_status := l_return_status ;
86 x_msg_count := l_msg_count ;
87 x_msg_data := l_msg_data ;
88 IF (is_debug_procedure_on) THEN
89   OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name  ,'End(-)');
90 END IF;
91 
92 EXCEPTION
93 
94     WHEN FND_API.G_EXC_ERROR THEN
95       ROLLBACK TO trx_validate_contract;
96       x_return_status := FND_API.G_RET_STS_ERROR;
97       x_msg_count := l_msg_count ;
98       x_msg_data := l_msg_data ;
99       FND_MSG_PUB.count_and_get(
100              p_count   => x_msg_count
101             ,p_data    => x_msg_data);
102       IF (is_debug_exception_on) THEN
103         OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXC_ERROR');
104       END IF;
105     WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
106       ROLLBACK TO trx_validate_contract;
107       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
108       x_msg_count := l_msg_count ;
109       x_msg_data := l_msg_data ;
110       FND_MSG_PUB.count_and_get(
111              p_count   => x_msg_count
112             ,p_data    => x_msg_data);
113       IF (is_debug_exception_on) THEN
114         OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXC_UNEXPECTED_ERROR');
115       END IF;
116     WHEN OTHERS THEN
117       ROLLBACK TO trx_validate_contract;
118       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
119       x_msg_count := l_msg_count ;
120       x_msg_data := l_msg_data ;
121       FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_LEASE_LOAN_TRMNT_PUB','validate_contract');
122       FND_MSG_PUB.count_and_get(
123              p_count   => x_msg_count
124             ,p_data    => x_msg_data);
125       IF (is_debug_exception_on) THEN
126         OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
127  			                || sqlcode || ' , SQLERRM : ' || sqlerrm);
128       END IF;
129 END validate_contract;
133 PROCEDURE lease_loan_termination(
130 
131 
132 
134            p_api_version                 IN  NUMBER,
135            p_init_msg_list               IN  VARCHAR2 DEFAULT OKL_API.G_FALSE,
136            x_return_status               OUT NOCOPY VARCHAR2,
137            x_msg_count                   OUT NOCOPY NUMBER,
138            x_msg_data                    OUT NOCOPY VARCHAR2,
139            p_term_rec                    IN  term_rec_type,
140            p_tcnv_rec                    IN  tcnv_rec_type) AS
141 
142     l_api_version NUMBER ;
143     l_init_msg_list VARCHAR2(1) ;
144     l_return_status VARCHAR2(1);
145     l_msg_count NUMBER ;
146     l_msg_data VARCHAR2(2000);
147     lp_term_rec  term_rec_type;
148     lp_tcnv_rec  tcnv_rec_type;
149     l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
150     is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
151     is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
152     is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
153 
154 
155 
156 BEGIN
157 SAVEPOINT trx_lease_loan_termination;
158 IF (is_debug_procedure_on) THEN
159   OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name  ,'Begin(+)');
160 END IF;
161  IF (is_debug_statement_on) THEN
162    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: ' || p_term_rec.p_contract_id);
163    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: ' || p_term_rec.p_contract_number);
164    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: ' || p_term_rec.p_contract_modifier);
165    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_orig_end_date: ' || p_term_rec.p_orig_end_date);
166    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_version: ' || p_term_rec.p_contract_version);
167    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_termination_date: ' || p_term_rec.p_termination_date);
168    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_termination_reason: ' || p_term_rec.p_termination_reason);
169    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: ' || p_term_rec.p_quote_id);
170    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: ' || p_term_rec.p_quote_type);
171    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_reason: ' || p_term_rec.p_quote_reason);
172    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_early_termination_yn: ' || p_term_rec.p_early_termination_yn);
173    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: ' || p_term_rec.p_control_flag);
174    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_recycle_flag: ' || p_term_rec.p_recycle_flag);
175 
176    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.id: ' || p_tcnv_rec.id);
177    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.rbr_code: ' || p_tcnv_rec.rbr_code);
178    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.rpy_code: ' || p_tcnv_rec.rpy_code);
179    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.rvn_code: ' || p_tcnv_rec.rvn_code);
180    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.trn_code: ' || p_tcnv_rec.trn_code);
181    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.khr_id_new: ' || p_tcnv_rec.khr_id_new);
182    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.pvn_id: ' || p_tcnv_rec.pvn_id);
183    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.pdt_id: ' || p_tcnv_rec.pdt_id);
184    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: ' || p_tcnv_rec.qte_id);
185    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.aes_id: ' || p_tcnv_rec.aes_id);
186    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.code_combination_id: ' || p_tcnv_rec.code_combination_id);
187    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tax_deductible_local: ' || p_tcnv_rec.tax_deductible_local);
188    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tax_deductible_corporate: ' || p_tcnv_rec.tax_deductible_corporate);
189    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.accrual_status_yn: ' || p_tcnv_rec.accrual_status_yn);
190    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.update_status_yn: ' || p_tcnv_rec.update_status_yn);
191    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.amount: ' || p_tcnv_rec.amount);
192    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.currency_code: ' || p_tcnv_rec.currency_code);
193    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tcn_type: ' || p_tcnv_rec.tcn_type);
197    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.khr_id: ' || p_tcnv_rec.khr_id);
194    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.rjn_code: ' || p_tcnv_rec.rjn_code);
195    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.complete_transfer_yn: ' || p_tcnv_rec.complete_transfer_yn);
196    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.org_id: ' || p_tcnv_rec.org_id);
198    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.khr_id_old: ' || p_tcnv_rec.khr_id_old);
199    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.try_id: ' || p_tcnv_rec.try_id);
200    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tsu_code: ' || p_tcnv_rec.tsu_code);
201    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.set_of_books_id: ' || p_tcnv_rec.set_of_books_id);
202    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.trx_number: ' || p_tcnv_rec.trx_number);
203    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_evergreen_yn: ' || p_tcnv_rec.tmt_evergreen_yn);
204    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_close_balances_yn: ' || p_tcnv_rec.tmt_close_balances_yn);
205    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_accounting_entries_yn: ' || p_tcnv_rec.tmt_accounting_entries_yn);
206    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_cancel_insurance_yn: ' || p_tcnv_rec.tmt_cancel_insurance_yn);
207    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_asset_disposition_yn: ' || p_tcnv_rec.tmt_asset_disposition_yn);
208    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_amortization_yn: ' || p_tcnv_rec.tmt_amortization_yn);
209    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_asset_return_yn: ' || p_tcnv_rec.tmt_asset_return_yn);
210    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_contract_updated_yn: ' || p_tcnv_rec.tmt_contract_updated_yn);
211    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: ' || p_tcnv_rec.tmt_recycle_yn);
212    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_validated_yn: ' || p_tcnv_rec.tmt_validated_yn);
213    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_streams_updated_yn: ' || p_tcnv_rec.tmt_streams_updated_yn);
214    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.accrual_activity: ' || p_tcnv_rec.accrual_activity);
215    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_split_asset_yn: ' || p_tcnv_rec.tmt_split_asset_yn);
216    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.chr_id: ' || p_tcnv_rec.chr_id);
217    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.source_trx_id: ' || p_tcnv_rec.source_trx_id);
218    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.source_trx_type: ' || p_tcnv_rec.source_trx_type);
219    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.legal_entity_id: ' || p_tcnv_rec.legal_entity_id);
220    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.accounting_reversal_yn: ' || p_tcnv_rec.accounting_reversal_yn);
224    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_status_code: ' || p_tcnv_rec.tmt_status_code);
221    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.product_name: ' || p_tcnv_rec.product_name);
222    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.book_classification_code: ' || p_tcnv_rec.book_classification_code);
223    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tax_owner_code: ' || p_tcnv_rec.tax_owner_code);
225    OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.representation_name: ' || p_tcnv_rec.representation_name);
226  END IF;
227 
228 l_api_version := p_api_version ;
229 l_init_msg_list := p_init_msg_list ;
230 l_return_status := x_return_status ;
231 l_msg_count := x_msg_count ;
232 l_msg_data := x_msg_data ;
233 lp_term_rec :=  p_term_rec;
234 lp_tcnv_rec :=  p_tcnv_rec;
235 
236 
237 
238 
239 -- call the insert of pvt
240     IF (is_debug_statement_on) THEN
241       OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_LOAN_TRMNT_PVT.lease_loan_termination');
242     END IF;
243 
244 	OKL_AM_LEASE_LOAN_TRMNT_PVT.lease_loan_termination(
245                                                    p_api_version => l_api_version
246 	                                              ,p_init_msg_list => l_init_msg_list
247 	                                              ,x_msg_data => l_msg_data
248 	                                              ,x_msg_count => l_msg_count
249 	                                              ,x_return_status => l_return_status
250 	                                              ,p_term_rec => lp_term_rec
251   	                                              ,p_tcnv_rec => lp_tcnv_rec) ;
252     IF (is_debug_statement_on) THEN
253       OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_LOAN_TRMNT_PVT.lease_loan_termination , return status: ' || l_return_status);
254     END IF;
255 
256 IF ( l_return_status = FND_API.G_RET_STS_ERROR )  THEN
257 	RAISE FND_API.G_EXC_ERROR;
258 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
259 	RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
260 END IF;
261 
262 
263 
264 
265 --Assign value to OUT variables
266 x_return_status := l_return_status ;
267 x_msg_count := l_msg_count ;
268 x_msg_data := l_msg_data ;
269 IF (is_debug_procedure_on) THEN
270   OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name  ,'End(-)');
271 END IF;
272 
273 EXCEPTION
274 
275     WHEN FND_API.G_EXC_ERROR THEN
276       ROLLBACK TO trx_lease_loan_termination;
277       x_return_status := FND_API.G_RET_STS_ERROR;
278       x_msg_count := l_msg_count ;
279       x_msg_data := l_msg_data ;
280       FND_MSG_PUB.count_and_get(
281              p_count   => x_msg_count
282             ,p_data    => x_msg_data);
283       IF (is_debug_exception_on) THEN
284         OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXC_ERROR');
285       END IF;
286     WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
287       ROLLBACK TO trx_lease_loan_termination;
288       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
289       x_msg_count := l_msg_count ;
290       x_msg_data := l_msg_data ;
291       FND_MSG_PUB.count_and_get(
292              p_count   => x_msg_count
293             ,p_data    => x_msg_data);
294       IF (is_debug_exception_on) THEN
295         OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXC_UNEXPECTED_ERROR');
296       END IF;
297     WHEN OTHERS THEN
298       ROLLBACK TO trx_lease_loan_termination;
299       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
300       x_msg_count := l_msg_count ;
301       x_msg_data := l_msg_data ;
302       FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_LEASE_LOAN_TRMNT_PUB','lease_loan_termination');
303       FND_MSG_PUB.count_and_get(
304              p_count   => x_msg_count
305             ,p_data    => x_msg_data);
306       IF (is_debug_exception_on) THEN
307         OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
308  			                || sqlcode || ' , SQLERRM : ' || sqlerrm);
309       END IF;
310 END lease_loan_termination;
311 
312 
313 PROCEDURE lease_loan_termination(
314            p_api_version                 IN  NUMBER,
315            p_init_msg_list               IN  VARCHAR2 DEFAULT OKL_API.G_FALSE,
316            x_return_status               OUT NOCOPY VARCHAR2,
317            x_msg_count                   OUT NOCOPY NUMBER,
318            x_msg_data                    OUT NOCOPY VARCHAR2,
319            p_term_tbl                    IN  term_tbl_type,
320            p_tcnv_tbl                    IN  tcnv_tbl_type) AS
321 
322     l_api_version NUMBER ;
323     l_init_msg_list VARCHAR2(1) ;
324     l_return_status VARCHAR2(1);
325     l_msg_count NUMBER ;
326     l_msg_data VARCHAR2(2000);
327     lp_term_tbl  term_tbl_type;
328     lp_tcnv_tbl  tcnv_tbl_type;
329     l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
330     is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
331     is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
332     is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
333 
334 
335 
336 BEGIN
337 SAVEPOINT trx_lease_loan_termination;
338 IF (is_debug_procedure_on) THEN
339   OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name  ,'Begin(+)');
340 END IF;
341 IF (is_debug_statement_on) THEN
342   OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_tbl.COUNT: ' || p_term_tbl.COUNT);
343   OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_tbl.COUNT: ' || p_tcnv_tbl.COUNT);
344 END IF;
345 l_api_version := p_api_version ;
346 l_init_msg_list := p_init_msg_list ;
347 l_return_status := x_return_status ;
348 l_msg_count := x_msg_count ;
349 l_msg_data := x_msg_data ;
350 lp_term_tbl :=  p_term_tbl;
351 lp_tcnv_tbl :=  p_tcnv_tbl;
352 
353 
354 
355 
356 -- call the insert of pvt
357     IF (is_debug_statement_on) THEN
358       OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_LOAN_TRMNT_PVT.lease_loan_termination');
359     END IF;
360 
361 	OKL_AM_LEASE_LOAN_TRMNT_PVT.lease_loan_termination(
362                                                    p_api_version => l_api_version
363 	                                              ,p_init_msg_list => l_init_msg_list
364 	                                              ,x_msg_data => l_msg_data
365 	                                              ,x_msg_count => l_msg_count
366 	                                              ,x_return_status => l_return_status
367 	                                              ,p_term_tbl => lp_term_tbl
368 	                                              ,p_tcnv_tbl => lp_tcnv_tbl) ;
369 
370     IF (is_debug_statement_on) THEN
371       OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_LOAN_TRMNT_PVT.lease_loan_termination , return status: ' || l_return_status);
372     END IF;
373 /* -- do not roll back if error
374 IF ( l_return_status = FND_API.G_RET_STS_ERROR )  THEN
375 	RAISE FND_API.G_EXC_ERROR;
376 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
377 	RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
378 END IF;
379 */
380 
381 
382 
383 --Assign value to OUT variables
384 x_return_status := l_return_status ;
385 x_msg_count := l_msg_count ;
386 x_msg_data := l_msg_data ;
387 IF (is_debug_procedure_on) THEN
388   OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name  ,'End(-)');
389 END IF;
390 
391 EXCEPTION
392 
393     WHEN FND_API.G_EXC_ERROR THEN
394       ROLLBACK TO trx_lease_loan_termination;
395       x_return_status := FND_API.G_RET_STS_ERROR;
396       x_msg_count := l_msg_count ;
397       x_msg_data := l_msg_data ;
398       FND_MSG_PUB.count_and_get(
399              p_count   => x_msg_count
400             ,p_data    => x_msg_data);
401       IF (is_debug_exception_on) THEN
402         OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXC_ERROR');
403       END IF;
404     WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
405       ROLLBACK TO trx_lease_loan_termination;
406       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
407       x_msg_count := l_msg_count ;
408       x_msg_data := l_msg_data ;
409       FND_MSG_PUB.count_and_get(
410              p_count   => x_msg_count
411             ,p_data    => x_msg_data);
412       IF (is_debug_exception_on) THEN
413         OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXC_UNEXPECTED_ERROR');
414       END IF;
415     WHEN OTHERS THEN
416       ROLLBACK TO trx_lease_loan_termination;
417       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
418       x_msg_count := l_msg_count ;
419       x_msg_data := l_msg_data ;
420       FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_LEASE_LOAN_TRMNT_PUB','lease_loan_termination');
421       FND_MSG_PUB.count_and_get(
422              p_count   => x_msg_count
423             ,p_data    => x_msg_data);
424       IF (is_debug_exception_on) THEN
425         OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
426  			                || sqlcode || ' , SQLERRM : ' || sqlerrm);
427       END IF;
428 END lease_loan_termination;
429 
430 
431 END OKL_AM_LEASE_LOAN_TRMNT_PUB;