[Home] [Help]
PACKAGE BODY: APPS.CAC_VIEW_AVAIL_PVT_W
Source
1 package body cac_view_avail_pvt_w as
2 /* $Header: cacwavb.pls 115.0 2003/10/28 00:59:35 cjang noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy cac_view_avail_pvt.rstab, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_VARCHAR2_TABLE_400
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).resourceid := a0(indx);
15 t(ddindx).resourcetype := a1(indx);
16 t(ddindx).resourcename := 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 cac_view_avail_pvt.rstab, a0 out nocopy JTF_NUMBER_TABLE
27 , a1 out nocopy JTF_VARCHAR2_TABLE_100
28 , a2 out nocopy JTF_VARCHAR2_TABLE_400
29 ) as
30 ddindx binary_integer; indx binary_integer;
31 begin
32 if t is null or t.count = 0 then
33 a0 := JTF_NUMBER_TABLE();
34 a1 := JTF_VARCHAR2_TABLE_100();
35 a2 := JTF_VARCHAR2_TABLE_400();
36 else
37 a0 := JTF_NUMBER_TABLE();
38 a1 := JTF_VARCHAR2_TABLE_100();
39 a2 := JTF_VARCHAR2_TABLE_400();
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).resourceid;
48 a1(indx) := t(ddindx).resourcetype;
49 a2(indx) := t(ddindx).resourcename;
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 rosetta_table_copy_in_p3(t out nocopy cac_view_avail_pvt.avlbltb, a0 JTF_NUMBER_TABLE
61 , a1 JTF_VARCHAR2_TABLE_100
62 , a2 JTF_VARCHAR2_TABLE_400
63 , a3 JTF_NUMBER_TABLE
64 , a4 JTF_NUMBER_TABLE
65 ) as
66 ddindx binary_integer; indx binary_integer;
67 begin
68 if a0 is not null and a0.count > 0 then
69 if a0.count > 0 then
70 indx := a0.first;
71 ddindx := 1;
72 while true loop
73 t(ddindx).resourceid := a0(indx);
74 t(ddindx).resourcetype := a1(indx);
75 t(ddindx).resourcename := a2(indx);
76 t(ddindx).slotsequence := a3(indx);
77 t(ddindx).slotavailable := a4(indx);
78 ddindx := ddindx+1;
79 if a0.last =indx
80 then exit;
81 end if;
82 indx := a0.next(indx);
83 end loop;
84 end if;
85 end if;
86 end rosetta_table_copy_in_p3;
87 procedure rosetta_table_copy_out_p3(t cac_view_avail_pvt.avlbltb, a0 out nocopy JTF_NUMBER_TABLE
88 , a1 out nocopy JTF_VARCHAR2_TABLE_100
89 , a2 out nocopy JTF_VARCHAR2_TABLE_400
90 , a3 out nocopy JTF_NUMBER_TABLE
91 , a4 out nocopy JTF_NUMBER_TABLE
92 ) as
93 ddindx binary_integer; indx binary_integer;
94 begin
95 if t is null or t.count = 0 then
96 a0 := JTF_NUMBER_TABLE();
97 a1 := JTF_VARCHAR2_TABLE_100();
98 a2 := JTF_VARCHAR2_TABLE_400();
99 a3 := JTF_NUMBER_TABLE();
100 a4 := JTF_NUMBER_TABLE();
101 else
102 a0 := JTF_NUMBER_TABLE();
103 a1 := JTF_VARCHAR2_TABLE_100();
104 a2 := JTF_VARCHAR2_TABLE_400();
105 a3 := JTF_NUMBER_TABLE();
106 a4 := JTF_NUMBER_TABLE();
107 if t.count > 0 then
108 a0.extend(t.count);
109 a1.extend(t.count);
110 a2.extend(t.count);
111 a3.extend(t.count);
112 a4.extend(t.count);
113 ddindx := t.first;
114 indx := 1;
115 while true loop
116 a0(indx) := t(ddindx).resourceid;
120 a4(indx) := t(ddindx).slotavailable;
121 indx := indx+1;
122 if t.last =ddindx
123 then exit;
124 end if;
125 ddindx := t.next(ddindx);
126 end loop;
127 end if;
128 end if;
129 end rosetta_table_copy_out_p3;
130
131 procedure availability(p_api_version NUMBER
132 , p_init_msg_list VARCHAR2
133 , x_return_status out nocopy VARCHAR2
134 , x_msg_count out nocopy NUMBER
135 , x_msg_data out nocopy VARCHAR2
136 , p5_a0 JTF_NUMBER_TABLE
137 , p5_a1 JTF_VARCHAR2_TABLE_100
138 , p5_a2 JTF_VARCHAR2_TABLE_400
139 , p_startdatetime DATE
140 , p_enddatetime DATE
141 , p_slotsize NUMBER
142 , x_numberofslots out nocopy NUMBER
143 , p10_a0 out nocopy JTF_NUMBER_TABLE
144 , p10_a1 out nocopy JTF_VARCHAR2_TABLE_100
145 , p10_a2 out nocopy JTF_VARCHAR2_TABLE_400
146 , p10_a3 out nocopy JTF_NUMBER_TABLE
147 , p10_a4 out nocopy JTF_NUMBER_TABLE
148 , p11_a0 out nocopy JTF_NUMBER_TABLE
149 , p11_a1 out nocopy JTF_VARCHAR2_TABLE_100
150 , p11_a2 out nocopy JTF_VARCHAR2_TABLE_400
151 , p11_a3 out nocopy JTF_NUMBER_TABLE
152 , p11_a4 out nocopy JTF_NUMBER_TABLE
153 )
154
155 as
158 ddx_totalavailbltylist cac_view_avail_pvt.avlbltb;
117 a1(indx) := t(ddindx).resourcetype;
118 a2(indx) := t(ddindx).resourcename;
119 a3(indx) := t(ddindx).slotsequence;
156 ddp_rslist cac_view_avail_pvt.rstab;
157 ddx_availbltylist cac_view_avail_pvt.avlbltb;
159 ddindx binary_integer; indx binary_integer;
160 begin
161
162 -- copy data to the local IN or IN-OUT args, if any
163
164
165
166
167
168 cac_view_avail_pvt_w.rosetta_table_copy_in_p1(ddp_rslist, p5_a0
169 , p5_a1
170 , p5_a2
171 );
172
173
174
175
176
177
178
179 -- here's the delegated call to the old PL/SQL routine
180 cac_view_avail_pvt.availability(p_api_version,
181 p_init_msg_list,
182 x_return_status,
183 x_msg_count,
184 x_msg_data,
185 ddp_rslist,
186 p_startdatetime,
187 p_enddatetime,
188 p_slotsize,
189 x_numberofslots,
190 ddx_availbltylist,
191 ddx_totalavailbltylist);
192
193 -- copy data back from the local variables to OUT or IN-OUT args, if any
194
195
196
197
198
199
200
201
202
203
204 cac_view_avail_pvt_w.rosetta_table_copy_out_p3(ddx_availbltylist, p10_a0
205 , p10_a1
206 , p10_a2
207 , p10_a3
208 , p10_a4
209 );
210
211 cac_view_avail_pvt_w.rosetta_table_copy_out_p3(ddx_totalavailbltylist, p11_a0
212 , p11_a1
213 , p11_a2
214 , p11_a3
215 , p11_a4
216 );
217 end;
218
219 procedure check_availability(p_api_version NUMBER
220 , p_init_msg_list VARCHAR2
221 , p2_a0 JTF_NUMBER_TABLE
222 , p2_a1 JTF_VARCHAR2_TABLE_100
223 , p2_a2 JTF_VARCHAR2_TABLE_400
224 , p_startdatetime DATE
225 , p_enddatetime DATE
226 , p_slotsize NUMBER
227 , x_numberofslots out nocopy NUMBER
228 , p7_a0 out nocopy JTF_NUMBER_TABLE
229 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_100
230 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_400
231 , p7_a3 out nocopy JTF_NUMBER_TABLE
232 , p7_a4 out nocopy JTF_NUMBER_TABLE
233 , p8_a0 out nocopy JTF_NUMBER_TABLE
234 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_100
235 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_400
236 , p8_a3 out nocopy JTF_NUMBER_TABLE
237 , p8_a4 out nocopy JTF_NUMBER_TABLE
238 , x_return_status out nocopy VARCHAR2
239 , x_msg_count out nocopy NUMBER
240 , x_msg_data out nocopy VARCHAR2
241 )
242
243 as
244 ddp_rslist cac_view_avail_pvt.rstab;
245 ddx_availbltylist cac_view_avail_pvt.avlbltb;
246 ddx_totalavailbltylist cac_view_avail_pvt.avlbltb;
247 ddindx binary_integer; indx binary_integer;
248 begin
249
250 -- copy data to the local IN or IN-OUT args, if any
251
252
253 cac_view_avail_pvt_w.rosetta_table_copy_in_p1(ddp_rslist, p2_a0
254 , p2_a1
255 , p2_a2
256 );
257
258
259
260
261
262
263
264
265
266
267 -- here's the delegated call to the old PL/SQL routine
268 cac_view_avail_pvt.check_availability(p_api_version,
269 p_init_msg_list,
270 ddp_rslist,
271 p_startdatetime,
272 p_enddatetime,
273 p_slotsize,
274 x_numberofslots,
275 ddx_availbltylist,
276 ddx_totalavailbltylist,
277 x_return_status,
278 x_msg_count,
279 x_msg_data);
280
281 -- copy data back from the local variables to OUT or IN-OUT args, if any
282
283
284
285
286
287
288
289 cac_view_avail_pvt_w.rosetta_table_copy_out_p3(ddx_availbltylist, p7_a0
293 , p7_a4
290 , p7_a1
291 , p7_a2
292 , p7_a3
294 );
295
296 cac_view_avail_pvt_w.rosetta_table_copy_out_p3(ddx_totalavailbltylist, p8_a0
297 , p8_a1
298 , p8_a2
299 , p8_a3
300 , p8_a4
301 );
302
303
304
305 end;
306
307 procedure check_availability(p_api_version NUMBER
308 , p_init_msg_list VARCHAR2
309 , p_task_id NUMBER
310 , p_startdatetime DATE
311 , p_enddatetime DATE
312 , p_slotsize NUMBER
313 , x_numberofslots out nocopy NUMBER
314 , p7_a0 out nocopy JTF_NUMBER_TABLE
315 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_100
316 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_400
317 , p7_a3 out nocopy JTF_NUMBER_TABLE
318 , p7_a4 out nocopy JTF_NUMBER_TABLE
319 , p8_a0 out nocopy JTF_NUMBER_TABLE
320 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_100
321 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_400
322 , p8_a3 out nocopy JTF_NUMBER_TABLE
323 , p8_a4 out nocopy JTF_NUMBER_TABLE
324 , x_return_status out nocopy VARCHAR2
325 , x_msg_count out nocopy NUMBER
326 , x_msg_data out nocopy VARCHAR2
327 )
328
329 as
330 ddx_availbltylist cac_view_avail_pvt.avlbltb;
331 ddx_totalavailbltylist cac_view_avail_pvt.avlbltb;
332 ddindx binary_integer; indx binary_integer;
333 begin
334
335 -- copy data to the local IN or IN-OUT args, if any
336
337
338
339
340
341
342
343
344
345
346
347
348 -- here's the delegated call to the old PL/SQL routine
349 cac_view_avail_pvt.check_availability(p_api_version,
350 p_init_msg_list,
351 p_task_id,
352 p_startdatetime,
353 p_enddatetime,
354 p_slotsize,
355 x_numberofslots,
356 ddx_availbltylist,
357 ddx_totalavailbltylist,
358 x_return_status,
359 x_msg_count,
360 x_msg_data);
361
362 -- copy data back from the local variables to OUT or IN-OUT args, if any
363
364
365
366
367
368
369
370 cac_view_avail_pvt_w.rosetta_table_copy_out_p3(ddx_availbltylist, p7_a0
371 , p7_a1
372 , p7_a2
373 , p7_a3
374 , p7_a4
375 );
376
377 cac_view_avail_pvt_w.rosetta_table_copy_out_p3(ddx_totalavailbltylist, p8_a0
378 , p8_a1
379 , p8_a2
380 , p8_a3
381 , p8_a4
382 );
383
384
385
386 end;
387
388 end cac_view_avail_pvt_w;