1 package body oks_cov_ent_pub_w as
2 /* $Header: OKSPCEWB.pls 120.4 2011/12/28 06:31:58 vgujarat ship $ */
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 , p2_a6 NUMBER /*Added for Access Hours*/
29 , p2_a7 NUMBER
30 , p2_a8 NUMBER
31 )
32
33 as
34 ddp_inp_rec oks_cov_ent_pub.gdrt_inp_rec_type;
35 ddx_react_rec oks_cov_ent_pub.rcn_rsn_rec_type;
36 ddx_resolve_rec oks_cov_ent_pub.rcn_rsn_rec_type;
37 ddindx binary_integer; indx binary_integer;
38 begin
39
40 -- copy data to the local IN or IN-OUT args, if any
41
42
43 ddp_inp_rec.coverage_template_id := p2_a0;
44 ddp_inp_rec.business_process_id := p2_a1;
45 ddp_inp_rec.request_date := rosetta_g_miss_date_in_map(p2_a2);
46 ddp_inp_rec.severity_id := p2_a3;
47 ddp_inp_rec.time_zone_id := p2_a4;
48 ddp_inp_rec.dates_in_input_tz := p2_a5;
49 /*Added for Access Hours*/
50 ddp_inp_rec.cust_id := p2_a6;
51 ddp_inp_rec.cust_site_id := p2_a7;
52 ddp_inp_rec.cust_loc_id := p2_a8;
53
54
55
56
57 -- here's the delegated call to the old PL/SQL routine
58 oks_cov_ent_pub.get_default_react_resolve_by(p_api_version,
59 p_init_msg_list,
60 ddp_inp_rec,
61 x_return_status,
62 x_msg_count,
63 x_msg_data,
64 ddx_react_rec,
65 ddx_resolve_rec);
66
67 -- copy data back from the local variables to OUT or IN-OUT args, if any
68
69
70
71
72
73
74 p6_a0 := ddx_react_rec.by_date_start;
75 p6_a1 := ddx_react_rec.by_date_end;
76
77 p7_a0 := ddx_resolve_rec.by_date_start;
78 p7_a1 := ddx_resolve_rec.by_date_end;
79 end;
80
81 end oks_cov_ent_pub_w;