[Home] [Help]
PACKAGE BODY: APPS.OKL_BPD_CAP_PURPOSE_PUB_W
Source
1 package body okl_bpd_cap_purpose_pub_w as
2 /* $Header: OKLUCPUB.pls 120.2 2005/10/30 04:02:53 appldev 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 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure create_purpose(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p5_a0 JTF_NUMBER_TABLE
28 , p5_a1 JTF_NUMBER_TABLE
29 , p5_a2 JTF_NUMBER_TABLE
30 , p5_a3 JTF_NUMBER_TABLE
31 , p5_a4 JTF_NUMBER_TABLE
32 , p5_a5 JTF_NUMBER_TABLE
33 , p6_a0 out nocopy JTF_NUMBER_TABLE
34 , p6_a1 out nocopy JTF_NUMBER_TABLE
35 , p6_a2 out nocopy JTF_NUMBER_TABLE
36 , p6_a3 out nocopy JTF_NUMBER_TABLE
37 , p6_a4 out nocopy JTF_NUMBER_TABLE
38 , p6_a5 out nocopy JTF_NUMBER_TABLE
39 )
40
41 as
42 ddp_strm_tbl okl_bpd_cap_purpose_pub.okl_cash_dtls_tbl_type;
43 ddx_strm_tbl okl_bpd_cap_purpose_pub.okl_cash_dtls_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 okl_bpd_cap_purpose_pvt_w.rosetta_table_copy_in_p4(ddp_strm_tbl, p5_a0
54 , p5_a1
55 , p5_a2
56 , p5_a3
57 , p5_a4
58 , p5_a5
59 );
60
61
62 -- here's the delegated call to the old PL/SQL routine
63 okl_bpd_cap_purpose_pub.create_purpose(p_api_version,
64 p_init_msg_list,
65 x_return_status,
66 x_msg_count,
67 x_msg_data,
68 ddp_strm_tbl,
69 ddx_strm_tbl);
70
71 -- copy data back from the local variables to OUT or IN-OUT args, if any
72
73
74
75
76
77
78 okl_bpd_cap_purpose_pvt_w.rosetta_table_copy_out_p4(ddx_strm_tbl, p6_a0
79 , p6_a1
80 , p6_a2
81 , p6_a3
82 , p6_a4
83 , p6_a5
84 );
85 end;
86
87 procedure update_purpose(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 , p5_a0 JTF_NUMBER_TABLE
93 , p5_a1 JTF_NUMBER_TABLE
94 , p5_a2 JTF_NUMBER_TABLE
95 , p5_a3 JTF_NUMBER_TABLE
96 , p5_a4 JTF_NUMBER_TABLE
97 , p5_a5 JTF_NUMBER_TABLE
98 , p6_a0 out nocopy JTF_NUMBER_TABLE
99 , p6_a1 out nocopy JTF_NUMBER_TABLE
100 , p6_a2 out nocopy JTF_NUMBER_TABLE
101 , p6_a3 out nocopy JTF_NUMBER_TABLE
102 , p6_a4 out nocopy JTF_NUMBER_TABLE
103 , p6_a5 out nocopy JTF_NUMBER_TABLE
104 )
105
106 as
107 ddp_strm_tbl okl_bpd_cap_purpose_pub.okl_cash_dtls_tbl_type;
108 ddx_strm_tbl okl_bpd_cap_purpose_pub.okl_cash_dtls_tbl_type;
109 ddindx binary_integer; indx binary_integer;
110 begin
111
112 -- copy data to the local IN or IN-OUT args, if any
113
114
115
116
117
118 okl_bpd_cap_purpose_pvt_w.rosetta_table_copy_in_p4(ddp_strm_tbl, p5_a0
119 , p5_a1
120 , p5_a2
121 , p5_a3
122 , p5_a4
123 , p5_a5
124 );
125
126
127 -- here's the delegated call to the old PL/SQL routine
128 okl_bpd_cap_purpose_pub.update_purpose(p_api_version,
129 p_init_msg_list,
130 x_return_status,
131 x_msg_count,
132 x_msg_data,
133 ddp_strm_tbl,
134 ddx_strm_tbl);
135
136 -- copy data back from the local variables to OUT or IN-OUT args, if any
137
138
139
140
141
142
143 okl_bpd_cap_purpose_pvt_w.rosetta_table_copy_out_p4(ddx_strm_tbl, p6_a0
144 , p6_a1
145 , p6_a2
146 , p6_a3
147 , p6_a4
148 , p6_a5
149 );
150 end;
151
152 procedure delete_purpose(p_api_version NUMBER
153 , p_init_msg_list VARCHAR2
154 , x_return_status out nocopy VARCHAR2
155 , x_msg_count out nocopy NUMBER
156 , x_msg_data out nocopy VARCHAR2
157 , p5_a0 JTF_NUMBER_TABLE
158 , p5_a1 JTF_NUMBER_TABLE
159 , p5_a2 JTF_NUMBER_TABLE
160 , p5_a3 JTF_NUMBER_TABLE
161 , p5_a4 JTF_NUMBER_TABLE
162 , p5_a5 JTF_NUMBER_TABLE
163 , p6_a0 out nocopy JTF_NUMBER_TABLE
164 , p6_a1 out nocopy JTF_NUMBER_TABLE
165 , p6_a2 out nocopy JTF_NUMBER_TABLE
166 , p6_a3 out nocopy JTF_NUMBER_TABLE
167 , p6_a4 out nocopy JTF_NUMBER_TABLE
168 , p6_a5 out nocopy JTF_NUMBER_TABLE
169 )
170
171 as
172 ddp_strm_tbl okl_bpd_cap_purpose_pub.okl_cash_dtls_tbl_type;
173 ddx_strm_tbl okl_bpd_cap_purpose_pub.okl_cash_dtls_tbl_type;
174 ddindx binary_integer; indx binary_integer;
175 begin
176
177 -- copy data to the local IN or IN-OUT args, if any
178
179
180
181
182
183 okl_bpd_cap_purpose_pvt_w.rosetta_table_copy_in_p4(ddp_strm_tbl, p5_a0
184 , p5_a1
185 , p5_a2
186 , p5_a3
187 , p5_a4
188 , p5_a5
189 );
190
191
192 -- here's the delegated call to the old PL/SQL routine
193 okl_bpd_cap_purpose_pub.delete_purpose(p_api_version,
194 p_init_msg_list,
195 x_return_status,
196 x_msg_count,
197 x_msg_data,
198 ddp_strm_tbl,
199 ddx_strm_tbl);
200
201 -- copy data back from the local variables to OUT or IN-OUT args, if any
202
203
204
205
206
207
208 okl_bpd_cap_purpose_pvt_w.rosetta_table_copy_out_p4(ddx_strm_tbl, p6_a0
209 , p6_a1
210 , p6_a2
211 , p6_a3
212 , p6_a4
213 , p6_a5
214 );
215 end;
216
217 end okl_bpd_cap_purpose_pub_w;