[Home] [Help]
PACKAGE BODY: APPS.CSI_SYSTEMS_PUB_W
Source
1 package body csi_systems_pub_w as
2 /* $Header: csipsywb.pls 120.9 2006/07/11 03:19:41 brajendr noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 function rosetta_g_miss_num_map(n number) return number as
17 a number := fnd_api.g_miss_num;
18 b number := 0-1962.0724;
19 begin
20 if n=a then return b; end if;
21 if n=b then return a; end if;
22 return n;
23 end;
24
25 procedure get_systems(p_api_version NUMBER
26 , p_commit VARCHAR2
27 , p_init_msg_list VARCHAR2
28 , p_validation_level NUMBER
29 , p_time_stamp date
30 , p_active_systems_only VARCHAR2
31 , p7_a0 out nocopy JTF_NUMBER_TABLE
32 , p7_a1 out nocopy JTF_NUMBER_TABLE
33 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_100
34 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
35 , p7_a4 out nocopy JTF_NUMBER_TABLE
36 , p7_a5 out nocopy JTF_NUMBER_TABLE
37 , p7_a6 out nocopy JTF_NUMBER_TABLE
38 , p7_a7 out nocopy JTF_NUMBER_TABLE
39 , p7_a8 out nocopy JTF_NUMBER_TABLE
40 , p7_a9 out nocopy JTF_NUMBER_TABLE
41 , p7_a10 out nocopy JTF_NUMBER_TABLE
42 , p7_a11 out nocopy JTF_NUMBER_TABLE
43 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_100
44 , p7_a13 out nocopy JTF_NUMBER_TABLE
45 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_100
46 , p7_a15 out nocopy JTF_DATE_TABLE
47 , p7_a16 out nocopy JTF_DATE_TABLE
48 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_100
49 , p7_a18 out nocopy JTF_VARCHAR2_TABLE_300
50 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_300
51 , p7_a20 out nocopy JTF_VARCHAR2_TABLE_300
52 , p7_a21 out nocopy JTF_VARCHAR2_TABLE_300
53 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_300
54 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_300
55 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_300
56 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_300
57 , p7_a26 out nocopy JTF_VARCHAR2_TABLE_300
58 , p7_a27 out nocopy JTF_VARCHAR2_TABLE_300
59 , p7_a28 out nocopy JTF_VARCHAR2_TABLE_300
60 , p7_a29 out nocopy JTF_VARCHAR2_TABLE_300
61 , p7_a30 out nocopy JTF_VARCHAR2_TABLE_300
62 , p7_a31 out nocopy JTF_VARCHAR2_TABLE_300
63 , p7_a32 out nocopy JTF_VARCHAR2_TABLE_300
64 , p7_a33 out nocopy JTF_NUMBER_TABLE
65 , p7_a34 out nocopy JTF_VARCHAR2_TABLE_100
66 , p7_a35 out nocopy JTF_VARCHAR2_TABLE_300
67 , p7_a36 out nocopy JTF_VARCHAR2_TABLE_100
68 , p7_a37 out nocopy JTF_VARCHAR2_TABLE_100
69 , p7_a38 out nocopy JTF_VARCHAR2_TABLE_100
70 , p7_a39 out nocopy JTF_VARCHAR2_TABLE_100
71 , p7_a40 out nocopy JTF_VARCHAR2_TABLE_100
72 , p7_a41 out nocopy JTF_VARCHAR2_TABLE_100
73 , p7_a42 out nocopy JTF_VARCHAR2_TABLE_100
74 , p7_a43 out nocopy JTF_VARCHAR2_TABLE_100
75 , p7_a44 out nocopy JTF_NUMBER_TABLE
76 , p7_a45 out nocopy JTF_NUMBER_TABLE
77 , p7_a46 out nocopy JTF_NUMBER_TABLE
78 , p7_a47 out nocopy JTF_NUMBER_TABLE
79 , p7_a48 out nocopy JTF_DATE_TABLE
80 , x_return_status out nocopy VARCHAR2
81 , x_msg_count out nocopy NUMBER
82 , x_msg_data out nocopy VARCHAR2
83 , p4_a0 NUMBER := 0-1962.0724
84 , p4_a1 VARCHAR2 := fnd_api.g_miss_char
85 , p4_a2 VARCHAR2 := fnd_api.g_miss_char
86 )
87
88 as
89 ddp_system_query_rec csi_datastructures_pub.system_query_rec;
90 ddp_time_stamp date;
91 ddx_systems_tbl csi_datastructures_pub.systems_tbl;
92 ddindx binary_integer; indx binary_integer;
93 begin
94
95 -- copy data to the local IN or IN-OUT args, if any
96
97
98
99
100 ddp_system_query_rec.system_id := rosetta_g_miss_num_map(p4_a0);
101 ddp_system_query_rec.system_type_code := p4_a1;
102 ddp_system_query_rec.system_number := p4_a2;
103
104 ddp_time_stamp := rosetta_g_miss_date_in_map(p_time_stamp);
105
106
107
108
109
110
111 -- here's the delegated call to the old PL/SQL routine
112 csi_systems_pub.get_systems(p_api_version,
113 p_commit,
114 p_init_msg_list,
115 p_validation_level,
116 ddp_system_query_rec,
117 ddp_time_stamp,
118 p_active_systems_only,
119 ddx_systems_tbl,
120 x_return_status,
121 x_msg_count,
122 x_msg_data);
123
124 -- copy data back from the local variables to OUT or IN-OUT args, if any
125
126
127
128
129
130
131
132 csi_datastructures_pub_w.rosetta_table_copy_out_p36(ddx_systems_tbl, p7_a0
133 , p7_a1
134 , p7_a2
135 , p7_a3
136 , p7_a4
137 , p7_a5
138 , p7_a6
139 , p7_a7
140 , p7_a8
141 , p7_a9
142 , p7_a10
143 , p7_a11
144 , p7_a12
145 , p7_a13
146 , p7_a14
147 , p7_a15
148 , p7_a16
149 , p7_a17
150 , p7_a18
151 , p7_a19
152 , p7_a20
153 , p7_a21
154 , p7_a22
155 , p7_a23
156 , p7_a24
157 , p7_a25
158 , p7_a26
159 , p7_a27
160 , p7_a28
161 , p7_a29
162 , p7_a30
163 , p7_a31
164 , p7_a32
165 , p7_a33
166 , p7_a34
167 , p7_a35
168 , p7_a36
169 , p7_a37
170 , p7_a38
171 , p7_a39
172 , p7_a40
173 , p7_a41
174 , p7_a42
175 , p7_a43
176 , p7_a44
177 , p7_a45
178 , p7_a46
179 , p7_a47
180 , p7_a48
181 );
182
183
184
185 end;
186
187 procedure create_system(p_api_version NUMBER
188 , p_commit VARCHAR2
189 , p_init_msg_list VARCHAR2
190 , p_validation_level NUMBER
191 , p5_a0 in out nocopy NUMBER
192 , p5_a1 in out nocopy DATE
193 , p5_a2 in out nocopy DATE
194 , p5_a3 in out nocopy NUMBER
195 , p5_a4 in out nocopy NUMBER
196 , p5_a5 in out nocopy NUMBER
197 , p5_a6 in out nocopy VARCHAR2
198 , p5_a7 in out nocopy NUMBER
199 , p5_a8 in out nocopy VARCHAR2
200 , p5_a9 in out nocopy NUMBER
201 , p5_a10 in out nocopy VARCHAR2
202 , p5_a11 in out nocopy NUMBER
203 , p5_a12 in out nocopy NUMBER
204 , p5_a13 in out nocopy NUMBER
205 , p5_a14 in out nocopy NUMBER
206 , p5_a15 in out nocopy VARCHAR2
207 , p5_a16 in out nocopy NUMBER
208 , p5_a17 in out nocopy VARCHAR2
209 , p5_a18 in out nocopy VARCHAR2
210 , p5_a19 in out nocopy NUMBER
211 , p5_a20 in out nocopy VARCHAR2
212 , p5_a21 in out nocopy VARCHAR2
213 , p5_a22 in out nocopy VARCHAR2
214 , p5_a23 in out nocopy VARCHAR2
215 , p5_a24 in out nocopy VARCHAR2
216 , p5_a25 in out nocopy VARCHAR2
217 , p5_a26 in out nocopy VARCHAR2
218 , p5_a27 in out nocopy VARCHAR2
219 , p5_a28 in out nocopy VARCHAR2
220 , p5_a29 in out nocopy VARCHAR2
221 , p5_a30 in out nocopy VARCHAR2
222 , p5_a31 in out nocopy VARCHAR2
223 , p5_a32 in out nocopy VARCHAR2
224 , p5_a33 in out nocopy VARCHAR2
225 , p5_a34 in out nocopy VARCHAR2
226 , p5_a35 in out nocopy VARCHAR2
227 , p5_a36 in out nocopy NUMBER
228 , p5_a37 in out nocopy VARCHAR2
229 , p5_a38 in out nocopy DATE
230 , p5_a39 in out nocopy NUMBER
231 , x_system_id out nocopy NUMBER
232 , x_return_status out nocopy VARCHAR2
233 , x_msg_count out nocopy NUMBER
234 , x_msg_data out nocopy VARCHAR2
235 , p4_a0 NUMBER := 0-1962.0724
236 , p4_a1 NUMBER := 0-1962.0724
237 , p4_a2 VARCHAR2 := fnd_api.g_miss_char
238 , p4_a3 VARCHAR2 := fnd_api.g_miss_char
239 , p4_a4 NUMBER := 0-1962.0724
240 , p4_a5 NUMBER := 0-1962.0724
241 , p4_a6 NUMBER := 0-1962.0724
242 , p4_a7 NUMBER := 0-1962.0724
243 , p4_a8 NUMBER := 0-1962.0724
244 , p4_a9 NUMBER := 0-1962.0724
245 , p4_a10 NUMBER := 0-1962.0724
246 , p4_a11 NUMBER := 0-1962.0724
247 , p4_a12 VARCHAR2 := fnd_api.g_miss_char
248 , p4_a13 NUMBER := 0-1962.0724
249 , p4_a14 VARCHAR2 := fnd_api.g_miss_char
250 , p4_a15 DATE := fnd_api.g_miss_date
251 , p4_a16 DATE := fnd_api.g_miss_date
252 , p4_a17 VARCHAR2 := fnd_api.g_miss_char
253 , p4_a18 VARCHAR2 := fnd_api.g_miss_char
254 , p4_a19 VARCHAR2 := fnd_api.g_miss_char
255 , p4_a20 VARCHAR2 := fnd_api.g_miss_char
256 , p4_a21 VARCHAR2 := fnd_api.g_miss_char
257 , p4_a22 VARCHAR2 := fnd_api.g_miss_char
258 , p4_a23 VARCHAR2 := fnd_api.g_miss_char
259 , p4_a24 VARCHAR2 := fnd_api.g_miss_char
260 , p4_a25 VARCHAR2 := fnd_api.g_miss_char
261 , p4_a26 VARCHAR2 := fnd_api.g_miss_char
262 , p4_a27 VARCHAR2 := fnd_api.g_miss_char
263 , p4_a28 VARCHAR2 := fnd_api.g_miss_char
264 , p4_a29 VARCHAR2 := fnd_api.g_miss_char
265 , p4_a30 VARCHAR2 := fnd_api.g_miss_char
266 , p4_a31 VARCHAR2 := fnd_api.g_miss_char
267 , p4_a32 VARCHAR2 := fnd_api.g_miss_char
268 , p4_a33 NUMBER := 0-1962.0724
269 , p4_a34 VARCHAR2 := fnd_api.g_miss_char
270 , p4_a35 VARCHAR2 := fnd_api.g_miss_char
271 , p4_a36 VARCHAR2 := fnd_api.g_miss_char
272 , p4_a37 VARCHAR2 := fnd_api.g_miss_char
273 , p4_a38 VARCHAR2 := fnd_api.g_miss_char
274 , p4_a39 VARCHAR2 := fnd_api.g_miss_char
275 , p4_a40 VARCHAR2 := fnd_api.g_miss_char
276 , p4_a41 VARCHAR2 := fnd_api.g_miss_char
277 , p4_a42 VARCHAR2 := fnd_api.g_miss_char
278 , p4_a43 VARCHAR2 := fnd_api.g_miss_char
279 , p4_a44 NUMBER := 0-1962.0724
280 , p4_a45 NUMBER := 0-1962.0724
281 , p4_a46 NUMBER := 0-1962.0724
282 , p4_a47 NUMBER := 0-1962.0724
283 , p4_a48 DATE := fnd_api.g_miss_date
284 )
285
286 as
287 ddp_system_rec csi_datastructures_pub.system_rec;
288 ddp_txn_rec csi_datastructures_pub.transaction_rec;
289 ddindx binary_integer; indx binary_integer;
290 begin
291
292 -- copy data to the local IN or IN-OUT args, if any
293
294
295
296
297 ddp_system_rec.system_id := rosetta_g_miss_num_map(p4_a0);
298 ddp_system_rec.customer_id := rosetta_g_miss_num_map(p4_a1);
299 ddp_system_rec.system_type_code := p4_a2;
300 ddp_system_rec.system_number := p4_a3;
301 ddp_system_rec.parent_system_id := rosetta_g_miss_num_map(p4_a4);
302 ddp_system_rec.ship_to_contact_id := rosetta_g_miss_num_map(p4_a5);
303 ddp_system_rec.bill_to_contact_id := rosetta_g_miss_num_map(p4_a6);
304 ddp_system_rec.technical_contact_id := rosetta_g_miss_num_map(p4_a7);
305 ddp_system_rec.service_admin_contact_id := rosetta_g_miss_num_map(p4_a8);
306 ddp_system_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p4_a9);
307 ddp_system_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p4_a10);
308 ddp_system_rec.install_site_use_id := rosetta_g_miss_num_map(p4_a11);
309 ddp_system_rec.coterminate_day_month := p4_a12;
310 ddp_system_rec.autocreated_from_system_id := rosetta_g_miss_num_map(p4_a13);
311 ddp_system_rec.config_system_type := p4_a14;
312 ddp_system_rec.start_date_active := rosetta_g_miss_date_in_map(p4_a15);
313 ddp_system_rec.end_date_active := rosetta_g_miss_date_in_map(p4_a16);
314 ddp_system_rec.context := p4_a17;
315 ddp_system_rec.attribute1 := p4_a18;
316 ddp_system_rec.attribute2 := p4_a19;
317 ddp_system_rec.attribute3 := p4_a20;
318 ddp_system_rec.attribute4 := p4_a21;
319 ddp_system_rec.attribute5 := p4_a22;
320 ddp_system_rec.attribute6 := p4_a23;
321 ddp_system_rec.attribute7 := p4_a24;
322 ddp_system_rec.attribute8 := p4_a25;
323 ddp_system_rec.attribute9 := p4_a26;
324 ddp_system_rec.attribute10 := p4_a27;
325 ddp_system_rec.attribute11 := p4_a28;
326 ddp_system_rec.attribute12 := p4_a29;
327 ddp_system_rec.attribute13 := p4_a30;
328 ddp_system_rec.attribute14 := p4_a31;
332 ddp_system_rec.description := p4_a35;
329 ddp_system_rec.attribute15 := p4_a32;
330 ddp_system_rec.object_version_number := rosetta_g_miss_num_map(p4_a33);
331 ddp_system_rec.name := p4_a34;
333 ddp_system_rec.tech_cont_change_flag := p4_a36;
334 ddp_system_rec.bill_to_cont_change_flag := p4_a37;
335 ddp_system_rec.ship_to_cont_change_flag := p4_a38;
336 ddp_system_rec.serv_admin_cont_change_flag := p4_a39;
337 ddp_system_rec.bill_to_site_change_flag := p4_a40;
338 ddp_system_rec.ship_to_site_change_flag := p4_a41;
339 ddp_system_rec.install_to_site_change_flag := p4_a42;
340 ddp_system_rec.cascade_cust_to_ins_flag := p4_a43;
341 ddp_system_rec.operating_unit_id := rosetta_g_miss_num_map(p4_a44);
342 ddp_system_rec.request_id := rosetta_g_miss_num_map(p4_a45);
343 ddp_system_rec.program_application_id := rosetta_g_miss_num_map(p4_a46);
344 ddp_system_rec.program_id := rosetta_g_miss_num_map(p4_a47);
345 ddp_system_rec.program_update_date := rosetta_g_miss_date_in_map(p4_a48);
346
347 ddp_txn_rec.transaction_id := rosetta_g_miss_num_map(p5_a0);
348 ddp_txn_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a1);
349 ddp_txn_rec.source_transaction_date := rosetta_g_miss_date_in_map(p5_a2);
350 ddp_txn_rec.transaction_type_id := rosetta_g_miss_num_map(p5_a3);
351 ddp_txn_rec.txn_sub_type_id := rosetta_g_miss_num_map(p5_a4);
352 ddp_txn_rec.source_group_ref_id := rosetta_g_miss_num_map(p5_a5);
353 ddp_txn_rec.source_group_ref := p5_a6;
354 ddp_txn_rec.source_header_ref_id := rosetta_g_miss_num_map(p5_a7);
355 ddp_txn_rec.source_header_ref := p5_a8;
356 ddp_txn_rec.source_line_ref_id := rosetta_g_miss_num_map(p5_a9);
357 ddp_txn_rec.source_line_ref := p5_a10;
358 ddp_txn_rec.source_dist_ref_id1 := rosetta_g_miss_num_map(p5_a11);
359 ddp_txn_rec.source_dist_ref_id2 := rosetta_g_miss_num_map(p5_a12);
360 ddp_txn_rec.inv_material_transaction_id := rosetta_g_miss_num_map(p5_a13);
361 ddp_txn_rec.transaction_quantity := rosetta_g_miss_num_map(p5_a14);
362 ddp_txn_rec.transaction_uom_code := p5_a15;
363 ddp_txn_rec.transacted_by := rosetta_g_miss_num_map(p5_a16);
364 ddp_txn_rec.transaction_status_code := p5_a17;
365 ddp_txn_rec.transaction_action_code := p5_a18;
366 ddp_txn_rec.message_id := rosetta_g_miss_num_map(p5_a19);
367 ddp_txn_rec.context := p5_a20;
368 ddp_txn_rec.attribute1 := p5_a21;
369 ddp_txn_rec.attribute2 := p5_a22;
370 ddp_txn_rec.attribute3 := p5_a23;
371 ddp_txn_rec.attribute4 := p5_a24;
372 ddp_txn_rec.attribute5 := p5_a25;
373 ddp_txn_rec.attribute6 := p5_a26;
374 ddp_txn_rec.attribute7 := p5_a27;
375 ddp_txn_rec.attribute8 := p5_a28;
376 ddp_txn_rec.attribute9 := p5_a29;
377 ddp_txn_rec.attribute10 := p5_a30;
378 ddp_txn_rec.attribute11 := p5_a31;
379 ddp_txn_rec.attribute12 := p5_a32;
380 ddp_txn_rec.attribute13 := p5_a33;
381 ddp_txn_rec.attribute14 := p5_a34;
382 ddp_txn_rec.attribute15 := p5_a35;
383 ddp_txn_rec.object_version_number := rosetta_g_miss_num_map(p5_a36);
384 ddp_txn_rec.split_reason_code := p5_a37;
385 ddp_txn_rec.src_txn_creation_date := rosetta_g_miss_date_in_map(p5_a38);
386 ddp_txn_rec.gl_interface_status_code := rosetta_g_miss_num_map(p5_a39);
387
388
389
390
391
392 -- here's the delegated call to the old PL/SQL routine
393 csi_systems_pub.create_system(p_api_version,
394 p_commit,
395 p_init_msg_list,
396 p_validation_level,
397 ddp_system_rec,
398 ddp_txn_rec,
399 x_system_id,
400 x_return_status,
401 x_msg_count,
402 x_msg_data);
403
404 -- copy data back from the local variables to OUT or IN-OUT args, if any
405
406
407
408
409
410 p5_a0 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_id);
411 p5_a1 := ddp_txn_rec.transaction_date;
412 p5_a2 := ddp_txn_rec.source_transaction_date;
413 p5_a3 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_type_id);
414 p5_a4 := rosetta_g_miss_num_map(ddp_txn_rec.txn_sub_type_id);
415 p5_a5 := rosetta_g_miss_num_map(ddp_txn_rec.source_group_ref_id);
416 p5_a6 := ddp_txn_rec.source_group_ref;
417 p5_a7 := rosetta_g_miss_num_map(ddp_txn_rec.source_header_ref_id);
418 p5_a8 := ddp_txn_rec.source_header_ref;
419 p5_a9 := rosetta_g_miss_num_map(ddp_txn_rec.source_line_ref_id);
420 p5_a10 := ddp_txn_rec.source_line_ref;
421 p5_a11 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id1);
422 p5_a12 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id2);
423 p5_a13 := rosetta_g_miss_num_map(ddp_txn_rec.inv_material_transaction_id);
424 p5_a14 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_quantity);
425 p5_a15 := ddp_txn_rec.transaction_uom_code;
426 p5_a16 := rosetta_g_miss_num_map(ddp_txn_rec.transacted_by);
427 p5_a17 := ddp_txn_rec.transaction_status_code;
428 p5_a18 := ddp_txn_rec.transaction_action_code;
429 p5_a19 := rosetta_g_miss_num_map(ddp_txn_rec.message_id);
430 p5_a20 := ddp_txn_rec.context;
431 p5_a21 := ddp_txn_rec.attribute1;
432 p5_a22 := ddp_txn_rec.attribute2;
433 p5_a23 := ddp_txn_rec.attribute3;
434 p5_a24 := ddp_txn_rec.attribute4;
435 p5_a25 := ddp_txn_rec.attribute5;
436 p5_a26 := ddp_txn_rec.attribute6;
437 p5_a27 := ddp_txn_rec.attribute7;
438 p5_a28 := ddp_txn_rec.attribute8;
439 p5_a29 := ddp_txn_rec.attribute9;
440 p5_a30 := ddp_txn_rec.attribute10;
441 p5_a31 := ddp_txn_rec.attribute11;
442 p5_a32 := ddp_txn_rec.attribute12;
443 p5_a33 := ddp_txn_rec.attribute13;
444 p5_a34 := ddp_txn_rec.attribute14;
445 p5_a35 := ddp_txn_rec.attribute15;
446 p5_a36 := rosetta_g_miss_num_map(ddp_txn_rec.object_version_number);
447 p5_a37 := ddp_txn_rec.split_reason_code;
451
448 p5_a38 := ddp_txn_rec.src_txn_creation_date;
449 p5_a39 := rosetta_g_miss_num_map(ddp_txn_rec.gl_interface_status_code);
450
452
453
454 end;
455
456 procedure update_system(p_api_version NUMBER
457 , p_commit VARCHAR2
458 , p_init_msg_list VARCHAR2
459 , p_validation_level NUMBER
460 , p5_a0 in out nocopy NUMBER
461 , p5_a1 in out nocopy DATE
462 , p5_a2 in out nocopy DATE
463 , p5_a3 in out nocopy NUMBER
464 , p5_a4 in out nocopy NUMBER
465 , p5_a5 in out nocopy NUMBER
466 , p5_a6 in out nocopy VARCHAR2
467 , p5_a7 in out nocopy NUMBER
468 , p5_a8 in out nocopy VARCHAR2
469 , p5_a9 in out nocopy NUMBER
470 , p5_a10 in out nocopy VARCHAR2
471 , p5_a11 in out nocopy NUMBER
472 , p5_a12 in out nocopy NUMBER
473 , p5_a13 in out nocopy NUMBER
474 , p5_a14 in out nocopy NUMBER
475 , p5_a15 in out nocopy VARCHAR2
476 , p5_a16 in out nocopy NUMBER
477 , p5_a17 in out nocopy VARCHAR2
478 , p5_a18 in out nocopy VARCHAR2
479 , p5_a19 in out nocopy NUMBER
480 , p5_a20 in out nocopy VARCHAR2
481 , p5_a21 in out nocopy VARCHAR2
482 , p5_a22 in out nocopy VARCHAR2
483 , p5_a23 in out nocopy VARCHAR2
484 , p5_a24 in out nocopy VARCHAR2
485 , p5_a25 in out nocopy VARCHAR2
486 , p5_a26 in out nocopy VARCHAR2
487 , p5_a27 in out nocopy VARCHAR2
488 , p5_a28 in out nocopy VARCHAR2
489 , p5_a29 in out nocopy VARCHAR2
490 , p5_a30 in out nocopy VARCHAR2
491 , p5_a31 in out nocopy VARCHAR2
492 , p5_a32 in out nocopy VARCHAR2
493 , p5_a33 in out nocopy VARCHAR2
494 , p5_a34 in out nocopy VARCHAR2
495 , p5_a35 in out nocopy VARCHAR2
496 , p5_a36 in out nocopy NUMBER
497 , p5_a37 in out nocopy VARCHAR2
498 , p5_a38 in out nocopy DATE
499 , p5_a39 in out nocopy NUMBER
500 , x_return_status out nocopy VARCHAR2
501 , x_msg_count out nocopy NUMBER
502 , x_msg_data out nocopy VARCHAR2
503 , p4_a0 NUMBER := 0-1962.0724
504 , p4_a1 NUMBER := 0-1962.0724
505 , p4_a2 VARCHAR2 := fnd_api.g_miss_char
506 , p4_a3 VARCHAR2 := fnd_api.g_miss_char
507 , p4_a4 NUMBER := 0-1962.0724
508 , p4_a5 NUMBER := 0-1962.0724
509 , p4_a6 NUMBER := 0-1962.0724
510 , p4_a7 NUMBER := 0-1962.0724
511 , p4_a8 NUMBER := 0-1962.0724
512 , p4_a9 NUMBER := 0-1962.0724
513 , p4_a10 NUMBER := 0-1962.0724
514 , p4_a11 NUMBER := 0-1962.0724
515 , p4_a12 VARCHAR2 := fnd_api.g_miss_char
516 , p4_a13 NUMBER := 0-1962.0724
517 , p4_a14 VARCHAR2 := fnd_api.g_miss_char
518 , p4_a15 DATE := fnd_api.g_miss_date
519 , p4_a16 DATE := fnd_api.g_miss_date
520 , p4_a17 VARCHAR2 := fnd_api.g_miss_char
521 , p4_a18 VARCHAR2 := fnd_api.g_miss_char
522 , p4_a19 VARCHAR2 := fnd_api.g_miss_char
523 , p4_a20 VARCHAR2 := fnd_api.g_miss_char
524 , p4_a21 VARCHAR2 := fnd_api.g_miss_char
525 , p4_a22 VARCHAR2 := fnd_api.g_miss_char
526 , p4_a23 VARCHAR2 := fnd_api.g_miss_char
527 , p4_a24 VARCHAR2 := fnd_api.g_miss_char
528 , p4_a25 VARCHAR2 := fnd_api.g_miss_char
529 , p4_a26 VARCHAR2 := fnd_api.g_miss_char
530 , p4_a27 VARCHAR2 := fnd_api.g_miss_char
531 , p4_a28 VARCHAR2 := fnd_api.g_miss_char
532 , p4_a29 VARCHAR2 := fnd_api.g_miss_char
533 , p4_a30 VARCHAR2 := fnd_api.g_miss_char
534 , p4_a31 VARCHAR2 := fnd_api.g_miss_char
535 , p4_a32 VARCHAR2 := fnd_api.g_miss_char
536 , p4_a33 NUMBER := 0-1962.0724
537 , p4_a34 VARCHAR2 := fnd_api.g_miss_char
538 , p4_a35 VARCHAR2 := fnd_api.g_miss_char
539 , p4_a36 VARCHAR2 := fnd_api.g_miss_char
540 , p4_a37 VARCHAR2 := fnd_api.g_miss_char
541 , p4_a38 VARCHAR2 := fnd_api.g_miss_char
542 , p4_a39 VARCHAR2 := fnd_api.g_miss_char
543 , p4_a40 VARCHAR2 := fnd_api.g_miss_char
544 , p4_a41 VARCHAR2 := fnd_api.g_miss_char
545 , p4_a42 VARCHAR2 := fnd_api.g_miss_char
546 , p4_a43 VARCHAR2 := fnd_api.g_miss_char
547 , p4_a44 NUMBER := 0-1962.0724
548 , p4_a45 NUMBER := 0-1962.0724
549 , p4_a46 NUMBER := 0-1962.0724
550 , p4_a47 NUMBER := 0-1962.0724
551 , p4_a48 DATE := fnd_api.g_miss_date
552 )
553
554 as
555 ddp_system_rec csi_datastructures_pub.system_rec;
556 ddp_txn_rec csi_datastructures_pub.transaction_rec;
557 ddindx binary_integer; indx binary_integer;
558 begin
559
560 -- copy data to the local IN or IN-OUT args, if any
561
562
563
564
565 ddp_system_rec.system_id := rosetta_g_miss_num_map(p4_a0);
566 ddp_system_rec.customer_id := rosetta_g_miss_num_map(p4_a1);
567 ddp_system_rec.system_type_code := p4_a2;
568 ddp_system_rec.system_number := p4_a3;
569 ddp_system_rec.parent_system_id := rosetta_g_miss_num_map(p4_a4);
570 ddp_system_rec.ship_to_contact_id := rosetta_g_miss_num_map(p4_a5);
571 ddp_system_rec.bill_to_contact_id := rosetta_g_miss_num_map(p4_a6);
572 ddp_system_rec.technical_contact_id := rosetta_g_miss_num_map(p4_a7);
573 ddp_system_rec.service_admin_contact_id := rosetta_g_miss_num_map(p4_a8);
574 ddp_system_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p4_a9);
575 ddp_system_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p4_a10);
576 ddp_system_rec.install_site_use_id := rosetta_g_miss_num_map(p4_a11);
577 ddp_system_rec.coterminate_day_month := p4_a12;
578 ddp_system_rec.autocreated_from_system_id := rosetta_g_miss_num_map(p4_a13);
579 ddp_system_rec.config_system_type := p4_a14;
580 ddp_system_rec.start_date_active := rosetta_g_miss_date_in_map(p4_a15);
581 ddp_system_rec.end_date_active := rosetta_g_miss_date_in_map(p4_a16);
585 ddp_system_rec.attribute3 := p4_a20;
582 ddp_system_rec.context := p4_a17;
583 ddp_system_rec.attribute1 := p4_a18;
584 ddp_system_rec.attribute2 := p4_a19;
586 ddp_system_rec.attribute4 := p4_a21;
587 ddp_system_rec.attribute5 := p4_a22;
588 ddp_system_rec.attribute6 := p4_a23;
589 ddp_system_rec.attribute7 := p4_a24;
590 ddp_system_rec.attribute8 := p4_a25;
591 ddp_system_rec.attribute9 := p4_a26;
592 ddp_system_rec.attribute10 := p4_a27;
593 ddp_system_rec.attribute11 := p4_a28;
594 ddp_system_rec.attribute12 := p4_a29;
595 ddp_system_rec.attribute13 := p4_a30;
596 ddp_system_rec.attribute14 := p4_a31;
597 ddp_system_rec.attribute15 := p4_a32;
598 ddp_system_rec.object_version_number := rosetta_g_miss_num_map(p4_a33);
599 ddp_system_rec.name := p4_a34;
600 ddp_system_rec.description := p4_a35;
601 ddp_system_rec.tech_cont_change_flag := p4_a36;
602 ddp_system_rec.bill_to_cont_change_flag := p4_a37;
603 ddp_system_rec.ship_to_cont_change_flag := p4_a38;
604 ddp_system_rec.serv_admin_cont_change_flag := p4_a39;
605 ddp_system_rec.bill_to_site_change_flag := p4_a40;
606 ddp_system_rec.ship_to_site_change_flag := p4_a41;
607 ddp_system_rec.install_to_site_change_flag := p4_a42;
608 ddp_system_rec.cascade_cust_to_ins_flag := p4_a43;
609 ddp_system_rec.operating_unit_id := rosetta_g_miss_num_map(p4_a44);
610 ddp_system_rec.request_id := rosetta_g_miss_num_map(p4_a45);
611 ddp_system_rec.program_application_id := rosetta_g_miss_num_map(p4_a46);
612 ddp_system_rec.program_id := rosetta_g_miss_num_map(p4_a47);
613 ddp_system_rec.program_update_date := rosetta_g_miss_date_in_map(p4_a48);
614
615 ddp_txn_rec.transaction_id := rosetta_g_miss_num_map(p5_a0);
616 ddp_txn_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a1);
617 ddp_txn_rec.source_transaction_date := rosetta_g_miss_date_in_map(p5_a2);
618 ddp_txn_rec.transaction_type_id := rosetta_g_miss_num_map(p5_a3);
619 ddp_txn_rec.txn_sub_type_id := rosetta_g_miss_num_map(p5_a4);
620 ddp_txn_rec.source_group_ref_id := rosetta_g_miss_num_map(p5_a5);
621 ddp_txn_rec.source_group_ref := p5_a6;
622 ddp_txn_rec.source_header_ref_id := rosetta_g_miss_num_map(p5_a7);
623 ddp_txn_rec.source_header_ref := p5_a8;
624 ddp_txn_rec.source_line_ref_id := rosetta_g_miss_num_map(p5_a9);
625 ddp_txn_rec.source_line_ref := p5_a10;
626 ddp_txn_rec.source_dist_ref_id1 := rosetta_g_miss_num_map(p5_a11);
627 ddp_txn_rec.source_dist_ref_id2 := rosetta_g_miss_num_map(p5_a12);
628 ddp_txn_rec.inv_material_transaction_id := rosetta_g_miss_num_map(p5_a13);
629 ddp_txn_rec.transaction_quantity := rosetta_g_miss_num_map(p5_a14);
630 ddp_txn_rec.transaction_uom_code := p5_a15;
631 ddp_txn_rec.transacted_by := rosetta_g_miss_num_map(p5_a16);
632 ddp_txn_rec.transaction_status_code := p5_a17;
633 ddp_txn_rec.transaction_action_code := p5_a18;
634 ddp_txn_rec.message_id := rosetta_g_miss_num_map(p5_a19);
635 ddp_txn_rec.context := p5_a20;
636 ddp_txn_rec.attribute1 := p5_a21;
637 ddp_txn_rec.attribute2 := p5_a22;
638 ddp_txn_rec.attribute3 := p5_a23;
639 ddp_txn_rec.attribute4 := p5_a24;
640 ddp_txn_rec.attribute5 := p5_a25;
641 ddp_txn_rec.attribute6 := p5_a26;
642 ddp_txn_rec.attribute7 := p5_a27;
643 ddp_txn_rec.attribute8 := p5_a28;
644 ddp_txn_rec.attribute9 := p5_a29;
645 ddp_txn_rec.attribute10 := p5_a30;
646 ddp_txn_rec.attribute11 := p5_a31;
647 ddp_txn_rec.attribute12 := p5_a32;
648 ddp_txn_rec.attribute13 := p5_a33;
649 ddp_txn_rec.attribute14 := p5_a34;
650 ddp_txn_rec.attribute15 := p5_a35;
651 ddp_txn_rec.object_version_number := rosetta_g_miss_num_map(p5_a36);
652 ddp_txn_rec.split_reason_code := p5_a37;
653 ddp_txn_rec.src_txn_creation_date := rosetta_g_miss_date_in_map(p5_a38);
654 ddp_txn_rec.gl_interface_status_code := rosetta_g_miss_num_map(p5_a39);
655
656
657
658
659 -- here's the delegated call to the old PL/SQL routine
660 csi_systems_pub.update_system(p_api_version,
661 p_commit,
662 p_init_msg_list,
663 p_validation_level,
664 ddp_system_rec,
665 ddp_txn_rec,
666 x_return_status,
667 x_msg_count,
668 x_msg_data);
669
670 -- copy data back from the local variables to OUT or IN-OUT args, if any
671
672
673
674
675
676 p5_a0 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_id);
677 p5_a1 := ddp_txn_rec.transaction_date;
678 p5_a2 := ddp_txn_rec.source_transaction_date;
679 p5_a3 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_type_id);
680 p5_a4 := rosetta_g_miss_num_map(ddp_txn_rec.txn_sub_type_id);
681 p5_a5 := rosetta_g_miss_num_map(ddp_txn_rec.source_group_ref_id);
682 p5_a6 := ddp_txn_rec.source_group_ref;
683 p5_a7 := rosetta_g_miss_num_map(ddp_txn_rec.source_header_ref_id);
684 p5_a8 := ddp_txn_rec.source_header_ref;
685 p5_a9 := rosetta_g_miss_num_map(ddp_txn_rec.source_line_ref_id);
686 p5_a10 := ddp_txn_rec.source_line_ref;
687 p5_a11 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id1);
688 p5_a12 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id2);
689 p5_a13 := rosetta_g_miss_num_map(ddp_txn_rec.inv_material_transaction_id);
690 p5_a14 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_quantity);
691 p5_a15 := ddp_txn_rec.transaction_uom_code;
692 p5_a16 := rosetta_g_miss_num_map(ddp_txn_rec.transacted_by);
693 p5_a17 := ddp_txn_rec.transaction_status_code;
694 p5_a18 := ddp_txn_rec.transaction_action_code;
695 p5_a19 := rosetta_g_miss_num_map(ddp_txn_rec.message_id);
696 p5_a20 := ddp_txn_rec.context;
697 p5_a21 := ddp_txn_rec.attribute1;
698 p5_a22 := ddp_txn_rec.attribute2;
699 p5_a23 := ddp_txn_rec.attribute3;
700 p5_a24 := ddp_txn_rec.attribute4;
704 p5_a28 := ddp_txn_rec.attribute8;
701 p5_a25 := ddp_txn_rec.attribute5;
702 p5_a26 := ddp_txn_rec.attribute6;
703 p5_a27 := ddp_txn_rec.attribute7;
705 p5_a29 := ddp_txn_rec.attribute9;
706 p5_a30 := ddp_txn_rec.attribute10;
707 p5_a31 := ddp_txn_rec.attribute11;
708 p5_a32 := ddp_txn_rec.attribute12;
709 p5_a33 := ddp_txn_rec.attribute13;
710 p5_a34 := ddp_txn_rec.attribute14;
711 p5_a35 := ddp_txn_rec.attribute15;
712 p5_a36 := rosetta_g_miss_num_map(ddp_txn_rec.object_version_number);
713 p5_a37 := ddp_txn_rec.split_reason_code;
714 p5_a38 := ddp_txn_rec.src_txn_creation_date;
715 p5_a39 := rosetta_g_miss_num_map(ddp_txn_rec.gl_interface_status_code);
716
717
718
719 end;
720
721 procedure expire_system(p_api_version NUMBER
722 , p_commit VARCHAR2
723 , p_init_msg_list VARCHAR2
724 , p_validation_level NUMBER
725 , p5_a0 in out nocopy NUMBER
726 , p5_a1 in out nocopy DATE
727 , p5_a2 in out nocopy DATE
728 , p5_a3 in out nocopy NUMBER
729 , p5_a4 in out nocopy NUMBER
730 , p5_a5 in out nocopy NUMBER
731 , p5_a6 in out nocopy VARCHAR2
732 , p5_a7 in out nocopy NUMBER
733 , p5_a8 in out nocopy VARCHAR2
734 , p5_a9 in out nocopy NUMBER
735 , p5_a10 in out nocopy VARCHAR2
736 , p5_a11 in out nocopy NUMBER
737 , p5_a12 in out nocopy NUMBER
738 , p5_a13 in out nocopy NUMBER
739 , p5_a14 in out nocopy NUMBER
740 , p5_a15 in out nocopy VARCHAR2
741 , p5_a16 in out nocopy NUMBER
742 , p5_a17 in out nocopy VARCHAR2
743 , p5_a18 in out nocopy VARCHAR2
744 , p5_a19 in out nocopy NUMBER
745 , p5_a20 in out nocopy VARCHAR2
746 , p5_a21 in out nocopy VARCHAR2
747 , p5_a22 in out nocopy VARCHAR2
748 , p5_a23 in out nocopy VARCHAR2
749 , p5_a24 in out nocopy VARCHAR2
750 , p5_a25 in out nocopy VARCHAR2
751 , p5_a26 in out nocopy VARCHAR2
752 , p5_a27 in out nocopy VARCHAR2
753 , p5_a28 in out nocopy VARCHAR2
754 , p5_a29 in out nocopy VARCHAR2
755 , p5_a30 in out nocopy VARCHAR2
756 , p5_a31 in out nocopy VARCHAR2
757 , p5_a32 in out nocopy VARCHAR2
758 , p5_a33 in out nocopy VARCHAR2
759 , p5_a34 in out nocopy VARCHAR2
760 , p5_a35 in out nocopy VARCHAR2
761 , p5_a36 in out nocopy NUMBER
762 , p5_a37 in out nocopy VARCHAR2
763 , p5_a38 in out nocopy DATE
764 , p5_a39 in out nocopy NUMBER
765 , x_instance_id_lst out nocopy JTF_NUMBER_TABLE
766 , x_return_status out nocopy VARCHAR2
767 , x_msg_count out nocopy NUMBER
768 , x_msg_data out nocopy VARCHAR2
769 , p4_a0 NUMBER := 0-1962.0724
770 , p4_a1 NUMBER := 0-1962.0724
771 , p4_a2 VARCHAR2 := fnd_api.g_miss_char
772 , p4_a3 VARCHAR2 := fnd_api.g_miss_char
773 , p4_a4 NUMBER := 0-1962.0724
774 , p4_a5 NUMBER := 0-1962.0724
775 , p4_a6 NUMBER := 0-1962.0724
776 , p4_a7 NUMBER := 0-1962.0724
777 , p4_a8 NUMBER := 0-1962.0724
778 , p4_a9 NUMBER := 0-1962.0724
779 , p4_a10 NUMBER := 0-1962.0724
780 , p4_a11 NUMBER := 0-1962.0724
781 , p4_a12 VARCHAR2 := fnd_api.g_miss_char
782 , p4_a13 NUMBER := 0-1962.0724
783 , p4_a14 VARCHAR2 := fnd_api.g_miss_char
784 , p4_a15 DATE := fnd_api.g_miss_date
785 , p4_a16 DATE := fnd_api.g_miss_date
786 , p4_a17 VARCHAR2 := fnd_api.g_miss_char
787 , p4_a18 VARCHAR2 := fnd_api.g_miss_char
788 , p4_a19 VARCHAR2 := fnd_api.g_miss_char
789 , p4_a20 VARCHAR2 := fnd_api.g_miss_char
790 , p4_a21 VARCHAR2 := fnd_api.g_miss_char
791 , p4_a22 VARCHAR2 := fnd_api.g_miss_char
792 , p4_a23 VARCHAR2 := fnd_api.g_miss_char
793 , p4_a24 VARCHAR2 := fnd_api.g_miss_char
794 , p4_a25 VARCHAR2 := fnd_api.g_miss_char
795 , p4_a26 VARCHAR2 := fnd_api.g_miss_char
796 , p4_a27 VARCHAR2 := fnd_api.g_miss_char
797 , p4_a28 VARCHAR2 := fnd_api.g_miss_char
798 , p4_a29 VARCHAR2 := fnd_api.g_miss_char
799 , p4_a30 VARCHAR2 := fnd_api.g_miss_char
800 , p4_a31 VARCHAR2 := fnd_api.g_miss_char
801 , p4_a32 VARCHAR2 := fnd_api.g_miss_char
802 , p4_a33 NUMBER := 0-1962.0724
803 , p4_a34 VARCHAR2 := fnd_api.g_miss_char
804 , p4_a35 VARCHAR2 := fnd_api.g_miss_char
805 , p4_a36 VARCHAR2 := fnd_api.g_miss_char
806 , p4_a37 VARCHAR2 := fnd_api.g_miss_char
807 , p4_a38 VARCHAR2 := fnd_api.g_miss_char
808 , p4_a39 VARCHAR2 := fnd_api.g_miss_char
809 , p4_a40 VARCHAR2 := fnd_api.g_miss_char
810 , p4_a41 VARCHAR2 := fnd_api.g_miss_char
811 , p4_a42 VARCHAR2 := fnd_api.g_miss_char
812 , p4_a43 VARCHAR2 := fnd_api.g_miss_char
813 , p4_a44 NUMBER := 0-1962.0724
814 , p4_a45 NUMBER := 0-1962.0724
815 , p4_a46 NUMBER := 0-1962.0724
816 , p4_a47 NUMBER := 0-1962.0724
817 , p4_a48 DATE := fnd_api.g_miss_date
818 )
819
820 as
821 ddp_system_rec csi_datastructures_pub.system_rec;
822 ddp_txn_rec csi_datastructures_pub.transaction_rec;
823 ddx_instance_id_lst csi_datastructures_pub.id_tbl;
824 ddindx binary_integer; indx binary_integer;
825 begin
826
827 -- copy data to the local IN or IN-OUT args, if any
828
829
830
831
832 ddp_system_rec.system_id := rosetta_g_miss_num_map(p4_a0);
833 ddp_system_rec.customer_id := rosetta_g_miss_num_map(p4_a1);
834 ddp_system_rec.system_type_code := p4_a2;
835 ddp_system_rec.system_number := p4_a3;
836 ddp_system_rec.parent_system_id := rosetta_g_miss_num_map(p4_a4);
837 ddp_system_rec.ship_to_contact_id := rosetta_g_miss_num_map(p4_a5);
838 ddp_system_rec.bill_to_contact_id := rosetta_g_miss_num_map(p4_a6);
842 ddp_system_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p4_a10);
839 ddp_system_rec.technical_contact_id := rosetta_g_miss_num_map(p4_a7);
840 ddp_system_rec.service_admin_contact_id := rosetta_g_miss_num_map(p4_a8);
841 ddp_system_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p4_a9);
843 ddp_system_rec.install_site_use_id := rosetta_g_miss_num_map(p4_a11);
844 ddp_system_rec.coterminate_day_month := p4_a12;
845 ddp_system_rec.autocreated_from_system_id := rosetta_g_miss_num_map(p4_a13);
846 ddp_system_rec.config_system_type := p4_a14;
847 ddp_system_rec.start_date_active := rosetta_g_miss_date_in_map(p4_a15);
848 ddp_system_rec.end_date_active := rosetta_g_miss_date_in_map(p4_a16);
849 ddp_system_rec.context := p4_a17;
850 ddp_system_rec.attribute1 := p4_a18;
851 ddp_system_rec.attribute2 := p4_a19;
852 ddp_system_rec.attribute3 := p4_a20;
853 ddp_system_rec.attribute4 := p4_a21;
854 ddp_system_rec.attribute5 := p4_a22;
855 ddp_system_rec.attribute6 := p4_a23;
856 ddp_system_rec.attribute7 := p4_a24;
857 ddp_system_rec.attribute8 := p4_a25;
858 ddp_system_rec.attribute9 := p4_a26;
859 ddp_system_rec.attribute10 := p4_a27;
860 ddp_system_rec.attribute11 := p4_a28;
861 ddp_system_rec.attribute12 := p4_a29;
862 ddp_system_rec.attribute13 := p4_a30;
863 ddp_system_rec.attribute14 := p4_a31;
864 ddp_system_rec.attribute15 := p4_a32;
865 ddp_system_rec.object_version_number := rosetta_g_miss_num_map(p4_a33);
866 ddp_system_rec.name := p4_a34;
867 ddp_system_rec.description := p4_a35;
868 ddp_system_rec.tech_cont_change_flag := p4_a36;
869 ddp_system_rec.bill_to_cont_change_flag := p4_a37;
870 ddp_system_rec.ship_to_cont_change_flag := p4_a38;
871 ddp_system_rec.serv_admin_cont_change_flag := p4_a39;
872 ddp_system_rec.bill_to_site_change_flag := p4_a40;
873 ddp_system_rec.ship_to_site_change_flag := p4_a41;
874 ddp_system_rec.install_to_site_change_flag := p4_a42;
875 ddp_system_rec.cascade_cust_to_ins_flag := p4_a43;
876 ddp_system_rec.operating_unit_id := rosetta_g_miss_num_map(p4_a44);
877 ddp_system_rec.request_id := rosetta_g_miss_num_map(p4_a45);
878 ddp_system_rec.program_application_id := rosetta_g_miss_num_map(p4_a46);
879 ddp_system_rec.program_id := rosetta_g_miss_num_map(p4_a47);
880 ddp_system_rec.program_update_date := rosetta_g_miss_date_in_map(p4_a48);
881
882 ddp_txn_rec.transaction_id := rosetta_g_miss_num_map(p5_a0);
883 ddp_txn_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a1);
884 ddp_txn_rec.source_transaction_date := rosetta_g_miss_date_in_map(p5_a2);
885 ddp_txn_rec.transaction_type_id := rosetta_g_miss_num_map(p5_a3);
886 ddp_txn_rec.txn_sub_type_id := rosetta_g_miss_num_map(p5_a4);
887 ddp_txn_rec.source_group_ref_id := rosetta_g_miss_num_map(p5_a5);
888 ddp_txn_rec.source_group_ref := p5_a6;
889 ddp_txn_rec.source_header_ref_id := rosetta_g_miss_num_map(p5_a7);
890 ddp_txn_rec.source_header_ref := p5_a8;
891 ddp_txn_rec.source_line_ref_id := rosetta_g_miss_num_map(p5_a9);
892 ddp_txn_rec.source_line_ref := p5_a10;
893 ddp_txn_rec.source_dist_ref_id1 := rosetta_g_miss_num_map(p5_a11);
894 ddp_txn_rec.source_dist_ref_id2 := rosetta_g_miss_num_map(p5_a12);
895 ddp_txn_rec.inv_material_transaction_id := rosetta_g_miss_num_map(p5_a13);
896 ddp_txn_rec.transaction_quantity := rosetta_g_miss_num_map(p5_a14);
897 ddp_txn_rec.transaction_uom_code := p5_a15;
898 ddp_txn_rec.transacted_by := rosetta_g_miss_num_map(p5_a16);
899 ddp_txn_rec.transaction_status_code := p5_a17;
900 ddp_txn_rec.transaction_action_code := p5_a18;
901 ddp_txn_rec.message_id := rosetta_g_miss_num_map(p5_a19);
902 ddp_txn_rec.context := p5_a20;
903 ddp_txn_rec.attribute1 := p5_a21;
904 ddp_txn_rec.attribute2 := p5_a22;
905 ddp_txn_rec.attribute3 := p5_a23;
906 ddp_txn_rec.attribute4 := p5_a24;
907 ddp_txn_rec.attribute5 := p5_a25;
908 ddp_txn_rec.attribute6 := p5_a26;
909 ddp_txn_rec.attribute7 := p5_a27;
910 ddp_txn_rec.attribute8 := p5_a28;
911 ddp_txn_rec.attribute9 := p5_a29;
912 ddp_txn_rec.attribute10 := p5_a30;
913 ddp_txn_rec.attribute11 := p5_a31;
914 ddp_txn_rec.attribute12 := p5_a32;
915 ddp_txn_rec.attribute13 := p5_a33;
916 ddp_txn_rec.attribute14 := p5_a34;
917 ddp_txn_rec.attribute15 := p5_a35;
918 ddp_txn_rec.object_version_number := rosetta_g_miss_num_map(p5_a36);
919 ddp_txn_rec.split_reason_code := p5_a37;
920 ddp_txn_rec.src_txn_creation_date := rosetta_g_miss_date_in_map(p5_a38);
921 ddp_txn_rec.gl_interface_status_code := rosetta_g_miss_num_map(p5_a39);
922
923
924
925
926
927 -- here's the delegated call to the old PL/SQL routine
928 csi_systems_pub.expire_system(p_api_version,
929 p_commit,
930 p_init_msg_list,
931 p_validation_level,
932 ddp_system_rec,
933 ddp_txn_rec,
934 ddx_instance_id_lst,
935 x_return_status,
936 x_msg_count,
937 x_msg_data);
938
939 -- copy data back from the local variables to OUT or IN-OUT args, if any
940
941
942
943
944
945 p5_a0 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_id);
946 p5_a1 := ddp_txn_rec.transaction_date;
947 p5_a2 := ddp_txn_rec.source_transaction_date;
948 p5_a3 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_type_id);
949 p5_a4 := rosetta_g_miss_num_map(ddp_txn_rec.txn_sub_type_id);
950 p5_a5 := rosetta_g_miss_num_map(ddp_txn_rec.source_group_ref_id);
951 p5_a6 := ddp_txn_rec.source_group_ref;
952 p5_a7 := rosetta_g_miss_num_map(ddp_txn_rec.source_header_ref_id);
953 p5_a8 := ddp_txn_rec.source_header_ref;
954 p5_a9 := rosetta_g_miss_num_map(ddp_txn_rec.source_line_ref_id);
955 p5_a10 := ddp_txn_rec.source_line_ref;
959 p5_a14 := rosetta_g_miss_num_map(ddp_txn_rec.transaction_quantity);
956 p5_a11 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id1);
957 p5_a12 := rosetta_g_miss_num_map(ddp_txn_rec.source_dist_ref_id2);
958 p5_a13 := rosetta_g_miss_num_map(ddp_txn_rec.inv_material_transaction_id);
960 p5_a15 := ddp_txn_rec.transaction_uom_code;
961 p5_a16 := rosetta_g_miss_num_map(ddp_txn_rec.transacted_by);
962 p5_a17 := ddp_txn_rec.transaction_status_code;
963 p5_a18 := ddp_txn_rec.transaction_action_code;
964 p5_a19 := rosetta_g_miss_num_map(ddp_txn_rec.message_id);
965 p5_a20 := ddp_txn_rec.context;
966 p5_a21 := ddp_txn_rec.attribute1;
967 p5_a22 := ddp_txn_rec.attribute2;
968 p5_a23 := ddp_txn_rec.attribute3;
969 p5_a24 := ddp_txn_rec.attribute4;
970 p5_a25 := ddp_txn_rec.attribute5;
971 p5_a26 := ddp_txn_rec.attribute6;
972 p5_a27 := ddp_txn_rec.attribute7;
973 p5_a28 := ddp_txn_rec.attribute8;
974 p5_a29 := ddp_txn_rec.attribute9;
975 p5_a30 := ddp_txn_rec.attribute10;
976 p5_a31 := ddp_txn_rec.attribute11;
977 p5_a32 := ddp_txn_rec.attribute12;
978 p5_a33 := ddp_txn_rec.attribute13;
979 p5_a34 := ddp_txn_rec.attribute14;
980 p5_a35 := ddp_txn_rec.attribute15;
981 p5_a36 := rosetta_g_miss_num_map(ddp_txn_rec.object_version_number);
982 p5_a37 := ddp_txn_rec.split_reason_code;
983 p5_a38 := ddp_txn_rec.src_txn_creation_date;
984 p5_a39 := rosetta_g_miss_num_map(ddp_txn_rec.gl_interface_status_code);
985
986 csi_datastructures_pub_w.rosetta_table_copy_out_p15(ddx_instance_id_lst, x_instance_id_lst);
987
988
989
990 end;
991
992 end csi_systems_pub_w;