[Home] [Help]
PACKAGE BODY: APPS.OKL_INS_CLAIM_ASSET_PVT
Source
1 PACKAGE BODY OKL_INS_CLAIM_ASSET_PVT AS
2 /* $Header: OKLRCLAB.pls 120.4 2005/12/28 09:46:11 dkagrawa noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.INSURANCE';
5 L_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6 L_LEVEL_PROCEDURE NUMBER;
7 IS_DEBUG_PROCEDURE_ON BOOLEAN;
8 -- End of wraper code generated automatically by Debug code generator
9 PROCEDURE create_lease_claim(
10 p_api_version IN NUMBER,
11 p_init_msg_list IN VARCHAR2 ,
12 x_return_status OUT NOCOPY VARCHAR2,
13 x_msg_count OUT NOCOPY NUMBER,
14 x_msg_data OUT NOCOPY VARCHAR2,
15 px_clmv_tbl IN OUT NOCOPY clmv_tbl_type,
16 px_acdv_tbl IN OUT NOCOPY acdv_tbl_type,
17 px_acnv_tbl IN OUT NOCOPY acnv_tbl_type
18 )
19 AS
20 l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
21 l_iln_id PLS_INTEGER;
22 l_kle_id NUMBER;
23 l_clmv_tbl clmv_tbl_type := px_clmv_tbl;
24 x_clmv_tbl clmv_tbl_type;
25 l_acdv_tbl acdv_tbl_type := px_acdv_tbl;
26 x_acdv_tbl acdv_tbl_type ;
27 l_acnv_tbl acnv_tbl_type := px_acnv_tbl;
28 x_acnv_tbl acnv_tbl_type ;
29 i PLS_INTEGER;
30 l_api_name CONSTANT VARCHAR2(30) := 'create_lease_claim';
31 l_dummy_var VARCHAR2(1) := '?';
32 l_api_version CONSTANT NUMBER := 1;
33
34 CURSOR l_acdv_csr(p_kle_id NUMBER) IS
35 SELECT CSI.LOCATION_ID
36 FROM OKC_K_LINES_B A,
37 OKC_K_LINES_B B,
38 OKC_K_LINES_B C,
39 OKC_K_ITEMS CIM,
40 OKX_INSTALL_ITEMS_V CSI
41 WHERE A.ID = p_kle_id
42 AND B.CLE_ID = A.ID
43 AND B.LSE_ID = 43
44 AND C.CLE_ID = B.ID
45 AND C.LSE_ID = 45
46 AND CIM.CLE_ID = C.ID
47 AND CIM.JTOT_OBJECT1_CODE = 'OKX_IB_ITEM'
48 AND CSI.ID1 = CIM.OBJECT1_ID1
49 AND CSI.ID2 = CIM.OBJECT1_ID2;
50
51 CURSOR l_fav_csr(p_cle_id NUMBER) IS
52 select CLE.ID
53 from okc_k_lines_b cle , okc_line_styles_b lse
54 where cle.cle_id = p_cle_id and
55 cle.lse_id = lse.id and
56 lse.LTY_CODE = 'FIXED_ASSET';
57 BEGIN
58 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
59 G_PKG_NAME,
60 p_init_msg_list,
61 l_api_version,
62 p_api_version,
63 '_PROCESS',
64 x_return_status);
65 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
66 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
67 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
68 RAISE OKC_API.G_EXCEPTION_ERROR;
69 END IF;
70
71
72 --Populate the Master
73 -- Start of wraper code generated automatically by Debug code generator for okl_ins_claims_pub.insert_INS_CLAIMS
74 IF(L_DEBUG_ENABLED='Y') THEN
75 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
76 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
77 END IF;
78 IF(IS_DEBUG_PROCEDURE_ON) THEN
79 BEGIN
80 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRCLAB.pls call okl_ins_claims_pub.insert_INS_CLAIMS ');
81 END;
82 END IF;
83 okl_ins_claims_pub.insert_INS_CLAIMS(
84 p_api_version => p_api_version
85 ,p_init_msg_list => p_init_msg_list
86 ,x_return_status => x_return_status
87 ,x_msg_count => x_msg_count
88 ,x_msg_data => x_msg_data
89 ,p_clmv_tbl => l_clmv_tbl
90 ,x_clmv_tbl => x_clmv_tbl );
91 IF(IS_DEBUG_PROCEDURE_ON) THEN
92 BEGIN
93 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRCLAB.pls call okl_ins_claims_pub.insert_INS_CLAIMS ');
94 END;
95 END IF;
96 -- End of wraper code generated automatically by Debug code generator for okl_ins_claims_pub.insert_INS_CLAIMS
97
98 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
99 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
100 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
101 RAISE OKC_API.G_EXCEPTION_ERROR;
102 END IF;
103 IF (x_return_status = Okc_Api.G_RET_STS_SUCCESS) THEN
104 px_clmv_tbl := x_clmv_tbl;
105 END IF;
106 --dkagrawa commnted following code and moved down inside loop
107 --bug#4878489
108 /* OPEN l_acdv_csr(l_acdv_tbl(1).kle_id);
109 FETCH l_acdv_csr INTO l_iln_id;
110 CLOSE l_acdv_csr;
111
112 OPEN l_fav_csr(l_acdv_tbl(1).kle_id);
113 FETCH l_fav_csr INTO l_kle_id;
114 CLOSE l_fav_csr;
115
116 -- if l_dummy_var is still set to default ,data was not found
117 IF (l_iln_id =OKC_API.G_MISS_NUM OR l_iln_id IS NULL) THEN
118 OKC_API.set_message(p_app_name => G_APP_NAME,
119 p_msg_name => G_NO_PARENT_RECORD,
120 p_token1 => G_COL_NAME_TOKEN,
121 p_token1_value => 'LOCATION ID',
122 p_token2 => g_child_table_token, --3745151
123 p_token2_value => 'OKX_INSTALL_ITEMS_V',--3745151
124 p_token3 => g_parent_table_token,
125 p_token3_value => 'OKX_ITEM_INSTS_LINES_V');
126 -- notify caller of an error
127 x_return_status := OKC_API.G_RET_STS_ERROR;
128 END IF;
129 */
130 -- Populate the foreign key for the line
131 IF (l_acdv_tbl.COUNT > 0) THEN
132 i := l_acdv_tbl.FIRST;
133 LOOP
134 --Bug#4878489 starts
135 OPEN l_acdv_csr(l_acdv_tbl(i).kle_id);
136 FETCH l_acdv_csr INTO l_iln_id;
137 CLOSE l_acdv_csr;
138
139 OPEN l_fav_csr(l_acdv_tbl(i).kle_id);
140 FETCH l_fav_csr INTO l_kle_id;
141 CLOSE l_fav_csr;
142 IF (l_iln_id =OKC_API.G_MISS_NUM OR l_iln_id IS NULL) THEN
143 OKC_API.set_message(p_app_name => G_APP_NAME,
144 p_msg_name => G_NO_PARENT_RECORD,
145 p_token1 => G_COL_NAME_TOKEN,
146 p_token1_value => 'LOCATION ID',
147 p_token2 => g_child_table_token, --3745151
148 p_token2_value => 'OKX_INSTALL_ITEMS_V',--3745151
149 p_token3 => g_parent_table_token,
150 p_token3_value => 'OKX_ITEM_INSTS_LINES_V');
151 -- notify caller of an error
152 x_return_status := OKC_API.G_RET_STS_ERROR;
153 END IF;
154 --Bug#4878489 end
155 l_acdv_tbl(i).clm_id := px_clmv_tbl(1).id;
156 l_acdv_tbl(i).isp_id := 1;
157 l_acdv_tbl(i).iln_id := l_iln_id;
158 l_acdv_tbl(i).kle_id := l_kle_id;
159
160 EXIT WHEN (i = l_acdv_tbl.LAST);
161 i := l_acdv_tbl.NEXT(i);
162 END LOOP;
163 END IF;
164
165 --Populate the line
166 -- Start of wraper code generated automatically by Debug code generator for okl_asset_cndtns_pub.insert_asset_cndtns
167 IF(IS_DEBUG_PROCEDURE_ON) THEN
168 BEGIN
169 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRCLAB.pls call okl_asset_cndtns_pub.insert_asset_cndtns ');
170 END;
171 END IF;
172 okl_asset_cndtns_pub.insert_asset_cndtns(
173 p_api_version => p_api_version
174 ,p_init_msg_list => p_init_msg_list
175 ,x_return_status => x_return_status
176 ,x_msg_count => x_msg_count
177 ,x_msg_data => x_msg_data
178 ,p_acdv_tbl => l_acdv_tbl
179 ,x_acdv_tbl => px_acdv_tbl);
180 IF(IS_DEBUG_PROCEDURE_ON) THEN
181 BEGIN
182 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRCLAB.pls call okl_asset_cndtns_pub.insert_asset_cndtns ');
183 END;
184 END IF;
185 -- End of wraper code generated automatically by Debug code generator for okl_asset_cndtns_pub.insert_asset_cndtns
186
187 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
188 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
189 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
190 RAISE OKC_API.G_EXCEPTION_ERROR;
191 END IF;
192 IF (x_return_status = Okc_Api.G_RET_STS_SUCCESS) THEN
193 null;
194 --px_acdv_tbl := x_acdv_tbl;
195 END IF;
196
197
198 IF (px_acnv_tbl.COUNT > 0) THEN
199 i := l_acnv_tbl.FIRST;
200 LOOP
201 l_acnv_tbl(i).acd_id := px_acdv_tbl(i).id;
202 EXIT WHEN (i = l_acnv_tbl.LAST);
203 i := l_acnv_tbl.NEXT(i);
204 END LOOP;
205 END IF;
206 -- Start of wraper code generated automatically by Debug code generator for okl_asset_cndtn_lns_pub.insert_asset_cndtn_lns
207 IF(IS_DEBUG_PROCEDURE_ON) THEN
208 BEGIN
209 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRCLAB.pls call okl_asset_cndtn_lns_pub.insert_asset_cndtn_lns ');
210 END;
211 END IF;
212 okl_asset_cndtn_lns_pub.insert_asset_cndtn_lns(
213 p_api_version => p_api_version
214 ,p_init_msg_list => p_init_msg_list
215 ,x_return_status => x_return_status
216 ,x_msg_count => x_msg_count
217 ,x_msg_data => x_msg_data
218 ,p_acnv_tbl => l_acnv_tbl
219 ,x_acnv_tbl => px_acnv_tbl);
220 IF(IS_DEBUG_PROCEDURE_ON) THEN
221 BEGIN
222 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRCLAB.pls call okl_asset_cndtn_lns_pub.insert_asset_cndtn_lns ');
223 END;
224 END IF;
225 -- End of wraper code generated automatically by Debug code generator for okl_asset_cndtn_lns_pub.insert_asset_cndtn_lns
226
227 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
228 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
229 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
230 RAISE OKC_API.G_EXCEPTION_ERROR;
231 END IF;
232 IF (x_return_status = Okc_Api.G_RET_STS_SUCCESS) THEN
233 px_acnv_tbl := x_acnv_tbl;
234 END IF;
235
236 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
237
238 EXCEPTION
239 WHEN OKC_API.G_EXCEPTION_ERROR THEN
240 x_return_status := OKC_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
241 p_pkg_name => G_PKG_NAME,
242 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
243 x_msg_count => x_msg_count,
244 x_msg_data => x_msg_data,
245 p_api_type => '_PROCESS');
246
247 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
248 x_return_status := OKC_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
249 p_pkg_name => G_PKG_NAME,
250 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
251 x_msg_count => x_msg_count,
252 x_msg_data => x_msg_data,
253 p_api_type => '_PROCESS');
254
255 WHEN OTHERS THEN
256 x_return_status := OKC_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
257 p_pkg_name => G_PKG_NAME,
258 p_exc_name => 'OTHERS',
259 x_msg_count => x_msg_count,
260 x_msg_data => x_msg_data,
261 p_api_type => '_PROCESS');
262 IF l_acdv_csr%ISOPEN THEN
263 CLOSE l_acdv_csr;
264 END IF;
265
266 END create_lease_claim;
267
268 PROCEDURE hold_streams(
269 p_api_version IN NUMBER,
270 p_init_msg_list IN VARCHAR2 ,
271 x_return_status OUT NOCOPY VARCHAR2,
272 x_msg_count OUT NOCOPY NUMBER,
273 x_msg_data OUT NOCOPY VARCHAR2,
274 p_lsm_id IN stmid_rec_type_tbl_type
275 ) IS
276 l_stmv_tbl Okl_Streams_Pvt.stmv_tbl_type;
277 x_stmv_tbl Okl_Streams_Pvt.stmv_tbl_type;
278 l_api_version NUMBER := 1 ;
279 BEGIN
280
281 -- SET values to retrieve record
282
283 IF p_lsm_id IS NOT NULL THEN
284 IF p_lsm_id.COUNT > 0 THEN
285 FOR i IN p_lsm_id.first..p_lsm_id.last LOOP
286 IF p_lsm_id.EXISTS(i) THEN
287 l_stmv_tbl(i).ID := p_lsm_id(i).ID ;
288 l_stmv_tbl(i).SAY_CODE := p_lsm_id(i).STATUS ;
289 END IF;
290 END LOOP;
291
292 -- Start of wraper code generated automatically by Debug code generator for Okl_Streams_Pub.update_streams
293 IF(L_DEBUG_ENABLED='Y') THEN
294 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
295 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
296 END IF;
297 IF(IS_DEBUG_PROCEDURE_ON) THEN
298 BEGIN
299 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRCLAB.pls call Okl_Streams_Pub.update_streams ');
300 END;
301 END IF;
302 Okl_Streams_Pub.update_streams (
303 p_api_version => l_api_version,
304 p_init_msg_list => Okc_Api.G_FALSE ,
305 x_return_status => X_return_status ,
306 x_msg_count => x_msg_count,
307 x_msg_data => x_msg_data ,
308 p_stmv_tbl => l_stmv_tbl,
309 x_stmv_tbl => x_stmv_tbl);
310 IF(IS_DEBUG_PROCEDURE_ON) THEN
311 BEGIN
312 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRCLAB.pls call Okl_Streams_Pub.update_streams ');
313 END;
314 END IF;
315 -- End of wraper code generated automatically by Debug code generator for Okl_Streams_Pub.update_streams
316
317 IF (X_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
318
319 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
320 ELSIF (X_return_status = OKC_API.G_RET_STS_ERROR) THEN
321
322 RAISE OKC_API.G_EXCEPTION_ERROR;
323 END IF;
324
325 END IF ;
326 END IF ;
327 END hold_streams ;
328
329
330 END OKL_INS_CLAIM_ASSET_PVT;