[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_RECYCLE_TRMNT_PUB
Source
1 PACKAGE BODY OKL_AM_RECYCLE_TRMNT_PUB AS
2 /* $Header: OKLPRTXB.pls 120.3 2007/12/14 14:01:27 nikshah ship $ */
3
4 -- GLOBAL VARIABLES
5 G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
6 G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
7 G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
8 G_MODULE_NAME CONSTANT VARCHAR2(500) := 'okl.am.plsql.okl_am_recycle_trmnt_pub.';
9
10 PROCEDURE recycle_termination(
11 p_api_version IN NUMBER,
12 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
13 x_return_status OUT NOCOPY VARCHAR2,
14 x_msg_count OUT NOCOPY NUMBER,
15 x_msg_data OUT NOCOPY VARCHAR2,
16 p_recy_rec IN recy_rec_type,
17 x_recy_rec OUT NOCOPY recy_rec_type) AS
18
19 l_api_version NUMBER ;
20 l_init_msg_list VARCHAR2(1) ;
21 l_return_status VARCHAR2(1);
22 l_msg_count NUMBER ;
23 l_msg_data VARCHAR2(2000);
24 lp_recy_rec recy_rec_type;
25 lx_recy_rec recy_rec_type;
26 l_module_name VARCHAR2(500) := G_MODULE_NAME || 'recycle_termination';
27 is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
28 is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
29 is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
30
31 BEGIN
32 SAVEPOINT trx_recycle_termination;
33 IF (is_debug_procedure_on) THEN
34 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
35 END IF;
36 IF (is_debug_statement_on) THEN
37 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_recy_rec.p_contract_id: ' || p_recy_rec.p_contract_id);
38 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_recy_rec.p_contract_number: ' || p_recy_rec.p_contract_number);
39 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_recy_rec.p_contract_status: ' || p_recy_rec.p_contract_status);
40 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_recy_rec.p_transaction_id: ' || p_recy_rec.p_transaction_id);
41 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_recy_rec.p_transaction_status: ' || p_recy_rec.p_transaction_status);
42 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_recy_rec.p_tmt_recycle_yn: ' || p_recy_rec.p_tmt_recycle_yn);
43 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_recy_rec.p_transaction_date: ' || p_recy_rec.p_transaction_date);
44 END IF;
45
46 l_api_version := p_api_version ;
47 l_init_msg_list := p_init_msg_list ;
48 l_return_status := x_return_status ;
49 l_msg_count := x_msg_count ;
50 l_msg_data := x_msg_data ;
51 lp_recy_rec := p_recy_rec;
52 lx_recy_rec := x_recy_rec;
53
54
55
56
57 -- call the insert of pvt
58
59 IF (is_debug_statement_on) THEN
60 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_RECYCLE_TRMNT_PVT.recycle_termination');
61 END IF;
62 OKL_AM_RECYCLE_TRMNT_PVT.recycle_termination( p_api_version => l_api_version
63 ,p_init_msg_list => l_init_msg_list
64 ,x_msg_data => l_msg_data
65 ,x_msg_count => l_msg_count
66 ,x_return_status => l_return_status
67 ,p_recy_rec => lp_recy_rec
68 ,x_recy_rec => lx_recy_rec) ;
69 IF (is_debug_statement_on) THEN
70 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_RECYCLE_TRMNT_PVT.recycle_termination , return status: ' || l_return_status);
71 END IF;
72
73 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
74 RAISE FND_API.G_EXC_ERROR;
75 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
76 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
77 END IF;
78
79 --Copy value of OUT variable in the IN record type
80 lp_recy_rec := lx_recy_rec;
81
82
83
84 --Assign value to OUT variables
85 x_recy_rec := lx_recy_rec;
86 x_return_status := l_return_status ;
87 x_msg_count := l_msg_count ;
88 x_msg_data := l_msg_data ;
89 IF (is_debug_procedure_on) THEN
90 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
91 END IF;
92
93 EXCEPTION
94
95 WHEN FND_API.G_EXC_ERROR THEN
96 ROLLBACK TO trx_recycle_termination;
97 x_return_status := FND_API.G_RET_STS_ERROR;
98 x_msg_count := l_msg_count ;
99 x_msg_data := l_msg_data ;
100 FND_MSG_PUB.count_and_get(
101 p_count => x_msg_count
102 ,p_data => x_msg_data);
103 IF (is_debug_exception_on) THEN
104 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXC_ERROR');
105 END IF;
106 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
107 ROLLBACK TO trx_recycle_termination;
108 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
109 x_msg_count := l_msg_count ;
110 x_msg_data := l_msg_data ;
111 FND_MSG_PUB.count_and_get(
112 p_count => x_msg_count
113 ,p_data => x_msg_data);
114 IF (is_debug_exception_on) THEN
115 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXC_UNEXPECTED_ERROR');
116 END IF;
117 WHEN OTHERS THEN
118 ROLLBACK TO trx_recycle_termination;
119 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
120 x_msg_count := l_msg_count ;
121 x_msg_data := l_msg_data ;
122 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_RECYCLE_TRMNT_PUB','recycle_termination');
123 FND_MSG_PUB.count_and_get(
124 p_count => x_msg_count
125 ,p_data => x_msg_data);
126 IF (is_debug_exception_on) THEN
127 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
128 || sqlcode || ' , SQLERRM : ' || sqlerrm);
129 END IF;
130 END recycle_termination;
131
132 PROCEDURE recycle_termination(
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_recy_tbl IN recy_tbl_type,
139 x_recy_tbl OUT NOCOPY recy_tbl_type) AS
140
141 l_api_version NUMBER ;
142 l_init_msg_list VARCHAR2(1) ;
143 l_return_status VARCHAR2(1);
144 l_msg_count NUMBER ;
145 l_msg_data VARCHAR2(2000);
146 lp_recy_tbl recy_tbl_type;
147 lx_recy_tbl recy_tbl_type;
148 l_module_name VARCHAR2(500) := G_MODULE_NAME || 'recycle_termination';
149 is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
150 is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
151 is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
152
153 BEGIN
154 SAVEPOINT trx_recycle_termination;
155 IF (is_debug_procedure_on) THEN
156 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
157 END IF;
158 IF (is_debug_statement_on) THEN
159 FOR i IN p_recy_tbl.FIRST..p_recy_tbl.LAST
160 LOOP
161 IF p_recy_tbl.EXISTS(i) THEN
162 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_recy_tbl(' || i || ').p_contract_id: ' || p_recy_tbl(i).p_contract_id);
163 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_recy_tbl(' || i || ').p_contract_number: ' || p_recy_tbl(i).p_contract_number);
164 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_recy_tbl(' || i || ').p_contract_status: ' || p_recy_tbl(i).p_contract_status);
165 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_recy_tbl(' || i || ').p_transaction_id: ' || p_recy_tbl(i).p_transaction_id);
166 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_recy_tbl(' || i || ').p_transaction_status: ' || p_recy_tbl(i).p_transaction_status);
167 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_recy_tbl(' || i || ').p_tmt_recycle_yn: ' || p_recy_tbl(i).p_tmt_recycle_yn);
168 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_recy_tbl(' || i || ').p_transaction_date: ' || p_recy_tbl(i).p_transaction_date);
169 END IF;
170 END LOOP;
171 END IF;
172
173 l_api_version := p_api_version ;
174 l_init_msg_list := p_init_msg_list ;
175 l_return_status := x_return_status ;
176 l_msg_count := x_msg_count ;
177 l_msg_data := x_msg_data ;
178 lp_recy_tbl := p_recy_tbl;
179 lx_recy_tbl := x_recy_tbl;
180
181
182
183
184 -- call the insert of pvt
185
186 IF (is_debug_statement_on) THEN
187 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_RECYCLE_TRMNT_PVT.recycle_termination');
188 END IF;
189 OKL_AM_RECYCLE_TRMNT_PVT.recycle_termination( p_api_version => l_api_version
190 ,p_init_msg_list => l_init_msg_list
191 ,x_msg_data => l_msg_data
192 ,x_msg_count => l_msg_count
193 ,x_return_status => l_return_status
194 ,p_recy_tbl => lp_recy_tbl
195 ,x_recy_tbl => lx_recy_tbl) ;
196 IF (is_debug_statement_on) THEN
197 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_RECYCLE_TRMNT_PVT.recycle_termination , return status: ' || l_return_status);
198 END IF;
199
200 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
201 RAISE FND_API.G_EXC_ERROR;
202 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
203 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204 END IF;
205
206 --Copy value of OUT variable in the IN record type
207 lp_recy_tbl := lx_recy_tbl;
208
209
210
211 --Assign value to OUT variables
212 x_recy_tbl := lx_recy_tbl;
213 x_return_status := l_return_status ;
214 x_msg_count := l_msg_count ;
215 x_msg_data := l_msg_data ;
216 IF (is_debug_procedure_on) THEN
217 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
218 END IF;
219
220 EXCEPTION
221
222 WHEN FND_API.G_EXC_ERROR THEN
223 ROLLBACK TO trx_recycle_termination;
224 x_return_status := FND_API.G_RET_STS_ERROR;
225 x_msg_count := l_msg_count ;
226 x_msg_data := l_msg_data ;
227 FND_MSG_PUB.count_and_get(
228 p_count => x_msg_count
229 ,p_data => x_msg_data);
230 IF (is_debug_exception_on) THEN
231 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXC_ERROR');
232 END IF;
233 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
234 ROLLBACK TO trx_recycle_termination;
235 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
236 x_msg_count := l_msg_count ;
237 x_msg_data := l_msg_data ;
238 FND_MSG_PUB.count_and_get(
239 p_count => x_msg_count
240 ,p_data => x_msg_data);
241 IF (is_debug_exception_on) THEN
242 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXC_UNEXPECTED_ERROR');
243 END IF;
244 WHEN OTHERS THEN
245 ROLLBACK TO trx_recycle_termination;
246 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
247 x_msg_count := l_msg_count ;
248 x_msg_data := l_msg_data ;
249 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_RECYCLE_TRMNT_PUB','recycle_termination');
250 FND_MSG_PUB.count_and_get(
251 p_count => x_msg_count
252 ,p_data => x_msg_data);
253 IF (is_debug_exception_on) THEN
254 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
255 || sqlcode || ' , SQLERRM : ' || sqlerrm);
256 END IF;
257
258 END recycle_termination;
259
260 END OKL_AM_RECYCLE_TRMNT_PUB;