[Home] [Help]
PACKAGE BODY: APPS.CSP_TASK_PART_PUB
Source
1 PACKAGE BODY CSP_TASK_PART_PUB AS
2 /* $Header: cspptapb.pls 115.3 2003/05/02 17:29:02 phegde noship $ */
3 -- Start of Comments
4 -- Package name : CSP_TASK_PART_PUB
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSP_TASK_PART_PUB';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'cspptapb.pls';
13
14 -- Start of Comments
15 -- ***************** Private Conversion Routines Values -> Ids **************
16 -- Purpose
17 --
18 -- This procedure takes a public TASK_PART record as input. It may contain
19 -- values or ids. All values are then converted into ids and a
20 -- private TASK_PARTrecord is returned for the private
21 -- API call.
22 --
23 -- Conversions:
24 --
25 -- Notes
26 --
27 -- 1. IDs take precedence over values. If both are present for a field, ID is used,
28 -- the value based parameter is ignored and a warning message is created.
29 -- 2. This is automatically generated procedure, it converts public record type to
30 -- private record type for all attributes.
31 -- Developer must manually add conversion logic to the attributes.
32 --
33 -- End of Comments
34 PROCEDURE Convert_TASK_PART_Values(
35 P_TASK_PART_Rec IN CSP_task_part_PUB.TASK_PART_Rec_Type,
36 x_pvt_TASK_PART_rec OUT NOCOPY CSP_task_part_PVT.TASK_PART_Rec_Type
37 )
38 IS
39 -- Hint: Declare cursor and local variables
40 -- Example: CURSOR C_Get_Lookup_Code(X_Lookup_Type VARCHAR2, X_Meaning VARCHAR2) IS
41 -- SELECT lookup_code
42 -- FROM as_lookups
43 -- WHERE lookup_type = X_Lookup_Type and nls_upper(meaning) = nls_upper(X_Meaning);
44 l_any_errors BOOLEAN := FALSE;
45 BEGIN
46 -- Hint: Add logic to process value-id verification for TASK_PART record.
47 -- Value based parameters should be converted to their equivalent ids.
48 -- Each value should resolve into one and only one id.
49 -- If this condition is not satisfied, API must report an error and assign l_any_errors to TRUE.
50 -- Example: Process Lead Source/Lead Source Code
51 -- If(p_opp_rec.lead_source_code is NOT NULL and p_opp_rec.lead_source_code <> FND_API.G_MISS_CHAR)
52 -- THEN
53 -- p_pvt_opp_rec.lead_source_code := p_opp_rec.lead_source_code;
54 -- IF(p_opp_rec.lead_source is NOT NULL and p_opp_rec.lead_source <> FND_API.G_MISS_CHAR)
55 -- THEN
56 -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
57 -- THEN
58 -- FND_MESSAGE.Set_Name('AS','API_ATTRIBUTE_IGNORED');
59 -- FND_MESSAGE.Set_Token('COLUMN','LEAD_SOURCE',FALSE);
60 -- FND_MSG_PUB.Add;
61 -- END IF;
62 -- END IF;
63 -- ELSIF(p_opp_rec.lead_source is NOT NULL and p_opp_rec.lead_source <> FND_API.G_MISS_CHAR)
64 -- THEN
65 -- OPEN C_Get_Lookup_Code('LEAD_SOURCE', p_opp_rec.lead_source);
66 -- FETCH C_Get_Lookup_Code INTO l_val;
67 -- CLOSE C_Get_Lookup_Code;
68 -- p_pvt_opp_rec.lead_source_code := l_val;
69 -- IF(l_val IS NULL)
70 -- THEN
71 -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
72 -- THEN
73 -- FND_MESSAGE.Set_Name('AS','API_ATTRIBUTE_CONVERSION_ERROR'
74 -- FND_MESSAGE.Set_Token('COLUMN','LEAD_SOURCE', FALSE
75 -- FND_MESSAGE.Set_Token('VALUE', p_opp_rec.lead_source, FALSE
76 -- FND_MSG_PUB.Add;
77 -- END IF;
78 -- l_any_errors := TRUE;
79 -- END IF;
80 -- ELSE
81 -- p_pvt_opp_rec.lead_source_code := NULL;
82 -- END IF;
83
84
85 -- Now copy the rest of the columns to the private record
86 -- Hint: We provide copy all columns to the private record.
87 -- Developer should delete those fields which are used by Value-Id conversion above
88 -- Hint: Developer should remove some of the following statements because of inconsistent column name between table and view.
89 /*
90 x_pvt_TASK_PART_rec.TASK_PART_ID := P_TASK_PART_Rec.TASK_PART_ID;
91 x_pvt_TASK_PART_rec.PRODUCT_TASK_ID := P_TASK_PART_Rec.PRODUCT_TASK_ID;
92 x_pvt_TASK_PART_rec.INVENTORY_ITEM_ID := P_TASK_PART_Rec.INVENTORY_ITEM_ID;
93 x_pvt_TASK_PART_rec.MANUAL_QUANTITY := P_TASK_PART_Rec.MANUAL_QUANTITY;
94 x_pvt_TASK_PART_rec.MANUAL_PERCENTAGE := P_TASK_PART_Rec.MANUAL_PERCENTAGE;
95 x_pvt_TASK_PART_rec.QUANTITY_USED := P_TASK_PART_Rec.QUANTITY_USED;
96 x_pvt_TASK_PART_rec.ACTUAL_TIMES_USED := P_TASK_PART_Rec.ACTUAL_TIMES_USED;
97 x_pvt_TASK_PART_rec.CALCULATED_QUANTITY := P_TASK_PART_Rec.CALCULATED_QUANTITY;
98 x_pvt_TASK_PART_rec.PART_PERCENTAGE := P_TASK_PART_Rec.PART_PERCENTAGE;
99 x_pvt_TASK_PART_rec.CREATED_BY := P_TASK_PART_Rec.CREATED_BY;
100 x_pvt_TASK_PART_rec.CREATION_DATE := P_TASK_PART_Rec.CREATION_DATE;
101 x_pvt_TASK_PART_rec.LAST_UPDATED_BY := P_TASK_PART_Rec.LAST_UPDATED_BY;
102 x_pvt_TASK_PART_rec.LAST_UPDATE_DATE := P_TASK_PART_Rec.LAST_UPDATE_DATE;
103 x_pvt_TASK_PART_rec.LAST_UPDATE_LOGIN := P_TASK_PART_Rec.LAST_UPDATE_LOGIN;
104 x_pvt_TASK_PART_rec.ATTRIBUTE_CATEGORY := P_TASK_PART_Rec.ATTRIBUTE_CATEGORY;
105 x_pvt_TASK_PART_rec.ATTRIBUTE1 := P_TASK_PART_Rec.ATTRIBUTE1;
106 x_pvt_TASK_PART_rec.ATTRIBUTE2 := P_TASK_PART_Rec.ATTRIBUTE2;
107 x_pvt_TASK_PART_rec.ATTRIBUTE3 := P_TASK_PART_Rec.ATTRIBUTE3;
108 x_pvt_TASK_PART_rec.ATTRIBUTE4 := P_TASK_PART_Rec.ATTRIBUTE4;
109 x_pvt_TASK_PART_rec.ATTRIBUTE5 := P_TASK_PART_Rec.ATTRIBUTE5;
110 x_pvt_TASK_PART_rec.ATTRIBUTE6 := P_TASK_PART_Rec.ATTRIBUTE6;
111 x_pvt_TASK_PART_rec.ATTRIBUTE7 := P_TASK_PART_Rec.ATTRIBUTE7;
112 x_pvt_TASK_PART_rec.ATTRIBUTE8 := P_TASK_PART_Rec.ATTRIBUTE8;
113 x_pvt_TASK_PART_rec.ATTRIBUTE9 := P_TASK_PART_Rec.ATTRIBUTE9;
114 x_pvt_TASK_PART_rec.ATTRIBUTE10 := P_TASK_PART_Rec.ATTRIBUTE10;
115 x_pvt_TASK_PART_rec.ATTRIBUTE11 := P_TASK_PART_Rec.ATTRIBUTE11;
116 x_pvt_TASK_PART_rec.ATTRIBUTE12 := P_TASK_PART_Rec.ATTRIBUTE12;
117 x_pvt_TASK_PART_rec.ATTRIBUTE13 := P_TASK_PART_Rec.ATTRIBUTE13;
118 x_pvt_TASK_PART_rec.ATTRIBUTE14 := P_TASK_PART_Rec.ATTRIBUTE14;
119 x_pvt_TASK_PART_rec.ATTRIBUTE15 := P_TASK_PART_Rec.ATTRIBUTE15;
120 x_pvt_TASK_PART_rec.PRIMARY_UOM_CODE := P_TASK_PART_Rec.PRIMARY_UOM_CODE;
121 x_pvt_TASK_PART_rec.REVISION := P_TASK_PART_Rec.REVISION;
122 x_pvt_TASK_PART_rec.START_DATE := P_TASK_PART_Rec.START_DATE;
123 x_pvt_TASK_PART_rec.END_DATE := P_TASK_PART_Rec.END_DATE;
124
125 */
126 -- If there is an error in conversion precessing, raise an error.
127 IF l_any_errors
128 THEN
129 raise FND_API.G_EXC_ERROR;
130 END IF;
131
132
133 END Convert_TASK_PART_Values;
134
135 PROCEDURE Create_task_part(
136 P_Api_Version_Number IN NUMBER,
137 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
138 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
139 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
140 P_TASK_PART_Rec IN TASK_PART_Rec_Type := G_MISS_TASK_PART_REC,
141 --Hint: Add detail tables as parameter lists if it's master-detail relationship.
142 X_TASK_PART_ID OUT NOCOPY NUMBER,
143 X_Return_Status OUT NOCOPY VARCHAR2,
144 X_Msg_Count OUT NOCOPY NUMBER,
145 X_Msg_Data OUT NOCOPY VARCHAR2
146 )
147
148 IS
149 l_api_name CONSTANT VARCHAR2(30) := 'Create_task_part';
150 l_api_version_number CONSTANT NUMBER := 1.0;
151 l_pvt_TASK_PART_rec CSP_TASK_PART_PVT.TASK_PART_Rec_Type;
152 BEGIN
153 -- Standard Start of API savepoint
154 SAVEPOINT CREATE_TASK_PART_PUB;
155
156 -- Standard call to check for call compatibility.
157 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
158 p_api_version_number,
159 l_api_name,
160 G_PKG_NAME)
161 THEN
162 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
163 END IF;
164
165
166 -- Initialize message list if p_init_msg_list is set to TRUE.
167 IF FND_API.to_Boolean( p_init_msg_list )
168 THEN
169 FND_MSG_PUB.initialize;
170 END IF;
171
172
173 -- Debug Message
174 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP','Public API: ' || l_api_name || 'start');
175
176 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP','Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
177
178 -- Initialize API return status to SUCCESS
179 x_return_status := FND_API.G_RET_STS_SUCCESS;
180
181 --
182 -- API body
183 --
184
185 -- Debug Message
186 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','AS: Public API: Convert_TASK_PART_Values_To_Ids');
187
188 -- Convert the values to ids
189 --
190 -- Convert_TASK_PART_Values_To_Ids (
191 -- p_TASK_PART_rec => p_TASK_PART_rec,
192 -- x_pvt_TASK_PART_rec => l_pvt_TASK_PART_rec
193 -- );
194
195
196 -- Un-comment the following statements when user hooks is ready.
197 /*
198 -- USER HOOKS standard : customer pre-processing section - mandatory
199 IF(JTF_USR_HKS.Ok_to_execute('AS_task_part_PUB', 'Create_task_part','B','C'))
200 THEN
201 AS_task_part_CUHK.Create_task_part_Pre(
202 p_api_version_number => 1.0,
203 p_validation_level => p_validation_level,
204 p_commit => FND_API.G_FALSE,
205 p_profile_tbl => p_profile_tbl,
206 p_check_access_flag => p_check_access_flag,
207 p_admin_flag => p_admin_flag,
208 p_admin_group_id => p_admin_group_id,
209 p_identity_salesforce_id => p_identity_salesforce_id,
210 P_TASK_PART_Rec => P_TASK_PART_Rec,
211 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
212 x_return_status => x_return_status,
213 x_msg_count => x_msg_count,
214 x_msg_data => x_msg_data);
215 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
216 RAISE fnd_api.g_exc_error;
217 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
218 RAISE fnd_api.g_exc_unexpected_error;
219 END IF;
220 END IF;
221 -- USER HOOKS standard : vertical industry pre-processing section - mandatory
222 IF(JTF_USR_HKS.Ok_to_execute('AS_task_part_PUB', 'Create_task_part','B','V'))
223 THEN
224 AS_task_part_VUHK.Create_task_part_Pre(
225 p_api_version_number => 1.0,
226 p_validation_level => p_validation_level,
227 p_commit => FND_API.G_FALSE,
228 p_profile_tbl => p_profile_tbl,
229 p_check_access_flag => p_check_access_flag,
230 p_admin_flag => p_admin_flag,
231 p_admin_group_id => p_admin_group_id,
232 p_identity_salesforce_id => p_identity_salesforce_id,
233 P_TASK_PART_Rec => P_TASK_PART_Rec,
234 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
235 x_return_status => x_return_status,
236 x_msg_count => x_msg_count,
237 x_msg_data => x_msg_data);
238 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
239 RAISE fnd_api.g_exc_error;
240 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
241 RAISE fnd_api.g_exc_unexpected_error;
242 END IF;
243 */
244 -- Calling Private package: Create_TASK_PART
245 -- Hint: Primary key needs to be returned
246 CSP_task_part_PVT.Create_task_part(
247 P_Api_Version_Number => 1.0,
248 P_Init_Msg_List => FND_API.G_FALSE,
249 P_Commit => FND_API.G_FALSE,
250 P_Validation_Level => P_Validation_Level,
251 P_TASK_PART_Rec => l_pvt_TASK_PART_Rec ,
252 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
253 X_TASK_PART_ID => x_TASK_PART_ID,
254 X_Return_Status => x_return_status,
255 X_Msg_Count => x_msg_count,
256 X_Msg_Data => x_msg_data);
257
258
259
260 -- Check return status from the above procedure call
261 IF x_return_status = FND_API.G_RET_STS_ERROR then
262 raise FND_API.G_EXC_ERROR;
263 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
264 raise FND_API.G_EXC_UNEXPECTED_ERROR;
265 END IF;
266
267 --
268 -- End of API body.
269 --
270
271 -- Standard check for p_commit
272 IF FND_API.to_Boolean( p_commit )
273 THEN
274 COMMIT WORK;
275 END IF;
276
277
278 -- Debug Message
279 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP','Public API: ' || l_api_name || 'end');
280
281 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP','End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
282
283 -- Standard call to get message count and if count is 1, get message info.
284 FND_MSG_PUB.Count_And_Get
285 ( p_count => x_msg_count,
286 p_data => x_msg_data
287 );
288
289 -- Un-comment the following statements when user hooks is ready.
290 /*
291 -- USER HOOK standard : vertical industry post-processing section - mandatory
292 IF(JTF_USR_HKS.Ok_to_execute('AS_task_part_PUB', 'Create_task_part','A','V'))
293 THEN
294 AS_task_part_VUHK.Create_task_part_Post(
295 p_api_version_number => 1.0,
296 p_validation_level => p_validation_level,
297 p_commit => FND_API.G_FALSE,
298 p_profile_tbl => p_profile_tbl,
299 p_check_access_flag => p_check_access_flag,
300 p_admin_flag => p_admin_flag,
301 p_admin_group_id => p_admin_group_id,
302 p_identity_salesforce_id => p_identity_salesforce_id,
303 P_TASK_PART_Rec => P_TASK_PART_Rec,
304 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
305 x_return_status => x_return_status,
306 x_msg_count => x_msg_count,
307 x_msg_data => x_msg_data);
308 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
309 RAISE fnd_api.g_exc_error;
310 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
311 RAISE fnd_api.g_exc_unexpected_error;
312 END IF;
313 END IF;
314 -- USER HOOKS standard : customer pre-processing section - mandatory
315 IF(JTF_USR_HKS.Ok_to_execute('AS_task_part_PUB', 'Create_task_part','A','C'))
316 THEN
317 AS_task_part_CUHK.Create_task_part_Pre(
318 p_api_version_number => 1.0,
319 p_validation_level => p_validation_level,
320 p_commit => FND_API.G_FALSE,
321 p_profile_tbl => p_profile_tbl,
322 p_check_access_flag => p_check_access_flag,
323 p_admin_flag => p_admin_flag,
324 p_admin_group_id => p_admin_group_id,
325 p_identity_salesforce_id => p_identity_salesforce_id,
326 P_TASK_PART_Rec => P_TASK_PART_Rec,
327 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
328 x_return_status => x_return_status,
329 x_msg_count => x_msg_count,
330 x_msg_data => x_msg_data);
331 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
332 RAISE fnd_api.g_exc_error;
336 END IF;
333 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
334 RAISE fnd_api.g_exc_unexpected_error;
335 END IF;
337 */
338 EXCEPTION
339 WHEN FND_API.G_EXC_ERROR THEN
340 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
341 P_API_NAME => L_API_NAME
342 ,P_PKG_NAME => G_PKG_NAME
343 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
344 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
345 ,X_MSG_COUNT => X_MSG_COUNT
346 ,X_MSG_DATA => X_MSG_DATA
347 ,X_RETURN_STATUS => X_RETURN_STATUS);
348
349 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
350 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
351 P_API_NAME => L_API_NAME
352 ,P_PKG_NAME => G_PKG_NAME
353 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
354 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
355 ,X_MSG_COUNT => X_MSG_COUNT
356 ,X_MSG_DATA => X_MSG_DATA
357 ,X_RETURN_STATUS => X_RETURN_STATUS);
358
359 WHEN OTHERS THEN
360 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
361 P_API_NAME => L_API_NAME
362 ,P_PKG_NAME => G_PKG_NAME
363 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
364 ,P_SQLCODE => SQLCODE
365 ,P_SQLERRM => SQLERRM
366 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
367 ,X_MSG_COUNT => X_MSG_COUNT
368 ,X_MSG_DATA => X_MSG_DATA
369 ,X_RETURN_STATUS => X_RETURN_STATUS);
370 End Create_task_part;
371
372
373 -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
374 PROCEDURE Update_task_part(
375 P_Api_Version_Number IN NUMBER,
376 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
377 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
378 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
379 P_TASK_PART_Rec IN TASK_PART_Rec_Type,
380 X_Return_Status OUT NOCOPY VARCHAR2,
381 X_Msg_Count OUT NOCOPY NUMBER,
382 X_Msg_Data OUT NOCOPY VARCHAR2
383 )
384
385 IS
386 l_api_name CONSTANT VARCHAR2(30) := 'Update_task_part';
387 l_api_version_number CONSTANT NUMBER := 1.0;
388 l_pvt_TASK_PART_rec CSP_TASK_PART_PVT.TASK_PART_Rec_Type;
389 BEGIN
390 -- Standard Start of API savepoint
391 SAVEPOINT UPDATE_TASK_PART_PUB;
392
393 -- Standard call to check for call compatibility.
394 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
395 p_api_version_number,
396 l_api_name,
397 G_PKG_NAME)
398 THEN
399 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400 END IF;
401
402
403 -- Initialize message list if p_init_msg_list is set to TRUE.
404 IF FND_API.to_Boolean( p_init_msg_list )
405 THEN
406 FND_MSG_PUB.initialize;
407 END IF;
408
409
410 -- Debug Message
411 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP','Public API: ' || l_api_name || 'start');
412
413 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP','Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
414
415 -- Initialize API return status to SUCCESS
416 x_return_status := FND_API.G_RET_STS_SUCCESS;
417
418 --
419 -- API body
420 --
421
422 -- Debug Message
423 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','AS: Public API: Convert_TASK_PART_Values_To_Ids');
424
425 -- Convert the values to ids
426 --
427 /* Convert_TASK_PART_Values_To_Ids (
428 p_TASK_PART_rec => p_TASK_PART_rec,
429 x_pvt_TASK_PART_rec => l_pvt_TASK_PART_rec
430 );
431 */
432
433 -- Un-comment the following statements when user hooks is ready.
434 /*
435 -- USER HOOKS standard : customer pre-processing section - mandatory
436 IF(JTF_USR_HKS.Ok_to_execute('AS_task_part_PUB', 'Update_task_part','B','C'))
437 THEN
438 AS_task_part_CUHK.Update_task_part_Pre(
439 p_api_version_number => 1.0,
440 p_validation_level => p_validation_level,
441 p_commit => FND_API.G_FALSE,
442 p_profile_tbl => p_profile_tbl,
443 p_check_access_flag => p_check_access_flag,
444 p_admin_flag => p_admin_flag,
445 p_admin_group_id => p_admin_group_id,
446 p_identity_salesforce_id => p_identity_salesforce_id,
447 P_TASK_PART_Rec => P_TASK_PART_Rec,
448 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
449 x_return_status => x_return_status,
450 x_msg_count => x_msg_count,
451 x_msg_data => x_msg_data);
452 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
456 END IF;
453 RAISE fnd_api.g_exc_error;
454 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
455 RAISE fnd_api.g_exc_unexpected_error;
457 END IF;
458 -- USER HOOKS standard : vertical industry pre-processing section - mandatory
459 IF(JTF_USR_HKS.Ok_to_execute('AS_task_part_PUB', 'Update_task_part','B','V'))
460 THEN
461 AS_task_part_VUHK.Update_task_part_Pre(
462 p_api_version_number => 1.0,
463 p_validation_level => p_validation_level,
464 p_commit => FND_API.G_FALSE,
465 p_profile_tbl => p_profile_tbl,
466 p_check_access_flag => p_check_access_flag,
467 p_admin_flag => p_admin_flag,
468 p_admin_group_id => p_admin_group_id,
469 p_identity_salesforce_id => p_identity_salesforce_id,
470 P_TASK_PART_Rec => P_TASK_PART_Rec,
471 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
472 x_return_status => x_return_status,
473 x_msg_count => x_msg_count,
474 x_msg_data => x_msg_data);
475 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
476 RAISE fnd_api.g_exc_error;
477 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
478 RAISE fnd_api.g_exc_unexpected_error;
479 END IF;
480 */
481 CSP_task_part_PVT.Update_task_part(
482 P_Api_Version_Number => 1.0,
483 P_Init_Msg_List => FND_API.G_FALSE,
484 P_Commit => p_commit,
485 P_Validation_Level => P_Validation_Level,
486 P_TASK_PART_Rec => l_pvt_TASK_PART_Rec ,
487 X_Return_Status => x_return_status,
488 X_Msg_Count => x_msg_count,
489 X_Msg_Data => x_msg_data);
490
491
492
493 -- Check return status from the above procedure call
494 IF x_return_status = FND_API.G_RET_STS_ERROR then
495 raise FND_API.G_EXC_ERROR;
496 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
497 raise FND_API.G_EXC_UNEXPECTED_ERROR;
498 END IF;
499
500 --
501 -- End of API body
502 --
503
504 -- Standard check for p_commit
505 IF FND_API.to_Boolean( p_commit )
506 THEN
507 COMMIT WORK;
508 END IF;
509
510
511 -- Debug Message
512 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Public API: ' || l_api_name || 'end');
513
514 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
515
516 -- Standard call to get message count and if count is 1, get message info.
517 FND_MSG_PUB.Count_And_Get
518 ( p_count => x_msg_count,
519 p_data => x_msg_data
520 );
521
522 -- Un-comment the following statements when user hooks is ready.
523 /*
524 -- USER HOOK standard : vertical industry post-processing section - mandatory
525 IF(JTF_USR_HKS.Ok_to_execute('AS_task_part_PUB', 'Update_task_part','A','V'))
526 THEN
527 AS_task_part_VUHK.Update_task_part_Post(
528 p_api_version_number => 1.0,
529 p_validation_level => p_validation_level,
530 p_commit => FND_API.G_FALSE,
531 p_profile_tbl => p_profile_tbl,
532 p_check_access_flag => p_check_access_flag,
533 p_admin_flag => p_admin_flag,
534 p_admin_group_id => p_admin_group_id,
535 p_identity_salesforce_id => p_identity_salesforce_id,
536 P_TASK_PART_Rec => P_TASK_PART_Rec,
537 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
538 x_return_status => x_return_status,
539 x_msg_count => x_msg_count,
540 x_msg_data => x_msg_data);
541 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
542 RAISE fnd_api.g_exc_error;
543 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
544 RAISE fnd_api.g_exc_unexpected_error;
545 END IF;
546 END IF;
547 -- USER HOOKS standard : customer pre-processing section - mandatory
548 IF(JTF_USR_HKS.Ok_to_execute('AS_task_part_PUB', 'Update_task_part','A','C'))
549 THEN
550 AS_task_part_CUHK.Update_task_part_Pre(
551 p_api_version_number => 1.0,
552 p_validation_level => p_validation_level,
553 p_commit => FND_API.G_FALSE,
554 p_profile_tbl => p_profile_tbl,
555 p_check_access_flag => p_check_access_flag,
556 p_admin_flag => p_admin_flag,
557 p_admin_group_id => p_admin_group_id,
558 p_identity_salesforce_id => p_identity_salesforce_id,
559 P_TASK_PART_Rec => P_TASK_PART_Rec,
560 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
564 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
561 x_return_status => x_return_status,
562 x_msg_count => x_msg_count,
563 x_msg_data => x_msg_data);
565 RAISE fnd_api.g_exc_error;
566 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
567 RAISE fnd_api.g_exc_unexpected_error;
568 END IF;
569 END IF;
570 */
571 EXCEPTION
572 WHEN FND_API.G_EXC_ERROR THEN
573 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
574 P_API_NAME => L_API_NAME
575 ,P_PKG_NAME => G_PKG_NAME
576 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
577 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
578 ,X_MSG_COUNT => X_MSG_COUNT
579 ,X_MSG_DATA => X_MSG_DATA
580 ,X_RETURN_STATUS => X_RETURN_STATUS);
581
582 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
583 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
584 P_API_NAME => L_API_NAME
585 ,P_PKG_NAME => G_PKG_NAME
586 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
587 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
588 ,X_MSG_COUNT => X_MSG_COUNT
589 ,X_MSG_DATA => X_MSG_DATA
590 ,X_RETURN_STATUS => X_RETURN_STATUS);
591
592 WHEN OTHERS THEN
593 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
594 P_API_NAME => L_API_NAME
595 ,P_PKG_NAME => G_PKG_NAME
596 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
597 ,P_SQLCODE => SQLCODE
598 ,P_SQLERRM => SQLERRM
599 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
600 ,X_MSG_COUNT => X_MSG_COUNT
601 ,X_MSG_DATA => X_MSG_DATA
602 ,X_RETURN_STATUS => X_RETURN_STATUS);
603 End Update_task_part;
604
605
606 -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
607 -- The Master delete procedure may not be needed depends on different business requirements.
608 PROCEDURE Delete_task_part(
609 P_Api_Version_Number IN NUMBER,
610 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
611 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
612 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
613 P_TASK_PART_Rec IN TASK_PART_Rec_Type,
614 X_Return_Status OUT NOCOPY VARCHAR2,
615 X_Msg_Count OUT NOCOPY NUMBER,
616 X_Msg_Data OUT NOCOPY VARCHAR2
617 )
618
619 IS
620 l_api_name CONSTANT VARCHAR2(30) := 'Delete_task_part';
621 l_api_version_number CONSTANT NUMBER := 1.0;
622 l_pvt_TASK_PART_rec CSP_TASK_PART_PVT.TASK_PART_Rec_Type;
623 BEGIN
624 -- Standard Start of API savepoint
625 SAVEPOINT DELETE_TASK_PART_PUB;
626
627 -- Standard call to check for call compatibility.
628 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
629 p_api_version_number,
630 l_api_name,
631 G_PKG_NAME)
632 THEN
633 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634 END IF;
635
636
637 -- Initialize message list if p_init_msg_list is set to TRUE.
638 IF FND_API.to_Boolean( p_init_msg_list )
639 THEN
640 FND_MSG_PUB.initialize;
641 END IF;
642
643
644 -- Debug Message
645 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Public API: ' || l_api_name || 'start');
646
647 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP', 'Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
648
649 -- Initialize API return status to SUCCESS
650 x_return_status := FND_API.G_RET_STS_SUCCESS;
651
652 --
653 -- API body
654 --
655
656 -- Debug Message
657 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','AS: Public API: Convert_TASK_PART_Values_To_Ids');
658
659 -- Convert the values to ids
660 --
661 /* Convert_TASK_PART_Values_To_Ids (
662 p_TASK_PART_rec => p_TASK_PART_rec,
663 x_pvt_TASK_PART_rec => l_pvt_TASK_PART_rec
664 );
665 */
666 CSP_task_part_PVT.Delete_task_part(
667 P_Api_Version_Number => 1.0,
668 P_Init_Msg_List => FND_API.G_FALSE,
669 P_Commit => p_commit,
670 P_Validation_Level => p_Validation_Level,
671 P_TASK_PART_Rec => l_pvt_TASK_PART_Rec,
672 X_Return_Status => x_return_status,
673 X_Msg_Count => x_msg_count,
674 X_Msg_Data => x_msg_data);
675
676 -- Un-comment the following statements when user hooks is ready.
677 /*
678 -- USER HOOKS standard : customer pre-processing section - mandatory
679 IF(JTF_USR_HKS.Ok_to_execute('AS_task_part_PUB', 'Delete_task_part','B','C'))
680 THEN
681 AS_task_part_CUHK.Delete_task_part_Pre(
682 p_api_version_number => 1.0,
686 p_check_access_flag => p_check_access_flag,
683 p_validation_level => p_validation_level,
684 p_commit => FND_API.G_FALSE,
685 p_profile_tbl => p_profile_tbl,
687 p_admin_flag => p_admin_flag,
688 p_admin_group_id => p_admin_group_id,
689 p_identity_salesforce_id => p_identity_salesforce_id,
690 P_TASK_PART_Rec => P_TASK_PART_Rec,
691 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
692 x_return_status => x_return_status,
693 x_msg_count => x_msg_count,
694 x_msg_data => x_msg_data);
695 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
696 RAISE fnd_api.g_exc_error;
697 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
698 RAISE fnd_api.g_exc_unexpected_error;
699 END IF;
700 END IF;
701 -- USER HOOKS standard : vertical industry pre-processing section - mandatory
702 IF(JTF_USR_HKS.Ok_to_execute('AS_task_part_PUB', 'Delete_task_part','B','V'))
703 THEN
704 AS_task_part_VUHK.Delete_task_part_Pre(
705 p_api_version_number => 1.0,
706 p_validation_level => p_validation_level,
707 p_commit => FND_API.G_FALSE,
708 p_profile_tbl => p_profile_tbl,
709 p_check_access_flag => p_check_access_flag,
710 p_admin_flag => p_admin_flag,
711 p_admin_group_id => p_admin_group_id,
712 p_identity_salesforce_id => p_identity_salesforce_id,
713 P_TASK_PART_Rec => P_TASK_PART_Rec,
714 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
715 x_return_status => x_return_status,
716 x_msg_count => x_msg_count,
717 x_msg_data => x_msg_data);
718 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
719 RAISE fnd_api.g_exc_error;
720 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
721 RAISE fnd_api.g_exc_unexpected_error;
722 END IF;
723 */
724
725
726
727 -- Check return status from the above procedure call
728 IF x_return_status = FND_API.G_RET_STS_ERROR then
729 raise FND_API.G_EXC_ERROR;
730 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
731 raise FND_API.G_EXC_UNEXPECTED_ERROR;
732 END IF;
733
734 --
735 -- End of API body
736 --
737
738 -- Standard check for p_commit
739 IF FND_API.to_Boolean( p_commit )
740 THEN
741 COMMIT WORK;
742 END IF;
743
744
745 -- Debug Message
746 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Public API: ' || l_api_name || 'end');
747
748 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP','End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
749
750 -- Standard call to get message count and if count is 1, get message info.
751 FND_MSG_PUB.Count_And_Get
752 ( p_count => x_msg_count,
753 p_data => x_msg_data
754 );
755
756 -- Un-comment the following statements when user hooks is ready.
757 /*
758 -- USER HOOK standard : vertical industry post-processing section - mandatory
759 IF(JTF_USR_HKS.Ok_to_execute('AS_task_part_PUB', 'Delete_task_part','A','V'))
760 THEN
761 AS_task_part_VUHK.Delete_task_part_Post(
762 p_api_version_number => 1.0,
763 p_validation_level => p_validation_level,
764 p_commit => FND_API.G_FALSE,
765 p_profile_tbl => p_profile_tbl,
766 p_check_access_flag => p_check_access_flag,
767 p_admin_flag => p_admin_flag,
768 p_admin_group_id => p_admin_group_id,
769 p_identity_salesforce_id => p_identity_salesforce_id,
770 P_TASK_PART_Rec => P_TASK_PART_Rec,
771 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
772 x_return_status => x_return_status,
773 x_msg_count => x_msg_count,
774 x_msg_data => x_msg_data);
775 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
776 RAISE fnd_api.g_exc_error;
777 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
778 RAISE fnd_api.g_exc_unexpected_error;
779 END IF;
780 END IF;
781 -- USER HOOKS standard : customer pre-processing section - mandatory
782 IF(JTF_USR_HKS.Ok_to_execute('AS_task_part_PUB', 'Delete_task_part','A','C'))
783 THEN
784 AS_task_part_CUHK.Delete_task_part_Pre(
785 p_api_version_number => 1.0,
786 p_validation_level => p_validation_level,
787 p_commit => FND_API.G_FALSE,
788 p_profile_tbl => p_profile_tbl,
789 p_check_access_flag => p_check_access_flag,
793 P_TASK_PART_Rec => P_TASK_PART_Rec,
790 p_admin_flag => p_admin_flag,
791 p_admin_group_id => p_admin_group_id,
792 p_identity_salesforce_id => p_identity_salesforce_id,
794 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
795 x_return_status => x_return_status,
796 x_msg_count => x_msg_count,
797 x_msg_data => x_msg_data);
798 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
799 RAISE fnd_api.g_exc_error;
800 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
801 RAISE fnd_api.g_exc_unexpected_error;
802 END IF;
803 END IF;
804 */
805 EXCEPTION
806 WHEN FND_API.G_EXC_ERROR THEN
807 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
808 P_API_NAME => L_API_NAME
809 ,P_PKG_NAME => G_PKG_NAME
810 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
811 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
812 ,X_MSG_COUNT => X_MSG_COUNT
813 ,X_MSG_DATA => X_MSG_DATA
814 ,X_RETURN_STATUS => X_RETURN_STATUS);
815
816 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
817 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
818 P_API_NAME => L_API_NAME
819 ,P_PKG_NAME => G_PKG_NAME
820 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
821 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
822 ,X_MSG_COUNT => X_MSG_COUNT
823 ,X_MSG_DATA => X_MSG_DATA
824 ,X_RETURN_STATUS => X_RETURN_STATUS);
825
826 WHEN OTHERS THEN
827 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
828 P_API_NAME => L_API_NAME
829 ,P_PKG_NAME => G_PKG_NAME
830 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
831 ,P_SQLCODE => SQLCODE
832 ,P_SQLERRM => SQLERRM
833 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
834 ,X_MSG_COUNT => X_MSG_COUNT
835 ,X_MSG_DATA => X_MSG_DATA
836 ,X_RETURN_STATUS => X_RETURN_STATUS);
837 End Delete_task_part;
838
839
840 PROCEDURE Get_task_part(
841 P_Api_Version_Number IN NUMBER,
842 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
843 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
844 P_TASK_PART_Rec IN CSP_task_part_PUB.TASK_PART_Rec_Type,
845 -- Hint: Add list of bind variables here
846 p_rec_requested IN NUMBER := G_DEFAULT_NUM_REC_FETCH,
847 p_start_rec_prt IN NUMBER := 1,
848 p_return_tot_count IN NUMBER := FND_API.G_FALSE,
849 -- Hint: user defined record type
850 p_order_by_rec IN CSP_task_part_PUB.TASK_PART_sort_rec_type,
851 x_return_status OUT NOCOPY VARCHAR2,
852 x_msg_count OUT NOCOPY NUMBER,
853 x_msg_data OUT NOCOPY VARCHAR2,
854 X_TASK_PART_Tbl OUT NOCOPY CSP_task_part_PUB.TASK_PART_Tbl_Type,
855 x_returned_rec_count OUT NOCOPY NUMBER,
856 x_next_rec_ptr OUT NOCOPY NUMBER,
857 x_tot_rec_count OUT NOCOPY NUMBER
858 -- other optional parameters
859 -- x_tot_rec_amount OUT NOCOPY NUMBER
860 )
861
862 IS
863 l_api_name CONSTANT VARCHAR2(30) := 'Get_task_part';
864 l_api_version_number CONSTANT NUMBER := 1.0;
865 BEGIN
866 -- Standard Start of API savepoint
867 SAVEPOINT GET_TASK_PART_PUB;
868
869 -- Standard call to check for call compatibility.
870 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
871 p_api_version_number,
872 l_api_name,
873 G_PKG_NAME)
874 THEN
875 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
876 END IF;
877
878
879 -- Initialize message list if p_init_msg_list is set to TRUE.
880 IF FND_API.to_Boolean( p_init_msg_list )
881 THEN
882 FND_MSG_PUB.initialize;
883 END IF;
884
885
886 -- Debug Message
887 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Public API: ' || l_api_name || 'start');
888
889 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
890
891 -- Initialize API return status to SUCCESS
892 x_return_status := FND_API.G_RET_STS_SUCCESS;
893
894 --
895 -- API body
896 --
897 -- Debug Message
898 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Public API: - Calling PVT.Get_TASK_PART');
899 /*
900 CSP_task_part_PVT.Get_task_part(
901 P_Api_Version_Number => 1.0,
902 P_Init_Msg_List => FND_API.G_FALSE,
903 p_validation_level => p_validation_level,
904 P_TASK_PART_Rec => P_TASK_PART_Rec,
905 p_rec_requested => p_rec_requested,
906 p_start_rec_prt => p_start_rec_prt,
907 p_return_tot_count => p_return_tot_count,
908 -- Hint: user defined record type
909 p_order_by_rec => p_order_by_rec,
910 X_Return_Status => x_return_status,
911 X_Msg_Count => x_msg_count,
912 X_Msg_Data => x_msg_data,
913 X_TASK_PART_Tbl => X_TASK_PART_Tbl,
914 x_returned_rec_count => x_returned_rec_count,
915 x_next_rec_ptr => x_next_rec_ptr,
916 x_tot_rec_count => x_tot_rec_count
917 -- other optional parameters
918 -- x_tot_rec_amount => x_tot_rec_amount
919 );
920
921
922
923 -- Check return status from the above procedure call
924 IF x_return_status = FND_API.G_RET_STS_ERROR then
925 raise FND_API.G_EXC_ERROR;
926 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
927 raise FND_API.G_EXC_UNEXPECTED_ERROR;
928 END IF;
929 */
930 --
931 -- End of API body
932 --
933
934 -- Debug Message
935 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','Public API: ' || l_api_name || 'end');
936
937 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'CSP','End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
938
939 -- Standard call to get message count and if count is 1, get message info.
940 FND_MSG_PUB.Count_And_Get
941 ( p_count => x_msg_count,
942 p_data => x_msg_data
943 );
944
945 EXCEPTION
946 WHEN FND_API.G_EXC_ERROR THEN
947 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
948 P_API_NAME => L_API_NAME
949 ,P_PKG_NAME => G_PKG_NAME
950 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
951 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
952 ,X_MSG_COUNT => X_MSG_COUNT
953 ,X_MSG_DATA => X_MSG_DATA
954 ,X_RETURN_STATUS => X_RETURN_STATUS);
955
956 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
957 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
958 P_API_NAME => L_API_NAME
959 ,P_PKG_NAME => G_PKG_NAME
960 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
961 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
962 ,X_MSG_COUNT => X_MSG_COUNT
963 ,X_MSG_DATA => X_MSG_DATA
964 ,X_RETURN_STATUS => X_RETURN_STATUS);
965
966 WHEN OTHERS THEN
970 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
967 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
968 P_API_NAME => L_API_NAME
969 ,P_PKG_NAME => G_PKG_NAME
971 ,P_SQLCODE => SQLCODE
972 ,P_SQLERRM => SQLERRM
973 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
974 ,X_MSG_COUNT => X_MSG_COUNT
975 ,X_MSG_DATA => X_MSG_DATA
976 ,X_RETURN_STATUS => X_RETURN_STATUS);
977 End Get_task_part;
978
979
980 End CSP_TASK_PART_PUB;