eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.AHL_VWP_PROJ_PROD_PVT dependencies on FND_API

Line 43: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE

39: -- Parameters :
40: --
41: -- Standard IN Parameters :
42: -- p_api_version IN NUMBER Required
43: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
44: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
45: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
46: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
47: -- p_module_type IN VARCHAR2 Default NULL.

Line 44: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE

40: --
41: -- Standard IN Parameters :
42: -- p_api_version IN NUMBER Required
43: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
44: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
45: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
46: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
47: -- p_module_type IN VARCHAR2 Default NULL.
48: --

Line 45: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL

41: -- Standard IN Parameters :
42: -- p_api_version IN NUMBER Required
43: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
44: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
45: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
46: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
47: -- p_module_type IN VARCHAR2 Default NULL.
48: --
49: -- Standard OUT Parameters :

Line 46: -- p_default IN VARCHAR2 Default FND_API.G_TRUE

42: -- p_api_version IN NUMBER Required
43: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
44: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
45: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
46: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
47: -- p_module_type IN VARCHAR2 Default NULL.
48: --
49: -- Standard OUT Parameters :
50: -- x_return_status OUT VARCHAR2 Required

Line 64: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,

60: -- Initial Version 1.0
61: -------------------------------------------------------------------
62: PROCEDURE Push_to_Production
63: (p_api_version IN NUMBER,
64: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
65: p_commit IN VARCHAR2 := Fnd_Api.g_false,
66: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
67: p_module_type IN VARCHAR2 := Null,
68: p_visit_id IN NUMBER,

Line 65: p_commit IN VARCHAR2 := Fnd_Api.g_false,

61: -------------------------------------------------------------------
62: PROCEDURE Push_to_Production
63: (p_api_version IN NUMBER,
64: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
65: p_commit IN VARCHAR2 := Fnd_Api.g_false,
66: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
67: p_module_type IN VARCHAR2 := Null,
68: p_visit_id IN NUMBER,
69: p_release_flag IN VARCHAR2 := 'N',

Line 66: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,

62: PROCEDURE Push_to_Production
63: (p_api_version IN NUMBER,
64: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
65: p_commit IN VARCHAR2 := Fnd_Api.g_false,
66: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
67: p_module_type IN VARCHAR2 := Null,
68: p_visit_id IN NUMBER,
69: p_release_flag IN VARCHAR2 := 'N',
70: p_orig_visit_id IN NUMBER := NULL, -- By yazhou 08/06/04 for TC changes

Line 84: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE

80: -- Parameters :
81: --
82: -- Standard IN Parameters :
83: -- p_api_version IN NUMBER Required
84: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
85: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
86: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
87: -- p_module_type IN VARCHAR2 Default NULL.
88: --

Line 85: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE

81: --
82: -- Standard IN Parameters :
83: -- p_api_version IN NUMBER Required
84: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
85: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
86: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
87: -- p_module_type IN VARCHAR2 Default NULL.
88: --
89: -- Standard OUT Parameters :

Line 86: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL

82: -- Standard IN Parameters :
83: -- p_api_version IN NUMBER Required
84: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
85: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
86: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
87: -- p_module_type IN VARCHAR2 Default NULL.
88: --
89: -- Standard OUT Parameters :
90: -- x_return_status OUT VARCHAR2 Required

Line 104: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,

100: -- Initial Version 1.0 Created by Yazhou
101: -------------------------------------------------------------------
102: PROCEDURE Push_MR_to_Production
103: (p_api_version IN NUMBER,
104: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
105: p_commit IN VARCHAR2 := Fnd_Api.g_false,
106: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
107: p_module_type IN VARCHAR2 := Null,
108: p_visit_id IN NUMBER,

Line 105: p_commit IN VARCHAR2 := Fnd_Api.g_false,

101: -------------------------------------------------------------------
102: PROCEDURE Push_MR_to_Production
103: (p_api_version IN NUMBER,
104: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
105: p_commit IN VARCHAR2 := Fnd_Api.g_false,
106: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
107: p_module_type IN VARCHAR2 := Null,
108: p_visit_id IN NUMBER,
109: p_unit_effectivity_id IN NUMBER,

Line 106: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,

102: PROCEDURE Push_MR_to_Production
103: (p_api_version IN NUMBER,
104: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
105: p_commit IN VARCHAR2 := Fnd_Api.g_false,
106: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
107: p_module_type IN VARCHAR2 := Null,
108: p_visit_id IN NUMBER,
109: p_unit_effectivity_id IN NUMBER,
110: p_release_flag IN VARCHAR2 := 'N',

Line 125: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE

121: -- Parameters :
122: --
123: -- Standard IN Parameters :
124: -- p_api_version IN NUMBER Required
125: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
126: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
127: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
128: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
129: -- p_module_type IN VARCHAR2 Default NULL.

Line 126: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE

122: --
123: -- Standard IN Parameters :
124: -- p_api_version IN NUMBER Required
125: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
126: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
127: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
128: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
129: -- p_module_type IN VARCHAR2 Default NULL.
130: --

Line 127: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL

123: -- Standard IN Parameters :
124: -- p_api_version IN NUMBER Required
125: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
126: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
127: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
128: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
129: -- p_module_type IN VARCHAR2 Default NULL.
130: --
131: -- Standard OUT Parameters :

Line 128: -- p_default IN VARCHAR2 Default FND_API.G_TRUE

124: -- p_api_version IN NUMBER Required
125: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
126: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
127: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
128: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
129: -- p_module_type IN VARCHAR2 Default NULL.
130: --
131: -- Standard OUT Parameters :
132: -- x_return_status OUT VARCHAR2 Required

Line 145: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,

141: -- Initial Version 1.0 29-Jul-2005 Yazhou
142: -------------------------------------------------------------------
143: PROCEDURE Add_MR_to_Project(
144: p_api_version IN NUMBER,
145: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
146: p_commit IN VARCHAR2 := Fnd_Api.g_false,
147: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
148: p_module_type IN VARCHAR2 := Null,
149: p_visit_id IN NUMBER,

Line 146: p_commit IN VARCHAR2 := Fnd_Api.g_false,

142: -------------------------------------------------------------------
143: PROCEDURE Add_MR_to_Project(
144: p_api_version IN NUMBER,
145: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
146: p_commit IN VARCHAR2 := Fnd_Api.g_false,
147: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
148: p_module_type IN VARCHAR2 := Null,
149: p_visit_id IN NUMBER,
150: p_unit_effectivity_id IN NUMBER,

Line 147: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,

143: PROCEDURE Add_MR_to_Project(
144: p_api_version IN NUMBER,
145: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
146: p_commit IN VARCHAR2 := Fnd_Api.g_false,
147: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
148: p_module_type IN VARCHAR2 := Null,
149: p_visit_id IN NUMBER,
150: p_unit_effectivity_id IN NUMBER,
151: x_return_status OUT NOCOPY VARCHAR2,

Line 205: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE

201: -- Parameters :
202: --
203: -- Standard IN Parameters :
204: -- p_api_version IN NUMBER Required
205: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
206: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
207: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
208: -- p_module_type IN VARCHAR2 Default Null
209: --

Line 206: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE

202: --
203: -- Standard IN Parameters :
204: -- p_api_version IN NUMBER Required
205: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
206: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
207: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
208: -- p_module_type IN VARCHAR2 Default Null
209: --
210: -- Standard OUT Parameters :

Line 207: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL

203: -- Standard IN Parameters :
204: -- p_api_version IN NUMBER Required
205: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
206: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
207: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
208: -- p_module_type IN VARCHAR2 Default Null
209: --
210: -- Standard OUT Parameters :
211: -- x_return_status OUT VARCHAR2 Required

Line 226: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,

222: -------------------------------------------------------------------
223:
224: PROCEDURE Push_tasks_to_production(
225: p_api_version IN NUMBER,
226: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
227: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
228: p_module_type IN VARCHAR2 := Null,
229: p_visit_id IN NUMBER,
230: p_tasks_tbl IN Task_Tbl_Type,

Line 227: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,

223:
224: PROCEDURE Push_tasks_to_production(
225: p_api_version IN NUMBER,
226: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
227: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
228: p_module_type IN VARCHAR2 := Null,
229: p_visit_id IN NUMBER,
230: p_tasks_tbl IN Task_Tbl_Type,
231: p_release_flag IN VARCHAR2 := 'N',

Line 302: -- p_commit IN VARCHAR2 Fnd_Api.G_FALSE

298: -- Function : Update the project task start/end dates
299: -- with the workorder schedule start/end dates
300: -- Parameters :
301: -- Standard IN Parameters :
302: -- p_commit IN VARCHAR2 Fnd_Api.G_FALSE
303: --
304: -- Update_Project_Task_Times Parameters :
305: -- p_prd_workorder_tbl IN AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_TBL Required
306: --

Line 317: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,

313: -- 17 April, 2008 Bug#5758813 RNAHATA Initial Version - 1.0
314: -------------------------------------------------------------------
315: PROCEDURE Update_Project_Task_Times
316: ( p_prd_workorder_tbl IN AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_TBL,
317: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
318: x_return_status OUT NOCOPY VARCHAR2,
319: x_msg_count OUT NOCOPY NUMBER,
320: x_msg_data OUT NOCOPY VARCHAR2
321: ) ;

Line 339: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,

335: -- visits and project tasks for all associated visit task
336: --------------------------------------------------------------------
337: PROCEDURE Integrate_to_Projects (
338: p_api_version IN NUMBER,
339: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
340: p_commit IN VARCHAR2 := Fnd_Api.g_false,
341: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
342: p_module_type IN VARCHAR2 := Null,
343: p_visit_id IN NUMBER,

Line 340: p_commit IN VARCHAR2 := Fnd_Api.g_false,

336: --------------------------------------------------------------------
337: PROCEDURE Integrate_to_Projects (
338: p_api_version IN NUMBER,
339: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
340: p_commit IN VARCHAR2 := Fnd_Api.g_false,
341: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
342: p_module_type IN VARCHAR2 := Null,
343: p_visit_id IN NUMBER,
344: x_return_status OUT NOCOPY VARCHAR2,

Line 341: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,

337: PROCEDURE Integrate_to_Projects (
338: p_api_version IN NUMBER,
339: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
340: p_commit IN VARCHAR2 := Fnd_Api.g_false,
341: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
342: p_module_type IN VARCHAR2 := Null,
343: p_visit_id IN NUMBER,
344: x_return_status OUT NOCOPY VARCHAR2,
345: x_msg_count OUT NOCOPY NUMBER,

Line 370: IF Fnd_Api.to_boolean(p_init_msg_list) THEN

366: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
367: END IF;
368:
369: -- Initialize message list if p_init_msg_list is set to TRUE.
370: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
371: Fnd_Msg_Pub.initialize;
372: END IF;
373:
374: -- Initialize API return status to success

Line 375: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

371: Fnd_Msg_Pub.initialize;
372: END IF;
373:
374: -- Initialize API return status to success
375: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
376:
377: -- Standard call to check for call compatibility.
378: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
379: p_api_version,

Line 378: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,

374: -- Initialize API return status to success
375: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
376:
377: -- Standard call to check for call compatibility.
378: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
379: p_api_version,
380: l_api_name,G_PKG_NAME)
381: THEN
382: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;

Line 382: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;

378: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
379: p_api_version,
380: l_api_name,G_PKG_NAME)
381: THEN
382: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
383: END IF;
384:
385: IF (l_log_statement >= l_log_current_level) THEN
386: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit Id= '|| p_visit_id);

Line 437: IF Fnd_Api.To_Boolean ( p_commit ) THEN

433: --
434: -- END of API body.
435: --
436: -- Standard check of p_commit.
437: IF Fnd_Api.To_Boolean ( p_commit ) THEN
438: COMMIT WORK;
439: END IF;
440:
441: Fnd_Msg_Pub.count_and_get(

Line 442: p_encoded => Fnd_Api.g_false,

438: COMMIT WORK;
439: END IF;
440:
441: Fnd_Msg_Pub.count_and_get(
442: p_encoded => Fnd_Api.g_false,
443: p_count => x_msg_count,
444: p_data => x_msg_data
445: );
446:

Line 452: WHEN Fnd_Api.g_exc_error THEN

448: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of PL/SQL procedure');
449: END IF;
450:
451: EXCEPTION
452: WHEN Fnd_Api.g_exc_error THEN
453: ROLLBACK TO Integrate_to_Projects;
454: x_return_status := Fnd_Api.g_ret_sts_error;
455: Fnd_Msg_Pub.count_and_get (
456: p_encoded => Fnd_Api.g_false,

Line 454: x_return_status := Fnd_Api.g_ret_sts_error;

450:
451: EXCEPTION
452: WHEN Fnd_Api.g_exc_error THEN
453: ROLLBACK TO Integrate_to_Projects;
454: x_return_status := Fnd_Api.g_ret_sts_error;
455: Fnd_Msg_Pub.count_and_get (
456: p_encoded => Fnd_Api.g_false,
457: p_count => x_msg_count,
458: p_data => x_msg_data

Line 456: p_encoded => Fnd_Api.g_false,

452: WHEN Fnd_Api.g_exc_error THEN
453: ROLLBACK TO Integrate_to_Projects;
454: x_return_status := Fnd_Api.g_ret_sts_error;
455: Fnd_Msg_Pub.count_and_get (
456: p_encoded => Fnd_Api.g_false,
457: p_count => x_msg_count,
458: p_data => x_msg_data
459: );
460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

456: p_encoded => Fnd_Api.g_false,
457: p_count => x_msg_count,
458: p_data => x_msg_data
459: );
460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
461: ROLLBACK TO Integrate_to_Projects;
462: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
463: Fnd_Msg_Pub.count_and_get (
464: p_encoded => Fnd_Api.g_false,

Line 462: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

458: p_data => x_msg_data
459: );
460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
461: ROLLBACK TO Integrate_to_Projects;
462: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
463: Fnd_Msg_Pub.count_and_get (
464: p_encoded => Fnd_Api.g_false,
465: p_count => x_msg_count,
466: p_data => x_msg_data

Line 464: p_encoded => Fnd_Api.g_false,

460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
461: ROLLBACK TO Integrate_to_Projects;
462: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
463: Fnd_Msg_Pub.count_and_get (
464: p_encoded => Fnd_Api.g_false,
465: p_count => x_msg_count,
466: p_data => x_msg_data
467: );
468: WHEN OTHERS THEN

Line 470: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

466: p_data => x_msg_data
467: );
468: WHEN OTHERS THEN
469: ROLLBACK TO Integrate_to_Projects;
470: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
471: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
472: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
473: END IF;
474: Fnd_Msg_Pub.count_and_get (

Line 475: p_encoded => Fnd_Api.g_false,

471: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
472: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
473: END IF;
474: Fnd_Msg_Pub.count_and_get (
475: p_encoded => Fnd_Api.g_false,
476: p_count => x_msg_count,
477: p_data => x_msg_data
478: );
479: END Integrate_to_Projects;

Line 491: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,

487: --
488: --------------------------------------------------------------------
489: PROCEDURE Add_Task_to_Project(
490: p_api_version IN NUMBER,
491: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
492: p_commit IN VARCHAR2 := Fnd_Api.g_false,
493: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
494: p_module_type IN VARCHAR2 := Null,
495: p_visit_task_id IN NUMBER,

Line 492: p_commit IN VARCHAR2 := Fnd_Api.g_false,

488: --------------------------------------------------------------------
489: PROCEDURE Add_Task_to_Project(
490: p_api_version IN NUMBER,
491: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
492: p_commit IN VARCHAR2 := Fnd_Api.g_false,
493: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
494: p_module_type IN VARCHAR2 := Null,
495: p_visit_task_id IN NUMBER,
496:

Line 493: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,

489: PROCEDURE Add_Task_to_Project(
490: p_api_version IN NUMBER,
491: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
492: p_commit IN VARCHAR2 := Fnd_Api.g_false,
493: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
494: p_module_type IN VARCHAR2 := Null,
495: p_visit_task_id IN NUMBER,
496:
497: x_return_status OUT NOCOPY VARCHAR2,

Line 546: IF Fnd_Api.to_boolean(p_init_msg_list) THEN

542: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.begin','At the start of PLSQL procedure');
543: END IF;
544:
545: -- Initialize message list if p_init_msg_list is set to TRUE.
546: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
547: Fnd_Msg_Pub.initialize;
548: END IF;
549:
550: -- Initialize API return status to success

Line 551: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

547: Fnd_Msg_Pub.initialize;
548: END IF;
549:
550: -- Initialize API return status to success
551: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
552:
553: -- Standard call to check for call compatibility.
554: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
555: p_api_version,

Line 554: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,

550: -- Initialize API return status to success
551: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
552:
553: -- Standard call to check for call compatibility.
554: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
555: p_api_version,
556: L_API_NAME,G_PKG_NAME) THEN
557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
558: END IF;

Line 557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

553: -- Standard call to check for call compatibility.
554: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
555: p_api_version,
556: L_API_NAME,G_PKG_NAME) THEN
557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
558: END IF;
559:
560: IF (l_log_statement >= l_log_current_level) THEN
561: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit Task Id = '|| p_visit_task_id);

Line 595: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

591: 'After calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility. Return Status = ' ||
592: l_return_status);
593: END IF;
594:
595: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
596: IF (l_log_statement >= l_log_current_level) THEN
597: fnd_log.string(l_log_statement,
598: L_DEBUG_KEY,
599: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility.');

Line 601: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

597: fnd_log.string(l_log_statement,
598: L_DEBUG_KEY,
599: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility.');
600: END IF;
601: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
602: RAISE FND_API.G_EXC_ERROR;
603: ELSE
604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
605: END IF;

Line 602: RAISE FND_API.G_EXC_ERROR;

598: L_DEBUG_KEY,
599: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility.');
600: END IF;
601: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
602: RAISE FND_API.G_EXC_ERROR;
603: ELSE
604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
605: END IF;
606: END IF;

Line 604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

600: END IF;
601: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
602: RAISE FND_API.G_EXC_ERROR;
603: ELSE
604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
605: END IF;
606: END IF;
607:
608: IF l_chk_project = 'Y' THEN

Line 643: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

639: fnd_log.string(l_log_statement,
640: L_DEBUG_KEY,
641: 'After calling PA_PROJECT_PUB.check_unique_task_number. p_unique_task_number_flag = ' ||
642: l_project_tsk_flag || ' Return Status = ' || l_return_status);
643: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
644: fnd_log.string(l_log_statement,
645: L_DEBUG_KEY,
646: 'Errors from PA_PROJECT_PUB.check_unique_task_number. Message count: ' ||
647: l_msg_count || ', message data: ' || l_msg_data);

Line 670: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

666: IF (l_log_statement >= l_log_current_level) THEN
667: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling -- Check_Unique_Task_Reference l_proj_ref_flag = ' || l_proj_ref_flag);
668: END IF;
669:
670: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
671: IF (l_log_statement >= l_log_current_level) THEN
672: fnd_log.string(l_log_statement,
673: L_DEBUG_KEY,
674: 'Errors from PA_PROJECT_PUB.check_unique_task_number. Message count: ' ||

Line 677: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN

673: L_DEBUG_KEY,
674: 'Errors from PA_PROJECT_PUB.check_unique_task_number. Message count: ' ||
675: l_msg_count || ', message data: ' || l_msg_data);
676: END IF;
677: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
678: RAISE FND_API.G_EXC_ERROR;
679: ELSE
680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
681: END IF;

Line 678: RAISE FND_API.G_EXC_ERROR;

674: 'Errors from PA_PROJECT_PUB.check_unique_task_number. Message count: ' ||
675: l_msg_count || ', message data: ' || l_msg_data);
676: END IF;
677: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
678: RAISE FND_API.G_EXC_ERROR;
679: ELSE
680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
681: END IF;
682: END IF;

Line 680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

676: END IF;
677: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
678: RAISE FND_API.G_EXC_ERROR;
679: ELSE
680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
681: END IF;
682: END IF;
683:
684: IF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'Y' THEN

Line 742: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;

738: IF (l_log_statement >= l_log_current_level) THEN
739: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Another Error - '||l_msg_data);
740: END IF;
741: END IF;
742: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
743: END IF;
744:
745: IF l_return_status = 'S' THEN
746: UPDATE AHL_VISIT_TASKS_B

Line 753: x_return_status := Fnd_Api.g_ret_sts_error;

749: WHERE VISIT_TASK_ID = p_visit_task_id;
750: END IF;
751:
752: ELSIF l_project_tsk_flag = 'N' AND l_proj_ref_flag = 'Y' THEN
753: x_return_status := Fnd_Api.g_ret_sts_error;
754: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
755: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
756: Fnd_Msg_Pub.ADD;
757: END IF;

Line 759: x_return_status := Fnd_Api.g_ret_sts_error;

755: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
756: Fnd_Msg_Pub.ADD;
757: END IF;
758: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
759: x_return_status := Fnd_Api.g_ret_sts_error;
760: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
761: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
762: Fnd_Msg_Pub.ADD;
763: END IF;

Line 765: x_return_status := Fnd_Api.g_ret_sts_error;

761: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
762: Fnd_Msg_Pub.ADD;
763: END IF;
764: ELSE
765: x_return_status := Fnd_Api.g_ret_sts_error;
766: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
767: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TASK_NOT_UNIQUE');
768: Fnd_Msg_Pub.ADD;
769: END IF;

Line 780: IF Fnd_Api.To_Boolean (p_commit) THEN

776: -- END of API body.
777: --
778: -- Standard check of p_commit.
779:
780: IF Fnd_Api.To_Boolean (p_commit) THEN
781: COMMIT WORK;
782: END IF;
783:
784: Fnd_Msg_Pub.count_and_get(

Line 785: p_encoded => Fnd_Api.g_false,

781: COMMIT WORK;
782: END IF;
783:
784: Fnd_Msg_Pub.count_and_get(
785: p_encoded => Fnd_Api.g_false,
786: p_count => x_msg_count,
787: p_data => x_msg_data
788: );
789:

Line 795: WHEN Fnd_Api.g_exc_error THEN

791: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of the procedure');
792: END IF;
793:
794: EXCEPTION
795: WHEN Fnd_Api.g_exc_error THEN
796: ROLLBACK TO Add_Task_to_Project;
797: x_return_status := Fnd_Api.g_ret_sts_error;
798: Fnd_Msg_Pub.count_and_get (
799: p_encoded => Fnd_Api.g_false,

Line 797: x_return_status := Fnd_Api.g_ret_sts_error;

793:
794: EXCEPTION
795: WHEN Fnd_Api.g_exc_error THEN
796: ROLLBACK TO Add_Task_to_Project;
797: x_return_status := Fnd_Api.g_ret_sts_error;
798: Fnd_Msg_Pub.count_and_get (
799: p_encoded => Fnd_Api.g_false,
800: p_count => x_msg_count,
801: p_data => x_msg_data

Line 799: p_encoded => Fnd_Api.g_false,

795: WHEN Fnd_Api.g_exc_error THEN
796: ROLLBACK TO Add_Task_to_Project;
797: x_return_status := Fnd_Api.g_ret_sts_error;
798: Fnd_Msg_Pub.count_and_get (
799: p_encoded => Fnd_Api.g_false,
800: p_count => x_msg_count,
801: p_data => x_msg_data
802: );
803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

799: p_encoded => Fnd_Api.g_false,
800: p_count => x_msg_count,
801: p_data => x_msg_data
802: );
803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
804: ROLLBACK TO Add_Task_to_Project;
805: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
806: Fnd_Msg_Pub.count_and_get (
807: p_encoded => Fnd_Api.g_false,

Line 805: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

801: p_data => x_msg_data
802: );
803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
804: ROLLBACK TO Add_Task_to_Project;
805: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
806: Fnd_Msg_Pub.count_and_get (
807: p_encoded => Fnd_Api.g_false,
808: p_count => x_msg_count,
809: p_data => x_msg_data

Line 807: p_encoded => Fnd_Api.g_false,

803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
804: ROLLBACK TO Add_Task_to_Project;
805: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
806: Fnd_Msg_Pub.count_and_get (
807: p_encoded => Fnd_Api.g_false,
808: p_count => x_msg_count,
809: p_data => x_msg_data
810: );
811: WHEN OTHERS THEN

Line 813: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

809: p_data => x_msg_data
810: );
811: WHEN OTHERS THEN
812: ROLLBACK TO Add_Task_to_Project;
813: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
814: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
815: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
816: END IF;
817: Fnd_Msg_Pub.count_and_get (

Line 818: p_encoded => Fnd_Api.g_false,

814: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
815: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
816: END IF;
817: Fnd_Msg_Pub.count_and_get (
818: p_encoded => Fnd_Api.g_false,
819: p_count => x_msg_count,
820: p_data => x_msg_data
821: );
822: END Add_Task_to_Project;

Line 869: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

865: c_visit_rec c_visit%ROWTYPE;
866:
867: BEGIN
868:
869: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
870:
871: IF (l_log_procedure >= l_log_current_level) THEN
872: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.begin','At the start of the procedure');
873: END IF;

Line 901: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN

897: L_DEBUG_KEY,
898: 'After calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility. Return Status = ' || l_return_status);
899: END IF;
900:
901: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
902: IF (l_log_statement >= l_log_current_level) THEN
903: fnd_log.string(l_log_statement,
904: L_DEBUG_KEY,
905: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');

Line 908: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

904: L_DEBUG_KEY,
905: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
906: END IF;
907: x_return_status := l_return_status;
908: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
909: RAISE FND_API.G_EXC_ERROR;
910: ELSE
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: END IF;

Line 909: RAISE FND_API.G_EXC_ERROR;

905: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
906: END IF;
907: x_return_status := l_return_status;
908: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
909: RAISE FND_API.G_EXC_ERROR;
910: ELSE
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: END IF;
913: END IF;

Line 911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

907: x_return_status := l_return_status;
908: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
909: RAISE FND_API.G_EXC_ERROR;
910: ELSE
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: END IF;
913: END IF;
914:
915: IF l_chk_project = 'Y' THEN

Line 945: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

941: 'After calling PA_PROJECT_PUB.check_delete_task_ok. Return Status = ' ||
942: l_return_status || ', delete task flag = ' || l_del_task_flag);
943: END IF;
944:
945: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
946: IF (l_log_statement >= l_log_current_level) THEN
947: fnd_log.string(l_log_statement,
948: L_DEBUG_KEY,
949: 'Errors from PA_PROJECT_PUB.check_delete_task_ok. Message count: ' ||

Line 953: RAISE FND_API.G_EXC_ERROR;

949: 'Errors from PA_PROJECT_PUB.check_delete_task_ok. Message count: ' ||
950: l_msg_count || ', message data: ' || l_msg_data);
951: END IF;
952: x_return_status := l_return_status;
953: RAISE FND_API.G_EXC_ERROR;
954: ELSE
955: IF l_del_task_flag = 'Y' THEN
956: IF (l_log_statement >= l_log_current_level) THEN
957: fnd_log.string(l_log_statement,

Line 986: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

982: 'After calling PA_PROJECT_PUB.delete_task. Return Status = ' ||
983: l_return_status);
984: END IF;
985:
986: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
987: IF (l_log_statement >= l_log_current_level) THEN
988: fnd_log.string(l_log_statement,
989: L_DEBUG_KEY,
990: 'Errors from PA_PROJECT_PUB.delete_task. Message count: ' ||

Line 993: x_return_status := Fnd_Api.g_ret_sts_error;

989: L_DEBUG_KEY,
990: 'Errors from PA_PROJECT_PUB.delete_task. Message count: ' ||
991: l_msg_count || ', message data: ' || l_msg_data);
992: END IF;
993: x_return_status := Fnd_Api.g_ret_sts_error;
994: RAISE FND_API.G_EXC_ERROR;
995: END IF;
996: END IF;
997: END IF;

Line 994: RAISE FND_API.G_EXC_ERROR;

990: 'Errors from PA_PROJECT_PUB.delete_task. Message count: ' ||
991: l_msg_count || ', message data: ' || l_msg_data);
992: END IF;
993: x_return_status := Fnd_Api.g_ret_sts_error;
994: RAISE FND_API.G_EXC_ERROR;
995: END IF;
996: END IF;
997: END IF;
998: END IF;

Line 1143: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

1139: get_prj_route_dtls_rec get_prj_route_dtls_cur%ROWTYPE;
1140:
1141: BEGIN
1142: -- Initialize API return status to success
1143: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1144:
1145: IF (l_log_procedure >= l_log_current_level) THEN
1146: fnd_log.string(l_log_procedure,
1147: L_DEBUG_KEY ||'.begin',

Line 1161: RAISE FND_API.G_EXC_ERROR;

1157: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1158: Fnd_Message.set_name ('AHL', 'AHL_PROJECT_STATUS_NOT_SET');
1159: Fnd_Msg_Pub.ADD;
1160: END IF;
1161: RAISE FND_API.G_EXC_ERROR;
1162: END IF;
1163: */
1164: /*sowsubra - ends */
1165:

Line 1186: RAISE Fnd_Api.G_EXC_ERROR;

1182: Fnd_Message.SET_NAME('AHL','AHL_PRJ_NEW_TXN_DISABLED');
1183: Fnd_Message.SET_TOKEN('PRJ_STATUS', l_project_status_code);
1184: Fnd_Msg_Pub.ADD;
1185: END IF;
1186: RAISE Fnd_Api.G_EXC_ERROR;
1187: END IF;
1188: -- End changes by rnahata for Bug 6334682
1189:
1190: OPEN c_Visit(p_visit_id);

Line 1195: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE

1191: FETCH c_visit INTO c_visit_rec;
1192: CLOSE c_Visit;
1193:
1194: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
1195: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
1196: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
1197: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
1198:
1199: -- Post 11.5.10

Line 1197: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN

1193:
1194: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
1195: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
1196: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
1197: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
1198:
1199: -- Post 11.5.10
1200: -- RROY
1201: IF c_visit_rec.project_template_id IS NOT NULL THEN

Line 1310: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

1306: L_DEBUG_KEY,
1307: 'After calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility. Return Status = ' || l_return_status);
1308: END IF;
1309:
1310: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1311: IF (l_log_statement >= l_log_current_level) THEN
1312: fnd_log.string(l_log_statement,
1313: L_DEBUG_KEY,
1314: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');

Line 1317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

1313: L_DEBUG_KEY,
1314: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
1315: END IF;
1316: x_return_status := l_return_status;
1317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1318: RAISE FND_API.G_EXC_ERROR;
1319: ELSE
1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1321: END IF;

Line 1318: RAISE FND_API.G_EXC_ERROR;

1314: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
1315: END IF;
1316: x_return_status := l_return_status;
1317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1318: RAISE FND_API.G_EXC_ERROR;
1319: ELSE
1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1321: END IF;
1322: END IF;

Line 1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1316: x_return_status := l_return_status;
1317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1318: RAISE FND_API.G_EXC_ERROR;
1319: ELSE
1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1321: END IF;
1322: END IF;
1323:
1324: IF l_chk_project = 'Y' THEN

Line 1348: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

1344: L_DEBUG_KEY,
1345: 'Returned from PA_PROJECT_PUB.check_unique_project_reference: p_unique_project_ref_flag = ' || l_project_flag || ', Return Status = ' || l_return_status );
1346: END IF;
1347:
1348: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1349: IF (l_log_statement >= l_log_current_level) THEN
1350: fnd_log.string(l_log_statement,
1351: L_DEBUG_KEY,
1352: 'Errors from PA_PROJECT_PUB.check_unique_project_reference. Message count: ' ||

Line 1355: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

1351: L_DEBUG_KEY,
1352: 'Errors from PA_PROJECT_PUB.check_unique_project_reference. Message count: ' ||
1353: l_msg_count || ', message data: ' || l_msg_data);
1354: END IF;
1355: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1356: RAISE FND_API.G_EXC_ERROR;
1357: ELSE
1358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1359: END IF;

Line 1356: RAISE FND_API.G_EXC_ERROR;

1352: 'Errors from PA_PROJECT_PUB.check_unique_project_reference. Message count: ' ||
1353: l_msg_count || ', message data: ' || l_msg_data);
1354: END IF;
1355: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1356: RAISE FND_API.G_EXC_ERROR;
1357: ELSE
1358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1359: END IF;
1360: END IF;

Line 1358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1354: END IF;
1355: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1356: RAISE FND_API.G_EXC_ERROR;
1357: ELSE
1358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1359: END IF;
1360: END IF;
1361:
1362: IF l_project_flag = 'Y' THEN

Line 1393: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1389: 'After calling PA_PROJECT_PUB.create_project. Project_Id = ' ||
1390: l_project_out.pa_project_id || ' Return Status = ' || x_return_status);
1391: END IF;
1392:
1393: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1394: IF (l_log_statement >= l_log_current_level) THEN
1395: fnd_log.string(l_log_statement,
1396: L_DEBUG_KEY,
1397: 'Errors from PA_PROJECT_PUB.create_project. Message count: ' ||

Line 1400: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

1396: L_DEBUG_KEY,
1397: 'Errors from PA_PROJECT_PUB.create_project. Message count: ' ||
1398: l_msg_count || ', message data: ' || l_msg_data);
1399: END IF;
1400: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1401: RAISE FND_API.G_EXC_ERROR;
1402: ELSE
1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1404: END IF;

Line 1401: RAISE FND_API.G_EXC_ERROR;

1397: 'Errors from PA_PROJECT_PUB.create_project. Message count: ' ||
1398: l_msg_count || ', message data: ' || l_msg_data);
1399: END IF;
1400: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1401: RAISE FND_API.G_EXC_ERROR;
1402: ELSE
1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1404: END IF;
1405: END IF;

Line 1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1399: END IF;
1400: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1401: RAISE FND_API.G_EXC_ERROR;
1402: ELSE
1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1404: END IF;
1405: END IF;
1406:
1407: IF x_return_status = 'S' THEN

Line 1457: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

1453: x_msg_count => l_msg_count,
1454: x_msg_data => l_msg_data,
1455: p_param_data => l_param_data);
1456:
1457: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1458: IF (l_log_statement >= l_log_current_level) THEN
1459: fnd_log.string(l_log_statement,
1460: L_DEBUG_KEY,
1461: 'Errors from PJM_PROJECT_PARAM_PUB.Create_Project_Parameter. Message count: ' ||

Line 1465: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

1461: 'Errors from PJM_PROJECT_PARAM_PUB.Create_Project_Parameter. Message count: ' ||
1462: l_msg_count || ', message data: ' || l_msg_data);
1463: END IF;
1464:
1465: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1466: RAISE FND_API.G_EXC_ERROR;
1467: ELSE
1468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1469: END IF;

Line 1466: RAISE FND_API.G_EXC_ERROR;

1462: l_msg_count || ', message data: ' || l_msg_data);
1463: END IF;
1464:
1465: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1466: RAISE FND_API.G_EXC_ERROR;
1467: ELSE
1468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1469: END IF;
1470: END IF;

Line 1468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1464:
1465: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1466: RAISE FND_API.G_EXC_ERROR;
1467: ELSE
1468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1469: END IF;
1470: END IF;
1471: -- RROY
1472: IF l_task_out.COUNT > 0 THEN

Line 1497: x_return_status := Fnd_Api.g_ret_sts_error;

1493: END LOOP;
1494: END IF; -- End of l_task_out.COUNT
1495: END IF; -- End of x_return_status = 'S'
1496: ELSE -- Else of l_project_flag = 'Y'
1497: x_return_status := Fnd_Api.g_ret_sts_error;
1498: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1499: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJECT_NOT_UNIQUE');
1500: Fnd_Msg_Pub.ADD;
1501: END IF;

Line 1504: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN

1500: Fnd_Msg_Pub.ADD;
1501: END IF;
1502: END IF; -- End of l_project_flag = 'Y'
1503: END IF; --- End of l_chk_project = 'Y'
1504: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
1505: x_return_status := Fnd_Api.g_ret_sts_error;
1506: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1507: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
1508: Fnd_Msg_Pub.ADD;

Line 1505: x_return_status := Fnd_Api.g_ret_sts_error;

1501: END IF;
1502: END IF; -- End of l_project_flag = 'Y'
1503: END IF; --- End of l_chk_project = 'Y'
1504: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
1505: x_return_status := Fnd_Api.g_ret_sts_error;
1506: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1507: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
1508: Fnd_Msg_Pub.ADD;
1509: END IF;

Line 1528: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,

1524: -- To update Project status to CLOSED when visit is set as Closed/Canceled
1525: --------------------------------------------------------------------
1526: PROCEDURE Update_Project(
1527: p_api_version IN NUMBER,
1528: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1529: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1530: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1531: p_module_type IN VARCHAR2 := Null,
1532: p_visit_id IN NUMBER,

Line 1529: p_commit IN VARCHAR2 := Fnd_Api.g_false,

1525: --------------------------------------------------------------------
1526: PROCEDURE Update_Project(
1527: p_api_version IN NUMBER,
1528: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1529: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1530: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1531: p_module_type IN VARCHAR2 := Null,
1532: p_visit_id IN NUMBER,
1533:

Line 1530: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,

1526: PROCEDURE Update_Project(
1527: p_api_version IN NUMBER,
1528: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1529: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1530: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1531: p_module_type IN VARCHAR2 := Null,
1532: p_visit_id IN NUMBER,
1533:
1534: x_return_status OUT NOCOPY VARCHAR2,

Line 1679: IF Fnd_Api.to_boolean(p_init_msg_list) THEN

1675: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
1676: END IF;
1677:
1678: -- Initialize message list if p_init_msg_list is set to TRUE.
1679: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
1680: Fnd_Msg_Pub.initialize;
1681: END IF;
1682:
1683: -- Initialize API return status to success

Line 1684: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

1680: Fnd_Msg_Pub.initialize;
1681: END IF;
1682:
1683: -- Initialize API return status to success
1684: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1685:
1686: -- Standard call to check for call compatibility.
1687: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1688: p_api_version,

Line 1687: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,

1683: -- Initialize API return status to success
1684: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1685:
1686: -- Standard call to check for call compatibility.
1687: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1688: p_api_version,
1689: l_api_name,G_PKG_NAME)
1690: THEN
1691: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;

Line 1691: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;

1687: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1688: p_api_version,
1689: l_api_name,G_PKG_NAME)
1690: THEN
1691: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1692: END IF;
1693:
1694: -- To check Project responsibilites
1695: -- Post 11.5.10

Line 1712: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN

1708: L_DEBUG_KEY,
1709: 'After calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility. Return Status = ' || l_return_status);
1710: END IF;
1711:
1712: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
1713: IF (l_log_statement >= l_log_current_level) THEN
1714: fnd_log.string(l_log_statement,
1715: L_DEBUG_KEY,
1716: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');

Line 1719: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

1715: L_DEBUG_KEY,
1716: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
1717: END IF;
1718: x_return_status := l_return_status;
1719: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1720: RAISE FND_API.G_EXC_ERROR;
1721: ELSE
1722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1723: END IF;

Line 1720: RAISE FND_API.G_EXC_ERROR;

1716: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
1717: END IF;
1718: x_return_status := l_return_status;
1719: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1720: RAISE FND_API.G_EXC_ERROR;
1721: ELSE
1722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1723: END IF;
1724: END IF;

Line 1722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1718: x_return_status := l_return_status;
1719: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1720: RAISE FND_API.G_EXC_ERROR;
1721: ELSE
1722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1723: END IF;
1724: END IF;
1725:
1726: IF l_chk_project = 'Y' THEN

Line 1736: IF p_module_type = 'DEL' AND (c_visit_rec.start_date_time is null OR c_visit_rec.start_date_time =Fnd_Api.G_MISS_DATE) then

1732: OPEN c_proj_status_code(p_visit_id);
1733: FETCH c_proj_status_code INTO l_prj_status_code_fdb;
1734: CLOSE c_proj_status_code;
1735:
1736: IF p_module_type = 'DEL' AND (c_visit_rec.start_date_time is null OR c_visit_rec.start_date_time =Fnd_Api.G_MISS_DATE) then
1737: c_visit_rec.start_date_time := SYSDATE;
1738: END IF;
1739:
1740: IF (c_visit_rec.START_DATE_TIME IS NOT NULL

Line 1741: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE

1737: c_visit_rec.start_date_time := SYSDATE;
1738: END IF;
1739:
1740: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
1741: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
1742: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
1743: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
1744:
1745: IF c_visit_rec.project_template_id IS NOT NULL THEN

Line 1743: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN

1739:
1740: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
1741: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
1742: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
1743: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
1744:
1745: IF c_visit_rec.project_template_id IS NOT NULL THEN
1746: CREATED_FROM_PROJECT_ID := c_visit_rec.project_template_id;
1747: ELSE

Line 1869: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1865: IF (l_log_statement >= l_log_current_level) THEN
1866: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.UPDATE_PROJECT - l_return_status = '||l_return_status);
1867: END IF;
1868:
1869: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1870: IF (l_log_statement >= l_log_current_level) THEN
1871: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from PA_PROJECT_PUB.UPDATE_PROJECT - l_msg_count = '||l_msg_count);
1872: END IF;
1873: RAISE Fnd_Api.g_exc_error;

Line 1873: RAISE Fnd_Api.g_exc_error;

1869: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1870: IF (l_log_statement >= l_log_current_level) THEN
1871: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from PA_PROJECT_PUB.UPDATE_PROJECT - l_msg_count = '||l_msg_count);
1872: END IF;
1873: RAISE Fnd_Api.g_exc_error;
1874: END IF;
1875:
1876: -- If the Visit Organisation is chnaged after costing
1877: -- need to set pjm paramters for the new org if it doesnot exist.

Line 1915: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

1911: x_msg_count => l_msg_count,
1912: x_msg_data => l_msg_data,
1913: p_param_data => l_param_data);
1914:
1915: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1916: CLOSE c_pjm_param;
1917: RAISE FND_API.G_EXC_ERROR;
1918: END IF;
1919: -- RROY

Line 1917: RAISE FND_API.G_EXC_ERROR;

1913: p_param_data => l_param_data);
1914:
1915: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1916: CLOSE c_pjm_param;
1917: RAISE FND_API.G_EXC_ERROR;
1918: END IF;
1919: -- RROY
1920: END IF;
1921: CLOSE c_pjm_param;

Line 1942: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN

1938: AND PROJECT_TASK_ID is NULL;
1939: END LOOP;
1940: CLOSE c_task_proj;
1941: END IF;
1942: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
1943: x_return_status := Fnd_Api.g_ret_sts_error;
1944: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1945: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
1946: Fnd_Msg_Pub.ADD;

Line 1943: x_return_status := Fnd_Api.g_ret_sts_error;

1939: END LOOP;
1940: CLOSE c_task_proj;
1941: END IF;
1942: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
1943: x_return_status := Fnd_Api.g_ret_sts_error;
1944: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1945: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
1946: Fnd_Msg_Pub.ADD;
1947: END IF;

Line 1957: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

1953: l_msg_count := Fnd_Msg_Pub.count_msg;
1954:
1955: IF l_msg_count > 0 THEN
1956: X_msg_count := l_msg_count;
1957: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1958: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1959: END IF;
1960:
1961: IF (l_log_procedure >= l_log_current_level) THEN

Line 1958: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;

1954:
1955: IF l_msg_count > 0 THEN
1956: X_msg_count := l_msg_count;
1957: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1958: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1959: END IF;
1960:
1961: IF (l_log_procedure >= l_log_current_level) THEN
1962: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of the procedure');

Line 1966: WHEN FND_API.G_EXC_ERROR THEN

1962: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of the procedure');
1963: END IF;
1964:
1965: EXCEPTION
1966: WHEN FND_API.G_EXC_ERROR THEN
1967: x_return_status := FND_API.G_RET_STS_ERROR;
1968: ROLLBACK TO Update_Project;
1969: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1970: p_data => x_msg_data,

Line 1967: x_return_status := FND_API.G_RET_STS_ERROR;

1963: END IF;
1964:
1965: EXCEPTION
1966: WHEN FND_API.G_EXC_ERROR THEN
1967: x_return_status := FND_API.G_RET_STS_ERROR;
1968: ROLLBACK TO Update_Project;
1969: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1970: p_data => x_msg_data,
1971: p_encoded => fnd_api.g_false);

Line 1971: p_encoded => fnd_api.g_false);

1967: x_return_status := FND_API.G_RET_STS_ERROR;
1968: ROLLBACK TO Update_Project;
1969: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1970: p_data => x_msg_data,
1971: p_encoded => fnd_api.g_false);
1972:
1973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1975: ROLLBACK TO Update_Project;

Line 1973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1969: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1970: p_data => x_msg_data,
1971: p_encoded => fnd_api.g_false);
1972:
1973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1975: ROLLBACK TO Update_Project;
1976: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1977: p_data => x_msg_data,

Line 1974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1970: p_data => x_msg_data,
1971: p_encoded => fnd_api.g_false);
1972:
1973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1975: ROLLBACK TO Update_Project;
1976: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1977: p_data => x_msg_data,
1978: p_encoded => fnd_api.g_false);

Line 1978: p_encoded => fnd_api.g_false);

1974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1975: ROLLBACK TO Update_Project;
1976: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1977: p_data => x_msg_data,
1978: p_encoded => fnd_api.g_false);
1979:
1980: WHEN OTHERS THEN
1981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1982: ROLLBACK TO Update_Project;

Line 1981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1977: p_data => x_msg_data,
1978: p_encoded => fnd_api.g_false);
1979:
1980: WHEN OTHERS THEN
1981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1982: ROLLBACK TO Update_Project;
1983: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1984: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1985: p_procedure_name => 'Update_Project',

Line 1990: p_encoded => fnd_api.g_false);

1986: p_error_text => SUBSTR(SQLERRM,1,500));
1987: END IF;
1988: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1989: p_data => x_msg_data,
1990: p_encoded => fnd_api.g_false);
1991:
1992: END Update_Project;
1993:
1994: --------------------------------------------------------------------

Line 2003: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,

1999: -- To delete Project and its tasks if visit in VWP is deleted
2000: --------------------------------------------------------------------
2001: PROCEDURE Delete_Project(
2002: p_api_version IN NUMBER,
2003: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2004: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2005: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2006: p_module_type IN VARCHAR2 := Null,
2007: p_visit_id IN NUMBER,

Line 2004: p_commit IN VARCHAR2 := Fnd_Api.g_false,

2000: --------------------------------------------------------------------
2001: PROCEDURE Delete_Project(
2002: p_api_version IN NUMBER,
2003: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2004: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2005: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2006: p_module_type IN VARCHAR2 := Null,
2007: p_visit_id IN NUMBER,
2008: x_return_status OUT NOCOPY VARCHAR2,

Line 2005: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,

2001: PROCEDURE Delete_Project(
2002: p_api_version IN NUMBER,
2003: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2004: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2005: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2006: p_module_type IN VARCHAR2 := Null,
2007: p_visit_id IN NUMBER,
2008: x_return_status OUT NOCOPY VARCHAR2,
2009: x_msg_count OUT NOCOPY NUMBER,

Line 2050: IF Fnd_Api.to_boolean(p_init_msg_list)THEN

2046: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.begin','At the start of the procedure');
2047: END IF;
2048:
2049: -- Initialize message list if p_init_msg_list is set to TRUE.
2050: IF Fnd_Api.to_boolean(p_init_msg_list)THEN
2051: Fnd_Msg_Pub.initialize;
2052: END IF;
2053:
2054: -- Initialize API return status to success

Line 2055: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

2051: Fnd_Msg_Pub.initialize;
2052: END IF;
2053:
2054: -- Initialize API return status to success
2055: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2056:
2057: -- Standard call to check for call compatibility.
2058: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2059: p_api_version,

Line 2058: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,

2054: -- Initialize API return status to success
2055: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2056:
2057: -- Standard call to check for call compatibility.
2058: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2059: p_api_version,
2060: L_API_NAME,G_PKG_NAME) THEN
2061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2062: END IF;

Line 2061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2057: -- Standard call to check for call compatibility.
2058: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2059: p_api_version,
2060: L_API_NAME,G_PKG_NAME) THEN
2061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2062: END IF;
2063:
2064: IF (l_log_statement >= l_log_current_level) THEN
2065: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit Id=' || p_visit_id);

Line 2079: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN

2075: AHL_VWP_RULES_PVT.Check_Proj_Responsibility
2076: (x_check_project => l_chk_project,
2077: x_return_status => l_return_status);
2078:
2079: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2080: x_return_status := l_return_status;
2081: RAISE G_EXC_ERROR;
2082: END IF;
2083:

Line 2093: RAISE Fnd_Api.G_EXC_ERROR;

2089: IF l_count > 0 THEN -- merge process for 11.5 10 bug# 3470801 fix on CMRDV10P
2090: Fnd_Message.SET_NAME('AHL','AHL_VWP_PROJ_PJM_PARA');
2091: Fnd_Message.SET_TOKEN('VISIT_NUMBER', c_visit_rec.Visit_Number);
2092: Fnd_Msg_Pub.ADD;
2093: RAISE Fnd_Api.G_EXC_ERROR;
2094: ELSE
2095: IF (l_log_statement >= l_log_current_level) THEN
2096: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling : PA_PROJECT_PUB.CHECK_DELETE_PROJECT_OK');
2097: END IF;

Line 2143: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2139: IF (l_log_statement >= l_log_current_level) THEN
2140: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.DELETE_PROJECT - l_return_status = '||l_return_status);
2141: END IF;
2142:
2143: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2144: IF (l_log_statement >= l_log_current_level) THEN
2145: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from PA_PROJECT_PUB.DELETE_PROJECT API : '|| x_msg_count );
2146: END IF;
2147: RAISE Fnd_Api.g_exc_error;

Line 2147: RAISE Fnd_Api.g_exc_error;

2143: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2144: IF (l_log_statement >= l_log_current_level) THEN
2145: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from PA_PROJECT_PUB.DELETE_PROJECT API : '|| x_msg_count );
2146: END IF;
2147: RAISE Fnd_Api.g_exc_error;
2148: END IF;
2149: END IF;
2150: END IF;
2151: END IF;

Line 2159: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

2155: l_msg_count := Fnd_Msg_Pub.count_msg;
2156:
2157: IF l_msg_count > 0 THEN
2158: X_msg_count := l_msg_count;
2159: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2160: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2161: END IF;
2162:
2163: IF (l_log_procedure >= l_log_current_level) THEN

Line 2160: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;

2156:
2157: IF l_msg_count > 0 THEN
2158: X_msg_count := l_msg_count;
2159: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2160: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2161: END IF;
2162:
2163: IF (l_log_procedure >= l_log_current_level) THEN
2164: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of the procedure');

Line 2168: WHEN FND_API.G_EXC_ERROR THEN

2164: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of the procedure');
2165: END IF;
2166:
2167: EXCEPTION
2168: WHEN FND_API.G_EXC_ERROR THEN
2169: x_return_status := FND_API.G_RET_STS_ERROR;
2170: ROLLBACK TO Delete_Project;
2171: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
2172: p_data => x_msg_data,

Line 2169: x_return_status := FND_API.G_RET_STS_ERROR;

2165: END IF;
2166:
2167: EXCEPTION
2168: WHEN FND_API.G_EXC_ERROR THEN
2169: x_return_status := FND_API.G_RET_STS_ERROR;
2170: ROLLBACK TO Delete_Project;
2171: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
2172: p_data => x_msg_data,
2173: p_encoded => fnd_api.g_false);

Line 2173: p_encoded => fnd_api.g_false);

2169: x_return_status := FND_API.G_RET_STS_ERROR;
2170: ROLLBACK TO Delete_Project;
2171: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
2172: p_data => x_msg_data,
2173: p_encoded => fnd_api.g_false);
2174:
2175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2177: ROLLBACK TO Delete_Project;

Line 2175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2171: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
2172: p_data => x_msg_data,
2173: p_encoded => fnd_api.g_false);
2174:
2175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2177: ROLLBACK TO Delete_Project;
2178: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
2179: p_data => x_msg_data,

Line 2176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2172: p_data => x_msg_data,
2173: p_encoded => fnd_api.g_false);
2174:
2175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2177: ROLLBACK TO Delete_Project;
2178: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
2179: p_data => x_msg_data,
2180: p_encoded => fnd_api.g_false);

Line 2180: p_encoded => fnd_api.g_false);

2176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2177: ROLLBACK TO Delete_Project;
2178: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
2179: p_data => x_msg_data,
2180: p_encoded => fnd_api.g_false);
2181:
2182: WHEN OTHERS THEN
2183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2184: ROLLBACK TO Delete_Project;

Line 2183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2179: p_data => x_msg_data,
2180: p_encoded => fnd_api.g_false);
2181:
2182: WHEN OTHERS THEN
2183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2184: ROLLBACK TO Delete_Project;
2185: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2186: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2187: p_procedure_name => 'Delete_Project',

Line 2192: p_encoded => fnd_api.g_false);

2188: p_error_text => SUBSTR(SQLERRM,1,500));
2189: END IF;
2190: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
2191: p_data => x_msg_data,
2192: p_encoded => fnd_api.g_false);
2193: END Delete_Project;
2194:
2195: --****************************************************************--
2196: --------------------------------------------------------------------

Line 2371: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,

2367: --------------------------------------------------------------------
2368: PROCEDURE Validate_Before_Production
2369: (
2370: p_api_version IN NUMBER,
2371: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2372: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2373: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2374: p_module_type IN VARCHAR2 := 'JSP',
2375: p_visit_id IN NUMBER,

Line 2372: p_commit IN VARCHAR2 := Fnd_Api.g_false,

2368: PROCEDURE Validate_Before_Production
2369: (
2370: p_api_version IN NUMBER,
2371: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2372: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2373: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2374: p_module_type IN VARCHAR2 := 'JSP',
2375: p_visit_id IN NUMBER,
2376:

Line 2373: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,

2369: (
2370: p_api_version IN NUMBER,
2371: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2372: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2373: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2374: p_module_type IN VARCHAR2 := 'JSP',
2375: p_visit_id IN NUMBER,
2376:
2377: x_error_tbl OUT NOCOPY Error_Tbl_Type,

Line 2620: IF Fnd_Api.to_boolean(p_init_msg_list) THEN

2616: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
2617: END IF;
2618:
2619: -- Initialize message list if p_init_msg_list is set to TRUE.
2620: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
2621: Fnd_Msg_Pub.initialize;
2622: END IF;
2623:
2624: -- Initialize API return status to success

Line 2625: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

2621: Fnd_Msg_Pub.initialize;
2622: END IF;
2623:
2624: -- Initialize API return status to success
2625: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2626:
2627: -- Standard call to check for call compatibility.
2628: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2629: p_api_version,

Line 2628: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,

2624: -- Initialize API return status to success
2625: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2626:
2627: -- Standard call to check for call compatibility.
2628: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2629: p_api_version,
2630: l_api_name,G_PKG_NAME) THEN
2631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2632: END IF;

Line 2631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2627: -- Standard call to check for call compatibility.
2628: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2629: p_api_version,
2630: l_api_name,G_PKG_NAME) THEN
2631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2632: END IF;
2633:
2634: OPEN c_visit (p_visit_id);
2635: FETCH c_visit INTO c_visit_rec;

Line 2807: RAISE Fnd_Api.G_EXC_ERROR;

2803:
2804: IF NVL(l_return_status, 'X') <> 'S' THEN
2805: Fnd_Message.SET_NAME('AHL','AHL_VWP_TYPE_CODE_NOT_EXISTS');
2806: Fnd_Msg_Pub.ADD;
2807: RAISE Fnd_Api.G_EXC_ERROR;
2808: END IF;
2809: END IF;
2810:
2811: /*sowsubra - part-chgER - 18 July, 2007- start*/

Line 2948: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(p_visit_id, c_visit_rec.item_instance_id)= FND_API.G_RET_STS_ERROR) THEN

2944: -- To check all task's serial number are still active
2945: IF c_visit_rec.Item_Instance_Id IS NOT NULL THEN
2946:
2947: --BEGIN: jeli added for bug 3777720
2948: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(p_visit_id, c_visit_rec.item_instance_id)= FND_API.G_RET_STS_ERROR) THEN
2949: --END: jeli added for bug 3777720
2950: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_INST_NO_FOUND');
2951: Fnd_Message.Set_Token('VISIT_NUMBER',c_visit_rec.VISIT_NUMBER);
2952: Fnd_Msg_Pub.ADD;

Line 2965: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(p_visit_id, c_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN

2961: EXIT WHEN c_task%NOTFOUND;
2962: IF c_task_rec.INSTANCE_ID IS NOT NULL THEN
2963: -- IF l_check_flag = 'N' THEN
2964: --BEGIN: jeli added for bug 3777720
2965: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(p_visit_id, c_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
2966: --END: jeli added for bug 3777720
2967: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_INST_NO_FOUND');
2968: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
2969: Fnd_Msg_Pub.ADD;

Line 3096: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.g_miss_date)

3092: END LOOP;
3093: END IF;
3094:
3095: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
3096: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.g_miss_date)
3097: AND (c_visit_rec.DEPARTMENT_ID IS NOT NULL
3098: AND c_visit_rec.DEPARTMENT_ID <> Fnd_Api.g_miss_num)
3099: AND l_count > 0 AND l_chk_flag = 'N' AND l_dept_flag = 'N' THEN
3100:

Line 3098: AND c_visit_rec.DEPARTMENT_ID <> Fnd_Api.g_miss_num)

3094:
3095: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
3096: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.g_miss_date)
3097: AND (c_visit_rec.DEPARTMENT_ID IS NOT NULL
3098: AND c_visit_rec.DEPARTMENT_ID <> Fnd_Api.g_miss_num)
3099: AND l_count > 0 AND l_chk_flag = 'N' AND l_dept_flag = 'N' THEN
3100:
3101: --The visit end date
3102: l_visit_end_time := AHL_VWP_TIMES_PVT.get_visit_end_time(p_visit_id);

Line 3326: p_encoded => FND_API.G_FALSE,

3322: '------------------------------------------------');
3323: END IF;
3324:
3325: FND_MSG_PUB.get (
3326: p_encoded => FND_API.G_FALSE,
3327: p_data => l_data,
3328: p_msg_index_out => l_msg_count);
3329: IF (l_log_statement >= l_log_current_level) THEN
3330: fnd_log.string(l_log_statement,

Line 3351: IF Fnd_Api.To_Boolean (p_commit) THEN

3347: -------------------- finish --------------------------
3348: -- END of API body.
3349: -- Standard check of p_commit.
3350:
3351: IF Fnd_Api.To_Boolean (p_commit) THEN
3352: COMMIT WORK;
3353: END IF;
3354:
3355: Fnd_Msg_Pub.count_and_get(

Line 3356: p_encoded => Fnd_Api.g_false,

3352: COMMIT WORK;
3353: END IF;
3354:
3355: Fnd_Msg_Pub.count_and_get(
3356: p_encoded => Fnd_Api.g_false,
3357: p_count => x_msg_count,
3358: p_data => x_msg_data
3359: );
3360:

Line 3368: WHEN Fnd_Api.g_exc_error THEN

3364: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
3365: END IF;
3366:
3367: EXCEPTION
3368: WHEN Fnd_Api.g_exc_error THEN
3369: ROLLBACK TO Validate_Before_Production;
3370: x_return_status := Fnd_Api.g_ret_sts_error;
3371: Fnd_Msg_Pub.count_and_get (
3372: p_encoded => Fnd_Api.g_false,

Line 3370: x_return_status := Fnd_Api.g_ret_sts_error;

3366:
3367: EXCEPTION
3368: WHEN Fnd_Api.g_exc_error THEN
3369: ROLLBACK TO Validate_Before_Production;
3370: x_return_status := Fnd_Api.g_ret_sts_error;
3371: Fnd_Msg_Pub.count_and_get (
3372: p_encoded => Fnd_Api.g_false,
3373: p_count => x_msg_count,
3374: p_data => x_msg_data

Line 3372: p_encoded => Fnd_Api.g_false,

3368: WHEN Fnd_Api.g_exc_error THEN
3369: ROLLBACK TO Validate_Before_Production;
3370: x_return_status := Fnd_Api.g_ret_sts_error;
3371: Fnd_Msg_Pub.count_and_get (
3372: p_encoded => Fnd_Api.g_false,
3373: p_count => x_msg_count,
3374: p_data => x_msg_data
3375: );
3376: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 3376: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3372: p_encoded => Fnd_Api.g_false,
3373: p_count => x_msg_count,
3374: p_data => x_msg_data
3375: );
3376: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3377: ROLLBACK TO Validate_Before_Production;
3378: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3379: Fnd_Msg_Pub.count_and_get (
3380: p_encoded => Fnd_Api.g_false,

Line 3378: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

3374: p_data => x_msg_data
3375: );
3376: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3377: ROLLBACK TO Validate_Before_Production;
3378: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3379: Fnd_Msg_Pub.count_and_get (
3380: p_encoded => Fnd_Api.g_false,
3381: p_count => x_msg_count,
3382: p_data => x_msg_data

Line 3380: p_encoded => Fnd_Api.g_false,

3376: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3377: ROLLBACK TO Validate_Before_Production;
3378: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3379: Fnd_Msg_Pub.count_and_get (
3380: p_encoded => Fnd_Api.g_false,
3381: p_count => x_msg_count,
3382: p_data => x_msg_data
3383: );
3384: WHEN OTHERS THEN

Line 3386: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

3382: p_data => x_msg_data
3383: );
3384: WHEN OTHERS THEN
3385: ROLLBACK TO Validate_Before_Production;
3386: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3387: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3388: THEN
3389: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3390: END IF;

Line 3392: p_encoded => Fnd_Api.g_false,

3388: THEN
3389: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3390: END IF;
3391: Fnd_Msg_Pub.count_and_get (
3392: p_encoded => Fnd_Api.g_false,
3393: p_count => x_msg_count,
3394: p_data => x_msg_data
3395: );
3396: END Validate_Before_Production;

Line 3949: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,

3945: -- To push visit along with all its tasks to Production for create jobs
3946: --------------------------------------------------------------------
3947: PROCEDURE Push_to_Production
3948: ( p_api_version IN NUMBER,
3949: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3950: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3951: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3952: p_module_type IN VARCHAR2 := Null,
3953: p_visit_id IN NUMBER,

Line 3950: p_commit IN VARCHAR2 := Fnd_Api.g_false,

3946: --------------------------------------------------------------------
3947: PROCEDURE Push_to_Production
3948: ( p_api_version IN NUMBER,
3949: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3950: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3951: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3952: p_module_type IN VARCHAR2 := Null,
3953: p_visit_id IN NUMBER,
3954: p_release_flag IN VARCHAR2 := 'N', -- By shbhanda 05/21/04 for TC changes

Line 3951: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,

3947: PROCEDURE Push_to_Production
3948: ( p_api_version IN NUMBER,
3949: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3950: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3951: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3952: p_module_type IN VARCHAR2 := Null,
3953: p_visit_id IN NUMBER,
3954: p_release_flag IN VARCHAR2 := 'N', -- By shbhanda 05/21/04 for TC changes
3955: p_orig_visit_id IN NUMBER := NULL, -- By yazhou 08/06/04 for TC changes

Line 4144: IF Fnd_Api.to_boolean(p_init_msg_list)

4140: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
4141: END IF;
4142:
4143: -- Initialize message list if p_init_msg_list is set to TRUE.
4144: IF Fnd_Api.to_boolean(p_init_msg_list)
4145: THEN
4146: Fnd_Msg_Pub.initialize;
4147: END IF;
4148:

Line 4150: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

4146: Fnd_Msg_Pub.initialize;
4147: END IF;
4148:
4149: -- Initialize API return status to success
4150: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4151:
4152: -- Standard call to check for call compatibility.
4153: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4154: p_api_version,

Line 4153: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,

4149: -- Initialize API return status to success
4150: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4151:
4152: -- Standard call to check for call compatibility.
4153: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4154: p_api_version,
4155: l_api_name,G_PKG_NAME)
4156: THEN
4157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 4157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4153: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4154: p_api_version,
4155: l_api_name,G_PKG_NAME)
4156: THEN
4157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4158: END IF;
4159:
4160: IF (l_log_statement >= l_log_current_level) THEN
4161: fnd_log.string(l_log_statement,

Line 4169: p_init_msg_list => Fnd_Api.G_FALSE,

4165:
4166: -- Calculate Task Start/End time
4167: AHL_VWP_TIMES_PVT.CALCULATE_TASK_TIMES(
4168: p_api_version => 1.0,
4169: p_init_msg_list => Fnd_Api.G_FALSE,
4170: p_commit => Fnd_Api.G_FALSE,
4171: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4172: x_return_status => l_return_status,
4173: x_msg_count => l_msg_count,

Line 4170: p_commit => Fnd_Api.G_FALSE,

4166: -- Calculate Task Start/End time
4167: AHL_VWP_TIMES_PVT.CALCULATE_TASK_TIMES(
4168: p_api_version => 1.0,
4169: p_init_msg_list => Fnd_Api.G_FALSE,
4170: p_commit => Fnd_Api.G_FALSE,
4171: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4172: x_return_status => l_return_status,
4173: x_msg_count => l_msg_count,
4174: x_msg_data => l_msg_data,

Line 4171: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,

4167: AHL_VWP_TIMES_PVT.CALCULATE_TASK_TIMES(
4168: p_api_version => 1.0,
4169: p_init_msg_list => Fnd_Api.G_FALSE,
4170: p_commit => Fnd_Api.G_FALSE,
4171: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4172: x_return_status => l_return_status,
4173: x_msg_count => l_msg_count,
4174: x_msg_data => l_msg_data,
4175: p_visit_id => p_visit_id);

Line 4183: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN

4179: L_DEBUG_KEY,
4180: 'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times. Return Status = ' || l_return_status);
4181: END IF;
4182:
4183: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
4184: IF (l_log_statement >= l_log_current_level) THEN
4185: fnd_log.string(l_log_statement,
4186: L_DEBUG_KEY,
4187: 'Errors from AHL_VWP_TIMES_PVT.Calculate_Task_Times. Message count: ' ||

Line 4210: p_init_msg_list => Fnd_Api.G_FALSE,

4206: END IF;
4207: FOR l_get_independent_tasks IN get_independent_tasks(p_visit_id) LOOP
4208: AHL_VWP_TIMES_PVT.adjust_task_times(
4209: p_api_version => 1.0,
4210: p_init_msg_list => Fnd_Api.G_FALSE,
4211: p_commit => Fnd_Api.G_FALSE,
4212: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4213: x_return_status => l_return_status,
4214: x_msg_count => l_msg_count,

Line 4211: p_commit => Fnd_Api.G_FALSE,

4207: FOR l_get_independent_tasks IN get_independent_tasks(p_visit_id) LOOP
4208: AHL_VWP_TIMES_PVT.adjust_task_times(
4209: p_api_version => 1.0,
4210: p_init_msg_list => Fnd_Api.G_FALSE,
4211: p_commit => Fnd_Api.G_FALSE,
4212: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4213: x_return_status => l_return_status,
4214: x_msg_count => l_msg_count,
4215: x_msg_data => l_msg_data,

Line 4212: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,

4208: AHL_VWP_TIMES_PVT.adjust_task_times(
4209: p_api_version => 1.0,
4210: p_init_msg_list => Fnd_Api.G_FALSE,
4211: p_commit => Fnd_Api.G_FALSE,
4212: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4213: x_return_status => l_return_status,
4214: x_msg_count => l_msg_count,
4215: x_msg_data => l_msg_data,
4216: p_task_id => l_get_independent_tasks.visit_task_id,

Line 4217: p_reset_sysdate_flag => FND_API.G_TRUE);

4213: x_return_status => l_return_status,
4214: x_msg_count => l_msg_count,
4215: x_msg_data => l_msg_data,
4216: p_task_id => l_get_independent_tasks.visit_task_id,
4217: p_reset_sysdate_flag => FND_API.G_TRUE);
4218: END LOOP;
4219:
4220: IF (l_log_statement >= l_log_current_level) THEN
4221: fnd_log.string(l_log_statement,

Line 4226: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN

4222: L_DEBUG_KEY,
4223: 'After calling AHL_VWP_TIMES_PVT.adjust_task_times. Return Status = ' || l_return_status);
4224: END IF;
4225:
4226: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
4227: IF (l_log_statement >= l_log_current_level) THEN
4228: fnd_log.string(l_log_statement,
4229: L_DEBUG_KEY,
4230: 'Errors from AHL_VWP_TIMES_PVT.adjust_task_times. Message count: ' ||

Line 4240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4236: IF l_visit_end_time > get_vst_status_and_date_rec.close_date_time THEN
4237: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_TSK_STDT_ADJU');
4238: Fnd_Message.Set_Token('VISIT_END_DATE', l_visit_end_time);
4239: Fnd_Msg_Pub.ADD;
4240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4241: END IF;
4242: END IF;
4243:
4244: /*rnahata - B6447196 - start*/

Line 4275: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

4271: L_DEBUG_KEY,
4272: 'After calling INTEGRATE_TO_PROJECTS. l_return_status '||l_return_status);
4273: END IF;
4274:
4275: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4276: -- Check Error Message stack.
4277: x_msg_count := FND_MSG_PUB.count_msg;
4278: RAISE FND_API.G_EXC_ERROR;
4279: END IF;

Line 4278: RAISE FND_API.G_EXC_ERROR;

4274:
4275: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4276: -- Check Error Message stack.
4277: x_msg_count := FND_MSG_PUB.count_msg;
4278: RAISE FND_API.G_EXC_ERROR;
4279: END IF;
4280:
4281: -- Post 11.5.10
4282: -- RROY

Line 4326: RAISE FND_API.G_EXC_ERROR;

4322: fnd_log.string(l_log_statement,
4323: L_DEBUG_KEY,
4324: 'Errors from VALIDATE_MR_ROUTE_DATE. Message count: ' || l_msg_count);
4325: END IF;
4326: RAISE FND_API.G_EXC_ERROR;
4327: END IF;
4328: -- End changes by rnahata for Bug 6448678
4329:
4330: -- transit check visit Change

Line 4388: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN

4384: L_DEBUG_KEY,
4385: 'After calling AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Return Status = ' || l_return_status);
4386: END IF;
4387:
4388: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
4389: IF (l_log_statement >= l_log_current_level) THEN
4390: fnd_log.string(l_log_statement,
4391: L_DEBUG_KEY,
4392: 'Errors from AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Message count: ' ||

Line 4395: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

4391: L_DEBUG_KEY,
4392: 'Errors from AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Message count: ' ||
4393: l_msg_count || ', message data: ' || l_msg_data);
4394: END IF;
4395: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4396: RAISE FND_API.G_EXC_ERROR;
4397: ELSE
4398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4399: END IF;

Line 4396: RAISE FND_API.G_EXC_ERROR;

4392: 'Errors from AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Message count: ' ||
4393: l_msg_count || ', message data: ' || l_msg_data);
4394: END IF;
4395: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4396: RAISE FND_API.G_EXC_ERROR;
4397: ELSE
4398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4399: END IF;
4400: END IF;

Line 4398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4394: END IF;
4395: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4396: RAISE FND_API.G_EXC_ERROR;
4397: ELSE
4398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4399: END IF;
4400: END IF;
4401:
4402: END IF; --reschedule visit jobs

Line 4709: IF c_task_rec.mr_route_id IS NOT NULL AND c_task_rec.mr_route_id <> FND_API.g_miss_num THEN

4705: CLOSE get_wo_dtls_for_mrtasks_cur;
4706: l_prd_workorder_tbl(idx).JOB_DESCRIPTION := get_wo_dtls_for_mrtasks_rec.workorder_description;
4707: END IF;
4708:
4709: IF c_task_rec.mr_route_id IS NOT NULL AND c_task_rec.mr_route_id <> FND_API.g_miss_num THEN
4710: OPEN c_route (c_task_rec.mr_route_id);
4711: FETCH c_route INTO l_route_id;
4712: CLOSE c_route;
4713: l_prd_workorder_tbl(idx).ROUTE_ID := l_route_id ;

Line 4719: AND c_task_rec.department_id <> FND_API.g_miss_num THEN

4715: l_prd_workorder_tbl(idx).ROUTE_ID := Null;
4716: END IF;
4717:
4718: IF c_task_rec.department_id IS NOT NULL
4719: AND c_task_rec.department_id <> FND_API.g_miss_num THEN
4720: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_task_rec.department_id ;
4721: ELSE
4722: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_visit_rec.department_id ;
4723: END IF;

Line 4803: p_commit => FND_API.G_FALSE,

4799:
4800: AHL_PRD_WORKORDER_PVT.Process_Jobs
4801: ( p_api_version => p_api_version,
4802: p_init_msg_list => p_init_msg_list,
4803: p_commit => FND_API.G_FALSE,
4804: p_validation_level => p_validation_level,
4805: p_default => FND_API.G_TRUE,
4806: p_module_type => p_module_type,
4807: x_return_status => l_return_status,

Line 4805: p_default => FND_API.G_TRUE,

4801: ( p_api_version => p_api_version,
4802: p_init_msg_list => p_init_msg_list,
4803: p_commit => FND_API.G_FALSE,
4804: p_validation_level => p_validation_level,
4805: p_default => FND_API.G_TRUE,
4806: p_module_type => p_module_type,
4807: x_return_status => l_return_status,
4808: x_msg_count => x_msg_count,
4809: x_msg_data => x_msg_data,

Line 4821: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN

4817: L_DEBUG_KEY,
4818: 'After calling AHL_PRD_WORKORDER_PVT.Process_Jobs. Return Status = ' || l_return_status);
4819: END IF;
4820:
4821: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
4822: IF (l_log_statement >= l_log_current_level) THEN
4823: fnd_log.string(l_log_statement,
4824: L_DEBUG_KEY,
4825: 'Errors from AHL_PRD_WORKORDER_PVT.Process_Jobs. Message count: ' ||

Line 4828: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

4824: L_DEBUG_KEY,
4825: 'Errors from AHL_PRD_WORKORDER_PVT.Process_Jobs. Message count: ' ||
4826: l_msg_count || ', message data: ' || l_msg_data);
4827: END IF;
4828: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4829: RAISE FND_API.G_EXC_ERROR;
4830: ELSE
4831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4832: END IF;

Line 4829: RAISE FND_API.G_EXC_ERROR;

4825: 'Errors from AHL_PRD_WORKORDER_PVT.Process_Jobs. Message count: ' ||
4826: l_msg_count || ', message data: ' || l_msg_data);
4827: END IF;
4828: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4829: RAISE FND_API.G_EXC_ERROR;
4830: ELSE
4831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4832: END IF;
4833: END IF;

Line 4831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4827: END IF;
4828: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4829: RAISE FND_API.G_EXC_ERROR;
4830: ELSE
4831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4832: END IF;
4833: END IF;
4834:
4835: -- Begin changes by rnahata for Bug 5758813

Line 4860: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

4856: x_return_status => l_return_status,
4857: x_msg_count => l_msg_count,
4858: x_msg_data => l_msg_data);
4859:
4860: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4861: x_msg_count := FND_MSG_PUB.count_msg;
4862: IF (l_log_statement >= l_log_current_level) THEN
4863: fnd_log.string(l_log_statement,
4864: L_DEBUG_KEY,

Line 4867: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

4863: fnd_log.string(l_log_statement,
4864: L_DEBUG_KEY,
4865: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
4866: END IF;
4867: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4868: RAISE FND_API.G_EXC_ERROR;
4869: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4871: END IF;

Line 4868: RAISE FND_API.G_EXC_ERROR;

4864: L_DEBUG_KEY,
4865: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
4866: END IF;
4867: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4868: RAISE FND_API.G_EXC_ERROR;
4869: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4871: END IF;
4872: ELSE

Line 4869: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

4865: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
4866: END IF;
4867: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4868: RAISE FND_API.G_EXC_ERROR;
4869: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4871: END IF;
4872: ELSE
4873: IF (l_log_statement >= l_log_current_level) THEN

Line 4870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4866: END IF;
4867: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4868: RAISE FND_API.G_EXC_ERROR;
4869: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4871: END IF;
4872: ELSE
4873: IF (l_log_statement >= l_log_current_level) THEN
4874: fnd_log.string(l_log_statement,

Line 4916: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

4912: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling AHL_RSV_RESERVATIONS_PVT.TRANSFER_RESERVATION - l_return_status : '||l_return_status);
4913: END IF;
4914:
4915: -- handle the exceptions, if any
4916: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4917: IF (l_log_statement >= l_log_current_level) THEN
4918: fnd_log.string(l_log_statement,
4919: L_DEBUG_KEY,
4920: ':Errors from AHL_RSV_RESERVATIONS_PVT.TRANSFER_RESERVATION API : ' || x_msg_count );

Line 4922: RAISE Fnd_Api.g_exc_error;

4918: fnd_log.string(l_log_statement,
4919: L_DEBUG_KEY,
4920: ':Errors from AHL_RSV_RESERVATIONS_PVT.TRANSFER_RESERVATION API : ' || x_msg_count );
4921: END IF;
4922: RAISE Fnd_Api.g_exc_error;
4923: END IF;
4924: --------------------------------- R12 changes For Serial Number Reservations End----------------------------------
4925:
4926: UPDATE AHL_VISITS_B

Line 4993: IF Fnd_Api.To_Boolean (p_commit) THEN

4989: ---------------------------End of Body-------------------------------------
4990: -- END of API body.
4991: -- Standard check of p_commit.
4992:
4993: IF Fnd_Api.To_Boolean (p_commit) THEN
4994: COMMIT WORK;
4995: END IF;
4996:
4997: Fnd_Msg_Pub.count_and_get(

Line 4998: p_encoded => Fnd_Api.g_false,

4994: COMMIT WORK;
4995: END IF;
4996:
4997: Fnd_Msg_Pub.count_and_get(
4998: p_encoded => Fnd_Api.g_false,
4999: p_count => x_msg_count,
5000: p_data => x_msg_data
5001: );
5002:

Line 5010: WHEN Fnd_Api.g_exc_error THEN

5006: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
5007: END IF;
5008:
5009: EXCEPTION
5010: WHEN Fnd_Api.g_exc_error THEN
5011: ROLLBACK TO Push_to_Production;
5012: x_return_status := Fnd_Api.g_ret_sts_error;
5013: Fnd_Msg_Pub.count_and_get (
5014: p_encoded => Fnd_Api.g_false,

Line 5012: x_return_status := Fnd_Api.g_ret_sts_error;

5008:
5009: EXCEPTION
5010: WHEN Fnd_Api.g_exc_error THEN
5011: ROLLBACK TO Push_to_Production;
5012: x_return_status := Fnd_Api.g_ret_sts_error;
5013: Fnd_Msg_Pub.count_and_get (
5014: p_encoded => Fnd_Api.g_false,
5015: p_count => x_msg_count,
5016: p_data => x_msg_data

Line 5014: p_encoded => Fnd_Api.g_false,

5010: WHEN Fnd_Api.g_exc_error THEN
5011: ROLLBACK TO Push_to_Production;
5012: x_return_status := Fnd_Api.g_ret_sts_error;
5013: Fnd_Msg_Pub.count_and_get (
5014: p_encoded => Fnd_Api.g_false,
5015: p_count => x_msg_count,
5016: p_data => x_msg_data
5017: );
5018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 5018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

5014: p_encoded => Fnd_Api.g_false,
5015: p_count => x_msg_count,
5016: p_data => x_msg_data
5017: );
5018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5019: ROLLBACK TO Push_to_Production;
5020: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5021: Fnd_Msg_Pub.count_and_get (
5022: p_encoded => Fnd_Api.g_false,

Line 5020: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

5016: p_data => x_msg_data
5017: );
5018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5019: ROLLBACK TO Push_to_Production;
5020: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5021: Fnd_Msg_Pub.count_and_get (
5022: p_encoded => Fnd_Api.g_false,
5023: p_count => x_msg_count,
5024: p_data => x_msg_data

Line 5022: p_encoded => Fnd_Api.g_false,

5018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5019: ROLLBACK TO Push_to_Production;
5020: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5021: Fnd_Msg_Pub.count_and_get (
5022: p_encoded => Fnd_Api.g_false,
5023: p_count => x_msg_count,
5024: p_data => x_msg_data
5025: );
5026: WHEN OTHERS THEN

Line 5028: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

5024: p_data => x_msg_data
5025: );
5026: WHEN OTHERS THEN
5027: ROLLBACK TO Push_to_Production;
5028: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5029: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5030: THEN
5031: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5032: END IF;

Line 5034: p_encoded => Fnd_Api.g_false,

5030: THEN
5031: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5032: END IF;
5033: Fnd_Msg_Pub.count_and_get (
5034: p_encoded => Fnd_Api.g_false,
5035: p_count => x_msg_count,
5036: p_data => x_msg_data
5037: );
5038: END Push_to_Production;

Line 5053: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE

5049: -- Parameters :
5050: --
5051: -- Standard IN Parameters :
5052: -- p_api_version IN NUMBER Required
5053: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5054: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
5055: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5056: --
5057: -- Standard OUT Parameters :

Line 5054: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE

5050: --
5051: -- Standard IN Parameters :
5052: -- p_api_version IN NUMBER Required
5053: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5054: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
5055: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5056: --
5057: -- Standard OUT Parameters :
5058: -- x_return_status OUT VARCHAR2 Required

Line 5055: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL

5051: -- Standard IN Parameters :
5052: -- p_api_version IN NUMBER Required
5053: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5054: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
5055: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5056: --
5057: -- Standard OUT Parameters :
5058: -- x_return_status OUT VARCHAR2 Required
5059: -- x_msg_count OUT NUMBER Required

Line 5070: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,

5066: -- 09/09/2003 SSURAPAN Initial Creation
5067: -------------------------------------------------------------------
5068: PROCEDURE Release_Visit (
5069: p_api_version IN NUMBER,
5070: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
5071: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5072: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
5073: p_module_type IN VARCHAR2 := NULL,
5074: p_visit_id IN NUMBER,

Line 5071: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,

5067: -------------------------------------------------------------------
5068: PROCEDURE Release_Visit (
5069: p_api_version IN NUMBER,
5070: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
5071: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5072: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
5073: p_module_type IN VARCHAR2 := NULL,
5074: p_visit_id IN NUMBER,
5075: p_release_flag IN VARCHAR2 := 'N', -- By shbhanda 05/21/04 fro TC changes

Line 5072: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,

5068: PROCEDURE Release_Visit (
5069: p_api_version IN NUMBER,
5070: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
5071: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5072: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
5073: p_module_type IN VARCHAR2 := NULL,
5074: p_visit_id IN NUMBER,
5075: p_release_flag IN VARCHAR2 := 'N', -- By shbhanda 05/21/04 fro TC changes
5076: p_orig_visit_id IN NUMBER := NULL, -- By yazhou 08/06/04 for TC changes

Line 5114: IF FND_API.To_Boolean(p_init_msg_list) THEN

5110: -- Standard start of API savepoint
5111: SAVEPOINT Release_Visit_Pvt;
5112:
5113: -- Initialize message list if p_init_msg_list is set to TRUE
5114: IF FND_API.To_Boolean(p_init_msg_list) THEN
5115: FND_MSG_PUB.Initialize;
5116: END IF;
5117: -- Initialize API return status to success
5118: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 5118: x_return_status := FND_API.G_RET_STS_SUCCESS;

5114: IF FND_API.To_Boolean(p_init_msg_list) THEN
5115: FND_MSG_PUB.Initialize;
5116: END IF;
5117: -- Initialize API return status to success
5118: x_return_status := FND_API.G_RET_STS_SUCCESS;
5119:
5120: -- Standard call to check for call compatibility.
5121: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
5122: p_api_version,

Line 5121: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

5117: -- Initialize API return status to success
5118: x_return_status := FND_API.G_RET_STS_SUCCESS;
5119:
5120: -- Standard call to check for call compatibility.
5121: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
5122: p_api_version,
5123: l_api_name,G_PKG_NAME) THEN
5124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5125: END IF;

Line 5124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

5120: -- Standard call to check for call compatibility.
5121: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
5122: p_api_version,
5123: l_api_name,G_PKG_NAME) THEN
5124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5125: END IF;
5126: --
5127:
5128: IF (l_log_statement >= l_log_current_level) THEN

Line 5133: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN

5129: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit ID : '||p_visit_id);
5130: END IF;
5131:
5132: -- Check for Required Parameters
5133: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
5134: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CST_INPUT_MISS');
5135: FND_MSG_PUB.ADD;
5136: IF (l_log_unexpected >= l_log_current_level)THEN
5137: fnd_log.string

Line 5144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

5140: 'ahl.plsql.AHL_VWP_CST_WO_PVT.Release_Visit',
5141: 'Visit id is mandatory but found null in input '
5142: );
5143: END IF;
5144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5145: END IF;
5146:
5147: IF (l_log_statement >= l_log_current_level)THEN
5148: fnd_log.string (l_log_statement,L_DEBUG_KEY, 'Before Calling Validate Before Production');

Line 5173: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

5169: -- RROY
5170: IF l_error_tbl_type.COUNT > 0 THEN
5171: l_return_status := l_validate_error;
5172: x_return_status := l_validate_error;
5173: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5174: -- Check Error Message stack.
5175: x_msg_count := FND_MSG_PUB.count_msg;
5176:
5177: IF (l_log_statement >= l_log_current_level)THEN

Line 5180: RAISE Fnd_Api.g_exc_error;

5176:
5177: IF (l_log_statement >= l_log_current_level)THEN
5178: fnd_log.string ( l_log_statement, L_DEBUG_KEY,'Errors from Validate Before Production - '||x_msg_count);
5179: END IF;
5180: RAISE Fnd_Api.g_exc_error;
5181: ELSE
5182: IF (l_log_statement >= l_log_current_level)THEN
5183: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'Before Calling aggregate_material_requirements');
5184: END IF;

Line 5205: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

5201: IF (l_log_statement >= l_log_current_level)THEN
5202: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After Calling aggregate_material_requirements - l_return_status = '||l_return_status);
5203: END IF;
5204:
5205: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5206: x_msg_count := FND_MSG_PUB.count_msg;
5207: IF (l_log_statement >= l_log_current_level)THEN
5208: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Errors from aggregate_material_requirements: ' || x_msg_count);
5209: END IF;

Line 5210: RAISE Fnd_Api.g_exc_error;

5206: x_msg_count := FND_MSG_PUB.count_msg;
5207: IF (l_log_statement >= l_log_current_level)THEN
5208: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Errors from aggregate_material_requirements: ' || x_msg_count);
5209: END IF;
5210: RAISE Fnd_Api.g_exc_error;
5211: END IF;
5212:
5213: IF (l_log_statement >= l_log_current_level)THEN
5214: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'Before calling Push_to_Production');

Line 5235: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

5231: IF (l_log_statement >= l_log_current_level)THEN
5232: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After calling Push_to_Production - l_return_status = '||l_return_status);
5233: END IF;
5234:
5235: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5236: -- Check Error Message stack.
5237: x_msg_count := FND_MSG_PUB.count_msg;
5238: IF (l_log_statement >= l_log_current_level)THEN
5239: fnd_log.string( l_log_statement,L_DEBUG_KEY, 'Errors from Push to Production: ' || x_msg_count );

Line 5241: RAISE Fnd_Api.g_exc_error;

5237: x_msg_count := FND_MSG_PUB.count_msg;
5238: IF (l_log_statement >= l_log_current_level)THEN
5239: fnd_log.string( l_log_statement,L_DEBUG_KEY, 'Errors from Push to Production: ' || x_msg_count );
5240: END IF;
5241: RAISE Fnd_Api.g_exc_error;
5242: END IF;
5243:
5244: IF (l_log_statement >= l_log_current_level)THEN
5245: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'Before calling AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits');

Line 5263: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

5259: IF (l_log_statement >= l_log_current_level)THEN
5260: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After calling AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits - l_return_status : '||l_return_status);
5261: END IF;
5262:
5263: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5264: -- Check Error Message stack.
5265: x_msg_count := FND_MSG_PUB.count_msg;
5266: IF (l_log_statement >= l_log_current_level)THEN
5267: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Errors from delete_simul_visits: '||x_msg_count);

Line 5269: RAISE Fnd_Api.g_exc_error;

5265: x_msg_count := FND_MSG_PUB.count_msg;
5266: IF (l_log_statement >= l_log_current_level)THEN
5267: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Errors from delete_simul_visits: '||x_msg_count);
5268: END IF;
5269: RAISE Fnd_Api.g_exc_error;
5270: END IF;
5271: END IF;
5272: -- Post 11.5.10
5273: -- RROY

Line 5275: IF FND_API.TO_BOOLEAN(p_commit) THEN

5271: END IF;
5272: -- Post 11.5.10
5273: -- RROY
5274: -- Standard check of p_commit
5275: IF FND_API.TO_BOOLEAN(p_commit) THEN
5276: COMMIT WORK;
5277: END IF;
5278:
5279: IF (l_log_procedure >= l_log_current_level)THEN

Line 5284: WHEN FND_API.G_EXC_ERROR THEN

5280: fnd_log.string ( l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PLSQL procedure');
5281: END IF;
5282:
5283: EXCEPTION
5284: WHEN FND_API.G_EXC_ERROR THEN
5285: x_return_status := FND_API.G_RET_STS_ERROR;
5286: ROLLBACK TO Release_Visit_Pvt;
5287: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5288: p_data => x_msg_data,

Line 5285: x_return_status := FND_API.G_RET_STS_ERROR;

5281: END IF;
5282:
5283: EXCEPTION
5284: WHEN FND_API.G_EXC_ERROR THEN
5285: x_return_status := FND_API.G_RET_STS_ERROR;
5286: ROLLBACK TO Release_Visit_Pvt;
5287: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5288: p_data => x_msg_data,
5289: p_encoded => fnd_api.g_false);

Line 5289: p_encoded => fnd_api.g_false);

5285: x_return_status := FND_API.G_RET_STS_ERROR;
5286: ROLLBACK TO Release_Visit_Pvt;
5287: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5288: p_data => x_msg_data,
5289: p_encoded => fnd_api.g_false);
5290:
5291:
5292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 5292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

5288: p_data => x_msg_data,
5289: p_encoded => fnd_api.g_false);
5290:
5291:
5292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5294: ROLLBACK TO Release_Visit_Pvt;
5295: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5296: p_data => x_msg_data,

Line 5293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

5289: p_encoded => fnd_api.g_false);
5290:
5291:
5292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5294: ROLLBACK TO Release_Visit_Pvt;
5295: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5296: p_data => x_msg_data,
5297: p_encoded => fnd_api.g_false);

Line 5297: p_encoded => fnd_api.g_false);

5293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5294: ROLLBACK TO Release_Visit_Pvt;
5295: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5296: p_data => x_msg_data,
5297: p_encoded => fnd_api.g_false);
5298:
5299:
5300: WHEN OTHERS THEN
5301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 5301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

5297: p_encoded => fnd_api.g_false);
5298:
5299:
5300: WHEN OTHERS THEN
5301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5302: ROLLBACK TO Release_Visit_Pvt;
5303: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5304: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5305: p_procedure_name => 'Release_Visit',

Line 5310: p_encoded => fnd_api.g_false);

5306: p_error_text => SUBSTR(SQLERRM,1,500));
5307: END IF;
5308: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5309: p_data => x_msg_data,
5310: p_encoded => fnd_api.g_false);
5311:
5312: END Release_Visit;
5313:
5314: -------------------------------------------------------------------

Line 5322: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE

5318: -- Parameters :
5319: --
5320: -- Standard IN Parameters :
5321: -- p_api_version IN NUMBER Required
5322: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5323: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
5324: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5325: --
5326: -- Standard OUT Parameters :

Line 5323: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE

5319: --
5320: -- Standard IN Parameters :
5321: -- p_api_version IN NUMBER Required
5322: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5323: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
5324: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5325: --
5326: -- Standard OUT Parameters :
5327: -- x_return_status OUT VARCHAR2 Required

Line 5324: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL

5320: -- Standard IN Parameters :
5321: -- p_api_version IN NUMBER Required
5322: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5323: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
5324: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5325: --
5326: -- Standard OUT Parameters :
5327: -- x_return_status OUT VARCHAR2 Required
5328: -- x_msg_count OUT NUMBER Required

Line 5341: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,

5337: -- 30 November, 2007 RNAHATA Initial Version - 1.0
5338: -------------------------------------------------------------------
5339: PROCEDURE Release_Tasks(
5340: p_api_version IN NUMBER,
5341: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
5342: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5343: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
5344: p_module_type IN VARCHAR2 := Null,
5345: p_visit_id IN NUMBER,

Line 5342: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,

5338: -------------------------------------------------------------------
5339: PROCEDURE Release_Tasks(
5340: p_api_version IN NUMBER,
5341: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
5342: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5343: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
5344: p_module_type IN VARCHAR2 := Null,
5345: p_visit_id IN NUMBER,
5346: p_tasks_tbl IN Task_Tbl_Type,

Line 5343: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,

5339: PROCEDURE Release_Tasks(
5340: p_api_version IN NUMBER,
5341: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
5342: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5343: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
5344: p_module_type IN VARCHAR2 := Null,
5345: p_visit_id IN NUMBER,
5346: p_tasks_tbl IN Task_Tbl_Type,
5347: p_release_flag IN VARCHAR2 := 'N',

Line 5389: IF FND_API.To_Boolean(p_init_msg_list) THEN

5385: -- Standard start of API savepoint
5386: SAVEPOINT Release_Tasks_Pvt;
5387:
5388: -- Initialize message list if p_init_msg_list is set to TRUE
5389: IF FND_API.To_Boolean(p_init_msg_list) THEN
5390: FND_MSG_PUB.Initialize;
5391: END IF;
5392:
5393: -- Initialize API return status to success

Line 5394: x_return_status := FND_API.G_RET_STS_SUCCESS;

5390: FND_MSG_PUB.Initialize;
5391: END IF;
5392:
5393: -- Initialize API return status to success
5394: x_return_status := FND_API.G_RET_STS_SUCCESS;
5395:
5396: -- Standard call to check for call compatibility.
5397: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
5398: p_api_version,

Line 5397: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

5393: -- Initialize API return status to success
5394: x_return_status := FND_API.G_RET_STS_SUCCESS;
5395:
5396: -- Standard call to check for call compatibility.
5397: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
5398: p_api_version,
5399: l_api_name,G_PKG_NAME)
5400: THEN
5401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 5401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

5397: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
5398: p_api_version,
5399: l_api_name,G_PKG_NAME)
5400: THEN
5401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5402: END IF;
5403:
5404: --Check for required parameters
5405: IF (p_visit_id IS NOT NULL) THEN

Line 5418: RAISE FND_API.G_EXC_ERROR;

5414: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_INVALID_VST');
5415: FND_MESSAGE.SET_TOKEN('VISIT_ID', p_visit_id);
5416: FND_MSG_PUB.ADD;
5417: END IF;
5418: RAISE FND_API.G_EXC_ERROR;
5419: END IF;
5420:
5421: --Check if the visit is in planning or partially released status
5422: OPEN c_visit_info(p_visit_id);

Line 5430: RAISE FND_API.G_EXC_ERROR;

5426: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_VST_STATUS_INVALID');
5427: FND_MSG_PUB.ADD;
5428: END IF;
5429: CLOSE c_visit_info;
5430: RAISE FND_API.G_EXC_ERROR;
5431: END IF;
5432: CLOSE c_visit_info;
5433: --If visit_id is null
5434: ELSE

Line 5439: RAISE FND_API.G_EXC_ERROR;

5435: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
5436: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_VISIT_NULL');
5437: FND_MSG_PUB.ADD;
5438: END IF;
5439: RAISE FND_API.G_EXC_ERROR;
5440: END IF;
5441:
5442: --No tasks selected
5443: IF (p_tasks_tbl.COUNT = 0) THEN

Line 5448: RAISE FND_API.G_EXC_ERROR;

5444: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
5445: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_NO_TASK_SEL');
5446: FND_MSG_PUB.ADD;
5447: END IF;
5448: RAISE FND_API.G_EXC_ERROR;
5449: END IF;
5450:
5451: IF (l_log_statement >= l_log_current_level) THEN
5452: fnd_log.string(l_log_statement,

Line 5477: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_error_tbl_type.COUNT > 0) THEN

5473: 'After calling VALIDATE_BEFORE_PRODUCTION, Return Status = ' ||
5474: l_return_status);
5475: END IF;
5476:
5477: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_error_tbl_type.COUNT > 0) THEN
5478: -- Check Error Message stack.
5479: x_msg_count := FND_MSG_PUB.count_msg;
5480: IF (l_log_statement >= l_log_current_level) THEN
5481: fnd_log.string(l_log_statement,

Line 5485: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

5481: fnd_log.string(l_log_statement,
5482: L_DEBUG_KEY,
5483: 'Errors from VALIDATE_BEFORE_PRODUCTION. Message count: ' || x_msg_count);
5484: END IF;
5485: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5486: RAISE FND_API.G_EXC_ERROR;
5487: ELSE
5488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5489: END IF;

Line 5486: RAISE FND_API.G_EXC_ERROR;

5482: L_DEBUG_KEY,
5483: 'Errors from VALIDATE_BEFORE_PRODUCTION. Message count: ' || x_msg_count);
5484: END IF;
5485: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5486: RAISE FND_API.G_EXC_ERROR;
5487: ELSE
5488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5489: END IF;
5490: END IF;

Line 5488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

5484: END IF;
5485: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5486: RAISE FND_API.G_EXC_ERROR;
5487: ELSE
5488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5489: END IF;
5490: END IF;
5491:
5492: IF (l_log_statement >= l_log_current_level) THEN

Line 5514: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

5510: 'After calling VALIDATE_TASKS_BEF_PRODUCTION. Records in l_tasks_tbl: ' ||
5511: l_tasks_tbl.COUNT|| ', Return Status = ' || l_return_status);
5512: END IF;
5513:
5514: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5515: -- Check Error Message stack.
5516: x_msg_count := FND_MSG_PUB.count_msg;
5517:
5518: IF (l_log_statement >= l_log_current_level) THEN

Line 5524: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

5520: L_DEBUG_KEY,
5521: 'Errors from VALIDATE_TASKS_BEF_PRODUCTION. Message count: ' || x_msg_count);
5522: END IF;
5523:
5524: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5525: RAISE FND_API.G_EXC_ERROR;
5526: ELSE
5527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5528: END IF;

Line 5525: RAISE FND_API.G_EXC_ERROR;

5521: 'Errors from VALIDATE_TASKS_BEF_PRODUCTION. Message count: ' || x_msg_count);
5522: END IF;
5523:
5524: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5525: RAISE FND_API.G_EXC_ERROR;
5526: ELSE
5527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5528: END IF;
5529: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS

Line 5527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

5523:
5524: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5525: RAISE FND_API.G_EXC_ERROR;
5526: ELSE
5527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5528: END IF;
5529: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
5530:
5531: IF (l_log_statement >= l_log_current_level) THEN

Line 5529: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS

5525: RAISE FND_API.G_EXC_ERROR;
5526: ELSE
5527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5528: END IF;
5529: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
5530:
5531: IF (l_log_statement >= l_log_current_level) THEN
5532: fnd_log.string(l_log_statement,
5533: L_DEBUG_KEY,

Line 5560: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

5556: 'After calling AGGREGATE_TASK_MATERIAL_REQRS for Task Id: ' ||
5557: l_tasks_tbl(i).visit_task_id || '. Return Status = '|| l_return_status);
5558: END IF;
5559:
5560: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5561: x_msg_count := FND_MSG_PUB.count_msg;
5562: IF (l_log_statement >= l_log_current_level) THEN
5563: fnd_log.string(l_log_statement,
5564: L_DEBUG_KEY,

Line 5567: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

5563: fnd_log.string(l_log_statement,
5564: L_DEBUG_KEY,
5565: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
5566: END IF;
5567: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5568: RAISE FND_API.G_EXC_ERROR;
5569: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5571: END IF;

Line 5568: RAISE FND_API.G_EXC_ERROR;

5564: L_DEBUG_KEY,
5565: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
5566: END IF;
5567: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5568: RAISE FND_API.G_EXC_ERROR;
5569: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5571: END IF;
5572: END IF;

Line 5569: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

5565: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
5566: END IF;
5567: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5568: RAISE FND_API.G_EXC_ERROR;
5569: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5571: END IF;
5572: END IF;
5573: END LOOP;

Line 5570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

5566: END IF;
5567: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5568: RAISE FND_API.G_EXC_ERROR;
5569: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5571: END IF;
5572: END IF;
5573: END LOOP;
5574:

Line 5592: p_reset_sysdate_flag => FND_API.G_TRUE,

5588: p_init_msg_list => p_init_msg_list,
5589: p_commit => 'F',
5590: p_validation_level => p_validation_level,
5591: p_task_id => l_tasks_tbl(i).visit_task_id,
5592: p_reset_sysdate_flag => FND_API.G_TRUE,
5593: x_return_status => l_return_status,
5594: x_msg_count => l_msg_count,
5595: x_msg_data => l_msg_data
5596: );

Line 5605: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

5601: 'After calling ADJUST_TASK_TIMES for task Id ' ||
5602: l_tasks_tbl(i).visit_task_id ||'. Return Status = '|| l_return_status);
5603: END IF;
5604:
5605: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5606: x_msg_count := FND_MSG_PUB.count_msg;
5607: IF (l_log_statement >= l_log_current_level) THEN
5608: fnd_log.string(l_log_statement,
5609: L_DEBUG_KEY,

Line 5612: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

5608: fnd_log.string(l_log_statement,
5609: L_DEBUG_KEY,
5610: 'Errors from ADJUST_TASK_TIMES. Message count: ' || x_msg_count);
5611: END IF;
5612: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5613: RAISE FND_API.G_EXC_ERROR;
5614: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5616: END IF;

Line 5613: RAISE FND_API.G_EXC_ERROR;

5609: L_DEBUG_KEY,
5610: 'Errors from ADJUST_TASK_TIMES. Message count: ' || x_msg_count);
5611: END IF;
5612: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5613: RAISE FND_API.G_EXC_ERROR;
5614: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5616: END IF;
5617: END IF;

Line 5614: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

5610: 'Errors from ADJUST_TASK_TIMES. Message count: ' || x_msg_count);
5611: END IF;
5612: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5613: RAISE FND_API.G_EXC_ERROR;
5614: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5616: END IF;
5617: END IF;
5618: END LOOP;

Line 5615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

5611: END IF;
5612: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5613: RAISE FND_API.G_EXC_ERROR;
5614: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5616: END IF;
5617: END IF;
5618: END LOOP;
5619: END IF; --partially released

Line 5652: RAISE FND_API.G_EXC_ERROR;

5648: IF (l_log_statement >= l_log_current_level) THEN
5649: fnd_log.string(l_log_statement,L_DEBUG_KEY,
5650: 'Errors from VALIDATE_MR_ROUTE_DATE. Message count: ' || l_msg_count);
5651: END IF;
5652: RAISE FND_API.G_EXC_ERROR;
5653: END IF;
5654:
5655: IF (l_log_statement >= l_log_current_level) THEN
5656: fnd_log.string(l_log_statement,

Line 5681: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

5677: L_DEBUG_KEY,
5678: 'After calling PUSH_TASKS_TO_PRODUCTION. Return Status = '|| l_return_status);
5679: END IF;
5680:
5681: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5682: x_msg_count := FND_MSG_PUB.count_msg;
5683: IF (l_log_statement >= l_log_current_level) THEN
5684: fnd_log.string(l_log_statement,
5685: L_DEBUG_KEY,

Line 5688: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

5684: fnd_log.string(l_log_statement,
5685: L_DEBUG_KEY,
5686: 'Errors from PUSH_TASKS_TO_PRODUCTION. Message count: ' || x_msg_count);
5687: END IF;
5688: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5689: RAISE FND_API.G_EXC_ERROR;
5690: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5692: END IF;

Line 5689: RAISE FND_API.G_EXC_ERROR;

5685: L_DEBUG_KEY,
5686: 'Errors from PUSH_TASKS_TO_PRODUCTION. Message count: ' || x_msg_count);
5687: END IF;
5688: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5689: RAISE FND_API.G_EXC_ERROR;
5690: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5692: END IF;
5693: END IF;

Line 5690: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

5686: 'Errors from PUSH_TASKS_TO_PRODUCTION. Message count: ' || x_msg_count);
5687: END IF;
5688: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5689: RAISE FND_API.G_EXC_ERROR;
5690: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5692: END IF;
5693: END IF;
5694:

Line 5691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

5687: END IF;
5688: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5689: RAISE FND_API.G_EXC_ERROR;
5690: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5692: END IF;
5693: END IF;
5694:
5695: IF (l_log_statement >= l_log_current_level) THEN

Line 5718: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

5714: L_DEBUG_KEY,
5715: 'After calling DELETE_SIMUL_VISITS for visit id ' ||p_visit_id||'. Return Status = '|| l_return_status);
5716: END IF;
5717:
5718: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5719: x_msg_count := FND_MSG_PUB.count_msg;
5720: IF (l_log_statement >= l_log_current_level) THEN
5721: fnd_log.string(l_log_statement,
5722: L_DEBUG_KEY,

Line 5725: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

5721: fnd_log.string(l_log_statement,
5722: L_DEBUG_KEY,
5723: 'Errors from DELETE_SIMUL_TASKS. Message count: ' || x_msg_count);
5724: END IF;
5725: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5726: RAISE FND_API.G_EXC_ERROR;
5727: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5729: END IF;

Line 5726: RAISE FND_API.G_EXC_ERROR;

5722: L_DEBUG_KEY,
5723: 'Errors from DELETE_SIMUL_TASKS. Message count: ' || x_msg_count);
5724: END IF;
5725: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5726: RAISE FND_API.G_EXC_ERROR;
5727: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5729: END IF;
5730: END IF;

Line 5727: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

5723: 'Errors from DELETE_SIMUL_TASKS. Message count: ' || x_msg_count);
5724: END IF;
5725: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5726: RAISE FND_API.G_EXC_ERROR;
5727: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5729: END IF;
5730: END IF;
5731:

Line 5728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

5724: END IF;
5725: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5726: RAISE FND_API.G_EXC_ERROR;
5727: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5729: END IF;
5730: END IF;
5731:
5732: -- Standard check of p_commit

Line 5733: IF FND_API.TO_BOOLEAN(p_commit) THEN

5729: END IF;
5730: END IF;
5731:
5732: -- Standard check of p_commit
5733: IF FND_API.TO_BOOLEAN(p_commit) THEN
5734: COMMIT WORK;
5735: END IF;
5736:
5737: Fnd_Msg_Pub.count_and_get(

Line 5738: p_encoded => Fnd_Api.g_false,

5734: COMMIT WORK;
5735: END IF;
5736:
5737: Fnd_Msg_Pub.count_and_get(
5738: p_encoded => Fnd_Api.g_false,
5739: p_count => x_msg_count,
5740: p_data => x_msg_data
5741: );
5742:

Line 5750: WHEN FND_API.G_EXC_ERROR THEN

5746: 'At the end of PLSQL procedure. Return Status = ' || x_return_status);
5747: END IF;
5748:
5749: EXCEPTION
5750: WHEN FND_API.G_EXC_ERROR THEN
5751: x_return_status := FND_API.G_RET_STS_ERROR;
5752: ROLLBACK TO Release_Tasks_Pvt;
5753: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5754: p_data => x_msg_data,

Line 5751: x_return_status := FND_API.G_RET_STS_ERROR;

5747: END IF;
5748:
5749: EXCEPTION
5750: WHEN FND_API.G_EXC_ERROR THEN
5751: x_return_status := FND_API.G_RET_STS_ERROR;
5752: ROLLBACK TO Release_Tasks_Pvt;
5753: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5754: p_data => x_msg_data,
5755: p_encoded => fnd_api.g_false);

Line 5755: p_encoded => fnd_api.g_false);

5751: x_return_status := FND_API.G_RET_STS_ERROR;
5752: ROLLBACK TO Release_Tasks_Pvt;
5753: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5754: p_data => x_msg_data,
5755: p_encoded => fnd_api.g_false);
5756:
5757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5758: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5759: ROLLBACK TO Release_Tasks_Pvt;

Line 5757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

5753: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5754: p_data => x_msg_data,
5755: p_encoded => fnd_api.g_false);
5756:
5757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5758: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5759: ROLLBACK TO Release_Tasks_Pvt;
5760: Fnd_Msg_Pub.count_and_get (
5761: p_encoded => Fnd_Api.g_false,

Line 5758: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

5754: p_data => x_msg_data,
5755: p_encoded => fnd_api.g_false);
5756:
5757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5758: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5759: ROLLBACK TO Release_Tasks_Pvt;
5760: Fnd_Msg_Pub.count_and_get (
5761: p_encoded => Fnd_Api.g_false,
5762: p_count => x_msg_count,

Line 5761: p_encoded => Fnd_Api.g_false,

5757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5758: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5759: ROLLBACK TO Release_Tasks_Pvt;
5760: Fnd_Msg_Pub.count_and_get (
5761: p_encoded => Fnd_Api.g_false,
5762: p_count => x_msg_count,
5763: p_data => x_msg_data);
5764:
5765: WHEN OTHERS THEN

Line 5766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

5762: p_count => x_msg_count,
5763: p_data => x_msg_data);
5764:
5765: WHEN OTHERS THEN
5766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5767: ROLLBACK TO Release_Tasks_Pvt;
5768: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5769: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5770: p_procedure_name => 'Release_Tasks',

Line 5775: p_encoded => fnd_api.g_false);

5771: p_error_text => SUBSTR(SQLERRM,1,500));
5772: END IF;
5773: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
5774: p_data => x_msg_data,
5775: p_encoded => fnd_api.g_false);
5776:
5777: END Release_Tasks;
5778:
5779: ------------------------------------------------------------------

Line 5898: x_return_status := FND_API.G_RET_STS_SUCCESS;

5894: -- Standard start of API savepoint
5895: SAVEPOINT Validate_tasks_bef_prodn_pvt;
5896:
5897: -- Initialize API return status to success
5898: x_return_status := FND_API.G_RET_STS_SUCCESS;
5899:
5900: --chk if the visit is released/partially released.
5901: OPEN c_fet_master_wo (p_visit_id);
5902: FETCH c_fet_master_wo INTO c_mst_wo_visit_rec;

Line 5929: RAISE FND_API.G_EXC_ERROR;

5925: CLOSE c_task_dtls;
5926: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_INVALID_TSK_ID');
5927: Fnd_Message.SET_TOKEN('TASK_ID', p_tasks_tbl(i).visit_task_id);
5928: FND_MSG_PUB.ADD;
5929: RAISE FND_API.G_EXC_ERROR;
5930: END IF;
5931: CLOSE c_task_dtls;
5932:
5933: /* if the visit is partially released, then the planned end time for the wo should not be

Line 5946: RAISE FND_API.G_EXC_ERROR;

5942: c_tsk_dtls_rec.visit_task_number);
5943: END IF;
5944: FND_MESSAGE.SET_NAME(G_PM_PRODUCT_CODE,'AHL_VWP_PET_EXCD_SCT');
5945: FND_MSG_PUB.ADD;
5946: RAISE FND_API.G_EXC_ERROR;
5947: END IF;
5948:
5949: parent_task_found_flag := FALSE;
5950: /*when the summary task is selected then all child tasks/child mr's for the summary tasks/MR will be pushed to prodn.

Line 6024: RAISE FND_API.G_EXC_ERROR;

6020: END IF;
6021: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_SEL_SUM_TSK');
6022: Fnd_Message.SET_TOKEN('TASK_NUMBER', c_tsk_dtls_rec.visit_task_number);
6023: FND_MSG_PUB.ADD;
6024: RAISE FND_API.G_EXC_ERROR;
6025: END IF;
6026:
6027: lp_originating_task_id := c_summary_tsk_rec.originating_task_id;
6028:

Line 6090: RAISE FND_API.G_EXC_ERROR;

6086: CLOSE get_parent_task_dependencies;
6087: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_SEL_TECH_DEP');
6088: Fnd_Message.SET_TOKEN('TASK_NUMBER', x_tasks_tbl(i).visit_task_number);
6089: FND_MSG_PUB.ADD;
6090: RAISE FND_API.G_EXC_ERROR;
6091: END IF; --parent task not selected
6092: END IF;
6093: END LOOP; --loop through the parent dependent records
6094: CLOSE get_parent_task_dependencies;

Line 6128: RAISE FND_API.G_EXC_ERROR;

6124: CLOSE get_child_task_dependencies;
6125: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_SEL_TECH_DEP');
6126: Fnd_Message.SET_TOKEN('TASK_NUMBER', x_tasks_tbl(i).visit_task_number);
6127: FND_MSG_PUB.ADD;
6128: RAISE FND_API.G_EXC_ERROR;
6129: END IF; --curr task not selected
6130: END IF;
6131: END LOOP; --loop through the child dependent records
6132: CLOSE get_child_task_dependencies;

Line 6143: WHEN FND_API.G_EXC_ERROR THEN

6139: 'At the end of PL SQL procedure. x_tasks_tbl.COUNT = ' || x_tasks_tbl.COUNT);
6140: END IF;
6141:
6142: EXCEPTION
6143: WHEN FND_API.G_EXC_ERROR THEN
6144: x_return_status := FND_API.G_RET_STS_ERROR;
6145: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
6146: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
6147: p_data => x_msg_data,

Line 6144: x_return_status := FND_API.G_RET_STS_ERROR;

6140: END IF;
6141:
6142: EXCEPTION
6143: WHEN FND_API.G_EXC_ERROR THEN
6144: x_return_status := FND_API.G_RET_STS_ERROR;
6145: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
6146: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
6147: p_data => x_msg_data,
6148: p_encoded => fnd_api.g_false);

Line 6148: p_encoded => fnd_api.g_false);

6144: x_return_status := FND_API.G_RET_STS_ERROR;
6145: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
6146: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
6147: p_data => x_msg_data,
6148: p_encoded => fnd_api.g_false);
6149:
6150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6151: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6152: ROLLBACK TO Validate_tasks_bef_prodn_pvt;

Line 6150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

6146: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
6147: p_data => x_msg_data,
6148: p_encoded => fnd_api.g_false);
6149:
6150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6151: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6152: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
6153: Fnd_Msg_Pub.count_and_get (
6154: p_encoded => Fnd_Api.g_false,

Line 6151: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

6147: p_data => x_msg_data,
6148: p_encoded => fnd_api.g_false);
6149:
6150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6151: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6152: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
6153: Fnd_Msg_Pub.count_and_get (
6154: p_encoded => Fnd_Api.g_false,
6155: p_count => x_msg_count,

Line 6154: p_encoded => Fnd_Api.g_false,

6150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6151: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6152: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
6153: Fnd_Msg_Pub.count_and_get (
6154: p_encoded => Fnd_Api.g_false,
6155: p_count => x_msg_count,
6156: p_data => x_msg_data);
6157:
6158: WHEN OTHERS THEN

Line 6159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

6155: p_count => x_msg_count,
6156: p_data => x_msg_data);
6157:
6158: WHEN OTHERS THEN
6159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6160: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
6161: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6162: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6163: p_procedure_name => 'Validate_tasks_bef_production',

Line 6168: p_encoded => fnd_api.g_false);

6164: p_error_text => SUBSTR(SQLERRM,1,500));
6165: END IF;
6166: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
6167: p_data => x_msg_data,
6168: p_encoded => fnd_api.g_false);
6169:
6170: END Validate_tasks_bef_production;
6171:
6172: -------------------------------------------------------------------

Line 6180: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE

6176: -- Parameters :
6177: --
6178: -- Standard IN Parameters :
6179: -- p_api_version IN NUMBER Required
6180: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
6181: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
6182: -- p_module_type IN VARCHAR2 Default Null
6183: --
6184: -- Standard OUT Parameters :

Line 6181: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL

6177: --
6178: -- Standard IN Parameters :
6179: -- p_api_version IN NUMBER Required
6180: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
6181: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
6182: -- p_module_type IN VARCHAR2 Default Null
6183: --
6184: -- Standard OUT Parameters :
6185: -- x_return_status OUT VARCHAR2 Required

Line 6201: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,

6197: -------------------------------------------------------------------
6198:
6199: PROCEDURE Push_tasks_to_production(
6200: p_api_version IN NUMBER,
6201: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6202: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6203: p_module_type IN VARCHAR2 := Null,
6204: p_visit_id IN NUMBER,
6205: p_tasks_tbl IN Task_Tbl_Type,

Line 6202: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,

6198:
6199: PROCEDURE Push_tasks_to_production(
6200: p_api_version IN NUMBER,
6201: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6202: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6203: p_module_type IN VARCHAR2 := Null,
6204: p_visit_id IN NUMBER,
6205: p_tasks_tbl IN Task_Tbl_Type,
6206: p_release_flag IN VARCHAR2 ,

Line 6398: IF FND_API.To_Boolean(p_init_msg_list) THEN

6394: -- Standard start of API savepoint
6395: SAVEPOINT Push_tasks_to_prodn_pvt;
6396:
6397: -- Initialize message list if p_init_msg_list is set to TRUE
6398: IF FND_API.To_Boolean(p_init_msg_list) THEN
6399: FND_MSG_PUB.Initialize;
6400: END IF;
6401:
6402: -- Initialize API return status to success

Line 6403: x_return_status := FND_API.G_RET_STS_SUCCESS;

6399: FND_MSG_PUB.Initialize;
6400: END IF;
6401:
6402: -- Initialize API return status to success
6403: x_return_status := FND_API.G_RET_STS_SUCCESS;
6404:
6405: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
6406: p_api_version,
6407: l_api_name,G_PKG_NAME)

Line 6405: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

6401:
6402: -- Initialize API return status to success
6403: x_return_status := FND_API.G_RET_STS_SUCCESS;
6404:
6405: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
6406: p_api_version,
6407: l_api_name,G_PKG_NAME)
6408: THEN
6409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 6409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

6405: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
6406: p_api_version,
6407: l_api_name,G_PKG_NAME)
6408: THEN
6409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6410: END IF;
6411:
6412: IF (l_log_statement >= l_log_current_level) THEN
6413: fnd_log.string(l_log_statement,

Line 6436: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

6432: L_DEBUG_KEY,
6433: 'After calling Integrate_to_Projects. l_return_status = ' || l_return_status);
6434: END IF;
6435:
6436: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6437: x_msg_count := FND_MSG_PUB.count_msg;
6438: IF (l_log_statement >= l_log_current_level) THEN
6439: fnd_log.string(l_log_statement,
6440: L_DEBUG_KEY,

Line 6443: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

6439: fnd_log.string(l_log_statement,
6440: L_DEBUG_KEY,
6441: 'Errors from Integrate_to_Projects. Message count: ' || x_msg_count);
6442: END IF;
6443: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6444: RAISE FND_API.G_EXC_ERROR;
6445: ELSE
6446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6447: END IF;

Line 6444: RAISE FND_API.G_EXC_ERROR;

6440: L_DEBUG_KEY,
6441: 'Errors from Integrate_to_Projects. Message count: ' || x_msg_count);
6442: END IF;
6443: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6444: RAISE FND_API.G_EXC_ERROR;
6445: ELSE
6446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6447: END IF;
6448: END IF;

Line 6446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

6442: END IF;
6443: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6444: RAISE FND_API.G_EXC_ERROR;
6445: ELSE
6446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6447: END IF;
6448: END IF;
6449:
6450: --chk if master wo for the visit already exists

Line 6637: IF c_visit_tsk_dtl_rec.mr_route_id IS NOT NULL AND c_visit_tsk_dtl_rec.mr_route_id <> FND_API.g_miss_num THEN

6633: CLOSE get_wo_dtls_for_mrtasks_cur;
6634: l_prd_workorder_tbl(idx).JOB_DESCRIPTION := get_wo_dtls_for_mrtasks_rec.workorder_description;
6635: END IF;
6636:
6637: IF c_visit_tsk_dtl_rec.mr_route_id IS NOT NULL AND c_visit_tsk_dtl_rec.mr_route_id <> FND_API.g_miss_num THEN
6638: OPEN c_route (c_visit_tsk_dtl_rec.mr_route_id);
6639: FETCH c_route INTO l_prd_workorder_tbl(idx).ROUTE_ID;
6640: CLOSE c_route;
6641: ELSE

Line 6645: IF c_visit_tsk_dtl_rec.department_id IS NOT NULL AND c_visit_tsk_dtl_rec.department_id <> FND_API.g_miss_num THEN

6641: ELSE
6642: l_prd_workorder_tbl(idx).ROUTE_ID := Null;
6643: END IF;
6644:
6645: IF c_visit_tsk_dtl_rec.department_id IS NOT NULL AND c_visit_tsk_dtl_rec.department_id <> FND_API.g_miss_num THEN
6646: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_visit_tsk_dtl_rec.department_id ;
6647: ELSE
6648: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_visit_dtl_rec.department_id ;
6649: END IF;

Line 6798: p_default => FND_API.G_TRUE,

6794: (p_api_version => l_api_version ,
6795: p_init_msg_list => p_init_msg_list,
6796: p_commit => 'F',
6797: p_validation_level => p_validation_level,
6798: p_default => FND_API.G_TRUE,
6799: p_module_type => p_module_type,
6800: x_return_status => l_return_status,
6801: x_msg_count => l_msg_count,
6802: x_msg_data => l_msg_data,

Line 6814: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

6810: 'After calling PROCESS_JOBS for visit_id ' ||
6811: p_visit_id||', l_return_status: '|| l_return_status);
6812: END IF;
6813:
6814: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6815: x_msg_count := FND_MSG_PUB.count_msg;
6816: IF (l_log_statement >= l_log_current_level) THEN
6817: fnd_log.string(l_log_statement,
6818: L_DEBUG_KEY,

Line 6821: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

6817: fnd_log.string(l_log_statement,
6818: L_DEBUG_KEY,
6819: 'Errors from PROCESS_JOBS. Message count: ' || x_msg_count);
6820: END IF;
6821: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6822: RAISE FND_API.G_EXC_ERROR;
6823: ELSE
6824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6825: END IF;

Line 6822: RAISE FND_API.G_EXC_ERROR;

6818: L_DEBUG_KEY,
6819: 'Errors from PROCESS_JOBS. Message count: ' || x_msg_count);
6820: END IF;
6821: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6822: RAISE FND_API.G_EXC_ERROR;
6823: ELSE
6824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6825: END IF;
6826: END IF; -- Return Status is not Success

Line 6824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

6820: END IF;
6821: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6822: RAISE FND_API.G_EXC_ERROR;
6823: ELSE
6824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6825: END IF;
6826: END IF; -- Return Status is not Success
6827:
6828: IF (l_log_statement >= l_log_current_level) THEN

Line 6852: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

6848: x_return_status => l_return_status,
6849: x_msg_count => l_msg_count,
6850: x_msg_data => l_msg_data);
6851:
6852: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6853: x_msg_count := FND_MSG_PUB.count_msg;
6854: IF (l_log_statement >= l_log_current_level) THEN
6855: fnd_log.string(l_log_statement,
6856: L_DEBUG_KEY,

Line 6859: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

6855: fnd_log.string(l_log_statement,
6856: L_DEBUG_KEY,
6857: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
6858: END IF;
6859: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6860: RAISE FND_API.G_EXC_ERROR;
6861: ELSE
6862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6863: END IF;

Line 6860: RAISE FND_API.G_EXC_ERROR;

6856: L_DEBUG_KEY,
6857: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
6858: END IF;
6859: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6860: RAISE FND_API.G_EXC_ERROR;
6861: ELSE
6862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6863: END IF;
6864: ELSE

Line 6862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

6858: END IF;
6859: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6860: RAISE FND_API.G_EXC_ERROR;
6861: ELSE
6862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6863: END IF;
6864: ELSE
6865: IF (l_log_statement >= l_log_current_level) THEN
6866: fnd_log.string(l_log_statement,

Line 6926: WHEN FND_API.G_EXC_ERROR THEN

6922: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
6923: END IF;
6924:
6925: EXCEPTION
6926: WHEN FND_API.G_EXC_ERROR THEN
6927: x_return_status := FND_API.G_RET_STS_ERROR;
6928: ROLLBACK TO Push_tasks_to_prodn_pvt;
6929: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
6930: p_data => x_msg_data,

Line 6927: x_return_status := FND_API.G_RET_STS_ERROR;

6923: END IF;
6924:
6925: EXCEPTION
6926: WHEN FND_API.G_EXC_ERROR THEN
6927: x_return_status := FND_API.G_RET_STS_ERROR;
6928: ROLLBACK TO Push_tasks_to_prodn_pvt;
6929: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
6930: p_data => x_msg_data,
6931: p_encoded => fnd_api.g_false);

Line 6931: p_encoded => fnd_api.g_false);

6927: x_return_status := FND_API.G_RET_STS_ERROR;
6928: ROLLBACK TO Push_tasks_to_prodn_pvt;
6929: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
6930: p_data => x_msg_data,
6931: p_encoded => fnd_api.g_false);
6932:
6933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6934: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6935: ROLLBACK TO Push_tasks_to_prodn_pvt;

Line 6933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

6929: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
6930: p_data => x_msg_data,
6931: p_encoded => fnd_api.g_false);
6932:
6933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6934: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6935: ROLLBACK TO Push_tasks_to_prodn_pvt;
6936: Fnd_Msg_Pub.count_and_get (
6937: p_encoded => Fnd_Api.g_false,

Line 6934: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

6930: p_data => x_msg_data,
6931: p_encoded => fnd_api.g_false);
6932:
6933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6934: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6935: ROLLBACK TO Push_tasks_to_prodn_pvt;
6936: Fnd_Msg_Pub.count_and_get (
6937: p_encoded => Fnd_Api.g_false,
6938: p_count => x_msg_count,

Line 6937: p_encoded => Fnd_Api.g_false,

6933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6934: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6935: ROLLBACK TO Push_tasks_to_prodn_pvt;
6936: Fnd_Msg_Pub.count_and_get (
6937: p_encoded => Fnd_Api.g_false,
6938: p_count => x_msg_count,
6939: p_data => x_msg_data);
6940:
6941: WHEN OTHERS THEN

Line 6942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

6938: p_count => x_msg_count,
6939: p_data => x_msg_data);
6940:
6941: WHEN OTHERS THEN
6942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6943: ROLLBACK TO Push_tasks_to_prodn_pvt;
6944: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6945: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6946: p_procedure_name => 'Push_tasks_to_production',

Line 6951: p_encoded => fnd_api.g_false);

6947: p_error_text => SUBSTR(SQLERRM,1,500));
6948: END IF;
6949: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
6950: p_data => x_msg_data,
6951: p_encoded => fnd_api.g_false);
6952:
6953: END Push_tasks_to_production;
6954:
6955: -------------------------------------------------------------------

Line 6992: IF l_quarantined = FND_API.G_TRUE THEN

6988:
6989: IF item_instance_id IS NOT NULL THEN
6990: -- If the Visit header has an instance id, check for the corresponding Unit
6991: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,item_instance_id);
6992: IF l_quarantined = FND_API.G_TRUE THEN
6993: l_unit_name := ahl_util_uc_pkg.get_unit_name(item_instance_id);
6994: Fnd_Message.SET_NAME('AHL','AHL_VWP_VLD_HDR_UNIT_QRNT');
6995: -- The Unit for this Visit (UNIT_NAME-1) is quarantined.
6996: Fnd_Message.Set_Token('UNIT_NAME',l_unit_name);

Line 7010: IF l_quarantined = FND_API.G_TRUE THEN

7006: LOOP
7007: FETCH c_get_tasknumbers INTO l_task_number,l_instance_id;
7008: EXIT WHEN c_get_tasknumbers%NOTFOUND;
7009: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,l_instance_id);
7010: IF l_quarantined = FND_API.G_TRUE THEN
7011: Fnd_Message.SET_NAME('AHL','AHL_VWP_VLD_TSK_UNIT_QRNT');
7012: -- The Unit for the Task (UNIT_NAME-1) is quarantined.
7013: Fnd_Message.Set_Token('TASK_NUMBER',l_task_number);
7014: Fnd_Msg_Pub.ADD;

Line 7042: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE

7038: -- Parameters :
7039: --
7040: -- Standard IN Parameters :
7041: -- p_api_version IN NUMBER Required
7042: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
7043: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
7044: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
7045: --
7046: -- Standard OUT Parameters :

Line 7043: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE

7039: --
7040: -- Standard IN Parameters :
7041: -- p_api_version IN NUMBER Required
7042: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
7043: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
7044: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
7045: --
7046: -- Standard OUT Parameters :
7047: -- x_return_status OUT VARCHAR2 Required ='V' if validation fails

Line 7044: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL

7040: -- Standard IN Parameters :
7041: -- p_api_version IN NUMBER Required
7042: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
7043: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
7044: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
7045: --
7046: -- Standard OUT Parameters :
7047: -- x_return_status OUT VARCHAR2 Required ='V' if validation fails
7048: -- x_msg_count OUT NUMBER Required

Line 7062: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,

7058: -- 07/21/2005 YAZHOU Initial Creation
7059: -------------------------------------------------------------------
7060: PROCEDURE Release_MR (
7061: p_api_version IN NUMBER,
7062: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
7063: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
7064: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
7065: p_module_type IN VARCHAR2 := NULL,
7066: p_visit_id IN NUMBER,

Line 7063: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,

7059: -------------------------------------------------------------------
7060: PROCEDURE Release_MR (
7061: p_api_version IN NUMBER,
7062: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
7063: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
7064: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
7065: p_module_type IN VARCHAR2 := NULL,
7066: p_visit_id IN NUMBER,
7067: p_unit_effectivity_id IN NUMBER,

Line 7064: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,

7060: PROCEDURE Release_MR (
7061: p_api_version IN NUMBER,
7062: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
7063: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
7064: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
7065: p_module_type IN VARCHAR2 := NULL,
7066: p_visit_id IN NUMBER,
7067: p_unit_effectivity_id IN NUMBER,
7068: p_release_flag IN VARCHAR2 := 'N',

Line 7168: IF FND_API.To_Boolean( p_init_msg_list) THEN

7164: -- Standard start of API savepoint
7165: SAVEPOINT Release_MR;
7166:
7167: -- Initialize message list if p_init_msg_list is set to TRUE
7168: IF FND_API.To_Boolean( p_init_msg_list) THEN
7169: FND_MSG_PUB.Initialize;
7170: END IF;
7171:
7172: -- Initialize API return status to success

Line 7173: x_return_status := FND_API.G_RET_STS_SUCCESS;

7169: FND_MSG_PUB.Initialize;
7170: END IF;
7171:
7172: -- Initialize API return status to success
7173: x_return_status := FND_API.G_RET_STS_SUCCESS;
7174:
7175: -- Standard call to check for call compatibility.
7176: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
7177: p_api_version,

Line 7176: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

7172: -- Initialize API return status to success
7173: x_return_status := FND_API.G_RET_STS_SUCCESS;
7174:
7175: -- Standard call to check for call compatibility.
7176: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
7177: p_api_version,
7178: l_api_name,G_PKG_NAME)THEN
7179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7180: END IF;

Line 7179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

7175: -- Standard call to check for call compatibility.
7176: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
7177: p_api_version,
7178: l_api_name,G_PKG_NAME)THEN
7179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7180: END IF;
7181:
7182: IF (l_log_statement >= l_log_current_level) THEN
7183: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Request for Release_MR Visit ID : ' || p_visit_id);

Line 7189: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN

7185: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Request for Release_MR Release Flag : ' || p_release_flag);
7186: END IF;
7187:
7188: -- Check for Required Parameters
7189: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
7190: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CST_INPUT_MISS');
7191: FND_MSG_PUB.ADD;
7192: IF (l_log_unexpected >= l_log_current_level)THEN
7193: fnd_log.string(l_log_unexpected,L_DEBUG_KEY,'Visit id is mandatory but found null in input');

Line 7195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

7191: FND_MSG_PUB.ADD;
7192: IF (l_log_unexpected >= l_log_current_level)THEN
7193: fnd_log.string(l_log_unexpected,L_DEBUG_KEY,'Visit id is mandatory but found null in input');
7194: END IF;
7195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7196: END IF;
7197:
7198: IF(p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
7199: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_UE_INPUT_MISS');

Line 7198: IF(p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN

7194: END IF;
7195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7196: END IF;
7197:
7198: IF(p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
7199: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_UE_INPUT_MISS');
7200: FND_MSG_PUB.ADD;
7201: IF (l_log_unexpected >= l_log_current_level)THEN
7202: fnd_log.string(l_log_unexpected,L_DEBUG_KEY,'Unit Effectivity id is mandatory but found null in input ');

Line 7204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

7200: FND_MSG_PUB.ADD;
7201: IF (l_log_unexpected >= l_log_current_level)THEN
7202: fnd_log.string(l_log_unexpected,L_DEBUG_KEY,'Unit Effectivity id is mandatory but found null in input ');
7203: END IF;
7204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7205: END IF;
7206:
7207: IF (l_log_statement >= l_log_current_level)THEN
7208: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before Calling Validate Before Production for visit Id: ' ||p_visit_id);

Line 7228: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

7224: IF (l_log_statement >= l_log_current_level)THEN
7225: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After Calling Validate Before Production - l_return_status : '|| l_return_status);
7226: END IF;
7227:
7228: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7229: -- Check Error Message stack.
7230: x_msg_count := FND_MSG_PUB.count_msg;
7231: IF (l_log_statement >= l_log_current_level)THEN
7232: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Validate Before Production' || x_msg_count);

Line 7234: RAISE Fnd_Api.g_exc_error;

7230: x_msg_count := FND_MSG_PUB.count_msg;
7231: IF (l_log_statement >= l_log_current_level)THEN
7232: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Validate Before Production' || x_msg_count);
7233: END IF;
7234: RAISE Fnd_Api.g_exc_error;
7235: END IF;
7236:
7237: IF l_error_tbl_type.COUNT > 0 THEN
7238: x_return_status := l_validate_error;

Line 7251: p_init_msg_list => Fnd_Api.G_FALSE,

7247: FOR l_get_independent_tasks IN get_independent_tasks(c_visit_rec.visit_id,p_unit_effectivity_id)
7248: LOOP
7249: AHL_VWP_TIMES_PVT.adjust_task_times(
7250: p_api_version => 1.0,
7251: p_init_msg_list => Fnd_Api.G_FALSE,
7252: p_commit => Fnd_Api.G_FALSE,
7253: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7254: x_return_status => l_return_status,
7255: x_msg_count => l_msg_count,

Line 7252: p_commit => Fnd_Api.G_FALSE,

7248: LOOP
7249: AHL_VWP_TIMES_PVT.adjust_task_times(
7250: p_api_version => 1.0,
7251: p_init_msg_list => Fnd_Api.G_FALSE,
7252: p_commit => Fnd_Api.G_FALSE,
7253: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7254: x_return_status => l_return_status,
7255: x_msg_count => l_msg_count,
7256: x_msg_data => l_msg_data,

Line 7253: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,

7249: AHL_VWP_TIMES_PVT.adjust_task_times(
7250: p_api_version => 1.0,
7251: p_init_msg_list => Fnd_Api.G_FALSE,
7252: p_commit => Fnd_Api.G_FALSE,
7253: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7254: x_return_status => l_return_status,
7255: x_msg_count => l_msg_count,
7256: x_msg_data => l_msg_data,
7257: p_task_id => l_get_independent_tasks.visit_task_id,

Line 7258: p_reset_sysdate_flag => FND_API.G_TRUE);

7254: x_return_status => l_return_status,
7255: x_msg_count => l_msg_count,
7256: x_msg_data => l_msg_data,
7257: p_task_id => l_get_independent_tasks.visit_task_id,
7258: p_reset_sysdate_flag => FND_API.G_TRUE);
7259: END LOOP;
7260: l_visit_end_time := AHL_VWP_TIMES_PVT.get_visit_end_time(c_visit_rec.visit_id);
7261: IF l_visit_end_time > c_visit_rec.close_date_time THEN
7262: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_TSK_STDT_ADJU');

Line 7270: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN

7266: END IF;
7267: END IF;
7268: END IF;
7269:
7270: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
7271: /* Check visit end date instead
7272: --The MR end date
7273: OPEN get_summary_task_times_csr(p_visit_id, p_unit_effectivity_id);
7274: FETCH get_summary_task_times_csr into l_MR_end_time;

Line 7293: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

7289: FND_MSG_PUB.ADD;
7290: END IF;
7291: END IF;
7292:
7293: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7294: -- Per MEL/CDL requirement, if tasks are sucessfully created but fail to be pushed
7295: -- to production, then they will stay in 'PLANNING' status.
7296: IF p_module_type <>'PROD' THEN
7297: -- Check Error Message stack.

Line 7302: RAISE Fnd_Api.g_exc_error;

7298: x_msg_count := FND_MSG_PUB.count_msg;
7299: IF (l_log_statement >= l_log_current_level)THEN
7300: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Validate Before Production'|| x_msg_count);
7301: END IF;
7302: RAISE Fnd_Api.g_exc_error;
7303: END IF;
7304: ELSE
7305: IF (l_log_statement >= l_log_current_level)THEN
7306: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before Calling Push_MR_to_Production for UE Id: ' ||p_unit_effectivity_id);

Line 7326: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

7322: IF (l_log_statement >= l_log_current_level)THEN
7323: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After Calling Push_MR_to_Production - l_return_status : ' ||l_return_status);
7324: END IF;
7325:
7326: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7327: -- Check Error Message stack.
7328: x_msg_count := FND_MSG_PUB.count_msg;
7329: IF (l_log_statement >= l_log_current_level)THEN
7330: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Push to Production: ' || x_msg_count);

Line 7332: RAISE Fnd_Api.g_exc_error;

7328: x_msg_count := FND_MSG_PUB.count_msg;
7329: IF (l_log_statement >= l_log_current_level)THEN
7330: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Push to Production: ' || x_msg_count);
7331: END IF;
7332: RAISE Fnd_Api.g_exc_error;
7333: END IF;
7334:
7335: /*Return root root workorder ID for the given UE*/
7336: OPEN get_wo(p_visit_id, p_unit_effectivity_id);

Line 7342: IF FND_API.TO_BOOLEAN(p_commit) THEN

7338: CLOSE get_wo;
7339: END IF;
7340:
7341: -- Standard check of p_commit
7342: IF FND_API.TO_BOOLEAN(p_commit) THEN
7343: COMMIT WORK;
7344: END IF;
7345:
7346: Fnd_Msg_Pub.count_and_get(

Line 7347: p_encoded => Fnd_Api.g_false,

7343: COMMIT WORK;
7344: END IF;
7345:
7346: Fnd_Msg_Pub.count_and_get(
7347: p_encoded => Fnd_Api.g_false,
7348: p_count => x_msg_count,
7349: p_data => x_msg_data);
7350:
7351: IF (l_log_procedure >= l_log_current_level)THEN

Line 7356: WHEN FND_API.G_EXC_ERROR THEN

7352: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of PLSQL procedure');
7353: END IF;
7354:
7355: EXCEPTION
7356: WHEN FND_API.G_EXC_ERROR THEN
7357: x_return_status := FND_API.G_RET_STS_ERROR;
7358: ROLLBACK TO Release_MR;
7359: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7360: p_data => x_msg_data,

Line 7357: x_return_status := FND_API.G_RET_STS_ERROR;

7353: END IF;
7354:
7355: EXCEPTION
7356: WHEN FND_API.G_EXC_ERROR THEN
7357: x_return_status := FND_API.G_RET_STS_ERROR;
7358: ROLLBACK TO Release_MR;
7359: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7360: p_data => x_msg_data,
7361: p_encoded => fnd_api.g_false);

Line 7361: p_encoded => fnd_api.g_false);

7357: x_return_status := FND_API.G_RET_STS_ERROR;
7358: ROLLBACK TO Release_MR;
7359: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7360: p_data => x_msg_data,
7361: p_encoded => fnd_api.g_false);
7362:
7363:
7364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 7364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

7360: p_data => x_msg_data,
7361: p_encoded => fnd_api.g_false);
7362:
7363:
7364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7366: ROLLBACK TO Release_MR;
7367: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7368: p_data => x_msg_data,

Line 7365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

7361: p_encoded => fnd_api.g_false);
7362:
7363:
7364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7366: ROLLBACK TO Release_MR;
7367: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7368: p_data => x_msg_data,
7369: p_encoded => fnd_api.g_false);

Line 7369: p_encoded => fnd_api.g_false);

7365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7366: ROLLBACK TO Release_MR;
7367: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7368: p_data => x_msg_data,
7369: p_encoded => fnd_api.g_false);
7370:
7371:
7372: WHEN OTHERS THEN
7373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 7373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

7369: p_encoded => fnd_api.g_false);
7370:
7371:
7372: WHEN OTHERS THEN
7373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7374: ROLLBACK TO Release_MR;
7375: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7376: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
7377: p_procedure_name => 'Release_MR',

Line 7382: p_encoded => fnd_api.g_false);

7378: p_error_text => SUBSTR(SQLERRM,1,500));
7379: END IF;
7380: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7381: p_data => x_msg_data,
7382: p_encoded => fnd_api.g_false);
7383:
7384: END Release_MR;
7385:
7386: --------------------------------------------------------------------

Line 7714: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,

7710: -- To push MR along with all its tasks to Production
7711: --------------------------------------------------------------------
7712: PROCEDURE Push_MR_to_Production
7713: ( p_api_version IN NUMBER,
7714: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7715: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7716: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7717: p_module_type IN VARCHAR2 := Null,
7718: p_visit_id IN NUMBER,

Line 7715: p_commit IN VARCHAR2 := Fnd_Api.g_false,

7711: --------------------------------------------------------------------
7712: PROCEDURE Push_MR_to_Production
7713: ( p_api_version IN NUMBER,
7714: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7715: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7716: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7717: p_module_type IN VARCHAR2 := Null,
7718: p_visit_id IN NUMBER,
7719: p_unit_effectivity_id IN NUMBER,

Line 7716: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,

7712: PROCEDURE Push_MR_to_Production
7713: ( p_api_version IN NUMBER,
7714: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7715: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7716: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7717: p_module_type IN VARCHAR2 := Null,
7718: p_visit_id IN NUMBER,
7719: p_unit_effectivity_id IN NUMBER,
7720: p_release_flag IN VARCHAR2 := 'N',

Line 7841: IF Fnd_Api.to_boolean(p_init_msg_list) THEN

7837: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the begin of the procedure');
7838: END IF;
7839:
7840: -- Initialize message list if p_init_msg_list is set to TRUE.
7841: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
7842: Fnd_Msg_Pub.initialize;
7843: END IF;
7844:
7845: -- Initialize API return status to success

Line 7846: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

7842: Fnd_Msg_Pub.initialize;
7843: END IF;
7844:
7845: -- Initialize API return status to success
7846: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7847:
7848: -- Standard call to check for call compatibility.
7849: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
7850: p_api_version,

Line 7849: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,

7845: -- Initialize API return status to success
7846: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7847:
7848: -- Standard call to check for call compatibility.
7849: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
7850: p_api_version,
7851: l_api_name,G_PKG_NAME) THEN
7852: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7853: END IF;

Line 7852: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;

7848: -- Standard call to check for call compatibility.
7849: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
7850: p_api_version,
7851: l_api_name,G_PKG_NAME) THEN
7852: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7853: END IF;
7854:
7855: IF (l_log_statement >= l_log_current_level) THEN
7856: fnd_log.string(l_log_statement,L_DEBUG_KEY,'p_unit_effectivity_id : '||p_unit_effectivity_id||'Visit Id : ' || p_visit_id);

Line 7880: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

7876: IF (l_log_statement >= l_log_current_level) THEN
7877: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling Add_MR_to_Projects - l_return_status : '||l_return_status);
7878: END IF;
7879:
7880: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7881: -- Check Error Message stack.
7882: x_msg_count := FND_MSG_PUB.count_msg;
7883: RAISE Fnd_Api.g_exc_error;
7884: END IF;

Line 7883: RAISE Fnd_Api.g_exc_error;

7879:
7880: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7881: -- Check Error Message stack.
7882: x_msg_count := FND_MSG_PUB.count_msg;
7883: RAISE Fnd_Api.g_exc_error;
7884: END IF;
7885:
7886: OPEN c_visit (p_visit_id);
7887: FETCH c_visit INTO c_visit_rec;

Line 7950: IF c_task_rec.mr_route_id IS NOT NULL AND c_task_rec.mr_route_id <> FND_API.g_miss_num THEN

7946: l_prd_workorder_tbl(idx).JOB_DESCRIPTION := l_get_wo_dtls_rec.workorder_description;
7947: END IF;
7948: -- SATHAPLI::Bug 5758813, 04-Jun-2008, fix end
7949:
7950: IF c_task_rec.mr_route_id IS NOT NULL AND c_task_rec.mr_route_id <> FND_API.g_miss_num THEN
7951: OPEN c_route (c_task_rec.mr_route_id);
7952: FETCH c_route INTO l_route_id;
7953: CLOSE c_route;
7954: l_prd_workorder_tbl(idx).ROUTE_ID := l_route_id ;

Line 7960: AND c_task_rec.department_id <> FND_API.g_miss_num THEN

7956: l_prd_workorder_tbl(idx).ROUTE_ID := Null;
7957: END IF;
7958:
7959: IF c_task_rec.department_id IS NOT NULL
7960: AND c_task_rec.department_id <> FND_API.g_miss_num THEN
7961: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_task_rec.department_id ;
7962: ELSE
7963: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_visit_rec.department_id ;
7964: END IF;

Line 8021: p_commit => FND_API.G_FALSE,

8017: AHL_PRD_WORKORDER_PVT.Process_Jobs
8018: (
8019: p_api_version => p_api_version,
8020: p_init_msg_list => p_init_msg_list,
8021: p_commit => FND_API.G_FALSE,
8022: p_validation_level => p_validation_level,
8023: p_default => FND_API.G_TRUE,
8024: p_module_type => p_module_type,
8025: x_return_status => l_return_status,

Line 8023: p_default => FND_API.G_TRUE,

8019: p_api_version => p_api_version,
8020: p_init_msg_list => p_init_msg_list,
8021: p_commit => FND_API.G_FALSE,
8022: p_validation_level => p_validation_level,
8023: p_default => FND_API.G_TRUE,
8024: p_module_type => p_module_type,
8025: x_return_status => l_return_status,
8026: x_msg_count => x_msg_count,
8027: x_msg_data => x_msg_data,

Line 8036: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

8032: IF (l_log_statement >= l_log_current_level) THEN
8033: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling AHL_PRD_WORKORDER_PVT.Process_Jobs - l_return_status : '||l_return_status);
8034: END IF;
8035:
8036: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8037: IF (l_log_statement >= l_log_current_level) THEN
8038: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from process_jobs API : ' || x_msg_count );
8039: END IF;
8040: RAISE Fnd_Api.g_exc_error;

Line 8040: RAISE Fnd_Api.g_exc_error;

8036: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8037: IF (l_log_statement >= l_log_current_level) THEN
8038: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from process_jobs API : ' || x_msg_count );
8039: END IF;
8040: RAISE Fnd_Api.g_exc_error;
8041: END IF;
8042:
8043: -- SATHAPLI::Bug 5758813, 04-Jun-2008, fix start
8044: -- Update the project tasks' (corresponding to the visit tasks) start and end date with those of the workorders' created above.

Line 8061: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN

8057: IF (l_log_statement >= l_log_current_level) THEN
8058: fnd_log.string(l_log_statement, l_debug_key, 'After calling Update_Project_Task_Times. x_return_status => '||x_return_status);
8059: END IF;
8060:
8061: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
8062: RAISE FND_API.G_EXC_ERROR;
8063: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8065: END IF;

Line 8062: RAISE FND_API.G_EXC_ERROR;

8058: fnd_log.string(l_log_statement, l_debug_key, 'After calling Update_Project_Task_Times. x_return_status => '||x_return_status);
8059: END IF;
8060:
8061: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
8062: RAISE FND_API.G_EXC_ERROR;
8063: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8065: END IF;
8066: -- SATHAPLI::Bug 5758813, 04-Jun-2008, fix end

Line 8063: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

8059: END IF;
8060:
8061: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
8062: RAISE FND_API.G_EXC_ERROR;
8063: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8065: END IF;
8066: -- SATHAPLI::Bug 5758813, 04-Jun-2008, fix end
8067: END IF; -- To find if the visit has any tasks

Line 8064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

8060:
8061: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
8062: RAISE FND_API.G_EXC_ERROR;
8063: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8065: END IF;
8066: -- SATHAPLI::Bug 5758813, 04-Jun-2008, fix end
8067: END IF; -- To find if the visit has any tasks
8068:

Line 8117: IF Fnd_Api.To_Boolean (p_commit) THEN

8113: END IF;
8114: END IF;
8115: ---------------------------End of Body-------------------------------------
8116: -- Standard check of p_commit.
8117: IF Fnd_Api.To_Boolean (p_commit) THEN
8118: COMMIT WORK;
8119: END IF;
8120:
8121: Fnd_Msg_Pub.count_and_get(

Line 8122: p_encoded => Fnd_Api.g_false,

8118: COMMIT WORK;
8119: END IF;
8120:
8121: Fnd_Msg_Pub.count_and_get(
8122: p_encoded => Fnd_Api.g_false,
8123: p_count => x_msg_count,
8124: p_data => x_msg_data
8125: );
8126:

Line 8132: WHEN Fnd_Api.g_exc_error THEN

8128: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of plsql procedure');
8129: END IF;
8130:
8131: EXCEPTION
8132: WHEN Fnd_Api.g_exc_error THEN
8133: ROLLBACK TO Push_MR_to_Production;
8134: x_return_status := Fnd_Api.g_ret_sts_error;
8135: Fnd_Msg_Pub.count_and_get (
8136: p_encoded => Fnd_Api.g_false,

Line 8134: x_return_status := Fnd_Api.g_ret_sts_error;

8130:
8131: EXCEPTION
8132: WHEN Fnd_Api.g_exc_error THEN
8133: ROLLBACK TO Push_MR_to_Production;
8134: x_return_status := Fnd_Api.g_ret_sts_error;
8135: Fnd_Msg_Pub.count_and_get (
8136: p_encoded => Fnd_Api.g_false,
8137: p_count => x_msg_count,
8138: p_data => x_msg_data

Line 8136: p_encoded => Fnd_Api.g_false,

8132: WHEN Fnd_Api.g_exc_error THEN
8133: ROLLBACK TO Push_MR_to_Production;
8134: x_return_status := Fnd_Api.g_ret_sts_error;
8135: Fnd_Msg_Pub.count_and_get (
8136: p_encoded => Fnd_Api.g_false,
8137: p_count => x_msg_count,
8138: p_data => x_msg_data
8139: );
8140: WHEN Fnd_Api.g_exc_unexpected_error THEN

Line 8140: WHEN Fnd_Api.g_exc_unexpected_error THEN

8136: p_encoded => Fnd_Api.g_false,
8137: p_count => x_msg_count,
8138: p_data => x_msg_data
8139: );
8140: WHEN Fnd_Api.g_exc_unexpected_error THEN
8141: ROLLBACK TO Push_MR_to_Production;
8142: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8143: Fnd_Msg_Pub.count_and_get (
8144: p_encoded => Fnd_Api.g_false,

Line 8142: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

8138: p_data => x_msg_data
8139: );
8140: WHEN Fnd_Api.g_exc_unexpected_error THEN
8141: ROLLBACK TO Push_MR_to_Production;
8142: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8143: Fnd_Msg_Pub.count_and_get (
8144: p_encoded => Fnd_Api.g_false,
8145: p_count => x_msg_count,
8146: p_data => x_msg_data

Line 8144: p_encoded => Fnd_Api.g_false,

8140: WHEN Fnd_Api.g_exc_unexpected_error THEN
8141: ROLLBACK TO Push_MR_to_Production;
8142: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8143: Fnd_Msg_Pub.count_and_get (
8144: p_encoded => Fnd_Api.g_false,
8145: p_count => x_msg_count,
8146: p_data => x_msg_data
8147: );
8148: WHEN OTHERS THEN

Line 8150: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

8146: p_data => x_msg_data
8147: );
8148: WHEN OTHERS THEN
8149: ROLLBACK TO Push_MR_to_Production;
8150: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8151: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8152: THEN
8153: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8154: END IF;

Line 8156: p_encoded => Fnd_Api.g_false,

8152: THEN
8153: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8154: END IF;
8155: Fnd_Msg_Pub.count_and_get (
8156: p_encoded => Fnd_Api.g_false,
8157: p_count => x_msg_count,
8158: p_data => x_msg_data
8159: );
8160: END Push_MR_to_Production;

Line 8172: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,

8168: -- when SR tasks are created in prodution
8169: --------------------------------------------------------------------
8170: PROCEDURE Add_MR_to_Project(
8171: p_api_version IN NUMBER,
8172: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
8173: p_commit IN VARCHAR2 := Fnd_Api.g_false,
8174: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
8175: p_module_type IN VARCHAR2 := Null,
8176: p_visit_id IN NUMBER,

Line 8173: p_commit IN VARCHAR2 := Fnd_Api.g_false,

8169: --------------------------------------------------------------------
8170: PROCEDURE Add_MR_to_Project(
8171: p_api_version IN NUMBER,
8172: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
8173: p_commit IN VARCHAR2 := Fnd_Api.g_false,
8174: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
8175: p_module_type IN VARCHAR2 := Null,
8176: p_visit_id IN NUMBER,
8177: p_unit_effectivity_id IN NUMBER,

Line 8174: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,

8170: PROCEDURE Add_MR_to_Project(
8171: p_api_version IN NUMBER,
8172: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
8173: p_commit IN VARCHAR2 := Fnd_Api.g_false,
8174: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
8175: p_module_type IN VARCHAR2 := Null,
8176: p_visit_id IN NUMBER,
8177: p_unit_effectivity_id IN NUMBER,
8178: x_return_status OUT NOCOPY VARCHAR2,

Line 8255: IF Fnd_Api.to_boolean(p_init_msg_list) THEN

8251: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of plsql procedure');
8252: END IF;
8253:
8254: -- Initialize message list if p_init_msg_list is set to TRUE.
8255: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
8256: Fnd_Msg_Pub.initialize;
8257: END IF;
8258:
8259: -- Initialize API return status to success

Line 8260: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

8256: Fnd_Msg_Pub.initialize;
8257: END IF;
8258:
8259: -- Initialize API return status to success
8260: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
8261:
8262: -- Standard call to check for call compatibility.
8263: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
8264: p_api_version,

Line 8263: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,

8259: -- Initialize API return status to success
8260: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
8261:
8262: -- Standard call to check for call compatibility.
8263: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
8264: p_api_version,
8265: l_api_name,G_PKG_NAME) THEN
8266: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8267: END IF;

Line 8266: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;

8262: -- Standard call to check for call compatibility.
8263: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
8264: p_api_version,
8265: l_api_name,G_PKG_NAME) THEN
8266: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8267: END IF;
8268:
8269: IF (l_log_statement >= l_log_current_level) THEN
8270: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Unit Effectivity ID = ' || p_unit_effectivity_id);

Line 8285: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN

8281: AHL_VWP_RULES_PVT.Check_Proj_Responsibility
8282: (x_check_project => l_chk_project,
8283: x_return_status => l_return_status);
8284:
8285: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
8286: x_return_status := l_return_status;
8287: RAISE G_EXC_ERROR;
8288: END IF;
8289:

Line 8411: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;

8407: IF (l_log_statement >= l_log_current_level) THEN
8408: fnd_log.string(l_log_statement,L_DEBUG_KEY,': Another Error ='||l_msg_data);
8409: END IF;
8410: END IF;
8411: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8412: END IF;
8413:
8414: IF l_return_status = 'S' THEN
8415: /*NR-MR Changes - added this to ensure that duplicates are not passed*/

Line 8422: x_return_status := Fnd_Api.g_ret_sts_error;

8418: OBJECT_VERSION_NUMBER = c_task_rec.object_version_number + 1
8419: WHERE VISIT_TASK_ID = c_task_rec.visit_task_id;
8420: END IF;
8421: ELSIF l_project_tsk_flag = 'N' AND l_proj_ref_flag = 'Y' THEN
8422: x_return_status := Fnd_Api.g_ret_sts_error;
8423: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8424: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
8425: Fnd_Msg_Pub.ADD;
8426: END IF;

Line 8428: x_return_status := Fnd_Api.g_ret_sts_error;

8424: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
8425: Fnd_Msg_Pub.ADD;
8426: END IF;
8427: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
8428: x_return_status := Fnd_Api.g_ret_sts_error;
8429: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8430: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
8431: Fnd_Msg_Pub.ADD;
8432: END IF;

Line 8434: x_return_status := Fnd_Api.g_ret_sts_error;

8430: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
8431: Fnd_Msg_Pub.ADD;
8432: END IF;
8433: ELSE
8434: x_return_status := Fnd_Api.g_ret_sts_error;
8435: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8436: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TASK_NOT_UNIQUE');
8437: Fnd_Msg_Pub.ADD;
8438: END IF;

Line 8448: IF Fnd_Api.To_Boolean ( p_commit ) THEN

8444: END IF; -- l_chk_project
8445: ---------------------------End of Body-------------------------------------
8446: -- Standard check of p_commit.
8447:
8448: IF Fnd_Api.To_Boolean ( p_commit ) THEN
8449: COMMIT WORK;
8450: END IF;
8451:
8452: Fnd_Msg_Pub.count_and_get(

Line 8453: p_encoded => Fnd_Api.g_false,

8449: COMMIT WORK;
8450: END IF;
8451:
8452: Fnd_Msg_Pub.count_and_get(
8453: p_encoded => Fnd_Api.g_false,
8454: p_count => x_msg_count,
8455: p_data => x_msg_data
8456: );
8457:

Line 8463: WHEN Fnd_Api.g_exc_error THEN

8459: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of plsql procedure');
8460: END IF;
8461:
8462: EXCEPTION
8463: WHEN Fnd_Api.g_exc_error THEN
8464: ROLLBACK TO Add_MR_to_Project;
8465: x_return_status := Fnd_Api.g_ret_sts_error;
8466: Fnd_Msg_Pub.count_and_get (
8467: p_encoded => Fnd_Api.g_false,

Line 8465: x_return_status := Fnd_Api.g_ret_sts_error;

8461:
8462: EXCEPTION
8463: WHEN Fnd_Api.g_exc_error THEN
8464: ROLLBACK TO Add_MR_to_Project;
8465: x_return_status := Fnd_Api.g_ret_sts_error;
8466: Fnd_Msg_Pub.count_and_get (
8467: p_encoded => Fnd_Api.g_false,
8468: p_count => x_msg_count,
8469: p_data => x_msg_data

Line 8467: p_encoded => Fnd_Api.g_false,

8463: WHEN Fnd_Api.g_exc_error THEN
8464: ROLLBACK TO Add_MR_to_Project;
8465: x_return_status := Fnd_Api.g_ret_sts_error;
8466: Fnd_Msg_Pub.count_and_get (
8467: p_encoded => Fnd_Api.g_false,
8468: p_count => x_msg_count,
8469: p_data => x_msg_data
8470: );
8471: WHEN Fnd_Api.g_exc_unexpected_error THEN

Line 8471: WHEN Fnd_Api.g_exc_unexpected_error THEN

8467: p_encoded => Fnd_Api.g_false,
8468: p_count => x_msg_count,
8469: p_data => x_msg_data
8470: );
8471: WHEN Fnd_Api.g_exc_unexpected_error THEN
8472: ROLLBACK TO Add_MR_to_Project;
8473: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8474: Fnd_Msg_Pub.count_and_get (
8475: p_encoded => Fnd_Api.g_false,

Line 8473: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

8469: p_data => x_msg_data
8470: );
8471: WHEN Fnd_Api.g_exc_unexpected_error THEN
8472: ROLLBACK TO Add_MR_to_Project;
8473: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8474: Fnd_Msg_Pub.count_and_get (
8475: p_encoded => Fnd_Api.g_false,
8476: p_count => x_msg_count,
8477: p_data => x_msg_data

Line 8475: p_encoded => Fnd_Api.g_false,

8471: WHEN Fnd_Api.g_exc_unexpected_error THEN
8472: ROLLBACK TO Add_MR_to_Project;
8473: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8474: Fnd_Msg_Pub.count_and_get (
8475: p_encoded => Fnd_Api.g_false,
8476: p_count => x_msg_count,
8477: p_data => x_msg_data
8478: );
8479: WHEN OTHERS THEN

Line 8481: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

8477: p_data => x_msg_data
8478: );
8479: WHEN OTHERS THEN
8480: ROLLBACK TO Add_MR_to_Project;
8481: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8482: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8483: THEN
8484: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8485: END IF;

Line 8487: p_encoded => Fnd_Api.g_false,

8483: THEN
8484: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8485: END IF;
8486: Fnd_Msg_Pub.count_and_get (
8487: p_encoded => Fnd_Api.g_false,
8488: p_count => x_msg_count,
8489: p_data => x_msg_data
8490: );
8491: END Add_MR_to_Project;

Line 8534: x_return_status:= FND_API.G_RET_STS_SUCCESS;

8530: -- Standard start of API savepoint
8531: SAVEPOINT AGGREGATE_MATERIAL_REQRS;
8532:
8533: -- Initialize return status to success before any code logic/validation
8534: x_return_status:= FND_API.G_RET_STS_SUCCESS;
8535:
8536: -- Standard call to check for call compatibility
8537: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
8538: THEN

Line 8537: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)

8533: -- Initialize return status to success before any code logic/validation
8534: x_return_status:= FND_API.G_RET_STS_SUCCESS;
8535:
8536: -- Standard call to check for call compatibility
8537: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
8538: THEN
8539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8540: END IF;
8541:

Line 8539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

8535:
8536: -- Standard call to check for call compatibility
8537: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
8538: THEN
8539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8540: END IF;
8541:
8542: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
8543: IF FND_API.TO_BOOLEAN(p_init_msg_list)

Line 8542: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE

8538: THEN
8539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8540: END IF;
8541:
8542: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
8543: IF FND_API.TO_BOOLEAN(p_init_msg_list)
8544: THEN
8545: FND_MSG_PUB.INITIALIZE;
8546: END IF;

Line 8543: IF FND_API.TO_BOOLEAN(p_init_msg_list)

8539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8540: END IF;
8541:
8542: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
8543: IF FND_API.TO_BOOLEAN(p_init_msg_list)
8544: THEN
8545: FND_MSG_PUB.INITIALIZE;
8546: END IF;
8547:

Line 8584: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

8580: 'After calling AGGREGATE_TASK_MATERIAL_REQRS for Visit Task Id: ' ||
8581: l_visit_task_id || '. Return Status = '|| l_return_status);
8582: END IF;
8583:
8584: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8585: x_msg_count := FND_MSG_PUB.count_msg;
8586: IF (l_log_statement >= l_log_current_level) THEN
8587: fnd_log.string(l_log_statement,
8588: L_DEBUG_KEY,

Line 8591: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

8587: fnd_log.string(l_log_statement,
8588: L_DEBUG_KEY,
8589: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
8590: END IF;
8591: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8592: RAISE FND_API.G_EXC_ERROR;
8593: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8595: END IF;

Line 8592: RAISE FND_API.G_EXC_ERROR;

8588: L_DEBUG_KEY,
8589: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
8590: END IF;
8591: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8592: RAISE FND_API.G_EXC_ERROR;
8593: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8595: END IF;
8596: END IF;

Line 8593: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

8589: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
8590: END IF;
8591: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8592: RAISE FND_API.G_EXC_ERROR;
8593: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8595: END IF;
8596: END IF;
8597:

Line 8594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

8590: END IF;
8591: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8592: RAISE FND_API.G_EXC_ERROR;
8593: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8595: END IF;
8596: END IF;
8597:
8598: END LOOP;

Line 8673: x_return_status:= FND_API.G_RET_STS_SUCCESS;

8669: l_previous_item NUMBER := NULL;
8670:
8671: BEGIN
8672: -- Initialize return status to success before any code logic/validation
8673: x_return_status:= FND_API.G_RET_STS_SUCCESS;
8674:
8675: IF (l_log_procedure >= l_log_current_level) THEN
8676: fnd_log.string(l_log_procedure,
8677: L_DEBUG_KEY ||'.begin',

Line 8682: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)

8678: 'At the start of PL SQL procedure. Visit Task Id = ' || p_task_id);
8679: END IF;
8680:
8681: -- Standard call to check for call compatibility
8682: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
8683: THEN
8684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8685: END IF;
8686:

Line 8684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

8680:
8681: -- Standard call to check for call compatibility
8682: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
8683: THEN
8684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8685: END IF;
8686:
8687: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
8688: IF FND_API.TO_BOOLEAN(p_init_msg_list)

Line 8687: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE

8683: THEN
8684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8685: END IF;
8686:
8687: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
8688: IF FND_API.TO_BOOLEAN(p_init_msg_list)
8689: THEN
8690: FND_MSG_PUB.INITIALIZE;
8691: END IF;

Line 8688: IF FND_API.TO_BOOLEAN(p_init_msg_list)

8684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8685: END IF;
8686:
8687: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
8688: IF FND_API.TO_BOOLEAN(p_init_msg_list)
8689: THEN
8690: FND_MSG_PUB.INITIALIZE;
8691: END IF;
8692:

Line 8754: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

8750: 'After calling AHL_RSV_RESERVATIONS_PVT.TRNSFR_RSRV_FOR_MATRL_REQR. Return Status = '||
8751: x_return_status);
8752: END IF;
8753:
8754: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8755: x_msg_count := FND_MSG_PUB.count_msg;
8756: IF (l_log_statement >= l_log_current_level) THEN
8757: fnd_log.string(l_log_statement,
8758: L_DEBUG_KEY,

Line 8761: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

8757: fnd_log.string(l_log_statement,
8758: L_DEBUG_KEY,
8759: 'Errors from AHL_RSV_RESERVATIONS_PVT.TRNSFR_RSRV_FOR_MATRL_REQR. Message count: ' || x_msg_count);
8760: END IF;
8761: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8762: RAISE FND_API.G_EXC_ERROR;
8763: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8765: END IF;

Line 8762: RAISE FND_API.G_EXC_ERROR;

8758: L_DEBUG_KEY,
8759: 'Errors from AHL_RSV_RESERVATIONS_PVT.TRNSFR_RSRV_FOR_MATRL_REQR. Message count: ' || x_msg_count);
8760: END IF;
8761: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8762: RAISE FND_API.G_EXC_ERROR;
8763: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8765: END IF;
8766: END IF;

Line 8763: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

8759: 'Errors from AHL_RSV_RESERVATIONS_PVT.TRNSFR_RSRV_FOR_MATRL_REQR. Message count: ' || x_msg_count);
8760: END IF;
8761: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8762: RAISE FND_API.G_EXC_ERROR;
8763: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8765: END IF;
8766: END IF;
8767: END IF;

Line 8764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

8760: END IF;
8761: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8762: RAISE FND_API.G_EXC_ERROR;
8763: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8765: END IF;
8766: END IF;
8767: END IF;
8768: END IF;

Line 8823: -- p_commit IN VARCHAR2 Fnd_Api.G_FALSE

8819: -- Function : Update the project task start/end dates
8820: -- with the workorder schedule start/end dates
8821: -- Parameters :
8822: -- Standard IN Parameters :
8823: -- p_commit IN VARCHAR2 Fnd_Api.G_FALSE
8824: --
8825: -- Update_Project_Task_Times Parameters
8826: -- p_prd_workorder_tbl IN AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_TBL Required
8827: --

Line 8838: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,

8834: -- 04 January, 2007 Bug#5758813 SOWSUBRA Initial Version - 1.0
8835: -------------------------------------------------------------------
8836: PROCEDURE Update_Project_Task_Times
8837: ( p_prd_workorder_tbl IN AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_TBL,
8838: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
8839: x_return_status OUT NOCOPY VARCHAR2,
8840: x_msg_count OUT NOCOPY NUMBER,
8841: x_msg_data OUT NOCOPY VARCHAR2
8842: )

Line 8892: x_return_status:= FND_API.G_RET_STS_SUCCESS;

8888: visit_details_rec get_visit_details_cur%ROWTYPE;
8889:
8890: BEGIN
8891: -- Initialize return status to success before any code logic/validation
8892: x_return_status:= FND_API.G_RET_STS_SUCCESS;
8893:
8894: IF (l_log_procedure >= l_log_current_level) THEN
8895: fnd_log.string(l_log_procedure,
8896: L_DEBUG_KEY ||'.begin',

Line 8994: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

8990: L_DEBUG_KEY,
8991: 'After calling PA_PROJECT_PUB.update_project. Return Status = ' || l_return_status);
8992: END IF;
8993:
8994: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8995: IF (l_log_statement >= l_log_current_level) THEN
8996: fnd_log.string(l_log_statement,
8997: L_DEBUG_KEY,
8998: 'Errors from PA_PROJECT_PUB.update_project. Message count: ' ||

Line 9001: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

8997: L_DEBUG_KEY,
8998: 'Errors from PA_PROJECT_PUB.update_project. Message count: ' ||
8999: l_msg_count || ', message data: ' || l_msg_data);
9000: END IF;
9001: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9002: RAISE FND_API.G_EXC_ERROR;
9003: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9005: END IF;

Line 9002: RAISE FND_API.G_EXC_ERROR;

8998: 'Errors from PA_PROJECT_PUB.update_project. Message count: ' ||
8999: l_msg_count || ', message data: ' || l_msg_data);
9000: END IF;
9001: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9002: RAISE FND_API.G_EXC_ERROR;
9003: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9005: END IF;
9006: END IF; -- Return Status is not success

Line 9003: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

8999: l_msg_count || ', message data: ' || l_msg_data);
9000: END IF;
9001: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9002: RAISE FND_API.G_EXC_ERROR;
9003: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9005: END IF;
9006: END IF; -- Return Status is not success
9007: END IF; -- l_task_in_tbl.count > 0

Line 9004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

9000: END IF;
9001: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9002: RAISE FND_API.G_EXC_ERROR;
9003: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9005: END IF;
9006: END IF; -- Return Status is not success
9007: END IF; -- l_task_in_tbl.count > 0
9008:

Line 9029: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,

9025: --
9026: --------------------------------------------------------------------
9027: PROCEDURE Create_Job_Tasks(
9028: p_api_version IN NUMBER :=1.0,
9029: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
9030: p_commit IN VARCHAR2 := Fnd_Api.g_false,
9031: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
9032: p_module_type IN VARCHAR2 := Null,
9033: p_x_task_Tbl IN OUT NOCOPY Task_Tbl_Type,

Line 9030: p_commit IN VARCHAR2 := Fnd_Api.g_false,

9026: --------------------------------------------------------------------
9027: PROCEDURE Create_Job_Tasks(
9028: p_api_version IN NUMBER :=1.0,
9029: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
9030: p_commit IN VARCHAR2 := Fnd_Api.g_false,
9031: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
9032: p_module_type IN VARCHAR2 := Null,
9033: p_x_task_Tbl IN OUT NOCOPY Task_Tbl_Type,
9034: x_return_status OUT NOCOPY VARCHAR2,

Line 9031: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,

9027: PROCEDURE Create_Job_Tasks(
9028: p_api_version IN NUMBER :=1.0,
9029: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
9030: p_commit IN VARCHAR2 := Fnd_Api.g_false,
9031: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
9032: p_module_type IN VARCHAR2 := Null,
9033: p_x_task_Tbl IN OUT NOCOPY Task_Tbl_Type,
9034: x_return_status OUT NOCOPY VARCHAR2,
9035: x_msg_count OUT NOCOPY NUMBER,

Line 9148: IF Fnd_Api.to_boolean(p_init_msg_list) THEN

9144: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of the PLSQL procedure');
9145: END IF;
9146:
9147: -- Initialize message list if p_init_msg_list is set to TRUE.
9148: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
9149: Fnd_Msg_Pub.initialize;
9150: END IF;
9151:
9152: -- Initialize API return status to success

Line 9153: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;

9149: Fnd_Msg_Pub.initialize;
9150: END IF;
9151:
9152: -- Initialize API return status to success
9153: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
9154:
9155: -- Standard call to check for call compatibility.
9156: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
9157: p_api_version,

Line 9156: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,

9152: -- Initialize API return status to success
9153: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
9154:
9155: -- Standard call to check for call compatibility.
9156: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
9157: p_api_version,
9158: l_api_name,G_PKG_NAME) THEN
9159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9160: END IF;

Line 9159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

9155: -- Standard call to check for call compatibility.
9156: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
9157: p_api_version,
9158: l_api_name,G_PKG_NAME) THEN
9159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9160: END IF;
9161:
9162: --------------------------- Start of Body -------------------------------------
9163: IF (l_log_statement >= l_log_current_level) THEN

Line 9197: p_init_msg_list => Fnd_Api.g_false,

9193:
9194: -- Call create Visit Task API
9195: AHL_VWP_TASKS_PVT.Create_Task (
9196: p_api_version => p_api_version,
9197: p_init_msg_list => Fnd_Api.g_false,
9198: p_validation_level => p_validation_level,
9199: p_module_type => 'SR', --p_module_type,
9200: p_x_task_rec => p_x_task_Tbl(i),
9201: x_return_status => x_return_status,

Line 9214: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;

9210: END LOOP;
9211: END IF;
9212:
9213: IF x_return_status <> 'S' THEN
9214: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
9215: END IF;
9216:
9217: IF (p_x_task_Tbl.COUNT > 0) THEN
9218: i := p_x_task_Tbl.FIRST;

Line 9234: p_init_msg_list => Fnd_Api.G_FALSE,

9230: WHILE i IS NOT NULL
9231: LOOP
9232: AHL_VWP_TIMES_PVT.adjust_task_times(
9233: p_api_version => 1.0,
9234: p_init_msg_list => Fnd_Api.G_FALSE,
9235: p_commit => Fnd_Api.G_FALSE,
9236: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
9237: x_return_status => l_return_status,
9238: x_msg_count => l_msg_count,

Line 9235: p_commit => Fnd_Api.G_FALSE,

9231: LOOP
9232: AHL_VWP_TIMES_PVT.adjust_task_times(
9233: p_api_version => 1.0,
9234: p_init_msg_list => Fnd_Api.G_FALSE,
9235: p_commit => Fnd_Api.G_FALSE,
9236: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
9237: x_return_status => l_return_status,
9238: x_msg_count => l_msg_count,
9239: x_msg_data => l_msg_data,

Line 9236: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,

9232: AHL_VWP_TIMES_PVT.adjust_task_times(
9233: p_api_version => 1.0,
9234: p_init_msg_list => Fnd_Api.G_FALSE,
9235: p_commit => Fnd_Api.G_FALSE,
9236: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
9237: x_return_status => l_return_status,
9238: x_msg_count => l_msg_count,
9239: x_msg_data => l_msg_data,
9240: p_task_id => p_x_task_Tbl(i).visit_task_id,

Line 9241: p_reset_sysdate_flag => FND_API.G_TRUE);

9237: x_return_status => l_return_status,
9238: x_msg_count => l_msg_count,
9239: x_msg_data => l_msg_data,
9240: p_task_id => p_x_task_Tbl(i).visit_task_id,
9241: p_reset_sysdate_flag => FND_API.G_TRUE);
9242:
9243: i:= p_x_task_Tbl.NEXT(i);
9244: END LOOP;
9245: END IF;

Line 9382: IF c_task_rec.department_id IS NOT NULL AND c_task_rec.department_id <> FND_API.g_miss_num THEN

9378: l_prd_workorder_tbl(idx).VISIT_TASK_NUMBER := c_task_rec.visit_task_number ;
9379: l_prd_workorder_tbl(idx).PROJECT_TASK_ID := c_task_rec.project_task_id ;
9380: l_prd_workorder_tbl(idx).JOB_DESCRIPTION := c_task_rec.visit_task_name ;
9381:
9382: IF c_task_rec.department_id IS NOT NULL AND c_task_rec.department_id <> FND_API.g_miss_num THEN
9383: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_task_rec.department_id ;
9384: ELSE
9385: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_visit_rec.department_id ;
9386: END IF;

Line 9388: IF c_task_rec.mr_route_id IS NOT NULL AND c_task_rec.mr_route_id <> FND_API.g_miss_num THEN

9384: ELSE
9385: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_visit_rec.department_id ;
9386: END IF;
9387:
9388: IF c_task_rec.mr_route_id IS NOT NULL AND c_task_rec.mr_route_id <> FND_API.g_miss_num THEN
9389: OPEN c_route (c_task_rec.mr_route_id);
9390: FETCH c_route INTO l_route_id;
9391: CLOSE c_route;
9392: l_prd_workorder_tbl(idx).ROUTE_ID := l_route_id ;

Line 9431: p_commit => Fnd_Api.g_false,

9427: /* Begin Changes by Shkalyan */
9428: AHL_PRD_WORKORDER_PVT.Process_Jobs
9429: (p_api_version => p_api_version,
9430: p_init_msg_list => p_init_msg_list,
9431: p_commit => Fnd_Api.g_false,
9432: p_validation_level => p_validation_level,
9433: p_default => FND_API.G_TRUE,
9434: p_module_type => p_module_type,
9435: x_return_status => x_return_status,

Line 9433: p_default => FND_API.G_TRUE,

9429: (p_api_version => p_api_version,
9430: p_init_msg_list => p_init_msg_list,
9431: p_commit => Fnd_Api.g_false,
9432: p_validation_level => p_validation_level,
9433: p_default => FND_API.G_TRUE,
9434: p_module_type => p_module_type,
9435: x_return_status => x_return_status,
9436: x_msg_count => x_msg_count,
9437: x_msg_data => x_msg_data,

Line 9446: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

9442: IF (l_log_statement >= l_log_current_level) THEN
9443: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling AHL_PRD_WORKORDER_PVT.Process_Jobs - x_return_status = '||x_return_status);
9444: END IF;
9445:
9446: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9447: RAISE Fnd_Api.G_EXC_ERROR;
9448: END IF;
9449: END IF; -- To find if the visit has any tasks
9450:

Line 9447: RAISE Fnd_Api.G_EXC_ERROR;

9443: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling AHL_PRD_WORKORDER_PVT.Process_Jobs - x_return_status = '||x_return_status);
9444: END IF;
9445:
9446: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9447: RAISE Fnd_Api.G_EXC_ERROR;
9448: END IF;
9449: END IF; -- To find if the visit has any tasks
9450:
9451: IF (p_x_task_Tbl.COUNT > 0) THEN

Line 9510: IF Fnd_Api.To_Boolean (p_commit) THEN

9506: ---------------------------End of Body-------------------------------------
9507: -- END of API body.
9508: -- Standard check of p_commit.
9509:
9510: IF Fnd_Api.To_Boolean (p_commit) THEN
9511: COMMIT WORK;
9512: END IF;
9513:
9514: Fnd_Msg_Pub.count_and_get(

Line 9515: p_encoded => Fnd_Api.g_false,

9511: COMMIT WORK;
9512: END IF;
9513:
9514: Fnd_Msg_Pub.count_and_get(
9515: p_encoded => Fnd_Api.g_false,
9516: p_count => x_msg_count,
9517: p_data => x_msg_data);
9518:
9519: IF (l_log_procedure >= l_log_current_level) THEN

Line 9524: WHEN Fnd_Api.g_exc_error THEN

9520: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of the PLSQL procedure');
9521: END IF;
9522:
9523: EXCEPTION
9524: WHEN Fnd_Api.g_exc_error THEN
9525: ROLLBACK TO Create_Job_Tasks;
9526: x_return_status := Fnd_Api.g_ret_sts_error;
9527: Fnd_Msg_Pub.count_and_get (
9528: p_encoded => Fnd_Api.g_false,

Line 9526: x_return_status := Fnd_Api.g_ret_sts_error;

9522:
9523: EXCEPTION
9524: WHEN Fnd_Api.g_exc_error THEN
9525: ROLLBACK TO Create_Job_Tasks;
9526: x_return_status := Fnd_Api.g_ret_sts_error;
9527: Fnd_Msg_Pub.count_and_get (
9528: p_encoded => Fnd_Api.g_false,
9529: p_count => x_msg_count,
9530: p_data => x_msg_data

Line 9528: p_encoded => Fnd_Api.g_false,

9524: WHEN Fnd_Api.g_exc_error THEN
9525: ROLLBACK TO Create_Job_Tasks;
9526: x_return_status := Fnd_Api.g_ret_sts_error;
9527: Fnd_Msg_Pub.count_and_get (
9528: p_encoded => Fnd_Api.g_false,
9529: p_count => x_msg_count,
9530: p_data => x_msg_data
9531: );
9532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 9532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

9528: p_encoded => Fnd_Api.g_false,
9529: p_count => x_msg_count,
9530: p_data => x_msg_data
9531: );
9532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9533: ROLLBACK TO Create_Job_Tasks;
9534: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9535: Fnd_Msg_Pub.count_and_get (
9536: p_encoded => Fnd_Api.g_false,

Line 9534: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

9530: p_data => x_msg_data
9531: );
9532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9533: ROLLBACK TO Create_Job_Tasks;
9534: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9535: Fnd_Msg_Pub.count_and_get (
9536: p_encoded => Fnd_Api.g_false,
9537: p_count => x_msg_count,
9538: p_data => x_msg_data

Line 9536: p_encoded => Fnd_Api.g_false,

9532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9533: ROLLBACK TO Create_Job_Tasks;
9534: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9535: Fnd_Msg_Pub.count_and_get (
9536: p_encoded => Fnd_Api.g_false,
9537: p_count => x_msg_count,
9538: p_data => x_msg_data
9539: );
9540: WHEN OTHERS THEN

Line 9542: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;

9538: p_data => x_msg_data
9539: );
9540: WHEN OTHERS THEN
9541: ROLLBACK TO Create_Job_Tasks;
9542: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9543: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
9544: THEN
9545: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
9546: END IF;

Line 9548: p_encoded => Fnd_Api.g_false,

9544: THEN
9545: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
9546: END IF;
9547: Fnd_Msg_Pub.count_and_get (
9548: p_encoded => Fnd_Api.g_false,
9549: p_count => x_msg_count,
9550: p_data => x_msg_data
9551: );
9552: END Create_Job_Tasks;