[Home] [Help]
PACKAGE BODY: APPS.OKL_SPLIT_ASSET_PUB
Source
1 PACKAGE BODY okl_split_asset_pub As
2 /* $Header: OKLPSPAB.pls 120.3 2007/12/14 06:04:50 rpillay ship $ */
3 FUNCTION is_serialized(p_cle_id IN NUMBER) Return VARCHAR2 is
4 l_serialized VARCHAR2(1) default OKL_API.G_FALSE;
5 Begin
6 l_serialized := OKL_SPLIT_ASSET_PVT.IS_SERIALIZED(p_cle_id => p_cle_id);
7 Return(l_serialized);
8 End is_serialized;
9 PROCEDURE Create_Split_Transaction(p_api_version IN NUMBER,
10 p_init_msg_list IN VARCHAR2,
11 x_return_status OUT NOCOPY VARCHAR2,
12 x_msg_count OUT NOCOPY NUMBER,
13 x_msg_data OUT NOCOPY VARCHAR2,
14 p_cle_id IN NUMBER,
15 p_split_into_individuals_yn IN VARCHAR2,
16 p_split_into_units IN NUMBER,
17 p_ib_tbl IN ib_tbl_type,
18 x_txdv_tbl OUT NOCOPY txdv_tbl_type,
19 x_txlv_rec OUT NOCOPY txlv_rec_type,
20 x_trxv_rec OUT NOCOPY trxv_rec_type) IS
21 Begin
22 OKL_SPLIT_ASSET_PVT.Create_Split_Transaction
23 (p_api_version => p_api_version,
24 p_init_msg_list => p_init_msg_list,
25 x_return_status => x_return_status,
26 x_msg_count => x_msg_count,
27 x_msg_data => x_msg_data,
28 p_cle_id => p_cle_id,
29 p_split_into_individuals_yn => p_split_into_individuals_yn,
30 p_split_into_units => p_split_into_units,
31 p_ib_tbl => p_ib_tbl,
32 x_txdv_tbl => x_txdv_tbl,
33 x_txlv_rec => x_txlv_rec,
34 x_trxv_rec => x_trxv_rec);
35 End create_split_transaction;
36
37 PROCEDURE Create_Split_Transaction(p_api_version IN NUMBER,
38 p_init_msg_list IN VARCHAR2,
39 x_return_status OUT NOCOPY VARCHAR2,
40 x_msg_count OUT NOCOPY NUMBER,
41 x_msg_data OUT NOCOPY VARCHAR2,
42 p_cle_id IN NUMBER,
43 p_split_into_individuals_yn IN VARCHAR2,
44 p_split_into_units IN NUMBER,
45 x_txdv_tbl OUT NOCOPY txdv_tbl_type,
46 x_txlv_rec OUT NOCOPY txlv_rec_type,
47 x_trxv_rec OUT NOCOPY trxv_rec_type) IS
48 Begin
49 OKL_SPLIT_ASSET_PVT.Create_Split_Transaction
50 (p_api_version => p_api_version,
51 p_init_msg_list => p_init_msg_list,
52 x_return_status => x_return_status,
53 x_msg_count => x_msg_count,
54 x_msg_data => x_msg_data,
55 p_cle_id => p_cle_id,
56 p_split_into_individuals_yn => p_split_into_individuals_yn,
57 p_split_into_units => p_split_into_units,
58 x_txdv_tbl => x_txdv_tbl,
59 x_txlv_rec => x_txlv_rec,
60 x_trxv_rec => x_trxv_rec);
61 End create_split_transaction;
62
63 -----------------------
64 --Bug# 3156924
65 -----------------------
66 Procedure validate_trx_date(p_api_version IN NUMBER,
67 p_init_msg_list IN VARCHAR2,
68 x_return_status OUT NOCOPY VARCHAR2,
69 x_msg_count OUT NOCOPY NUMBER,
70 x_msg_data OUT NOCOPY VARCHAR2,
71 p_chr_id IN NUMBER,
72 p_trx_date IN VARCHAR2) is
73 BEGIN
74 OKL_SPLIT_ASSET_PVT.validate_trx_date
75 (p_api_version => p_api_version,
76 p_init_msg_list => p_init_msg_list,
77 x_return_status => x_return_status,
78 x_msg_count => x_msg_count,
79 x_msg_data => x_msg_data,
80 p_chr_id => p_chr_id,
81 p_trx_date => p_trx_date);
82 End validate_trx_date;
83
84 PROCEDURE Create_Split_Transaction(p_api_version IN NUMBER,
85 p_init_msg_list IN VARCHAR2,
86 x_return_status OUT NOCOPY VARCHAR2,
87 x_msg_count OUT NOCOPY NUMBER,
88 x_msg_data OUT NOCOPY VARCHAR2,
89 p_cle_id IN NUMBER,
90 p_split_into_individuals_yn IN VARCHAR2,
91 p_split_into_units IN NUMBER,
92 p_ib_tbl IN ib_tbl_type,
93 p_trx_date IN date,
94 x_txdv_tbl OUT NOCOPY txdv_tbl_type,
95 x_txlv_rec OUT NOCOPY txlv_rec_type,
96 x_trxv_rec OUT NOCOPY trxv_rec_type) IS
97 Begin
98 OKL_SPLIT_ASSET_PVT.Create_Split_Transaction
99 (p_api_version => p_api_version,
100 p_init_msg_list => p_init_msg_list,
101 x_return_status => x_return_status,
102 x_msg_count => x_msg_count,
103 x_msg_data => x_msg_data,
104 p_cle_id => p_cle_id,
105 p_split_into_individuals_yn => p_split_into_individuals_yn,
106 p_split_into_units => p_split_into_units,
107 p_ib_tbl => p_ib_tbl,
108 p_trx_date => p_trx_date,
109 x_txdv_tbl => x_txdv_tbl,
110 x_txlv_rec => x_txlv_rec,
111 x_trxv_rec => x_trxv_rec);
112 End create_split_transaction;
113
114 PROCEDURE Create_Split_Transaction(p_api_version IN NUMBER,
115 p_init_msg_list IN VARCHAR2,
116 x_return_status OUT NOCOPY VARCHAR2,
117 x_msg_count OUT NOCOPY NUMBER,
118 x_msg_data OUT NOCOPY VARCHAR2,
119 p_cle_id IN NUMBER,
120 p_split_into_individuals_yn IN VARCHAR2,
121 p_split_into_units IN NUMBER,
122 p_trx_date IN DATE,
123 x_txdv_tbl OUT NOCOPY txdv_tbl_type,
124 x_txlv_rec OUT NOCOPY txlv_rec_type,
125 x_trxv_rec OUT NOCOPY trxv_rec_type) IS
126 Begin
127 OKL_SPLIT_ASSET_PVT.Create_Split_Transaction
128 (p_api_version => p_api_version,
129 p_init_msg_list => p_init_msg_list,
130 x_return_status => x_return_status,
131 x_msg_count => x_msg_count,
132 x_msg_data => x_msg_data,
133 p_cle_id => p_cle_id,
134 p_split_into_individuals_yn => p_split_into_individuals_yn,
135 p_split_into_units => p_split_into_units,
136 p_trx_date => p_trx_date,
137 x_txdv_tbl => x_txdv_tbl,
138 x_txlv_rec => x_txlv_rec,
139 x_trxv_rec => x_trxv_rec);
140 End create_split_transaction;
141 ------------------
142 --Bug# 3156924
143 -----------------
144
145 PROCEDURE Update_Split_Transaction(p_api_version IN NUMBER,
146 p_init_msg_list IN VARCHAR2,
147 x_return_status OUT NOCOPY VARCHAR2,
148 x_msg_count OUT NOCOPY NUMBER,
149 x_msg_data OUT NOCOPY VARCHAR2,
150 p_cle_id IN NUMBER,
151 p_txdv_tbl IN txdv_tbl_type,
152 x_txdv_tbl OUT NOCOPY txdv_tbl_type) is
153 begin
154 okl_split_asset_pvt.Update_Split_Transaction(p_api_version => p_api_version,
155 p_init_msg_list => p_init_msg_list,
156 x_return_status => x_return_status,
157 x_msg_count => x_msg_count,
158 x_msg_data => x_msg_data,
159 p_cle_id => p_cle_id,
160 p_txdv_tbl => p_txdv_tbl,
161 x_txdv_tbl => x_txdv_tbl);
162 end update_split_transaction;
163
164 PROCEDURE Split_Fixed_Asset(p_api_version IN NUMBER,
165 p_init_msg_list IN VARCHAR2,
166 x_return_status OUT NOCOPY VARCHAR2,
167 x_msg_count OUT NOCOPY NUMBER,
168 x_msg_data OUT NOCOPY VARCHAR2,
169 p_txdv_tbl IN txdv_tbl_type,
170 p_txlv_rec IN txlv_rec_type,
171 x_cle_tbl OUT NOCOPY cle_tbl_type,
172 p_source_call IN VARCHAR2 DEFAULT 'UI') is
173 Begin
174 okl_split_asset_pvt.Split_Fixed_Asset
175 (p_api_version => p_api_version,
176 p_init_msg_list => p_init_msg_list,
177 x_return_status => x_return_status,
178 x_msg_count => x_msg_count,
179 x_msg_data => x_msg_data,
180 p_txdv_tbl => p_txdv_tbl,
181 p_txlv_rec => p_txlv_rec,
182 x_cle_tbl => x_cle_tbl,
183 p_source_call => p_source_call);
184 End Split_Fixed_Asset;
185 PROCEDURE Split_Fixed_Asset(p_api_version IN NUMBER,
186 p_init_msg_list IN VARCHAR2,
187 x_return_status OUT NOCOPY VARCHAR2,
188 x_msg_count OUT NOCOPY NUMBER,
189 x_msg_data OUT NOCOPY VARCHAR2,
190 p_cle_id IN NUMBER,
191 x_cle_tbl OUT NOCOPY cle_tbl_type,
192 p_source_call IN VARCHAR2 DEFAULT 'UI') is
193 Begin
194 okl_split_asset_pvt.Split_Fixed_Asset
195 (p_api_version => p_api_version,
196 p_init_msg_list => p_init_msg_list,
197 x_return_status => x_return_status,
198 x_msg_count => x_msg_count,
199 x_msg_data => x_msg_data,
200 p_cle_id => p_cle_id,
201 x_cle_tbl => x_cle_tbl,
202 p_source_call => p_source_call);
203 End Split_Fixed_Asset;
204
205 Procedure Is_Inv_Item_Serialized(p_api_version IN NUMBER,
206 p_init_msg_list IN VARCHAR2 ,
207 x_return_status OUT NOCOPY VARCHAR2,
208 x_msg_count OUT NOCOPY NUMBER,
209 x_msg_data OUT NOCOPY VARCHAR2,
210 p_inv_item_id IN NUMBER,
211 p_chr_id IN NUMBER,
212 p_cle_id IN NUMBER,
213 x_serialized OUT NOCOPY VARCHAR2) is
214 Begin
215 OKL_SPLIT_ASSET_PVT.Is_Inv_Item_Serialized
216 (p_api_version => p_api_version,
217 p_init_msg_list => p_init_msg_list,
218 x_return_status => x_return_status,
219 x_msg_count => x_msg_count,
220 x_msg_data => x_msg_data,
221 p_inv_item_id => p_inv_item_id,
222 p_chr_id => p_chr_id,
223 p_cle_id => p_cle_id,
224 x_serialized => x_serialized);
225 End Is_Inv_Item_serialized;
226
227 Procedure Is_Asset_Serialized(p_api_version IN NUMBER,
228 p_init_msg_list IN VARCHAR2,
229 x_return_status OUT NOCOPY VARCHAR2,
230 x_msg_count OUT NOCOPY NUMBER,
231 x_msg_data OUT NOCOPY VARCHAR2,
232 p_cle_id IN NUMBER,
233 x_serialized OUT NOCOPY VARCHAR2) is
234 Begin
235 OKL_SPLIT_ASSET_PVT.Is_Asset_Serialized
236 (p_api_version => p_api_version,
237 p_init_msg_list => p_init_msg_list,
238 x_return_status => x_return_status,
239 x_msg_count => x_msg_count,
240 x_msg_data => x_msg_data,
241 p_cle_id => p_cle_id,
242 x_serialized => x_serialized);
243 End Is_asset_Serialized;
244
245 Procedure Asset_Not_Srlz_Halt(p_api_version IN NUMBER,
246 p_init_msg_list IN VARCHAR2,
247 x_return_status OUT NOCOPY VARCHAR2,
248 x_msg_count OUT NOCOPY NUMBER,
249 x_msg_data OUT NOCOPY VARCHAR2,
250 p_cle_id IN NUMBER,
251 x_serialized OUT NOCOPY VARCHAR2) is
252 Begin
253 OKL_SPLIT_ASSET_PVT.Asset_Not_Srlz_Halt
254 (p_api_version => p_api_version,
255 p_init_msg_list => p_init_msg_list,
256 x_return_status => x_return_status,
257 x_msg_count => x_msg_count,
258 x_msg_data => x_msg_data,
259 p_cle_id => p_cle_id,
260 x_serialized => x_serialized);
261 End Asset_Not_Srlz_Halt;
262
263 Procedure Item_Not_Srlz_Halt(p_api_version IN NUMBER,
264 p_init_msg_list IN VARCHAR2,
265 x_return_status OUT NOCOPY VARCHAR2,
266 x_msg_count OUT NOCOPY NUMBER,
267 x_msg_data OUT NOCOPY VARCHAR2,
268 p_inv_item_id IN NUMBER,
269 p_chr_id IN NUMBER,
270 p_cle_id IN NUMBER,
271 x_serialized OUT NOCOPY VARCHAR2) is
272 Begin
273 OKL_SPLIT_ASSET_PVT.Item_Not_Srlz_Halt
274 (p_api_version => p_api_version,
275 p_init_msg_list => p_init_msg_list,
276 x_return_status => x_return_status,
277 x_msg_count => x_msg_count,
278 x_msg_data => x_msg_data,
279 p_inv_item_id => p_inv_item_id,
280 p_chr_id => p_chr_id,
281 p_cle_id => p_cle_id,
282 x_serialized => x_serialized);
283 End Item_Not_Srlz_Halt;
284
285 Procedure create_split_comp_srl_num(p_api_version IN NUMBER,
286 p_init_msg_list IN VARCHAR2 ,
287 x_return_status OUT NOCOPY VARCHAR2,
288 x_msg_count OUT NOCOPY NUMBER,
289 x_msg_data OUT NOCOPY VARCHAR2,
290 p_itiv_tbl IN itiv_tbl_type,
291 x_itiv_tbl OUT NOCOPY itiv_tbl_type) is
292 Begin
293 OKL_SPLIT_ASSET_PVT.create_split_comp_srl_num
294 (p_api_version => p_api_version,
295 p_init_msg_list => p_init_msg_list,
296 x_return_status => x_return_status,
297 x_msg_count => x_msg_count,
298 x_msg_data => x_msg_data,
299 p_itiv_tbl => p_itiv_tbl,
300 x_itiv_tbl => x_itiv_tbl);
301 End create_split_comp_srl_num;
302
303 Procedure Cancel_Split_Asset_Trs
304 (p_api_version IN NUMBER,
305 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
306 x_return_status OUT NOCOPY VARCHAR2,
307 x_msg_count OUT NOCOPY NUMBER,
308 x_msg_data OUT NOCOPY VARCHAR2,
309 p_cle_id IN NUMBER) IS
310 Begin
311 OKL_SPLIT_ASSET_PVT.Cancel_Split_Asset_Trs
312 (p_api_version => p_api_version,
313 p_init_msg_list => p_init_msg_list,
314 x_return_status => x_return_status,
315 x_msg_count => x_msg_count,
316 x_msg_data => x_msg_data,
317 p_cle_id => p_cle_id);
318 End Cancel_Split_Asset_Trs;
319
320 END OKL_SPLIT_ASSET_PUB;