PACKAGE BODY: APPS.OZF_TP_UTIL_QUERIES_OA

Source

1 package body ozf_tp_util_queries_oa as
2   /* $Header: ozfatpqb.pls 115.0 2003/11/07 18:45:31 gramanat noship $ */
3   procedure rosetta_table_copy_in_p1(t out nocopy ozf_tp_util_queries.qualifier_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4     , a1 JTF_VARCHAR2_TABLE_100
5     , a2 JTF_VARCHAR2_TABLE_100
6     ) as
7     ddindx binary_integer; indx binary_integer;
8   begin
9   if a0 is not null and a0.count > 0 then
10       if a0.count > 0 then
11         indx := a0.first;
12         ddindx := 1;
13         while true loop
14           t(ddindx).qualifier_context := a0(indx);
15           t(ddindx).qualifier_attribute := a1(indx);
16           t(ddindx).qualifier_attr_value := a2(indx);
17           ddindx := ddindx+1;
18           if a0.last =indx
19             then exit;
20           end if;
21           indx := a0.next(indx);
22         end loop;
23       end if;
24    end if;
25   end rosetta_table_copy_in_p1;
26   procedure rosetta_table_copy_out_p1(t ozf_tp_util_queries.qualifier_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
27     , a1 out nocopy JTF_VARCHAR2_TABLE_100
28     , a2 out nocopy JTF_VARCHAR2_TABLE_100
29     ) as
30     ddindx binary_integer; indx binary_integer;
31   begin
32   if t is null or t.count = 0 then
33     a0 := JTF_VARCHAR2_TABLE_100();
34     a1 := JTF_VARCHAR2_TABLE_100();
35     a2 := JTF_VARCHAR2_TABLE_100();
36   else
37       a0 := JTF_VARCHAR2_TABLE_100();
38       a1 := JTF_VARCHAR2_TABLE_100();
39       a2 := JTF_VARCHAR2_TABLE_100();
40       if t.count > 0 then
41         a0.extend(t.count);
42         a1.extend(t.count);
43         a2.extend(t.count);
44         ddindx := t.first;
45         indx := 1;
46         while true loop
47           a0(indx) := t(ddindx).qualifier_context;
48           a1(indx) := t(ddindx).qualifier_attribute;
49           a2(indx) := t(ddindx).qualifier_attr_value;
50           indx := indx+1;
51           if t.last =ddindx
52             then exit;
53           end if;
54           ddindx := t.next(ddindx);
55         end loop;
56       end if;
57    end if;
58   end rosetta_table_copy_out_p1;
59 
60   procedure get_list_price(p_api_version  NUMBER
61     , p_init_msg_list  VARCHAR2
62     , p_commit  VARCHAR2
63     , p_obj_id  NUMBER
64     , p_obj_type  VARCHAR2
65     , p_product_attribute  VARCHAR2
66     , p_product_attr_value  VARCHAR2
67     , p_fcst_uom  VARCHAR2
68     , p_currency_code  VARCHAR2
69     , p_price_list_id  NUMBER
70     , p10_a0 JTF_VARCHAR2_TABLE_100
71     , p10_a1 JTF_VARCHAR2_TABLE_100
72     , p10_a2 JTF_VARCHAR2_TABLE_100
73     , x_list_price out nocopy  NUMBER
74     , x_return_status out nocopy  VARCHAR2
75     , x_msg_count out nocopy  NUMBER
76     , x_msg_data out nocopy  VARCHAR2
77   )
78 
79   as
80     ddp_qualifier_tbl ozf_tp_util_queries.qualifier_tbl_type;
81     ddindx binary_integer; indx binary_integer;
82   begin
83 
84     -- copy data to the local IN or IN-OUT args, if any
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95     ozf_tp_util_queries_oa.rosetta_table_copy_in_p1(ddp_qualifier_tbl, p10_a0
96       , p10_a1
97       , p10_a2
98       );
99 
100 
101 
102 
103 
104     -- here's the delegated call to the old PL/SQL routine
105     ozf_tp_util_queries.get_list_price(p_api_version,
106       p_init_msg_list,
107       p_commit,
108       p_obj_id,
109       p_obj_type,
110       p_product_attribute,
111       p_product_attr_value,
112       p_fcst_uom,
113       p_currency_code,
114       p_price_list_id,
115       ddp_qualifier_tbl,
116       x_list_price,
117       x_return_status,
118       x_msg_count,
119       x_msg_data);
120 
121     -- copy data back from the local variables to OUT or IN-OUT args, if any
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136   end;
137 
138 end ozf_tp_util_queries_oa;