[Home] [Help]
PACKAGE BODY: APPS.CSP_PRODUCT_TASK_PUB
Source
1 PACKAGE BODY CSP_PRODUCT_TASK_PUB as
2 /* $Header: csppptab.pls 115.3 2003/05/02 17:24:25 phegde noship $ */
3 -- Start of Comments
4 -- Package name : CSP_PRODUCT_TASK_PUB
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSP_PRODUCT_TASK_PUB';
10 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csppptab.pls';
11 -- Start of Comments
12 -- ***************** Private Conversion Routines Values -> Ids **************
13 -- Purpose
14 --
15 -- This procedure takes a public PRODUCT_TASK record as input. It may contain
16 -- values or ids. All values are then converted into ids and a
17 -- private PRODUCT_TASKrecord is returned for the private
18 -- API call.
19 --
20 -- Conversions:
21 --
22 -- Notes
23 --
24 -- 1. IDs take precedence over values. If both are present for a field, ID is used,
25 -- the value based parameter is ignored and a warning message is created.
26 -- 2. This is automatically generated procedure, it converts public record type to
27 -- private record type for all attributes.
28 -- Developer must manually add conversion logic to the attributes.
29 --
30 -- End of Comments
31 PROCEDURE Create_product_task(
32 P_Api_Version_Number IN NUMBER,
33 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
34 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
35 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
36 P_PROD_TASK_Rec IN PROD_TASK_Rec_Type := G_MISS_PROD_TASK_REC,
37 --Hint: Add detail tables as parameter lists if it's master-detail relationship.
38 X_PRODUCT_TASK_ID OUT NOCOPY NUMBER,
39 X_Return_Status OUT NOCOPY VARCHAR2,
40 X_Msg_Count OUT NOCOPY NUMBER,
41 X_Msg_Data OUT NOCOPY VARCHAR2
42 )
43 IS
44 l_api_name CONSTANT VARCHAR2(30) := 'Create_product_task';
45 l_api_version_number CONSTANT NUMBER := 1.0;
46 l_pvt_PROD_TASK_rec CSP_PRODUCT_TASK_PVT.PROD_TASK_Rec_Type;
47 BEGIN
48 -- Standard Start of API savepoint
49 SAVEPOINT CREATE_PRODUCT_TASK_PUB;
50 -- Standard call to check for call compatibility.
51 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
52 p_api_version_number,
53 l_api_name,
54 G_PKG_NAME)
55 THEN
56 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57 END IF;
58 -- Initialize message list if p_init_msg_list is set to TRUE.
59 IF FND_API.to_Boolean( p_init_msg_list )
60 THEN
61 FND_MSG_PUB.initialize;
62 END IF;
63 -- Initialize API return status to SUCCESS
64 x_return_status := FND_API.G_RET_STS_SUCCESS;
65 --
66 -- API body
67 --
68 -- Un-comment the following statements when user hooks is ready.
69 /*
70 -- USER HOOKS standard : customer pre-processing section - mandatory
71 IF(JTF_USR_HKS.Ok_to_execute('AS_product_task_PUB', 'Create_product_task','B','C'))
72 THEN
73 AS_product_task_CUHK.Create_product_task_Pre(
74 p_api_version_number => 1.0,
75 p_validation_level => p_validation_level,
76 p_commit => FND_API.G_FALSE,
77 p_profile_tbl => p_profile_tbl,
78 p_check_access_flag => p_check_access_flag,
79 p_admin_flag => p_admin_flag,
80 p_admin_group_id => p_admin_group_id,
81 p_identity_salesforce_id => p_identity_salesforce_id,
82 P_PROD_TASK_Rec => P_PROD_TASK_Rec,
83 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
84 x_return_status => x_return_status,
85 x_msg_count => x_msg_count,
86 x_msg_data => x_msg_data);
87 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
88 RAISE fnd_api.g_exc_error;
89 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
90 RAISE fnd_api.g_exc_unexpected_error;
91 END IF;
92 END IF;
93 -- USER HOOKS standard : vertical industry pre-processing section - mandatory
94 IF(JTF_USR_HKS.Ok_to_execute('AS_product_task_PUB', 'Create_product_task','B','V'))
95 THEN
96 AS_product_task_VUHK.Create_product_task_Pre(
97 p_api_version_number => 1.0,
98 p_validation_level => p_validation_level,
99 p_commit => FND_API.G_FALSE,
100 p_profile_tbl => p_profile_tbl,
101 p_check_access_flag => p_check_access_flag,
102 p_admin_flag => p_admin_flag,
103 p_admin_group_id => p_admin_group_id,
104 p_identity_salesforce_id => p_identity_salesforce_id,
105 P_PROD_TASK_Rec => P_PROD_TASK_Rec,
106 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
107 x_return_status => x_return_status,
108 x_msg_count => x_msg_count,
109 x_msg_data => x_msg_data);
110 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
111 RAISE fnd_api.g_exc_error;
112 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
113 RAISE fnd_api.g_exc_unexpected_error;
114 END IF;
115 */
116 -- Calling Private package: Create_PRODUCT_TASK
117 -- Hint: Primary key needs to be returned
118 CSP_product_task_PVT.Create_product_task(
119 P_Api_Version_Number => 1.0,
120 P_Init_Msg_List => FND_API.G_FALSE,
121 P_Commit => FND_API.G_FALSE,
122 P_Validation_Level => P_Validation_Level,
123 P_PROD_TASK_Rec => l_pvt_PROD_TASK_Rec ,
124 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
125 X_PRODUCT_TASK_ID => x_PRODUCT_TASK_ID,
126 X_Return_Status => x_return_status,
127 X_Msg_Count => x_msg_count,
128 X_Msg_Data => x_msg_data);
129 -- Check return status from the above procedure call
130 IF x_return_status = FND_API.G_RET_STS_ERROR then
131 raise FND_API.G_EXC_ERROR;
132 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
133 raise FND_API.G_EXC_UNEXPECTED_ERROR;
134 END IF;
135 --
136 -- End of API body.
137 --
138 -- Standard check for p_commit
139 IF FND_API.to_Boolean( p_commit )
140 THEN
141 COMMIT WORK;
142 END IF;
143 -- Standard call to get message count and if count is 1, get message info.
144 FND_MSG_PUB.Count_And_Get
145 ( p_count => x_msg_count,
146 p_data => x_msg_data
147 );
148 -- Un-comment the following statements when user hooks is ready.
149 /*
150 -- USER HOOK standard : vertical industry post-processing section - mandatory
151 IF(JTF_USR_HKS.Ok_to_execute('AS_product_task_PUB', 'Create_product_task','A','V'))
152 THEN
153 AS_product_task_VUHK.Create_product_task_Post(
154 p_api_version_number => 1.0,
155 p_validation_level => p_validation_level,
156 p_commit => FND_API.G_FALSE,
157 p_profile_tbl => p_profile_tbl,
158 P_PROD_TASK_Rec => P_PROD_TASK_Rec,
159 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
160 x_return_status => x_return_status,
161 x_msg_count => x_msg_count,
162 x_msg_data => x_msg_data);
163 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
164 RAISE fnd_api.g_exc_error;
165 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
166 RAISE fnd_api.g_exc_unexpected_error;
167 END IF;
168 END IF;
169 -- USER HOOKS standard : customer pre-processing section - mandatory
170 IF(JTF_USR_HKS.Ok_to_execute('AS_product_task_PUB', 'Create_product_task','A','C'))
171 THEN
172 AS_product_task_CUHK.Create_product_task_Pre(
173 p_api_version_number => 1.0,
174 p_validation_level => p_validation_level,
175 p_commit => FND_API.G_FALSE,
176 p_profile_tbl => p_profile_tbl,
177 p_check_access_flag => p_check_access_flag,
178 p_admin_flag => p_admin_flag,
179 p_admin_group_id => p_admin_group_id,
180 p_identity_salesforce_id => p_identity_salesforce_id,
181 P_PROD_TASK_Rec => P_PROD_TASK_Rec,
182 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
183 x_return_status => x_return_status,
184 x_msg_count => x_msg_count,
185 x_msg_data => x_msg_data);
186 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
187 RAISE fnd_api.g_exc_error;
188 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
189 RAISE fnd_api.g_exc_unexpected_error;
190 END IF;
191 END IF;
192 */
193 EXCEPTION
194 WHEN FND_API.G_EXC_ERROR THEN
195 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
196 P_API_NAME => L_API_NAME
197 ,P_PKG_NAME => G_PKG_NAME
198 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
199 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
200 ,X_MSG_COUNT => X_MSG_COUNT
201 ,X_MSG_DATA => X_MSG_DATA
202 ,X_RETURN_STATUS => X_RETURN_STATUS);
203 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
204 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
205 P_API_NAME => L_API_NAME
206 ,P_PKG_NAME => G_PKG_NAME
207 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
208 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
209 ,X_MSG_COUNT => X_MSG_COUNT
210 ,X_MSG_DATA => X_MSG_DATA
211 ,X_RETURN_STATUS => X_RETURN_STATUS);
212 WHEN OTHERS THEN
213 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
214 P_API_NAME => L_API_NAME
215 ,P_PKG_NAME => G_PKG_NAME
216 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
217 ,P_SQLCODE => SQLCODE
218 ,P_SQLERRM => SQLERRM
219 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
220 ,X_MSG_COUNT => X_MSG_COUNT
221 ,X_MSG_DATA => X_MSG_DATA
222 ,X_RETURN_STATUS => X_RETURN_STATUS);
223 End Create_product_task;
224 -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
225 PROCEDURE Update_product_task(
226 P_Api_Version_Number IN NUMBER,
227 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
228 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
229 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
230 P_PROD_TASK_Rec IN PROD_TASK_Rec_Type,
231 X_Return_Status OUT NOCOPY VARCHAR2,
232 X_Msg_Count OUT NOCOPY NUMBER,
233 X_Msg_Data OUT NOCOPY VARCHAR2
234 )
235 IS
236 l_api_name CONSTANT VARCHAR2(30) := 'Update_product_task';
237 l_api_version_number CONSTANT NUMBER := 1.0;
238 l_pvt_PROD_TASK_rec CSP_PRODUCT_TASK_PVT.PROD_TASK_Rec_Type;
239 BEGIN
240 -- Standard Start of API savepoint
241 SAVEPOINT UPDATE_PRODUCT_TASK_PUB;
242 -- Standard call to check for call compatibility.
243 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
244 p_api_version_number,
245 l_api_name,
246 G_PKG_NAME)
247 THEN
248 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249 END IF;
250 -- Initialize message list if p_init_msg_list is set to TRUE.
251 IF FND_API.to_Boolean( p_init_msg_list )
252 THEN
253 FND_MSG_PUB.initialize;
254 END IF;
255 -- Initialize API return status to SUCCESS
256 x_return_status := FND_API.G_RET_STS_SUCCESS;
257 --
258 -- API body
259 --
260 -- Un-comment the following statements when user hooks is ready.
261 /*
262 -- USER HOOKS standard : customer pre-processing section - mandatory
263 IF(JTF_USR_HKS.Ok_to_execute('AS_product_task_PUB', 'Update_product_task','B','C'))
264 THEN
265 AS_product_task_CUHK.Update_product_task_Pre(
266 p_api_version_number => 1.0,
267 p_validation_level => p_validation_level,
268 p_commit => FND_API.G_FALSE,
269 p_profile_tbl => p_profile_tbl,
270 p_check_access_flag => p_check_access_flag,
271 p_admin_flag => p_admin_flag,
272 p_admin_group_id => p_admin_group_id,
273 p_identity_salesforce_id => p_identity_salesforce_id,
274 P_PROD_TASK_Rec => P_PROD_TASK_Rec,
275 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
276 x_return_status => x_return_status,
277 x_msg_count => x_msg_count,
278 x_msg_data => x_msg_data);
279 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
280 RAISE fnd_api.g_exc_error;
281 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
282 RAISE fnd_api.g_exc_unexpected_error;
283 END IF;
284 END IF;
285 -- USER HOOKS standard : vertical industry pre-processing section - mandatory
286 IF(JTF_USR_HKS.Ok_to_execute('AS_product_task_PUB', 'Update_product_task','B','V'))
287 THEN
288 AS_product_task_VUHK.Update_product_task_Pre(
289 p_api_version_number => 1.0,
290 p_validation_level => p_validation_level,
291 p_commit => FND_API.G_FALSE,
292 p_profile_tbl => p_profile_tbl,
293 p_check_access_flag => p_check_access_flag,
294 p_admin_flag => p_admin_flag,
295 p_admin_group_id => p_admin_group_id,
296 p_identity_salesforce_id => p_identity_salesforce_id,
297 P_PROD_TASK_Rec => P_PROD_TASK_Rec,
298 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
299 x_return_status => x_return_status,
300 x_msg_count => x_msg_count,
301 x_msg_data => x_msg_data);
302 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
303 RAISE fnd_api.g_exc_error;
304 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
305 RAISE fnd_api.g_exc_unexpected_error;
306 END IF;
307 */
308 CSP_product_task_PVT.Update_product_task(
309 P_Api_Version_Number => 1.0,
310 P_Init_Msg_List => FND_API.G_FALSE,
311 P_Commit => p_commit,
312 P_Validation_Level => P_Validation_Level,
313 P_PROD_TASK_Rec => l_pvt_PROD_TASK_Rec ,
314 X_Return_Status => x_return_status,
315 X_Msg_Count => x_msg_count,
319 raise FND_API.G_EXC_ERROR;
316 X_Msg_Data => x_msg_data);
317 -- Check return status from the above procedure call
318 IF x_return_status = FND_API.G_RET_STS_ERROR then
320 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
321 raise FND_API.G_EXC_UNEXPECTED_ERROR;
322 END IF;
323 --
324 -- End of API body
325 --
326 -- Standard check for p_commit
327 IF FND_API.to_Boolean( p_commit )
328 THEN
329 COMMIT WORK;
330 END IF;
331 -- Standard call to get message count and if count is 1, get message info.
332 FND_MSG_PUB.Count_And_Get
333 ( p_count => x_msg_count,
334 p_data => x_msg_data
335 );
336 -- Un-comment the following statements when user hooks is ready.
337 /*
338 -- USER HOOK standard : vertical industry post-processing section - mandatory
339 IF(JTF_USR_HKS.Ok_to_execute('AS_product_task_PUB', 'Update_product_task','A','V'))
340 THEN
341 AS_product_task_VUHK.Update_product_task_Post(
342 p_api_version_number => 1.0,
343 p_validation_level => p_validation_level,
344 p_commit => FND_API.G_FALSE,
345 p_profile_tbl => p_profile_tbl,
346 p_check_access_flag => p_check_access_flag,
347 p_admin_flag => p_admin_flag,
348 p_admin_group_id => p_admin_group_id,
349 p_identity_salesforce_id => p_identity_salesforce_id,
350 P_PROD_TASK_Rec => P_PROD_TASK_Rec,
351 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
352 x_return_status => x_return_status,
353 x_msg_count => x_msg_count,
354 x_msg_data => x_msg_data);
355 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
356 RAISE fnd_api.g_exc_error;
357 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
358 RAISE fnd_api.g_exc_unexpected_error;
359 END IF;
360 END IF;
361 -- USER HOOKS standard : customer pre-processing section - mandatory
362 IF(JTF_USR_HKS.Ok_to_execute('AS_product_task_PUB', 'Update_product_task','A','C'))
363 THEN
364 AS_product_task_CUHK.Update_product_task_Pre(
365 p_api_version_number => 1.0,
366 p_validation_level => p_validation_level,
367 p_commit => FND_API.G_FALSE,
368 p_profile_tbl => p_profile_tbl,
369 p_check_access_flag => p_check_access_flag,
370 p_admin_flag => p_admin_flag,
371 p_admin_group_id => p_admin_group_id,
372 p_identity_salesforce_id => p_identity_salesforce_id,
373 P_PROD_TASK_Rec => P_PROD_TASK_Rec,
374 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
375 x_return_status => x_return_status,
376 x_msg_count => x_msg_count,
377 x_msg_data => x_msg_data);
378 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
379 RAISE fnd_api.g_exc_error;
380 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
381 RAISE fnd_api.g_exc_unexpected_error;
382 END IF;
383 END IF;
384 */
385 EXCEPTION
386 WHEN FND_API.G_EXC_ERROR THEN
387 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
388 P_API_NAME => L_API_NAME
389 ,P_PKG_NAME => G_PKG_NAME
390 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
391 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
392 ,X_MSG_COUNT => X_MSG_COUNT
393 ,X_MSG_DATA => X_MSG_DATA
394 ,X_RETURN_STATUS => X_RETURN_STATUS);
395 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
396 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
397 P_API_NAME => L_API_NAME
398 ,P_PKG_NAME => G_PKG_NAME
399 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
400 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
401 ,X_MSG_COUNT => X_MSG_COUNT
402 ,X_MSG_DATA => X_MSG_DATA
403 ,X_RETURN_STATUS => X_RETURN_STATUS);
404 WHEN OTHERS THEN
405 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
406 P_API_NAME => L_API_NAME
407 ,P_PKG_NAME => G_PKG_NAME
408 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
409 ,P_SQLCODE => SQLCODE
410 ,P_SQLERRM => SQLERRM
411 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
412 ,X_MSG_COUNT => X_MSG_COUNT
413 ,X_MSG_DATA => X_MSG_DATA
414 ,X_RETURN_STATUS => X_RETURN_STATUS);
415 End Update_product_task;
416 -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
417 -- The Master delete procedure may not be needed depends on different business requirements.
418 PROCEDURE Delete_product_task(
419 P_Api_Version_Number IN NUMBER,
420 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
424 X_Return_Status OUT NOCOPY VARCHAR2,
421 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
422 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
423 P_PROD_TASK_Rec IN PROD_TASK_Rec_Type,
425 X_Msg_Count OUT NOCOPY NUMBER,
426 X_Msg_Data OUT NOCOPY VARCHAR2
427 )
428 IS
429 l_api_name CONSTANT VARCHAR2(30) := 'Delete_product_task';
430 l_api_version_number CONSTANT NUMBER := 1.0;
431 l_pvt_PROD_TASK_rec CSP_PRODUCT_TASK_PVT.PROD_TASK_Rec_Type;
432 BEGIN
433 -- Standard Start of API savepoint
434 SAVEPOINT DELETE_PRODUCT_TASK_PUB;
435 -- Standard call to check for call compatibility.
436 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
437 p_api_version_number,
438 l_api_name,
439 G_PKG_NAME)
440 THEN
441 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
442 END IF;
443 -- Initialize message list if p_init_msg_list is set to TRUE.
444 IF FND_API.to_Boolean( p_init_msg_list )
445 THEN
446 FND_MSG_PUB.initialize;
447 END IF;
448 -- Initialize API return status to SUCCESS
449 x_return_status := FND_API.G_RET_STS_SUCCESS;
450 --
451 -- API body
452 --
453 CSP_product_task_PVT.Delete_product_task(
454 P_Api_Version_Number => 1.0,
455 P_Init_Msg_List => FND_API.G_FALSE,
456 P_Commit => p_commit,
457 P_Validation_Level => p_Validation_Level,
458 P_PROD_TASK_Rec => l_pvt_PROD_TASK_Rec,
459 X_Return_Status => x_return_status,
460 X_Msg_Count => x_msg_count,
461 X_Msg_Data => x_msg_data);
462 -- Un-comment the following statements when user hooks is ready.
463 /*
464 -- USER HOOKS standard : customer pre-processing section - mandatory
465 IF(JTF_USR_HKS.Ok_to_execute('AS_product_task_PUB', 'Delete_product_task','B','C'))
466 THEN
467 AS_product_task_CUHK.Delete_product_task_Pre(
468 p_api_version_number => 1.0,
469 p_validation_level => p_validation_level,
470 p_commit => FND_API.G_FALSE,
471 p_profile_tbl => p_profile_tbl,
472 p_check_access_flag => p_check_access_flag,
473 p_admin_flag => p_admin_flag,
474 p_admin_group_id => p_admin_group_id,
475 p_identity_salesforce_id => p_identity_salesforce_id,
476 P_PROD_TASK_Rec => P_PROD_TASK_Rec,
477 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
478 x_return_status => x_return_status,
479 x_msg_count => x_msg_count,
480 x_msg_data => x_msg_data);
481 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
482 RAISE fnd_api.g_exc_error;
483 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
484 RAISE fnd_api.g_exc_unexpected_error;
485 END IF;
486 END IF;
487 -- USER HOOKS standard : vertical industry pre-processing section - mandatory
488 IF(JTF_USR_HKS.Ok_to_execute('AS_product_task_PUB', 'Delete_product_task','B','V'))
489 THEN
490 AS_product_task_VUHK.Delete_product_task_Pre(
491 p_api_version_number => 1.0,
492 p_validation_level => p_validation_level,
493 p_commit => FND_API.G_FALSE,
494 p_profile_tbl => p_profile_tbl,
495 p_check_access_flag => p_check_access_flag,
496 p_admin_flag => p_admin_flag,
497 p_admin_group_id => p_admin_group_id,
498 p_identity_salesforce_id => p_identity_salesforce_id,
499 P_PROD_TASK_Rec => P_PROD_TASK_Rec,
500 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
501 x_return_status => x_return_status,
502 x_msg_count => x_msg_count,
503 x_msg_data => x_msg_data);
504 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
505 RAISE fnd_api.g_exc_error;
506 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
507 RAISE fnd_api.g_exc_unexpected_error;
508 END IF;
509 */
510 -- Check return status from the above procedure call
511 IF x_return_status = FND_API.G_RET_STS_ERROR then
512 raise FND_API.G_EXC_ERROR;
513 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
514 raise FND_API.G_EXC_UNEXPECTED_ERROR;
515 END IF;
516 --
517 -- End of API body
518 --
519 -- Standard check for p_commit
520 IF FND_API.to_Boolean( p_commit )
521 THEN
522 COMMIT WORK;
523 END IF;
524 -- Standard call to get message count and if count is 1, get message info.
525 FND_MSG_PUB.Count_And_Get
526 ( p_count => x_msg_count,
527 p_data => x_msg_data
528 );
529 -- Un-comment the following statements when user hooks is ready.
533 THEN
530 /*
531 -- USER HOOK standard : vertical industry post-processing section - mandatory
532 IF(JTF_USR_HKS.Ok_to_execute('AS_product_task_PUB', 'Delete_product_task','A','V'))
534 AS_product_task_VUHK.Delete_product_task_Post(
535 p_api_version_number => 1.0,
536 p_validation_level => p_validation_level,
537 p_commit => FND_API.G_FALSE,
538 p_profile_tbl => p_profile_tbl,
539 P_PROD_TASK_Rec => P_PROD_TASK_Rec,
540 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
541 x_return_status => x_return_status,
542 x_msg_count => x_msg_count,
543 x_msg_data => x_msg_data);
544 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
545 RAISE fnd_api.g_exc_error;
546 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
550 -- USER HOOKS standard : customer pre-processing section - mandatory
547 RAISE fnd_api.g_exc_unexpected_error;
548 END IF;
549 END IF;
551 IF(JTF_USR_HKS.Ok_to_execute('AS_product_task_PUB', 'Delete_product_task','A','C'))
552 THEN
553 AS_product_task_CUHK.Delete_product_task_Pre(
554 p_api_version_number => 1.0,
555 p_validation_level => p_validation_level,
556 p_commit => FND_API.G_FALSE,
557 p_profile_tbl => p_profile_tbl,
558 p_check_access_flag => p_check_access_flag,
559 p_admin_flag => p_admin_flag,
560 p_admin_group_id => p_admin_group_id,
561 p_identity_salesforce_id => p_identity_salesforce_id,
562 P_PROD_TASK_Rec => P_PROD_TASK_Rec,
563 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
564 x_return_status => x_return_status,
565 x_msg_count => x_msg_count,
566 x_msg_data => x_msg_data);
567 IF (x_return_status = fnd_api.g_ret_sts_error) THEN
568 RAISE fnd_api.g_exc_error;
569 ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
570 RAISE fnd_api.g_exc_unexpected_error;
571 END IF;
572 END IF;
573 */
574 EXCEPTION
575 WHEN FND_API.G_EXC_ERROR THEN
576 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
577 P_API_NAME => L_API_NAME
578 ,P_PKG_NAME => G_PKG_NAME
579 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
580 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
581 ,X_MSG_COUNT => X_MSG_COUNT
582 ,X_MSG_DATA => X_MSG_DATA
583 ,X_RETURN_STATUS => X_RETURN_STATUS);
584 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
585 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
586 P_API_NAME => L_API_NAME
587 ,P_PKG_NAME => G_PKG_NAME
588 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
589 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
590 ,X_MSG_COUNT => X_MSG_COUNT
591 ,X_MSG_DATA => X_MSG_DATA
592 ,X_RETURN_STATUS => X_RETURN_STATUS);
593 WHEN OTHERS THEN
594 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
595 P_API_NAME => L_API_NAME
596 ,P_PKG_NAME => G_PKG_NAME
597 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
598 ,P_SQLCODE => SQLCODE
599 ,P_SQLERRM => SQLERRM
600 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
601 ,X_MSG_COUNT => X_MSG_COUNT
602 ,X_MSG_DATA => X_MSG_DATA
603 ,X_RETURN_STATUS => X_RETURN_STATUS);
604 End Delete_product_task;
605 PROCEDURE Get_product_task(
606 P_Api_Version_Number IN NUMBER,
607 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
608 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
609 P_PROD_TASK_Rec IN CSP_product_task_PUB.PROD_TASK_Rec_Type,
610 -- Hint: Add list of bind variables here
611 p_rec_requested IN NUMBER := G_DEFAULT_NUM_REC_FETCH,
612 p_start_rec_prt IN NUMBER := 1,
613 p_return_tot_count IN NUMBER := FND_API.G_FALSE,
614 -- Hint: user defined record type
615 p_order_by_rec IN CSP_product_task_PUB.PROD_TASK_sort_rec_type,
616 x_return_status OUT NOCOPY VARCHAR2,
617 x_msg_count OUT NOCOPY NUMBER,
618 x_msg_data OUT NOCOPY VARCHAR2,
619 X_PROD_TASK_Tbl OUT NOCOPY CSP_product_task_PUB.PROD_TASK_Tbl_Type,
620 x_returned_rec_count OUT NOCOPY NUMBER,
621 x_next_rec_ptr OUT NOCOPY NUMBER,
622 x_tot_rec_count OUT NOCOPY NUMBER
623 -- other optional parameters
624 -- x_tot_rec_amount OUT NOCOPY NUMBER
625 )
626 IS
627 l_api_name CONSTANT VARCHAR2(30) := 'Get_product_task';
628 l_api_version_number CONSTANT NUMBER := 1.0;
629 BEGIN
630 -- Standard Start of API savepoint
631 SAVEPOINT GET_PRODUCT_TASK_PUB;
632 -- Standard call to check for call compatibility.
633 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
634 p_api_version_number,
635 l_api_name,
636 G_PKG_NAME)
637 THEN
638 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
639 END IF;
640 -- Initialize message list if p_init_msg_list is set to TRUE.
641 IF FND_API.to_Boolean( p_init_msg_list )
642 THEN
643 FND_MSG_PUB.initialize;
644 END IF;
645 -- Initialize API return status to SUCCESS
646 x_return_status := FND_API.G_RET_STS_SUCCESS;
647 --
648 -- API body
649 --
650 /* CSP_product_task_PVT.Get_product_task(
651 P_Api_Version_Number => 1.0,
652 P_Init_Msg_List => FND_API.G_FALSE,
653 p_validation_level => p_validation_level,
654 P_PROD_TASK_Rec => P_PROD_TASK_Rec,
655 p_rec_requested => p_rec_requested,
656 p_start_rec_prt => p_start_rec_prt,
657 p_return_tot_count => p_return_tot_count,
658 -- Hint: user defined record type
659 p_order_by_rec => p_order_by_rec,
660 X_Return_Status => x_return_status,
661 X_Msg_Count => x_msg_count,
662 X_Msg_Data => x_msg_data,
663 X_PROD_TASK_Tbl => X_PROD_TASK_Tbl,
664 x_returned_rec_count => x_returned_rec_count,
665 x_next_rec_ptr => x_next_rec_ptr,
666 x_tot_rec_count => x_tot_rec_count
667 -- other optional parameters
668 -- x_tot_rec_amount => x_tot_rec_amount
669 );
670 -- Check return status from the above procedure call
671 IF x_return_status = FND_API.G_RET_STS_ERROR then
672 raise FND_API.G_EXC_ERROR;
673 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
674 raise FND_API.G_EXC_UNEXPECTED_ERROR;
675 END IF;
676 */
677 --
678 -- End of API body
679 --
680 -- Standard call to get message count and if count is 1, get message info.
681 FND_MSG_PUB.Count_And_Get
682 ( p_count => x_msg_count,
683 p_data => x_msg_data
684 );
685 EXCEPTION
686 WHEN FND_API.G_EXC_ERROR THEN
687 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
688 P_API_NAME => L_API_NAME
689 ,P_PKG_NAME => G_PKG_NAME
690 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
691 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
692 ,X_MSG_COUNT => X_MSG_COUNT
693 ,X_MSG_DATA => X_MSG_DATA
694 ,X_RETURN_STATUS => X_RETURN_STATUS);
695 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
696 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
697 P_API_NAME => L_API_NAME
698 ,P_PKG_NAME => G_PKG_NAME
699 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
700 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
701 ,X_MSG_COUNT => X_MSG_COUNT
702 ,X_MSG_DATA => X_MSG_DATA
703 ,X_RETURN_STATUS => X_RETURN_STATUS);
704 WHEN OTHERS THEN
705 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
706 P_API_NAME => L_API_NAME
707 ,P_PKG_NAME => G_PKG_NAME
708 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
709 ,P_SQLCODE => SQLCODE
710 ,P_SQLERRM => SQLERRM
711 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
712 ,X_MSG_COUNT => X_MSG_COUNT
713 ,X_MSG_DATA => X_MSG_DATA
714 ,X_RETURN_STATUS => X_RETURN_STATUS);
715 End Get_product_task;
716 End CSP_PRODUCT_TASK_PUB;