[Home] [Help]
PACKAGE BODY: APPS.OZF_VOLUME_OFFER_QUAL_PVT_W
Source
1 package body ozf_volume_offer_qual_pvt_w as
2 /* $Header: ozfwvoqb.pls 120.1 2006/07/24 21:08:00 rssharma 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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 function rosetta_g_miss_num_map(n number) return number as
17 a number := fnd_api.g_miss_num;
18 b number := 0-1962.0724;
19 begin
20 if n=a then return b; end if;
21 if n=b then return a; end if;
22 return n;
23 end;
24
25 procedure create_vo_qualifier(p_api_version_number NUMBER
26 , p_init_msg_list VARCHAR2
27 , p_commit VARCHAR2
28 , p_validation_level NUMBER
29 , x_return_status out nocopy VARCHAR2
30 , x_msg_count out nocopy NUMBER
31 , x_msg_data out nocopy VARCHAR2
32 , p7_a0 VARCHAR2 := fnd_api.g_miss_char
33 , p7_a1 VARCHAR2 := fnd_api.g_miss_char
34 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
35 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
36 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
37 , p7_a5 NUMBER := 0-1962.0724
38 , p7_a6 NUMBER := 0-1962.0724
39 , p7_a7 NUMBER := 0-1962.0724
40 , p7_a8 NUMBER := 0-1962.0724
41 , p7_a9 DATE := fnd_api.g_miss_date
42 , p7_a10 DATE := fnd_api.g_miss_date
43 , p7_a11 NUMBER := 0-1962.0724
44 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
45 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
46 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
47 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
48 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
49 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
50 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
51 , p7_a19 VARCHAR2 := fnd_api.g_miss_char
52 , p7_a20 VARCHAR2 := fnd_api.g_miss_char
53 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
54 , p7_a22 VARCHAR2 := fnd_api.g_miss_char
55 , p7_a23 VARCHAR2 := fnd_api.g_miss_char
56 , p7_a24 VARCHAR2 := fnd_api.g_miss_char
57 , p7_a25 VARCHAR2 := fnd_api.g_miss_char
58 , p7_a26 VARCHAR2 := fnd_api.g_miss_char
59 , p7_a27 VARCHAR2 := fnd_api.g_miss_char
60 , p7_a28 VARCHAR2 := fnd_api.g_miss_char
61 )
62
63 as
64 ddp_qualifiers_rec ozf_offer_pvt.qualifiers_rec_type;
65 ddindx binary_integer; indx binary_integer;
66 begin
67
68 -- copy data to the local IN or IN-OUT args, if any
69
70
71
72
73
74
75
76 ddp_qualifiers_rec.qualifier_context := p7_a0;
77 ddp_qualifiers_rec.qualifier_attribute := p7_a1;
78 ddp_qualifiers_rec.qualifier_attr_value := p7_a2;
79 ddp_qualifiers_rec.qualifier_attr_value_to := p7_a3;
80 ddp_qualifiers_rec.comparison_operator_code := p7_a4;
81 ddp_qualifiers_rec.qualifier_grouping_no := rosetta_g_miss_num_map(p7_a5);
82 ddp_qualifiers_rec.list_line_id := rosetta_g_miss_num_map(p7_a6);
83 ddp_qualifiers_rec.list_header_id := rosetta_g_miss_num_map(p7_a7);
84 ddp_qualifiers_rec.qualifier_id := rosetta_g_miss_num_map(p7_a8);
85 ddp_qualifiers_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a9);
86 ddp_qualifiers_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a10);
87 ddp_qualifiers_rec.activity_market_segment_id := rosetta_g_miss_num_map(p7_a11);
88 ddp_qualifiers_rec.operation := p7_a12;
89 ddp_qualifiers_rec.context := p7_a13;
90 ddp_qualifiers_rec.attribute1 := p7_a14;
91 ddp_qualifiers_rec.attribute2 := p7_a15;
92 ddp_qualifiers_rec.attribute3 := p7_a16;
93 ddp_qualifiers_rec.attribute4 := p7_a17;
94 ddp_qualifiers_rec.attribute5 := p7_a18;
95 ddp_qualifiers_rec.attribute6 := p7_a19;
96 ddp_qualifiers_rec.attribute7 := p7_a20;
97 ddp_qualifiers_rec.attribute8 := p7_a21;
98 ddp_qualifiers_rec.attribute9 := p7_a22;
99 ddp_qualifiers_rec.attribute10 := p7_a23;
100 ddp_qualifiers_rec.attribute11 := p7_a24;
101 ddp_qualifiers_rec.attribute12 := p7_a25;
102 ddp_qualifiers_rec.attribute13 := p7_a26;
103 ddp_qualifiers_rec.attribute14 := p7_a27;
104 ddp_qualifiers_rec.attribute15 := p7_a28;
105
106 -- here's the delegated call to the old PL/SQL routine
107 ozf_volume_offer_qual_pvt.create_vo_qualifier(p_api_version_number,
108 p_init_msg_list,
109 p_commit,
110 p_validation_level,
111 x_return_status,
112 x_msg_count,
113 x_msg_data,
114 ddp_qualifiers_rec);
115
116 -- copy data back from the local variables to OUT or IN-OUT args, if any
117
118
119
120
121
122
123
124 end;
125
126 procedure update_vo_qualifier(p_api_version_number NUMBER
127 , p_init_msg_list VARCHAR2
128 , p_commit VARCHAR2
129 , p_validation_level NUMBER
130 , x_return_status out nocopy VARCHAR2
131 , x_msg_count out nocopy NUMBER
132 , x_msg_data out nocopy VARCHAR2
133 , p7_a0 VARCHAR2 := fnd_api.g_miss_char
134 , p7_a1 VARCHAR2 := fnd_api.g_miss_char
135 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
136 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
137 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
138 , p7_a5 NUMBER := 0-1962.0724
139 , p7_a6 NUMBER := 0-1962.0724
140 , p7_a7 NUMBER := 0-1962.0724
141 , p7_a8 NUMBER := 0-1962.0724
142 , p7_a9 DATE := fnd_api.g_miss_date
143 , p7_a10 DATE := fnd_api.g_miss_date
144 , p7_a11 NUMBER := 0-1962.0724
145 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
146 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
147 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
148 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
149 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
150 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
151 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
152 , p7_a19 VARCHAR2 := fnd_api.g_miss_char
153 , p7_a20 VARCHAR2 := fnd_api.g_miss_char
154 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
155 , p7_a22 VARCHAR2 := fnd_api.g_miss_char
156 , p7_a23 VARCHAR2 := fnd_api.g_miss_char
157 , p7_a24 VARCHAR2 := fnd_api.g_miss_char
158 , p7_a25 VARCHAR2 := fnd_api.g_miss_char
159 , p7_a26 VARCHAR2 := fnd_api.g_miss_char
160 , p7_a27 VARCHAR2 := fnd_api.g_miss_char
161 , p7_a28 VARCHAR2 := fnd_api.g_miss_char
162 )
163
164 as
165 ddp_qualifiers_rec ozf_offer_pvt.qualifiers_rec_type;
166 ddindx binary_integer; indx binary_integer;
167 begin
168
169 -- copy data to the local IN or IN-OUT args, if any
170
171
172
173
174
175
176
177 ddp_qualifiers_rec.qualifier_context := p7_a0;
178 ddp_qualifiers_rec.qualifier_attribute := p7_a1;
179 ddp_qualifiers_rec.qualifier_attr_value := p7_a2;
180 ddp_qualifiers_rec.qualifier_attr_value_to := p7_a3;
181 ddp_qualifiers_rec.comparison_operator_code := p7_a4;
182 ddp_qualifiers_rec.qualifier_grouping_no := rosetta_g_miss_num_map(p7_a5);
183 ddp_qualifiers_rec.list_line_id := rosetta_g_miss_num_map(p7_a6);
184 ddp_qualifiers_rec.list_header_id := rosetta_g_miss_num_map(p7_a7);
185 ddp_qualifiers_rec.qualifier_id := rosetta_g_miss_num_map(p7_a8);
186 ddp_qualifiers_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a9);
187 ddp_qualifiers_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a10);
188 ddp_qualifiers_rec.activity_market_segment_id := rosetta_g_miss_num_map(p7_a11);
189 ddp_qualifiers_rec.operation := p7_a12;
190 ddp_qualifiers_rec.context := p7_a13;
191 ddp_qualifiers_rec.attribute1 := p7_a14;
192 ddp_qualifiers_rec.attribute2 := p7_a15;
193 ddp_qualifiers_rec.attribute3 := p7_a16;
194 ddp_qualifiers_rec.attribute4 := p7_a17;
195 ddp_qualifiers_rec.attribute5 := p7_a18;
196 ddp_qualifiers_rec.attribute6 := p7_a19;
197 ddp_qualifiers_rec.attribute7 := p7_a20;
198 ddp_qualifiers_rec.attribute8 := p7_a21;
199 ddp_qualifiers_rec.attribute9 := p7_a22;
200 ddp_qualifiers_rec.attribute10 := p7_a23;
201 ddp_qualifiers_rec.attribute11 := p7_a24;
202 ddp_qualifiers_rec.attribute12 := p7_a25;
203 ddp_qualifiers_rec.attribute13 := p7_a26;
204 ddp_qualifiers_rec.attribute14 := p7_a27;
205 ddp_qualifiers_rec.attribute15 := p7_a28;
206
207 -- here's the delegated call to the old PL/SQL routine
208 ozf_volume_offer_qual_pvt.update_vo_qualifier(p_api_version_number,
209 p_init_msg_list,
210 p_commit,
211 p_validation_level,
212 x_return_status,
213 x_msg_count,
214 x_msg_data,
215 ddp_qualifiers_rec);
216
217 -- copy data back from the local variables to OUT or IN-OUT args, if any
218
219
220
221
222
223
224
225 end;
226
227 end ozf_volume_offer_qual_pvt_w;