[Home] [Help]
PACKAGE BODY: APPS.PSB_WS_POSITION_CR_LINES_I_PVT
Source
1 PACKAGE BODY PSB_WS_POSITION_CR_LINES_I_PVT AS
2 /* $Header: PSBWPCLB.pls 120.2 2005/07/13 11:35:45 shtripat ship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_WS_POSITION_CR_LINES_I_PVT';
5
6 /*-------------------------------------------------------------------------*/
7 PROCEDURE Add_Parent_Position_Line
8 (
9 p_api_version IN NUMBER,
10 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11 p_commit IN VARCHAR2 := FND_API.G_FALSE,
12 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
13 --
14 p_return_status OUT NOCOPY VARCHAR2,
15 p_msg_count OUT NOCOPY NUMBER,
16 p_msg_data OUT NOCOPY VARCHAR2,
17 --
18 p_worksheet_id IN NUMBER,
19 p_position_line_id IN NUMBER
20 )
21 IS
22 --
23 l_api_name CONSTANT VARCHAR2(30) := 'Insert Row';
24 l_api_version CONSTANT NUMBER := 1.0;
25 --
26 l_return_status VARCHAR2(1);
27 --
28
29 BEGIN
30 --
31 SAVEPOINT Insert_Row_Pvt ;
32 --
33 IF NOT FND_API.Compatible_API_Call ( l_api_version,
34 p_api_version,
35 l_api_name,
36 G_PKG_NAME )
37 THEN
38 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
39 END IF;
40
41 --
42
43 IF FND_API.to_Boolean ( p_init_msg_list ) THEN
44 FND_MSG_PUB.initialize ;
45 END IF;
46 --
47 p_return_status := FND_API.G_RET_STS_SUCCESS ;
48
49 --
50
51 PSB_WS_OPS_PVT.Add_Worksheet_Position_Line
52 (
53 p_api_version => 1.0,
54 p_init_msg_list => FND_API.G_FALSE,
55 p_commit => FND_API.G_FALSE,
56 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
57 --
58 p_return_status => l_return_status,
59 p_msg_count => p_msg_count,
60 p_msg_data => p_msg_data,
61 --
62 p_worksheet_id => p_worksheet_id,
63 p_position_line_id => p_position_line_id
64 );
65 --
66 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
67 RAISE FND_API.G_EXC_ERROR ;
68 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
69 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
70 END IF;
71
72
73 --
74 IF FND_API.To_Boolean ( p_commit ) THEN
75 COMMIT WORK;
76 END iF;
77 --
78 FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
79 p_data => p_msg_data );
80 --
81 EXCEPTION
82 --
83 WHEN FND_API.G_EXC_ERROR THEN
84 --
85 ROLLBACK TO Insert_Row_Pvt ;
86 p_return_status := FND_API.G_RET_STS_ERROR;
87 FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
88 p_data => p_msg_data );
89 --
90 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
91 --
92 ROLLBACK TO Insert_Row_Pvt ;
93 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94 FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
95 p_data => p_msg_data );
96 --
97 WHEN OTHERS THEN
98 --
99 ROLLBACK TO Insert_Row_Pvt ;
100 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
101 --
102 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
103 FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
104 l_api_name);
105 END if;
106 --
107 FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
108 p_data => p_msg_data );
109 --
110 END Add_Parent_Position_Line;
111
112 /*-------------------------------------------------------------------------*/
113
114 PROCEDURE Add_Parent_Account_Line
115 (
116 p_api_version IN NUMBER,
117 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
118 p_commit IN VARCHAR2 := FND_API.G_FALSE,
119 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
120 --
121 p_return_status OUT NOCOPY VARCHAR2,
122 p_msg_count OUT NOCOPY NUMBER,
123 p_msg_data OUT NOCOPY VARCHAR2,
124 --
125 p_worksheet_id IN NUMBER,
126 p_position_line_id IN NUMBER
127 )
128 IS
129 --
130 l_api_name CONSTANT VARCHAR2(30) := 'Insert Row';
131 l_api_version CONSTANT NUMBER := 1.0;
132 --
133 l_return_status VARCHAR2(1);
134 --
135
136 BEGIN
137 --
138 SAVEPOINT Insert_Row_Pvt ;
139 --
140 IF NOT FND_API.Compatible_API_Call ( l_api_version,
141 p_api_version,
142 l_api_name,
143 G_PKG_NAME )
144 THEN
145 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
146 END IF;
147
148 --
149
150 IF FND_API.to_Boolean ( p_init_msg_list ) THEN
151 FND_MSG_PUB.initialize ;
152 END IF;
153 --
154 p_return_status := FND_API.G_RET_STS_SUCCESS ;
155
156 --
157
158 PSB_WS_OPS_PVT.Add_Worksheet_Line
159 (
160 p_api_version => 1.0,
161 p_init_msg_list => FND_API.G_FALSE,
162 p_commit => FND_API.G_FALSE,
163 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
164 --
165 p_return_status => l_return_status,
166 p_msg_count => p_msg_count,
167 p_msg_data => p_msg_data,
168 --
169 p_worksheet_id => p_worksheet_id,
170 p_position_line_id => p_position_line_id
171 );
172 --
173 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
174 RAISE FND_API.G_EXC_ERROR ;
175 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
176 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
177 END IF;
178
179
180 --
181 IF FND_API.To_Boolean ( p_commit ) THEN
182 COMMIT WORK;
183 END iF;
184 --
185 FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
186 p_data => p_msg_data );
187 --
188 EXCEPTION
189 --
190 WHEN FND_API.G_EXC_ERROR THEN
191 --
192 ROLLBACK TO Insert_Row_Pvt ;
193 p_return_status := FND_API.G_RET_STS_ERROR;
194 FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
195 p_data => p_msg_data );
196 --
197 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
198 --
199 ROLLBACK TO Insert_Row_Pvt ;
200 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201 FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
202 p_data => p_msg_data );
203 --
204 WHEN OTHERS THEN
205 --
206 ROLLBACK TO Insert_Row_Pvt ;
207 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
208 --
209 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
210 FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
211 l_api_name);
212 END if;
213 --
214 FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
215 p_data => p_msg_data );
216 --
217 END Add_Parent_Account_Line;
218
219 /*=======================================================================+
220 | PROCEDURE Insert_Row |
221 +=======================================================================*/
222
223 PROCEDURE Insert_Row
224 (
225 p_api_version IN NUMBER,
226 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
227 p_commit IN VARCHAR2 := FND_API.G_FALSE,
228 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
229 --
230 p_return_status OUT NOCOPY VARCHAR2,
231 p_msg_count OUT NOCOPY NUMBER,
232 p_msg_data OUT NOCOPY VARCHAR2,
233 --
234 p_worksheet_id IN NUMBER,
235 p_position_id IN NUMBER,
236 p_budget_group_id IN NUMBER,
237 p_position_line_id OUT NOCOPY NUMBER
238 )
239 IS
240 --
241 l_api_name CONSTANT VARCHAR2(30) := 'Insert Row';
242 l_api_version CONSTANT NUMBER := 1.0;
243 --
244 l_return_status VARCHAR2(1);
245 --
246
247 BEGIN
248 --
249 SAVEPOINT Insert_Row_Pvt ;
250 --
251 IF NOT FND_API.Compatible_API_Call ( l_api_version,
252 p_api_version,
253 l_api_name,
254 G_PKG_NAME )
255 THEN
256 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
257 END IF;
258
259 --
260
261 IF FND_API.to_Boolean ( p_init_msg_list ) THEN
262 FND_MSG_PUB.initialize ;
263 END IF;
264 --
265 p_return_status := FND_API.G_RET_STS_SUCCESS ;
266
267 --
268
269 PSB_WS_POS_PVT.Create_Position_Lines
270 (
271 p_api_version => 1.0,
272 p_init_msg_list => FND_API.G_FALSE,
273 p_commit => FND_API.G_FALSE,
274 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
275 --
276 p_return_status => l_return_status,
277 p_msg_count => p_msg_count,
278 p_msg_data => p_msg_data,
279 --
280 p_position_line_id => p_position_line_id,
281 p_worksheet_id => p_worksheet_id,
282 p_position_id => p_position_id,
283 p_budget_group_id => p_budget_group_id
284 );
285 --
286
287 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
288 RAISE FND_API.G_EXC_ERROR ;
289 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
290 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
291 END IF;
292
293
294 EXCEPTION
295 --
296 WHEN FND_API.G_EXC_ERROR THEN
297 --
298 ROLLBACK TO Insert_Row_Pvt ;
299 p_return_status := FND_API.G_RET_STS_ERROR;
300 FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
301 p_data => p_msg_data );
302 --
303 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
304 --
305 ROLLBACK TO Insert_Row_Pvt ;
306 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
307 FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
308 p_data => p_msg_data );
309 --
310 WHEN OTHERS THEN
311 --
312 ROLLBACK TO Insert_Row_Pvt ;
313 p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314 --
315 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
316 FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
317 l_api_name);
318 END if;
319 --
320 FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
321 p_data => p_msg_data );
322 --
323 END Insert_Row;
324
325 END PSB_WS_POSITION_CR_LINES_I_PVT;