[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_PROCESS_ASSET_TRX_PUB
Source
1 PACKAGE BODY OKL_AM_PROCESS_ASSET_TRX_PUB AS
2 /* $Header: OKLPAMAB.pls 115.10 2004/04/13 10:30:21 rnaik noship $ */
3
4
5 PROCEDURE process_transactions_wrap( ERRBUF OUT NOCOPY VARCHAR2,
6 RETCODE OUT NOCOPY VARCHAR2 ,
7 p_api_version IN NUMBER,
8 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
9 p_contract_id IN NUMBER DEFAULT NULL,
10 p_asset_id IN NUMBER DEFAULT NULL,
11 p_kle_id IN VARCHAR2 DEFAULT NULL,
12 p_salvage_writedown_yn IN VARCHAR2 DEFAULT 'N') AS
13
14 l_api_version NUMBER ;
15 l_init_msg_list VARCHAR2(1) ;
16
17 lp_contract_id NUMBER;
18 lp_asset_id NUMBER;
19 lp_kle_id NUMBER;
20 lp_salvage_writedown_yn VARCHAR2(1);
21 lx_errbuf VARCHAR2(2000);
22 lx_retcode VARCHAR2(2000);
23 BEGIN
24 SAVEPOINT trx_process_transactions_wrap;
25 l_api_version := p_api_version ;
26 l_init_msg_list := p_init_msg_list ;
27
28
29 lp_contract_id := p_contract_id;
30 lp_asset_id := p_asset_id ;
31 lp_kle_id := p_kle_id;
32 lp_salvage_writedown_yn := p_salvage_writedown_yn;
33 lx_errbuf := ERRBUF;
34 lx_retcode := RETCODE;
35
36 -- call the insert of pvt
37 OKL_AM_PROCESS_ASSET_TRX_PVT.process_transactions_wrap(
38 ERRBUF => lx_errbuf,
39 RETCODE => lx_retcode,
40 p_api_version => l_api_version,
41 p_init_msg_list => l_init_msg_list,
42 p_contract_id => lp_contract_id,
43 p_asset_id => lp_asset_id,
44 p_kle_id => lp_kle_id,
45 p_salvage_writedown_yn => lp_salvage_writedown_yn);
46
47 IF ( lx_retcode <> 0 ) THEN
48 RAISE FND_API.G_EXC_ERROR;
49 END IF;
50 --Assign value to OUT variables
51 ERRBUF := lx_errbuf ;
52 RETCODE := lx_retcode;
53
54 EXCEPTION
55 WHEN FND_API.G_EXC_ERROR THEN
56 ROLLBACK TO trx_process_transactions_wrap;
57
58
59 WHEN OTHERS THEN
60 ROLLBACK TO trx_process_transactions_wrap;
61
62 END process_transactions_wrap;
63
64
65
66 PROCEDURE process_transactions( p_api_version IN NUMBER,
67 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
68 x_return_status OUT NOCOPY VARCHAR2,
69 x_msg_count OUT NOCOPY NUMBER,
70 x_msg_data OUT NOCOPY VARCHAR2,
71 p_contract_id IN NUMBER DEFAULT NULL,
72 p_asset_id IN NUMBER DEFAULT NULL,
73 p_kle_id IN NUMBER DEFAULT NULL,
74 p_salvage_writedown_yn IN VARCHAR2 DEFAULT 'N',
75 x_total_count OUT NOCOPY NUMBER,
76 x_processed_count OUT NOCOPY NUMBER,
77 x_error_count OUT NOCOPY NUMBER) AS
78
79 l_api_version NUMBER ;
80 l_init_msg_list VARCHAR2(1) ;
81 l_return_status VARCHAR2(1);
82 l_msg_count NUMBER ;
83 l_msg_data VARCHAR2(2000);
84 lp_contract_id NUMBER;
85 lp_asset_id NUMBER;
86 lp_kle_id NUMBER;
87 lp_salvage_writedown_yn VARCHAR2(1);
88 lx_total_count NUMBER;
89 lx_processed_count NUMBER;
90 lx_error_count NUMBER;
91
92 BEGIN
93 SAVEPOINT trx_process_transactions;
94 l_api_version := p_api_version ;
95 l_init_msg_list := p_init_msg_list ;
96 l_return_status := x_return_status ;
97 l_msg_count := x_msg_count ;
98 l_msg_data := x_msg_data ;
99
100 lp_contract_id := p_contract_id;
101 lp_asset_id := p_asset_id ;
102 lp_kle_id := p_kle_id;
103 lp_salvage_writedown_yn := p_salvage_writedown_yn;
104 lx_total_count := x_total_count;
105 lx_processed_count := x_processed_count;
106 lx_error_count := x_error_count;
107
108 -- call the insert of pvt
109 OKL_AM_PROCESS_ASSET_TRX_PVT.process_transactions( p_api_version => l_api_version
110 ,p_init_msg_list => l_init_msg_list
111 ,x_msg_data => l_msg_data
112 ,x_msg_count => l_msg_count
113 ,x_return_status => l_return_status
114 ,p_contract_id => lp_contract_id,
115 p_asset_id => lp_asset_id,
116 p_kle_id => lp_kle_id,
117 p_salvage_writedown_yn => lp_salvage_writedown_yn,
118 x_total_count => lx_total_count,
119 x_processed_count => lx_processed_count,
120 x_error_count => lx_error_count) ;
121 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
122 RAISE FND_API.G_EXC_ERROR;
123 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
124 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
125 END IF;
126 --Assign value to OUT variables
127 x_return_status := l_return_status ;
128 x_msg_count := l_msg_count ;
129 x_msg_data := l_msg_data ;
130 x_total_count := lx_total_count;
131 x_processed_count := lx_processed_count;
132 x_error_count := lx_error_count;
133 EXCEPTION
134 WHEN FND_API.G_EXC_ERROR THEN
135 ROLLBACK TO trx_process_transactions;
136 x_return_status := FND_API.G_RET_STS_ERROR;
137 x_msg_count := l_msg_count ;
138 x_msg_data := l_msg_data ;
139 FND_MSG_PUB.count_and_get(
140 p_count => x_msg_count
141 ,p_data => x_msg_data);
142 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
143 ROLLBACK TO trx_process_transactions;
144 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
145 x_msg_count := l_msg_count ;
146 x_msg_data := l_msg_data ;
147 FND_MSG_PUB.count_and_get(
148 p_count => x_msg_count
149 ,p_data => x_msg_data);
150 WHEN OTHERS THEN
151 ROLLBACK TO trx_process_transactions;
152 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
153 x_msg_count := l_msg_count ;
154 x_msg_data := l_msg_data ;
155 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_PROCESS_ASSET_TRX_PUB','process_transactions');
156 FND_MSG_PUB.count_and_get(
157 p_count => x_msg_count
158 ,p_data => x_msg_data);
159 END process_transactions;
160 END OKL_AM_PROCESS_ASSET_TRX_PUB;