1 package body okl_contract_book_pvt_w as
2 /* $Header: OKLEBKGB.pls 120.3 2007/05/17 16:48:02 hariven 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 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 execute_qa_check_list(p_api_version NUMBER
26 , p_init_msg_list VARCHAR2
27 , x_return_status out nocopy VARCHAR2
28 , x_msg_count out nocopy NUMBER
29 , x_msg_data out nocopy VARCHAR2
30 , p_qcl_id NUMBER
31 , p_chr_id NUMBER
32 , p_call_mode VARCHAR2
33 , p8_a0 out nocopy JTF_VARCHAR2_TABLE_100
34 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_200
35 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_2000
36 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_100
37 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
38 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
39 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_2000
40 )
41
42 as
43 ddx_msg_tbl okl_qa_check_pub.msg_tbl_type;
44 ddindx binary_integer; indx binary_integer;
45 begin
46
47 -- copy data to the local IN or IN-OUT args, if any
48
49
50
51
52
53
54
55
56
57 -- here's the delegated call to the old PL/SQL routine
58 okl_contract_book_pvt.execute_qa_check_list(p_api_version,
59 p_init_msg_list,
60 x_return_status,
61 x_msg_count,
62 x_msg_data,
63 p_qcl_id,
64 p_chr_id,
65 p_call_mode,
66 ddx_msg_tbl);
67
68 -- copy data back from the local variables to OUT or IN-OUT args, if any
69
70
71
72
73
74
75
76
77 okl_qa_check_pub_w.rosetta_table_copy_out_p1(ddx_msg_tbl, p8_a0
78 , p8_a1
79 , p8_a2
80 , p8_a3
81 , p8_a4
82 , p8_a5
83 , p8_a6
84 );
85 end;
86
87 procedure validate_contract(p_api_version NUMBER
88 , p_init_msg_list VARCHAR2
89 , x_return_status out nocopy VARCHAR2
90 , x_msg_count out nocopy NUMBER
91 , x_msg_data out nocopy VARCHAR2
92 , p_qcl_id NUMBER
93 , p_chr_id NUMBER
94 , p_call_mode VARCHAR2
95 , p8_a0 out nocopy JTF_VARCHAR2_TABLE_100
96 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_200
97 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_2000
98 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_100
99 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
100 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
101 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_2000
102 )
103
104 as
105 ddx_msg_tbl okl_qa_check_pub.msg_tbl_type;
106 ddindx binary_integer; indx binary_integer;
107 begin
108
109 -- copy data to the local IN or IN-OUT args, if any
110
111
112
113
114
115
116
117
118
119 -- here's the delegated call to the old PL/SQL routine
120 okl_contract_book_pvt.validate_contract(p_api_version,
121 p_init_msg_list,
122 x_return_status,
123 x_msg_count,
124 x_msg_data,
125 p_qcl_id,
126 p_chr_id,
127 p_call_mode,
128 ddx_msg_tbl);
129
130 -- copy data back from the local variables to OUT or IN-OUT args, if any
131
132
133
134
135
136
137
138
139 okl_qa_check_pub_w.rosetta_table_copy_out_p1(ddx_msg_tbl, p8_a0
140 , p8_a1
141 , p8_a2
142 , p8_a3
143 , p8_a4
144 , p8_a5
145 , p8_a6
146 );
147 end;
148
149 end okl_contract_book_pvt_w;