[Home] [Help]
PACKAGE BODY: APPS.IEX_OPEN_INTERFACE_PUB
Source
1 PACKAGE BODY iex_open_interface_pub AS
2 /* $Header: IEXPOPIB.pls 120.2 2004/12/16 16:21:44 jsanju ship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE report_all_credit_bureau
6 ---------------------------------------------------------------------------
7 PG_DEBUG NUMBER(2);
8
9 PROCEDURE report_all_credit_bureau(
10 errbuf OUT NOCOPY VARCHAR2,
11 retcode OUT NOCOPY NUMBER) AS
12 lx_errbuf VARCHAR2(2000);
13 lx_retcode NUMBER;
14 BEGIN
15 iex_opi_pvt.report_all_credit_bureau(
16 errbuf => lx_errbuf,
17 retcode => lx_retcode);
18
19
20 errbuf := lx_errbuf;
21 retcode := lx_retcode;
22 END report_all_credit_bureau;
23
24 ---------------------------------------------------------------------------
25 -- PROCEDURE insert_pending
26 ---------------------------------------------------------------------------
27 PROCEDURE insert_pending(
28 p_api_version IN NUMBER,
29 p_init_msg_list IN VARCHAR2,
30 p_object1_id1 IN VARCHAR2,
31 p_object1_id2 IN VARCHAR2,
32 p_jtot_object1_code IN VARCHAR2,
33 p_action IN VARCHAR2,
34 p_status IN VARCHAR2,
35 p_comments IN VARCHAR2,
36 p_ext_agncy_id IN NUMBER,
37 p_review_date IN DATE,
38 p_recall_date IN DATE,
39 p_automatic_recall_flag IN VARCHAR2,
40 p_review_before_recall_flag IN VARCHAR2,
41 x_return_status OUT NOCOPY VARCHAR2,
42 x_msg_count OUT NOCOPY NUMBER,
43 x_msg_data OUT NOCOPY VARCHAR2) AS
44
45 l_api_version NUMBER ;
46 l_init_msg_list VARCHAR2(1) ;
47 l_return_status VARCHAR2(1);
48 l_msg_count NUMBER ;
49 l_msg_data VARCHAR2(2000);
50
51 lp_iohv_rec iohv_rec_type;
52 lx_iohv_rec iohv_rec_type;
53
54 lp_oinv_rec oinv_rec_type;
55 lx_oinv_rec oinv_rec_type;
56
57 l_object1_id1 IEX_OPEN_INT_HST.OBJECT1_ID1%TYPE;
58 l_object1_id2 IEX_OPEN_INT_HST.OBJECT1_ID2%TYPE;
59 l_jtot_object1_code IEX_OPEN_INT_HST.JTOT_OBJECT1_CODE%TYPE;
60 l_action IEX_OPEN_INT_HST.ACTION%TYPE;
61 l_status IEX_OPEN_INT_HST.STATUS%TYPE;
62 l_comments IEX_OPEN_INT_HST.COMMENTS%TYPE;
63 l_ext_agncy_id IEX_OPEN_INT_HST.EXT_AGNCY_ID%TYPE;
64 l_review_date IEX_OPEN_INT_HST.REVIEW_DATE%TYPE;
65 l_recall_date IEX_OPEN_INT_HST.RECALL_DATE%TYPE;
66 l_automatic_recall_flag IEX_OPEN_INT_HST.AUTOMATIC_RECALL_FLAG%TYPE;
67 l_review_before_recall_flag IEX_OPEN_INT_HST.REVIEW_BEFORE_RECALL_FLAG%TYPE;
68
69 BEGIN
70
71 SAVEPOINT insert_pending;
72
73
74 l_api_version := p_api_version;
75 l_init_msg_list := p_init_msg_list;
76 l_object1_id1 := p_object1_id1;
77 l_object1_id2 := p_object1_id2;
78 l_jtot_object1_code := p_jtot_object1_code;
79 l_action := p_action;
80 l_status := p_status;
81 l_comments := p_comments;
82 l_ext_agncy_id := p_ext_agncy_id;
83 l_review_date := p_review_date;
84 l_recall_date := p_recall_date;
85 l_automatic_recall_flag := p_automatic_recall_flag;
86 l_review_before_recall_flag := p_review_before_recall_flag;
87
88 IF(l_ext_agncy_id = OKL_API.G_MISS_NUM OR l_ext_agncy_id IS NULL) THEN
89 l_ext_agncy_id := NULL;
90 END IF;
91
92 IF(l_review_date = OKL_API.G_MISS_DATE OR l_review_date IS NULL) THEN
93 l_review_date := NULL;
94 END IF;
95
96 IF(l_recall_date = OKL_API.G_MISS_DATE OR l_recall_date IS NULL) THEN
97 l_recall_date := NULL;
98 END IF;
99
100 IF(l_automatic_recall_flag = OKL_API.G_MISS_CHAR OR l_automatic_recall_flag IS NULL) THEN
101 l_automatic_recall_flag := NULL;
102 END IF;
103
104 IF(l_review_before_recall_flag = OKL_API.G_MISS_CHAR OR l_review_before_recall_flag IS NULL) THEN
105 l_review_before_recall_flag := NULL;
106 END IF;
107
108 IF (l_jtot_object1_code = 'OKX_LEASE') THEN
109 --processing for 'contracts'
110 --insert into open interface table
111 okl_open_interface_pub.insert_pending_int(
112 p_api_version => l_api_version,
113 p_init_msg_list => l_init_msg_list,
114 p_contract_id => to_number(l_object1_id1),
115 x_oinv_rec => lx_oinv_rec,
116 x_return_status => l_return_status,
117 x_msg_count => l_msg_count,
118 x_msg_data => l_msg_data);
119
120 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
121 RAISE FND_API.G_EXC_ERROR;
122 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
123 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
124 END IF;
125
126 --Copy value of OUT NOCOPY variable in the IN record type
127 lp_oinv_rec := lx_oinv_rec;
128 END IF;
129
130 --Code here for other types of objects i.e. objects other than contracts
131
132 --populate the history record
133 lp_iohv_rec.jtot_object1_code := l_jtot_object1_code;
134 lp_iohv_rec.object1_id1 := l_object1_id1;
135 lp_iohv_rec.object1_id2 := l_object1_id2;
136 lp_iohv_rec.action := l_action;
137 lp_iohv_rec.status := l_status;
138 lp_iohv_rec.comments := l_comments;
139 lp_iohv_rec.ext_agncy_id := l_ext_agncy_id;
140 lp_iohv_rec.review_date := l_review_date;
141 lp_iohv_rec.recall_date := l_recall_date;
142 lp_iohv_rec.automatic_recall_flag := l_automatic_recall_flag;
143 lp_iohv_rec.review_before_recall_flag := l_review_before_recall_flag;
144 lp_iohv_rec.org_id := lp_oinv_rec.org_id;
145
146 iex_opi_pvt.insert_pending_hst(
147 p_api_version => l_api_version,
148 p_init_msg_list => l_init_msg_list,
149 p_iohv_rec => lp_iohv_rec,
150 x_iohv_rec => lx_iohv_rec,
151 x_return_status => l_return_status,
152 x_msg_count => l_msg_count,
153 x_msg_data => l_msg_data);
154
155 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
156 RAISE FND_API.G_EXC_ERROR;
157 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
158 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159 END IF;
160
161 --Copy value of OUT NOCOPY variable in the IN record type
162 lp_iohv_rec := lx_iohv_rec;
163
164
165 --Assign value to OUT NOCOPY variables
166 --x_iohv_rec := lx_iohv_rec;
167 x_return_status := l_return_status ;
168 x_msg_count := l_msg_count ;
169 x_msg_data := l_msg_data ;
170
171 EXCEPTION
172 WHEN FND_API.G_EXC_ERROR THEN
173 ROLLBACK TO insert_pending;
174 x_return_status := FND_API.G_RET_STS_ERROR;
175 x_msg_count := l_msg_count ;
176 x_msg_data := l_msg_data ;
177 FND_MSG_PUB.count_and_get(
178 p_count => x_msg_count
179 ,p_data => x_msg_data);
180 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
181 ROLLBACK TO insert_pending;
182 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
183 x_msg_count := l_msg_count ;
184 x_msg_data := l_msg_data ;
185 FND_MSG_PUB.count_and_get(
186 p_count => x_msg_count
187 ,p_data => x_msg_data);
188 WHEN OTHERS THEN
189 ROLLBACK TO insert_pending;
190 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
191 x_msg_count := l_msg_count ;
192 x_msg_data := l_msg_data ;
193 FND_MSG_PUB.ADD_EXC_MSG('IEX_OPEN_INTERFACE_PUB','insert_pending_int');
194 FND_MSG_PUB.count_and_get(
195 p_count => x_msg_count
196 ,p_data => x_msg_data);
197 END insert_pending;
198
199
200 ---------------------------------------------------------------------------
201 -- PROCEDURE process_pending
202 ---------------------------------------------------------------------------
203 PROCEDURE process_pending(
204 errbuf OUT NOCOPY VARCHAR2,
205 retcode OUT NOCOPY NUMBER,
206 p_jtot_object1_code IN VARCHAR2,
207 p_case_number IN VARCHAR2) AS
208
209 lx_errbuf VARCHAR2(2000);
210 lx_retcode NUMBER;
211 l_case_number OKL_OPEN_INT.CASE_NUMBER%TYPE;
212 l_jtot_object1_code IEX_OPEN_INT_HST.JTOT_OBJECT1_CODE%TYPE;
213
214 BEGIN
215
216 l_jtot_object1_code := p_jtot_object1_code;
217 l_case_number := p_case_number;
218
219 IF (l_jtot_object1_code = 'OKX_LEASE') THEN
220 --call concurrent process for contracts
221 iex_opi_pvt.process_pending(
222 errbuf => lx_errbuf,
223 retcode => lx_retcode,
224 p_case_number => l_case_number);
225 END IF;
226
227 --Code here for other types of objects i.e. objects other than contracts
228
229 errbuf := lx_errbuf;
230 retcode := lx_retcode;
231 END process_pending;
232
233 ---------------------------------------------------------------------------
234 -- PROCEDURE complete_report_cb
235 ---------------------------------------------------------------------------
236 PROCEDURE complete_report_cb(
237 p_api_version IN NUMBER,
238 p_init_msg_list IN VARCHAR2 ,
239 p_interface_id IN NUMBER,
240 p_report_date IN DATE,
241 p_comments IN VARCHAR2 ,
242 x_return_status OUT NOCOPY VARCHAR2,
243 x_msg_count OUT NOCOPY NUMBER,
244 x_msg_data OUT NOCOPY VARCHAR2) AS
245
246 l_api_version NUMBER ;
247 l_init_msg_list VARCHAR2(1) ;
248 l_return_status VARCHAR2(1);
249 l_msg_count NUMBER ;
250 l_msg_data VARCHAR2(2000);
251
252 l_interface_id OKL_OPEN_INT.ID%TYPE;
253 l_report_date OKL_OPEN_INT.CREDIT_BUREAU_REPORT_DATE%TYPE;
254 l_comments IEX_OPEN_INT_HST.COMMENTS%TYPE;
255
256 BEGIN
257
258 SAVEPOINT complete_report_cb;
259
260
261 l_api_version := p_api_version;
262 l_init_msg_list := p_init_msg_list;
263 l_interface_id := p_interface_id;
264 l_report_date := p_report_date;
265 l_comments := p_comments;
266
267
268 iex_opi_pvt.complete_report_cb(
269 p_api_version => l_api_version,
270 p_init_msg_list => l_init_msg_list,
271 p_interface_id => l_interface_id,
272 p_report_date => l_report_date,
273 p_comments => l_comments,
274 x_return_status => l_return_status,
275 x_msg_count => l_msg_count,
276 x_msg_data => l_msg_data);
277
278 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
279 RAISE FND_API.G_EXC_ERROR;
280 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
281 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
282 END IF;
283
284
285 --Assign value to OUT NOCOPY variables
286 x_return_status := l_return_status ;
287 x_msg_count := l_msg_count ;
288 x_msg_data := l_msg_data ;
289
290 EXCEPTION
291 WHEN FND_API.G_EXC_ERROR THEN
292 ROLLBACK TO complete_report_cb;
293 x_return_status := FND_API.G_RET_STS_ERROR;
294 x_msg_count := l_msg_count ;
295 x_msg_data := l_msg_data ;
296 FND_MSG_PUB.count_and_get(
297 p_count => x_msg_count
298 ,p_data => x_msg_data);
299 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
300 ROLLBACK TO complete_report_cb;
301 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
302 x_msg_count := l_msg_count ;
303 x_msg_data := l_msg_data ;
304 FND_MSG_PUB.count_and_get(
305 p_count => x_msg_count
306 ,p_data => x_msg_data);
307 WHEN OTHERS THEN
308 ROLLBACK TO complete_report_cb;
309 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
310 x_msg_count := l_msg_count ;
311 x_msg_data := l_msg_data ;
312 FND_MSG_PUB.ADD_EXC_MSG('IEX_OPEN_INTERFACE_PUB','complete_report_cb');
313 FND_MSG_PUB.count_and_get(
314 p_count => x_msg_count
315 ,p_data => x_msg_data);
316
317 END complete_report_cb;
318
319 ---------------------------------------------------------------------------
320 -- PROCEDURE complete_transfer
321 ---------------------------------------------------------------------------
322 PROCEDURE complete_transfer(
323 p_api_version IN NUMBER,
324 p_init_msg_list IN VARCHAR2,
325 p_interface_id IN NUMBER,
326 p_transfer_date IN DATE,
327 p_comments IN VARCHAR2 ,
328 x_return_status OUT NOCOPY VARCHAR2,
329 x_msg_count OUT NOCOPY NUMBER,
330 x_msg_data OUT NOCOPY VARCHAR2) AS
331
332 l_api_version NUMBER ;
333 l_init_msg_list VARCHAR2(1) ;
334 l_return_status VARCHAR2(1);
335 l_msg_count NUMBER ;
336 l_msg_data VARCHAR2(2000);
337
338 l_interface_id OKL_OPEN_INT.ID%TYPE;
339 l_transfer_date OKL_OPEN_INT.EXTERNAL_AGENCY_TRANSFER_DATE%TYPE;
340 l_comments IEX_OPEN_INT_HST.COMMENTS%TYPE;
341
342 BEGIN
343
344 SAVEPOINT complete_transfer;
345
346
347 l_api_version := p_api_version;
348 l_init_msg_list := p_init_msg_list;
349 l_interface_id := p_interface_id;
350 l_transfer_date := p_transfer_date;
351 l_comments := p_comments;
352
353 iex_opi_pvt.complete_transfer(
354 p_api_version => l_api_version,
355 p_init_msg_list => l_init_msg_list,
356 p_interface_id => l_interface_id,
357 p_transfer_date => l_transfer_date,
358 p_comments => l_comments,
359 x_return_status => l_return_status,
360 x_msg_count => l_msg_count,
361 x_msg_data => l_msg_data);
362
363 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
364 RAISE FND_API.G_EXC_ERROR;
365 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
366 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
367 END IF;
368
369
370 --Assign value to OUT NOCOPY variables
371 x_return_status := l_return_status ;
372 x_msg_count := l_msg_count ;
373 x_msg_data := l_msg_data ;
374
375 EXCEPTION
376 WHEN FND_API.G_EXC_ERROR THEN
377 ROLLBACK TO complete_transfer;
378 x_return_status := FND_API.G_RET_STS_ERROR;
379 x_msg_count := l_msg_count ;
380 x_msg_data := l_msg_data ;
381 FND_MSG_PUB.count_and_get(
382 p_count => x_msg_count
383 ,p_data => x_msg_data);
384 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
385 ROLLBACK TO complete_transfer;
386 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387 x_msg_count := l_msg_count ;
388 x_msg_data := l_msg_data ;
389 FND_MSG_PUB.count_and_get(
390 p_count => x_msg_count
391 ,p_data => x_msg_data);
392 WHEN OTHERS THEN
393 ROLLBACK TO complete_transfer;
394 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
395 x_msg_count := l_msg_count ;
396 x_msg_data := l_msg_data ;
397 FND_MSG_PUB.ADD_EXC_MSG('IEX_OPEN_INTERFACE_PUB','complete_transfer');
398 FND_MSG_PUB.count_and_get(
399 p_count => x_msg_count
400 ,p_data => x_msg_data);
401
402 END complete_transfer;
403
404 ---------------------------------------------------------------------------
405 -- PROCEDURE recall_transfer
406 ---------------------------------------------------------------------------
407 PROCEDURE recall_transfer(
408 p_api_version IN NUMBER,
409 p_init_msg_list IN VARCHAR2 DEFAULT NULL,
410 p_interface_id IN NUMBER,
411 p_recall_date IN DATE,
412 p_comments IN VARCHAR2 DEFAULT NULL,
413 p_ext_agncy_id IN NUMBER DEFAULT NULL,
414 x_return_status OUT NOCOPY VARCHAR2,
415 x_msg_count OUT NOCOPY NUMBER,
416 x_msg_data OUT NOCOPY VARCHAR2) AS
417
418 l_api_version NUMBER ;
419 l_init_msg_list VARCHAR2(1) ;
420 l_return_status VARCHAR2(1);
421 l_msg_count NUMBER ;
422 l_msg_data VARCHAR2(2000);
423
424 l_interface_id OKL_OPEN_INT.ID%TYPE;
425 l_recall_date OKL_OPEN_INT.EXTERNAL_AGENCY_RECALL_DATE%TYPE;
426 l_comments IEX_OPEN_INT_HST.COMMENTS%TYPE;
427 l_ext_agncy_id IEX_OPEN_INT_HST.EXT_AGNCY_ID%TYPE;
428
429 BEGIN
430
431 SAVEPOINT recall_transfer;
432
433
434 l_api_version := p_api_version;
435 l_init_msg_list := p_init_msg_list;
436 l_interface_id := p_interface_id;
437 l_recall_date := p_recall_date;
438 l_comments := p_comments;
439
440 iex_opi_pvt.recall_transfer(
441 p_api_version => l_api_version,
442 p_init_msg_list => l_init_msg_list,
443 p_interface_id => l_interface_id,
444 p_recall_date => l_recall_date,
445 p_comments => l_comments,
446 p_ext_agncy_id => l_ext_agncy_id,
447 x_return_status => l_return_status,
448 x_msg_count => l_msg_count,
449 x_msg_data => l_msg_count);
450
451 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
452 RAISE FND_API.G_EXC_ERROR;
453 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
454 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
455 END IF;
456
457
458 --Assign value to OUT NOCOPY variables
459 x_return_status := l_return_status ;
460 x_msg_count := l_msg_count ;
461 x_msg_data := l_msg_data ;
462
463 EXCEPTION
464 WHEN FND_API.G_EXC_ERROR THEN
465 ROLLBACK TO recall_transfer;
466 x_return_status := FND_API.G_RET_STS_ERROR;
467 x_msg_count := l_msg_count ;
468 x_msg_data := l_msg_data ;
469 FND_MSG_PUB.count_and_get(
470 p_count => x_msg_count
471 ,p_data => x_msg_data);
472 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
473 ROLLBACK TO recall_transfer;
474 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
475 x_msg_count := l_msg_count ;
476 x_msg_data := l_msg_data ;
477 FND_MSG_PUB.count_and_get(
478 p_count => x_msg_count
479 ,p_data => x_msg_data);
480 WHEN OTHERS THEN
481 ROLLBACK TO recall_transfer;
482 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
483 x_msg_count := l_msg_count ;
484 x_msg_data := l_msg_data ;
485 FND_MSG_PUB.ADD_EXC_MSG('IEX_OPEN_INTERFACE_PUB','recall_transfer');
486 FND_MSG_PUB.count_and_get(
487 p_count => x_msg_count
488 ,p_data => x_msg_data);
489
490 END recall_transfer;
491
492 ---------------------------------------------------------------------------
493 -- PROCEDURE review_transfer
494 ---------------------------------------------------------------------------
495 PROCEDURE review_transfer(
496 p_api_version IN NUMBER,
497 p_init_msg_list IN VARCHAR2 ,
498 p_oinv_rec IN oinv_rec_type,
499 p_iohv_rec IN iohv_rec_type,
500 x_oinv_rec OUT NOCOPY oinv_rec_type,
501 x_iohv_rec OUT NOCOPY iohv_rec_type,
502 x_return_status OUT NOCOPY VARCHAR2,
503 x_msg_count OUT NOCOPY NUMBER,
504 x_msg_data OUT NOCOPY VARCHAR2) AS
505
506 l_api_version NUMBER ;
507 l_init_msg_list VARCHAR2(1) ;
508 l_return_status VARCHAR2(1);
509 lx_msg_count NUMBER ;
510 lx_msg_data VARCHAR2(2000);
511
512 l_oinv_rec oinv_rec_type;
513 lx_oinv_rec oinv_rec_type;
514 l_iohv_rec iohv_rec_type;
515 lx_iohv_rec iohv_rec_type;
516 BEGIN
517
518 SAVEPOINT review_transfer;
519
520
521 l_api_version := p_api_version;
522 l_init_msg_list := p_init_msg_list;
523 l_oinv_rec := p_oinv_rec;
524 l_iohv_rec := p_iohv_rec;
525
526 iex_opi_pvt.review_transfer(
527 p_api_version => l_api_version,
528 p_init_msg_list => l_init_msg_list,
529 p_oinv_rec => l_oinv_rec,
530 p_iohv_rec => l_iohv_rec,
531 x_oinv_rec => lx_oinv_rec,
532 x_iohv_rec => lx_iohv_rec,
533 x_return_status => l_return_status,
534 x_msg_count => lx_msg_count,
535 x_msg_data => lx_msg_data);
536
537 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
538 RAISE FND_API.G_EXC_ERROR;
539 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
540 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
541 END IF;
542
543
544 --Assign value to OUT NOCOPY variables
545 x_return_status := l_return_status ;
546 x_oinv_rec := lx_oinv_rec;
547 x_iohv_rec := lx_iohv_rec;
548 x_msg_count := lx_msg_count ;
549 x_msg_data := lx_msg_data ;
550
551 EXCEPTION
552 WHEN FND_API.G_EXC_ERROR THEN
553 ROLLBACK TO recall_transfer;
554 x_return_status := FND_API.G_RET_STS_ERROR;
555 x_msg_count := lx_msg_count ;
556 x_msg_data := lx_msg_data ;
557 FND_MSG_PUB.count_and_get(
558 p_count => x_msg_count
559 ,p_data => x_msg_data);
560 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
561 ROLLBACK TO recall_transfer;
562 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
563 x_msg_count := lx_msg_count ;
564 x_msg_data := lx_msg_data ;
565 FND_MSG_PUB.count_and_get(
566 p_count => x_msg_count
567 ,p_data => x_msg_data);
568 WHEN OTHERS THEN
569 ROLLBACK TO recall_transfer;
570 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
571 x_msg_count := lx_msg_count ;
572 x_msg_data := lx_msg_data ;
573 FND_MSG_PUB.ADD_EXC_MSG('IEX_OPEN_INTERFACE_PUB','review_transfer');
574 FND_MSG_PUB.count_and_get(
575 p_count => x_msg_count
576 ,p_data => x_msg_data);
577
578 END review_transfer;
579
580 ---------------------------------------------------------------------------
581 -- PROCEDURE notify_customer
582 ---------------------------------------------------------------------------
583 PROCEDURE notify_customer(
584 errbuf OUT NOCOPY VARCHAR2,
585 retcode OUT NOCOPY NUMBER,
586 p_jtot_object1_code IN VARCHAR2,
587 p_case_number IN VARCHAR2,
588 p_party_id IN NUMBER,
589 p_agent_id IN NUMBER,
590 p_content_id IN VARCHAR2,
591 p_from IN VARCHAR2,
592 p_subject IN VARCHAR2,
593 p_email IN VARCHAR2) AS
594
595 lx_errbuf VARCHAR2(2000);
596 lx_retcode NUMBER;
597 l_jtot_object1_code IEX_OPEN_INT_HST.JTOT_OBJECT1_CODE%TYPE;
598 l_case_number OKL_OPEN_INT.CASE_NUMBER%TYPE;
599 l_party_id HZ_PARTIES.PARTY_ID%TYPE;
600 l_email HZ_CONTACT_POINTS.EMAIL_ADDRESS%TYPE;
601 l_subject VARCHAR2(2000);
602 l_content_id JTF_AMV_ITEMS_B.ITEM_ID%TYPE;
603 l_from VARCHAR2(2000);
604 l_agent_id NUMBER;
605 BEGIN
606
607 l_jtot_object1_code := p_jtot_object1_code;
608 l_case_number := p_case_number;
609 l_party_id := p_party_id;
610 l_email := p_email;
611 l_subject := p_subject;
612 l_content_id := p_content_id;
613 l_from := p_from;
614 l_agent_id := p_agent_id;
615
616 IF (l_jtot_object1_code = 'OKX_LEASE') THEN
617 --call concurrent process for contracts
618 iex_opi_pvt.notify_customer(
619 errbuf => lx_errbuf,
620 retcode => lx_retcode,
621 p_case_number => l_case_number,
622 p_party_id => l_party_id,
623 p_agent_id => l_agent_id,
624 p_content_id => l_content_id,
625 p_from => l_from,
626 p_subject => l_subject,
627 p_email => l_email);
628 END IF;
629
630 --Code here for other types of objects i.e. objects other than contracts
631
632 errbuf := lx_errbuf;
633 retcode := lx_retcode;
634 END notify_customer;
635
636 ---------------------------------------------------------------------------
637 -- PROCEDURE notify_recall_external_agency
638 ---------------------------------------------------------------------------
639 PROCEDURE notify_recall_external_agency(
640 errbuf OUT NOCOPY VARCHAR2,
641 retcode OUT NOCOPY NUMBER,
642 p_jtot_object1_code IN VARCHAR2,
643 p_case_number IN VARCHAR2,
644 p_ext_agncy_id IN NUMBER,
645 p_comments IN VARCHAR2) AS
646
647 lx_errbuf VARCHAR2(2000);
648 lx_retcode NUMBER;
649 l_jtot_object1_code IEX_OPEN_INT_HST.JTOT_OBJECT1_CODE%TYPE;
650 l_case_number OKL_OPEN_INT.CASE_NUMBER%TYPE;
651
652 l_ext_agncy_id IEX_OPEN_INT_HST.EXT_AGNCY_ID%TYPE;
653 l_comments IEX_OPEN_INT_HST.COMMENTS%TYPE;
654 BEGIN
655
656 l_jtot_object1_code := p_jtot_object1_code;
657 l_case_number := p_case_number;
658 l_ext_agncy_id := p_ext_agncy_id;
659 l_comments := p_comments;
660
661 IF (l_jtot_object1_code = 'OKX_LEASE') THEN
662 --call concurrent process for contracts
663 iex_opi_pvt.notify_recall_external_agency(
664 errbuf => lx_errbuf,
665 retcode => lx_retcode,
666 p_case_number => l_case_number,
667 p_ext_agncy_id => l_ext_agncy_id,
668 p_comments => l_comments);
669 END IF;
670
671 --Code here for other types of objects i.e. objects other than contracts
672
673 errbuf := lx_errbuf;
674 retcode := lx_retcode;
675 END notify_recall_external_agency;
676
677 ---------------------------------------------------------------------------
678 -- PROCEDURE notify_external_agency
679 ---------------------------------------------------------------------------
680
681 PROCEDURE notify_external_agency(
682 errbuf OUT NOCOPY VARCHAR2,
683 retcode OUT NOCOPY NUMBER,
684 p_jtot_object1_code IN VARCHAR2,
685 p_case_number IN VARCHAR2,
686 p_ext_agncy_id IN NUMBER,
687 p_agent_id IN NUMBER,
688 p_content_id IN VARCHAR2,
689 p_from IN VARCHAR2,
690 p_subject IN VARCHAR2,
691 p_email IN VARCHAR2) AS
692
693 lx_errbuf VARCHAR2(2000);
694 lx_retcode NUMBER;
695 l_case_number OKL_OPEN_INT.CASE_NUMBER%TYPE;
696 l_jtot_object1_code IEX_OPEN_INT_HST.JTOT_OBJECT1_CODE%TYPE;
697
698 l_ext_agncy_id IEX_OPEN_INT_HST.EXT_AGNCY_ID%TYPE;
699 l_email HZ_CONTACT_POINTS.EMAIL_ADDRESS%TYPE;
700 l_subject VARCHAR2(2000);
701 l_content_id JTF_AMV_ITEMS_B.ITEM_ID%TYPE;
702 l_from VARCHAR2(2000);
703 l_agent_id NUMBER;
704 BEGIN
705
706 l_jtot_object1_code := p_jtot_object1_code;
707 l_case_number := p_case_number;
708 l_ext_agncy_id := p_ext_agncy_id;
709 l_email := p_email;
710 l_subject := p_subject;
711 l_content_id := p_content_id;
712 l_from := p_from;
713 l_agent_id := p_agent_id;
714
715 IF (l_jtot_object1_code = 'OKX_LEASE') THEN
716 --call concurrent process for contracts
717 iex_opi_pvt.notify_external_agency(
718 errbuf => lx_errbuf,
719 retcode => lx_retcode,
720 p_case_number => l_case_number,
721 p_ext_agncy_id => l_ext_agncy_id,
722 p_agent_id => l_agent_id,
723 p_content_id => l_content_id,
724 p_from => l_from,
725 p_subject => l_subject,
726 p_email => l_email);
727 END IF;
728
729 --Code here for other types of objects i.e. objects other than contracts
730
731 errbuf := lx_errbuf;
732 retcode := lx_retcode;
733 END notify_external_agency;
734
735 ---------------------------------------------------------------------------
736 -- PROCEDURE recall_from_external_agency
737 ---------------------------------------------------------------------------
738
739 PROCEDURE recall_from_external_agency(
740 errbuf OUT NOCOPY VARCHAR2,
741 retcode OUT NOCOPY NUMBER,
742 p_jtot_object1_code IN VARCHAR2,
743 p_case_number IN VARCHAR2,
744 p_ext_agncy_id IN NUMBER,
745 p_comments IN VARCHAR2) AS
746
747 lx_errbuf VARCHAR2(2000);
748 lx_retcode NUMBER;
749 l_case_number OKL_OPEN_INT.CASE_NUMBER%TYPE;
750 l_jtot_object1_code IEX_OPEN_INT_HST.JTOT_OBJECT1_CODE%TYPE;
751
752 l_ext_agncy_id IEX_OPEN_INT_HST.EXT_AGNCY_ID%TYPE;
753 l_comments IEX_OPEN_INT_HST.COMMENTS%TYPE;
754 BEGIN
755
756 l_jtot_object1_code := p_jtot_object1_code;
757 l_case_number := p_case_number;
758 l_ext_agncy_id := p_ext_agncy_id;
759 l_comments := p_comments;
760
761 IF (l_jtot_object1_code = 'OKX_LEASE') THEN
762 --call concurrent process for contracts
763 iex_opi_pvt.recall_from_external_agency(
764 errbuf => lx_errbuf,
765 retcode => lx_retcode,
766 p_case_number => l_case_number,
767 p_ext_agncy_id => l_ext_agncy_id,
768 p_comments => l_comments);
769 END IF;
770
771 --Code here for other types of objects i.e. objects other than contracts
772
773 errbuf := lx_errbuf;
774 retcode := lx_retcode;
775
776 END recall_from_external_agency;
777 BEGIN
778 PG_DEBUG := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
779 END iex_open_interface_pub;