[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_CONTRACT_PRTFL_PUB
Source
1 PACKAGE BODY OKL_AM_CONTRACT_PRTFL_PUB AS
2 /* $Header: OKLPPTFB.pls 115.5 2004/04/13 10:59:26 rnaik noship $ */
3
4 PROCEDURE create_cntrct_prtfl(
5 p_api_version IN NUMBER,
6 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
7 x_return_status OUT NOCOPY VARCHAR2,
8 x_msg_count OUT NOCOPY NUMBER,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 p_contract_id IN NUMBER) AS
11
12 l_api_version NUMBER ;
13 l_init_msg_list VARCHAR2(1) ;
14 l_return_status VARCHAR2(1);
15 l_msg_count NUMBER ;
16 l_msg_data VARCHAR2(2000);
17 lp_contract_id NUMBER;
18
19 BEGIN
20 SAVEPOINT trx_create_cntrct_prtfl;
21 l_api_version := p_api_version ;
22 l_init_msg_list := p_init_msg_list ;
23 l_return_status := x_return_status ;
24 l_msg_count := x_msg_count ;
25 l_msg_data := x_msg_data ;
26
27 lp_contract_id := p_contract_id;
28
29
30
31 -- call the insert of pvt
32
33 OKL_AM_CONTRACT_PRTFL_PVT.create_cntrct_prtfl(
34 p_api_version => l_api_version,
35 p_init_msg_list => l_init_msg_list,
36 x_return_status => l_return_status,
37 x_msg_count => l_msg_count,
38 x_msg_data => l_msg_data,
39 p_contract_id => lp_contract_id);
40
41
42 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
43 RAISE FND_API.G_EXC_ERROR;
44 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
45 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
46 END IF;
47 --Assign value to OUT variables
48 x_return_status := l_return_status ;
49 x_msg_count := l_msg_count ;
50 x_msg_data := l_msg_data ;
51
52 EXCEPTION
53 WHEN FND_API.G_EXC_ERROR THEN
54 ROLLBACK TO trx_create_cntrct_prtfl;
55 x_return_status := FND_API.G_RET_STS_ERROR;
56 x_msg_count := l_msg_count ;
57 x_msg_data := l_msg_data ;
58 FND_MSG_PUB.count_and_get(
59 p_count => x_msg_count
60 ,p_data => x_msg_data);
61 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
62 ROLLBACK TO trx_create_cntrct_prtfl;
63 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
64 x_msg_count := l_msg_count ;
65 x_msg_data := l_msg_data ;
66 FND_MSG_PUB.count_and_get(
67 p_count => x_msg_count
68 ,p_data => x_msg_data);
69 WHEN OTHERS THEN
70 ROLLBACK TO trx_create_cntrct_prtfl;
71 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
72 x_msg_count := l_msg_count ;
73 x_msg_data := l_msg_data ;
74 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_CONTRACT_PRTFL_PUB','create_cntrct_prtfl');
75 FND_MSG_PUB.count_and_get(
76 p_count => x_msg_count
77 ,p_data => x_msg_data);
78 END create_cntrct_prtfl;
79
80
81 PROCEDURE batch_upd_cntrct_prtfl( ERRBUF OUT NOCOPY VARCHAR2,
82 RETCODE OUT NOCOPY VARCHAR2 ,
83 p_api_version IN NUMBER,
84 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
85 p_contract_id IN NUMBER DEFAULT NULL
86 ) AS
87
88 l_api_version NUMBER ;
89 l_init_msg_list VARCHAR2(1) ;
90
91 lp_contract_id NUMBER;
92 lx_errbuf VARCHAR2(2000);
93 lx_retcode VARCHAR2(2000);
94 BEGIN
95 SAVEPOINT trx_batch_upd_cntrct_prtfl;
96 l_api_version := p_api_version ;
97 l_init_msg_list := p_init_msg_list ;
98
99
100 lp_contract_id := p_contract_id;
101
102 lx_errbuf := ERRBUF;
103 lx_retcode := RETCODE;
104
105 -- call the insert of pvt
106 OKL_AM_CONTRACT_PRTFL_PVT.batch_upd_cntrct_prtfl(
107 ERRBUF => lx_errbuf,
108 RETCODE => lx_retcode,
109 p_api_version => l_api_version,
110 p_init_msg_list => l_init_msg_list,
111 p_contract_id => lp_contract_id);
112
113 IF ( lx_retcode <> 0 ) THEN
114 RAISE FND_API.G_EXC_ERROR;
115 END IF;
116 --Assign value to OUT variables
117 ERRBUF := lx_errbuf ;
118 RETCODE := lx_retcode;
119
120 EXCEPTION
121 WHEN FND_API.G_EXC_ERROR THEN
122 ROLLBACK TO trx_batch_upd_cntrct_prtfl;
123
124
125 WHEN OTHERS THEN
126 ROLLBACK TO trx_batch_upd_cntrct_prtfl;
127
128 END batch_upd_cntrct_prtfl;
129
130
131
132 PROCEDURE update_cntrct_prtfl(
133 p_api_version IN NUMBER,
134 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
135 x_return_status OUT NOCOPY VARCHAR2,
136 x_msg_count OUT NOCOPY NUMBER,
137 x_msg_data OUT NOCOPY VARCHAR2,
138 p_contract_id IN NUMBER DEFAULT NULL,
139 x_total_count OUT NOCOPY NUMBER,
140 x_processed_count OUT NOCOPY NUMBER,
141 x_error_count OUT NOCOPY NUMBER)
142 AS
143
144 l_api_version NUMBER ;
145 l_init_msg_list VARCHAR2(1) ;
146 l_return_status VARCHAR2(1);
147 l_msg_count NUMBER ;
148 l_msg_data VARCHAR2(2000);
149 lp_contract_id NUMBER;
150
151 lx_total_count NUMBER;
152 lx_processed_count NUMBER;
153 lx_error_count NUMBER;
154
155 BEGIN
156 SAVEPOINT trx_update_cntrct_prtfl;
157 l_api_version := p_api_version ;
158 l_init_msg_list := p_init_msg_list ;
159 l_return_status := x_return_status ;
160 l_msg_count := x_msg_count ;
161 l_msg_data := x_msg_data ;
162
163 lp_contract_id := p_contract_id;
164
165 lx_total_count := x_total_count;
166 lx_processed_count := x_processed_count;
167 lx_error_count := x_error_count;
168
169 -- call the insert of pvt
170 OKL_AM_CONTRACT_PRTFL_PVT.update_cntrct_prtfl(
171 p_api_version => l_api_version
172 ,p_init_msg_list => l_init_msg_list
173 ,x_return_status => l_return_status
174 ,x_msg_count => l_msg_count
175 ,x_msg_data => l_msg_data
176 ,p_contract_id => lp_contract_id,
177 x_total_count => lx_total_count,
178 x_processed_count => lx_processed_count,
179 x_error_count => lx_error_count) ;
180 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
181 RAISE FND_API.G_EXC_ERROR;
182 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
183 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184 END IF;
185 --Assign value to OUT variables
186 x_return_status := l_return_status ;
187 x_msg_count := l_msg_count ;
188 x_msg_data := l_msg_data ;
189 x_total_count := lx_total_count;
190 x_processed_count := lx_processed_count;
191 x_error_count := lx_error_count;
192 EXCEPTION
193 WHEN FND_API.G_EXC_ERROR THEN
194 ROLLBACK TO trx_update_cntrct_prtfl;
195 x_return_status := FND_API.G_RET_STS_ERROR;
196 x_msg_count := l_msg_count ;
197 x_msg_data := l_msg_data ;
198 FND_MSG_PUB.count_and_get(
199 p_count => x_msg_count
200 ,p_data => x_msg_data);
201 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
202 ROLLBACK TO trx_update_cntrct_prtfl;
203 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204 x_msg_count := l_msg_count ;
205 x_msg_data := l_msg_data ;
206 FND_MSG_PUB.count_and_get(
207 p_count => x_msg_count
208 ,p_data => x_msg_data);
209 WHEN OTHERS THEN
210 ROLLBACK TO trx_update_cntrct_prtfl;
211 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
212 x_msg_count := l_msg_count ;
213 x_msg_data := l_msg_data ;
214 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_CONTRACT_PRTFL_PUB','update_cntrct_prtfl');
215 FND_MSG_PUB.count_and_get(
216 p_count => x_msg_count
217 ,p_data => x_msg_data);
218 END update_cntrct_prtfl;
219
220
221 PROCEDURE batch_exe_cntrct_prtfl( ERRBUF OUT NOCOPY VARCHAR2,
222 RETCODE OUT NOCOPY VARCHAR2 ,
223 p_api_version IN NUMBER,
224 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
225 ) AS
226
227 l_api_version NUMBER ;
228 l_init_msg_list VARCHAR2(1) ;
229 lx_errbuf VARCHAR2(2000);
230 lx_retcode VARCHAR2(2000);
231 BEGIN
232 SAVEPOINT trx_batch_exe_cntrct_prtfl;
233 l_api_version := p_api_version ;
234 l_init_msg_list := p_init_msg_list ;
235
236
237 lx_errbuf := ERRBUF;
238 lx_retcode := RETCODE;
239
240 -- call the insert of pvt
241 OKL_AM_CONTRACT_PRTFL_PVT.batch_exe_cntrct_prtfl(
242 ERRBUF => lx_errbuf,
243 RETCODE => lx_retcode,
244 p_api_version => l_api_version,
245 p_init_msg_list => l_init_msg_list);
246
247 IF ( lx_retcode <> 0 ) THEN
248 RAISE FND_API.G_EXC_ERROR;
249 END IF;
250 --Assign value to OUT variables
251 ERRBUF := lx_errbuf ;
252 RETCODE := lx_retcode;
253
254 EXCEPTION
255 WHEN FND_API.G_EXC_ERROR THEN
256 ROLLBACK TO trx_batch_exe_cntrct_prtfl;
257
258
259 WHEN OTHERS THEN
260 ROLLBACK TO trx_batch_exe_cntrct_prtfl;
261
262 END batch_exe_cntrct_prtfl;
263
264
265
266 PROCEDURE execute_cntrct_prtfl(
267 p_api_version IN NUMBER,
268 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
269 x_return_status OUT NOCOPY VARCHAR2,
270 x_msg_count OUT NOCOPY NUMBER,
271 x_msg_data OUT NOCOPY VARCHAR2,
272 x_total_count OUT NOCOPY NUMBER,
273 x_processed_count OUT NOCOPY NUMBER,
274 x_error_count OUT NOCOPY NUMBER)
275 AS
276
277 l_api_version NUMBER ;
278 l_init_msg_list VARCHAR2(1) ;
279 l_return_status VARCHAR2(1);
280 l_msg_count NUMBER ;
281 l_msg_data VARCHAR2(2000);
282
283 lx_total_count NUMBER;
284 lx_processed_count NUMBER;
285 lx_error_count NUMBER;
286
287 BEGIN
288 SAVEPOINT trx_execute_cntrct_prtfl;
289 l_api_version := p_api_version ;
290 l_init_msg_list := p_init_msg_list ;
291 l_return_status := x_return_status ;
292 l_msg_count := x_msg_count ;
293 l_msg_data := x_msg_data ;
294
295
296 lx_total_count := x_total_count;
297 lx_processed_count := x_processed_count;
298 lx_error_count := x_error_count;
299
300 -- call the insert of pvt
301 OKL_AM_CONTRACT_PRTFL_PVT.execute_cntrct_prtfl(
302 p_api_version => l_api_version
303 ,p_init_msg_list => l_init_msg_list
304 ,x_return_status => l_return_status
305 ,x_msg_count => l_msg_count
306 ,x_msg_data => l_msg_data
307 ,x_total_count => lx_total_count,
308 x_processed_count => lx_processed_count,
309 x_error_count => lx_error_count) ;
310 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
311 RAISE FND_API.G_EXC_ERROR;
312 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
313 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
314 END IF;
315 --Assign value to OUT variables
316 x_return_status := l_return_status ;
317 x_msg_count := l_msg_count ;
318 x_msg_data := l_msg_data ;
319 x_total_count := lx_total_count;
320 x_processed_count := lx_processed_count;
321 x_error_count := lx_error_count;
322 EXCEPTION
323 WHEN FND_API.G_EXC_ERROR THEN
324 ROLLBACK TO trx_execute_cntrct_prtfl;
325 x_return_status := FND_API.G_RET_STS_ERROR;
326 x_msg_count := l_msg_count ;
327 x_msg_data := l_msg_data ;
328 FND_MSG_PUB.count_and_get(
329 p_count => x_msg_count
330 ,p_data => x_msg_data);
331 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332 ROLLBACK TO trx_execute_cntrct_prtfl;
333 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
334 x_msg_count := l_msg_count ;
335 x_msg_data := l_msg_data ;
336 FND_MSG_PUB.count_and_get(
337 p_count => x_msg_count
338 ,p_data => x_msg_data);
339 WHEN OTHERS THEN
340 ROLLBACK TO trx_execute_cntrct_prtfl;
341 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342 x_msg_count := l_msg_count ;
343 x_msg_data := l_msg_data ;
344 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_CONTRACT_PRTFL_PUB','execute_cntrct_prtfl');
345 FND_MSG_PUB.count_and_get(
346 p_count => x_msg_count
347 ,p_data => x_msg_data);
348 END execute_cntrct_prtfl;
349
350
351 END OKL_AM_CONTRACT_PRTFL_PUB;