1: package body cac_sync_task_w as
2: /* $Header: cacvstwb.pls 120.3 2005/09/27 07:37:31 rhshriva 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_p3(t out nocopy cac_sync_task.task_tbl, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_DATE_TABLE
26: , a4 JTF_NUMBER_TABLE
125: end loop;
126: end if;
127: end if;
128: end rosetta_table_copy_in_p3;
129: procedure rosetta_table_copy_out_p3(t cac_sync_task.task_tbl, a0 out nocopy JTF_NUMBER_TABLE
130: , a1 out nocopy JTF_NUMBER_TABLE
131: , a2 out nocopy JTF_NUMBER_TABLE
132: , a3 out nocopy JTF_DATE_TABLE
133: , a4 out nocopy JTF_NUMBER_TABLE
369: end if;
370: end if;
371: end rosetta_table_copy_out_p3;
372:
373: procedure rosetta_table_copy_in_p4(t out nocopy cac_sync_task.exclusion_tbl, a0 JTF_NUMBER_TABLE
374: , a1 JTF_DATE_TABLE
375: , a2 JTF_NUMBER_TABLE
376: , a3 JTF_NUMBER_TABLE
377: , a4 JTF_DATE_TABLE
478: end loop;
479: end if;
480: end if;
481: end rosetta_table_copy_in_p4;
482: procedure rosetta_table_copy_out_p4(t cac_sync_task.exclusion_tbl, a0 out nocopy JTF_NUMBER_TABLE
483: , a1 out nocopy JTF_DATE_TABLE
484: , a2 out nocopy JTF_NUMBER_TABLE
485: , a3 out nocopy JTF_NUMBER_TABLE
486: , a4 out nocopy JTF_DATE_TABLE
727: end if;
728: end if;
729: end rosetta_table_copy_out_p4;
730:
731: procedure rosetta_table_copy_in_p6(t out nocopy cac_sync_task.attendee_tbl, a0 JTF_NUMBER_TABLE
732: , a1 JTF_VARCHAR2_TABLE_2000
733: , a2 JTF_NUMBER_TABLE
734: , a3 JTF_NUMBER_TABLE
735: , a4 JTF_VARCHAR2_TABLE_2000
772: end loop;
773: end if;
774: end if;
775: end rosetta_table_copy_in_p6;
776: procedure rosetta_table_copy_out_p6(t cac_sync_task.attendee_tbl, a0 out nocopy JTF_NUMBER_TABLE
777: , a1 out nocopy JTF_VARCHAR2_TABLE_2000
778: , a2 out nocopy JTF_NUMBER_TABLE
779: , a3 out nocopy JTF_NUMBER_TABLE
780: , a4 out nocopy JTF_VARCHAR2_TABLE_2000
885:
886:
887:
888: -- here's the delegated call to the old PL/SQL routine
889: cac_sync_task.get_count(p_request_type,
890: ddp_syncanchor,
891: p_principal_id,
892: x_total,
893: x_totalnew,
1015: )
1016:
1017: as
1018: ddp_syncanchor date;
1019: ddx_data cac_sync_task.task_tbl;
1020: ddx_exclusion_data cac_sync_task.exclusion_tbl;
1021: ddx_attendee_data cac_sync_task.attendee_tbl;
1022: ddindx binary_integer; indx binary_integer;
1023: begin
1016:
1017: as
1018: ddp_syncanchor date;
1019: ddx_data cac_sync_task.task_tbl;
1020: ddx_exclusion_data cac_sync_task.exclusion_tbl;
1021: ddx_attendee_data cac_sync_task.attendee_tbl;
1022: ddindx binary_integer; indx binary_integer;
1023: begin
1024:
1017: as
1018: ddp_syncanchor date;
1019: ddx_data cac_sync_task.task_tbl;
1020: ddx_exclusion_data cac_sync_task.exclusion_tbl;
1021: ddx_attendee_data cac_sync_task.attendee_tbl;
1022: ddindx binary_integer; indx binary_integer;
1023: begin
1024:
1025: -- copy data to the local IN or IN-OUT args, if any
1031:
1032:
1033:
1034: -- here's the delegated call to the old PL/SQL routine
1035: cac_sync_task.get_list(p_request_type,
1036: ddp_syncanchor,
1037: p_principal_id,
1038: p_sync_type,
1039: ddx_data,
1044:
1045:
1046:
1047:
1048: cac_sync_task_w.rosetta_table_copy_out_p3(ddx_data, p4_a0
1049: , p4_a1
1050: , p4_a2
1051: , p4_a3
1052: , p4_a4
1091: , p4_a43
1092: , p4_a44
1093: );
1094:
1095: cac_sync_task_w.rosetta_table_copy_out_p4(ddx_exclusion_data, p5_a0
1096: , p5_a1
1097: , p5_a2
1098: , p5_a3
1099: , p5_a4
1139: , p5_a44
1140: , p5_a45
1141: );
1142:
1143: cac_sync_task_w.rosetta_table_copy_out_p6(ddx_attendee_data, p6_a0
1144: , p6_a1
1145: , p6_a2
1146: , p6_a3
1147: , p6_a4
1205: , p1_a44 in out nocopy JTF_VARCHAR2_TABLE_100
1206: )
1207:
1208: as
1209: ddx_results cac_sync_task.task_tbl;
1210: ddindx binary_integer; indx binary_integer;
1211: begin
1212:
1213: -- copy data to the local IN or IN-OUT args, if any
1211: begin
1212:
1213: -- copy data to the local IN or IN-OUT args, if any
1214:
1215: cac_sync_task_w.rosetta_table_copy_in_p3(ddx_results, p1_a0
1216: , p1_a1
1217: , p1_a2
1218: , p1_a3
1219: , p1_a4
1259: , p1_a44
1260: );
1261:
1262: -- here's the delegated call to the old PL/SQL routine
1263: cac_sync_task.create_ids(p_num_req,
1264: ddx_results);
1265:
1266: -- copy data back from the local variables to OUT or IN-OUT args, if any
1267:
1264: ddx_results);
1265:
1266: -- copy data back from the local variables to OUT or IN-OUT args, if any
1267:
1268: cac_sync_task_w.rosetta_table_copy_out_p3(ddx_results, p1_a0
1269: , p1_a1
1270: , p1_a2
1271: , p1_a3
1272: , p1_a4
1406: , p1_a45 in out nocopy JTF_VARCHAR2_TABLE_100
1407: )
1408:
1409: as
1410: ddp_tasks cac_sync_task.task_tbl;
1411: ddp_exclusions cac_sync_task.exclusion_tbl;
1412: ddindx binary_integer; indx binary_integer;
1413: begin
1414:
1407: )
1408:
1409: as
1410: ddp_tasks cac_sync_task.task_tbl;
1411: ddp_exclusions cac_sync_task.exclusion_tbl;
1412: ddindx binary_integer; indx binary_integer;
1413: begin
1414:
1415: -- copy data to the local IN or IN-OUT args, if any
1412: ddindx binary_integer; indx binary_integer;
1413: begin
1414:
1415: -- copy data to the local IN or IN-OUT args, if any
1416: cac_sync_task_w.rosetta_table_copy_in_p3(ddp_tasks, p0_a0
1417: , p0_a1
1418: , p0_a2
1419: , p0_a3
1420: , p0_a4
1459: , p0_a43
1460: , p0_a44
1461: );
1462:
1463: cac_sync_task_w.rosetta_table_copy_in_p4(ddp_exclusions, p1_a0
1464: , p1_a1
1465: , p1_a2
1466: , p1_a3
1467: , p1_a4
1508: , p1_a45
1509: );
1510:
1511: -- here's the delegated call to the old PL/SQL routine
1512: cac_sync_task.update_data(ddp_tasks,
1513: ddp_exclusions);
1514:
1515: -- copy data back from the local variables to OUT or IN-OUT args, if any
1516: cac_sync_task_w.rosetta_table_copy_out_p3(ddp_tasks, p0_a0
1512: cac_sync_task.update_data(ddp_tasks,
1513: ddp_exclusions);
1514:
1515: -- copy data back from the local variables to OUT or IN-OUT args, if any
1516: cac_sync_task_w.rosetta_table_copy_out_p3(ddp_tasks, p0_a0
1517: , p0_a1
1518: , p0_a2
1519: , p0_a3
1520: , p0_a4
1559: , p0_a43
1560: , p0_a44
1561: );
1562:
1563: cac_sync_task_w.rosetta_table_copy_out_p4(ddp_exclusions, p1_a0
1564: , p1_a1
1565: , p1_a2
1566: , p1_a3
1567: , p1_a4
1656: , p0_a44 in out nocopy JTF_VARCHAR2_TABLE_100
1657: )
1658:
1659: as
1660: ddp_tasks cac_sync_task.task_tbl;
1661: ddindx binary_integer; indx binary_integer;
1662: begin
1663:
1664: -- copy data to the local IN or IN-OUT args, if any
1661: ddindx binary_integer; indx binary_integer;
1662: begin
1663:
1664: -- copy data to the local IN or IN-OUT args, if any
1665: cac_sync_task_w.rosetta_table_copy_in_p3(ddp_tasks, p0_a0
1666: , p0_a1
1667: , p0_a2
1668: , p0_a3
1669: , p0_a4
1709: , p0_a44
1710: );
1711:
1712: -- here's the delegated call to the old PL/SQL routine
1713: cac_sync_task.delete_data(ddp_tasks);
1714:
1715: -- copy data back from the local variables to OUT or IN-OUT args, if any
1716: cac_sync_task_w.rosetta_table_copy_out_p3(ddp_tasks, p0_a0
1717: , p0_a1
1712: -- here's the delegated call to the old PL/SQL routine
1713: cac_sync_task.delete_data(ddp_tasks);
1714:
1715: -- copy data back from the local variables to OUT or IN-OUT args, if any
1716: cac_sync_task_w.rosetta_table_copy_out_p3(ddp_tasks, p0_a0
1717: , p0_a1
1718: , p0_a2
1719: , p0_a3
1720: , p0_a4
1760: , p0_a44
1761: );
1762: end;
1763:
1764: end cac_sync_task_w;