[Home] [Help]
PACKAGE BODY: APPS.OKL_CSH_ORDER_SEQ_PUB
Source
1 PACKAGE BODY OKL_CSH_ORDER_SEQ_PUB AS
2 /* $Header: OKLPSATB.pls 120.3 2006/07/11 09:38:19 dkagrawa noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.RECEIVABLES.SETUP';
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
10
11 ---------------------------------------------------------------------------
12 -- PROCEDURE insert_order_sequence
13 ---------------------------------------------------------------------------
14
15 PROCEDURE insert_order_sequence (p_api_version IN NUMBER
16 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
17 ,x_return_status OUT NOCOPY VARCHAR2
18 ,x_msg_count OUT NOCOPY NUMBER
19 ,x_msg_data OUT NOCOPY VARCHAR2
20 ,p_okl_csh_order_rec IN okl_csh_order_rec_type
21 ,x_okl_csh_order_rec OUT NOCOPY okl_csh_order_rec_type) IS
22
23 i NUMBER :=0;
24 l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
25 l_api_version NUMBER ;
26 l_init_msg_list VARCHAR2(1) ;
27 l_msg_data VARCHAR2(2000);
28 l_msg_count NUMBER ;
29 lp_okl_csh_order_rec okl_csh_order_rec_type;
30 lx_okl_csh_order_rec okl_csh_order_rec_type;
31
32
33 BEGIN
34
35
36
37
38
39
40
41 SAVEPOINT csh_order_seq_update_rec;
42
43 l_api_version := p_api_version ;
44 l_init_msg_list := p_init_msg_list ;
45 l_msg_data := x_msg_data;
46 l_msg_count := x_msg_count ;
47 lp_okl_csh_order_rec := p_okl_csh_order_rec;
48 lx_okl_csh_order_rec := p_okl_csh_order_rec;
49
50 --Delete the Master
51 -- Start of wraper code generated automatically by Debug code generator for Okl_Csh_Order_Seq_Pvt.insert_row
52 IF(L_DEBUG_ENABLED='Y') THEN
53 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
54 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
55 END IF;
56 IF(IS_DEBUG_PROCEDURE_ON) THEN
57 BEGIN
58 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSATB.pls call Okl_Csh_Order_Seq_Pvt.insert_row ');
59 END;
60 END IF;
61 Okl_Csh_Order_Seq_Pvt.insert_row(
62 l_api_version
63 ,l_init_msg_list
64 ,l_return_status
65 ,l_msg_count
66 ,l_msg_data
67 ,lp_okl_csh_order_rec
68 ,lx_okl_csh_order_rec);
69 IF(IS_DEBUG_PROCEDURE_ON) THEN
70 BEGIN
71 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSATB.pls call Okl_Csh_Order_Seq_Pvt.insert_row ');
72 END;
73 END IF;
74 -- End of wraper code generated automatically by Debug code generator for Okl_Csh_Order_Seq_Pvt.insert_row
75
76
77 x_return_status := l_return_status ;
78 x_msg_count := l_msg_count ;
79 x_msg_data := l_msg_data ;
80
81 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
82 RAISE Fnd_Api.G_EXC_ERROR;
83 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
84 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
85 END IF;
86
87
88
89
90
91 EXCEPTION
92
93 WHEN Fnd_Api.G_EXC_ERROR THEN
94 ROLLBACK TO csh_order_seq_update_rec;
95 x_return_status := Fnd_Api.G_RET_STS_ERROR;
96 x_msg_count := l_msg_count ;
97 x_msg_data := l_msg_data ;
98 --Fnd_Msg_Pub.count_and_get(
99 -- p_count => x_msg_count
100 -- ,p_data => x_msg_data);
101 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
102 ROLLBACK TO csh_order_seq_update_rec;
103 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
104 x_msg_count := l_msg_count ;
105 x_msg_data := l_msg_data ;
106 --Fnd_Msg_Pub.count_and_get(
107 -- p_count => x_msg_count
108 -- ,p_data => x_msg_data);
109 WHEN OTHERS THEN
110 ROLLBACK TO csh_order_seq_update_rec;
111 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
112 x_msg_count := l_msg_count ;
113 x_msg_data := l_msg_data ;
114 --Fnd_Msg_Pub.ADD_EXC_MSG('OKL_CSH_ORDER_SEQ_PUB','update_csh_order_seq');
115 --Fnd_Msg_Pub.count_and_get(
116 -- p_count => x_msg_count
117 -- ,p_data => x_msg_data);
118
119 END insert_order_sequence;
120
121 ---------------------------------------------------------------------------
122 -- PROCEDURE insert_order_sequence(s)
123 ---------------------------------------------------------------------------
124
125 PROCEDURE insert_order_sequence (p_api_version IN NUMBER
126 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
127 ,x_return_status OUT NOCOPY VARCHAR2
128 ,x_msg_count OUT NOCOPY NUMBER
129 ,x_msg_data OUT NOCOPY VARCHAR2
130 ,p_okl_csh_order_tbl IN okl_csh_order_tbl_type
131 ,x_okl_csh_order_tbl OUT NOCOPY okl_csh_order_tbl_type) IS
132
133 i NUMBER :=0;
134 l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
135 l_api_version NUMBER ;
136 l_init_msg_list VARCHAR2(1) ;
137 l_msg_data VARCHAR2(2000);
138 l_msg_count NUMBER ;
139 lp_okl_csh_order_tbl okl_csh_order_tbl_type;
140 lx_okl_csh_order_tbl okl_csh_order_tbl_type;
141
142 BEGIN
143
144
145
146
147
148
149 SAVEPOINT csh_order_seq_update_tbl;
150
151
152 l_api_version := p_api_version ;
153 l_init_msg_list := p_init_msg_list ;
154 l_msg_data := x_msg_data;
155 l_msg_count := x_msg_count ;
156 lp_okl_csh_order_tbl := p_okl_csh_order_tbl;
157 lx_okl_csh_order_tbl := p_okl_csh_order_tbl;
158
159
160 --Delete the Master
161 --Initialize the return status
162 l_return_status := Okc_Api.G_RET_STS_SUCCESS;
163
164 IF (lp_okl_csh_order_tbl.COUNT > 0) THEN
165 i := p_okl_csh_order_tbl.FIRST;
166 LOOP
167
168 -- Start of wraper code generated automatically by Debug code generator for Okl_Csh_Order_Seq_Pvt.insert_row
169 IF(L_DEBUG_ENABLED='Y') THEN
170 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
171 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
172 END IF;
173 IF(IS_DEBUG_PROCEDURE_ON) THEN
174 BEGIN
175 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSATB.pls call Okl_Csh_Order_Seq_Pvt.insert_row ');
176 END;
177 END IF;
178 Okl_Csh_Order_Seq_Pvt.insert_row(
179 l_api_version
180 ,l_init_msg_list
181 ,l_return_status
182 ,l_msg_count
183 ,l_msg_data
184 ,lp_okl_csh_order_tbl(i)
185 ,lx_okl_csh_order_tbl(i));
186 IF(IS_DEBUG_PROCEDURE_ON) THEN
187 BEGIN
188 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSATB.pls call Okl_Csh_Order_Seq_Pvt.insert_row ');
189 END;
190 END IF;
191 -- End of wraper code generated automatically by Debug code generator for Okl_Csh_Order_Seq_Pvt.insert_row
192
193 x_return_status := l_return_status ;
194 x_msg_count := l_msg_count ;
195 x_msg_data := l_msg_data ;
196
197 EXIT WHEN (i = lp_okl_csh_order_tbl.LAST);
198 i := p_okl_csh_order_tbl.NEXT(i);
199 END LOOP;
200 END IF;
201
202 IF (l_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
203 RAISE Fnd_Api.G_EXC_ERROR;
204 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
205 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
206 END IF;
207
208
209
210
211
212 EXCEPTION
213
214 WHEN Fnd_Api.G_EXC_ERROR THEN
215 ROLLBACK TO csh_order_seq_update_tbl;
216 x_return_status := Fnd_Api.G_RET_STS_ERROR;
217 x_msg_count := l_msg_count ;
218 x_msg_data := l_msg_data ;
219 --Fnd_Msg_Pub.count_and_get(
220 -- p_count => x_msg_count
221 -- ,p_data => x_msg_data);
222 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
223 ROLLBACK TO csh_order_seq_update_tbl;
224 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
225 x_msg_count := l_msg_count ;
226 x_msg_data := l_msg_data ;
227 --Fnd_Msg_Pub.count_and_get(
228 -- p_count => x_msg_count
229 -- ,p_data => x_msg_data);
230 WHEN OTHERS THEN
231 ROLLBACK TO csh_order_seq_update_tbl;
232 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
233 x_msg_count := l_msg_count ;
234 x_msg_data := l_msg_data ;
235 --Fnd_Msg_Pub.ADD_EXC_MSG('OKL_CSH_ORDER_SEQ_PUB','update_csh_order_seq');
236 --Fnd_Msg_Pub.count_and_get(
237 -- p_count => x_msg_count
238 -- ,p_data => x_msg_data);
239
240 END insert_order_sequence;
241
242
243 ---------------------------------------------------------------------------
244 -- PROCEDURE update_order_sequence
245 ---------------------------------------------------------------------------
246
247 PROCEDURE update_order_sequence (p_api_version IN NUMBER
248 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
249 ,x_return_status OUT NOCOPY VARCHAR2
250 ,x_msg_count OUT NOCOPY NUMBER
251 ,x_msg_data OUT NOCOPY VARCHAR2
252 ,p_okl_csh_order_rec IN okl_csh_order_rec_type
253 ,x_okl_csh_order_rec OUT NOCOPY okl_csh_order_rec_type) IS
254
255 i NUMBER :=0;
256 l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
257 l_api_version NUMBER ;
258 l_init_msg_list VARCHAR2(1) ;
259 l_msg_data VARCHAR2(2000);
260 l_msg_count NUMBER ;
261 lp_okl_csh_order_rec okl_csh_order_rec_type;
262 lx_okl_csh_order_rec okl_csh_order_rec_type;
263
264 BEGIN
265
266
267
268
269
270
271 SAVEPOINT csh_order_seq_update_rec;
272
273
274 l_api_version := p_api_version ;
275 l_init_msg_list := p_init_msg_list ;
276 l_msg_data := x_msg_data;
277 l_msg_count := x_msg_count ;
278 lp_okl_csh_order_rec := p_okl_csh_order_rec;
279 lx_okl_csh_order_rec := p_okl_csh_order_rec;
280
281
282 --Delete the Master
283 -- Start of wraper code generated automatically by Debug code generator for Okl_Csh_Order_Seq_Pvt.update_row
284 IF(L_DEBUG_ENABLED='Y') THEN
285 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
286 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
287 END IF;
288 IF(IS_DEBUG_PROCEDURE_ON) THEN
289 BEGIN
290 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSATB.pls call Okl_Csh_Order_Seq_Pvt.update_row ');
291 END;
292 END IF;
293 Okl_Csh_Order_Seq_Pvt.update_row(
294 l_api_version
295 ,l_init_msg_list
296 ,l_return_status
297 ,l_msg_count
298 ,l_msg_data
299 ,lp_okl_csh_order_rec
300 ,lx_okl_csh_order_rec);
301 IF(IS_DEBUG_PROCEDURE_ON) THEN
302 BEGIN
303 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSATB.pls call Okl_Csh_Order_Seq_Pvt.update_row ');
304 END;
305 END IF;
306 -- End of wraper code generated automatically by Debug code generator for Okl_Csh_Order_Seq_Pvt.update_row
307
308 x_return_status := l_return_status ;
309 x_msg_count := l_msg_count ;
310 x_msg_data := l_msg_data ;
311
312 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
313 RAISE Fnd_Api.G_EXC_ERROR;
314 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
315 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
316 END IF;
317
318
319
320
321
322 EXCEPTION
323
324 WHEN Fnd_Api.G_EXC_ERROR THEN
325 ROLLBACK TO csh_order_seq_update_rec;
326 x_return_status := Fnd_Api.G_RET_STS_ERROR;
327 x_msg_count := l_msg_count ;
328 x_msg_data := l_msg_data ;
329 --Fnd_Msg_Pub.count_and_get(
330 -- p_count => x_msg_count
331 -- ,p_data => x_msg_data);
332 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
333 ROLLBACK TO csh_order_seq_update_rec;
334 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
335 x_msg_count := l_msg_count ;
336 x_msg_data := l_msg_data ;
337 --Fnd_Msg_Pub.count_and_get(
338 -- p_count => x_msg_count
339 -- ,p_data => x_msg_data);
340 WHEN OTHERS THEN
341 ROLLBACK TO csh_order_seq_update_rec;
342 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
343 x_msg_count := l_msg_count ;
344 x_msg_data := l_msg_data ;
345 --Fnd_Msg_Pub.ADD_EXC_MSG('OKL_CSH_ORDER_SEQ_PUB','update_csh_order_seq');
346 --Fnd_Msg_Pub.count_and_get(
347 -- p_count => x_msg_count
348 -- ,p_data => x_msg_data);
349
350 END update_order_sequence;
351
352 ---------------------------------------------------------------------------
353 -- PROCEDURE update_order_sequence(s)
354 ---------------------------------------------------------------------------
355
356 PROCEDURE update_order_sequence (p_api_version IN NUMBER
357 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
358 ,x_return_status OUT NOCOPY VARCHAR2
359 ,x_msg_count OUT NOCOPY NUMBER
360 ,x_msg_data OUT NOCOPY VARCHAR2
364
361 ,p_okl_csh_order_tbl IN okl_csh_order_tbl_type
362 ,x_okl_csh_order_tbl OUT NOCOPY okl_csh_order_tbl_type
363 ) IS
365 i NUMBER :=0;
366 j NUMBER :=0;
367 k NUMBER :=0;
368 l NUMBER :=0;
369
370 l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
371 l_api_version NUMBER;
372 l_init_msg_list VARCHAR2(1);
373 l_msg_data VARCHAR2(2000);
374 l_msg_count NUMBER;
375 l_count INTEGER;
376
377 l_id OKL_STRM_TYP_ALLOCS.ID%TYPE;
378 l_sty_id OKL_BPD_CSH_ORDER_UV.STY_ID%TYPE;
379 l_cat_id OKL_BPD_CSH_ORDER_UV.CAT_ID%TYPE;
380 l_seq_num OKL_BPD_CSH_ORDER_UV.CAT_ID%TYPE;
381 l_strm_type OKL_BPD_CSH_ORDER_UV.STREAM_ALLC_TYPE%TYPE;
382
383 lp_okl_csh_order_tbl okl_csh_order_tbl_type;
384 lx_okl_csh_order_tbl okl_csh_order_tbl_type;
385 lp_okl_csh_order_upd_tbl okl_csh_order_tbl_type;
386 lx_okl_csh_order_upd_tbl okl_csh_order_tbl_type;
387 lp_okl_csh_order_ins_tbl okl_csh_order_tbl_type;
388 lx_okl_csh_order_ins_tbl okl_csh_order_tbl_type;
389 lp_okl_csh_order_del_tbl okl_csh_order_tbl_type;
390 lp_okl_csh_pro_ins_tbl okl_csh_order_tbl_type;
391 lx_okl_csh_pro_ins_tbl okl_csh_order_tbl_type;
392 lp_okl_csh_pro_del_tbl okl_csh_order_tbl_type;
393
394 -------------------
395 -- DECLARE Cursors
396 -------------------
397
398 -- get id of record to be updated or deleted for ODD
399 CURSOR c_get_id_odd (l_sty_id IN NUMBER, l_cat_id IN NUMBER) IS
400 SELECT id
401 FROM OKL_STRM_TYP_ALLOCS sta
402 WHERE sta.STY_ID = l_sty_id
403 AND sta.CAT_ID = l_cat_id
404 AND sta.STREAM_ALLC_TYPE = 'ODD';
405
406 -- get id of record to be updated or deleted for PRO
407 CURSOR c_get_id_pro (l_sty_id IN NUMBER, l_cat_id IN NUMBER) IS
408 SELECT id
409 FROM OKL_STRM_TYP_ALLOCS sta
410 WHERE sta.STY_ID = l_sty_id
411 AND sta.CAT_ID = l_cat_id
412 AND sta.STREAM_ALLC_TYPE = 'PRO';
413
414 --Find whether it's insert or update for ordered sequence
415 CURSOR c_csh_ins_upd_flag (l_sty_id IN NUMBER, l_cat_id IN NUMBER) IS
416 SELECT count(*) COUNT
417 FROM OKL_STRM_TYP_ALLOCS sta
418 WHERE sta.STY_ID = l_sty_id
419 AND sta.CAT_ID = l_cat_id
420 AND sta.STREAM_ALLC_TYPE = 'ODD';
421
422 --Find whether it's new insert or duplicate for prorate sequence
423 CURSOR c_csh_ins_yn_flag (l_sty_id IN NUMBER, l_cat_id IN NUMBER) IS
424 SELECT count(*) COUNT
425 FROM OKL_STRM_TYP_ALLOCS sta
426 WHERE sta.STY_ID = l_sty_id
427 AND sta.CAT_ID = l_cat_id
428 AND sta.STREAM_ALLC_TYPE = 'PRO'
429 AND sta.ID is not null;
430
431 c_csh_ins_upd_flag_rec c_csh_ins_upd_flag%ROWTYPE;
432 c_csh_ins_yn_flag_rec c_csh_ins_yn_flag%ROWTYPE;
433
434 BEGIN
435
436
437
438 SAVEPOINT csh_order_seq_update_tbl;
439
440 l_api_version := p_api_version ;
441 l_init_msg_list := p_init_msg_list ;
442 l_msg_data := x_msg_data;
443 l_msg_count := x_msg_count ;
444 lp_okl_csh_order_tbl := p_okl_csh_order_tbl;
445 lx_okl_csh_order_tbl := p_okl_csh_order_tbl;
446
447 --Delete the Master
448 --Initialize the return status
449 l_return_status := Okc_Api.G_RET_STS_SUCCESS;
450
451
452 IF (lp_okl_csh_order_tbl.COUNT > 0) THEN
453 i := lp_okl_csh_order_tbl.FIRST;
454 j := 1;
455 k := 1;
456 l := 1;
457
458 LOOP
459
460 l_sty_id := lp_okl_csh_order_tbl(i).STY_ID;
461 l_cat_id := lp_okl_csh_order_tbl(i).CAT_ID;
462 l_strm_type := lp_okl_csh_order_tbl(i).STREAM_ALLC_TYPE;
463
464
465 --Check if the sequence is ordered
466 IF (l_strm_type = 'ODD') THEN
467 l_seq_num := lp_okl_csh_order_tbl(i).SEQUENCE_NUMBER;
468 IF (l_seq_num > 0) THEN
469
470 OPEN c_csh_ins_upd_flag(l_sty_id, l_cat_id);
471 FETCH c_csh_ins_upd_flag INTO c_csh_ins_upd_flag_rec;
472 CLOSE c_csh_ins_upd_flag;
473
474 OPEN c_get_id_odd(l_sty_id, l_cat_id);
475 FETCH c_get_id_odd INTO l_id;
476 CLOSE c_get_id_odd;
477
478 l_count := c_csh_ins_upd_flag_rec.COUNT;
479
480 IF (l_count > 0) THEN
481
482 lp_okl_csh_order_tbl(i).id := l_id;
483 lp_okl_csh_order_tbl(i).STREAM_ALLC_TYPE := 'ODD';
484 lp_okl_csh_order_upd_tbl(j) := lp_okl_csh_order_tbl(i);
485 j := j + 1;
486
487 ELSE
488
489 lp_okl_csh_order_tbl(i).STREAM_ALLC_TYPE := 'ODD';
490 lp_okl_csh_order_ins_tbl(k) := lp_okl_csh_order_tbl(i);
491 k := k + 1;
492
493 END IF;
494
495 ELSE
496 l_id := NULL;
500
497 OPEN c_get_id_odd(l_sty_id, l_cat_id);
498 FETCH c_get_id_odd INTO l_id;
499 CLOSE c_get_id_odd;
501
502 IF l_id IS NOT NULL THEN
503 lp_okl_csh_order_tbl(i).id := l_id;
504 lp_okl_csh_order_tbl(i).STREAM_ALLC_TYPE := 'ODD';
505 lp_okl_csh_order_del_tbl(l) := lp_okl_csh_order_tbl(i);
506 l := l + 1;
507 END IF;
508
509 END IF;
510
511 -- the seq is prorate
512 ELSE
513
514 IF (l_strm_type = 'PRO') THEN
515
516 OPEN c_csh_ins_yn_flag(l_sty_id, l_cat_id);
517 FETCH c_csh_ins_yn_flag INTO c_csh_ins_yn_flag_rec;
518 CLOSE c_csh_ins_yn_flag;
519
520 l_count := c_csh_ins_yn_flag_rec.COUNT;
521
522 IF (l_count <= 0) THEN
523 lp_okl_csh_order_tbl(i).STREAM_ALLC_TYPE := 'PRO';
524 lp_okl_csh_order_ins_tbl(j) := lp_okl_csh_order_tbl(i);
525 j := j + 1;
526 END IF;
527
528 ELSE
529
530 l_id := NULL;
531 OPEN c_get_id_pro(l_sty_id, l_cat_id);
532 FETCH c_get_id_pro INTO l_id;
533 CLOSE c_get_id_pro;
534
535 IF l_id IS NOT NULL THEN
536 lp_okl_csh_order_tbl(i).id := l_id;
537 lp_okl_csh_order_del_tbl(k) := lp_okl_csh_order_tbl(i);
538 k := k + 1;
539 END IF;
540
541 END IF;
542
543 END IF;
544
545 EXIT WHEN (i = lp_okl_csh_order_tbl.LAST);
546 i := lp_okl_csh_order_tbl.NEXT(i);
547 END LOOP;
548
549 IF (lp_okl_csh_order_upd_tbl.COUNT = 0) OR
550 (lp_okl_csh_order_ins_tbl.COUNT = 0) THEN
551
552 x_return_status := l_return_status;
553
554 END IF;
555
556 IF (lp_okl_csh_order_upd_tbl.COUNT > 0) THEN
557
558 --updating sequences
559
560
561 -- Start of wraper code generated automatically by Debug code generator for Okl_Csh_Order_Seq_Pvt.update_row
562 IF(L_DEBUG_ENABLED='Y') THEN
563 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
564 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
565 END IF;
566 IF(IS_DEBUG_PROCEDURE_ON) THEN
567 BEGIN
568 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSATB.pls call Okl_Csh_Order_Seq_Pvt.update_row ');
569 END;
570 END IF;
571 Okl_Csh_Order_Seq_Pvt.update_row(
572 l_api_version
573 ,l_init_msg_list
574 ,l_return_status
575 ,l_msg_count
576 ,l_msg_data
577 ,lp_okl_csh_order_upd_tbl
578 ,lx_okl_csh_order_upd_tbl);
579 IF(IS_DEBUG_PROCEDURE_ON) THEN
580 BEGIN
581 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSATB.pls call Okl_Csh_Order_Seq_Pvt.update_row ');
582 END;
583 END IF;
584 -- End of wraper code generated automatically by Debug code generator for Okl_Csh_Order_Seq_Pvt.update_row
585
586 x_okl_csh_order_tbl := lx_okl_csh_order_upd_tbl;
587 x_return_status := l_return_status ;
588 x_msg_count := l_msg_count ;
589 x_msg_data := l_msg_data ;
590
591
592 END IF;
593
594 IF (lp_okl_csh_order_ins_tbl.COUNT > 0) THEN
595
596 --inserting sequences
597
598
599 -- Start of wraper code generated automatically by Debug code generator for Okl_Csh_Order_Seq_Pvt.insert_row
600 IF(IS_DEBUG_PROCEDURE_ON) THEN
601 BEGIN
602 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSATB.pls call Okl_Csh_Order_Seq_Pvt.insert_row ');
603 END;
604 END IF;
605 Okl_Csh_Order_Seq_Pvt.insert_row(
606 l_api_version
607 ,l_init_msg_list
608 ,l_return_status
609 ,l_msg_count
610 ,l_msg_data
611 ,lp_okl_csh_order_ins_tbl
612 ,lx_okl_csh_order_ins_tbl);
613 IF(IS_DEBUG_PROCEDURE_ON) THEN
614 BEGIN
615 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSATB.pls call Okl_Csh_Order_Seq_Pvt.insert_row ');
616 END;
617 END IF;
618 -- End of wraper code generated automatically by Debug code generator for Okl_Csh_Order_Seq_Pvt.insert_row
619
620
621 x_okl_csh_order_tbl := lx_okl_csh_order_ins_tbl;
622 x_return_status := l_return_status ;
623 x_msg_count := l_msg_count ;
624 x_msg_data := l_msg_data ;
625
626
627 END IF;
628
629 IF (lp_okl_csh_order_del_tbl.COUNT > 0) THEN
630
631 --deleting sequence
635 i := i + 1;
632 i := lp_okl_csh_order_tbl.FIRST;
633 loop
634 EXIT WHEN (i = lp_okl_csh_order_del_tbl.LAST);
636 end loop;
637
638
639 -- Start of wraper code generated automatically by Debug code generator for Okl_Csh_Order_Seq_Pvt.delete_row
640 IF(IS_DEBUG_PROCEDURE_ON) THEN
641 BEGIN
642 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSATB.pls call Okl_Csh_Order_Seq_Pvt.delete_row ');
643 END;
644 END IF;
645 Okl_Csh_Order_Seq_Pvt.delete_row(
646 l_api_version
647 ,l_init_msg_list
648 ,l_return_status
649 ,l_msg_count
650 ,l_msg_data
651 ,lp_okl_csh_order_del_tbl);
652 IF(IS_DEBUG_PROCEDURE_ON) THEN
653 BEGIN
654 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSATB.pls call Okl_Csh_Order_Seq_Pvt.delete_row ');
655 END;
656 END IF;
657 -- End of wraper code generated automatically by Debug code generator for Okl_Csh_Order_Seq_Pvt.delete_row
658
659 x_return_status := l_return_status ;
660 x_msg_count := l_msg_count ;
661 x_msg_data := l_msg_data ;
662
663 -- commit;
664
665
666 END IF;
667
668 /*
669 IF (lp_okl_csh_pro_ins_tbl.COUNT > 0) THEN
670
671 --inserting sequences
672
673
674 Okl_Csh_Order_Seq_Pvt.insert_row(
675 l_api_version
676 ,l_init_msg_list
677 ,l_return_status
678 ,l_msg_count
679 ,l_msg_data
680 ,lp_okl_csh_pro_ins_tbl
681 ,lx_okl_csh_pro_ins_tbl);
682
683
684 x_okl_csh_order_tbl := lx_okl_csh_pro_ins_tbl;
685 x_return_status := l_return_status ;
686 x_msg_count := l_msg_count ;
687 x_msg_data := l_msg_data ;
688
689
690 END IF;
691
692 IF (lp_okl_csh_pro_del_tbl.COUNT > 0) THEN
693
694 Okl_Csh_Order_Seq_Pvt.delete_row(
695 l_api_version
696 ,l_init_msg_list
697 ,l_return_status
698 ,l_msg_count
699 ,l_msg_data
700 ,lp_okl_csh_pro_del_tbl);
701
702 x_return_status := l_return_status ;
703 x_msg_count := l_msg_count ;
704 x_msg_data := l_msg_data ;
705
706
707 END IF;
708 */
709 END IF;
710
711 IF (l_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
712 RAISE Fnd_Api.G_EXC_ERROR;
713 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
714 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
715 END IF;
716
717
718
719
720
721 EXCEPTION
722
723 WHEN Fnd_Api.G_EXC_ERROR THEN
724 ROLLBACK TO csh_order_seq_update_tbl;
725 x_return_status := Fnd_Api.G_RET_STS_ERROR;
726 x_msg_count := l_msg_count ;
727 x_msg_data := l_msg_data ;
728 --Fnd_Msg_Pub.count_and_get(
729 -- p_count => x_msg_count
730 -- ,p_data => x_msg_data);
731 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
732 ROLLBACK TO csh_order_seq_update_tbl;
733 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
734 x_msg_count := l_msg_count ;
735 x_msg_data := l_msg_data ;
736 --Fnd_Msg_Pub.count_and_get(
737 -- p_count => x_msg_count
738 -- ,p_data => x_msg_data);
739 WHEN OTHERS THEN
740 ROLLBACK TO csh_order_seq_update_tbl;
741 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
742 x_msg_count := l_msg_count ;
743 x_msg_data := l_msg_data ;
744 --Fnd_Msg_Pub.ADD_EXC_MSG('OKL_CSH_ORDER_SEQ_PUB','update_csh_order_seq');
745 --Fnd_Msg_Pub.count_and_get(
746 -- p_count => x_msg_count
747 -- ,p_data => x_msg_data);
748
749 END update_order_sequence;
750
751 END OKL_CSH_ORDER_SEQ_PUB;