[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 2007/12/17 11:26:20 ansethur 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) IS
137
138 l_api_version NUMBER ;
139 l_init_msg_list VARCHAR2(1) ;
140 l_return_status VARCHAR2(1);
141 l_msg_count NUMBER ;
142 l_msg_data VARCHAR2(2000);
143 lp_quot_rec quot_rec_type;
144 lp_assn_tbl assn_tbl_type;
145 lp_qpyv_tbl qpyv_tbl_type;
146 lx_quot_rec quot_rec_type;
147 lx_assn_tbl assn_tbl_type;
148 lx_tqlv_tbl tqlv_tbl_type;
149 -- for debug logging
150 L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_terminate_quote';
151 is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
152 is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
153 is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
154
155 BEGIN
156 SAVEPOINT trx_create_terminate_quote;
157
158 IF (is_debug_procedure_on) THEN
159 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
160 END IF;
161
162 l_api_version := p_api_version ;
163 l_init_msg_list := p_init_msg_list ;
164 l_return_status := x_return_status ;
165 l_msg_count := x_msg_count ;
166 l_msg_data := x_msg_data ;
167 lp_quot_rec := p_quot_rec;
168 lp_assn_tbl := p_assn_tbl;
169 lp_qpyv_tbl := p_qpyv_tbl;
170 lx_quot_rec := p_quot_rec;
171 lx_assn_tbl := p_assn_tbl;
172
173
174
175
176 -- call the insert of pvt
177
178 OKL_AM_CREATE_QUOTE_PVT.create_terminate_quote(
179 p_api_version => l_api_version
180 ,p_init_msg_list => l_init_msg_list
181 ,x_msg_data => l_msg_data
182 ,x_msg_count => l_msg_count
183 ,x_return_status => l_return_status
184 ,p_quot_rec => lp_quot_rec
185 ,p_assn_tbl => lp_assn_tbl
186 ,p_qpyv_tbl => lp_qpyv_tbl
187 ,x_quot_rec => lx_quot_rec
188 ,x_assn_tbl => lx_assn_tbl
189 ,x_tqlv_tbl => lx_tqlv_tbl);
190
191 IF (is_debug_statement_on) THEN
192 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
193 'after call to OKL_AM_CREATE_QUOTE_PVT.create_terminate_quote :'||l_return_status);
194 END IF;
195
196 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
197 RAISE FND_API.G_EXC_ERROR;
198 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
199 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200 END IF;
201
202
203 --Copy value of OUT record type variable in the IN record type
204 lp_quot_rec := lx_quot_rec;
205 lp_assn_tbl := lx_assn_tbl;
206
207
208
209
210 --Assign value to OUT variables
211 x_return_status := l_return_status ;
212 x_msg_count := l_msg_count ;
213 x_msg_data := l_msg_data ;
214 x_quot_rec := lx_quot_rec;
215 x_assn_tbl := lx_assn_tbl;
216 x_tqlv_tbl := lx_tqlv_tbl;
217
218 IF (is_debug_procedure_on) THEN
219 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
220 END IF;
221
222 EXCEPTION
223
224 WHEN FND_API.G_EXC_ERROR THEN
225 IF (is_debug_exception_on) THEN
226 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
227 END IF;
228 ROLLBACK TO trx_create_terminate_quote;
229 x_return_status := FND_API.G_RET_STS_ERROR;
230 x_msg_count := l_msg_count ;
231 x_msg_data := l_msg_data ;
232 FND_MSG_PUB.count_and_get(
233 p_count => x_msg_count
234 ,p_data => x_msg_data);
235 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
236 IF (is_debug_exception_on) THEN
237 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'UNEXPECTED');
238 END IF;
239 ROLLBACK TO trx_create_terminate_quote;
240 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
241 x_msg_count := l_msg_count ;
242 x_msg_data := l_msg_data ;
243 FND_MSG_PUB.count_and_get(
244 p_count => x_msg_count
245 ,p_data => x_msg_data);
246 WHEN OTHERS THEN
247 IF (is_debug_exception_on) THEN
248 OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
249 || sqlcode || ' , SQLERRM : ' || sqlerrm);
250 END IF;
251 ROLLBACK TO trx_create_terminate_quote;
252 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
253 x_msg_count := l_msg_count ;
254 x_msg_data := l_msg_data ;
255 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_CREATE_QUOTE_PUB','create_terminate_quote');
256 FND_MSG_PUB.count_and_get(
257 p_count => x_msg_count
258 ,p_data => x_msg_data);
259
260 END create_terminate_quote;
261
262
263 END OKL_AM_CREATE_QUOTE_PUB;