1 package body oks_cov_ent_pub_w as
2 /* $Header: OKSPCEWB.pls 120.3 2005/12/22 11:16 jvarghes 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 get_default_react_resolve_by(p_api_version NUMBER
14 , p_init_msg_list VARCHAR2
15 , p2_a0 NUMBER
16 , p2_a1 NUMBER
17 , p2_a2 DATE
18 , p2_a3 NUMBER
19 , p2_a4 NUMBER
20 , p2_a5 VARCHAR2
21 , x_return_status out nocopy VARCHAR2
22 , x_msg_count out nocopy NUMBER
23 , x_msg_data out nocopy VARCHAR2
24 , p6_a0 out nocopy DATE
25 , p6_a1 out nocopy DATE
26 , p7_a0 out nocopy DATE
27 , p7_a1 out nocopy DATE
28 )
29
30 as
31 ddp_inp_rec oks_cov_ent_pub.gdrt_inp_rec_type;
32 ddx_react_rec oks_cov_ent_pub.rcn_rsn_rec_type;
33 ddx_resolve_rec oks_cov_ent_pub.rcn_rsn_rec_type;
34 ddindx binary_integer; indx binary_integer;
35 begin
36
37 -- copy data to the local IN or IN-OUT args, if any
38
39
40 ddp_inp_rec.coverage_template_id := p2_a0;
41 ddp_inp_rec.business_process_id := p2_a1;
42 ddp_inp_rec.request_date := rosetta_g_miss_date_in_map(p2_a2);
43 ddp_inp_rec.severity_id := p2_a3;
44 ddp_inp_rec.time_zone_id := p2_a4;
45 ddp_inp_rec.dates_in_input_tz := p2_a5;
46
47
48
49
50
51
52 -- here's the delegated call to the old PL/SQL routine
53 oks_cov_ent_pub.get_default_react_resolve_by(p_api_version,
54 p_init_msg_list,
55 ddp_inp_rec,
56 x_return_status,
57 x_msg_count,
58 x_msg_data,
59 ddx_react_rec,
60 ddx_resolve_rec);
61
62 -- copy data back from the local variables to OUT or IN-OUT args, if any
63
64
65
66
67
68
69 p6_a0 := ddx_react_rec.by_date_start;
70 p6_a1 := ddx_react_rec.by_date_end;
71
72 p7_a0 := ddx_resolve_rec.by_date_start;
73 p7_a1 := ddx_resolve_rec.by_date_end;
74 end;
75
76 end oks_cov_ent_pub_w;