[Home] [Help]
PACKAGE BODY: APPS.OKL_RESI_CAT_SETS_PVT_W
Source
1 package body okl_resi_cat_sets_pvt_w as
2 /* $Header: OKLERCSB.pls 120.1 2005/07/08 14:38:53 smadhava noship $ */
3 procedure create_rcs(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , x_return_status out nocopy VARCHAR2
6 , x_msg_count out nocopy NUMBER
7 , x_msg_data out nocopy VARCHAR2
8 , p5_a0 NUMBER
9 , p5_a1 NUMBER
10 , p5_a2 NUMBER
11 , p5_a3 NUMBER
12 , p5_a4 VARCHAR2
13 , p5_a5 VARCHAR2
14 , p5_a6 VARCHAR2
15 , p5_a7 VARCHAR2
16 , p5_a8 VARCHAR2
17 , p5_a9 NUMBER
18 , p5_a10 DATE
19 , p5_a11 NUMBER
20 , p5_a12 DATE
21 , p5_a13 NUMBER
22 , p6_a0 JTF_NUMBER_TABLE
23 , p6_a1 JTF_NUMBER_TABLE
24 , p6_a2 JTF_NUMBER_TABLE
25 , p6_a3 JTF_NUMBER_TABLE
26 , p6_a4 JTF_DATE_TABLE
27 , p6_a5 JTF_NUMBER_TABLE
28 , p6_a6 JTF_DATE_TABLE
29 , p6_a7 JTF_NUMBER_TABLE
30 , p6_a8 JTF_NUMBER_TABLE
31 , p6_a9 JTF_NUMBER_TABLE
32 , p6_a10 JTF_NUMBER_TABLE
33 , p6_a11 JTF_NUMBER_TABLE
34 , p7_a0 out nocopy NUMBER
35 , p7_a1 out nocopy NUMBER
36 , p7_a2 out nocopy NUMBER
37 , p7_a3 out nocopy NUMBER
38 , p7_a4 out nocopy VARCHAR2
39 , p7_a5 out nocopy VARCHAR2
40 , p7_a6 out nocopy VARCHAR2
41 , p7_a7 out nocopy VARCHAR2
42 , p7_a8 out nocopy VARCHAR2
43 , p7_a9 out nocopy NUMBER
44 , p7_a10 out nocopy DATE
45 , p7_a11 out nocopy NUMBER
46 , p7_a12 out nocopy DATE
47 , p7_a13 out nocopy NUMBER
48 , p8_a0 out nocopy JTF_NUMBER_TABLE
49 , p8_a1 out nocopy JTF_NUMBER_TABLE
50 , p8_a2 out nocopy JTF_NUMBER_TABLE
51 , p8_a3 out nocopy JTF_NUMBER_TABLE
52 , p8_a4 out nocopy JTF_DATE_TABLE
53 , p8_a5 out nocopy JTF_NUMBER_TABLE
54 , p8_a6 out nocopy JTF_DATE_TABLE
55 , p8_a7 out nocopy JTF_NUMBER_TABLE
56 , p8_a8 out nocopy JTF_NUMBER_TABLE
57 , p8_a9 out nocopy JTF_NUMBER_TABLE
58 , p8_a10 out nocopy JTF_NUMBER_TABLE
59 , p8_a11 out nocopy JTF_NUMBER_TABLE
60 )
61
62 as
63 ddp_rcsv_rec okl_resi_cat_sets_pvt.okl_rcsv_rec;
64 ddp_res_tbl okl_resi_cat_sets_pvt.okl_res_tbl;
65 ddx_rcsv_rec okl_resi_cat_sets_pvt.okl_rcsv_rec;
66 ddx_res_tbl okl_resi_cat_sets_pvt.okl_res_tbl;
67 ddindx binary_integer; indx binary_integer;
68 begin
69
70 -- copy data to the local IN or IN-OUT args, if any
71
72
73
74
75
76 ddp_rcsv_rec.resi_category_set_id := p5_a0;
77 ddp_rcsv_rec.orig_resi_cat_set_id := p5_a1;
78 ddp_rcsv_rec.object_version_number := p5_a2;
79 ddp_rcsv_rec.org_id := p5_a3;
80 ddp_rcsv_rec.source_code := p5_a4;
81 ddp_rcsv_rec.sts_code := p5_a5;
82 ddp_rcsv_rec.resi_cat_name := p5_a6;
83 ddp_rcsv_rec.resi_cat_desc := p5_a7;
84 ddp_rcsv_rec.sfwt_flag := p5_a8;
85 ddp_rcsv_rec.created_by := p5_a9;
86 ddp_rcsv_rec.creation_date := p5_a10;
87 ddp_rcsv_rec.last_updated_by := p5_a11;
88 ddp_rcsv_rec.last_update_date := p5_a12;
89 ddp_rcsv_rec.last_update_login := p5_a13;
90
91 okl_res_pvt_w.rosetta_table_copy_in_p1(ddp_res_tbl, p6_a0
92 , p6_a1
93 , p6_a2
94 , p6_a3
95 , p6_a4
96 , p6_a5
97 , p6_a6
98 , p6_a7
99 , p6_a8
100 , p6_a9
101 , p6_a10
102 , p6_a11
103 );
104
105
106
107 -- here's the delegated call to the old PL/SQL routine
108 okl_resi_cat_sets_pvt.create_rcs(p_api_version,
109 p_init_msg_list,
110 x_return_status,
111 x_msg_count,
112 x_msg_data,
113 ddp_rcsv_rec,
114 ddp_res_tbl,
115 ddx_rcsv_rec,
116 ddx_res_tbl);
117
118 -- copy data back from the local variables to OUT or IN-OUT args, if any
119
120
121
122
123
124
125
126 p7_a0 := ddx_rcsv_rec.resi_category_set_id;
127 p7_a1 := ddx_rcsv_rec.orig_resi_cat_set_id;
128 p7_a2 := ddx_rcsv_rec.object_version_number;
129 p7_a3 := ddx_rcsv_rec.org_id;
130 p7_a4 := ddx_rcsv_rec.source_code;
131 p7_a5 := ddx_rcsv_rec.sts_code;
132 p7_a6 := ddx_rcsv_rec.resi_cat_name;
133 p7_a7 := ddx_rcsv_rec.resi_cat_desc;
134 p7_a8 := ddx_rcsv_rec.sfwt_flag;
135 p7_a9 := ddx_rcsv_rec.created_by;
136 p7_a10 := ddx_rcsv_rec.creation_date;
137 p7_a11 := ddx_rcsv_rec.last_updated_by;
138 p7_a12 := ddx_rcsv_rec.last_update_date;
139 p7_a13 := ddx_rcsv_rec.last_update_login;
140
141 okl_res_pvt_w.rosetta_table_copy_out_p1(ddx_res_tbl, p8_a0
142 , p8_a1
143 , p8_a2
144 , p8_a3
145 , p8_a4
146 , p8_a5
147 , p8_a6
148 , p8_a7
149 , p8_a8
150 , p8_a9
151 , p8_a10
152 , p8_a11
153 );
154 end;
155
156 procedure update_rcs(p_api_version NUMBER
157 , p_init_msg_list VARCHAR2
158 , x_return_status out nocopy VARCHAR2
159 , x_msg_count out nocopy NUMBER
160 , x_msg_data out nocopy VARCHAR2
161 , p5_a0 NUMBER
162 , p5_a1 NUMBER
163 , p5_a2 NUMBER
164 , p5_a3 NUMBER
165 , p5_a4 VARCHAR2
166 , p5_a5 VARCHAR2
167 , p5_a6 VARCHAR2
168 , p5_a7 VARCHAR2
169 , p5_a8 VARCHAR2
170 , p5_a9 NUMBER
171 , p5_a10 DATE
172 , p5_a11 NUMBER
173 , p5_a12 DATE
174 , p5_a13 NUMBER
175 , p6_a0 JTF_NUMBER_TABLE
176 , p6_a1 JTF_NUMBER_TABLE
177 , p6_a2 JTF_NUMBER_TABLE
178 , p6_a3 JTF_NUMBER_TABLE
179 , p6_a4 JTF_DATE_TABLE
180 , p6_a5 JTF_NUMBER_TABLE
181 , p6_a6 JTF_DATE_TABLE
182 , p6_a7 JTF_NUMBER_TABLE
183 , p6_a8 JTF_NUMBER_TABLE
184 , p6_a9 JTF_NUMBER_TABLE
185 , p6_a10 JTF_NUMBER_TABLE
186 , p6_a11 JTF_NUMBER_TABLE
187 , p7_a0 out nocopy NUMBER
188 , p7_a1 out nocopy NUMBER
189 , p7_a2 out nocopy NUMBER
190 , p7_a3 out nocopy NUMBER
191 , p7_a4 out nocopy VARCHAR2
192 , p7_a5 out nocopy VARCHAR2
193 , p7_a6 out nocopy VARCHAR2
194 , p7_a7 out nocopy VARCHAR2
195 , p7_a8 out nocopy VARCHAR2
196 , p7_a9 out nocopy NUMBER
197 , p7_a10 out nocopy DATE
198 , p7_a11 out nocopy NUMBER
199 , p7_a12 out nocopy DATE
200 , p7_a13 out nocopy NUMBER
201 )
202
203 as
204 ddp_rcsv_rec okl_resi_cat_sets_pvt.okl_rcsv_rec;
205 ddp_res_tbl okl_resi_cat_sets_pvt.okl_res_tbl;
206 ddx_rcsv_rec okl_resi_cat_sets_pvt.okl_rcsv_rec;
207 ddindx binary_integer; indx binary_integer;
208 begin
209
210 -- copy data to the local IN or IN-OUT args, if any
211
212
213
214
215
216 ddp_rcsv_rec.resi_category_set_id := p5_a0;
217 ddp_rcsv_rec.orig_resi_cat_set_id := p5_a1;
218 ddp_rcsv_rec.object_version_number := p5_a2;
219 ddp_rcsv_rec.org_id := p5_a3;
220 ddp_rcsv_rec.source_code := p5_a4;
221 ddp_rcsv_rec.sts_code := p5_a5;
222 ddp_rcsv_rec.resi_cat_name := p5_a6;
223 ddp_rcsv_rec.resi_cat_desc := p5_a7;
224 ddp_rcsv_rec.sfwt_flag := p5_a8;
225 ddp_rcsv_rec.created_by := p5_a9;
226 ddp_rcsv_rec.creation_date := p5_a10;
227 ddp_rcsv_rec.last_updated_by := p5_a11;
228 ddp_rcsv_rec.last_update_date := p5_a12;
229 ddp_rcsv_rec.last_update_login := p5_a13;
230
231 okl_res_pvt_w.rosetta_table_copy_in_p1(ddp_res_tbl, p6_a0
232 , p6_a1
233 , p6_a2
234 , p6_a3
235 , p6_a4
236 , p6_a5
237 , p6_a6
238 , p6_a7
239 , p6_a8
240 , p6_a9
241 , p6_a10
242 , p6_a11
243 );
244
245
246 -- here's the delegated call to the old PL/SQL routine
247 okl_resi_cat_sets_pvt.update_rcs(p_api_version,
248 p_init_msg_list,
249 x_return_status,
250 x_msg_count,
251 x_msg_data,
252 ddp_rcsv_rec,
253 ddp_res_tbl,
254 ddx_rcsv_rec);
255
256 -- copy data back from the local variables to OUT or IN-OUT args, if any
257
258
259
260
261
262
263
264 p7_a0 := ddx_rcsv_rec.resi_category_set_id;
265 p7_a1 := ddx_rcsv_rec.orig_resi_cat_set_id;
266 p7_a2 := ddx_rcsv_rec.object_version_number;
267 p7_a3 := ddx_rcsv_rec.org_id;
268 p7_a4 := ddx_rcsv_rec.source_code;
269 p7_a5 := ddx_rcsv_rec.sts_code;
270 p7_a6 := ddx_rcsv_rec.resi_cat_name;
271 p7_a7 := ddx_rcsv_rec.resi_cat_desc;
272 p7_a8 := ddx_rcsv_rec.sfwt_flag;
273 p7_a9 := ddx_rcsv_rec.created_by;
274 p7_a10 := ddx_rcsv_rec.creation_date;
275 p7_a11 := ddx_rcsv_rec.last_updated_by;
276 p7_a12 := ddx_rcsv_rec.last_update_date;
277 p7_a13 := ddx_rcsv_rec.last_update_login;
278 end;
279
280 procedure activate_rcs(p_api_version NUMBER
281 , p_init_msg_list VARCHAR2
282 , x_return_status out nocopy VARCHAR2
283 , x_msg_count out nocopy NUMBER
284 , x_msg_data out nocopy VARCHAR2
285 , p5_a0 NUMBER
286 , p5_a1 NUMBER
287 , p5_a2 NUMBER
288 , p5_a3 NUMBER
289 , p5_a4 VARCHAR2
290 , p5_a5 VARCHAR2
291 , p5_a6 VARCHAR2
292 , p5_a7 VARCHAR2
293 , p5_a8 VARCHAR2
294 , p5_a9 NUMBER
295 , p5_a10 DATE
296 , p5_a11 NUMBER
297 , p5_a12 DATE
298 , p5_a13 NUMBER
299 , p6_a0 JTF_NUMBER_TABLE
300 , p6_a1 JTF_NUMBER_TABLE
301 , p6_a2 JTF_NUMBER_TABLE
302 , p6_a3 JTF_NUMBER_TABLE
303 , p6_a4 JTF_DATE_TABLE
304 , p6_a5 JTF_NUMBER_TABLE
305 , p6_a6 JTF_DATE_TABLE
306 , p6_a7 JTF_NUMBER_TABLE
307 , p6_a8 JTF_NUMBER_TABLE
308 , p6_a9 JTF_NUMBER_TABLE
309 , p6_a10 JTF_NUMBER_TABLE
310 , p6_a11 JTF_NUMBER_TABLE
311 , p7_a0 out nocopy NUMBER
312 , p7_a1 out nocopy NUMBER
313 , p7_a2 out nocopy NUMBER
314 , p7_a3 out nocopy NUMBER
315 , p7_a4 out nocopy VARCHAR2
316 , p7_a5 out nocopy VARCHAR2
317 , p7_a6 out nocopy VARCHAR2
318 , p7_a7 out nocopy VARCHAR2
319 , p7_a8 out nocopy VARCHAR2
320 , p7_a9 out nocopy NUMBER
321 , p7_a10 out nocopy DATE
322 , p7_a11 out nocopy NUMBER
323 , p7_a12 out nocopy DATE
324 , p7_a13 out nocopy NUMBER
325 )
326
327 as
328 ddp_rcsv_rec okl_resi_cat_sets_pvt.okl_rcsv_rec;
329 ddp_res_tbl okl_resi_cat_sets_pvt.okl_res_tbl;
330 ddx_rcsv_rec okl_resi_cat_sets_pvt.okl_rcsv_rec;
331 ddindx binary_integer; indx binary_integer;
332 begin
333
334 -- copy data to the local IN or IN-OUT args, if any
335
336
337
338
339
340 ddp_rcsv_rec.resi_category_set_id := p5_a0;
341 ddp_rcsv_rec.orig_resi_cat_set_id := p5_a1;
342 ddp_rcsv_rec.object_version_number := p5_a2;
343 ddp_rcsv_rec.org_id := p5_a3;
344 ddp_rcsv_rec.source_code := p5_a4;
345 ddp_rcsv_rec.sts_code := p5_a5;
346 ddp_rcsv_rec.resi_cat_name := p5_a6;
347 ddp_rcsv_rec.resi_cat_desc := p5_a7;
348 ddp_rcsv_rec.sfwt_flag := p5_a8;
349 ddp_rcsv_rec.created_by := p5_a9;
350 ddp_rcsv_rec.creation_date := p5_a10;
351 ddp_rcsv_rec.last_updated_by := p5_a11;
352 ddp_rcsv_rec.last_update_date := p5_a12;
353 ddp_rcsv_rec.last_update_login := p5_a13;
354
355 okl_res_pvt_w.rosetta_table_copy_in_p1(ddp_res_tbl, p6_a0
356 , p6_a1
357 , p6_a2
358 , p6_a3
359 , p6_a4
360 , p6_a5
361 , p6_a6
362 , p6_a7
363 , p6_a8
364 , p6_a9
365 , p6_a10
366 , p6_a11
367 );
368
369
370 -- here's the delegated call to the old PL/SQL routine
371 okl_resi_cat_sets_pvt.activate_rcs(p_api_version,
372 p_init_msg_list,
373 x_return_status,
374 x_msg_count,
375 x_msg_data,
376 ddp_rcsv_rec,
377 ddp_res_tbl,
378 ddx_rcsv_rec);
379
380 -- copy data back from the local variables to OUT or IN-OUT args, if any
381
382
383
384
385
386
387
388 p7_a0 := ddx_rcsv_rec.resi_category_set_id;
389 p7_a1 := ddx_rcsv_rec.orig_resi_cat_set_id;
390 p7_a2 := ddx_rcsv_rec.object_version_number;
391 p7_a3 := ddx_rcsv_rec.org_id;
392 p7_a4 := ddx_rcsv_rec.source_code;
393 p7_a5 := ddx_rcsv_rec.sts_code;
394 p7_a6 := ddx_rcsv_rec.resi_cat_name;
395 p7_a7 := ddx_rcsv_rec.resi_cat_desc;
396 p7_a8 := ddx_rcsv_rec.sfwt_flag;
397 p7_a9 := ddx_rcsv_rec.created_by;
398 p7_a10 := ddx_rcsv_rec.creation_date;
399 p7_a11 := ddx_rcsv_rec.last_updated_by;
400 p7_a12 := ddx_rcsv_rec.last_update_date;
401 p7_a13 := ddx_rcsv_rec.last_update_login;
402 end;
403
404 procedure delete_objects(p_api_version NUMBER
405 , p_init_msg_list VARCHAR2
406 , x_return_status out nocopy VARCHAR2
407 , x_msg_count out nocopy NUMBER
408 , x_msg_data out nocopy VARCHAR2
409 , p5_a0 JTF_NUMBER_TABLE
410 , p5_a1 JTF_NUMBER_TABLE
411 , p5_a2 JTF_NUMBER_TABLE
412 , p5_a3 JTF_NUMBER_TABLE
413 , p5_a4 JTF_DATE_TABLE
414 , p5_a5 JTF_NUMBER_TABLE
415 , p5_a6 JTF_DATE_TABLE
416 , p5_a7 JTF_NUMBER_TABLE
417 , p5_a8 JTF_NUMBER_TABLE
418 , p5_a9 JTF_NUMBER_TABLE
419 , p5_a10 JTF_NUMBER_TABLE
420 , p5_a11 JTF_NUMBER_TABLE
421 )
422
423 as
424 ddp_res_tbl okl_resi_cat_sets_pvt.okl_res_tbl;
425 ddindx binary_integer; indx binary_integer;
426 begin
427
428 -- copy data to the local IN or IN-OUT args, if any
429
430
431
432
433
434 okl_res_pvt_w.rosetta_table_copy_in_p1(ddp_res_tbl, p5_a0
435 , p5_a1
436 , p5_a2
437 , p5_a3
438 , p5_a4
439 , p5_a5
440 , p5_a6
441 , p5_a7
442 , p5_a8
443 , p5_a9
444 , p5_a10
445 , p5_a11
446 );
447
448 -- here's the delegated call to the old PL/SQL routine
449 okl_resi_cat_sets_pvt.delete_objects(p_api_version,
450 p_init_msg_list,
451 x_return_status,
452 x_msg_count,
453 x_msg_data,
454 ddp_res_tbl);
455
456 -- copy data back from the local variables to OUT or IN-OUT args, if any
457
458
459
460
461
462 end;
463
464 end okl_resi_cat_sets_pvt_w;