[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_CONSOLIDATED_QTE_PUB
Source
1 PACKAGE BODY OKL_AM_CONSOLIDATED_QTE_PUB AS
2 /* $Header: OKLPCNQB.pls 115.3 2004/04/13 10:39:04 rnaik noship $ */
3
4
5 -- Start of comments
6 --
7 -- Procedure Name : create_consolidate_quote
8 -- Description : Procedure to create a consolidated quote
9 -- Business Rules :
10 -- Parameters :
11 -- Version : 1.0
12 --
13 -- End of comments
14 PROCEDURE create_consolidate_quote (
15 p_api_version IN NUMBER,
16 p_init_msg_list IN VARCHAR2,
17 x_return_status OUT NOCOPY VARCHAR2,
18 x_msg_count OUT NOCOPY NUMBER,
19 x_msg_data OUT NOCOPY VARCHAR2,
20 p_qtev_tbl IN qtev_tbl_type,
21 x_cons_rec OUT NOCOPY qtev_rec_type) IS
22
23 l_api_version NUMBER ;
24 l_init_msg_list VARCHAR2(1) ;
25 l_return_status VARCHAR2(1);
26 l_msg_count NUMBER ;
27 l_msg_data VARCHAR2(2000);
28 lp_qtev_tbl qtev_tbl_type;
29 lx_cons_rec qtev_rec_type;
30
31 BEGIN
32
33 SAVEPOINT trx_create_consolidate_quote;
34
35 l_api_version := p_api_version ;
36 l_init_msg_list := p_init_msg_list ;
37 l_return_status := x_return_status ;
38 l_msg_count := x_msg_count ;
39 l_msg_data := x_msg_data ;
40 lp_qtev_tbl := p_qtev_tbl;
41 lx_cons_rec := x_cons_rec;
42
43
44
45 -- Call the PVT procedure
46 OKL_AM_CONSOLIDATED_QTE_PVT.create_consolidate_quote(
47 p_api_version => l_api_version,
48 p_init_msg_list => l_init_msg_list,
49 x_msg_data => l_msg_data,
50 x_msg_count => l_msg_count,
51 x_return_status => l_return_status,
52 p_qtev_tbl => lp_qtev_tbl,
53 x_cons_rec => lx_cons_rec);
54
55 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
56 RAISE FND_API.G_EXC_ERROR;
57 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
58 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
59 END IF;
60
61
62
63 --Assign value to OUT variables
64 x_return_status := l_return_status ;
65 x_msg_count := l_msg_count ;
66 x_msg_data := l_msg_data ;
67 x_cons_rec := lx_cons_rec;
68
69 EXCEPTION
70
71 WHEN FND_API.G_EXC_ERROR THEN
72 ROLLBACK TO trx_create_consolidate_quote;
73 x_return_status := FND_API.G_RET_STS_ERROR;
74 x_msg_count := l_msg_count ;
75 x_msg_data := l_msg_data ;
76 FND_MSG_PUB.count_and_get(
77 p_count => x_msg_count,
78 p_data => x_msg_data);
79
80 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
81 ROLLBACK TO trx_create_consolidate_quote;
82 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
83 x_msg_count := l_msg_count ;
84 x_msg_data := l_msg_data ;
85 FND_MSG_PUB.count_and_get(
86 p_count => x_msg_count,
87 p_data => x_msg_data);
88
89 WHEN OTHERS THEN
90 ROLLBACK TO trx_create_consolidate_quote;
91 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
92 x_msg_count := l_msg_count ;
93 x_msg_data := l_msg_data ;
94 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_CONSOLIDATED_QTE_PUB','create_consolidate_quote');
95 FND_MSG_PUB.count_and_get(
96 p_count => x_msg_count,
97 p_data => x_msg_data);
98
99 END create_consolidate_quote;
100
101
102 -- Start of comments
103 --
104 -- Procedure Name : update_consolidate_quote
105 -- Description : Procedure to update a consolidated quote
106 -- Business Rules :
107 -- Parameters :
108 -- Version : 1.0
109 --
110 -- End of comments
111 PROCEDURE update_consolidate_quote (
112 p_api_version IN NUMBER,
113 p_init_msg_list IN VARCHAR2,
114 x_return_status OUT NOCOPY VARCHAR2,
115 x_msg_count OUT NOCOPY NUMBER,
116 x_msg_data OUT NOCOPY VARCHAR2,
117 p_cons_rec IN qtev_rec_type,
118 x_cons_rec OUT NOCOPY qtev_rec_type,
119 x_qtev_tbl OUT NOCOPY qtev_tbl_type) IS
120
121 l_api_version NUMBER ;
122 l_init_msg_list VARCHAR2(1) ;
123 l_return_status VARCHAR2(1);
124 l_msg_count NUMBER ;
125 l_msg_data VARCHAR2(2000);
126 lp_cons_rec qtev_rec_type;
127 lx_cons_rec qtev_rec_type;
128 lx_qtev_tbl qtev_tbl_type;
129
130 BEGIN
131
132 SAVEPOINT trx_update_consolidate_quote;
133
134 l_api_version := p_api_version ;
135 l_init_msg_list := p_init_msg_list ;
136 l_return_status := x_return_status ;
137 l_msg_count := x_msg_count ;
138 l_msg_data := x_msg_data ;
139 lp_cons_rec := p_cons_rec;
140 lx_cons_rec := x_cons_rec;
141 lx_qtev_tbl := x_qtev_tbl;
142
143
144
145
146 -- Call the PVT procedure
147 OKL_AM_CONSOLIDATED_QTE_PVT.update_consolidate_quote(
148 p_api_version => l_api_version,
149 p_init_msg_list => l_init_msg_list,
150 x_msg_data => l_msg_data,
151 x_msg_count => l_msg_count,
152 x_return_status => l_return_status,
153 p_cons_rec => lp_cons_rec,
154 x_cons_rec => lx_cons_rec,
155 x_qtev_tbl => lx_qtev_tbl);
156
157 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
158 RAISE FND_API.G_EXC_ERROR;
159 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
160 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161 END IF;
162
163 -- Copy out parameter
164 lp_cons_rec := lx_cons_rec;
165
166
167
168 --Assign value to OUT variables
169 x_return_status := l_return_status ;
170 x_msg_count := l_msg_count ;
171 x_msg_data := l_msg_data ;
172 x_cons_rec := lx_cons_rec;
173 x_qtev_tbl := lx_qtev_tbl;
174
175 EXCEPTION
176
177 WHEN FND_API.G_EXC_ERROR THEN
178 ROLLBACK TO trx_update_consolidate_quote;
179 x_return_status := FND_API.G_RET_STS_ERROR;
180 x_msg_count := l_msg_count ;
181 x_msg_data := l_msg_data ;
182 FND_MSG_PUB.count_and_get(
183 p_count => x_msg_count,
184 p_data => x_msg_data);
185
186 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
187 ROLLBACK TO trx_update_consolidate_quote;
188 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
189 x_msg_count := l_msg_count ;
190 x_msg_data := l_msg_data ;
191 FND_MSG_PUB.count_and_get(
192 p_count => x_msg_count,
193 p_data => x_msg_data);
194
195 WHEN OTHERS THEN
196 ROLLBACK TO trx_update_consolidate_quote;
197 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
198 x_msg_count := l_msg_count ;
199 x_msg_data := l_msg_data ;
200 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_CONSOLIDATED_QTE_PUB','update_consolidate_quote');
201 FND_MSG_PUB.count_and_get(
202 p_count => x_msg_count,
203 p_data => x_msg_data);
204
205 END update_consolidate_quote;
206
207 END OKL_AM_CONSOLIDATED_QTE_PUB;