1: PACKAGE BODY okl_securitization_pvt_w AS
2: /* $Header: OKLESZSB.pls 115.3 2003/10/21 00:21:07 mvasudev noship $ */
3: rosetta_g_mistake_date DATE := TO_DATE('01/01/+4713', 'MM/DD/SYYYY');
4: rosetta_g_miss_date DATE := TO_DATE('01/01/-4712', 'MM/DD/SYYYY');
5:
18: IF n=b THEN RETURN a; END IF;
19: RETURN n;
20: END;
21:
22: PROCEDURE rosetta_table_copy_in_p29(t OUT nocopy okl_securitization_pvt.inv_agmt_chr_id_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_500
24: ) AS
25: ddindx BINARY_INTEGER; indx BINARY_INTEGER;
26: BEGIN
39: END LOOP;
40: END IF;
41: END IF;
42: END rosetta_table_copy_in_p29;
43: PROCEDURE rosetta_table_copy_out_p29(t okl_securitization_pvt.inv_agmt_chr_id_tbl_type, a0 OUT nocopy JTF_NUMBER_TABLE
44: , a1 OUT nocopy JTF_VARCHAR2_TABLE_500
45: ) AS
46: ddindx BINARY_INTEGER; indx BINARY_INTEGER;
47: BEGIN
84: )
85:
86: AS
87: ddp_effective_date DATE;
88: ddx_inv_agmt_chr_id_tbl okl_securitization_pvt.inv_agmt_chr_id_tbl_type;
89: ddindx BINARY_INTEGER; indx BINARY_INTEGER;
90: BEGIN
91:
92: -- copy data to the local IN or IN-OUT args, if any
102:
103:
104:
105: -- here's the delegated call to the old PL/SQL routine
106: okl_securitization_pvt.check_khr_securitized(p_api_version,
107: p_init_msg_list,
108: x_return_status,
109: x_msg_count,
110: x_msg_data,
125:
126:
127:
128:
129: okl_securitization_pvt_w.rosetta_table_copy_out_p29(ddx_inv_agmt_chr_id_tbl, p10_a0
130: , p10_a1
131: );
132: END;
133:
146: )
147:
148: AS
149: ddp_effective_date DATE;
150: ddx_inv_agmt_chr_id_tbl okl_securitization_pvt.inv_agmt_chr_id_tbl_type;
151: ddindx BINARY_INTEGER; indx BINARY_INTEGER;
152: BEGIN
153:
154: -- copy data to the local IN or IN-OUT args, if any
164:
165:
166:
167: -- here's the delegated call to the old PL/SQL routine
168: okl_securitization_pvt.check_kle_securitized(p_api_version,
169: p_init_msg_list,
170: x_return_status,
171: x_msg_count,
172: x_msg_data,
187:
188:
189:
190:
191: okl_securitization_pvt_w.rosetta_table_copy_out_p29(ddx_inv_agmt_chr_id_tbl, p10_a0
192: , p10_a1
193: );
194: END;
195:
224:
225:
226:
227: -- here's the delegated call to the old PL/SQL routine
228: okl_securitization_pvt.check_sty_securitized(p_api_version,
229: p_init_msg_list,
230: x_return_status,
231: x_msg_count,
232: x_msg_data,
275: ddp_effective_date := rosetta_g_miss_date_in_map(p_effective_date);
276:
277:
278: -- here's the delegated call to the old PL/SQL routine
279: okl_securitization_pvt.check_stm_securitized(p_api_version,
280: p_init_msg_list,
281: x_return_status,
282: x_msg_count,
283: x_msg_data,
320: ddp_effective_date := rosetta_g_miss_date_in_map(p_effective_date);
321:
322:
323: -- here's the delegated call to the old PL/SQL routine
324: okl_securitization_pvt.check_sel_securitized(p_api_version,
325: p_init_msg_list,
326: x_return_status,
327: x_msg_count,
328: x_msg_data,
363:
364: ddp_effective_date := rosetta_g_miss_date_in_map(p_effective_date);
365:
366: -- here's the delegated call to the old PL/SQL routine
367: okl_securitization_pvt.buyback_asset(p_api_version,
368: p_init_msg_list,
369: x_return_status,
370: x_msg_count,
371: x_msg_data,
404:
405: ddp_effective_date := rosetta_g_miss_date_in_map(p_effective_date);
406:
407: -- here's the delegated call to the old PL/SQL routine
408: okl_securitization_pvt.buyback_contract(p_api_version,
409: p_init_msg_list,
410: x_return_status,
411: x_msg_count,
412: x_msg_data,
437: )
438:
439: AS
440: ddp_effective_date DATE;
441: ddx_inv_agmt_chr_id_tbl okl_securitization_pvt.inv_agmt_chr_id_tbl_type;
442: ddindx BINARY_INTEGER; indx BINARY_INTEGER;
443: BEGIN
444:
445: -- copy data to the local IN or IN-OUT args, if any
455:
456:
457:
458: -- here's the delegated call to the old PL/SQL routine
459: okl_securitization_pvt.process_khr_investor_rules(p_api_version,
460: p_init_msg_list,
461: x_return_status,
462: x_msg_count,
463: x_msg_data,
478:
479:
480:
481:
482: okl_securitization_pvt_w.rosetta_table_copy_out_p29(ddx_inv_agmt_chr_id_tbl, p10_a0
483: , p10_a1
484: );
485: END;
486:
499: )
500:
501: AS
502: ddp_effective_date DATE;
503: ddx_inv_agmt_chr_id_tbl okl_securitization_pvt.inv_agmt_chr_id_tbl_type;
504: ddindx BINARY_INTEGER; indx BINARY_INTEGER;
505: BEGIN
506:
507: -- copy data to the local IN or IN-OUT args, if any
517:
518:
519:
520: -- here's the delegated call to the old PL/SQL routine
521: okl_securitization_pvt.process_kle_investor_rules(p_api_version,
522: p_init_msg_list,
523: x_return_status,
524: x_msg_count,
525: x_msg_data,
540:
541:
542:
543:
544: okl_securitization_pvt_w.rosetta_table_copy_out_p29(ddx_inv_agmt_chr_id_tbl, p10_a0
545: , p10_a1
546: );
547: END;
548:
573:
574:
575:
576: -- here's the delegated call to the old PL/SQL routine
577: okl_securitization_pvt.buyback_pool_contents(p_api_version,
578: p_init_msg_list,
579: p_khr_id,
580: p_pol_id,
581: p_stream_type_subclass,
628:
629:
630:
631: -- here's the delegated call to the old PL/SQL routine
632: okl_securitization_pvt.modify_pool_contents(p_api_version,
633: p_init_msg_list,
634: p_transaction_reason,
635: p_khr_id,
636: p_kle_id,
667: , x_msg_data OUT nocopy VARCHAR2
668: )
669:
670: AS
671: ddp_split_kle_ids okl_securitization_pvt.cle_tbl_type;
672: ddp_transaction_date DATE;
673: ddp_effective_date DATE;
674: ddindx BINARY_INTEGER; indx BINARY_INTEGER;
675: BEGIN
690:
691:
692:
693: -- here's the delegated call to the old PL/SQL routine
694: okl_securitization_pvt.modify_pool_contents(p_api_version,
695: p_init_msg_list,
696: p_transaction_reason,
697: p_khr_id,
698: p_kle_id,
715:
716:
717: END;
718:
719: END okl_securitization_pvt_w;