[Home] [Help]
PACKAGE BODY: APPS.CS_INCIDENTLINKS_PUB_W
Source
1 package body cs_incidentlinks_pub_w as
2 /* $Header: cswpsrlb.pls 115.7 2004/02/04 19:43:43 aneemuch noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 procedure create_incidentlink(p_api_version NUMBER
14 , p_init_msg_list VARCHAR2
15 , p_commit VARCHAR2
16 , p_resp_appl_id NUMBER
17 , p_resp_id NUMBER
18 , p_user_id NUMBER
19 , p_login_id NUMBER
20 , p_org_id NUMBER
21 , p8_a0 NUMBER
22 , p8_a1 NUMBER
23 , p8_a2 VARCHAR2
24 , p8_a3 NUMBER
25 , p8_a4 VARCHAR2
26 , p8_a5 VARCHAR2
27 , p8_a6 NUMBER
28 , p8_a7 VARCHAR2
29 , p8_a8 NUMBER
30 , p8_a9 NUMBER
31 , p8_a10 NUMBER
32 , p8_a11 DATE
33 , p8_a12 VARCHAR2
34 , p8_a13 VARCHAR2
35 , p8_a14 VARCHAR2
36 , p8_a15 VARCHAR2
37 , p8_a16 VARCHAR2
38 , p8_a17 VARCHAR2
39 , p8_a18 VARCHAR2
40 , p8_a19 VARCHAR2
41 , p8_a20 VARCHAR2
42 , p8_a21 VARCHAR2
43 , p8_a22 VARCHAR2
44 , p8_a23 VARCHAR2
45 , p8_a24 VARCHAR2
46 , p8_a25 VARCHAR2
47 , p8_a26 VARCHAR2
48 , p8_a27 VARCHAR2
49 , x_return_status out nocopy VARCHAR2
50 , x_msg_count out nocopy NUMBER
51 , x_msg_data out nocopy VARCHAR2
52 , x_object_version_number out nocopy NUMBER
53 , x_reciprocal_link_id out nocopy NUMBER
54 , x_link_id out nocopy NUMBER
55 )
56
57 as
58 ddp_link_rec cs_incidentlinks_pub.cs_incident_link_rec_type;
59 ddindx binary_integer; indx binary_integer;
60 begin
61
62 -- copy data to the local IN or IN-OUT args, if any
63
64
65
66
67
68
69
70
71 ddp_link_rec.link_id := p8_a0;
72 ddp_link_rec.subject_id := p8_a1;
73 ddp_link_rec.subject_type := p8_a2;
74 ddp_link_rec.object_id := p8_a3;
75 ddp_link_rec.object_number := p8_a4;
76 ddp_link_rec.object_type := p8_a5;
77 ddp_link_rec.link_type_id := p8_a6;
78 ddp_link_rec.link_type := p8_a7;
79 ddp_link_rec.request_id := p8_a8;
80 ddp_link_rec.program_application_id := p8_a9;
81 ddp_link_rec.program_id := p8_a10;
82 ddp_link_rec.program_update_date := rosetta_g_miss_date_in_map(p8_a11);
83 ddp_link_rec.link_segment1 := p8_a12;
84 ddp_link_rec.link_segment2 := p8_a13;
85 ddp_link_rec.link_segment3 := p8_a14;
86 ddp_link_rec.link_segment4 := p8_a15;
87 ddp_link_rec.link_segment5 := p8_a16;
88 ddp_link_rec.link_segment6 := p8_a17;
89 ddp_link_rec.link_segment7 := p8_a18;
90 ddp_link_rec.link_segment8 := p8_a19;
91 ddp_link_rec.link_segment9 := p8_a20;
92 ddp_link_rec.link_segment10 := p8_a21;
93 ddp_link_rec.link_segment11 := p8_a22;
94 ddp_link_rec.link_segment12 := p8_a23;
95 ddp_link_rec.link_segment13 := p8_a24;
96 ddp_link_rec.link_segment14 := p8_a25;
97 ddp_link_rec.link_segment15 := p8_a26;
98 ddp_link_rec.link_context := p8_a27;
99
100
101
102
103
104
105
106 -- here's the delegated call to the old PL/SQL routine
107 cs_incidentlinks_pub.create_incidentlink(p_api_version,
108 p_init_msg_list,
109 p_commit,
110 p_resp_appl_id,
111 p_resp_id,
112 p_user_id,
113 p_login_id,
114 p_org_id,
115 ddp_link_rec,
116 x_return_status,
117 x_msg_count,
118 x_msg_data,
119 x_object_version_number,
120 x_reciprocal_link_id,
121 x_link_id);
122
123 -- copy data back from the local variables to OUT or IN-OUT args, if any
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138 end;
139
140 procedure create_incidentlink(p_api_version NUMBER
141 , p_init_msg_list VARCHAR2
142 , p_commit VARCHAR2
143 , p_resp_appl_id NUMBER
144 , p_resp_id NUMBER
145 , p_user_id NUMBER
146 , p_login_id NUMBER
147 , p_org_id NUMBER
148 , p_link_id NUMBER
149 , p_subject_id NUMBER
150 , p_subject_type VARCHAR2
151 , p_object_id NUMBER
152 , p_object_number VARCHAR2
153 , p_object_type VARCHAR2
154 , p_link_type_id NUMBER
155 , p_link_type VARCHAR2
156 , p_request_id NUMBER
157 , p_program_application_id NUMBER
158 , p_program_id NUMBER
159 , p_program_update_date date
160 , p_from_incident_id NUMBER
161 , p_from_incident_number VARCHAR2
162 , p_to_incident_id NUMBER
163 , p_to_incident_number VARCHAR2
164 , p_link_segment1 VARCHAR2
165 , p_link_segment2 VARCHAR2
166 , p_link_segment3 VARCHAR2
167 , p_link_segment4 VARCHAR2
168 , p_link_segment5 VARCHAR2
169 , p_link_segment6 VARCHAR2
170 , p_link_segment7 VARCHAR2
171 , p_link_segment8 VARCHAR2
172 , p_link_segment9 VARCHAR2
173 , p_link_segment10 VARCHAR2
174 , p_link_segment11 VARCHAR2
175 , p_link_segment12 VARCHAR2
176 , p_link_segment13 VARCHAR2
177 , p_link_segment14 VARCHAR2
178 , p_link_segment15 VARCHAR2
179 , p_link_context VARCHAR2
180 , x_return_status out nocopy VARCHAR2
181 , x_msg_count out nocopy NUMBER
182 , x_msg_data out nocopy VARCHAR2
183 , x_reciprocal_link_id out nocopy NUMBER
184 , x_object_version_number out nocopy NUMBER
185 , x_link_id out nocopy NUMBER
186 )
187
188 as
189 ddp_program_update_date date;
190 ddindx binary_integer; indx binary_integer;
191 begin
192
193 -- copy data to the local IN or IN-OUT args, if any
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213 ddp_program_update_date := rosetta_g_miss_date_in_map(p_program_update_date);
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241 -- here's the delegated call to the old PL/SQL routine
242 cs_incidentlinks_pub.create_incidentlink(p_api_version,
243 p_init_msg_list,
244 p_commit,
245 p_resp_appl_id,
246 p_resp_id,
247 p_user_id,
248 p_login_id,
249 p_org_id,
250 p_link_id,
251 p_subject_id,
252 p_subject_type,
253 p_object_id,
254 p_object_number,
255 p_object_type,
256 p_link_type_id,
257 p_link_type,
258 p_request_id,
259 p_program_application_id,
260 p_program_id,
261 ddp_program_update_date,
262 p_from_incident_id,
263 p_from_incident_number,
264 p_to_incident_id,
265 p_to_incident_number,
266 p_link_segment1,
267 p_link_segment2,
268 p_link_segment3,
269 p_link_segment4,
270 p_link_segment5,
271 p_link_segment6,
272 p_link_segment7,
273 p_link_segment8,
274 p_link_segment9,
275 p_link_segment10,
276 p_link_segment11,
277 p_link_segment12,
278 p_link_segment13,
279 p_link_segment14,
280 p_link_segment15,
281 p_link_context,
282 x_return_status,
283 x_msg_count,
284 x_msg_data,
285 x_reciprocal_link_id,
286 x_object_version_number,
287 x_link_id);
288
289 -- copy data back from the local variables to OUT or IN-OUT args, if any
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335 end;
336
337 procedure update_incidentlink(p_api_version NUMBER
338 , p_init_msg_list VARCHAR2
339 , p_commit VARCHAR2
340 , p_resp_appl_id NUMBER
341 , p_resp_id NUMBER
342 , p_user_id NUMBER
343 , p_login_id NUMBER
344 , p_org_id NUMBER
345 , p_link_id NUMBER
346 , p_object_version_number NUMBER
347 , p10_a0 NUMBER
348 , p10_a1 NUMBER
349 , p10_a2 VARCHAR2
350 , p10_a3 NUMBER
351 , p10_a4 VARCHAR2
352 , p10_a5 VARCHAR2
353 , p10_a6 NUMBER
354 , p10_a7 VARCHAR2
355 , p10_a8 NUMBER
356 , p10_a9 NUMBER
357 , p10_a10 NUMBER
358 , p10_a11 DATE
359 , p10_a12 VARCHAR2
360 , p10_a13 VARCHAR2
361 , p10_a14 VARCHAR2
362 , p10_a15 VARCHAR2
363 , p10_a16 VARCHAR2
364 , p10_a17 VARCHAR2
365 , p10_a18 VARCHAR2
366 , p10_a19 VARCHAR2
367 , p10_a20 VARCHAR2
368 , p10_a21 VARCHAR2
369 , p10_a22 VARCHAR2
370 , p10_a23 VARCHAR2
371 , p10_a24 VARCHAR2
372 , p10_a25 VARCHAR2
373 , p10_a26 VARCHAR2
374 , p10_a27 VARCHAR2
375 , x_return_status out nocopy VARCHAR2
376 , x_object_version_number out nocopy NUMBER
377 , x_msg_count out nocopy NUMBER
378 , x_msg_data out nocopy VARCHAR2
379 )
380
381 as
382 ddp_link_rec cs_incidentlinks_pub.cs_incident_link_rec_type;
383 ddindx binary_integer; indx binary_integer;
384 begin
385
386 -- copy data to the local IN or IN-OUT args, if any
387
388
389
390
391
392
393
394
395
396
397 ddp_link_rec.link_id := p10_a0;
398 ddp_link_rec.subject_id := p10_a1;
399 ddp_link_rec.subject_type := p10_a2;
400 ddp_link_rec.object_id := p10_a3;
401 ddp_link_rec.object_number := p10_a4;
402 ddp_link_rec.object_type := p10_a5;
403 ddp_link_rec.link_type_id := p10_a6;
404 ddp_link_rec.link_type := p10_a7;
405 ddp_link_rec.request_id := p10_a8;
406 ddp_link_rec.program_application_id := p10_a9;
407 ddp_link_rec.program_id := p10_a10;
408 ddp_link_rec.program_update_date := rosetta_g_miss_date_in_map(p10_a11);
409 ddp_link_rec.link_segment1 := p10_a12;
410 ddp_link_rec.link_segment2 := p10_a13;
411 ddp_link_rec.link_segment3 := p10_a14;
412 ddp_link_rec.link_segment4 := p10_a15;
413 ddp_link_rec.link_segment5 := p10_a16;
414 ddp_link_rec.link_segment6 := p10_a17;
415 ddp_link_rec.link_segment7 := p10_a18;
416 ddp_link_rec.link_segment8 := p10_a19;
417 ddp_link_rec.link_segment9 := p10_a20;
418 ddp_link_rec.link_segment10 := p10_a21;
419 ddp_link_rec.link_segment11 := p10_a22;
420 ddp_link_rec.link_segment12 := p10_a23;
421 ddp_link_rec.link_segment13 := p10_a24;
422 ddp_link_rec.link_segment14 := p10_a25;
423 ddp_link_rec.link_segment15 := p10_a26;
424 ddp_link_rec.link_context := p10_a27;
425
426
427
428
429
430 -- here's the delegated call to the old PL/SQL routine
431 cs_incidentlinks_pub.update_incidentlink(p_api_version,
432 p_init_msg_list,
433 p_commit,
434 p_resp_appl_id,
435 p_resp_id,
436 p_user_id,
437 p_login_id,
438 p_org_id,
439 p_link_id,
440 p_object_version_number,
441 ddp_link_rec,
442 x_return_status,
443 x_object_version_number,
444 x_msg_count,
445 x_msg_data);
446
447 -- copy data back from the local variables to OUT or IN-OUT args, if any
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462 end;
463
464 procedure update_incidentlink(p_api_version NUMBER
465 , p_init_msg_list VARCHAR2
466 , p_commit VARCHAR2
467 , p_resp_appl_id NUMBER
468 , p_resp_id NUMBER
469 , p_user_id NUMBER
470 , p_login_id NUMBER
471 , p_org_id NUMBER
472 , p_link_id NUMBER
473 , p_object_version_number NUMBER
474 , p_subject_id NUMBER
475 , p_subject_type VARCHAR2
476 , p_link_type_id NUMBER
477 , p_link_type VARCHAR2
478 , p_object_id NUMBER
479 , p_object_number VARCHAR2
480 , p_object_type VARCHAR2
481 , p_request_id NUMBER
482 , p_program_application_id NUMBER
483 , p_program_id NUMBER
484 , p_program_update_date date
485 , p_from_incident_id NUMBER
486 , p_from_incident_number VARCHAR2
487 , p_to_incident_id NUMBER
488 , p_to_incident_number VARCHAR2
489 , p_link_segment1 VARCHAR2
490 , p_link_segment2 VARCHAR2
491 , p_link_segment3 VARCHAR2
492 , p_link_segment4 VARCHAR2
493 , p_link_segment5 VARCHAR2
494 , p_link_segment6 VARCHAR2
495 , p_link_segment7 VARCHAR2
496 , p_link_segment8 VARCHAR2
497 , p_link_segment9 VARCHAR2
498 , p_link_segment10 VARCHAR2
499 , p_link_segment11 VARCHAR2
500 , p_link_segment12 VARCHAR2
501 , p_link_segment13 VARCHAR2
502 , p_link_segment14 VARCHAR2
503 , p_link_segment15 VARCHAR2
504 , p_link_context VARCHAR2
505 , x_return_status out nocopy VARCHAR2
506 , x_object_version_number out nocopy NUMBER
507 , x_msg_count out nocopy NUMBER
508 , x_msg_data out nocopy VARCHAR2
509 )
510
511 as
512 ddp_program_update_date date;
513 ddindx binary_integer; indx binary_integer;
514 begin
515
516 -- copy data to the local IN or IN-OUT args, if any
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537 ddp_program_update_date := rosetta_g_miss_date_in_map(p_program_update_date);
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563 -- here's the delegated call to the old PL/SQL routine
564 cs_incidentlinks_pub.update_incidentlink(p_api_version,
565 p_init_msg_list,
566 p_commit,
567 p_resp_appl_id,
568 p_resp_id,
569 p_user_id,
570 p_login_id,
571 p_org_id,
572 p_link_id,
573 p_object_version_number,
574 p_subject_id,
575 p_subject_type,
576 p_link_type_id,
577 p_link_type,
578 p_object_id,
579 p_object_number,
580 p_object_type,
581 p_request_id,
582 p_program_application_id,
583 p_program_id,
584 ddp_program_update_date,
585 p_from_incident_id,
586 p_from_incident_number,
587 p_to_incident_id,
588 p_to_incident_number,
589 p_link_segment1,
590 p_link_segment2,
591 p_link_segment3,
592 p_link_segment4,
593 p_link_segment5,
594 p_link_segment6,
595 p_link_segment7,
596 p_link_segment8,
597 p_link_segment9,
598 p_link_segment10,
599 p_link_segment11,
600 p_link_segment12,
601 p_link_segment13,
602 p_link_segment14,
603 p_link_segment15,
604 p_link_context,
605 x_return_status,
606 x_object_version_number,
607 x_msg_count,
608 x_msg_data);
609
610 -- copy data back from the local variables to OUT or IN-OUT args, if any
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655 end;
656
657 end cs_incidentlinks_pub_w;