PACKAGE BODY: APPS.OKL_VP_STS_PUB_W

Source

1 package body okl_vp_sts_pub_w as
2   /* $Header: OKLUSSCB.pls 120.2 2005/08/04 03:07:35 manumanu noship $ */
3   procedure rosetta_table_copy_in_p1(t out nocopy okl_vp_sts_pub.vp_sts_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4     , a1 JTF_VARCHAR2_TABLE_100
5     ) as
6     ddindx binary_integer; indx binary_integer;
7   begin
8   if a0 is not null and a0.count > 0 then
9       if a0.count > 0 then
10         indx := a0.first;
11         ddindx := 1;
12         while true loop
13           t(ddindx).status := a0(indx);
14           t(ddindx).status_code := a1(indx);
15           ddindx := ddindx+1;
16           if a0.last =indx
17             then exit;
18           end if;
19           indx := a0.next(indx);
20         end loop;
21       end if;
22    end if;
23   end rosetta_table_copy_in_p1;
24   procedure rosetta_table_copy_out_p1(t okl_vp_sts_pub.vp_sts_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
25     , a1 out nocopy JTF_VARCHAR2_TABLE_100
26     ) as
27     ddindx binary_integer; indx binary_integer;
28   begin
29   if t is null or t.count = 0 then
30     a0 := JTF_VARCHAR2_TABLE_100();
31     a1 := JTF_VARCHAR2_TABLE_100();
32   else
33       a0 := JTF_VARCHAR2_TABLE_100();
34       a1 := JTF_VARCHAR2_TABLE_100();
35       if t.count > 0 then
36         a0.extend(t.count);
37         a1.extend(t.count);
38         ddindx := t.first;
39         indx := 1;
40         while true loop
41           a0(indx) := t(ddindx).status;
42           a1(indx) := t(ddindx).status_code;
43           indx := indx+1;
44           if t.last =ddindx
45             then exit;
46           end if;
47           ddindx := t.next(ddindx);
48         end loop;
49       end if;
50    end if;
51   end rosetta_table_copy_out_p1;
52 
53   procedure get_listof_new_statuses(p_api_version  NUMBER
54     , p_init_msg_list  VARCHAR2
55     , x_return_status out nocopy  VARCHAR2
56     , x_msg_count out nocopy  NUMBER
57     , x_msg_data out nocopy  VARCHAR2
58     , p_ste_code  VARCHAR2
59     , p_sts_code  VARCHAR2
60     , p_start_date  DATE
61     , p_end_date  DATE
62     , p9_a0 out nocopy JTF_VARCHAR2_TABLE_100
63     , p9_a1 out nocopy JTF_VARCHAR2_TABLE_100
64   )
65 
66   as
67     ddx_sts_tbl okl_vp_sts_pub.sts_tbl_type;
68     ddindx binary_integer; indx binary_integer;
69   begin
70 
71     -- copy data to the local IN or IN-OUT args, if any
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82     -- here's the delegated call to the old PL/SQL routine
83     okl_vp_sts_pub.get_listof_new_statuses(p_api_version,
84       p_init_msg_list,
85       x_return_status,
86       x_msg_count,
87       x_msg_data,
88       p_ste_code,
89       p_sts_code,
90       p_start_date,
91       p_end_date,
92       ddx_sts_tbl);
93 
94     -- copy data back from the local variables to OUT or IN-OUT args, if any
95 
96 
97 
98 
99 
100 
101 
102 
103 
104     okl_vp_sts_pvt_w.rosetta_table_copy_out_p1(ddx_sts_tbl, p9_a0
105       , p9_a1
106       );
107   end;
108 
109 end okl_vp_sts_pub_w;