1: package body okl_credit_checklist_pvt_w as
2: /* $Header: OKLECLCB.pls 120.2 2005/05/27 17:10:17 cklee 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_p21(t out nocopy okl_credit_checklist_pvt.rulv_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_VARCHAR2_TABLE_200
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_NUMBER_TABLE
79: end loop;
80: end if;
81: end if;
82: end rosetta_table_copy_in_p21;
83: procedure rosetta_table_copy_out_p21(t okl_credit_checklist_pvt.rulv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
84: , a1 out nocopy JTF_VARCHAR2_TABLE_100
85: , a2 out nocopy JTF_VARCHAR2_TABLE_200
86: , a3 out nocopy JTF_NUMBER_TABLE
87: , a4 out nocopy JTF_NUMBER_TABLE
260: , p6_a21 out nocopy JTF_NUMBER_TABLE
261: )
262:
263: as
264: ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
265: ddx_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
266: ddindx binary_integer; indx binary_integer;
267: begin
268:
261: )
262:
263: as
264: ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
265: ddx_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
266: ddindx binary_integer; indx binary_integer;
267: begin
268:
269: -- copy data to the local IN or IN-OUT args, if any
271:
272:
273:
274:
275: okl_credit_checklist_pvt_w.rosetta_table_copy_in_p21(ddp_rulv_tbl, p5_a0
276: , p5_a1
277: , p5_a2
278: , p5_a3
279: , p5_a4
297: );
298:
299:
300: -- here's the delegated call to the old PL/SQL routine
301: okl_credit_checklist_pvt.create_credit_chklst(p_api_version,
302: p_init_msg_list,
303: x_return_status,
304: x_msg_count,
305: x_msg_data,
312:
313:
314:
315:
316: okl_credit_checklist_pvt_w.rosetta_table_copy_out_p21(ddx_rulv_tbl, p6_a0
317: , p6_a1
318: , p6_a2
319: , p6_a3
320: , p6_a4
389: , p6_a21 out nocopy JTF_NUMBER_TABLE
390: )
391:
392: as
393: ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
394: ddx_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
395: ddindx binary_integer; indx binary_integer;
396: begin
397:
390: )
391:
392: as
393: ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
394: ddx_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
395: ddindx binary_integer; indx binary_integer;
396: begin
397:
398: -- copy data to the local IN or IN-OUT args, if any
400:
401:
402:
403:
404: okl_credit_checklist_pvt_w.rosetta_table_copy_in_p21(ddp_rulv_tbl, p5_a0
405: , p5_a1
406: , p5_a2
407: , p5_a3
408: , p5_a4
426: );
427:
428:
429: -- here's the delegated call to the old PL/SQL routine
430: okl_credit_checklist_pvt.update_credit_chklst(p_api_version,
431: p_init_msg_list,
432: x_return_status,
433: x_msg_count,
434: x_msg_data,
441:
442:
443:
444:
445: okl_credit_checklist_pvt_w.rosetta_table_copy_out_p21(ddx_rulv_tbl, p6_a0
446: , p6_a1
447: , p6_a2
448: , p6_a3
449: , p6_a4
496: , p5_a21 JTF_NUMBER_TABLE
497: )
498:
499: as
500: ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
501: ddindx binary_integer; indx binary_integer;
502: begin
503:
504: -- copy data to the local IN or IN-OUT args, if any
506:
507:
508:
509:
510: okl_credit_checklist_pvt_w.rosetta_table_copy_in_p21(ddp_rulv_tbl, p5_a0
511: , p5_a1
512: , p5_a2
513: , p5_a3
514: , p5_a4
531: , p5_a21
532: );
533:
534: -- here's the delegated call to the old PL/SQL routine
535: okl_credit_checklist_pvt.delete_credit_chklst(p_api_version,
536: p_init_msg_list,
537: x_return_status,
538: x_msg_count,
539: x_msg_data,
576: , p5_a21 NUMBER := 0-1962.0724
577: )
578:
579: as
580: ddp_rulv_rec okl_credit_checklist_pvt.rulv_rec_type;
581: ddindx binary_integer; indx binary_integer;
582: begin
583:
584: -- copy data to the local IN or IN-OUT args, if any
610: ddp_rulv_rec.rule_information15 := p5_a20;
611: ddp_rulv_rec.display_sequence := rosetta_g_miss_num_map(p5_a21);
612:
613: -- here's the delegated call to the old PL/SQL routine
614: okl_credit_checklist_pvt.approve_credit_chklst(p_api_version,
615: p_init_msg_list,
616: x_return_status,
617: x_msg_count,
618: x_msg_data,
677: , p6_a21 out nocopy JTF_NUMBER_TABLE
678: )
679:
680: as
681: ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
682: ddx_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
683: ddindx binary_integer; indx binary_integer;
684: begin
685:
678: )
679:
680: as
681: ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
682: ddx_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
683: ddindx binary_integer; indx binary_integer;
684: begin
685:
686: -- copy data to the local IN or IN-OUT args, if any
688:
689:
690:
691:
692: okl_credit_checklist_pvt_w.rosetta_table_copy_in_p21(ddp_rulv_tbl, p5_a0
693: , p5_a1
694: , p5_a2
695: , p5_a3
696: , p5_a4
714: );
715:
716:
717: -- here's the delegated call to the old PL/SQL routine
718: okl_credit_checklist_pvt.update_fund_chklst_tpl_hdr(p_api_version,
719: p_init_msg_list,
720: x_return_status,
721: x_msg_count,
722: x_msg_data,
729:
730:
731:
732:
733: okl_credit_checklist_pvt_w.rosetta_table_copy_out_p21(ddx_rulv_tbl, p6_a0
734: , p6_a1
735: , p6_a2
736: , p6_a3
737: , p6_a4
806: , p5_a21 NUMBER := 0-1962.0724
807: )
808:
809: as
810: ddp_rulv_rec okl_credit_checklist_pvt.rulv_rec_type;
811: ddx_rulv_rec okl_credit_checklist_pvt.rulv_rec_type;
812: ddindx binary_integer; indx binary_integer;
813: begin
814:
807: )
808:
809: as
810: ddp_rulv_rec okl_credit_checklist_pvt.rulv_rec_type;
811: ddx_rulv_rec okl_credit_checklist_pvt.rulv_rec_type;
812: ddindx binary_integer; indx binary_integer;
813: begin
814:
815: -- copy data to the local IN or IN-OUT args, if any
842: ddp_rulv_rec.display_sequence := rosetta_g_miss_num_map(p5_a21);
843:
844:
845: -- here's the delegated call to the old PL/SQL routine
846: okl_credit_checklist_pvt.update_fund_chklst_tpl_hdr(p_api_version,
847: p_init_msg_list,
848: x_return_status,
849: x_msg_count,
850: x_msg_data,
933: , p6_a21 out nocopy JTF_NUMBER_TABLE
934: )
935:
936: as
937: ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
938: ddx_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
939: ddindx binary_integer; indx binary_integer;
940: begin
941:
934: )
935:
936: as
937: ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
938: ddx_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
939: ddindx binary_integer; indx binary_integer;
940: begin
941:
942: -- copy data to the local IN or IN-OUT args, if any
944:
945:
946:
947:
948: okl_credit_checklist_pvt_w.rosetta_table_copy_in_p21(ddp_rulv_tbl, p5_a0
949: , p5_a1
950: , p5_a2
951: , p5_a3
952: , p5_a4
970: );
971:
972:
973: -- here's the delegated call to the old PL/SQL routine
974: okl_credit_checklist_pvt.update_funding_chklst_tpl(p_api_version,
975: p_init_msg_list,
976: x_return_status,
977: x_msg_count,
978: x_msg_data,
985:
986:
987:
988:
989: okl_credit_checklist_pvt_w.rosetta_table_copy_out_p21(ddx_rulv_tbl, p6_a0
990: , p6_a1
991: , p6_a2
992: , p6_a3
993: , p6_a4
1040: , p5_a21 NUMBER := 0-1962.0724
1041: )
1042:
1043: as
1044: ddp_rulv_rec okl_credit_checklist_pvt.rulv_rec_type;
1045: ddindx binary_integer; indx binary_integer;
1046: begin
1047:
1048: -- copy data to the local IN or IN-OUT args, if any
1074: ddp_rulv_rec.rule_information15 := p5_a20;
1075: ddp_rulv_rec.display_sequence := rosetta_g_miss_num_map(p5_a21);
1076:
1077: -- here's the delegated call to the old PL/SQL routine
1078: okl_credit_checklist_pvt.approve_funding_chklst_tpl(p_api_version,
1079: p_init_msg_list,
1080: x_return_status,
1081: x_msg_count,
1082: x_msg_data,
1141: , p6_a21 out nocopy JTF_NUMBER_TABLE
1142: )
1143:
1144: as
1145: ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
1146: ddx_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
1147: ddindx binary_integer; indx binary_integer;
1148: begin
1149:
1142: )
1143:
1144: as
1145: ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
1146: ddx_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
1147: ddindx binary_integer; indx binary_integer;
1148: begin
1149:
1150: -- copy data to the local IN or IN-OUT args, if any
1152:
1153:
1154:
1155:
1156: okl_credit_checklist_pvt_w.rosetta_table_copy_in_p21(ddp_rulv_tbl, p5_a0
1157: , p5_a1
1158: , p5_a2
1159: , p5_a3
1160: , p5_a4
1178: );
1179:
1180:
1181: -- here's the delegated call to the old PL/SQL routine
1182: okl_credit_checklist_pvt.create_funding_chklst_tpl(p_api_version,
1183: p_init_msg_list,
1184: x_return_status,
1185: x_msg_count,
1186: x_msg_data,
1193:
1194:
1195:
1196:
1197: okl_credit_checklist_pvt_w.rosetta_table_copy_out_p21(ddx_rulv_tbl, p6_a0
1198: , p6_a1
1199: , p6_a2
1200: , p6_a3
1201: , p6_a4
1248: , p5_a21 JTF_NUMBER_TABLE
1249: )
1250:
1251: as
1252: ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
1253: ddindx binary_integer; indx binary_integer;
1254: begin
1255:
1256: -- copy data to the local IN or IN-OUT args, if any
1258:
1259:
1260:
1261:
1262: okl_credit_checklist_pvt_w.rosetta_table_copy_in_p21(ddp_rulv_tbl, p5_a0
1263: , p5_a1
1264: , p5_a2
1265: , p5_a3
1266: , p5_a4
1283: , p5_a21
1284: );
1285:
1286: -- here's the delegated call to the old PL/SQL routine
1287: okl_credit_checklist_pvt.delete_funding_chklst_tpl(p_api_version,
1288: p_init_msg_list,
1289: x_return_status,
1290: x_msg_count,
1291: x_msg_data,
1298:
1299:
1300: end;
1301:
1302: end okl_credit_checklist_pvt_w;