[Home] [Help]
PACKAGE BODY: APPS.OKL_PAY_INVOICES_TRANS_PUB
Source
1 PACKAGE BODY okl_pay_invoices_trans_pub AS
2 /* $Header: OKLPPIIB.pls 115.9 2004/04/13 10:56:36 rnaik noship $ */
3
4 PROCEDURE transfer(p_api_version IN NUMBER
5 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
6 ,x_return_status OUT NOCOPY VARCHAR2
7 ,x_msg_count OUT NOCOPY NUMBER
8 ,x_msg_data OUT NOCOPY VARCHAR2)
9
10 IS
11
12 BEGIN
13
14 SAVEPOINT transfer;
15
16
17
18
19
20 okl_pay_invoices_trans_pvt.transfer(
21 p_api_version => p_api_version
22 ,p_init_msg_list => p_init_msg_list
23 ,x_return_status => x_return_status
24 ,x_msg_count => x_msg_count
25 ,x_msg_data => x_msg_data);
26
27 IF ( x_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
28 RAISE Fnd_Api.G_EXC_ERROR;
29 ELSIF (x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
30 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
31 END IF;
32
33
34
35
36
37 EXCEPTION
38
39 WHEN Fnd_Api.G_EXC_ERROR THEN
40 ROLLBACK TO transfer;
41 x_return_status := Fnd_Api.G_RET_STS_ERROR;
42 x_msg_count := x_msg_count ;
43 x_msg_data := x_msg_data ;
44 Fnd_Msg_Pub.count_and_get(
45 p_count => x_msg_count
46 ,p_data => x_msg_data);
47 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
48 ROLLBACK TO transfer;
49 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
50 x_msg_count := x_msg_count ;
51 x_msg_data := x_msg_data ;
52 Fnd_Msg_Pub.count_and_get(
53 p_count => x_msg_count
54 ,p_data => x_msg_data);
55 WHEN OTHERS THEN
56 ROLLBACK TO transfer;
57 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
58 x_msg_count := x_msg_count ;
59 x_msg_data := x_msg_data ;
60 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_INVOICES_TRANS_PUB','AUTO_DISBURSEMENT');
61 Fnd_Msg_Pub.count_and_get(
62 p_count => x_msg_count
63 ,p_data => x_msg_data);
64 END transfer;
65
66 PROCEDURE transfer
67 ( errbuf OUT NOCOPY VARCHAR2
68 , retcode OUT NOCOPY NUMBER
69 ) is
70
71 l_api_vesrions NUMBER := 1;
72 lx_msg_count NUMBER;
73 l_count1 NUMBER :=0;
74 l_count2 NUMBER:=0;
75 l_count NUMBER:=0;
76 lx_msg_data VARCHAR2(450);
77 i NUMBER;
78 l_msg_index_out NUMBER;
79 lx_return_status VARCHAR(1);
80
81 BEGIN
82
83 select count(*) into l_count1 from ap_invoices_interface;
84
85 transfer ( p_api_version => l_api_vesrions,
86 p_init_msg_list => OKC_API.G_FALSE,
87 x_return_status => lx_return_status,
88 x_msg_count => lx_msg_count,
89 x_msg_data => errbuf);
90
91 select count(*) into l_count2 from ap_invoices_interface;
92 l_count := l_count2 - l_count1;
93
94 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'OKL Payables Invoices Transfer to AP');
95 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
96 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date:'||sysdate);
97 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Number of Invoices Prepared in ap_invoices_interface :'||l_count);
98 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
99
100
101 END;
102
103 END;