[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_CREATE_QUOTE_PUB
Source
1 PACKAGE BODY OKL_AM_CREATE_QUOTE_PUB AS
2 /* $Header: OKLPCQTB.pls 120.3.12010000.2 2009/06/15 21:57:26 sechawla ship $ */
3
4 -- GLOBAL VARIABLES
5 G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
6 G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7 G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8 G_MODULE_NAME CONSTANT VARCHAR2(500) := 'okl.am.plsql.okl_am_create_quote_pub.';
9
10 PROCEDURE advance_contract_search(
11 p_api_version IN NUMBER,
12 p_init_msg_list IN VARCHAR2,
13 x_return_status OUT NOCOPY VARCHAR2,
14 x_msg_count OUT NOCOPY NUMBER,
15 x_msg_data OUT NOCOPY VARCHAR2,
16 p_achr_rec IN ACHR_REC_TYPE,
17 x_achr_tbl OUT NOCOPY achr_tbl_type) IS
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_achr_rec achr_rec_type;
25 lx_achr_tbl achr_tbl_type;
26
27 -- for debug logging
28 L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'advance_contract_search';
29 is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
30 is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
31 is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
32
33 BEGIN
34
35 SAVEPOINT trx_adv_contract_search;
36
37 IF (is_debug_procedure_on) THEN
38 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
39 END IF;
40
41 l_api_version := p_api_version ;
42 l_init_msg_list := p_init_msg_list ;
43 l_return_status := x_return_status ;
44 l_msg_count := x_msg_count;
45 l_msg_data := x_msg_data;
46 lp_achr_rec := p_achr_rec;
47
48 -- call the insert of pvt
49
50 OKL_AM_CREATE_QUOTE_PVT.advance_contract_search(
51 p_api_version => l_api_version,
52 p_init_msg_list => l_init_msg_list,
53 x_return_status => l_return_status,
54 x_msg_count => l_msg_count,
55 x_msg_data => l_msg_data,
56 p_achr_rec => lp_achr_rec,
57 x_achr_tbl => lx_achr_tbl);
58
59
60 IF (is_debug_statement_on) THEN
61 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
62 'after call to OKL_AM_CREATE_QUOTE_PVT.advance_contract_search :'||l_return_status);
63 END IF;
64
65 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
66 RAISE FND_API.G_EXC_ERROR;
67 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
68 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
69 END IF;
70
71 --Assign value to OUT variables
72 x_return_status := l_return_status ;
73 x_msg_count := l_msg_count ;
74 x_msg_data := l_msg_data ;
75 x_achr_tbl := lx_achr_tbl;
76
77 IF (is_debug_procedure_on) THEN
78 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
79 END IF;
80
81 EXCEPTION
82
83 WHEN FND_API.G_EXC_ERROR THEN
84 IF (is_debug_exception_on) THEN
85 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
86 END IF;
87
88 ROLLBACK TO trx_adv_contract_search;
89 x_return_status := FND_API.G_RET_STS_ERROR;
90 x_msg_count := l_msg_count ;
91 x_msg_data := l_msg_data ;
92 FND_MSG_PUB.count_and_get(
93 p_count => x_msg_count
94 ,p_data => x_msg_data);
95 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
96
97 IF (is_debug_exception_on) THEN
98 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'UNEXPECTED');
99 END IF;
100
101 ROLLBACK TO trx_adv_contract_search;
102 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
103 x_msg_count := l_msg_count ;
104 x_msg_data := l_msg_data ;
105 FND_MSG_PUB.count_and_get(
106 p_count => x_msg_count
107 ,p_data => x_msg_data);
108 WHEN OTHERS THEN
109 IF (is_debug_exception_on) THEN
110 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
111 || sqlcode || ' , SQLERRM : ' || sqlerrm);
112 END IF;
113 ROLLBACK TO trx_adv_contract_search;
114 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
115 x_msg_count := l_msg_count ;
116 x_msg_data := l_msg_data ;
117 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_CREATE_QUOTE_PUB','advance_contract_search');
118 FND_MSG_PUB.count_and_get(
119 p_count => x_msg_count
120 ,p_data => x_msg_data);
121
122 END advance_contract_search;
123
124
125 PROCEDURE create_terminate_quote(
126 p_api_version IN NUMBER,
127 p_init_msg_list IN VARCHAR2,
128 x_return_status OUT NOCOPY VARCHAR2,
129 x_msg_count OUT NOCOPY NUMBER,
130 x_msg_data OUT NOCOPY VARCHAR2,
131 p_quot_rec IN quot_rec_type,
132 p_assn_tbl IN assn_tbl_type,
133 p_qpyv_tbl IN qpyv_tbl_type,
134 x_quot_rec OUT NOCOPY quot_rec_type,
135 x_tqlv_tbl OUT NOCOPY tqlv_tbl_type,
136 x_assn_tbl OUT NOCOPY assn_tbl_type,
137 p_term_from_intf IN VARCHAR2 DEFAULT 'N') IS --sechawla 15-jun-09 7383445 --added new parameter
138
139 l_api_version NUMBER ;
140 l_init_msg_list VARCHAR2(1) ;
141 l_return_status VARCHAR2(1);
142 l_msg_count NUMBER ;
143 l_msg_data VARCHAR2(2000);
144 lp_quot_rec quot_rec_type;
145 lp_assn_tbl assn_tbl_type;
146 lp_qpyv_tbl qpyv_tbl_type;
147 lx_quot_rec quot_rec_type;
148 lx_assn_tbl assn_tbl_type;
149 lx_tqlv_tbl tqlv_tbl_type;
150 -- for debug logging
151 L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_terminate_quote';
152 is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
153 is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
154 is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
155
156 BEGIN
157 SAVEPOINT trx_create_terminate_quote;
158
159 IF (is_debug_procedure_on) THEN
160 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
161 END IF;
162
163 l_api_version := p_api_version ;
164 l_init_msg_list := p_init_msg_list ;
165 l_return_status := x_return_status ;
166 l_msg_count := x_msg_count ;
167 l_msg_data := x_msg_data ;
168 lp_quot_rec := p_quot_rec;
169 lp_assn_tbl := p_assn_tbl;
170 lp_qpyv_tbl := p_qpyv_tbl;
171 lx_quot_rec := p_quot_rec;
172 lx_assn_tbl := p_assn_tbl;
173
174
175
176
177 -- call the insert of pvt
178
179 OKL_AM_CREATE_QUOTE_PVT.create_terminate_quote(
180 p_api_version => l_api_version
181 ,p_init_msg_list => l_init_msg_list
182 ,x_msg_data => l_msg_data
183 ,x_msg_count => l_msg_count
184 ,x_return_status => l_return_status
185 ,p_quot_rec => lp_quot_rec
186 ,p_assn_tbl => lp_assn_tbl
187 ,p_qpyv_tbl => lp_qpyv_tbl
188 ,x_quot_rec => lx_quot_rec
189 ,x_assn_tbl => lx_assn_tbl
190 ,x_tqlv_tbl => lx_tqlv_tbl
191 ,p_term_from_intf => p_term_from_intf); --sechawla 15-jun-09 7383445 --added new parameter
192
193 IF (is_debug_statement_on) THEN
194 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
195 'after call to OKL_AM_CREATE_QUOTE_PVT.create_terminate_quote :'||l_return_status);
196 END IF;
197
198 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
199 RAISE FND_API.G_EXC_ERROR;
200 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
201 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
202 END IF;
203
204
205 --Copy value of OUT record type variable in the IN record type
206 lp_quot_rec := lx_quot_rec;
207 lp_assn_tbl := lx_assn_tbl;
208
209
210
211
212 --Assign value to OUT variables
213 x_return_status := l_return_status ;
214 x_msg_count := l_msg_count ;
215 x_msg_data := l_msg_data ;
216 x_quot_rec := lx_quot_rec;
217 x_assn_tbl := lx_assn_tbl;
218 x_tqlv_tbl := lx_tqlv_tbl;
219
220 IF (is_debug_procedure_on) THEN
221 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
222 END IF;
223
224 EXCEPTION
225
226 WHEN FND_API.G_EXC_ERROR THEN
227 IF (is_debug_exception_on) THEN
228 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
229 END IF;
230 ROLLBACK TO trx_create_terminate_quote;
231 x_return_status := FND_API.G_RET_STS_ERROR;
232 x_msg_count := l_msg_count ;
233 x_msg_data := l_msg_data ;
234 FND_MSG_PUB.count_and_get(
235 p_count => x_msg_count
236 ,p_data => x_msg_data);
237 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
238 IF (is_debug_exception_on) THEN
239 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'UNEXPECTED');
240 END IF;
241 ROLLBACK TO trx_create_terminate_quote;
242 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243 x_msg_count := l_msg_count ;
244 x_msg_data := l_msg_data ;
245 FND_MSG_PUB.count_and_get(
246 p_count => x_msg_count
247 ,p_data => x_msg_data);
248 WHEN OTHERS THEN
249 IF (is_debug_exception_on) THEN
250 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
251 || sqlcode || ' , SQLERRM : ' || sqlerrm);
252 END IF;
253 ROLLBACK TO trx_create_terminate_quote;
254 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255 x_msg_count := l_msg_count ;
256 x_msg_data := l_msg_data ;
257 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_CREATE_QUOTE_PUB','create_terminate_quote');
258 FND_MSG_PUB.count_and_get(
259 p_count => x_msg_count
260 ,p_data => x_msg_data);
261
262 END create_terminate_quote;
263
264
265 END OKL_AM_CREATE_QUOTE_PUB;