[Home] [Help]
PACKAGE BODY: APPS.EAM_PROCESS_SAFETY_PUB_W
Source
1 PACKAGE BODY EAM_PROCESS_SAFETY_PUB_W AS
2 /* $Header: EAMPSAWB.pls 120.0 2011/03/08 08:08:50 vboddapa noship $ */
3 /***************************************************************************
4 --
5 -- Copyright (c) 2011 Oracle Corporation, Redwood Shores, CA, USA
6 -- All rights reserved.
7 --
8 -- FILENAME: EAMPSAPB.pls
9 --
10 -- DESCRIPTION: PL/SQL Wrapper of package EAM_PROCESS_SAFETY_PUB
11 --
12 -- NOTES
13 --
14 -- HISTORY
15 --
16 --
17 ***************************************************************************/
18 procedure rosetta_table_copy_in_p5(t out nocopy eam_process_safety_pub.eam_iso_header_tbl_type, a0 JTF_NUMBER_TABLE
19 , a1 JTF_NUMBER_TABLE
20 , a2 JTF_NUMBER_TABLE
21 , a3 JTF_NUMBER_TABLE
22 , a4 JTF_NUMBER_TABLE
23 , a5 JTF_VARCHAR2_TABLE_300
24 , a6 JTF_VARCHAR2_TABLE_300
25 , a7 JTF_NUMBER_TABLE
26 , a8 JTF_NUMBER_TABLE
27 , a9 JTF_NUMBER_TABLE
28 , a10 JTF_NUMBER_TABLE
29 , a11 JTF_VARCHAR2_TABLE_100
30 , a12 JTF_DATE_TABLE
31 , a13 JTF_DATE_TABLE
32 , a14 JTF_NUMBER_TABLE
33 , a15 JTF_NUMBER_TABLE
34 , a16 JTF_VARCHAR2_TABLE_100
35 , a17 JTF_VARCHAR2_TABLE_300
36 , a18 JTF_VARCHAR2_TABLE_300
37 , a19 JTF_VARCHAR2_TABLE_300
38 , a20 JTF_VARCHAR2_TABLE_300
39 , a21 JTF_VARCHAR2_TABLE_300
40 , a22 JTF_VARCHAR2_TABLE_300
41 , a23 JTF_VARCHAR2_TABLE_300
42 , a24 JTF_VARCHAR2_TABLE_300
43 , a25 JTF_VARCHAR2_TABLE_300
44 , a26 JTF_VARCHAR2_TABLE_300
45 , a27 JTF_VARCHAR2_TABLE_300
46 , a28 JTF_VARCHAR2_TABLE_300
47 , a29 JTF_VARCHAR2_TABLE_300
48 , a30 JTF_VARCHAR2_TABLE_300
49 , a31 JTF_VARCHAR2_TABLE_300
50 , a32 JTF_VARCHAR2_TABLE_300
51 , a33 JTF_VARCHAR2_TABLE_300
52 , a34 JTF_VARCHAR2_TABLE_300
53 , a35 JTF_VARCHAR2_TABLE_300
54 , a36 JTF_VARCHAR2_TABLE_300
55 , a37 JTF_VARCHAR2_TABLE_300
56 , a38 JTF_VARCHAR2_TABLE_300
57 , a39 JTF_VARCHAR2_TABLE_300
58 , a40 JTF_VARCHAR2_TABLE_300
59 , a41 JTF_VARCHAR2_TABLE_300
60 , a42 JTF_VARCHAR2_TABLE_300
61 , a43 JTF_VARCHAR2_TABLE_300
62 , a44 JTF_VARCHAR2_TABLE_300
63 , a45 JTF_VARCHAR2_TABLE_300
64 , a46 JTF_VARCHAR2_TABLE_300
65 , a47 JTF_NUMBER_TABLE
66 , a48 JTF_VARCHAR2_TABLE_100
67 , a49 JTF_NUMBER_TABLE
68 , a50 JTF_DATE_TABLE
69 , a51 JTF_NUMBER_TABLE
70 , a52 JTF_NUMBER_TABLE
71 ) as
72 ddindx binary_integer; indx binary_integer;
73 begin
74 if a0 is not null and a0.count > 0 then
75 if a0.count > 0 then
76 indx := a0.first;
77 ddindx := 1;
78 while true loop
79 t(ddindx).header_id := a0(indx);
80 t(ddindx).batch_id := a1(indx);
81 t(ddindx).row_id := a2(indx);
82 t(ddindx).transaction_type := a3(indx);
83 t(ddindx).isolation_id := a4(indx);
84 t(ddindx).isolation_name := a5(indx);
85 t(ddindx).description := a6(indx);
86 t(ddindx).organization_id := a7(indx);
87 t(ddindx).isolation_type := a8(indx);
88 t(ddindx).system_status := a9(indx);
89 t(ddindx).user_defined_status := a10(indx);
90 t(ddindx).pending_flag := a11(indx);
91 t(ddindx).effective_start_date := a12(indx);
92 t(ddindx).effective_end_date := a13(indx);
93 t(ddindx).copy_from_isolation := a14(indx);
94 t(ddindx).copy_from_work_clearance := a15(indx);
95 t(ddindx).attribute_category := a16(indx);
96 t(ddindx).attribute1 := a17(indx);
97 t(ddindx).attribute2 := a18(indx);
98 t(ddindx).attribute3 := a19(indx);
99 t(ddindx).attribute4 := a20(indx);
100 t(ddindx).attribute5 := a21(indx);
101 t(ddindx).attribute6 := a22(indx);
102 t(ddindx).attribute7 := a23(indx);
103 t(ddindx).attribute8 := a24(indx);
104 t(ddindx).attribute9 := a25(indx);
105 t(ddindx).attribute10 := a26(indx);
106 t(ddindx).attribute11 := a27(indx);
107 t(ddindx).attribute12 := a28(indx);
108 t(ddindx).attribute13 := a29(indx);
109 t(ddindx).attribute14 := a30(indx);
110 t(ddindx).attribute15 := a31(indx);
111 t(ddindx).attribute16 := a32(indx);
112 t(ddindx).attribute17 := a33(indx);
113 t(ddindx).attribute18 := a34(indx);
114 t(ddindx).attribute19 := a35(indx);
115 t(ddindx).attribute20 := a36(indx);
116 t(ddindx).attribute21 := a37(indx);
117 t(ddindx).attribute22 := a38(indx);
118 t(ddindx).attribute23 := a39(indx);
119 t(ddindx).attribute24 := a40(indx);
120 t(ddindx).attribute25 := a41(indx);
121 t(ddindx).attribute26 := a42(indx);
122 t(ddindx).attribute27 := a43(indx);
123 t(ddindx).attribute28 := a44(indx);
124 t(ddindx).attribute29 := a45(indx);
125 t(ddindx).attribute30 := a46(indx);
126 t(ddindx).approved_by := a47(indx);
127 t(ddindx).permit_required := a48(indx);
128 t(ddindx).created_by := a49(indx);
129 t(ddindx).creation_date := a50(indx);
130 t(ddindx).user_id := a51(indx);
131 t(ddindx).responsibility_id := a52(indx);
132 ddindx := ddindx+1;
133 if a0.last =indx
134 then exit;
135 end if;
136 indx := a0.next(indx);
137 end loop;
138 end if;
139 end if;
140 end rosetta_table_copy_in_p5;
141 procedure rosetta_table_copy_out_p5(t eam_process_safety_pub.eam_iso_header_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
142 , a1 out nocopy JTF_NUMBER_TABLE
143 , a2 out nocopy JTF_NUMBER_TABLE
144 , a3 out nocopy JTF_NUMBER_TABLE
145 , a4 out nocopy JTF_NUMBER_TABLE
146 , a5 out nocopy JTF_VARCHAR2_TABLE_300
147 , a6 out nocopy JTF_VARCHAR2_TABLE_300
148 , a7 out nocopy JTF_NUMBER_TABLE
149 , a8 out nocopy JTF_NUMBER_TABLE
150 , a9 out nocopy JTF_NUMBER_TABLE
151 , a10 out nocopy JTF_NUMBER_TABLE
152 , a11 out nocopy JTF_VARCHAR2_TABLE_100
153 , a12 out nocopy JTF_DATE_TABLE
154 , a13 out nocopy JTF_DATE_TABLE
155 , a14 out nocopy JTF_NUMBER_TABLE
156 , a15 out nocopy JTF_NUMBER_TABLE
157 , a16 out nocopy JTF_VARCHAR2_TABLE_100
158 , a17 out nocopy JTF_VARCHAR2_TABLE_300
159 , a18 out nocopy JTF_VARCHAR2_TABLE_300
160 , a19 out nocopy JTF_VARCHAR2_TABLE_300
161 , a20 out nocopy JTF_VARCHAR2_TABLE_300
162 , a21 out nocopy JTF_VARCHAR2_TABLE_300
163 , a22 out nocopy JTF_VARCHAR2_TABLE_300
164 , a23 out nocopy JTF_VARCHAR2_TABLE_300
165 , a24 out nocopy JTF_VARCHAR2_TABLE_300
166 , a25 out nocopy JTF_VARCHAR2_TABLE_300
167 , a26 out nocopy JTF_VARCHAR2_TABLE_300
168 , a27 out nocopy JTF_VARCHAR2_TABLE_300
169 , a28 out nocopy JTF_VARCHAR2_TABLE_300
170 , a29 out nocopy JTF_VARCHAR2_TABLE_300
171 , a30 out nocopy JTF_VARCHAR2_TABLE_300
172 , a31 out nocopy JTF_VARCHAR2_TABLE_300
173 , a32 out nocopy JTF_VARCHAR2_TABLE_300
174 , a33 out nocopy JTF_VARCHAR2_TABLE_300
175 , a34 out nocopy JTF_VARCHAR2_TABLE_300
176 , a35 out nocopy JTF_VARCHAR2_TABLE_300
177 , a36 out nocopy JTF_VARCHAR2_TABLE_300
178 , a37 out nocopy JTF_VARCHAR2_TABLE_300
179 , a38 out nocopy JTF_VARCHAR2_TABLE_300
180 , a39 out nocopy JTF_VARCHAR2_TABLE_300
181 , a40 out nocopy JTF_VARCHAR2_TABLE_300
182 , a41 out nocopy JTF_VARCHAR2_TABLE_300
183 , a42 out nocopy JTF_VARCHAR2_TABLE_300
184 , a43 out nocopy JTF_VARCHAR2_TABLE_300
185 , a44 out nocopy JTF_VARCHAR2_TABLE_300
186 , a45 out nocopy JTF_VARCHAR2_TABLE_300
187 , a46 out nocopy JTF_VARCHAR2_TABLE_300
188 , a47 out nocopy JTF_NUMBER_TABLE
189 , a48 out nocopy JTF_VARCHAR2_TABLE_100
190 , a49 out nocopy JTF_NUMBER_TABLE
191 , a50 out nocopy JTF_DATE_TABLE
192 , a51 out nocopy JTF_NUMBER_TABLE
193 , a52 out nocopy JTF_NUMBER_TABLE
194 ) as
195 ddindx binary_integer; indx binary_integer;
196 begin
197 if t is null or t.count = 0 then
198 a0 := JTF_NUMBER_TABLE();
199 a1 := JTF_NUMBER_TABLE();
200 a2 := JTF_NUMBER_TABLE();
201 a3 := JTF_NUMBER_TABLE();
202 a4 := JTF_NUMBER_TABLE();
203 a5 := JTF_VARCHAR2_TABLE_300();
204 a6 := JTF_VARCHAR2_TABLE_300();
205 a7 := JTF_NUMBER_TABLE();
206 a8 := JTF_NUMBER_TABLE();
207 a9 := JTF_NUMBER_TABLE();
208 a10 := JTF_NUMBER_TABLE();
209 a11 := JTF_VARCHAR2_TABLE_100();
210 a12 := JTF_DATE_TABLE();
211 a13 := JTF_DATE_TABLE();
212 a14 := JTF_NUMBER_TABLE();
213 a15 := JTF_NUMBER_TABLE();
214 a16 := JTF_VARCHAR2_TABLE_100();
215 a17 := JTF_VARCHAR2_TABLE_300();
216 a18 := JTF_VARCHAR2_TABLE_300();
217 a19 := JTF_VARCHAR2_TABLE_300();
218 a20 := JTF_VARCHAR2_TABLE_300();
219 a21 := JTF_VARCHAR2_TABLE_300();
220 a22 := JTF_VARCHAR2_TABLE_300();
221 a23 := JTF_VARCHAR2_TABLE_300();
222 a24 := JTF_VARCHAR2_TABLE_300();
223 a25 := JTF_VARCHAR2_TABLE_300();
224 a26 := JTF_VARCHAR2_TABLE_300();
225 a27 := JTF_VARCHAR2_TABLE_300();
226 a28 := JTF_VARCHAR2_TABLE_300();
227 a29 := JTF_VARCHAR2_TABLE_300();
228 a30 := JTF_VARCHAR2_TABLE_300();
229 a31 := JTF_VARCHAR2_TABLE_300();
230 a32 := JTF_VARCHAR2_TABLE_300();
231 a33 := JTF_VARCHAR2_TABLE_300();
232 a34 := JTF_VARCHAR2_TABLE_300();
233 a35 := JTF_VARCHAR2_TABLE_300();
234 a36 := JTF_VARCHAR2_TABLE_300();
235 a37 := JTF_VARCHAR2_TABLE_300();
236 a38 := JTF_VARCHAR2_TABLE_300();
237 a39 := JTF_VARCHAR2_TABLE_300();
238 a40 := JTF_VARCHAR2_TABLE_300();
239 a41 := JTF_VARCHAR2_TABLE_300();
240 a42 := JTF_VARCHAR2_TABLE_300();
241 a43 := JTF_VARCHAR2_TABLE_300();
242 a44 := JTF_VARCHAR2_TABLE_300();
243 a45 := JTF_VARCHAR2_TABLE_300();
244 a46 := JTF_VARCHAR2_TABLE_300();
245 a47 := JTF_NUMBER_TABLE();
246 a48 := JTF_VARCHAR2_TABLE_100();
247 a49 := JTF_NUMBER_TABLE();
248 a50 := JTF_DATE_TABLE();
249 a51 := JTF_NUMBER_TABLE();
250 a52 := JTF_NUMBER_TABLE();
251 else
252 a0 := JTF_NUMBER_TABLE();
253 a1 := JTF_NUMBER_TABLE();
254 a2 := JTF_NUMBER_TABLE();
255 a3 := JTF_NUMBER_TABLE();
256 a4 := JTF_NUMBER_TABLE();
257 a5 := JTF_VARCHAR2_TABLE_300();
258 a6 := JTF_VARCHAR2_TABLE_300();
259 a7 := JTF_NUMBER_TABLE();
260 a8 := JTF_NUMBER_TABLE();
261 a9 := JTF_NUMBER_TABLE();
262 a10 := JTF_NUMBER_TABLE();
263 a11 := JTF_VARCHAR2_TABLE_100();
264 a12 := JTF_DATE_TABLE();
265 a13 := JTF_DATE_TABLE();
266 a14 := JTF_NUMBER_TABLE();
267 a15 := JTF_NUMBER_TABLE();
268 a16 := JTF_VARCHAR2_TABLE_100();
269 a17 := JTF_VARCHAR2_TABLE_300();
270 a18 := JTF_VARCHAR2_TABLE_300();
271 a19 := JTF_VARCHAR2_TABLE_300();
272 a20 := JTF_VARCHAR2_TABLE_300();
273 a21 := JTF_VARCHAR2_TABLE_300();
274 a22 := JTF_VARCHAR2_TABLE_300();
275 a23 := JTF_VARCHAR2_TABLE_300();
276 a24 := JTF_VARCHAR2_TABLE_300();
277 a25 := JTF_VARCHAR2_TABLE_300();
278 a26 := JTF_VARCHAR2_TABLE_300();
279 a27 := JTF_VARCHAR2_TABLE_300();
280 a28 := JTF_VARCHAR2_TABLE_300();
281 a29 := JTF_VARCHAR2_TABLE_300();
282 a30 := JTF_VARCHAR2_TABLE_300();
283 a31 := JTF_VARCHAR2_TABLE_300();
284 a32 := JTF_VARCHAR2_TABLE_300();
285 a33 := JTF_VARCHAR2_TABLE_300();
286 a34 := JTF_VARCHAR2_TABLE_300();
287 a35 := JTF_VARCHAR2_TABLE_300();
288 a36 := JTF_VARCHAR2_TABLE_300();
289 a37 := JTF_VARCHAR2_TABLE_300();
290 a38 := JTF_VARCHAR2_TABLE_300();
291 a39 := JTF_VARCHAR2_TABLE_300();
292 a40 := JTF_VARCHAR2_TABLE_300();
293 a41 := JTF_VARCHAR2_TABLE_300();
294 a42 := JTF_VARCHAR2_TABLE_300();
295 a43 := JTF_VARCHAR2_TABLE_300();
296 a44 := JTF_VARCHAR2_TABLE_300();
297 a45 := JTF_VARCHAR2_TABLE_300();
298 a46 := JTF_VARCHAR2_TABLE_300();
299 a47 := JTF_NUMBER_TABLE();
300 a48 := JTF_VARCHAR2_TABLE_100();
301 a49 := JTF_NUMBER_TABLE();
302 a50 := JTF_DATE_TABLE();
303 a51 := JTF_NUMBER_TABLE();
304 a52 := JTF_NUMBER_TABLE();
305 if t.count > 0 then
306 a0.extend(t.count);
307 a1.extend(t.count);
308 a2.extend(t.count);
309 a3.extend(t.count);
310 a4.extend(t.count);
311 a5.extend(t.count);
312 a6.extend(t.count);
313 a7.extend(t.count);
314 a8.extend(t.count);
315 a9.extend(t.count);
316 a10.extend(t.count);
317 a11.extend(t.count);
318 a12.extend(t.count);
319 a13.extend(t.count);
320 a14.extend(t.count);
321 a15.extend(t.count);
322 a16.extend(t.count);
323 a17.extend(t.count);
324 a18.extend(t.count);
325 a19.extend(t.count);
326 a20.extend(t.count);
327 a21.extend(t.count);
328 a22.extend(t.count);
329 a23.extend(t.count);
330 a24.extend(t.count);
331 a25.extend(t.count);
332 a26.extend(t.count);
333 a27.extend(t.count);
334 a28.extend(t.count);
335 a29.extend(t.count);
336 a30.extend(t.count);
337 a31.extend(t.count);
338 a32.extend(t.count);
339 a33.extend(t.count);
340 a34.extend(t.count);
341 a35.extend(t.count);
342 a36.extend(t.count);
343 a37.extend(t.count);
344 a38.extend(t.count);
345 a39.extend(t.count);
346 a40.extend(t.count);
347 a41.extend(t.count);
348 a42.extend(t.count);
349 a43.extend(t.count);
350 a44.extend(t.count);
351 a45.extend(t.count);
352 a46.extend(t.count);
353 a47.extend(t.count);
354 a48.extend(t.count);
355 a49.extend(t.count);
356 a50.extend(t.count);
357 a51.extend(t.count);
358 a52.extend(t.count);
359 ddindx := t.first;
360 indx := 1;
361 while true loop
362 a0(indx) := t(ddindx).header_id;
363 a1(indx) := t(ddindx).batch_id;
364 a2(indx) := t(ddindx).row_id;
365 a3(indx) := t(ddindx).transaction_type;
366 a4(indx) := t(ddindx).isolation_id;
367 a5(indx) := t(ddindx).isolation_name;
368 a6(indx) := t(ddindx).description;
369 a7(indx) := t(ddindx).organization_id;
370 a8(indx) := t(ddindx).isolation_type;
371 a9(indx) := t(ddindx).system_status;
372 a10(indx) := t(ddindx).user_defined_status;
373 a11(indx) := t(ddindx).pending_flag;
374 a12(indx) := t(ddindx).effective_start_date;
375 a13(indx) := t(ddindx).effective_end_date;
376 a14(indx) := t(ddindx).copy_from_isolation;
377 a15(indx) := t(ddindx).copy_from_work_clearance;
378 a16(indx) := t(ddindx).attribute_category;
379 a17(indx) := t(ddindx).attribute1;
380 a18(indx) := t(ddindx).attribute2;
381 a19(indx) := t(ddindx).attribute3;
382 a20(indx) := t(ddindx).attribute4;
383 a21(indx) := t(ddindx).attribute5;
384 a22(indx) := t(ddindx).attribute6;
385 a23(indx) := t(ddindx).attribute7;
386 a24(indx) := t(ddindx).attribute8;
387 a25(indx) := t(ddindx).attribute9;
388 a26(indx) := t(ddindx).attribute10;
389 a27(indx) := t(ddindx).attribute11;
390 a28(indx) := t(ddindx).attribute12;
391 a29(indx) := t(ddindx).attribute13;
392 a30(indx) := t(ddindx).attribute14;
393 a31(indx) := t(ddindx).attribute15;
394 a32(indx) := t(ddindx).attribute16;
395 a33(indx) := t(ddindx).attribute17;
396 a34(indx) := t(ddindx).attribute18;
397 a35(indx) := t(ddindx).attribute19;
398 a36(indx) := t(ddindx).attribute20;
399 a37(indx) := t(ddindx).attribute21;
400 a38(indx) := t(ddindx).attribute22;
401 a39(indx) := t(ddindx).attribute23;
402 a40(indx) := t(ddindx).attribute24;
403 a41(indx) := t(ddindx).attribute25;
404 a42(indx) := t(ddindx).attribute26;
405 a43(indx) := t(ddindx).attribute27;
406 a44(indx) := t(ddindx).attribute28;
410 a48(indx) := t(ddindx).permit_required;
407 a45(indx) := t(ddindx).attribute29;
408 a46(indx) := t(ddindx).attribute30;
409 a47(indx) := t(ddindx).approved_by;
411 a49(indx) := t(ddindx).created_by;
412 a50(indx) := t(ddindx).creation_date;
413 a51(indx) := t(ddindx).user_id;
414 a52(indx) := t(ddindx).responsibility_id;
415 indx := indx+1;
416 if t.last =ddindx
417 then exit;
418 end if;
419 ddindx := t.next(ddindx);
420 end loop;
421 end if;
422 end if;
423 end rosetta_table_copy_out_p5;
424
425 procedure rosetta_table_copy_in_p6(t out nocopy eam_process_safety_pub.eam_clearance_header_tbl_type, a0 JTF_NUMBER_TABLE
426 , a1 JTF_NUMBER_TABLE
427 , a2 JTF_NUMBER_TABLE
428 , a3 JTF_NUMBER_TABLE
429 , a4 JTF_VARCHAR2_TABLE_300
430 , a5 JTF_VARCHAR2_TABLE_300
431 , a6 JTF_NUMBER_TABLE
432 , a7 JTF_NUMBER_TABLE
433 , a8 JTF_NUMBER_TABLE
434 , a9 JTF_NUMBER_TABLE
435 , a10 JTF_VARCHAR2_TABLE_100
436 , a11 JTF_DATE_TABLE
437 , a12 JTF_DATE_TABLE
438 , a13 JTF_DATE_TABLE
439 , a14 JTF_DATE_TABLE
440 , a15 JTF_DATE_TABLE
441 , a16 JTF_NUMBER_TABLE
442 , a17 JTF_VARCHAR2_TABLE_100
443 , a18 JTF_VARCHAR2_TABLE_100
444 , a19 JTF_VARCHAR2_TABLE_300
445 , a20 JTF_VARCHAR2_TABLE_300
446 , a21 JTF_VARCHAR2_TABLE_300
447 , a22 JTF_VARCHAR2_TABLE_300
448 , a23 JTF_VARCHAR2_TABLE_300
449 , a24 JTF_VARCHAR2_TABLE_300
450 , a25 JTF_VARCHAR2_TABLE_300
451 , a26 JTF_VARCHAR2_TABLE_300
452 , a27 JTF_VARCHAR2_TABLE_300
453 , a28 JTF_VARCHAR2_TABLE_300
454 , a29 JTF_VARCHAR2_TABLE_300
455 , a30 JTF_VARCHAR2_TABLE_300
456 , a31 JTF_VARCHAR2_TABLE_300
457 , a32 JTF_VARCHAR2_TABLE_300
458 , a33 JTF_VARCHAR2_TABLE_300
459 , a34 JTF_VARCHAR2_TABLE_300
460 , a35 JTF_VARCHAR2_TABLE_300
461 , a36 JTF_VARCHAR2_TABLE_300
462 , a37 JTF_VARCHAR2_TABLE_300
463 , a38 JTF_VARCHAR2_TABLE_300
464 , a39 JTF_VARCHAR2_TABLE_300
465 , a40 JTF_VARCHAR2_TABLE_300
466 , a41 JTF_VARCHAR2_TABLE_300
467 , a42 JTF_VARCHAR2_TABLE_300
468 , a43 JTF_VARCHAR2_TABLE_300
469 , a44 JTF_VARCHAR2_TABLE_300
470 , a45 JTF_VARCHAR2_TABLE_300
471 , a46 JTF_VARCHAR2_TABLE_300
472 , a47 JTF_VARCHAR2_TABLE_300
473 , a48 JTF_VARCHAR2_TABLE_300
474 , a49 JTF_NUMBER_TABLE
475 , a50 JTF_NUMBER_TABLE
476 , a51 JTF_DATE_TABLE
477 , a52 JTF_NUMBER_TABLE
478 , a53 JTF_NUMBER_TABLE
479 ) as
480 ddindx binary_integer; indx binary_integer;
481 begin
482 if a0 is not null and a0.count > 0 then
483 if a0.count > 0 then
484 indx := a0.first;
485 ddindx := 1;
486 while true loop
487 t(ddindx).header_id := a0(indx);
488 t(ddindx).batch_id := a1(indx);
489 t(ddindx).row_id := a2(indx);
490 t(ddindx).work_clearance_id := a3(indx);
491 t(ddindx).work_clearance_name := a4(indx);
492 t(ddindx).description := a5(indx);
493 t(ddindx).organization_id := a6(indx);
494 t(ddindx).isolation_id := a7(indx);
495 t(ddindx).system_status := a8(indx);
496 t(ddindx).user_defined_status := a9(indx);
497 t(ddindx).pending_flag := a10(indx);
498 t(ddindx).scheduled_estab_start_date := a11(indx);
499 t(ddindx).scheduled_estab_end_date := a12(indx);
500 t(ddindx).scheduled_reestab_start_date := a13(indx);
501 t(ddindx).scheduled_reestab_end_date := a14(indx);
502 t(ddindx).completion_date := a15(indx);
503 t(ddindx).transaction_type := a16(indx);
504 t(ddindx).permit_required := a17(indx);
505 t(ddindx).attribute_category := a18(indx);
506 t(ddindx).attribute1 := a19(indx);
507 t(ddindx).attribute2 := a20(indx);
508 t(ddindx).attribute3 := a21(indx);
509 t(ddindx).attribute4 := a22(indx);
510 t(ddindx).attribute5 := a23(indx);
511 t(ddindx).attribute6 := a24(indx);
512 t(ddindx).attribute7 := a25(indx);
513 t(ddindx).attribute8 := a26(indx);
514 t(ddindx).attribute9 := a27(indx);
515 t(ddindx).attribute10 := a28(indx);
516 t(ddindx).attribute11 := a29(indx);
517 t(ddindx).attribute12 := a30(indx);
518 t(ddindx).attribute13 := a31(indx);
519 t(ddindx).attribute14 := a32(indx);
520 t(ddindx).attribute15 := a33(indx);
521 t(ddindx).attribute16 := a34(indx);
522 t(ddindx).attribute17 := a35(indx);
523 t(ddindx).attribute18 := a36(indx);
524 t(ddindx).attribute19 := a37(indx);
525 t(ddindx).attribute20 := a38(indx);
526 t(ddindx).attribute21 := a39(indx);
527 t(ddindx).attribute22 := a40(indx);
528 t(ddindx).attribute23 := a41(indx);
529 t(ddindx).attribute24 := a42(indx);
530 t(ddindx).attribute25 := a43(indx);
531 t(ddindx).attribute26 := a44(indx);
532 t(ddindx).attribute27 := a45(indx);
533 t(ddindx).attribute28 := a46(indx);
534 t(ddindx).attribute29 := a47(indx);
535 t(ddindx).attribute30 := a48(indx);
536 t(ddindx).approved_by := a49(indx);
537 t(ddindx).created_by := a50(indx);
538 t(ddindx).creation_date := a51(indx);
539 t(ddindx).user_id := a52(indx);
540 t(ddindx).responsibility_id := a53(indx);
541 ddindx := ddindx+1;
542 if a0.last =indx
543 then exit;
544 end if;
548 end if;
545 indx := a0.next(indx);
546 end loop;
547 end if;
549 end rosetta_table_copy_in_p6;
550 procedure rosetta_table_copy_out_p6(t eam_process_safety_pub.eam_clearance_header_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
551 , a1 out nocopy JTF_NUMBER_TABLE
552 , a2 out nocopy JTF_NUMBER_TABLE
553 , a3 out nocopy JTF_NUMBER_TABLE
554 , a4 out nocopy JTF_VARCHAR2_TABLE_300
555 , a5 out nocopy JTF_VARCHAR2_TABLE_300
556 , a6 out nocopy JTF_NUMBER_TABLE
557 , a7 out nocopy JTF_NUMBER_TABLE
558 , a8 out nocopy JTF_NUMBER_TABLE
559 , a9 out nocopy JTF_NUMBER_TABLE
560 , a10 out nocopy JTF_VARCHAR2_TABLE_100
561 , a11 out nocopy JTF_DATE_TABLE
562 , a12 out nocopy JTF_DATE_TABLE
563 , a13 out nocopy JTF_DATE_TABLE
564 , a14 out nocopy JTF_DATE_TABLE
565 , a15 out nocopy JTF_DATE_TABLE
566 , a16 out nocopy JTF_NUMBER_TABLE
567 , a17 out nocopy JTF_VARCHAR2_TABLE_100
568 , a18 out nocopy JTF_VARCHAR2_TABLE_100
569 , a19 out nocopy JTF_VARCHAR2_TABLE_300
570 , a20 out nocopy JTF_VARCHAR2_TABLE_300
571 , a21 out nocopy JTF_VARCHAR2_TABLE_300
572 , a22 out nocopy JTF_VARCHAR2_TABLE_300
573 , a23 out nocopy JTF_VARCHAR2_TABLE_300
574 , a24 out nocopy JTF_VARCHAR2_TABLE_300
575 , a25 out nocopy JTF_VARCHAR2_TABLE_300
576 , a26 out nocopy JTF_VARCHAR2_TABLE_300
577 , a27 out nocopy JTF_VARCHAR2_TABLE_300
578 , a28 out nocopy JTF_VARCHAR2_TABLE_300
579 , a29 out nocopy JTF_VARCHAR2_TABLE_300
580 , a30 out nocopy JTF_VARCHAR2_TABLE_300
581 , a31 out nocopy JTF_VARCHAR2_TABLE_300
582 , a32 out nocopy JTF_VARCHAR2_TABLE_300
583 , a33 out nocopy JTF_VARCHAR2_TABLE_300
584 , a34 out nocopy JTF_VARCHAR2_TABLE_300
585 , a35 out nocopy JTF_VARCHAR2_TABLE_300
586 , a36 out nocopy JTF_VARCHAR2_TABLE_300
587 , a37 out nocopy JTF_VARCHAR2_TABLE_300
588 , a38 out nocopy JTF_VARCHAR2_TABLE_300
589 , a39 out nocopy JTF_VARCHAR2_TABLE_300
590 , a40 out nocopy JTF_VARCHAR2_TABLE_300
591 , a41 out nocopy JTF_VARCHAR2_TABLE_300
592 , a42 out nocopy JTF_VARCHAR2_TABLE_300
593 , a43 out nocopy JTF_VARCHAR2_TABLE_300
594 , a44 out nocopy JTF_VARCHAR2_TABLE_300
595 , a45 out nocopy JTF_VARCHAR2_TABLE_300
596 , a46 out nocopy JTF_VARCHAR2_TABLE_300
597 , a47 out nocopy JTF_VARCHAR2_TABLE_300
598 , a48 out nocopy JTF_VARCHAR2_TABLE_300
599 , a49 out nocopy JTF_NUMBER_TABLE
600 , a50 out nocopy JTF_NUMBER_TABLE
601 , a51 out nocopy JTF_DATE_TABLE
602 , a52 out nocopy JTF_NUMBER_TABLE
603 , a53 out nocopy JTF_NUMBER_TABLE
604 ) as
605 ddindx binary_integer; indx binary_integer;
606 begin
607 if t is null or t.count = 0 then
608 a0 := JTF_NUMBER_TABLE();
609 a1 := JTF_NUMBER_TABLE();
610 a2 := JTF_NUMBER_TABLE();
611 a3 := JTF_NUMBER_TABLE();
612 a4 := JTF_VARCHAR2_TABLE_300();
613 a5 := JTF_VARCHAR2_TABLE_300();
614 a6 := JTF_NUMBER_TABLE();
615 a7 := JTF_NUMBER_TABLE();
616 a8 := JTF_NUMBER_TABLE();
617 a9 := JTF_NUMBER_TABLE();
618 a10 := JTF_VARCHAR2_TABLE_100();
619 a11 := JTF_DATE_TABLE();
620 a12 := JTF_DATE_TABLE();
621 a13 := JTF_DATE_TABLE();
622 a14 := JTF_DATE_TABLE();
623 a15 := JTF_DATE_TABLE();
624 a16 := JTF_NUMBER_TABLE();
625 a17 := JTF_VARCHAR2_TABLE_100();
626 a18 := JTF_VARCHAR2_TABLE_100();
627 a19 := JTF_VARCHAR2_TABLE_300();
628 a20 := JTF_VARCHAR2_TABLE_300();
629 a21 := JTF_VARCHAR2_TABLE_300();
630 a22 := JTF_VARCHAR2_TABLE_300();
631 a23 := JTF_VARCHAR2_TABLE_300();
632 a24 := JTF_VARCHAR2_TABLE_300();
633 a25 := JTF_VARCHAR2_TABLE_300();
634 a26 := JTF_VARCHAR2_TABLE_300();
635 a27 := JTF_VARCHAR2_TABLE_300();
636 a28 := JTF_VARCHAR2_TABLE_300();
637 a29 := JTF_VARCHAR2_TABLE_300();
638 a30 := JTF_VARCHAR2_TABLE_300();
639 a31 := JTF_VARCHAR2_TABLE_300();
640 a32 := JTF_VARCHAR2_TABLE_300();
641 a33 := JTF_VARCHAR2_TABLE_300();
642 a34 := JTF_VARCHAR2_TABLE_300();
643 a35 := JTF_VARCHAR2_TABLE_300();
644 a36 := JTF_VARCHAR2_TABLE_300();
645 a37 := JTF_VARCHAR2_TABLE_300();
646 a38 := JTF_VARCHAR2_TABLE_300();
647 a39 := JTF_VARCHAR2_TABLE_300();
648 a40 := JTF_VARCHAR2_TABLE_300();
649 a41 := JTF_VARCHAR2_TABLE_300();
650 a42 := JTF_VARCHAR2_TABLE_300();
651 a43 := JTF_VARCHAR2_TABLE_300();
652 a44 := JTF_VARCHAR2_TABLE_300();
653 a45 := JTF_VARCHAR2_TABLE_300();
654 a46 := JTF_VARCHAR2_TABLE_300();
655 a47 := JTF_VARCHAR2_TABLE_300();
656 a48 := JTF_VARCHAR2_TABLE_300();
657 a49 := JTF_NUMBER_TABLE();
658 a50 := JTF_NUMBER_TABLE();
659 a51 := JTF_DATE_TABLE();
660 a52 := JTF_NUMBER_TABLE();
661 a53 := JTF_NUMBER_TABLE();
662 else
663 a0 := JTF_NUMBER_TABLE();
664 a1 := JTF_NUMBER_TABLE();
665 a2 := JTF_NUMBER_TABLE();
666 a3 := JTF_NUMBER_TABLE();
667 a4 := JTF_VARCHAR2_TABLE_300();
668 a5 := JTF_VARCHAR2_TABLE_300();
669 a6 := JTF_NUMBER_TABLE();
670 a7 := JTF_NUMBER_TABLE();
671 a8 := JTF_NUMBER_TABLE();
672 a9 := JTF_NUMBER_TABLE();
673 a10 := JTF_VARCHAR2_TABLE_100();
674 a11 := JTF_DATE_TABLE();
675 a12 := JTF_DATE_TABLE();
676 a13 := JTF_DATE_TABLE();
677 a14 := JTF_DATE_TABLE();
678 a15 := JTF_DATE_TABLE();
679 a16 := JTF_NUMBER_TABLE();
680 a17 := JTF_VARCHAR2_TABLE_100();
681 a18 := JTF_VARCHAR2_TABLE_100();
682 a19 := JTF_VARCHAR2_TABLE_300();
683 a20 := JTF_VARCHAR2_TABLE_300();
684 a21 := JTF_VARCHAR2_TABLE_300();
688 a25 := JTF_VARCHAR2_TABLE_300();
685 a22 := JTF_VARCHAR2_TABLE_300();
686 a23 := JTF_VARCHAR2_TABLE_300();
687 a24 := JTF_VARCHAR2_TABLE_300();
689 a26 := JTF_VARCHAR2_TABLE_300();
690 a27 := JTF_VARCHAR2_TABLE_300();
691 a28 := JTF_VARCHAR2_TABLE_300();
692 a29 := JTF_VARCHAR2_TABLE_300();
693 a30 := JTF_VARCHAR2_TABLE_300();
694 a31 := JTF_VARCHAR2_TABLE_300();
695 a32 := JTF_VARCHAR2_TABLE_300();
696 a33 := JTF_VARCHAR2_TABLE_300();
697 a34 := JTF_VARCHAR2_TABLE_300();
698 a35 := JTF_VARCHAR2_TABLE_300();
699 a36 := JTF_VARCHAR2_TABLE_300();
700 a37 := JTF_VARCHAR2_TABLE_300();
701 a38 := JTF_VARCHAR2_TABLE_300();
702 a39 := JTF_VARCHAR2_TABLE_300();
703 a40 := JTF_VARCHAR2_TABLE_300();
704 a41 := JTF_VARCHAR2_TABLE_300();
705 a42 := JTF_VARCHAR2_TABLE_300();
706 a43 := JTF_VARCHAR2_TABLE_300();
707 a44 := JTF_VARCHAR2_TABLE_300();
708 a45 := JTF_VARCHAR2_TABLE_300();
709 a46 := JTF_VARCHAR2_TABLE_300();
710 a47 := JTF_VARCHAR2_TABLE_300();
711 a48 := JTF_VARCHAR2_TABLE_300();
712 a49 := JTF_NUMBER_TABLE();
713 a50 := JTF_NUMBER_TABLE();
714 a51 := JTF_DATE_TABLE();
715 a52 := JTF_NUMBER_TABLE();
716 a53 := JTF_NUMBER_TABLE();
717 if t.count > 0 then
718 a0.extend(t.count);
719 a1.extend(t.count);
720 a2.extend(t.count);
721 a3.extend(t.count);
722 a4.extend(t.count);
723 a5.extend(t.count);
724 a6.extend(t.count);
725 a7.extend(t.count);
726 a8.extend(t.count);
727 a9.extend(t.count);
728 a10.extend(t.count);
729 a11.extend(t.count);
730 a12.extend(t.count);
731 a13.extend(t.count);
732 a14.extend(t.count);
733 a15.extend(t.count);
734 a16.extend(t.count);
735 a17.extend(t.count);
736 a18.extend(t.count);
737 a19.extend(t.count);
738 a20.extend(t.count);
739 a21.extend(t.count);
740 a22.extend(t.count);
741 a23.extend(t.count);
742 a24.extend(t.count);
743 a25.extend(t.count);
744 a26.extend(t.count);
745 a27.extend(t.count);
746 a28.extend(t.count);
747 a29.extend(t.count);
748 a30.extend(t.count);
749 a31.extend(t.count);
750 a32.extend(t.count);
751 a33.extend(t.count);
752 a34.extend(t.count);
753 a35.extend(t.count);
754 a36.extend(t.count);
755 a37.extend(t.count);
756 a38.extend(t.count);
757 a39.extend(t.count);
758 a40.extend(t.count);
759 a41.extend(t.count);
760 a42.extend(t.count);
761 a43.extend(t.count);
762 a44.extend(t.count);
763 a45.extend(t.count);
764 a46.extend(t.count);
765 a47.extend(t.count);
766 a48.extend(t.count);
767 a49.extend(t.count);
768 a50.extend(t.count);
769 a51.extend(t.count);
770 a52.extend(t.count);
771 a53.extend(t.count);
772 ddindx := t.first;
773 indx := 1;
774 while true loop
775 a0(indx) := t(ddindx).header_id;
776 a1(indx) := t(ddindx).batch_id;
777 a2(indx) := t(ddindx).row_id;
778 a3(indx) := t(ddindx).work_clearance_id;
779 a4(indx) := t(ddindx).work_clearance_name;
780 a5(indx) := t(ddindx).description;
781 a6(indx) := t(ddindx).organization_id;
782 a7(indx) := t(ddindx).isolation_id;
783 a8(indx) := t(ddindx).system_status;
784 a9(indx) := t(ddindx).user_defined_status;
785 a10(indx) := t(ddindx).pending_flag;
786 a11(indx) := t(ddindx).scheduled_estab_start_date;
787 a12(indx) := t(ddindx).scheduled_estab_end_date;
788 a13(indx) := t(ddindx).scheduled_reestab_start_date;
789 a14(indx) := t(ddindx).scheduled_reestab_end_date;
790 a15(indx) := t(ddindx).completion_date;
791 a16(indx) := t(ddindx).transaction_type;
792 a17(indx) := t(ddindx).permit_required;
793 a18(indx) := t(ddindx).attribute_category;
794 a19(indx) := t(ddindx).attribute1;
795 a20(indx) := t(ddindx).attribute2;
796 a21(indx) := t(ddindx).attribute3;
797 a22(indx) := t(ddindx).attribute4;
798 a23(indx) := t(ddindx).attribute5;
799 a24(indx) := t(ddindx).attribute6;
800 a25(indx) := t(ddindx).attribute7;
801 a26(indx) := t(ddindx).attribute8;
802 a27(indx) := t(ddindx).attribute9;
803 a28(indx) := t(ddindx).attribute10;
804 a29(indx) := t(ddindx).attribute11;
805 a30(indx) := t(ddindx).attribute12;
806 a31(indx) := t(ddindx).attribute13;
807 a32(indx) := t(ddindx).attribute14;
808 a33(indx) := t(ddindx).attribute15;
809 a34(indx) := t(ddindx).attribute16;
810 a35(indx) := t(ddindx).attribute17;
811 a36(indx) := t(ddindx).attribute18;
812 a37(indx) := t(ddindx).attribute19;
813 a38(indx) := t(ddindx).attribute20;
814 a39(indx) := t(ddindx).attribute21;
815 a40(indx) := t(ddindx).attribute22;
816 a41(indx) := t(ddindx).attribute23;
817 a42(indx) := t(ddindx).attribute24;
818 a43(indx) := t(ddindx).attribute25;
819 a44(indx) := t(ddindx).attribute26;
820 a45(indx) := t(ddindx).attribute27;
821 a46(indx) := t(ddindx).attribute28;
822 a47(indx) := t(ddindx).attribute29;
823 a48(indx) := t(ddindx).attribute30;
827 a52(indx) := t(ddindx).user_id;
824 a49(indx) := t(ddindx).approved_by;
825 a50(indx) := t(ddindx).created_by;
826 a51(indx) := t(ddindx).creation_date;
828 a53(indx) := t(ddindx).responsibility_id;
829 indx := indx+1;
830 if t.last =ddindx
831 then exit;
832 end if;
833 ddindx := t.next(ddindx);
834 end loop;
835 end if;
836 end if;
837 end rosetta_table_copy_out_p6;
838
839 procedure rosetta_table_copy_in_p7(t out nocopy eam_process_safety_pub.eam_wp_tbl_type, a0 JTF_NUMBER_TABLE
840 , a1 JTF_NUMBER_TABLE
841 , a2 JTF_NUMBER_TABLE
842 , a3 JTF_NUMBER_TABLE
843 , a4 JTF_NUMBER_TABLE
844 , a5 JTF_VARCHAR2_TABLE_300
845 , a6 JTF_NUMBER_TABLE
846 , a7 JTF_VARCHAR2_TABLE_300
847 , a8 JTF_NUMBER_TABLE
848 , a9 JTF_NUMBER_TABLE
849 , a10 JTF_DATE_TABLE
850 , a11 JTF_DATE_TABLE
851 , a12 JTF_VARCHAR2_TABLE_100
852 , a13 JTF_DATE_TABLE
853 , a14 JTF_NUMBER_TABLE
854 , a15 JTF_VARCHAR2_TABLE_100
855 , a16 JTF_VARCHAR2_TABLE_300
856 , a17 JTF_VARCHAR2_TABLE_300
857 , a18 JTF_VARCHAR2_TABLE_300
858 , a19 JTF_VARCHAR2_TABLE_300
859 , a20 JTF_VARCHAR2_TABLE_300
860 , a21 JTF_VARCHAR2_TABLE_300
861 , a22 JTF_VARCHAR2_TABLE_300
862 , a23 JTF_VARCHAR2_TABLE_300
863 , a24 JTF_VARCHAR2_TABLE_300
864 , a25 JTF_VARCHAR2_TABLE_300
865 , a26 JTF_VARCHAR2_TABLE_300
866 , a27 JTF_VARCHAR2_TABLE_300
867 , a28 JTF_VARCHAR2_TABLE_300
868 , a29 JTF_VARCHAR2_TABLE_300
869 , a30 JTF_VARCHAR2_TABLE_300
870 , a31 JTF_VARCHAR2_TABLE_300
871 , a32 JTF_VARCHAR2_TABLE_300
872 , a33 JTF_VARCHAR2_TABLE_300
873 , a34 JTF_VARCHAR2_TABLE_300
874 , a35 JTF_VARCHAR2_TABLE_300
875 , a36 JTF_VARCHAR2_TABLE_300
876 , a37 JTF_VARCHAR2_TABLE_300
877 , a38 JTF_VARCHAR2_TABLE_300
878 , a39 JTF_VARCHAR2_TABLE_300
879 , a40 JTF_VARCHAR2_TABLE_300
880 , a41 JTF_VARCHAR2_TABLE_300
881 , a42 JTF_VARCHAR2_TABLE_300
882 , a43 JTF_VARCHAR2_TABLE_300
883 , a44 JTF_VARCHAR2_TABLE_300
884 , a45 JTF_VARCHAR2_TABLE_300
885 , a46 JTF_NUMBER_TABLE
886 , a47 JTF_NUMBER_TABLE
887 , a48 JTF_DATE_TABLE
888 , a49 JTF_NUMBER_TABLE
889 , a50 JTF_NUMBER_TABLE
890 ) as
891 ddindx binary_integer; indx binary_integer;
892 begin
893 if a0 is not null and a0.count > 0 then
894 if a0.count > 0 then
895 indx := a0.first;
896 ddindx := 1;
897 while true loop
898 t(ddindx).header_id := a0(indx);
899 t(ddindx).batch_id := a1(indx);
900 t(ddindx).row_id := a2(indx);
901 t(ddindx).transaction_type := a3(indx);
902 t(ddindx).permit_id := a4(indx);
903 t(ddindx).permit_name := a5(indx);
904 t(ddindx).permit_type := a6(indx);
905 t(ddindx).description := a7(indx);
906 t(ddindx).organization_id := a8(indx);
907 t(ddindx).status_type := a9(indx);
908 t(ddindx).valid_from := a10(indx);
909 t(ddindx).valid_to := a11(indx);
910 t(ddindx).pending_flag := a12(indx);
911 t(ddindx).completion_date := a13(indx);
912 t(ddindx).user_defined_status_id := a14(indx);
913 t(ddindx).attribute_category := a15(indx);
914 t(ddindx).attribute1 := a16(indx);
915 t(ddindx).attribute2 := a17(indx);
916 t(ddindx).attribute3 := a18(indx);
917 t(ddindx).attribute4 := a19(indx);
918 t(ddindx).attribute5 := a20(indx);
919 t(ddindx).attribute6 := a21(indx);
920 t(ddindx).attribute7 := a22(indx);
921 t(ddindx).attribute8 := a23(indx);
922 t(ddindx).attribute9 := a24(indx);
923 t(ddindx).attribute10 := a25(indx);
924 t(ddindx).attribute11 := a26(indx);
925 t(ddindx).attribute12 := a27(indx);
926 t(ddindx).attribute13 := a28(indx);
927 t(ddindx).attribute14 := a29(indx);
928 t(ddindx).attribute15 := a30(indx);
929 t(ddindx).attribute16 := a31(indx);
930 t(ddindx).attribute17 := a32(indx);
931 t(ddindx).attribute18 := a33(indx);
932 t(ddindx).attribute19 := a34(indx);
933 t(ddindx).attribute20 := a35(indx);
934 t(ddindx).attribute21 := a36(indx);
935 t(ddindx).attribute22 := a37(indx);
936 t(ddindx).attribute23 := a38(indx);
937 t(ddindx).attribute24 := a39(indx);
938 t(ddindx).attribute25 := a40(indx);
939 t(ddindx).attribute26 := a41(indx);
940 t(ddindx).attribute27 := a42(indx);
941 t(ddindx).attribute28 := a43(indx);
942 t(ddindx).attribute29 := a44(indx);
943 t(ddindx).attribute30 := a45(indx);
944 t(ddindx).approved_by := a46(indx);
945 t(ddindx).created_by := a47(indx);
946 t(ddindx).creation_date := a48(indx);
947 t(ddindx).user_id := a49(indx);
948 t(ddindx).responsibility_id := a50(indx);
949 ddindx := ddindx+1;
950 if a0.last =indx
951 then exit;
952 end if;
953 indx := a0.next(indx);
954 end loop;
955 end if;
956 end if;
957 end rosetta_table_copy_in_p7;
958 procedure rosetta_table_copy_out_p7(t eam_process_safety_pub.eam_wp_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
959 , a1 out nocopy JTF_NUMBER_TABLE
960 , a2 out nocopy JTF_NUMBER_TABLE
961 , a3 out nocopy JTF_NUMBER_TABLE
962 , a4 out nocopy JTF_NUMBER_TABLE
963 , a5 out nocopy JTF_VARCHAR2_TABLE_300
967 , a9 out nocopy JTF_NUMBER_TABLE
964 , a6 out nocopy JTF_NUMBER_TABLE
965 , a7 out nocopy JTF_VARCHAR2_TABLE_300
966 , a8 out nocopy JTF_NUMBER_TABLE
968 , a10 out nocopy JTF_DATE_TABLE
969 , a11 out nocopy JTF_DATE_TABLE
970 , a12 out nocopy JTF_VARCHAR2_TABLE_100
971 , a13 out nocopy JTF_DATE_TABLE
972 , a14 out nocopy JTF_NUMBER_TABLE
973 , a15 out nocopy JTF_VARCHAR2_TABLE_100
974 , a16 out nocopy JTF_VARCHAR2_TABLE_300
975 , a17 out nocopy JTF_VARCHAR2_TABLE_300
976 , a18 out nocopy JTF_VARCHAR2_TABLE_300
977 , a19 out nocopy JTF_VARCHAR2_TABLE_300
978 , a20 out nocopy JTF_VARCHAR2_TABLE_300
979 , a21 out nocopy JTF_VARCHAR2_TABLE_300
980 , a22 out nocopy JTF_VARCHAR2_TABLE_300
981 , a23 out nocopy JTF_VARCHAR2_TABLE_300
982 , a24 out nocopy JTF_VARCHAR2_TABLE_300
983 , a25 out nocopy JTF_VARCHAR2_TABLE_300
984 , a26 out nocopy JTF_VARCHAR2_TABLE_300
985 , a27 out nocopy JTF_VARCHAR2_TABLE_300
986 , a28 out nocopy JTF_VARCHAR2_TABLE_300
987 , a29 out nocopy JTF_VARCHAR2_TABLE_300
988 , a30 out nocopy JTF_VARCHAR2_TABLE_300
989 , a31 out nocopy JTF_VARCHAR2_TABLE_300
990 , a32 out nocopy JTF_VARCHAR2_TABLE_300
991 , a33 out nocopy JTF_VARCHAR2_TABLE_300
992 , a34 out nocopy JTF_VARCHAR2_TABLE_300
993 , a35 out nocopy JTF_VARCHAR2_TABLE_300
994 , a36 out nocopy JTF_VARCHAR2_TABLE_300
995 , a37 out nocopy JTF_VARCHAR2_TABLE_300
996 , a38 out nocopy JTF_VARCHAR2_TABLE_300
997 , a39 out nocopy JTF_VARCHAR2_TABLE_300
998 , a40 out nocopy JTF_VARCHAR2_TABLE_300
999 , a41 out nocopy JTF_VARCHAR2_TABLE_300
1000 , a42 out nocopy JTF_VARCHAR2_TABLE_300
1001 , a43 out nocopy JTF_VARCHAR2_TABLE_300
1002 , a44 out nocopy JTF_VARCHAR2_TABLE_300
1003 , a45 out nocopy JTF_VARCHAR2_TABLE_300
1004 , a46 out nocopy JTF_NUMBER_TABLE
1005 , a47 out nocopy JTF_NUMBER_TABLE
1006 , a48 out nocopy JTF_DATE_TABLE
1007 , a49 out nocopy JTF_NUMBER_TABLE
1008 , a50 out nocopy JTF_NUMBER_TABLE
1009 ) as
1010 ddindx binary_integer; indx binary_integer;
1011 begin
1012 if t is null or t.count = 0 then
1013 a0 := JTF_NUMBER_TABLE();
1014 a1 := JTF_NUMBER_TABLE();
1015 a2 := JTF_NUMBER_TABLE();
1016 a3 := JTF_NUMBER_TABLE();
1017 a4 := JTF_NUMBER_TABLE();
1018 a5 := JTF_VARCHAR2_TABLE_300();
1019 a6 := JTF_NUMBER_TABLE();
1020 a7 := JTF_VARCHAR2_TABLE_300();
1021 a8 := JTF_NUMBER_TABLE();
1022 a9 := JTF_NUMBER_TABLE();
1023 a10 := JTF_DATE_TABLE();
1024 a11 := JTF_DATE_TABLE();
1025 a12 := JTF_VARCHAR2_TABLE_100();
1026 a13 := JTF_DATE_TABLE();
1027 a14 := JTF_NUMBER_TABLE();
1028 a15 := JTF_VARCHAR2_TABLE_100();
1029 a16 := JTF_VARCHAR2_TABLE_300();
1030 a17 := JTF_VARCHAR2_TABLE_300();
1031 a18 := JTF_VARCHAR2_TABLE_300();
1032 a19 := JTF_VARCHAR2_TABLE_300();
1033 a20 := JTF_VARCHAR2_TABLE_300();
1034 a21 := JTF_VARCHAR2_TABLE_300();
1035 a22 := JTF_VARCHAR2_TABLE_300();
1036 a23 := JTF_VARCHAR2_TABLE_300();
1037 a24 := JTF_VARCHAR2_TABLE_300();
1038 a25 := JTF_VARCHAR2_TABLE_300();
1039 a26 := JTF_VARCHAR2_TABLE_300();
1040 a27 := JTF_VARCHAR2_TABLE_300();
1041 a28 := JTF_VARCHAR2_TABLE_300();
1042 a29 := JTF_VARCHAR2_TABLE_300();
1043 a30 := JTF_VARCHAR2_TABLE_300();
1044 a31 := JTF_VARCHAR2_TABLE_300();
1045 a32 := JTF_VARCHAR2_TABLE_300();
1046 a33 := JTF_VARCHAR2_TABLE_300();
1047 a34 := JTF_VARCHAR2_TABLE_300();
1048 a35 := JTF_VARCHAR2_TABLE_300();
1049 a36 := JTF_VARCHAR2_TABLE_300();
1050 a37 := JTF_VARCHAR2_TABLE_300();
1051 a38 := JTF_VARCHAR2_TABLE_300();
1052 a39 := JTF_VARCHAR2_TABLE_300();
1053 a40 := JTF_VARCHAR2_TABLE_300();
1054 a41 := JTF_VARCHAR2_TABLE_300();
1055 a42 := JTF_VARCHAR2_TABLE_300();
1056 a43 := JTF_VARCHAR2_TABLE_300();
1057 a44 := JTF_VARCHAR2_TABLE_300();
1058 a45 := JTF_VARCHAR2_TABLE_300();
1059 a46 := JTF_NUMBER_TABLE();
1060 a47 := JTF_NUMBER_TABLE();
1061 a48 := JTF_DATE_TABLE();
1062 a49 := JTF_NUMBER_TABLE();
1063 a50 := JTF_NUMBER_TABLE();
1064 else
1065 a0 := JTF_NUMBER_TABLE();
1066 a1 := JTF_NUMBER_TABLE();
1067 a2 := JTF_NUMBER_TABLE();
1068 a3 := JTF_NUMBER_TABLE();
1069 a4 := JTF_NUMBER_TABLE();
1070 a5 := JTF_VARCHAR2_TABLE_300();
1071 a6 := JTF_NUMBER_TABLE();
1072 a7 := JTF_VARCHAR2_TABLE_300();
1073 a8 := JTF_NUMBER_TABLE();
1074 a9 := JTF_NUMBER_TABLE();
1075 a10 := JTF_DATE_TABLE();
1076 a11 := JTF_DATE_TABLE();
1077 a12 := JTF_VARCHAR2_TABLE_100();
1078 a13 := JTF_DATE_TABLE();
1079 a14 := JTF_NUMBER_TABLE();
1080 a15 := JTF_VARCHAR2_TABLE_100();
1081 a16 := JTF_VARCHAR2_TABLE_300();
1082 a17 := JTF_VARCHAR2_TABLE_300();
1083 a18 := JTF_VARCHAR2_TABLE_300();
1084 a19 := JTF_VARCHAR2_TABLE_300();
1085 a20 := JTF_VARCHAR2_TABLE_300();
1086 a21 := JTF_VARCHAR2_TABLE_300();
1087 a22 := JTF_VARCHAR2_TABLE_300();
1088 a23 := JTF_VARCHAR2_TABLE_300();
1089 a24 := JTF_VARCHAR2_TABLE_300();
1090 a25 := JTF_VARCHAR2_TABLE_300();
1091 a26 := JTF_VARCHAR2_TABLE_300();
1092 a27 := JTF_VARCHAR2_TABLE_300();
1093 a28 := JTF_VARCHAR2_TABLE_300();
1094 a29 := JTF_VARCHAR2_TABLE_300();
1095 a30 := JTF_VARCHAR2_TABLE_300();
1096 a31 := JTF_VARCHAR2_TABLE_300();
1097 a32 := JTF_VARCHAR2_TABLE_300();
1098 a33 := JTF_VARCHAR2_TABLE_300();
1099 a34 := JTF_VARCHAR2_TABLE_300();
1100 a35 := JTF_VARCHAR2_TABLE_300();
1101 a36 := JTF_VARCHAR2_TABLE_300();
1102 a37 := JTF_VARCHAR2_TABLE_300();
1106 a41 := JTF_VARCHAR2_TABLE_300();
1103 a38 := JTF_VARCHAR2_TABLE_300();
1104 a39 := JTF_VARCHAR2_TABLE_300();
1105 a40 := JTF_VARCHAR2_TABLE_300();
1107 a42 := JTF_VARCHAR2_TABLE_300();
1108 a43 := JTF_VARCHAR2_TABLE_300();
1109 a44 := JTF_VARCHAR2_TABLE_300();
1110 a45 := JTF_VARCHAR2_TABLE_300();
1111 a46 := JTF_NUMBER_TABLE();
1112 a47 := JTF_NUMBER_TABLE();
1113 a48 := JTF_DATE_TABLE();
1114 a49 := JTF_NUMBER_TABLE();
1115 a50 := JTF_NUMBER_TABLE();
1116 if t.count > 0 then
1117 a0.extend(t.count);
1118 a1.extend(t.count);
1119 a2.extend(t.count);
1120 a3.extend(t.count);
1121 a4.extend(t.count);
1122 a5.extend(t.count);
1123 a6.extend(t.count);
1124 a7.extend(t.count);
1125 a8.extend(t.count);
1126 a9.extend(t.count);
1127 a10.extend(t.count);
1128 a11.extend(t.count);
1129 a12.extend(t.count);
1130 a13.extend(t.count);
1131 a14.extend(t.count);
1132 a15.extend(t.count);
1133 a16.extend(t.count);
1134 a17.extend(t.count);
1135 a18.extend(t.count);
1136 a19.extend(t.count);
1137 a20.extend(t.count);
1138 a21.extend(t.count);
1139 a22.extend(t.count);
1140 a23.extend(t.count);
1141 a24.extend(t.count);
1142 a25.extend(t.count);
1143 a26.extend(t.count);
1144 a27.extend(t.count);
1145 a28.extend(t.count);
1146 a29.extend(t.count);
1147 a30.extend(t.count);
1148 a31.extend(t.count);
1149 a32.extend(t.count);
1150 a33.extend(t.count);
1151 a34.extend(t.count);
1152 a35.extend(t.count);
1153 a36.extend(t.count);
1154 a37.extend(t.count);
1155 a38.extend(t.count);
1156 a39.extend(t.count);
1157 a40.extend(t.count);
1158 a41.extend(t.count);
1159 a42.extend(t.count);
1160 a43.extend(t.count);
1161 a44.extend(t.count);
1162 a45.extend(t.count);
1163 a46.extend(t.count);
1164 a47.extend(t.count);
1165 a48.extend(t.count);
1166 a49.extend(t.count);
1167 a50.extend(t.count);
1168 ddindx := t.first;
1169 indx := 1;
1170 while true loop
1171 a0(indx) := t(ddindx).header_id;
1172 a1(indx) := t(ddindx).batch_id;
1173 a2(indx) := t(ddindx).row_id;
1174 a3(indx) := t(ddindx).transaction_type;
1175 a4(indx) := t(ddindx).permit_id;
1176 a5(indx) := t(ddindx).permit_name;
1177 a6(indx) := t(ddindx).permit_type;
1178 a7(indx) := t(ddindx).description;
1179 a8(indx) := t(ddindx).organization_id;
1180 a9(indx) := t(ddindx).status_type;
1181 a10(indx) := t(ddindx).valid_from;
1182 a11(indx) := t(ddindx).valid_to;
1183 a12(indx) := t(ddindx).pending_flag;
1184 a13(indx) := t(ddindx).completion_date;
1185 a14(indx) := t(ddindx).user_defined_status_id;
1186 a15(indx) := t(ddindx).attribute_category;
1187 a16(indx) := t(ddindx).attribute1;
1188 a17(indx) := t(ddindx).attribute2;
1189 a18(indx) := t(ddindx).attribute3;
1190 a19(indx) := t(ddindx).attribute4;
1191 a20(indx) := t(ddindx).attribute5;
1192 a21(indx) := t(ddindx).attribute6;
1193 a22(indx) := t(ddindx).attribute7;
1194 a23(indx) := t(ddindx).attribute8;
1195 a24(indx) := t(ddindx).attribute9;
1196 a25(indx) := t(ddindx).attribute10;
1197 a26(indx) := t(ddindx).attribute11;
1198 a27(indx) := t(ddindx).attribute12;
1199 a28(indx) := t(ddindx).attribute13;
1200 a29(indx) := t(ddindx).attribute14;
1201 a30(indx) := t(ddindx).attribute15;
1202 a31(indx) := t(ddindx).attribute16;
1203 a32(indx) := t(ddindx).attribute17;
1204 a33(indx) := t(ddindx).attribute18;
1205 a34(indx) := t(ddindx).attribute19;
1206 a35(indx) := t(ddindx).attribute20;
1207 a36(indx) := t(ddindx).attribute21;
1208 a37(indx) := t(ddindx).attribute22;
1209 a38(indx) := t(ddindx).attribute23;
1210 a39(indx) := t(ddindx).attribute24;
1211 a40(indx) := t(ddindx).attribute25;
1212 a41(indx) := t(ddindx).attribute26;
1213 a42(indx) := t(ddindx).attribute27;
1214 a43(indx) := t(ddindx).attribute28;
1215 a44(indx) := t(ddindx).attribute29;
1216 a45(indx) := t(ddindx).attribute30;
1217 a46(indx) := t(ddindx).approved_by;
1218 a47(indx) := t(ddindx).created_by;
1219 a48(indx) := t(ddindx).creation_date;
1220 a49(indx) := t(ddindx).user_id;
1221 a50(indx) := t(ddindx).responsibility_id;
1222 indx := indx+1;
1223 if t.last =ddindx
1224 then exit;
1225 end if;
1226 ddindx := t.next(ddindx);
1227 end loop;
1228 end if;
1229 end if;
1230 end rosetta_table_copy_out_p7;
1231
1232 procedure rosetta_table_copy_in_p8(t out nocopy eam_process_safety_pub.eam_safety_assoc_tbl_type, a0 JTF_NUMBER_TABLE
1233 , a1 JTF_NUMBER_TABLE
1234 , a2 JTF_NUMBER_TABLE
1235 , a3 JTF_NUMBER_TABLE
1236 , a4 JTF_NUMBER_TABLE
1237 , a5 JTF_NUMBER_TABLE
1238 , a6 JTF_NUMBER_TABLE
1239 , a7 JTF_NUMBER_TABLE
1240 , a8 JTF_DATE_TABLE
1241 , a9 JTF_DATE_TABLE
1242 , a10 JTF_NUMBER_TABLE
1243 , a11 JTF_VARCHAR2_TABLE_100
1244 , a12 JTF_VARCHAR2_TABLE_300
1245 , a13 JTF_VARCHAR2_TABLE_100
1246 , a14 JTF_VARCHAR2_TABLE_300
1250 , a18 JTF_VARCHAR2_TABLE_300
1247 , a15 JTF_VARCHAR2_TABLE_300
1248 , a16 JTF_VARCHAR2_TABLE_300
1249 , a17 JTF_VARCHAR2_TABLE_300
1251 , a19 JTF_VARCHAR2_TABLE_300
1252 , a20 JTF_VARCHAR2_TABLE_300
1253 , a21 JTF_VARCHAR2_TABLE_300
1254 , a22 JTF_VARCHAR2_TABLE_300
1255 , a23 JTF_VARCHAR2_TABLE_300
1256 , a24 JTF_VARCHAR2_TABLE_300
1257 , a25 JTF_VARCHAR2_TABLE_300
1258 , a26 JTF_VARCHAR2_TABLE_300
1259 , a27 JTF_VARCHAR2_TABLE_300
1260 , a28 JTF_VARCHAR2_TABLE_300
1261 , a29 JTF_VARCHAR2_TABLE_300
1262 , a30 JTF_VARCHAR2_TABLE_300
1263 , a31 JTF_VARCHAR2_TABLE_300
1264 , a32 JTF_VARCHAR2_TABLE_300
1265 , a33 JTF_VARCHAR2_TABLE_300
1266 , a34 JTF_VARCHAR2_TABLE_300
1267 , a35 JTF_VARCHAR2_TABLE_300
1268 , a36 JTF_VARCHAR2_TABLE_300
1269 , a37 JTF_VARCHAR2_TABLE_300
1270 , a38 JTF_VARCHAR2_TABLE_300
1271 , a39 JTF_VARCHAR2_TABLE_300
1272 , a40 JTF_VARCHAR2_TABLE_300
1273 , a41 JTF_VARCHAR2_TABLE_300
1274 , a42 JTF_VARCHAR2_TABLE_300
1275 , a43 JTF_VARCHAR2_TABLE_300
1276 , a44 JTF_NUMBER_TABLE
1277 , a45 JTF_DATE_TABLE
1278 ) as
1279 ddindx binary_integer; indx binary_integer;
1280 begin
1281 if a0 is not null and a0.count > 0 then
1282 if a0.count > 0 then
1283 indx := a0.first;
1284 ddindx := 1;
1285 while true loop
1286 t(ddindx).header_id := a0(indx);
1287 t(ddindx).batch_id := a1(indx);
1288 t(ddindx).row_id := a2(indx);
1289 t(ddindx).transaction_type := a3(indx);
1290 t(ddindx).safety_association_id := a4(indx);
1291 t(ddindx).source_id := a5(indx);
1292 t(ddindx).target_ref_id := a6(indx);
1293 t(ddindx).association_type := a7(indx);
1294 t(ddindx).effective_from := a8(indx);
1295 t(ddindx).effective_to := a9(indx);
1296 t(ddindx).organization_id := a10(indx);
1297 t(ddindx).enabled := a11(indx);
1298 t(ddindx).comments := a12(indx);
1299 t(ddindx).attribute_category := a13(indx);
1300 t(ddindx).attribute1 := a14(indx);
1301 t(ddindx).attribute2 := a15(indx);
1302 t(ddindx).attribute3 := a16(indx);
1303 t(ddindx).attribute4 := a17(indx);
1304 t(ddindx).attribute5 := a18(indx);
1305 t(ddindx).attribute6 := a19(indx);
1306 t(ddindx).attribute7 := a20(indx);
1307 t(ddindx).attribute8 := a21(indx);
1308 t(ddindx).attribute9 := a22(indx);
1309 t(ddindx).attribute10 := a23(indx);
1310 t(ddindx).attribute11 := a24(indx);
1311 t(ddindx).attribute12 := a25(indx);
1312 t(ddindx).attribute13 := a26(indx);
1313 t(ddindx).attribute14 := a27(indx);
1314 t(ddindx).attribute15 := a28(indx);
1315 t(ddindx).attribute16 := a29(indx);
1316 t(ddindx).attribute17 := a30(indx);
1317 t(ddindx).attribute18 := a31(indx);
1318 t(ddindx).attribute19 := a32(indx);
1319 t(ddindx).attribute20 := a33(indx);
1320 t(ddindx).attribute21 := a34(indx);
1321 t(ddindx).attribute22 := a35(indx);
1322 t(ddindx).attribute23 := a36(indx);
1323 t(ddindx).attribute24 := a37(indx);
1324 t(ddindx).attribute25 := a38(indx);
1325 t(ddindx).attribute26 := a39(indx);
1326 t(ddindx).attribute27 := a40(indx);
1327 t(ddindx).attribute28 := a41(indx);
1328 t(ddindx).attribute29 := a42(indx);
1329 t(ddindx).attribute30 := a43(indx);
1330 t(ddindx).created_by := a44(indx);
1331 t(ddindx).creation_date := a45(indx);
1332 ddindx := ddindx+1;
1333 if a0.last =indx
1334 then exit;
1335 end if;
1336 indx := a0.next(indx);
1337 end loop;
1338 end if;
1339 end if;
1340 end rosetta_table_copy_in_p8;
1341 procedure rosetta_table_copy_out_p8(t eam_process_safety_pub.eam_safety_assoc_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
1342 , a1 out nocopy JTF_NUMBER_TABLE
1343 , a2 out nocopy JTF_NUMBER_TABLE
1344 , a3 out nocopy JTF_NUMBER_TABLE
1345 , a4 out nocopy JTF_NUMBER_TABLE
1346 , a5 out nocopy JTF_NUMBER_TABLE
1347 , a6 out nocopy JTF_NUMBER_TABLE
1348 , a7 out nocopy JTF_NUMBER_TABLE
1349 , a8 out nocopy JTF_DATE_TABLE
1350 , a9 out nocopy JTF_DATE_TABLE
1351 , a10 out nocopy JTF_NUMBER_TABLE
1352 , a11 out nocopy JTF_VARCHAR2_TABLE_100
1353 , a12 out nocopy JTF_VARCHAR2_TABLE_300
1354 , a13 out nocopy JTF_VARCHAR2_TABLE_100
1355 , a14 out nocopy JTF_VARCHAR2_TABLE_300
1356 , a15 out nocopy JTF_VARCHAR2_TABLE_300
1357 , a16 out nocopy JTF_VARCHAR2_TABLE_300
1358 , a17 out nocopy JTF_VARCHAR2_TABLE_300
1359 , a18 out nocopy JTF_VARCHAR2_TABLE_300
1360 , a19 out nocopy JTF_VARCHAR2_TABLE_300
1361 , a20 out nocopy JTF_VARCHAR2_TABLE_300
1362 , a21 out nocopy JTF_VARCHAR2_TABLE_300
1363 , a22 out nocopy JTF_VARCHAR2_TABLE_300
1364 , a23 out nocopy JTF_VARCHAR2_TABLE_300
1365 , a24 out nocopy JTF_VARCHAR2_TABLE_300
1366 , a25 out nocopy JTF_VARCHAR2_TABLE_300
1367 , a26 out nocopy JTF_VARCHAR2_TABLE_300
1368 , a27 out nocopy JTF_VARCHAR2_TABLE_300
1369 , a28 out nocopy JTF_VARCHAR2_TABLE_300
1370 , a29 out nocopy JTF_VARCHAR2_TABLE_300
1371 , a30 out nocopy JTF_VARCHAR2_TABLE_300
1372 , a31 out nocopy JTF_VARCHAR2_TABLE_300
1373 , a32 out nocopy JTF_VARCHAR2_TABLE_300
1374 , a33 out nocopy JTF_VARCHAR2_TABLE_300
1375 , a34 out nocopy JTF_VARCHAR2_TABLE_300
1376 , a35 out nocopy JTF_VARCHAR2_TABLE_300
1377 , a36 out nocopy JTF_VARCHAR2_TABLE_300
1378 , a37 out nocopy JTF_VARCHAR2_TABLE_300
1379 , a38 out nocopy JTF_VARCHAR2_TABLE_300
1383 , a42 out nocopy JTF_VARCHAR2_TABLE_300
1380 , a39 out nocopy JTF_VARCHAR2_TABLE_300
1381 , a40 out nocopy JTF_VARCHAR2_TABLE_300
1382 , a41 out nocopy JTF_VARCHAR2_TABLE_300
1384 , a43 out nocopy JTF_VARCHAR2_TABLE_300
1385 , a44 out nocopy JTF_NUMBER_TABLE
1386 , a45 out nocopy JTF_DATE_TABLE
1387 ) as
1388 ddindx binary_integer; indx binary_integer;
1389 begin
1390 if t is null or t.count = 0 then
1391 a0 := JTF_NUMBER_TABLE();
1392 a1 := JTF_NUMBER_TABLE();
1393 a2 := JTF_NUMBER_TABLE();
1394 a3 := JTF_NUMBER_TABLE();
1395 a4 := JTF_NUMBER_TABLE();
1396 a5 := JTF_NUMBER_TABLE();
1397 a6 := JTF_NUMBER_TABLE();
1398 a7 := JTF_NUMBER_TABLE();
1399 a8 := JTF_DATE_TABLE();
1400 a9 := JTF_DATE_TABLE();
1401 a10 := JTF_NUMBER_TABLE();
1402 a11 := JTF_VARCHAR2_TABLE_100();
1403 a12 := JTF_VARCHAR2_TABLE_300();
1404 a13 := JTF_VARCHAR2_TABLE_100();
1405 a14 := JTF_VARCHAR2_TABLE_300();
1406 a15 := JTF_VARCHAR2_TABLE_300();
1407 a16 := JTF_VARCHAR2_TABLE_300();
1408 a17 := JTF_VARCHAR2_TABLE_300();
1409 a18 := JTF_VARCHAR2_TABLE_300();
1410 a19 := JTF_VARCHAR2_TABLE_300();
1411 a20 := JTF_VARCHAR2_TABLE_300();
1412 a21 := JTF_VARCHAR2_TABLE_300();
1413 a22 := JTF_VARCHAR2_TABLE_300();
1414 a23 := JTF_VARCHAR2_TABLE_300();
1415 a24 := JTF_VARCHAR2_TABLE_300();
1416 a25 := JTF_VARCHAR2_TABLE_300();
1417 a26 := JTF_VARCHAR2_TABLE_300();
1418 a27 := JTF_VARCHAR2_TABLE_300();
1419 a28 := JTF_VARCHAR2_TABLE_300();
1420 a29 := JTF_VARCHAR2_TABLE_300();
1421 a30 := JTF_VARCHAR2_TABLE_300();
1422 a31 := JTF_VARCHAR2_TABLE_300();
1423 a32 := JTF_VARCHAR2_TABLE_300();
1424 a33 := JTF_VARCHAR2_TABLE_300();
1425 a34 := JTF_VARCHAR2_TABLE_300();
1426 a35 := JTF_VARCHAR2_TABLE_300();
1427 a36 := JTF_VARCHAR2_TABLE_300();
1428 a37 := JTF_VARCHAR2_TABLE_300();
1429 a38 := JTF_VARCHAR2_TABLE_300();
1430 a39 := JTF_VARCHAR2_TABLE_300();
1431 a40 := JTF_VARCHAR2_TABLE_300();
1432 a41 := JTF_VARCHAR2_TABLE_300();
1433 a42 := JTF_VARCHAR2_TABLE_300();
1434 a43 := JTF_VARCHAR2_TABLE_300();
1435 a44 := JTF_NUMBER_TABLE();
1436 a45 := JTF_DATE_TABLE();
1437 else
1438 a0 := JTF_NUMBER_TABLE();
1439 a1 := JTF_NUMBER_TABLE();
1440 a2 := JTF_NUMBER_TABLE();
1441 a3 := JTF_NUMBER_TABLE();
1442 a4 := JTF_NUMBER_TABLE();
1443 a5 := JTF_NUMBER_TABLE();
1444 a6 := JTF_NUMBER_TABLE();
1445 a7 := JTF_NUMBER_TABLE();
1446 a8 := JTF_DATE_TABLE();
1447 a9 := JTF_DATE_TABLE();
1448 a10 := JTF_NUMBER_TABLE();
1449 a11 := JTF_VARCHAR2_TABLE_100();
1450 a12 := JTF_VARCHAR2_TABLE_300();
1451 a13 := JTF_VARCHAR2_TABLE_100();
1452 a14 := JTF_VARCHAR2_TABLE_300();
1453 a15 := JTF_VARCHAR2_TABLE_300();
1454 a16 := JTF_VARCHAR2_TABLE_300();
1455 a17 := JTF_VARCHAR2_TABLE_300();
1456 a18 := JTF_VARCHAR2_TABLE_300();
1457 a19 := JTF_VARCHAR2_TABLE_300();
1458 a20 := JTF_VARCHAR2_TABLE_300();
1459 a21 := JTF_VARCHAR2_TABLE_300();
1460 a22 := JTF_VARCHAR2_TABLE_300();
1461 a23 := JTF_VARCHAR2_TABLE_300();
1462 a24 := JTF_VARCHAR2_TABLE_300();
1463 a25 := JTF_VARCHAR2_TABLE_300();
1464 a26 := JTF_VARCHAR2_TABLE_300();
1465 a27 := JTF_VARCHAR2_TABLE_300();
1466 a28 := JTF_VARCHAR2_TABLE_300();
1467 a29 := JTF_VARCHAR2_TABLE_300();
1468 a30 := JTF_VARCHAR2_TABLE_300();
1469 a31 := JTF_VARCHAR2_TABLE_300();
1470 a32 := JTF_VARCHAR2_TABLE_300();
1471 a33 := JTF_VARCHAR2_TABLE_300();
1472 a34 := JTF_VARCHAR2_TABLE_300();
1473 a35 := JTF_VARCHAR2_TABLE_300();
1474 a36 := JTF_VARCHAR2_TABLE_300();
1475 a37 := JTF_VARCHAR2_TABLE_300();
1476 a38 := JTF_VARCHAR2_TABLE_300();
1477 a39 := JTF_VARCHAR2_TABLE_300();
1478 a40 := JTF_VARCHAR2_TABLE_300();
1479 a41 := JTF_VARCHAR2_TABLE_300();
1480 a42 := JTF_VARCHAR2_TABLE_300();
1481 a43 := JTF_VARCHAR2_TABLE_300();
1482 a44 := JTF_NUMBER_TABLE();
1483 a45 := JTF_DATE_TABLE();
1484 if t.count > 0 then
1485 a0.extend(t.count);
1486 a1.extend(t.count);
1487 a2.extend(t.count);
1488 a3.extend(t.count);
1489 a4.extend(t.count);
1490 a5.extend(t.count);
1491 a6.extend(t.count);
1492 a7.extend(t.count);
1493 a8.extend(t.count);
1494 a9.extend(t.count);
1495 a10.extend(t.count);
1496 a11.extend(t.count);
1497 a12.extend(t.count);
1498 a13.extend(t.count);
1499 a14.extend(t.count);
1500 a15.extend(t.count);
1501 a16.extend(t.count);
1502 a17.extend(t.count);
1503 a18.extend(t.count);
1504 a19.extend(t.count);
1505 a20.extend(t.count);
1506 a21.extend(t.count);
1507 a22.extend(t.count);
1508 a23.extend(t.count);
1509 a24.extend(t.count);
1510 a25.extend(t.count);
1511 a26.extend(t.count);
1512 a27.extend(t.count);
1513 a28.extend(t.count);
1514 a29.extend(t.count);
1515 a30.extend(t.count);
1516 a31.extend(t.count);
1517 a32.extend(t.count);
1518 a33.extend(t.count);
1519 a34.extend(t.count);
1520 a35.extend(t.count);
1521 a36.extend(t.count);
1522 a37.extend(t.count);
1523 a38.extend(t.count);
1524 a39.extend(t.count);
1525 a40.extend(t.count);
1526 a41.extend(t.count);
1527 a42.extend(t.count);
1528 a43.extend(t.count);
1529 a44.extend(t.count);
1533 while true loop
1530 a45.extend(t.count);
1531 ddindx := t.first;
1532 indx := 1;
1534 a0(indx) := t(ddindx).header_id;
1535 a1(indx) := t(ddindx).batch_id;
1536 a2(indx) := t(ddindx).row_id;
1537 a3(indx) := t(ddindx).transaction_type;
1538 a4(indx) := t(ddindx).safety_association_id;
1539 a5(indx) := t(ddindx).source_id;
1540 a6(indx) := t(ddindx).target_ref_id;
1541 a7(indx) := t(ddindx).association_type;
1542 a8(indx) := t(ddindx).effective_from;
1543 a9(indx) := t(ddindx).effective_to;
1544 a10(indx) := t(ddindx).organization_id;
1545 a11(indx) := t(ddindx).enabled;
1546 a12(indx) := t(ddindx).comments;
1547 a13(indx) := t(ddindx).attribute_category;
1548 a14(indx) := t(ddindx).attribute1;
1549 a15(indx) := t(ddindx).attribute2;
1550 a16(indx) := t(ddindx).attribute3;
1551 a17(indx) := t(ddindx).attribute4;
1552 a18(indx) := t(ddindx).attribute5;
1553 a19(indx) := t(ddindx).attribute6;
1554 a20(indx) := t(ddindx).attribute7;
1555 a21(indx) := t(ddindx).attribute8;
1556 a22(indx) := t(ddindx).attribute9;
1557 a23(indx) := t(ddindx).attribute10;
1558 a24(indx) := t(ddindx).attribute11;
1559 a25(indx) := t(ddindx).attribute12;
1560 a26(indx) := t(ddindx).attribute13;
1561 a27(indx) := t(ddindx).attribute14;
1562 a28(indx) := t(ddindx).attribute15;
1563 a29(indx) := t(ddindx).attribute16;
1564 a30(indx) := t(ddindx).attribute17;
1565 a31(indx) := t(ddindx).attribute18;
1566 a32(indx) := t(ddindx).attribute19;
1567 a33(indx) := t(ddindx).attribute20;
1568 a34(indx) := t(ddindx).attribute21;
1569 a35(indx) := t(ddindx).attribute22;
1570 a36(indx) := t(ddindx).attribute23;
1571 a37(indx) := t(ddindx).attribute24;
1572 a38(indx) := t(ddindx).attribute25;
1573 a39(indx) := t(ddindx).attribute26;
1574 a40(indx) := t(ddindx).attribute27;
1575 a41(indx) := t(ddindx).attribute28;
1576 a42(indx) := t(ddindx).attribute29;
1577 a43(indx) := t(ddindx).attribute30;
1578 a44(indx) := t(ddindx).created_by;
1579 a45(indx) := t(ddindx).creation_date;
1580 indx := indx+1;
1581 if t.last =ddindx
1582 then exit;
1583 end if;
1584 ddindx := t.next(ddindx);
1585 end loop;
1586 end if;
1587 end if;
1588 end rosetta_table_copy_out_p8;
1589
1590 procedure rosetta_table_copy_in_p9(t out nocopy eam_process_safety_pub.eam_establishment_tbl_type, a0 JTF_NUMBER_TABLE
1591 , a1 JTF_NUMBER_TABLE
1592 , a2 JTF_NUMBER_TABLE
1593 , a3 JTF_NUMBER_TABLE
1594 , a4 JTF_NUMBER_TABLE
1595 , a5 JTF_NUMBER_TABLE
1596 , a6 JTF_NUMBER_TABLE
1597 , a7 JTF_NUMBER_TABLE
1598 , a8 JTF_NUMBER_TABLE
1599 , a9 JTF_VARCHAR2_TABLE_300
1600 , a10 JTF_NUMBER_TABLE
1601 , a11 JTF_NUMBER_TABLE
1602 , a12 JTF_NUMBER_TABLE
1603 , a13 JTF_NUMBER_TABLE
1604 , a14 JTF_NUMBER_TABLE
1605 , a15 JTF_NUMBER_TABLE
1606 , a16 JTF_NUMBER_TABLE
1607 , a17 JTF_NUMBER_TABLE
1608 , a18 JTF_NUMBER_TABLE
1609 , a19 JTF_DATE_TABLE
1610 , a20 JTF_VARCHAR2_TABLE_100
1611 , a21 JTF_VARCHAR2_TABLE_300
1612 , a22 JTF_VARCHAR2_TABLE_300
1613 , a23 JTF_VARCHAR2_TABLE_300
1614 , a24 JTF_VARCHAR2_TABLE_300
1615 , a25 JTF_VARCHAR2_TABLE_300
1616 , a26 JTF_VARCHAR2_TABLE_300
1617 , a27 JTF_VARCHAR2_TABLE_300
1618 , a28 JTF_VARCHAR2_TABLE_300
1619 , a29 JTF_VARCHAR2_TABLE_300
1620 , a30 JTF_VARCHAR2_TABLE_300
1621 , a31 JTF_VARCHAR2_TABLE_300
1622 , a32 JTF_VARCHAR2_TABLE_300
1623 , a33 JTF_VARCHAR2_TABLE_300
1624 , a34 JTF_VARCHAR2_TABLE_300
1625 , a35 JTF_VARCHAR2_TABLE_300
1626 , a36 JTF_VARCHAR2_TABLE_300
1627 , a37 JTF_VARCHAR2_TABLE_300
1628 , a38 JTF_VARCHAR2_TABLE_300
1629 , a39 JTF_VARCHAR2_TABLE_300
1630 , a40 JTF_VARCHAR2_TABLE_300
1631 , a41 JTF_VARCHAR2_TABLE_300
1632 , a42 JTF_VARCHAR2_TABLE_300
1633 , a43 JTF_VARCHAR2_TABLE_300
1634 , a44 JTF_VARCHAR2_TABLE_300
1635 , a45 JTF_VARCHAR2_TABLE_300
1636 , a46 JTF_VARCHAR2_TABLE_300
1637 , a47 JTF_VARCHAR2_TABLE_300
1638 , a48 JTF_VARCHAR2_TABLE_300
1639 , a49 JTF_VARCHAR2_TABLE_300
1640 , a50 JTF_VARCHAR2_TABLE_300
1641 , a51 JTF_NUMBER_TABLE
1642 , a52 JTF_DATE_TABLE
1643 ) as
1644 ddindx binary_integer; indx binary_integer;
1645 begin
1646 if a0 is not null and a0.count > 0 then
1647 if a0.count > 0 then
1648 indx := a0.first;
1649 ddindx := 1;
1650 while true loop
1651 t(ddindx).header_id := a0(indx);
1652 t(ddindx).batch_id := a1(indx);
1653 t(ddindx).row_id := a2(indx);
1654 t(ddindx).establishment_id := a3(indx);
1655 t(ddindx).establishment_source := a4(indx);
1656 t(ddindx).establishment_source_id := a5(indx);
1657 t(ddindx).sequence_type := a6(indx);
1658 t(ddindx).sequence_number := a7(indx);
1659 t(ddindx).organization_id := a8(indx);
1660 t(ddindx).description := a9(indx);
1661 t(ddindx).maintenance_object_id := a10(indx);
1662 t(ddindx).tag_position := a11(indx);
1663 t(ddindx).safety_tag := a12(indx);
1664 t(ddindx).lockout_device := a13(indx);
1665 t(ddindx).transaction_type := a14(indx);
1666 t(ddindx).dept_id := a15(indx);
1667 t(ddindx).resource_id := a16(indx);
1668 t(ddindx).res_instance_id := a17(indx);
1672 t(ddindx).attribute1 := a21(indx);
1669 t(ddindx).lock_number := a18(indx);
1670 t(ddindx).completion_date := a19(indx);
1671 t(ddindx).attribute_category := a20(indx);
1673 t(ddindx).attribute2 := a22(indx);
1674 t(ddindx).attribute3 := a23(indx);
1675 t(ddindx).attribute4 := a24(indx);
1676 t(ddindx).attribute5 := a25(indx);
1677 t(ddindx).attribute6 := a26(indx);
1678 t(ddindx).attribute7 := a27(indx);
1679 t(ddindx).attribute8 := a28(indx);
1680 t(ddindx).attribute9 := a29(indx);
1681 t(ddindx).attribute10 := a30(indx);
1682 t(ddindx).attribute11 := a31(indx);
1683 t(ddindx).attribute12 := a32(indx);
1684 t(ddindx).attribute13 := a33(indx);
1685 t(ddindx).attribute14 := a34(indx);
1686 t(ddindx).attribute15 := a35(indx);
1687 t(ddindx).attribute16 := a36(indx);
1688 t(ddindx).attribute17 := a37(indx);
1689 t(ddindx).attribute18 := a38(indx);
1690 t(ddindx).attribute19 := a39(indx);
1691 t(ddindx).attribute20 := a40(indx);
1692 t(ddindx).attribute21 := a41(indx);
1693 t(ddindx).attribute22 := a42(indx);
1694 t(ddindx).attribute23 := a43(indx);
1695 t(ddindx).attribute24 := a44(indx);
1696 t(ddindx).attribute25 := a45(indx);
1697 t(ddindx).attribute26 := a46(indx);
1698 t(ddindx).attribute27 := a47(indx);
1699 t(ddindx).attribute28 := a48(indx);
1700 t(ddindx).attribute29 := a49(indx);
1701 t(ddindx).attribute30 := a50(indx);
1702 t(ddindx).created_by := a51(indx);
1703 t(ddindx).creation_date := a52(indx);
1704 ddindx := ddindx+1;
1705 if a0.last =indx
1706 then exit;
1707 end if;
1708 indx := a0.next(indx);
1709 end loop;
1710 end if;
1711 end if;
1712 end rosetta_table_copy_in_p9;
1713 procedure rosetta_table_copy_out_p9(t eam_process_safety_pub.eam_establishment_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
1714 , a1 out nocopy JTF_NUMBER_TABLE
1715 , a2 out nocopy JTF_NUMBER_TABLE
1716 , a3 out nocopy JTF_NUMBER_TABLE
1717 , a4 out nocopy JTF_NUMBER_TABLE
1718 , a5 out nocopy JTF_NUMBER_TABLE
1719 , a6 out nocopy JTF_NUMBER_TABLE
1720 , a7 out nocopy JTF_NUMBER_TABLE
1721 , a8 out nocopy JTF_NUMBER_TABLE
1722 , a9 out nocopy JTF_VARCHAR2_TABLE_300
1723 , a10 out nocopy JTF_NUMBER_TABLE
1724 , a11 out nocopy JTF_NUMBER_TABLE
1725 , a12 out nocopy JTF_NUMBER_TABLE
1726 , a13 out nocopy JTF_NUMBER_TABLE
1727 , a14 out nocopy JTF_NUMBER_TABLE
1728 , a15 out nocopy JTF_NUMBER_TABLE
1729 , a16 out nocopy JTF_NUMBER_TABLE
1730 , a17 out nocopy JTF_NUMBER_TABLE
1731 , a18 out nocopy JTF_NUMBER_TABLE
1732 , a19 out nocopy JTF_DATE_TABLE
1733 , a20 out nocopy JTF_VARCHAR2_TABLE_100
1734 , a21 out nocopy JTF_VARCHAR2_TABLE_300
1735 , a22 out nocopy JTF_VARCHAR2_TABLE_300
1736 , a23 out nocopy JTF_VARCHAR2_TABLE_300
1737 , a24 out nocopy JTF_VARCHAR2_TABLE_300
1738 , a25 out nocopy JTF_VARCHAR2_TABLE_300
1739 , a26 out nocopy JTF_VARCHAR2_TABLE_300
1740 , a27 out nocopy JTF_VARCHAR2_TABLE_300
1741 , a28 out nocopy JTF_VARCHAR2_TABLE_300
1742 , a29 out nocopy JTF_VARCHAR2_TABLE_300
1743 , a30 out nocopy JTF_VARCHAR2_TABLE_300
1744 , a31 out nocopy JTF_VARCHAR2_TABLE_300
1745 , a32 out nocopy JTF_VARCHAR2_TABLE_300
1746 , a33 out nocopy JTF_VARCHAR2_TABLE_300
1747 , a34 out nocopy JTF_VARCHAR2_TABLE_300
1748 , a35 out nocopy JTF_VARCHAR2_TABLE_300
1749 , a36 out nocopy JTF_VARCHAR2_TABLE_300
1750 , a37 out nocopy JTF_VARCHAR2_TABLE_300
1751 , a38 out nocopy JTF_VARCHAR2_TABLE_300
1752 , a39 out nocopy JTF_VARCHAR2_TABLE_300
1753 , a40 out nocopy JTF_VARCHAR2_TABLE_300
1754 , a41 out nocopy JTF_VARCHAR2_TABLE_300
1755 , a42 out nocopy JTF_VARCHAR2_TABLE_300
1756 , a43 out nocopy JTF_VARCHAR2_TABLE_300
1757 , a44 out nocopy JTF_VARCHAR2_TABLE_300
1758 , a45 out nocopy JTF_VARCHAR2_TABLE_300
1759 , a46 out nocopy JTF_VARCHAR2_TABLE_300
1760 , a47 out nocopy JTF_VARCHAR2_TABLE_300
1761 , a48 out nocopy JTF_VARCHAR2_TABLE_300
1762 , a49 out nocopy JTF_VARCHAR2_TABLE_300
1763 , a50 out nocopy JTF_VARCHAR2_TABLE_300
1764 , a51 out nocopy JTF_NUMBER_TABLE
1765 , a52 out nocopy JTF_DATE_TABLE
1766 ) as
1767 ddindx binary_integer; indx binary_integer;
1768 begin
1769 if t is null or t.count = 0 then
1770 a0 := JTF_NUMBER_TABLE();
1771 a1 := JTF_NUMBER_TABLE();
1772 a2 := JTF_NUMBER_TABLE();
1773 a3 := JTF_NUMBER_TABLE();
1774 a4 := JTF_NUMBER_TABLE();
1775 a5 := JTF_NUMBER_TABLE();
1776 a6 := JTF_NUMBER_TABLE();
1777 a7 := JTF_NUMBER_TABLE();
1778 a8 := JTF_NUMBER_TABLE();
1779 a9 := JTF_VARCHAR2_TABLE_300();
1780 a10 := JTF_NUMBER_TABLE();
1781 a11 := JTF_NUMBER_TABLE();
1782 a12 := JTF_NUMBER_TABLE();
1783 a13 := JTF_NUMBER_TABLE();
1784 a14 := JTF_NUMBER_TABLE();
1785 a15 := JTF_NUMBER_TABLE();
1786 a16 := JTF_NUMBER_TABLE();
1787 a17 := JTF_NUMBER_TABLE();
1788 a18 := JTF_NUMBER_TABLE();
1789 a19 := JTF_DATE_TABLE();
1790 a20 := JTF_VARCHAR2_TABLE_100();
1791 a21 := JTF_VARCHAR2_TABLE_300();
1792 a22 := JTF_VARCHAR2_TABLE_300();
1793 a23 := JTF_VARCHAR2_TABLE_300();
1794 a24 := JTF_VARCHAR2_TABLE_300();
1795 a25 := JTF_VARCHAR2_TABLE_300();
1796 a26 := JTF_VARCHAR2_TABLE_300();
1797 a27 := JTF_VARCHAR2_TABLE_300();
1798 a28 := JTF_VARCHAR2_TABLE_300();
1799 a29 := JTF_VARCHAR2_TABLE_300();
1800 a30 := JTF_VARCHAR2_TABLE_300();
1801 a31 := JTF_VARCHAR2_TABLE_300();
1805 a35 := JTF_VARCHAR2_TABLE_300();
1802 a32 := JTF_VARCHAR2_TABLE_300();
1803 a33 := JTF_VARCHAR2_TABLE_300();
1804 a34 := JTF_VARCHAR2_TABLE_300();
1806 a36 := JTF_VARCHAR2_TABLE_300();
1807 a37 := JTF_VARCHAR2_TABLE_300();
1808 a38 := JTF_VARCHAR2_TABLE_300();
1809 a39 := JTF_VARCHAR2_TABLE_300();
1810 a40 := JTF_VARCHAR2_TABLE_300();
1811 a41 := JTF_VARCHAR2_TABLE_300();
1812 a42 := JTF_VARCHAR2_TABLE_300();
1813 a43 := JTF_VARCHAR2_TABLE_300();
1814 a44 := JTF_VARCHAR2_TABLE_300();
1815 a45 := JTF_VARCHAR2_TABLE_300();
1816 a46 := JTF_VARCHAR2_TABLE_300();
1817 a47 := JTF_VARCHAR2_TABLE_300();
1818 a48 := JTF_VARCHAR2_TABLE_300();
1819 a49 := JTF_VARCHAR2_TABLE_300();
1820 a50 := JTF_VARCHAR2_TABLE_300();
1821 a51 := JTF_NUMBER_TABLE();
1822 a52 := JTF_DATE_TABLE();
1823 else
1824 a0 := JTF_NUMBER_TABLE();
1825 a1 := JTF_NUMBER_TABLE();
1826 a2 := JTF_NUMBER_TABLE();
1827 a3 := JTF_NUMBER_TABLE();
1828 a4 := JTF_NUMBER_TABLE();
1829 a5 := JTF_NUMBER_TABLE();
1830 a6 := JTF_NUMBER_TABLE();
1831 a7 := JTF_NUMBER_TABLE();
1832 a8 := JTF_NUMBER_TABLE();
1833 a9 := JTF_VARCHAR2_TABLE_300();
1834 a10 := JTF_NUMBER_TABLE();
1835 a11 := JTF_NUMBER_TABLE();
1836 a12 := JTF_NUMBER_TABLE();
1837 a13 := JTF_NUMBER_TABLE();
1838 a14 := JTF_NUMBER_TABLE();
1839 a15 := JTF_NUMBER_TABLE();
1840 a16 := JTF_NUMBER_TABLE();
1841 a17 := JTF_NUMBER_TABLE();
1842 a18 := JTF_NUMBER_TABLE();
1843 a19 := JTF_DATE_TABLE();
1844 a20 := JTF_VARCHAR2_TABLE_100();
1845 a21 := JTF_VARCHAR2_TABLE_300();
1846 a22 := JTF_VARCHAR2_TABLE_300();
1847 a23 := JTF_VARCHAR2_TABLE_300();
1848 a24 := JTF_VARCHAR2_TABLE_300();
1849 a25 := JTF_VARCHAR2_TABLE_300();
1850 a26 := JTF_VARCHAR2_TABLE_300();
1851 a27 := JTF_VARCHAR2_TABLE_300();
1852 a28 := JTF_VARCHAR2_TABLE_300();
1853 a29 := JTF_VARCHAR2_TABLE_300();
1854 a30 := JTF_VARCHAR2_TABLE_300();
1855 a31 := JTF_VARCHAR2_TABLE_300();
1856 a32 := JTF_VARCHAR2_TABLE_300();
1857 a33 := JTF_VARCHAR2_TABLE_300();
1858 a34 := JTF_VARCHAR2_TABLE_300();
1859 a35 := JTF_VARCHAR2_TABLE_300();
1860 a36 := JTF_VARCHAR2_TABLE_300();
1861 a37 := JTF_VARCHAR2_TABLE_300();
1862 a38 := JTF_VARCHAR2_TABLE_300();
1863 a39 := JTF_VARCHAR2_TABLE_300();
1864 a40 := JTF_VARCHAR2_TABLE_300();
1865 a41 := JTF_VARCHAR2_TABLE_300();
1866 a42 := JTF_VARCHAR2_TABLE_300();
1867 a43 := JTF_VARCHAR2_TABLE_300();
1868 a44 := JTF_VARCHAR2_TABLE_300();
1869 a45 := JTF_VARCHAR2_TABLE_300();
1870 a46 := JTF_VARCHAR2_TABLE_300();
1871 a47 := JTF_VARCHAR2_TABLE_300();
1872 a48 := JTF_VARCHAR2_TABLE_300();
1873 a49 := JTF_VARCHAR2_TABLE_300();
1874 a50 := JTF_VARCHAR2_TABLE_300();
1875 a51 := JTF_NUMBER_TABLE();
1876 a52 := JTF_DATE_TABLE();
1877 if t.count > 0 then
1878 a0.extend(t.count);
1879 a1.extend(t.count);
1880 a2.extend(t.count);
1881 a3.extend(t.count);
1882 a4.extend(t.count);
1883 a5.extend(t.count);
1884 a6.extend(t.count);
1885 a7.extend(t.count);
1886 a8.extend(t.count);
1887 a9.extend(t.count);
1888 a10.extend(t.count);
1889 a11.extend(t.count);
1890 a12.extend(t.count);
1891 a13.extend(t.count);
1892 a14.extend(t.count);
1893 a15.extend(t.count);
1894 a16.extend(t.count);
1895 a17.extend(t.count);
1896 a18.extend(t.count);
1897 a19.extend(t.count);
1898 a20.extend(t.count);
1899 a21.extend(t.count);
1900 a22.extend(t.count);
1901 a23.extend(t.count);
1902 a24.extend(t.count);
1903 a25.extend(t.count);
1904 a26.extend(t.count);
1905 a27.extend(t.count);
1906 a28.extend(t.count);
1907 a29.extend(t.count);
1908 a30.extend(t.count);
1909 a31.extend(t.count);
1910 a32.extend(t.count);
1911 a33.extend(t.count);
1912 a34.extend(t.count);
1913 a35.extend(t.count);
1914 a36.extend(t.count);
1915 a37.extend(t.count);
1916 a38.extend(t.count);
1917 a39.extend(t.count);
1918 a40.extend(t.count);
1919 a41.extend(t.count);
1920 a42.extend(t.count);
1921 a43.extend(t.count);
1922 a44.extend(t.count);
1923 a45.extend(t.count);
1924 a46.extend(t.count);
1925 a47.extend(t.count);
1926 a48.extend(t.count);
1927 a49.extend(t.count);
1928 a50.extend(t.count);
1929 a51.extend(t.count);
1930 a52.extend(t.count);
1931 ddindx := t.first;
1932 indx := 1;
1933 while true loop
1934 a0(indx) := t(ddindx).header_id;
1935 a1(indx) := t(ddindx).batch_id;
1936 a2(indx) := t(ddindx).row_id;
1937 a3(indx) := t(ddindx).establishment_id;
1938 a4(indx) := t(ddindx).establishment_source;
1939 a5(indx) := t(ddindx).establishment_source_id;
1940 a6(indx) := t(ddindx).sequence_type;
1941 a7(indx) := t(ddindx).sequence_number;
1942 a8(indx) := t(ddindx).organization_id;
1943 a9(indx) := t(ddindx).description;
1944 a10(indx) := t(ddindx).maintenance_object_id;
1945 a11(indx) := t(ddindx).tag_position;
1946 a12(indx) := t(ddindx).safety_tag;
1947 a13(indx) := t(ddindx).lockout_device;
1948 a14(indx) := t(ddindx).transaction_type;
1952 a18(indx) := t(ddindx).lock_number;
1949 a15(indx) := t(ddindx).dept_id;
1950 a16(indx) := t(ddindx).resource_id;
1951 a17(indx) := t(ddindx).res_instance_id;
1953 a19(indx) := t(ddindx).completion_date;
1954 a20(indx) := t(ddindx).attribute_category;
1955 a21(indx) := t(ddindx).attribute1;
1956 a22(indx) := t(ddindx).attribute2;
1957 a23(indx) := t(ddindx).attribute3;
1958 a24(indx) := t(ddindx).attribute4;
1959 a25(indx) := t(ddindx).attribute5;
1960 a26(indx) := t(ddindx).attribute6;
1961 a27(indx) := t(ddindx).attribute7;
1962 a28(indx) := t(ddindx).attribute8;
1963 a29(indx) := t(ddindx).attribute9;
1964 a30(indx) := t(ddindx).attribute10;
1965 a31(indx) := t(ddindx).attribute11;
1966 a32(indx) := t(ddindx).attribute12;
1967 a33(indx) := t(ddindx).attribute13;
1968 a34(indx) := t(ddindx).attribute14;
1969 a35(indx) := t(ddindx).attribute15;
1970 a36(indx) := t(ddindx).attribute16;
1971 a37(indx) := t(ddindx).attribute17;
1972 a38(indx) := t(ddindx).attribute18;
1973 a39(indx) := t(ddindx).attribute19;
1974 a40(indx) := t(ddindx).attribute20;
1975 a41(indx) := t(ddindx).attribute21;
1976 a42(indx) := t(ddindx).attribute22;
1977 a43(indx) := t(ddindx).attribute23;
1978 a44(indx) := t(ddindx).attribute24;
1979 a45(indx) := t(ddindx).attribute25;
1980 a46(indx) := t(ddindx).attribute26;
1981 a47(indx) := t(ddindx).attribute27;
1982 a48(indx) := t(ddindx).attribute28;
1983 a49(indx) := t(ddindx).attribute29;
1984 a50(indx) := t(ddindx).attribute30;
1985 a51(indx) := t(ddindx).created_by;
1986 a52(indx) := t(ddindx).creation_date;
1987 indx := indx+1;
1988 if t.last =ddindx
1989 then exit;
1990 end if;
1991 ddindx := t.next(ddindx);
1992 end loop;
1993 end if;
1994 end if;
1995 end rosetta_table_copy_out_p9;
1996
1997 procedure process_isolation(p_bo_identifier VARCHAR2
1998 , p_api_version_number NUMBER
1999 , p_init_msg_list number
2000 , p_commit VARCHAR2
2001 , p4_a0 NUMBER
2002 , p4_a1 NUMBER
2003 , p4_a2 NUMBER
2004 , p4_a3 NUMBER
2005 , p4_a4 NUMBER
2006 , p4_a5 VARCHAR2
2007 , p4_a6 VARCHAR2
2008 , p4_a7 NUMBER
2009 , p4_a8 NUMBER
2010 , p4_a9 NUMBER
2011 , p4_a10 NUMBER
2012 , p4_a11 VARCHAR2
2013 , p4_a12 DATE
2014 , p4_a13 DATE
2015 , p4_a14 NUMBER
2016 , p4_a15 NUMBER
2017 , p4_a16 VARCHAR2
2018 , p4_a17 VARCHAR2
2019 , p4_a18 VARCHAR2
2020 , p4_a19 VARCHAR2
2021 , p4_a20 VARCHAR2
2022 , p4_a21 VARCHAR2
2023 , p4_a22 VARCHAR2
2024 , p4_a23 VARCHAR2
2025 , p4_a24 VARCHAR2
2026 , p4_a25 VARCHAR2
2027 , p4_a26 VARCHAR2
2028 , p4_a27 VARCHAR2
2029 , p4_a28 VARCHAR2
2030 , p4_a29 VARCHAR2
2031 , p4_a30 VARCHAR2
2032 , p4_a31 VARCHAR2
2033 , p4_a32 VARCHAR2
2034 , p4_a33 VARCHAR2
2035 , p4_a34 VARCHAR2
2036 , p4_a35 VARCHAR2
2037 , p4_a36 VARCHAR2
2038 , p4_a37 VARCHAR2
2039 , p4_a38 VARCHAR2
2040 , p4_a39 VARCHAR2
2041 , p4_a40 VARCHAR2
2042 , p4_a41 VARCHAR2
2043 , p4_a42 VARCHAR2
2044 , p4_a43 VARCHAR2
2045 , p4_a44 VARCHAR2
2046 , p4_a45 VARCHAR2
2047 , p4_a46 VARCHAR2
2048 , p4_a47 NUMBER
2049 , p4_a48 VARCHAR2
2050 , p4_a49 NUMBER
2051 , p4_a50 DATE
2052 , p4_a51 NUMBER
2053 , p4_a52 NUMBER
2054 , p5_a0 JTF_NUMBER_TABLE
2055 , p5_a1 JTF_NUMBER_TABLE
2056 , p5_a2 JTF_NUMBER_TABLE
2057 , p5_a3 JTF_NUMBER_TABLE
2058 , p5_a4 JTF_NUMBER_TABLE
2059 , p5_a5 JTF_NUMBER_TABLE
2060 , p5_a6 JTF_NUMBER_TABLE
2061 , p5_a7 JTF_NUMBER_TABLE
2062 , p5_a8 JTF_NUMBER_TABLE
2063 , p5_a9 JTF_VARCHAR2_TABLE_300
2064 , p5_a10 JTF_NUMBER_TABLE
2065 , p5_a11 JTF_NUMBER_TABLE
2066 , p5_a12 JTF_NUMBER_TABLE
2067 , p5_a13 JTF_NUMBER_TABLE
2068 , p5_a14 JTF_NUMBER_TABLE
2069 , p5_a15 JTF_NUMBER_TABLE
2070 , p5_a16 JTF_NUMBER_TABLE
2071 , p5_a17 JTF_NUMBER_TABLE
2072 , p5_a18 JTF_NUMBER_TABLE
2073 , p5_a19 JTF_DATE_TABLE
2074 , p5_a20 JTF_VARCHAR2_TABLE_100
2075 , p5_a21 JTF_VARCHAR2_TABLE_300
2076 , p5_a22 JTF_VARCHAR2_TABLE_300
2077 , p5_a23 JTF_VARCHAR2_TABLE_300
2078 , p5_a24 JTF_VARCHAR2_TABLE_300
2079 , p5_a25 JTF_VARCHAR2_TABLE_300
2080 , p5_a26 JTF_VARCHAR2_TABLE_300
2081 , p5_a27 JTF_VARCHAR2_TABLE_300
2082 , p5_a28 JTF_VARCHAR2_TABLE_300
2083 , p5_a29 JTF_VARCHAR2_TABLE_300
2084 , p5_a30 JTF_VARCHAR2_TABLE_300
2085 , p5_a31 JTF_VARCHAR2_TABLE_300
2086 , p5_a32 JTF_VARCHAR2_TABLE_300
2087 , p5_a33 JTF_VARCHAR2_TABLE_300
2088 , p5_a34 JTF_VARCHAR2_TABLE_300
2089 , p5_a35 JTF_VARCHAR2_TABLE_300
2090 , p5_a36 JTF_VARCHAR2_TABLE_300
2091 , p5_a37 JTF_VARCHAR2_TABLE_300
2092 , p5_a38 JTF_VARCHAR2_TABLE_300
2093 , p5_a39 JTF_VARCHAR2_TABLE_300
2094 , p5_a40 JTF_VARCHAR2_TABLE_300
2095 , p5_a41 JTF_VARCHAR2_TABLE_300
2096 , p5_a42 JTF_VARCHAR2_TABLE_300
2097 , p5_a43 JTF_VARCHAR2_TABLE_300
2098 , p5_a44 JTF_VARCHAR2_TABLE_300
2099 , p5_a45 JTF_VARCHAR2_TABLE_300
2100 , p5_a46 JTF_VARCHAR2_TABLE_300
2101 , p5_a47 JTF_VARCHAR2_TABLE_300
2102 , p5_a48 JTF_VARCHAR2_TABLE_300
2103 , p5_a49 JTF_VARCHAR2_TABLE_300
2107 , p6_a0 JTF_NUMBER_TABLE
2104 , p5_a50 JTF_VARCHAR2_TABLE_300
2105 , p5_a51 JTF_NUMBER_TABLE
2106 , p5_a52 JTF_DATE_TABLE
2108 , p6_a1 JTF_NUMBER_TABLE
2109 , p6_a2 JTF_NUMBER_TABLE
2110 , p6_a3 JTF_NUMBER_TABLE
2111 , p6_a4 JTF_NUMBER_TABLE
2112 , p6_a5 JTF_NUMBER_TABLE
2113 , p6_a6 JTF_NUMBER_TABLE
2114 , p6_a7 JTF_NUMBER_TABLE
2115 , p6_a8 JTF_NUMBER_TABLE
2116 , p6_a9 JTF_VARCHAR2_TABLE_300
2117 , p6_a10 JTF_NUMBER_TABLE
2118 , p6_a11 JTF_NUMBER_TABLE
2119 , p6_a12 JTF_NUMBER_TABLE
2120 , p6_a13 JTF_NUMBER_TABLE
2121 , p6_a14 JTF_NUMBER_TABLE
2122 , p6_a15 JTF_NUMBER_TABLE
2123 , p6_a16 JTF_NUMBER_TABLE
2124 , p6_a17 JTF_NUMBER_TABLE
2125 , p6_a18 JTF_NUMBER_TABLE
2126 , p6_a19 JTF_DATE_TABLE
2127 , p6_a20 JTF_VARCHAR2_TABLE_100
2128 , p6_a21 JTF_VARCHAR2_TABLE_300
2129 , p6_a22 JTF_VARCHAR2_TABLE_300
2130 , p6_a23 JTF_VARCHAR2_TABLE_300
2131 , p6_a24 JTF_VARCHAR2_TABLE_300
2132 , p6_a25 JTF_VARCHAR2_TABLE_300
2133 , p6_a26 JTF_VARCHAR2_TABLE_300
2134 , p6_a27 JTF_VARCHAR2_TABLE_300
2135 , p6_a28 JTF_VARCHAR2_TABLE_300
2136 , p6_a29 JTF_VARCHAR2_TABLE_300
2137 , p6_a30 JTF_VARCHAR2_TABLE_300
2138 , p6_a31 JTF_VARCHAR2_TABLE_300
2139 , p6_a32 JTF_VARCHAR2_TABLE_300
2140 , p6_a33 JTF_VARCHAR2_TABLE_300
2141 , p6_a34 JTF_VARCHAR2_TABLE_300
2142 , p6_a35 JTF_VARCHAR2_TABLE_300
2143 , p6_a36 JTF_VARCHAR2_TABLE_300
2144 , p6_a37 JTF_VARCHAR2_TABLE_300
2145 , p6_a38 JTF_VARCHAR2_TABLE_300
2146 , p6_a39 JTF_VARCHAR2_TABLE_300
2147 , p6_a40 JTF_VARCHAR2_TABLE_300
2148 , p6_a41 JTF_VARCHAR2_TABLE_300
2149 , p6_a42 JTF_VARCHAR2_TABLE_300
2150 , p6_a43 JTF_VARCHAR2_TABLE_300
2151 , p6_a44 JTF_VARCHAR2_TABLE_300
2152 , p6_a45 JTF_VARCHAR2_TABLE_300
2153 , p6_a46 JTF_VARCHAR2_TABLE_300
2154 , p6_a47 JTF_VARCHAR2_TABLE_300
2155 , p6_a48 JTF_VARCHAR2_TABLE_300
2156 , p6_a49 JTF_VARCHAR2_TABLE_300
2157 , p6_a50 JTF_VARCHAR2_TABLE_300
2158 , p6_a51 JTF_NUMBER_TABLE
2159 , p6_a52 JTF_DATE_TABLE
2160 , p7_a0 JTF_NUMBER_TABLE
2161 , p7_a1 JTF_NUMBER_TABLE
2162 , p7_a2 JTF_NUMBER_TABLE
2163 , p7_a3 JTF_NUMBER_TABLE
2164 , p7_a4 JTF_NUMBER_TABLE
2165 , p7_a5 JTF_NUMBER_TABLE
2166 , p7_a6 JTF_NUMBER_TABLE
2167 , p7_a7 JTF_NUMBER_TABLE
2168 , p7_a8 JTF_DATE_TABLE
2169 , p7_a9 JTF_DATE_TABLE
2170 , p7_a10 JTF_NUMBER_TABLE
2171 , p7_a11 JTF_VARCHAR2_TABLE_100
2172 , p7_a12 JTF_VARCHAR2_TABLE_300
2173 , p7_a13 JTF_VARCHAR2_TABLE_100
2174 , p7_a14 JTF_VARCHAR2_TABLE_300
2175 , p7_a15 JTF_VARCHAR2_TABLE_300
2176 , p7_a16 JTF_VARCHAR2_TABLE_300
2177 , p7_a17 JTF_VARCHAR2_TABLE_300
2178 , p7_a18 JTF_VARCHAR2_TABLE_300
2179 , p7_a19 JTF_VARCHAR2_TABLE_300
2180 , p7_a20 JTF_VARCHAR2_TABLE_300
2181 , p7_a21 JTF_VARCHAR2_TABLE_300
2182 , p7_a22 JTF_VARCHAR2_TABLE_300
2183 , p7_a23 JTF_VARCHAR2_TABLE_300
2184 , p7_a24 JTF_VARCHAR2_TABLE_300
2185 , p7_a25 JTF_VARCHAR2_TABLE_300
2186 , p7_a26 JTF_VARCHAR2_TABLE_300
2187 , p7_a27 JTF_VARCHAR2_TABLE_300
2188 , p7_a28 JTF_VARCHAR2_TABLE_300
2189 , p7_a29 JTF_VARCHAR2_TABLE_300
2190 , p7_a30 JTF_VARCHAR2_TABLE_300
2191 , p7_a31 JTF_VARCHAR2_TABLE_300
2192 , p7_a32 JTF_VARCHAR2_TABLE_300
2193 , p7_a33 JTF_VARCHAR2_TABLE_300
2194 , p7_a34 JTF_VARCHAR2_TABLE_300
2195 , p7_a35 JTF_VARCHAR2_TABLE_300
2196 , p7_a36 JTF_VARCHAR2_TABLE_300
2197 , p7_a37 JTF_VARCHAR2_TABLE_300
2198 , p7_a38 JTF_VARCHAR2_TABLE_300
2199 , p7_a39 JTF_VARCHAR2_TABLE_300
2200 , p7_a40 JTF_VARCHAR2_TABLE_300
2201 , p7_a41 JTF_VARCHAR2_TABLE_300
2202 , p7_a42 JTF_VARCHAR2_TABLE_300
2203 , p7_a43 JTF_VARCHAR2_TABLE_300
2204 , p7_a44 JTF_NUMBER_TABLE
2205 , p7_a45 JTF_DATE_TABLE
2206 , p_debug VARCHAR2
2207 , p_output_dir VARCHAR2
2208 , p_debug_filename VARCHAR2
2209 , p_debug_file_mode VARCHAR2
2210 , x_isolation_id out nocopy NUMBER
2211 , x_return_status out nocopy VARCHAR2
2212 , x_msg_count out nocopy NUMBER
2213 )
2214
2215 as
2216 ddp_init_msg_list boolean;
2217 ddp_iso_header_rec eam_process_safety_pub.eam_iso_header_rec_type;
2218 ddp_establish_iso_tbl eam_process_safety_pub.eam_establishment_tbl_type;
2219 ddp_re_establish_iso_tbl eam_process_safety_pub.eam_establishment_tbl_type;
2220 ddp_isolated_asset_tbl eam_process_safety_pub.eam_safety_assoc_tbl_type;
2221 ddindx binary_integer; indx binary_integer;
2222 begin
2223
2224 -- copy data to the local IN or IN-OUT args, if any
2225
2226
2227 if p_init_msg_list is null
2228 then ddp_init_msg_list := null;
2229 elsif p_init_msg_list = 0
2230 then ddp_init_msg_list := false;
2231 else ddp_init_msg_list := true;
2232 end if;
2233
2234
2235 ddp_iso_header_rec.header_id := p4_a0;
2236 ddp_iso_header_rec.batch_id := p4_a1;
2237 ddp_iso_header_rec.row_id := p4_a2;
2238 ddp_iso_header_rec.transaction_type := p4_a3;
2239 ddp_iso_header_rec.isolation_id := p4_a4;
2240 ddp_iso_header_rec.isolation_name := p4_a5;
2241 ddp_iso_header_rec.description := p4_a6;
2242 ddp_iso_header_rec.organization_id := p4_a7;
2243 ddp_iso_header_rec.isolation_type := p4_a8;
2244 ddp_iso_header_rec.system_status := p4_a9;
2245 ddp_iso_header_rec.user_defined_status := p4_a10;
2246 ddp_iso_header_rec.pending_flag := p4_a11;
2247 ddp_iso_header_rec.effective_start_date := p4_a12;
2248 ddp_iso_header_rec.effective_end_date := p4_a13;
2249 ddp_iso_header_rec.copy_from_isolation := p4_a14;
2253 ddp_iso_header_rec.attribute2 := p4_a18;
2250 ddp_iso_header_rec.copy_from_work_clearance := p4_a15;
2251 ddp_iso_header_rec.attribute_category := p4_a16;
2252 ddp_iso_header_rec.attribute1 := p4_a17;
2254 ddp_iso_header_rec.attribute3 := p4_a19;
2255 ddp_iso_header_rec.attribute4 := p4_a20;
2256 ddp_iso_header_rec.attribute5 := p4_a21;
2257 ddp_iso_header_rec.attribute6 := p4_a22;
2258 ddp_iso_header_rec.attribute7 := p4_a23;
2259 ddp_iso_header_rec.attribute8 := p4_a24;
2260 ddp_iso_header_rec.attribute9 := p4_a25;
2261 ddp_iso_header_rec.attribute10 := p4_a26;
2262 ddp_iso_header_rec.attribute11 := p4_a27;
2263 ddp_iso_header_rec.attribute12 := p4_a28;
2264 ddp_iso_header_rec.attribute13 := p4_a29;
2265 ddp_iso_header_rec.attribute14 := p4_a30;
2266 ddp_iso_header_rec.attribute15 := p4_a31;
2267 ddp_iso_header_rec.attribute16 := p4_a32;
2268 ddp_iso_header_rec.attribute17 := p4_a33;
2269 ddp_iso_header_rec.attribute18 := p4_a34;
2270 ddp_iso_header_rec.attribute19 := p4_a35;
2271 ddp_iso_header_rec.attribute20 := p4_a36;
2272 ddp_iso_header_rec.attribute21 := p4_a37;
2273 ddp_iso_header_rec.attribute22 := p4_a38;
2274 ddp_iso_header_rec.attribute23 := p4_a39;
2275 ddp_iso_header_rec.attribute24 := p4_a40;
2276 ddp_iso_header_rec.attribute25 := p4_a41;
2277 ddp_iso_header_rec.attribute26 := p4_a42;
2278 ddp_iso_header_rec.attribute27 := p4_a43;
2279 ddp_iso_header_rec.attribute28 := p4_a44;
2280 ddp_iso_header_rec.attribute29 := p4_a45;
2281 ddp_iso_header_rec.attribute30 := p4_a46;
2282 ddp_iso_header_rec.approved_by := p4_a47;
2283 ddp_iso_header_rec.permit_required := p4_a48;
2284 ddp_iso_header_rec.created_by := p4_a49;
2285 ddp_iso_header_rec.creation_date := p4_a50;
2286 ddp_iso_header_rec.user_id := p4_a51;
2287 ddp_iso_header_rec.responsibility_id := p4_a52;
2288
2289 eam_process_safety_pub_w.rosetta_table_copy_in_p9(ddp_establish_iso_tbl, p5_a0
2290 , p5_a1
2291 , p5_a2
2292 , p5_a3
2293 , p5_a4
2294 , p5_a5
2295 , p5_a6
2296 , p5_a7
2297 , p5_a8
2298 , p5_a9
2299 , p5_a10
2300 , p5_a11
2301 , p5_a12
2302 , p5_a13
2303 , p5_a14
2304 , p5_a15
2305 , p5_a16
2306 , p5_a17
2307 , p5_a18
2308 , p5_a19
2309 , p5_a20
2310 , p5_a21
2311 , p5_a22
2312 , p5_a23
2313 , p5_a24
2314 , p5_a25
2315 , p5_a26
2316 , p5_a27
2317 , p5_a28
2318 , p5_a29
2319 , p5_a30
2320 , p5_a31
2321 , p5_a32
2322 , p5_a33
2323 , p5_a34
2324 , p5_a35
2325 , p5_a36
2326 , p5_a37
2327 , p5_a38
2328 , p5_a39
2329 , p5_a40
2330 , p5_a41
2331 , p5_a42
2332 , p5_a43
2333 , p5_a44
2334 , p5_a45
2335 , p5_a46
2336 , p5_a47
2337 , p5_a48
2338 , p5_a49
2339 , p5_a50
2340 , p5_a51
2341 , p5_a52
2342 );
2343
2344 eam_process_safety_pub_w.rosetta_table_copy_in_p9(ddp_re_establish_iso_tbl, p6_a0
2345 , p6_a1
2346 , p6_a2
2347 , p6_a3
2348 , p6_a4
2349 , p6_a5
2350 , p6_a6
2351 , p6_a7
2352 , p6_a8
2353 , p6_a9
2354 , p6_a10
2355 , p6_a11
2356 , p6_a12
2357 , p6_a13
2358 , p6_a14
2359 , p6_a15
2360 , p6_a16
2361 , p6_a17
2362 , p6_a18
2363 , p6_a19
2364 , p6_a20
2365 , p6_a21
2366 , p6_a22
2367 , p6_a23
2368 , p6_a24
2369 , p6_a25
2370 , p6_a26
2371 , p6_a27
2372 , p6_a28
2373 , p6_a29
2374 , p6_a30
2375 , p6_a31
2376 , p6_a32
2377 , p6_a33
2378 , p6_a34
2379 , p6_a35
2380 , p6_a36
2381 , p6_a37
2382 , p6_a38
2383 , p6_a39
2384 , p6_a40
2385 , p6_a41
2386 , p6_a42
2387 , p6_a43
2388 , p6_a44
2389 , p6_a45
2390 , p6_a46
2391 , p6_a47
2392 , p6_a48
2393 , p6_a49
2394 , p6_a50
2395 , p6_a51
2396 , p6_a52
2397 );
2398
2399 eam_process_safety_pub_w.rosetta_table_copy_in_p8(ddp_isolated_asset_tbl, p7_a0
2400 , p7_a1
2401 , p7_a2
2402 , p7_a3
2403 , p7_a4
2404 , p7_a5
2405 , p7_a6
2406 , p7_a7
2407 , p7_a8
2408 , p7_a9
2409 , p7_a10
2410 , p7_a11
2411 , p7_a12
2412 , p7_a13
2413 , p7_a14
2414 , p7_a15
2415 , p7_a16
2416 , p7_a17
2417 , p7_a18
2418 , p7_a19
2419 , p7_a20
2420 , p7_a21
2421 , p7_a22
2422 , p7_a23
2423 , p7_a24
2424 , p7_a25
2425 , p7_a26
2426 , p7_a27
2427 , p7_a28
2428 , p7_a29
2429 , p7_a30
2430 , p7_a31
2431 , p7_a32
2432 , p7_a33
2433 , p7_a34
2434 , p7_a35
2435 , p7_a36
2436 , p7_a37
2437 , p7_a38
2438 , p7_a39
2439 , p7_a40
2440 , p7_a41
2441 , p7_a42
2442 , p7_a43
2443 , p7_a44
2444 , p7_a45
2445 );
2446
2447
2448
2449
2450
2451
2455 eam_process_safety_pub.process_isolation(p_bo_identifier,
2452
2453
2454 -- here's the delegated call to the old PL/SQL routine
2456 p_api_version_number,
2457 ddp_init_msg_list,
2458 p_commit,
2459 ddp_iso_header_rec,
2460 ddp_establish_iso_tbl,
2461 ddp_re_establish_iso_tbl,
2462 ddp_isolated_asset_tbl,
2463 p_debug,
2464 p_output_dir,
2465 p_debug_filename,
2466 p_debug_file_mode,
2467 x_isolation_id,
2468 x_return_status,
2469 x_msg_count);
2470
2471 -- copy data back from the local variables to OUT or IN-OUT args, if any
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486 end;
2487
2488 procedure process_work_clearance(p_bo_identifier VARCHAR2
2489 , p_api_version_number NUMBER
2490 , p_init_msg_list number
2491 , p_commit VARCHAR2
2492 , p4_a0 NUMBER
2493 , p4_a1 NUMBER
2494 , p4_a2 NUMBER
2495 , p4_a3 NUMBER
2496 , p4_a4 VARCHAR2
2497 , p4_a5 VARCHAR2
2498 , p4_a6 NUMBER
2499 , p4_a7 NUMBER
2500 , p4_a8 NUMBER
2501 , p4_a9 NUMBER
2502 , p4_a10 VARCHAR2
2503 , p4_a11 DATE
2504 , p4_a12 DATE
2505 , p4_a13 DATE
2506 , p4_a14 DATE
2507 , p4_a15 DATE
2508 , p4_a16 NUMBER
2509 , p4_a17 VARCHAR2
2510 , p4_a18 VARCHAR2
2511 , p4_a19 VARCHAR2
2512 , p4_a20 VARCHAR2
2513 , p4_a21 VARCHAR2
2514 , p4_a22 VARCHAR2
2515 , p4_a23 VARCHAR2
2516 , p4_a24 VARCHAR2
2517 , p4_a25 VARCHAR2
2518 , p4_a26 VARCHAR2
2519 , p4_a27 VARCHAR2
2520 , p4_a28 VARCHAR2
2521 , p4_a29 VARCHAR2
2522 , p4_a30 VARCHAR2
2523 , p4_a31 VARCHAR2
2524 , p4_a32 VARCHAR2
2525 , p4_a33 VARCHAR2
2526 , p4_a34 VARCHAR2
2527 , p4_a35 VARCHAR2
2528 , p4_a36 VARCHAR2
2529 , p4_a37 VARCHAR2
2530 , p4_a38 VARCHAR2
2531 , p4_a39 VARCHAR2
2532 , p4_a40 VARCHAR2
2533 , p4_a41 VARCHAR2
2534 , p4_a42 VARCHAR2
2535 , p4_a43 VARCHAR2
2536 , p4_a44 VARCHAR2
2537 , p4_a45 VARCHAR2
2538 , p4_a46 VARCHAR2
2539 , p4_a47 VARCHAR2
2540 , p4_a48 VARCHAR2
2541 , p4_a49 NUMBER
2542 , p4_a50 NUMBER
2543 , p4_a51 DATE
2544 , p4_a52 NUMBER
2545 , p4_a53 NUMBER
2546 , p5_a0 JTF_NUMBER_TABLE
2547 , p5_a1 JTF_NUMBER_TABLE
2548 , p5_a2 JTF_NUMBER_TABLE
2549 , p5_a3 JTF_NUMBER_TABLE
2550 , p5_a4 JTF_NUMBER_TABLE
2551 , p5_a5 JTF_NUMBER_TABLE
2552 , p5_a6 JTF_NUMBER_TABLE
2553 , p5_a7 JTF_NUMBER_TABLE
2554 , p5_a8 JTF_NUMBER_TABLE
2555 , p5_a9 JTF_VARCHAR2_TABLE_300
2556 , p5_a10 JTF_NUMBER_TABLE
2557 , p5_a11 JTF_NUMBER_TABLE
2558 , p5_a12 JTF_NUMBER_TABLE
2559 , p5_a13 JTF_NUMBER_TABLE
2560 , p5_a14 JTF_NUMBER_TABLE
2561 , p5_a15 JTF_NUMBER_TABLE
2562 , p5_a16 JTF_NUMBER_TABLE
2563 , p5_a17 JTF_NUMBER_TABLE
2564 , p5_a18 JTF_NUMBER_TABLE
2565 , p5_a19 JTF_DATE_TABLE
2566 , p5_a20 JTF_VARCHAR2_TABLE_100
2567 , p5_a21 JTF_VARCHAR2_TABLE_300
2568 , p5_a22 JTF_VARCHAR2_TABLE_300
2569 , p5_a23 JTF_VARCHAR2_TABLE_300
2570 , p5_a24 JTF_VARCHAR2_TABLE_300
2571 , p5_a25 JTF_VARCHAR2_TABLE_300
2572 , p5_a26 JTF_VARCHAR2_TABLE_300
2573 , p5_a27 JTF_VARCHAR2_TABLE_300
2574 , p5_a28 JTF_VARCHAR2_TABLE_300
2575 , p5_a29 JTF_VARCHAR2_TABLE_300
2576 , p5_a30 JTF_VARCHAR2_TABLE_300
2577 , p5_a31 JTF_VARCHAR2_TABLE_300
2578 , p5_a32 JTF_VARCHAR2_TABLE_300
2579 , p5_a33 JTF_VARCHAR2_TABLE_300
2580 , p5_a34 JTF_VARCHAR2_TABLE_300
2581 , p5_a35 JTF_VARCHAR2_TABLE_300
2582 , p5_a36 JTF_VARCHAR2_TABLE_300
2583 , p5_a37 JTF_VARCHAR2_TABLE_300
2584 , p5_a38 JTF_VARCHAR2_TABLE_300
2585 , p5_a39 JTF_VARCHAR2_TABLE_300
2586 , p5_a40 JTF_VARCHAR2_TABLE_300
2587 , p5_a41 JTF_VARCHAR2_TABLE_300
2588 , p5_a42 JTF_VARCHAR2_TABLE_300
2589 , p5_a43 JTF_VARCHAR2_TABLE_300
2590 , p5_a44 JTF_VARCHAR2_TABLE_300
2591 , p5_a45 JTF_VARCHAR2_TABLE_300
2592 , p5_a46 JTF_VARCHAR2_TABLE_300
2593 , p5_a47 JTF_VARCHAR2_TABLE_300
2594 , p5_a48 JTF_VARCHAR2_TABLE_300
2595 , p5_a49 JTF_VARCHAR2_TABLE_300
2596 , p5_a50 JTF_VARCHAR2_TABLE_300
2597 , p5_a51 JTF_NUMBER_TABLE
2598 , p5_a52 JTF_DATE_TABLE
2599 , p6_a0 JTF_NUMBER_TABLE
2600 , p6_a1 JTF_NUMBER_TABLE
2601 , p6_a2 JTF_NUMBER_TABLE
2602 , p6_a3 JTF_NUMBER_TABLE
2603 , p6_a4 JTF_NUMBER_TABLE
2604 , p6_a5 JTF_NUMBER_TABLE
2605 , p6_a6 JTF_NUMBER_TABLE
2606 , p6_a7 JTF_NUMBER_TABLE
2607 , p6_a8 JTF_NUMBER_TABLE
2608 , p6_a9 JTF_VARCHAR2_TABLE_300
2609 , p6_a10 JTF_NUMBER_TABLE
2610 , p6_a11 JTF_NUMBER_TABLE
2611 , p6_a12 JTF_NUMBER_TABLE
2612 , p6_a13 JTF_NUMBER_TABLE
2613 , p6_a14 JTF_NUMBER_TABLE
2614 , p6_a15 JTF_NUMBER_TABLE
2615 , p6_a16 JTF_NUMBER_TABLE
2616 , p6_a17 JTF_NUMBER_TABLE
2617 , p6_a18 JTF_NUMBER_TABLE
2618 , p6_a19 JTF_DATE_TABLE
2619 , p6_a20 JTF_VARCHAR2_TABLE_100
2620 , p6_a21 JTF_VARCHAR2_TABLE_300
2621 , p6_a22 JTF_VARCHAR2_TABLE_300
2622 , p6_a23 JTF_VARCHAR2_TABLE_300
2623 , p6_a24 JTF_VARCHAR2_TABLE_300
2624 , p6_a25 JTF_VARCHAR2_TABLE_300
2625 , p6_a26 JTF_VARCHAR2_TABLE_300
2626 , p6_a27 JTF_VARCHAR2_TABLE_300
2627 , p6_a28 JTF_VARCHAR2_TABLE_300
2628 , p6_a29 JTF_VARCHAR2_TABLE_300
2632 , p6_a33 JTF_VARCHAR2_TABLE_300
2629 , p6_a30 JTF_VARCHAR2_TABLE_300
2630 , p6_a31 JTF_VARCHAR2_TABLE_300
2631 , p6_a32 JTF_VARCHAR2_TABLE_300
2633 , p6_a34 JTF_VARCHAR2_TABLE_300
2634 , p6_a35 JTF_VARCHAR2_TABLE_300
2635 , p6_a36 JTF_VARCHAR2_TABLE_300
2636 , p6_a37 JTF_VARCHAR2_TABLE_300
2637 , p6_a38 JTF_VARCHAR2_TABLE_300
2638 , p6_a39 JTF_VARCHAR2_TABLE_300
2639 , p6_a40 JTF_VARCHAR2_TABLE_300
2640 , p6_a41 JTF_VARCHAR2_TABLE_300
2641 , p6_a42 JTF_VARCHAR2_TABLE_300
2642 , p6_a43 JTF_VARCHAR2_TABLE_300
2643 , p6_a44 JTF_VARCHAR2_TABLE_300
2644 , p6_a45 JTF_VARCHAR2_TABLE_300
2645 , p6_a46 JTF_VARCHAR2_TABLE_300
2646 , p6_a47 JTF_VARCHAR2_TABLE_300
2647 , p6_a48 JTF_VARCHAR2_TABLE_300
2648 , p6_a49 JTF_VARCHAR2_TABLE_300
2649 , p6_a50 JTF_VARCHAR2_TABLE_300
2650 , p6_a51 JTF_NUMBER_TABLE
2651 , p6_a52 JTF_DATE_TABLE
2652 , p7_a0 JTF_NUMBER_TABLE
2653 , p7_a1 JTF_NUMBER_TABLE
2654 , p7_a2 JTF_NUMBER_TABLE
2655 , p7_a3 JTF_NUMBER_TABLE
2656 , p7_a4 JTF_NUMBER_TABLE
2657 , p7_a5 JTF_NUMBER_TABLE
2658 , p7_a6 JTF_NUMBER_TABLE
2659 , p7_a7 JTF_NUMBER_TABLE
2660 , p7_a8 JTF_DATE_TABLE
2661 , p7_a9 JTF_DATE_TABLE
2662 , p7_a10 JTF_NUMBER_TABLE
2663 , p7_a11 JTF_VARCHAR2_TABLE_100
2664 , p7_a12 JTF_VARCHAR2_TABLE_300
2665 , p7_a13 JTF_VARCHAR2_TABLE_100
2666 , p7_a14 JTF_VARCHAR2_TABLE_300
2667 , p7_a15 JTF_VARCHAR2_TABLE_300
2668 , p7_a16 JTF_VARCHAR2_TABLE_300
2669 , p7_a17 JTF_VARCHAR2_TABLE_300
2670 , p7_a18 JTF_VARCHAR2_TABLE_300
2671 , p7_a19 JTF_VARCHAR2_TABLE_300
2672 , p7_a20 JTF_VARCHAR2_TABLE_300
2673 , p7_a21 JTF_VARCHAR2_TABLE_300
2674 , p7_a22 JTF_VARCHAR2_TABLE_300
2675 , p7_a23 JTF_VARCHAR2_TABLE_300
2676 , p7_a24 JTF_VARCHAR2_TABLE_300
2677 , p7_a25 JTF_VARCHAR2_TABLE_300
2678 , p7_a26 JTF_VARCHAR2_TABLE_300
2679 , p7_a27 JTF_VARCHAR2_TABLE_300
2680 , p7_a28 JTF_VARCHAR2_TABLE_300
2681 , p7_a29 JTF_VARCHAR2_TABLE_300
2682 , p7_a30 JTF_VARCHAR2_TABLE_300
2683 , p7_a31 JTF_VARCHAR2_TABLE_300
2684 , p7_a32 JTF_VARCHAR2_TABLE_300
2685 , p7_a33 JTF_VARCHAR2_TABLE_300
2686 , p7_a34 JTF_VARCHAR2_TABLE_300
2687 , p7_a35 JTF_VARCHAR2_TABLE_300
2688 , p7_a36 JTF_VARCHAR2_TABLE_300
2689 , p7_a37 JTF_VARCHAR2_TABLE_300
2690 , p7_a38 JTF_VARCHAR2_TABLE_300
2691 , p7_a39 JTF_VARCHAR2_TABLE_300
2692 , p7_a40 JTF_VARCHAR2_TABLE_300
2693 , p7_a41 JTF_VARCHAR2_TABLE_300
2694 , p7_a42 JTF_VARCHAR2_TABLE_300
2695 , p7_a43 JTF_VARCHAR2_TABLE_300
2696 , p7_a44 JTF_NUMBER_TABLE
2697 , p7_a45 JTF_DATE_TABLE
2698 , p8_a0 JTF_NUMBER_TABLE
2699 , p8_a1 JTF_NUMBER_TABLE
2700 , p8_a2 JTF_NUMBER_TABLE
2701 , p8_a3 JTF_NUMBER_TABLE
2702 , p8_a4 JTF_NUMBER_TABLE
2703 , p8_a5 JTF_NUMBER_TABLE
2704 , p8_a6 JTF_NUMBER_TABLE
2705 , p8_a7 JTF_NUMBER_TABLE
2706 , p8_a8 JTF_DATE_TABLE
2707 , p8_a9 JTF_DATE_TABLE
2708 , p8_a10 JTF_NUMBER_TABLE
2709 , p8_a11 JTF_VARCHAR2_TABLE_100
2710 , p8_a12 JTF_VARCHAR2_TABLE_300
2711 , p8_a13 JTF_VARCHAR2_TABLE_100
2712 , p8_a14 JTF_VARCHAR2_TABLE_300
2713 , p8_a15 JTF_VARCHAR2_TABLE_300
2714 , p8_a16 JTF_VARCHAR2_TABLE_300
2715 , p8_a17 JTF_VARCHAR2_TABLE_300
2716 , p8_a18 JTF_VARCHAR2_TABLE_300
2717 , p8_a19 JTF_VARCHAR2_TABLE_300
2718 , p8_a20 JTF_VARCHAR2_TABLE_300
2719 , p8_a21 JTF_VARCHAR2_TABLE_300
2720 , p8_a22 JTF_VARCHAR2_TABLE_300
2721 , p8_a23 JTF_VARCHAR2_TABLE_300
2722 , p8_a24 JTF_VARCHAR2_TABLE_300
2723 , p8_a25 JTF_VARCHAR2_TABLE_300
2724 , p8_a26 JTF_VARCHAR2_TABLE_300
2725 , p8_a27 JTF_VARCHAR2_TABLE_300
2726 , p8_a28 JTF_VARCHAR2_TABLE_300
2727 , p8_a29 JTF_VARCHAR2_TABLE_300
2728 , p8_a30 JTF_VARCHAR2_TABLE_300
2729 , p8_a31 JTF_VARCHAR2_TABLE_300
2730 , p8_a32 JTF_VARCHAR2_TABLE_300
2731 , p8_a33 JTF_VARCHAR2_TABLE_300
2732 , p8_a34 JTF_VARCHAR2_TABLE_300
2733 , p8_a35 JTF_VARCHAR2_TABLE_300
2734 , p8_a36 JTF_VARCHAR2_TABLE_300
2735 , p8_a37 JTF_VARCHAR2_TABLE_300
2736 , p8_a38 JTF_VARCHAR2_TABLE_300
2737 , p8_a39 JTF_VARCHAR2_TABLE_300
2738 , p8_a40 JTF_VARCHAR2_TABLE_300
2739 , p8_a41 JTF_VARCHAR2_TABLE_300
2740 , p8_a42 JTF_VARCHAR2_TABLE_300
2741 , p8_a43 JTF_VARCHAR2_TABLE_300
2742 , p8_a44 JTF_NUMBER_TABLE
2743 , p8_a45 JTF_DATE_TABLE
2744 , p_debug VARCHAR2
2745 , p_output_dir VARCHAR2
2746 , p_debug_filename VARCHAR2
2747 , p_debug_file_mode VARCHAR2
2748 , x_clearance_id out nocopy NUMBER
2749 , x_return_status out nocopy VARCHAR2
2750 , x_msg_count out nocopy NUMBER
2751 )
2752
2753 as
2754 ddp_init_msg_list boolean;
2755 ddp_work_clearance_header_rec eam_process_safety_pub.eam_clearance_header_rec_type;
2756 ddp_clearance_establish_tbl eam_process_safety_pub.eam_establishment_tbl_type;
2757 ddp_clearance_re_estabish_tbl eam_process_safety_pub.eam_establishment_tbl_type;
2758 ddp_clearance_wo_asso_tbl eam_process_safety_pub.eam_safety_assoc_tbl_type;
2759 ddp_clearance_permit_asso_tbl eam_process_safety_pub.eam_safety_assoc_tbl_type;
2760 ddindx binary_integer; indx binary_integer;
2761 begin
2762
2763 -- copy data to the local IN or IN-OUT args, if any
2764
2765
2766 if p_init_msg_list is null
2767 then ddp_init_msg_list := null;
2768 elsif p_init_msg_list = 0
2769 then ddp_init_msg_list := false;
2770 else ddp_init_msg_list := true;
2771 end if;
2772
2773
2774 ddp_work_clearance_header_rec.header_id := p4_a0;
2775 ddp_work_clearance_header_rec.batch_id := p4_a1;
2779 ddp_work_clearance_header_rec.description := p4_a5;
2776 ddp_work_clearance_header_rec.row_id := p4_a2;
2777 ddp_work_clearance_header_rec.work_clearance_id := p4_a3;
2778 ddp_work_clearance_header_rec.work_clearance_name := p4_a4;
2780 ddp_work_clearance_header_rec.organization_id := p4_a6;
2781 ddp_work_clearance_header_rec.isolation_id := p4_a7;
2782 ddp_work_clearance_header_rec.system_status := p4_a8;
2783 ddp_work_clearance_header_rec.user_defined_status := p4_a9;
2784 ddp_work_clearance_header_rec.pending_flag := p4_a10;
2785 ddp_work_clearance_header_rec.scheduled_estab_start_date := p4_a11;
2786 ddp_work_clearance_header_rec.scheduled_estab_end_date := p4_a12;
2787 ddp_work_clearance_header_rec.scheduled_reestab_start_date := p4_a13;
2788 ddp_work_clearance_header_rec.scheduled_reestab_end_date := p4_a14;
2789 ddp_work_clearance_header_rec.completion_date := p4_a15;
2790 ddp_work_clearance_header_rec.transaction_type := p4_a16;
2791 ddp_work_clearance_header_rec.permit_required := p4_a17;
2792 ddp_work_clearance_header_rec.attribute_category := p4_a18;
2793 ddp_work_clearance_header_rec.attribute1 := p4_a19;
2794 ddp_work_clearance_header_rec.attribute2 := p4_a20;
2795 ddp_work_clearance_header_rec.attribute3 := p4_a21;
2796 ddp_work_clearance_header_rec.attribute4 := p4_a22;
2797 ddp_work_clearance_header_rec.attribute5 := p4_a23;
2798 ddp_work_clearance_header_rec.attribute6 := p4_a24;
2799 ddp_work_clearance_header_rec.attribute7 := p4_a25;
2800 ddp_work_clearance_header_rec.attribute8 := p4_a26;
2801 ddp_work_clearance_header_rec.attribute9 := p4_a27;
2802 ddp_work_clearance_header_rec.attribute10 := p4_a28;
2803 ddp_work_clearance_header_rec.attribute11 := p4_a29;
2804 ddp_work_clearance_header_rec.attribute12 := p4_a30;
2805 ddp_work_clearance_header_rec.attribute13 := p4_a31;
2806 ddp_work_clearance_header_rec.attribute14 := p4_a32;
2807 ddp_work_clearance_header_rec.attribute15 := p4_a33;
2808 ddp_work_clearance_header_rec.attribute16 := p4_a34;
2809 ddp_work_clearance_header_rec.attribute17 := p4_a35;
2810 ddp_work_clearance_header_rec.attribute18 := p4_a36;
2811 ddp_work_clearance_header_rec.attribute19 := p4_a37;
2812 ddp_work_clearance_header_rec.attribute20 := p4_a38;
2813 ddp_work_clearance_header_rec.attribute21 := p4_a39;
2814 ddp_work_clearance_header_rec.attribute22 := p4_a40;
2815 ddp_work_clearance_header_rec.attribute23 := p4_a41;
2816 ddp_work_clearance_header_rec.attribute24 := p4_a42;
2817 ddp_work_clearance_header_rec.attribute25 := p4_a43;
2818 ddp_work_clearance_header_rec.attribute26 := p4_a44;
2819 ddp_work_clearance_header_rec.attribute27 := p4_a45;
2820 ddp_work_clearance_header_rec.attribute28 := p4_a46;
2821 ddp_work_clearance_header_rec.attribute29 := p4_a47;
2822 ddp_work_clearance_header_rec.attribute30 := p4_a48;
2823 ddp_work_clearance_header_rec.approved_by := p4_a49;
2824 ddp_work_clearance_header_rec.created_by := p4_a50;
2825 ddp_work_clearance_header_rec.creation_date := p4_a51;
2826 ddp_work_clearance_header_rec.user_id := p4_a52;
2827 ddp_work_clearance_header_rec.responsibility_id := p4_a53;
2828
2829 eam_process_safety_pub_w.rosetta_table_copy_in_p9(ddp_clearance_establish_tbl, p5_a0
2830 , p5_a1
2831 , p5_a2
2832 , p5_a3
2833 , p5_a4
2834 , p5_a5
2835 , p5_a6
2836 , p5_a7
2837 , p5_a8
2838 , p5_a9
2839 , p5_a10
2840 , p5_a11
2841 , p5_a12
2842 , p5_a13
2843 , p5_a14
2844 , p5_a15
2845 , p5_a16
2846 , p5_a17
2847 , p5_a18
2848 , p5_a19
2849 , p5_a20
2850 , p5_a21
2851 , p5_a22
2852 , p5_a23
2853 , p5_a24
2854 , p5_a25
2855 , p5_a26
2856 , p5_a27
2857 , p5_a28
2858 , p5_a29
2859 , p5_a30
2860 , p5_a31
2861 , p5_a32
2862 , p5_a33
2863 , p5_a34
2864 , p5_a35
2865 , p5_a36
2866 , p5_a37
2867 , p5_a38
2868 , p5_a39
2869 , p5_a40
2870 , p5_a41
2871 , p5_a42
2872 , p5_a43
2873 , p5_a44
2874 , p5_a45
2875 , p5_a46
2876 , p5_a47
2877 , p5_a48
2878 , p5_a49
2879 , p5_a50
2880 , p5_a51
2881 , p5_a52
2882 );
2883
2884 eam_process_safety_pub_w.rosetta_table_copy_in_p9(ddp_clearance_re_estabish_tbl, p6_a0
2885 , p6_a1
2886 , p6_a2
2887 , p6_a3
2888 , p6_a4
2889 , p6_a5
2890 , p6_a6
2891 , p6_a7
2892 , p6_a8
2893 , p6_a9
2894 , p6_a10
2895 , p6_a11
2896 , p6_a12
2897 , p6_a13
2898 , p6_a14
2899 , p6_a15
2900 , p6_a16
2901 , p6_a17
2902 , p6_a18
2903 , p6_a19
2904 , p6_a20
2905 , p6_a21
2906 , p6_a22
2907 , p6_a23
2908 , p6_a24
2909 , p6_a25
2910 , p6_a26
2911 , p6_a27
2912 , p6_a28
2913 , p6_a29
2914 , p6_a30
2915 , p6_a31
2916 , p6_a32
2917 , p6_a33
2918 , p6_a34
2919 , p6_a35
2920 , p6_a36
2921 , p6_a37
2922 , p6_a38
2923 , p6_a39
2924 , p6_a40
2925 , p6_a41
2926 , p6_a42
2927 , p6_a43
2928 , p6_a44
2929 , p6_a45
2930 , p6_a46
2931 , p6_a47
2932 , p6_a48
2933 , p6_a49
2934 , p6_a50
2935 , p6_a51
2936 , p6_a52
2937 );
2938
2942 , p7_a3
2939 eam_process_safety_pub_w.rosetta_table_copy_in_p8(ddp_clearance_wo_asso_tbl, p7_a0
2940 , p7_a1
2941 , p7_a2
2943 , p7_a4
2944 , p7_a5
2945 , p7_a6
2946 , p7_a7
2947 , p7_a8
2948 , p7_a9
2949 , p7_a10
2950 , p7_a11
2951 , p7_a12
2952 , p7_a13
2953 , p7_a14
2954 , p7_a15
2955 , p7_a16
2956 , p7_a17
2957 , p7_a18
2958 , p7_a19
2959 , p7_a20
2960 , p7_a21
2961 , p7_a22
2962 , p7_a23
2963 , p7_a24
2964 , p7_a25
2965 , p7_a26
2966 , p7_a27
2967 , p7_a28
2968 , p7_a29
2969 , p7_a30
2970 , p7_a31
2971 , p7_a32
2972 , p7_a33
2973 , p7_a34
2974 , p7_a35
2975 , p7_a36
2976 , p7_a37
2977 , p7_a38
2978 , p7_a39
2979 , p7_a40
2980 , p7_a41
2981 , p7_a42
2982 , p7_a43
2983 , p7_a44
2984 , p7_a45
2985 );
2986
2987 eam_process_safety_pub_w.rosetta_table_copy_in_p8(ddp_clearance_permit_asso_tbl, p8_a0
2988 , p8_a1
2989 , p8_a2
2990 , p8_a3
2991 , p8_a4
2992 , p8_a5
2993 , p8_a6
2994 , p8_a7
2995 , p8_a8
2996 , p8_a9
2997 , p8_a10
2998 , p8_a11
2999 , p8_a12
3000 , p8_a13
3001 , p8_a14
3002 , p8_a15
3003 , p8_a16
3004 , p8_a17
3005 , p8_a18
3006 , p8_a19
3007 , p8_a20
3008 , p8_a21
3009 , p8_a22
3010 , p8_a23
3011 , p8_a24
3012 , p8_a25
3013 , p8_a26
3014 , p8_a27
3015 , p8_a28
3016 , p8_a29
3017 , p8_a30
3018 , p8_a31
3019 , p8_a32
3020 , p8_a33
3021 , p8_a34
3022 , p8_a35
3023 , p8_a36
3024 , p8_a37
3025 , p8_a38
3026 , p8_a39
3027 , p8_a40
3028 , p8_a41
3029 , p8_a42
3030 , p8_a43
3031 , p8_a44
3032 , p8_a45
3033 );
3034
3035
3036
3037
3038
3039
3040
3041
3042 -- here's the delegated call to the old PL/SQL routine
3043 eam_process_safety_pub.process_work_clearance(p_bo_identifier,
3044 p_api_version_number,
3045 ddp_init_msg_list,
3046 p_commit,
3047 ddp_work_clearance_header_rec,
3048 ddp_clearance_establish_tbl,
3049 ddp_clearance_re_estabish_tbl,
3050 ddp_clearance_wo_asso_tbl,
3051 ddp_clearance_permit_asso_tbl,
3052 p_debug,
3053 p_output_dir,
3054 p_debug_filename,
3055 p_debug_file_mode,
3056 x_clearance_id,
3057 x_return_status,
3058 x_msg_count);
3059
3060 -- copy data back from the local variables to OUT or IN-OUT args, if any
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076 end;
3077
3078 procedure copy_work_clearance(p_bo_identifier VARCHAR2
3079 , p_api_version_number NUMBER
3080 , p_init_msg_list number
3081 , p_commit VARCHAR2
3082 , p_debug VARCHAR2
3083 , p_output_dir VARCHAR2
3084 , p_debug_filename VARCHAR2
3085 , p_debug_file_mode VARCHAR2
3086 , p_org_id NUMBER
3087 , px_clearance_id in out nocopy NUMBER
3088 , x_return_status out nocopy VARCHAR2
3089 , x_msg_count out nocopy NUMBER
3090 )
3091
3092 as
3093 ddp_init_msg_list boolean;
3094 ddindx binary_integer; indx binary_integer;
3095 begin
3096
3097 -- copy data to the local IN or IN-OUT args, if any
3098
3099
3100 if p_init_msg_list is null
3101 then ddp_init_msg_list := null;
3102 elsif p_init_msg_list = 0
3103 then ddp_init_msg_list := false;
3104 else ddp_init_msg_list := true;
3105 end if;
3106
3107
3108
3109
3110
3111
3112
3113
3114
3115
3116 -- here's the delegated call to the old PL/SQL routine
3117 eam_process_safety_pub.copy_work_clearance(p_bo_identifier,
3118 p_api_version_number,
3119 ddp_init_msg_list,
3120 p_commit,
3121 p_debug,
3122 p_output_dir,
3123 p_debug_filename,
3124 p_debug_file_mode,
3125 p_org_id,
3126 px_clearance_id,
3127 x_return_status,
3128 x_msg_count);
3129
3130 -- copy data back from the local variables to OUT or IN-OUT args, if any
3131
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142 end;
3143
3144 procedure process_work_permit(p_bo_identifier VARCHAR2
3145 , p_api_version_number NUMBER
3146 , p_init_msg_list number
3147 , p_commit VARCHAR2
3148 , p4_a0 NUMBER
3149 , p4_a1 NUMBER
3150 , p4_a2 NUMBER
3151 , p4_a3 NUMBER
3152 , p4_a4 NUMBER
3153 , p4_a5 VARCHAR2
3154 , p4_a6 NUMBER
3155 , p4_a7 VARCHAR2
3156 , p4_a8 NUMBER
3157 , p4_a9 NUMBER
3158 , p4_a10 DATE
3159 , p4_a11 DATE
3160 , p4_a12 VARCHAR2
3161 , p4_a13 DATE
3162 , p4_a14 NUMBER
3163 , p4_a15 VARCHAR2
3164 , p4_a16 VARCHAR2
3168 , p4_a20 VARCHAR2
3165 , p4_a17 VARCHAR2
3166 , p4_a18 VARCHAR2
3167 , p4_a19 VARCHAR2
3169 , p4_a21 VARCHAR2
3170 , p4_a22 VARCHAR2
3171 , p4_a23 VARCHAR2
3172 , p4_a24 VARCHAR2
3173 , p4_a25 VARCHAR2
3174 , p4_a26 VARCHAR2
3175 , p4_a27 VARCHAR2
3176 , p4_a28 VARCHAR2
3177 , p4_a29 VARCHAR2
3178 , p4_a30 VARCHAR2
3179 , p4_a31 VARCHAR2
3180 , p4_a32 VARCHAR2
3181 , p4_a33 VARCHAR2
3182 , p4_a34 VARCHAR2
3183 , p4_a35 VARCHAR2
3184 , p4_a36 VARCHAR2
3185 , p4_a37 VARCHAR2
3186 , p4_a38 VARCHAR2
3187 , p4_a39 VARCHAR2
3188 , p4_a40 VARCHAR2
3189 , p4_a41 VARCHAR2
3190 , p4_a42 VARCHAR2
3191 , p4_a43 VARCHAR2
3192 , p4_a44 VARCHAR2
3193 , p4_a45 VARCHAR2
3194 , p4_a46 NUMBER
3195 , p4_a47 NUMBER
3196 , p4_a48 DATE
3197 , p4_a49 NUMBER
3198 , p4_a50 NUMBER
3199 , p5_a0 JTF_NUMBER_TABLE
3200 , p5_a1 JTF_NUMBER_TABLE
3201 , p5_a2 JTF_NUMBER_TABLE
3202 , p5_a3 JTF_NUMBER_TABLE
3203 , p5_a4 JTF_NUMBER_TABLE
3204 , p5_a5 JTF_NUMBER_TABLE
3205 , p5_a6 JTF_NUMBER_TABLE
3206 , p5_a7 JTF_NUMBER_TABLE
3207 , p5_a8 JTF_DATE_TABLE
3208 , p5_a9 JTF_DATE_TABLE
3209 , p5_a10 JTF_NUMBER_TABLE
3210 , p5_a11 JTF_VARCHAR2_TABLE_100
3211 , p5_a12 JTF_VARCHAR2_TABLE_300
3212 , p5_a13 JTF_VARCHAR2_TABLE_100
3213 , p5_a14 JTF_VARCHAR2_TABLE_300
3214 , p5_a15 JTF_VARCHAR2_TABLE_300
3215 , p5_a16 JTF_VARCHAR2_TABLE_300
3216 , p5_a17 JTF_VARCHAR2_TABLE_300
3217 , p5_a18 JTF_VARCHAR2_TABLE_300
3218 , p5_a19 JTF_VARCHAR2_TABLE_300
3219 , p5_a20 JTF_VARCHAR2_TABLE_300
3220 , p5_a21 JTF_VARCHAR2_TABLE_300
3221 , p5_a22 JTF_VARCHAR2_TABLE_300
3222 , p5_a23 JTF_VARCHAR2_TABLE_300
3223 , p5_a24 JTF_VARCHAR2_TABLE_300
3224 , p5_a25 JTF_VARCHAR2_TABLE_300
3225 , p5_a26 JTF_VARCHAR2_TABLE_300
3226 , p5_a27 JTF_VARCHAR2_TABLE_300
3227 , p5_a28 JTF_VARCHAR2_TABLE_300
3228 , p5_a29 JTF_VARCHAR2_TABLE_300
3229 , p5_a30 JTF_VARCHAR2_TABLE_300
3230 , p5_a31 JTF_VARCHAR2_TABLE_300
3231 , p5_a32 JTF_VARCHAR2_TABLE_300
3232 , p5_a33 JTF_VARCHAR2_TABLE_300
3233 , p5_a34 JTF_VARCHAR2_TABLE_300
3234 , p5_a35 JTF_VARCHAR2_TABLE_300
3235 , p5_a36 JTF_VARCHAR2_TABLE_300
3236 , p5_a37 JTF_VARCHAR2_TABLE_300
3237 , p5_a38 JTF_VARCHAR2_TABLE_300
3238 , p5_a39 JTF_VARCHAR2_TABLE_300
3239 , p5_a40 JTF_VARCHAR2_TABLE_300
3240 , p5_a41 JTF_VARCHAR2_TABLE_300
3241 , p5_a42 JTF_VARCHAR2_TABLE_300
3242 , p5_a43 JTF_VARCHAR2_TABLE_300
3243 , p5_a44 JTF_NUMBER_TABLE
3244 , p5_a45 JTF_DATE_TABLE
3245 , p6_a0 JTF_NUMBER_TABLE
3246 , p6_a1 JTF_NUMBER_TABLE
3247 , p6_a2 JTF_NUMBER_TABLE
3248 , p6_a3 JTF_NUMBER_TABLE
3249 , p6_a4 JTF_NUMBER_TABLE
3250 , p6_a5 JTF_NUMBER_TABLE
3251 , p6_a6 JTF_NUMBER_TABLE
3252 , p6_a7 JTF_NUMBER_TABLE
3253 , p6_a8 JTF_DATE_TABLE
3254 , p6_a9 JTF_DATE_TABLE
3255 , p6_a10 JTF_NUMBER_TABLE
3256 , p6_a11 JTF_VARCHAR2_TABLE_100
3257 , p6_a12 JTF_VARCHAR2_TABLE_300
3258 , p6_a13 JTF_VARCHAR2_TABLE_100
3259 , p6_a14 JTF_VARCHAR2_TABLE_300
3260 , p6_a15 JTF_VARCHAR2_TABLE_300
3261 , p6_a16 JTF_VARCHAR2_TABLE_300
3262 , p6_a17 JTF_VARCHAR2_TABLE_300
3263 , p6_a18 JTF_VARCHAR2_TABLE_300
3264 , p6_a19 JTF_VARCHAR2_TABLE_300
3265 , p6_a20 JTF_VARCHAR2_TABLE_300
3266 , p6_a21 JTF_VARCHAR2_TABLE_300
3267 , p6_a22 JTF_VARCHAR2_TABLE_300
3268 , p6_a23 JTF_VARCHAR2_TABLE_300
3269 , p6_a24 JTF_VARCHAR2_TABLE_300
3270 , p6_a25 JTF_VARCHAR2_TABLE_300
3271 , p6_a26 JTF_VARCHAR2_TABLE_300
3272 , p6_a27 JTF_VARCHAR2_TABLE_300
3273 , p6_a28 JTF_VARCHAR2_TABLE_300
3274 , p6_a29 JTF_VARCHAR2_TABLE_300
3275 , p6_a30 JTF_VARCHAR2_TABLE_300
3276 , p6_a31 JTF_VARCHAR2_TABLE_300
3277 , p6_a32 JTF_VARCHAR2_TABLE_300
3278 , p6_a33 JTF_VARCHAR2_TABLE_300
3279 , p6_a34 JTF_VARCHAR2_TABLE_300
3280 , p6_a35 JTF_VARCHAR2_TABLE_300
3281 , p6_a36 JTF_VARCHAR2_TABLE_300
3282 , p6_a37 JTF_VARCHAR2_TABLE_300
3283 , p6_a38 JTF_VARCHAR2_TABLE_300
3284 , p6_a39 JTF_VARCHAR2_TABLE_300
3285 , p6_a40 JTF_VARCHAR2_TABLE_300
3286 , p6_a41 JTF_VARCHAR2_TABLE_300
3287 , p6_a42 JTF_VARCHAR2_TABLE_300
3288 , p6_a43 JTF_VARCHAR2_TABLE_300
3289 , p6_a44 JTF_NUMBER_TABLE
3290 , p6_a45 JTF_DATE_TABLE
3291 , p_debug VARCHAR2
3292 , p_output_dir VARCHAR2
3293 , p_debug_filename VARCHAR2
3294 , p_debug_file_mode VARCHAR2
3295 , x_permit_id out nocopy NUMBER
3296 , x_return_status out nocopy VARCHAR2
3297 , x_msg_count out nocopy NUMBER
3298 )
3299
3300 as
3301 ddp_init_msg_list boolean;
3302 ddp_work_permit_header_rec eam_process_safety_pub.eam_wp_header_rec_type;
3303 ddp_permit_wo_association_tbl eam_process_safety_pub.eam_safety_assoc_tbl_type;
3304 ddp_permit_clearance_asso_tbl eam_process_safety_pub.eam_safety_assoc_tbl_type;
3305 ddindx binary_integer; indx binary_integer;
3306 begin
3307
3308 -- copy data to the local IN or IN-OUT args, if any
3309
3310
3311 if p_init_msg_list is null
3312 then ddp_init_msg_list := null;
3313 elsif p_init_msg_list = 0
3314 then ddp_init_msg_list := false;
3315 else ddp_init_msg_list := true;
3316 end if;
3317
3318
3319 ddp_work_permit_header_rec.header_id := p4_a0;
3320 ddp_work_permit_header_rec.batch_id := p4_a1;
3321 ddp_work_permit_header_rec.row_id := p4_a2;
3325 ddp_work_permit_header_rec.permit_type := p4_a6;
3322 ddp_work_permit_header_rec.transaction_type := p4_a3;
3323 ddp_work_permit_header_rec.permit_id := p4_a4;
3324 ddp_work_permit_header_rec.permit_name := p4_a5;
3326 ddp_work_permit_header_rec.description := p4_a7;
3327 ddp_work_permit_header_rec.organization_id := p4_a8;
3328 ddp_work_permit_header_rec.status_type := p4_a9;
3329 ddp_work_permit_header_rec.valid_from := p4_a10;
3330 ddp_work_permit_header_rec.valid_to := p4_a11;
3331 ddp_work_permit_header_rec.pending_flag := p4_a12;
3332 ddp_work_permit_header_rec.completion_date := p4_a13;
3333 ddp_work_permit_header_rec.user_defined_status_id := p4_a14;
3334 ddp_work_permit_header_rec.attribute_category := p4_a15;
3335 ddp_work_permit_header_rec.attribute1 := p4_a16;
3336 ddp_work_permit_header_rec.attribute2 := p4_a17;
3337 ddp_work_permit_header_rec.attribute3 := p4_a18;
3338 ddp_work_permit_header_rec.attribute4 := p4_a19;
3339 ddp_work_permit_header_rec.attribute5 := p4_a20;
3340 ddp_work_permit_header_rec.attribute6 := p4_a21;
3341 ddp_work_permit_header_rec.attribute7 := p4_a22;
3342 ddp_work_permit_header_rec.attribute8 := p4_a23;
3343 ddp_work_permit_header_rec.attribute9 := p4_a24;
3344 ddp_work_permit_header_rec.attribute10 := p4_a25;
3345 ddp_work_permit_header_rec.attribute11 := p4_a26;
3346 ddp_work_permit_header_rec.attribute12 := p4_a27;
3347 ddp_work_permit_header_rec.attribute13 := p4_a28;
3348 ddp_work_permit_header_rec.attribute14 := p4_a29;
3349 ddp_work_permit_header_rec.attribute15 := p4_a30;
3350 ddp_work_permit_header_rec.attribute16 := p4_a31;
3351 ddp_work_permit_header_rec.attribute17 := p4_a32;
3352 ddp_work_permit_header_rec.attribute18 := p4_a33;
3353 ddp_work_permit_header_rec.attribute19 := p4_a34;
3354 ddp_work_permit_header_rec.attribute20 := p4_a35;
3355 ddp_work_permit_header_rec.attribute21 := p4_a36;
3356 ddp_work_permit_header_rec.attribute22 := p4_a37;
3357 ddp_work_permit_header_rec.attribute23 := p4_a38;
3358 ddp_work_permit_header_rec.attribute24 := p4_a39;
3359 ddp_work_permit_header_rec.attribute25 := p4_a40;
3360 ddp_work_permit_header_rec.attribute26 := p4_a41;
3361 ddp_work_permit_header_rec.attribute27 := p4_a42;
3362 ddp_work_permit_header_rec.attribute28 := p4_a43;
3363 ddp_work_permit_header_rec.attribute29 := p4_a44;
3364 ddp_work_permit_header_rec.attribute30 := p4_a45;
3365 ddp_work_permit_header_rec.approved_by := p4_a46;
3366 ddp_work_permit_header_rec.created_by := p4_a47;
3367 ddp_work_permit_header_rec.creation_date := p4_a48;
3368 ddp_work_permit_header_rec.user_id := p4_a49;
3369 ddp_work_permit_header_rec.responsibility_id := p4_a50;
3370
3371 eam_process_safety_pub_w.rosetta_table_copy_in_p8(ddp_permit_wo_association_tbl, p5_a0
3372 , p5_a1
3373 , p5_a2
3374 , p5_a3
3375 , p5_a4
3376 , p5_a5
3377 , p5_a6
3378 , p5_a7
3379 , p5_a8
3380 , p5_a9
3381 , p5_a10
3382 , p5_a11
3383 , p5_a12
3384 , p5_a13
3385 , p5_a14
3386 , p5_a15
3387 , p5_a16
3388 , p5_a17
3389 , p5_a18
3390 , p5_a19
3391 , p5_a20
3392 , p5_a21
3393 , p5_a22
3394 , p5_a23
3395 , p5_a24
3396 , p5_a25
3397 , p5_a26
3398 , p5_a27
3399 , p5_a28
3400 , p5_a29
3401 , p5_a30
3402 , p5_a31
3403 , p5_a32
3404 , p5_a33
3405 , p5_a34
3406 , p5_a35
3407 , p5_a36
3408 , p5_a37
3409 , p5_a38
3410 , p5_a39
3411 , p5_a40
3412 , p5_a41
3413 , p5_a42
3414 , p5_a43
3415 , p5_a44
3416 , p5_a45
3417 );
3418
3419 eam_process_safety_pub_w.rosetta_table_copy_in_p8(ddp_permit_clearance_asso_tbl, p6_a0
3420 , p6_a1
3421 , p6_a2
3422 , p6_a3
3423 , p6_a4
3424 , p6_a5
3425 , p6_a6
3426 , p6_a7
3427 , p6_a8
3428 , p6_a9
3429 , p6_a10
3430 , p6_a11
3431 , p6_a12
3432 , p6_a13
3433 , p6_a14
3434 , p6_a15
3435 , p6_a16
3436 , p6_a17
3437 , p6_a18
3438 , p6_a19
3439 , p6_a20
3440 , p6_a21
3441 , p6_a22
3442 , p6_a23
3443 , p6_a24
3444 , p6_a25
3445 , p6_a26
3446 , p6_a27
3447 , p6_a28
3448 , p6_a29
3449 , p6_a30
3450 , p6_a31
3451 , p6_a32
3452 , p6_a33
3453 , p6_a34
3454 , p6_a35
3455 , p6_a36
3456 , p6_a37
3457 , p6_a38
3458 , p6_a39
3459 , p6_a40
3460 , p6_a41
3461 , p6_a42
3462 , p6_a43
3463 , p6_a44
3464 , p6_a45
3465 );
3466
3467
3468
3469
3470
3471
3472
3473
3474 -- here's the delegated call to the old PL/SQL routine
3475 eam_process_safety_pub.process_work_permit(p_bo_identifier,
3476 p_api_version_number,
3477 ddp_init_msg_list,
3478 p_commit,
3479 ddp_work_permit_header_rec,
3480 ddp_permit_wo_association_tbl,
3481 ddp_permit_clearance_asso_tbl,
3482 p_debug,
3483 p_output_dir,
3484 p_debug_filename,
3485 p_debug_file_mode,
3486 x_permit_id,
3487 x_return_status,
3488 x_msg_count);
3489
3490 -- copy data back from the local variables to OUT or IN-OUT args, if any
3491
3492
3493
3494
3495
3499
3496
3497
3498
3500
3501
3502
3503
3504 end;
3505
3506 procedure copy_work_permit(p_bo_identifier VARCHAR2
3507 , p_api_version_number NUMBER
3508 , p_init_msg_list number
3509 , p_commit VARCHAR2
3510 , p_debug VARCHAR2
3511 , p_output_dir VARCHAR2
3512 , p_debug_filename VARCHAR2
3513 , p_debug_file_mode VARCHAR2
3514 , p_org_id NUMBER
3515 , px_permit_id in out nocopy NUMBER
3516 , x_return_status out nocopy VARCHAR2
3517 , x_msg_count out nocopy NUMBER
3518 )
3519
3520 as
3521 ddp_init_msg_list boolean;
3522 ddindx binary_integer; indx binary_integer;
3523 begin
3524
3525 -- copy data to the local IN or IN-OUT args, if any
3526
3527
3528 if p_init_msg_list is null
3529 then ddp_init_msg_list := null;
3530 elsif p_init_msg_list = 0
3531 then ddp_init_msg_list := false;
3532 else ddp_init_msg_list := true;
3533 end if;
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544 -- here's the delegated call to the old PL/SQL routine
3545 eam_process_safety_pub.copy_work_permit(p_bo_identifier,
3546 p_api_version_number,
3547 ddp_init_msg_list,
3548 p_commit,
3549 p_debug,
3550 p_output_dir,
3551 p_debug_filename,
3552 p_debug_file_mode,
3553 p_org_id,
3554 px_permit_id,
3555 x_return_status,
3556 x_msg_count);
3557
3558 -- copy data back from the local variables to OUT or IN-OUT args, if any
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570 end;
3571
3572 procedure permit_clearance_association(p_bo_identifier VARCHAR2
3573 , p_api_version_number NUMBER
3574 , p_init_msg_list number
3575 , p_commit VARCHAR2
3576 , p4_a0 JTF_NUMBER_TABLE
3577 , p4_a1 JTF_NUMBER_TABLE
3578 , p4_a2 JTF_NUMBER_TABLE
3579 , p4_a3 JTF_NUMBER_TABLE
3580 , p4_a4 JTF_NUMBER_TABLE
3581 , p4_a5 JTF_NUMBER_TABLE
3582 , p4_a6 JTF_NUMBER_TABLE
3583 , p4_a7 JTF_NUMBER_TABLE
3584 , p4_a8 JTF_DATE_TABLE
3585 , p4_a9 JTF_DATE_TABLE
3586 , p4_a10 JTF_NUMBER_TABLE
3587 , p4_a11 JTF_VARCHAR2_TABLE_100
3588 , p4_a12 JTF_VARCHAR2_TABLE_300
3589 , p4_a13 JTF_VARCHAR2_TABLE_100
3590 , p4_a14 JTF_VARCHAR2_TABLE_300
3591 , p4_a15 JTF_VARCHAR2_TABLE_300
3592 , p4_a16 JTF_VARCHAR2_TABLE_300
3593 , p4_a17 JTF_VARCHAR2_TABLE_300
3594 , p4_a18 JTF_VARCHAR2_TABLE_300
3595 , p4_a19 JTF_VARCHAR2_TABLE_300
3596 , p4_a20 JTF_VARCHAR2_TABLE_300
3597 , p4_a21 JTF_VARCHAR2_TABLE_300
3598 , p4_a22 JTF_VARCHAR2_TABLE_300
3599 , p4_a23 JTF_VARCHAR2_TABLE_300
3600 , p4_a24 JTF_VARCHAR2_TABLE_300
3601 , p4_a25 JTF_VARCHAR2_TABLE_300
3602 , p4_a26 JTF_VARCHAR2_TABLE_300
3603 , p4_a27 JTF_VARCHAR2_TABLE_300
3604 , p4_a28 JTF_VARCHAR2_TABLE_300
3605 , p4_a29 JTF_VARCHAR2_TABLE_300
3606 , p4_a30 JTF_VARCHAR2_TABLE_300
3607 , p4_a31 JTF_VARCHAR2_TABLE_300
3608 , p4_a32 JTF_VARCHAR2_TABLE_300
3609 , p4_a33 JTF_VARCHAR2_TABLE_300
3610 , p4_a34 JTF_VARCHAR2_TABLE_300
3611 , p4_a35 JTF_VARCHAR2_TABLE_300
3612 , p4_a36 JTF_VARCHAR2_TABLE_300
3613 , p4_a37 JTF_VARCHAR2_TABLE_300
3614 , p4_a38 JTF_VARCHAR2_TABLE_300
3615 , p4_a39 JTF_VARCHAR2_TABLE_300
3616 , p4_a40 JTF_VARCHAR2_TABLE_300
3617 , p4_a41 JTF_VARCHAR2_TABLE_300
3618 , p4_a42 JTF_VARCHAR2_TABLE_300
3619 , p4_a43 JTF_VARCHAR2_TABLE_300
3620 , p4_a44 JTF_NUMBER_TABLE
3621 , p4_a45 JTF_DATE_TABLE
3622 , p_debug VARCHAR2
3623 , p_output_dir VARCHAR2
3624 , p_debug_filename VARCHAR2
3625 , p_debug_file_mode VARCHAR2
3626 , x_return_status out nocopy VARCHAR2
3627 , x_msg_count out nocopy NUMBER
3628 )
3629
3630 as
3631 ddp_init_msg_list boolean;
3632 ddp_permit_clearance_asso_tbl eam_process_safety_pub.eam_safety_assoc_tbl_type;
3633 ddindx binary_integer; indx binary_integer;
3634 begin
3635
3636 -- copy data to the local IN or IN-OUT args, if any
3637
3638
3639 if p_init_msg_list is null
3640 then ddp_init_msg_list := null;
3641 elsif p_init_msg_list = 0
3642 then ddp_init_msg_list := false;
3643 else ddp_init_msg_list := true;
3644 end if;
3645
3646
3647 eam_process_safety_pub_w.rosetta_table_copy_in_p8(ddp_permit_clearance_asso_tbl, p4_a0
3648 , p4_a1
3649 , p4_a2
3650 , p4_a3
3651 , p4_a4
3652 , p4_a5
3653 , p4_a6
3654 , p4_a7
3655 , p4_a8
3656 , p4_a9
3657 , p4_a10
3658 , p4_a11
3659 , p4_a12
3660 , p4_a13
3661 , p4_a14
3662 , p4_a15
3663 , p4_a16
3664 , p4_a17
3665 , p4_a18
3666 , p4_a19
3667 , p4_a20
3668 , p4_a21
3669 , p4_a22
3670 , p4_a23
3671 , p4_a24
3672 , p4_a25
3673 , p4_a26
3674 , p4_a27
3675 , p4_a28
3676 , p4_a29
3677 , p4_a30
3678 , p4_a31
3679 , p4_a32
3680 , p4_a33
3681 , p4_a34
3682 , p4_a35
3683 , p4_a36
3684 , p4_a37
3685 , p4_a38
3686 , p4_a39
3687 , p4_a40
3688 , p4_a41
3689 , p4_a42
3690 , p4_a43
3691 , p4_a44
3692 , p4_a45
3696
3693 );
3694
3695
3697
3698
3699
3700
3701 -- here's the delegated call to the old PL/SQL routine
3702 eam_process_safety_pub.permit_clearance_association(p_bo_identifier,
3703 p_api_version_number,
3704 ddp_init_msg_list,
3705 p_commit,
3706 ddp_permit_clearance_asso_tbl,
3707 p_debug,
3708 p_output_dir,
3709 p_debug_filename,
3710 p_debug_file_mode,
3711 x_return_status,
3712 x_msg_count);
3713
3714 -- copy data back from the local variables to OUT or IN-OUT args, if any
3715
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725 end;
3726
3727 procedure clearance_wo_association(p_bo_identifier VARCHAR2
3728 , p_api_version_number NUMBER
3729 , p_init_msg_list number
3730 , p_commit VARCHAR2
3731 , p4_a0 JTF_NUMBER_TABLE
3732 , p4_a1 JTF_NUMBER_TABLE
3733 , p4_a2 JTF_NUMBER_TABLE
3734 , p4_a3 JTF_NUMBER_TABLE
3735 , p4_a4 JTF_NUMBER_TABLE
3736 , p4_a5 JTF_NUMBER_TABLE
3737 , p4_a6 JTF_NUMBER_TABLE
3738 , p4_a7 JTF_NUMBER_TABLE
3739 , p4_a8 JTF_DATE_TABLE
3740 , p4_a9 JTF_DATE_TABLE
3741 , p4_a10 JTF_NUMBER_TABLE
3742 , p4_a11 JTF_VARCHAR2_TABLE_100
3743 , p4_a12 JTF_VARCHAR2_TABLE_300
3744 , p4_a13 JTF_VARCHAR2_TABLE_100
3745 , p4_a14 JTF_VARCHAR2_TABLE_300
3746 , p4_a15 JTF_VARCHAR2_TABLE_300
3747 , p4_a16 JTF_VARCHAR2_TABLE_300
3748 , p4_a17 JTF_VARCHAR2_TABLE_300
3749 , p4_a18 JTF_VARCHAR2_TABLE_300
3750 , p4_a19 JTF_VARCHAR2_TABLE_300
3751 , p4_a20 JTF_VARCHAR2_TABLE_300
3752 , p4_a21 JTF_VARCHAR2_TABLE_300
3753 , p4_a22 JTF_VARCHAR2_TABLE_300
3754 , p4_a23 JTF_VARCHAR2_TABLE_300
3755 , p4_a24 JTF_VARCHAR2_TABLE_300
3756 , p4_a25 JTF_VARCHAR2_TABLE_300
3757 , p4_a26 JTF_VARCHAR2_TABLE_300
3758 , p4_a27 JTF_VARCHAR2_TABLE_300
3759 , p4_a28 JTF_VARCHAR2_TABLE_300
3760 , p4_a29 JTF_VARCHAR2_TABLE_300
3761 , p4_a30 JTF_VARCHAR2_TABLE_300
3762 , p4_a31 JTF_VARCHAR2_TABLE_300
3763 , p4_a32 JTF_VARCHAR2_TABLE_300
3764 , p4_a33 JTF_VARCHAR2_TABLE_300
3765 , p4_a34 JTF_VARCHAR2_TABLE_300
3766 , p4_a35 JTF_VARCHAR2_TABLE_300
3767 , p4_a36 JTF_VARCHAR2_TABLE_300
3768 , p4_a37 JTF_VARCHAR2_TABLE_300
3769 , p4_a38 JTF_VARCHAR2_TABLE_300
3770 , p4_a39 JTF_VARCHAR2_TABLE_300
3771 , p4_a40 JTF_VARCHAR2_TABLE_300
3772 , p4_a41 JTF_VARCHAR2_TABLE_300
3773 , p4_a42 JTF_VARCHAR2_TABLE_300
3774 , p4_a43 JTF_VARCHAR2_TABLE_300
3775 , p4_a44 JTF_NUMBER_TABLE
3776 , p4_a45 JTF_DATE_TABLE
3777 , p_debug VARCHAR2
3778 , p_output_dir VARCHAR2
3779 , p_debug_filename VARCHAR2
3780 , p_debug_file_mode VARCHAR2
3781 , x_return_status out nocopy VARCHAR2
3782 , x_msg_count out nocopy NUMBER
3783 )
3784
3785 as
3786 ddp_init_msg_list boolean;
3787 ddp_clearance_wo_asso_tbl eam_process_safety_pub.eam_safety_assoc_tbl_type;
3788 ddindx binary_integer; indx binary_integer;
3789 begin
3790
3791 -- copy data to the local IN or IN-OUT args, if any
3792
3793
3794 if p_init_msg_list is null
3795 then ddp_init_msg_list := null;
3796 elsif p_init_msg_list = 0
3797 then ddp_init_msg_list := false;
3798 else ddp_init_msg_list := true;
3799 end if;
3800
3801
3802 eam_process_safety_pub_w.rosetta_table_copy_in_p8(ddp_clearance_wo_asso_tbl, p4_a0
3803 , p4_a1
3804 , p4_a2
3805 , p4_a3
3806 , p4_a4
3807 , p4_a5
3808 , p4_a6
3809 , p4_a7
3810 , p4_a8
3811 , p4_a9
3812 , p4_a10
3813 , p4_a11
3814 , p4_a12
3815 , p4_a13
3816 , p4_a14
3817 , p4_a15
3818 , p4_a16
3819 , p4_a17
3820 , p4_a18
3821 , p4_a19
3822 , p4_a20
3823 , p4_a21
3824 , p4_a22
3825 , p4_a23
3826 , p4_a24
3827 , p4_a25
3828 , p4_a26
3829 , p4_a27
3830 , p4_a28
3831 , p4_a29
3832 , p4_a30
3833 , p4_a31
3834 , p4_a32
3835 , p4_a33
3836 , p4_a34
3837 , p4_a35
3838 , p4_a36
3839 , p4_a37
3840 , p4_a38
3841 , p4_a39
3842 , p4_a40
3843 , p4_a41
3844 , p4_a42
3845 , p4_a43
3846 , p4_a44
3847 , p4_a45
3848 );
3849
3850
3851
3852
3853
3854
3855
3856 -- here's the delegated call to the old PL/SQL routine
3857 eam_process_safety_pub.clearance_wo_association(p_bo_identifier,
3858 p_api_version_number,
3859 ddp_init_msg_list,
3860 p_commit,
3861 ddp_clearance_wo_asso_tbl,
3862 p_debug,
3863 p_output_dir,
3864 p_debug_filename,
3865 p_debug_file_mode,
3866 x_return_status,
3867 x_msg_count);
3868
3869 -- copy data back from the local variables to OUT or IN-OUT args, if any
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
3880 end;
3881
3882 procedure permit_work_order_association(p_bo_identifier VARCHAR2
3883 , p_api_version_number NUMBER
3884 , p_init_msg_list number
3885 , p_commit VARCHAR2
3886 , p4_a0 JTF_NUMBER_TABLE
3887 , p4_a1 JTF_NUMBER_TABLE
3888 , p4_a2 JTF_NUMBER_TABLE
3889 , p4_a3 JTF_NUMBER_TABLE
3893 , p4_a7 JTF_NUMBER_TABLE
3890 , p4_a4 JTF_NUMBER_TABLE
3891 , p4_a5 JTF_NUMBER_TABLE
3892 , p4_a6 JTF_NUMBER_TABLE
3894 , p4_a8 JTF_DATE_TABLE
3895 , p4_a9 JTF_DATE_TABLE
3896 , p4_a10 JTF_NUMBER_TABLE
3897 , p4_a11 JTF_VARCHAR2_TABLE_100
3898 , p4_a12 JTF_VARCHAR2_TABLE_300
3899 , p4_a13 JTF_VARCHAR2_TABLE_100
3900 , p4_a14 JTF_VARCHAR2_TABLE_300
3901 , p4_a15 JTF_VARCHAR2_TABLE_300
3902 , p4_a16 JTF_VARCHAR2_TABLE_300
3903 , p4_a17 JTF_VARCHAR2_TABLE_300
3904 , p4_a18 JTF_VARCHAR2_TABLE_300
3905 , p4_a19 JTF_VARCHAR2_TABLE_300
3906 , p4_a20 JTF_VARCHAR2_TABLE_300
3907 , p4_a21 JTF_VARCHAR2_TABLE_300
3908 , p4_a22 JTF_VARCHAR2_TABLE_300
3909 , p4_a23 JTF_VARCHAR2_TABLE_300
3910 , p4_a24 JTF_VARCHAR2_TABLE_300
3911 , p4_a25 JTF_VARCHAR2_TABLE_300
3912 , p4_a26 JTF_VARCHAR2_TABLE_300
3913 , p4_a27 JTF_VARCHAR2_TABLE_300
3914 , p4_a28 JTF_VARCHAR2_TABLE_300
3915 , p4_a29 JTF_VARCHAR2_TABLE_300
3916 , p4_a30 JTF_VARCHAR2_TABLE_300
3917 , p4_a31 JTF_VARCHAR2_TABLE_300
3918 , p4_a32 JTF_VARCHAR2_TABLE_300
3919 , p4_a33 JTF_VARCHAR2_TABLE_300
3920 , p4_a34 JTF_VARCHAR2_TABLE_300
3921 , p4_a35 JTF_VARCHAR2_TABLE_300
3922 , p4_a36 JTF_VARCHAR2_TABLE_300
3923 , p4_a37 JTF_VARCHAR2_TABLE_300
3924 , p4_a38 JTF_VARCHAR2_TABLE_300
3925 , p4_a39 JTF_VARCHAR2_TABLE_300
3926 , p4_a40 JTF_VARCHAR2_TABLE_300
3927 , p4_a41 JTF_VARCHAR2_TABLE_300
3928 , p4_a42 JTF_VARCHAR2_TABLE_300
3929 , p4_a43 JTF_VARCHAR2_TABLE_300
3930 , p4_a44 JTF_NUMBER_TABLE
3931 , p4_a45 JTF_DATE_TABLE
3932 , p_debug VARCHAR2
3933 , p_output_dir VARCHAR2
3934 , p_debug_filename VARCHAR2
3935 , p_debug_file_mode VARCHAR2
3936 , x_return_status out nocopy VARCHAR2
3937 , x_msg_count out nocopy NUMBER
3938 )
3939
3940 as
3941 ddp_init_msg_list boolean;
3942 ddp_permit_wo_association_tbl eam_process_safety_pub.eam_safety_assoc_tbl_type;
3943 ddindx binary_integer; indx binary_integer;
3944 begin
3945
3946 -- copy data to the local IN or IN-OUT args, if any
3947
3948
3949 if p_init_msg_list is null
3950 then ddp_init_msg_list := null;
3951 elsif p_init_msg_list = 0
3952 then ddp_init_msg_list := false;
3953 else ddp_init_msg_list := true;
3954 end if;
3955
3956
3957 eam_process_safety_pub_w.rosetta_table_copy_in_p8(ddp_permit_wo_association_tbl, p4_a0
3958 , p4_a1
3959 , p4_a2
3960 , p4_a3
3961 , p4_a4
3962 , p4_a5
3963 , p4_a6
3964 , p4_a7
3965 , p4_a8
3966 , p4_a9
3967 , p4_a10
3968 , p4_a11
3969 , p4_a12
3970 , p4_a13
3971 , p4_a14
3972 , p4_a15
3973 , p4_a16
3974 , p4_a17
3975 , p4_a18
3976 , p4_a19
3977 , p4_a20
3978 , p4_a21
3979 , p4_a22
3980 , p4_a23
3981 , p4_a24
3982 , p4_a25
3983 , p4_a26
3984 , p4_a27
3985 , p4_a28
3986 , p4_a29
3987 , p4_a30
3988 , p4_a31
3989 , p4_a32
3990 , p4_a33
3991 , p4_a34
3992 , p4_a35
3993 , p4_a36
3994 , p4_a37
3995 , p4_a38
3996 , p4_a39
3997 , p4_a40
3998 , p4_a41
3999 , p4_a42
4000 , p4_a43
4001 , p4_a44
4002 , p4_a45
4003 );
4004
4005
4006
4007
4008
4009
4010
4011 -- here's the delegated call to the old PL/SQL routine
4012 eam_process_safety_pub.permit_work_order_association(p_bo_identifier,
4013 p_api_version_number,
4014 ddp_init_msg_list,
4015 p_commit,
4016 ddp_permit_wo_association_tbl,
4017 p_debug,
4018 p_output_dir,
4019 p_debug_filename,
4020 p_debug_file_mode,
4021 x_return_status,
4022 x_msg_count);
4023
4024 -- copy data back from the local variables to OUT or IN-OUT args, if any
4025
4026
4027
4028
4029
4030
4031
4032
4033
4034
4035 end;
4036
4037 procedure asset_isolation_association(p_bo_identifier VARCHAR2
4038 , p_api_version_number NUMBER
4039 , p_init_msg_list number
4040 , p_commit VARCHAR2
4041 , p4_a0 JTF_NUMBER_TABLE
4042 , p4_a1 JTF_NUMBER_TABLE
4043 , p4_a2 JTF_NUMBER_TABLE
4044 , p4_a3 JTF_NUMBER_TABLE
4045 , p4_a4 JTF_NUMBER_TABLE
4046 , p4_a5 JTF_NUMBER_TABLE
4047 , p4_a6 JTF_NUMBER_TABLE
4048 , p4_a7 JTF_NUMBER_TABLE
4049 , p4_a8 JTF_DATE_TABLE
4050 , p4_a9 JTF_DATE_TABLE
4051 , p4_a10 JTF_NUMBER_TABLE
4052 , p4_a11 JTF_VARCHAR2_TABLE_100
4053 , p4_a12 JTF_VARCHAR2_TABLE_300
4054 , p4_a13 JTF_VARCHAR2_TABLE_100
4055 , p4_a14 JTF_VARCHAR2_TABLE_300
4056 , p4_a15 JTF_VARCHAR2_TABLE_300
4057 , p4_a16 JTF_VARCHAR2_TABLE_300
4058 , p4_a17 JTF_VARCHAR2_TABLE_300
4059 , p4_a18 JTF_VARCHAR2_TABLE_300
4060 , p4_a19 JTF_VARCHAR2_TABLE_300
4061 , p4_a20 JTF_VARCHAR2_TABLE_300
4062 , p4_a21 JTF_VARCHAR2_TABLE_300
4063 , p4_a22 JTF_VARCHAR2_TABLE_300
4064 , p4_a23 JTF_VARCHAR2_TABLE_300
4065 , p4_a24 JTF_VARCHAR2_TABLE_300
4066 , p4_a25 JTF_VARCHAR2_TABLE_300
4067 , p4_a26 JTF_VARCHAR2_TABLE_300
4068 , p4_a27 JTF_VARCHAR2_TABLE_300
4069 , p4_a28 JTF_VARCHAR2_TABLE_300
4070 , p4_a29 JTF_VARCHAR2_TABLE_300
4071 , p4_a30 JTF_VARCHAR2_TABLE_300
4072 , p4_a31 JTF_VARCHAR2_TABLE_300
4076 , p4_a35 JTF_VARCHAR2_TABLE_300
4073 , p4_a32 JTF_VARCHAR2_TABLE_300
4074 , p4_a33 JTF_VARCHAR2_TABLE_300
4075 , p4_a34 JTF_VARCHAR2_TABLE_300
4077 , p4_a36 JTF_VARCHAR2_TABLE_300
4078 , p4_a37 JTF_VARCHAR2_TABLE_300
4079 , p4_a38 JTF_VARCHAR2_TABLE_300
4080 , p4_a39 JTF_VARCHAR2_TABLE_300
4081 , p4_a40 JTF_VARCHAR2_TABLE_300
4082 , p4_a41 JTF_VARCHAR2_TABLE_300
4083 , p4_a42 JTF_VARCHAR2_TABLE_300
4084 , p4_a43 JTF_VARCHAR2_TABLE_300
4085 , p4_a44 JTF_NUMBER_TABLE
4086 , p4_a45 JTF_DATE_TABLE
4087 , p_debug VARCHAR2
4088 , p_output_dir VARCHAR2
4089 , p_debug_filename VARCHAR2
4090 , p_debug_file_mode VARCHAR2
4091 , x_return_status out nocopy VARCHAR2
4092 , x_msg_count out nocopy NUMBER
4093 )
4094
4095 as
4096 ddp_init_msg_list boolean;
4097 ddp_isolated_assets_tbl eam_process_safety_pub.eam_safety_assoc_tbl_type;
4098 ddindx binary_integer; indx binary_integer;
4099 begin
4100
4101 -- copy data to the local IN or IN-OUT args, if any
4102
4103
4104 if p_init_msg_list is null
4105 then ddp_init_msg_list := null;
4106 elsif p_init_msg_list = 0
4107 then ddp_init_msg_list := false;
4108 else ddp_init_msg_list := true;
4109 end if;
4110
4111
4112 eam_process_safety_pub_w.rosetta_table_copy_in_p8(ddp_isolated_assets_tbl, p4_a0
4113 , p4_a1
4114 , p4_a2
4115 , p4_a3
4116 , p4_a4
4117 , p4_a5
4118 , p4_a6
4119 , p4_a7
4120 , p4_a8
4121 , p4_a9
4122 , p4_a10
4123 , p4_a11
4124 , p4_a12
4125 , p4_a13
4126 , p4_a14
4127 , p4_a15
4128 , p4_a16
4129 , p4_a17
4130 , p4_a18
4131 , p4_a19
4132 , p4_a20
4133 , p4_a21
4134 , p4_a22
4135 , p4_a23
4136 , p4_a24
4137 , p4_a25
4138 , p4_a26
4139 , p4_a27
4140 , p4_a28
4141 , p4_a29
4142 , p4_a30
4143 , p4_a31
4144 , p4_a32
4145 , p4_a33
4146 , p4_a34
4147 , p4_a35
4148 , p4_a36
4149 , p4_a37
4150 , p4_a38
4151 , p4_a39
4152 , p4_a40
4153 , p4_a41
4154 , p4_a42
4155 , p4_a43
4156 , p4_a44
4157 , p4_a45
4158 );
4159
4160
4161
4162
4163
4164
4165
4166 -- here's the delegated call to the old PL/SQL routine
4167 eam_process_safety_pub.asset_isolation_association(p_bo_identifier,
4168 p_api_version_number,
4169 ddp_init_msg_list,
4170 p_commit,
4171 ddp_isolated_assets_tbl,
4172 p_debug,
4173 p_output_dir,
4174 p_debug_filename,
4175 p_debug_file_mode,
4176 x_return_status,
4177 x_msg_count);
4178
4179 -- copy data back from the local variables to OUT or IN-OUT args, if any
4180
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190 end;
4191
4192 END EAM_PROCESS_SAFETY_PUB_W;