[Home] [Help]
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;