1 package body as_osi_lead_pub_w2 as
2 /* $Header: asxolpbb.pls 115.2 2002/12/10 01:32:38 kichan ship $ */
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
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure osi_ccs_fetch(p_api_version_number NUMBER
23 , p1_a0 out nocopy JTF_VARCHAR2_TABLE_100
24 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
25 )
26
27 as
28 ddp_osi_ccs_tbl as_osi_lead_pub.osi_ccs_tbl_type;
29 ddindx binary_integer; indx binary_integer;
30 begin
31
32 -- copy data to the local IN or IN-OUT args, if any
33
34
35 -- here's the delegated call to the old PL/SQL routine
36 as_osi_lead_pub.osi_ccs_fetch(p_api_version_number,
37 ddp_osi_ccs_tbl);
38
39 -- copy data back from the local variables to OUT or IN-OUT args, if any
40
41 as_osi_lead_pub_w.rosetta_table_copy_out_p22(ddp_osi_ccs_tbl, p1_a0
42 , p1_a1
43 );
44 end;
45
46 procedure osi_ovm_fetch(p_api_version_number NUMBER
47 , p1_a0 out nocopy JTF_VARCHAR2_TABLE_100
48 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
49 )
50
51 as
52 ddp_osi_ovm_tbl as_osi_lead_pub.osi_ovm_tbl_type;
53 ddindx binary_integer; indx binary_integer;
54 begin
55
56 -- copy data to the local IN or IN-OUT args, if any
57
58
59 -- here's the delegated call to the old PL/SQL routine
60 as_osi_lead_pub.osi_ovm_fetch(p_api_version_number,
61 ddp_osi_ovm_tbl);
62
63 -- copy data back from the local variables to OUT or IN-OUT args, if any
64
65 as_osi_lead_pub_w.rosetta_table_copy_out_p26(ddp_osi_ovm_tbl, p1_a0
66 , p1_a1
67 );
68 end;
69
70 end as_osi_lead_pub_w2;