[Home] [Help]
PACKAGE BODY: APPS.OKL_DFLEX_UTIL_PVT_W
Source
1 package body okl_dflex_util_pvt_w as
2 /* $Header: OKLEDFUB.pls 120.1 2005/11/25 10:33:55 dkagrawa 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
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 validate_desc_flex(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p_appl_short_name VARCHAR2
28 , p_descflex_name VARCHAR2
29 , p_segment_partial_name VARCHAR2
30 , p8_a0 VARCHAR2 := fnd_api.g_miss_char
31 , p8_a1 VARCHAR2 := fnd_api.g_miss_char
32 , p8_a2 VARCHAR2 := fnd_api.g_miss_char
33 , p8_a3 VARCHAR2 := fnd_api.g_miss_char
34 , p8_a4 VARCHAR2 := fnd_api.g_miss_char
35 , p8_a5 VARCHAR2 := fnd_api.g_miss_char
36 , p8_a6 VARCHAR2 := fnd_api.g_miss_char
37 , p8_a7 VARCHAR2 := fnd_api.g_miss_char
38 , p8_a8 VARCHAR2 := fnd_api.g_miss_char
39 , p8_a9 VARCHAR2 := fnd_api.g_miss_char
40 , p8_a10 VARCHAR2 := fnd_api.g_miss_char
41 , p8_a11 VARCHAR2 := fnd_api.g_miss_char
42 , p8_a12 VARCHAR2 := fnd_api.g_miss_char
43 , p8_a13 VARCHAR2 := fnd_api.g_miss_char
44 , p8_a14 VARCHAR2 := fnd_api.g_miss_char
45 , p8_a15 VARCHAR2 := fnd_api.g_miss_char
46 )
47
48 as
49 ddp_segment_values_rec okl_dflex_util_pvt.dff_rec_type;
50 ddindx binary_integer; indx binary_integer;
51 begin
52
53 -- copy data to the local IN or IN-OUT args, if any
54
55
56
57
58
59
60
61
62 ddp_segment_values_rec.attribute_category := p8_a0;
63 ddp_segment_values_rec.attribute1 := p8_a1;
64 ddp_segment_values_rec.attribute2 := p8_a2;
65 ddp_segment_values_rec.attribute3 := p8_a3;
66 ddp_segment_values_rec.attribute4 := p8_a4;
67 ddp_segment_values_rec.attribute5 := p8_a5;
68 ddp_segment_values_rec.attribute6 := p8_a6;
69 ddp_segment_values_rec.attribute7 := p8_a7;
70 ddp_segment_values_rec.attribute8 := p8_a8;
71 ddp_segment_values_rec.attribute9 := p8_a9;
72 ddp_segment_values_rec.attribute10 := p8_a10;
73 ddp_segment_values_rec.attribute11 := p8_a11;
74 ddp_segment_values_rec.attribute12 := p8_a12;
75 ddp_segment_values_rec.attribute13 := p8_a13;
76 ddp_segment_values_rec.attribute14 := p8_a14;
77 ddp_segment_values_rec.attribute15 := p8_a15;
78
79 -- here's the delegated call to the old PL/SQL routine
80 okl_dflex_util_pvt.validate_desc_flex(p_api_version,
81 p_init_msg_list,
82 x_return_status,
83 x_msg_count,
84 x_msg_data,
85 p_appl_short_name,
86 p_descflex_name,
87 p_segment_partial_name,
88 ddp_segment_values_rec);
89
90 -- copy data back from the local variables to OUT or IN-OUT args, if any
91
92
93
94
95
96
97
98
99 end;
100
101 procedure update_contract_add_info(p_api_version NUMBER
102 , p_init_msg_list VARCHAR2
103 , x_return_status out nocopy VARCHAR2
104 , x_msg_count out nocopy NUMBER
105 , x_msg_data out nocopy VARCHAR2
106 , p_chr_id NUMBER
107 , p6_a0 VARCHAR2 := fnd_api.g_miss_char
108 , p6_a1 VARCHAR2 := fnd_api.g_miss_char
109 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
110 , p6_a3 VARCHAR2 := fnd_api.g_miss_char
111 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
112 , p6_a5 VARCHAR2 := fnd_api.g_miss_char
113 , p6_a6 VARCHAR2 := fnd_api.g_miss_char
114 , p6_a7 VARCHAR2 := fnd_api.g_miss_char
115 , p6_a8 VARCHAR2 := fnd_api.g_miss_char
116 , p6_a9 VARCHAR2 := fnd_api.g_miss_char
117 , p6_a10 VARCHAR2 := fnd_api.g_miss_char
118 , p6_a11 VARCHAR2 := fnd_api.g_miss_char
119 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
120 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
121 , p6_a14 VARCHAR2 := fnd_api.g_miss_char
122 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
123 )
124
125 as
126 ddp_add_info_rec okl_dflex_util_pvt.dff_rec_type;
127 ddindx binary_integer; indx binary_integer;
128 begin
129
130 -- copy data to the local IN or IN-OUT args, if any
131
132
133
134
135
136
137 ddp_add_info_rec.attribute_category := p6_a0;
138 ddp_add_info_rec.attribute1 := p6_a1;
139 ddp_add_info_rec.attribute2 := p6_a2;
140 ddp_add_info_rec.attribute3 := p6_a3;
141 ddp_add_info_rec.attribute4 := p6_a4;
142 ddp_add_info_rec.attribute5 := p6_a5;
143 ddp_add_info_rec.attribute6 := p6_a6;
144 ddp_add_info_rec.attribute7 := p6_a7;
145 ddp_add_info_rec.attribute8 := p6_a8;
146 ddp_add_info_rec.attribute9 := p6_a9;
147 ddp_add_info_rec.attribute10 := p6_a10;
148 ddp_add_info_rec.attribute11 := p6_a11;
149 ddp_add_info_rec.attribute12 := p6_a12;
150 ddp_add_info_rec.attribute13 := p6_a13;
151 ddp_add_info_rec.attribute14 := p6_a14;
152 ddp_add_info_rec.attribute15 := p6_a15;
153
154 -- here's the delegated call to the old PL/SQL routine
155 okl_dflex_util_pvt.update_contract_add_info(p_api_version,
156 p_init_msg_list,
157 x_return_status,
158 x_msg_count,
159 x_msg_data,
160 p_chr_id,
161 ddp_add_info_rec);
162
163 -- copy data back from the local variables to OUT or IN-OUT args, if any
164
165
166
167
168
169
170 end;
171
172 procedure update_line_add_info(p_api_version NUMBER
173 , p_init_msg_list VARCHAR2
174 , x_return_status out nocopy VARCHAR2
175 , x_msg_count out nocopy NUMBER
176 , x_msg_data out nocopy VARCHAR2
177 , p_cle_id NUMBER
178 , p6_a0 VARCHAR2 := fnd_api.g_miss_char
179 , p6_a1 VARCHAR2 := fnd_api.g_miss_char
180 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
181 , p6_a3 VARCHAR2 := fnd_api.g_miss_char
182 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
183 , p6_a5 VARCHAR2 := fnd_api.g_miss_char
184 , p6_a6 VARCHAR2 := fnd_api.g_miss_char
185 , p6_a7 VARCHAR2 := fnd_api.g_miss_char
186 , p6_a8 VARCHAR2 := fnd_api.g_miss_char
187 , p6_a9 VARCHAR2 := fnd_api.g_miss_char
188 , p6_a10 VARCHAR2 := fnd_api.g_miss_char
189 , p6_a11 VARCHAR2 := fnd_api.g_miss_char
190 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
191 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
192 , p6_a14 VARCHAR2 := fnd_api.g_miss_char
193 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
194 )
195
196 as
197 ddp_add_info_rec okl_dflex_util_pvt.dff_rec_type;
198 ddindx binary_integer; indx binary_integer;
199 begin
200
201 -- copy data to the local IN or IN-OUT args, if any
202
203
204
205
206
207
208 ddp_add_info_rec.attribute_category := p6_a0;
209 ddp_add_info_rec.attribute1 := p6_a1;
210 ddp_add_info_rec.attribute2 := p6_a2;
211 ddp_add_info_rec.attribute3 := p6_a3;
212 ddp_add_info_rec.attribute4 := p6_a4;
213 ddp_add_info_rec.attribute5 := p6_a5;
214 ddp_add_info_rec.attribute6 := p6_a6;
215 ddp_add_info_rec.attribute7 := p6_a7;
216 ddp_add_info_rec.attribute8 := p6_a8;
217 ddp_add_info_rec.attribute9 := p6_a9;
218 ddp_add_info_rec.attribute10 := p6_a10;
219 ddp_add_info_rec.attribute11 := p6_a11;
220 ddp_add_info_rec.attribute12 := p6_a12;
221 ddp_add_info_rec.attribute13 := p6_a13;
222 ddp_add_info_rec.attribute14 := p6_a14;
223 ddp_add_info_rec.attribute15 := p6_a15;
224
225 -- here's the delegated call to the old PL/SQL routine
226 okl_dflex_util_pvt.update_line_add_info(p_api_version,
227 p_init_msg_list,
228 x_return_status,
229 x_msg_count,
230 x_msg_data,
231 p_cle_id,
232 ddp_add_info_rec);
233
234 -- copy data back from the local variables to OUT or IN-OUT args, if any
235
236
237
238
239
240
241 end;
242
243 end okl_dflex_util_pvt_w;