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_LTP_SIMUL_PLAN_PUB dependencies on FND_API

Line 41: p_init_msg_list IN VARCHAR2 := FND_API.g_false,

37: --------------------------------------------------------------------
38:
39: PROCEDURE Process_Simulation_plan (
40: p_api_version IN NUMBER,
41: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
42: p_commit IN VARCHAR2 := FND_API.g_false,
43: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
44: p_module_type IN VARCHAR2 := 'JSP',
45: p_x_simulation_plan_tbl IN OUT NOCOPY Simulation_Plan_Tbl,

Line 42: p_commit IN VARCHAR2 := FND_API.g_false,

38:
39: PROCEDURE Process_Simulation_plan (
40: p_api_version IN NUMBER,
41: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
42: p_commit IN VARCHAR2 := FND_API.g_false,
43: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
44: p_module_type IN VARCHAR2 := 'JSP',
45: p_x_simulation_plan_tbl IN OUT NOCOPY Simulation_Plan_Tbl,
46: x_return_status OUT NOCOPY VARCHAR2,

Line 43: p_validation_level IN NUMBER := FND_API.g_valid_level_full,

39: PROCEDURE Process_Simulation_plan (
40: p_api_version IN NUMBER,
41: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
42: p_commit IN VARCHAR2 := FND_API.g_false,
43: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
44: p_module_type IN VARCHAR2 := 'JSP',
45: p_x_simulation_plan_tbl IN OUT NOCOPY Simulation_Plan_Tbl,
46: x_return_status OUT NOCOPY VARCHAR2,
47: x_msg_count OUT NOCOPY NUMBER,

Line 70: IF FND_API.to_boolean(p_init_msg_list)

66: IF G_DEBUG='Y' THEN
67: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pub.Process Simulation Plan','+SMPLN+');
68: END IF;
69: -- Standard call to check for call compatibility.
70: IF FND_API.to_boolean(p_init_msg_list)
71: THEN
72: FND_MSG_PUB.initialize;
73: END IF;
74: -- Initialize API return status to success

Line 75: x_return_status := FND_API.G_RET_STS_SUCCESS;

71: THEN
72: FND_MSG_PUB.initialize;
73: END IF;
74: -- Initialize API return status to success
75: x_return_status := FND_API.G_RET_STS_SUCCESS;
76: -- Initialize message list if p_init_msg_list is set to TRUE.
77: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
78: p_api_version,
79: l_api_name,G_PKG_NAME)

Line 77: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

73: END IF;
74: -- Initialize API return status to success
75: x_return_status := FND_API.G_RET_STS_SUCCESS;
76: -- Initialize message list if p_init_msg_list is set to TRUE.
77: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
78: p_api_version,
79: l_api_name,G_PKG_NAME)
80: THEN
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

77: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
78: p_api_version,
79: l_api_name,G_PKG_NAME)
80: THEN
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83: --------------------Start of API Body-----------------------------------
84: IF p_x_simulation_plan_tbl.COUNT > 0
85: THEN

Line 106: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

102: l_msg_count := Fnd_Msg_Pub.count_msg;
103:
104: IF l_msg_count > 0 THEN
105: X_msg_count := l_msg_count;
106: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
107: RAISE Fnd_Api.G_EXC_ERROR;
108: END IF;
109:
110: ELSIF p_x_simulation_plan_tbl(i).operation_flag = 'U' THEN

Line 107: RAISE Fnd_Api.G_EXC_ERROR;

103:
104: IF l_msg_count > 0 THEN
105: X_msg_count := l_msg_count;
106: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
107: RAISE Fnd_Api.G_EXC_ERROR;
108: END IF;
109:
110: ELSIF p_x_simulation_plan_tbl(i).operation_flag = 'U' THEN
111:

Line 129: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

125: l_msg_count := Fnd_Msg_Pub.count_msg;
126:
127: IF l_msg_count > 0 THEN
128: X_msg_count := l_msg_count;
129: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
130: RAISE Fnd_Api.G_EXC_ERROR;
131: END IF;
132:
133: ELSIF p_x_simulation_plan_tbl(i).operation_flag = 'D' THEN

Line 130: RAISE Fnd_Api.G_EXC_ERROR;

126:
127: IF l_msg_count > 0 THEN
128: X_msg_count := l_msg_count;
129: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
130: RAISE Fnd_Api.G_EXC_ERROR;
131: END IF;
132:
133: ELSIF p_x_simulation_plan_tbl(i).operation_flag = 'D' THEN
134: AHL_LTP_SIMUL_PLAN_PVT.DELETE_SIMULATION_PLAN

Line 151: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

147: l_msg_count := Fnd_Msg_Pub.count_msg;
148:
149: IF l_msg_count > 0 THEN
150: X_msg_count := l_msg_count;
151: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
152: RAISE Fnd_Api.G_EXC_ERROR;
153: END IF;
154:
155: END LOOP;

Line 152: RAISE Fnd_Api.G_EXC_ERROR;

148:
149: IF l_msg_count > 0 THEN
150: X_msg_count := l_msg_count;
151: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
152: RAISE Fnd_Api.G_EXC_ERROR;
153: END IF;
154:
155: END LOOP;
156: END IF;

Line 164: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

160: l_msg_count := Fnd_Msg_Pub.count_msg;
161:
162: IF l_msg_count > 0 THEN
163: X_msg_count := l_msg_count;
164: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
165: RAISE Fnd_Api.G_EXC_ERROR;
166: END IF;
167:
168: --Standard check for commit

Line 165: RAISE Fnd_Api.G_EXC_ERROR;

161:
162: IF l_msg_count > 0 THEN
163: X_msg_count := l_msg_count;
164: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
165: RAISE Fnd_Api.G_EXC_ERROR;
166: END IF;
167:
168: --Standard check for commit
169: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN

Line 169: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN

165: RAISE Fnd_Api.G_EXC_ERROR;
166: END IF;
167:
168: --Standard check for commit
169: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
170: COMMIT;
171: END IF;
172: -- Debug info
173: IF G_DEBUG='Y' THEN

Line 182: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

178: Ahl_Debug_Pub.disable_debug;
179: END IF;
180:
181: EXCEPTION
182: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
183: ROLLBACK TO process_simulation_plan;
184: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
185: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
186: p_count => x_msg_count,

Line 184: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

180:
181: EXCEPTION
182: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
183: ROLLBACK TO process_simulation_plan;
184: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
185: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
186: p_count => x_msg_count,
187: p_data => x_msg_data);
188:

Line 185: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

181: EXCEPTION
182: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
183: ROLLBACK TO process_simulation_plan;
184: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
185: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
186: p_count => x_msg_count,
187: p_data => x_msg_data);
188:
189: IF G_DEBUG='Y' THEN

Line 197: WHEN FND_API.G_EXC_ERROR THEN

193: END IF;
194: -- Check if API is called in debug mode. If yes, disable debug.
195: AHL_DEBUG_PUB.disable_debug;
196:
197: WHEN FND_API.G_EXC_ERROR THEN
198: ROLLBACK TO process_simulation_plan;
199: X_return_status := FND_API.G_RET_STS_ERROR;
200: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
201: p_count => x_msg_count,

Line 199: X_return_status := FND_API.G_RET_STS_ERROR;

195: AHL_DEBUG_PUB.disable_debug;
196:
197: WHEN FND_API.G_EXC_ERROR THEN
198: ROLLBACK TO process_simulation_plan;
199: X_return_status := FND_API.G_RET_STS_ERROR;
200: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
201: p_count => x_msg_count,
202: p_data => X_msg_data);
203: -- Debug info.

Line 200: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

196:
197: WHEN FND_API.G_EXC_ERROR THEN
198: ROLLBACK TO process_simulation_plan;
199: X_return_status := FND_API.G_RET_STS_ERROR;
200: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
201: p_count => x_msg_count,
202: p_data => X_msg_data);
203: -- Debug info.
204: IF G_DEBUG='Y' THEN

Line 214: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

210: AHL_DEBUG_PUB.disable_debug;
211:
212: WHEN OTHERS THEN
213: ROLLBACK TO process_simulation_plan;
214: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
215: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
216: THEN
217: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PUB',
218: p_procedure_name => 'PROCESS_SIMULATION_PLAN',

Line 221: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

217: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PUB',
218: p_procedure_name => 'PROCESS_SIMULATION_PLAN',
219: p_error_text => SUBSTR(SQLERRM,1,240));
220: END IF;
221: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
222: p_count => x_msg_count,
223: p_data => X_msg_data);
224:
225: -- Debug info.

Line 252: p_init_msg_list IN VARCHAR2 := FND_API.g_false,

248: -- NOTES
249: --------------------------------------------------------------------
250: PROCEDURE Process_Simulation_Visit (
251: p_api_version IN NUMBER,
252: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
253: p_commit IN VARCHAR2 := FND_API.g_false,
254: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
255: p_module_type IN VARCHAR2 := 'JSP',
256: p_simulation_visit_tbl IN OUT NOCOPY Simulation_Visit_Tbl,

Line 253: p_commit IN VARCHAR2 := FND_API.g_false,

249: --------------------------------------------------------------------
250: PROCEDURE Process_Simulation_Visit (
251: p_api_version IN NUMBER,
252: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
253: p_commit IN VARCHAR2 := FND_API.g_false,
254: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
255: p_module_type IN VARCHAR2 := 'JSP',
256: p_simulation_visit_tbl IN OUT NOCOPY Simulation_Visit_Tbl,
257: x_return_status OUT NOCOPY VARCHAR2,

Line 254: p_validation_level IN NUMBER := FND_API.g_valid_level_full,

250: PROCEDURE Process_Simulation_Visit (
251: p_api_version IN NUMBER,
252: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
253: p_commit IN VARCHAR2 := FND_API.g_false,
254: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
255: p_module_type IN VARCHAR2 := 'JSP',
256: p_simulation_visit_tbl IN OUT NOCOPY Simulation_Visit_Tbl,
257: x_return_status OUT NOCOPY VARCHAR2,
258: x_msg_count OUT NOCOPY NUMBER,

Line 284: IF FND_API.to_boolean(p_init_msg_list)

280: IF G_DEBUG='Y' THEN
281: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pub.Process Visits to Plan','+SMPLN+');
282: END IF;
283: -- Standard call to check for call compatibility.
284: IF FND_API.to_boolean(p_init_msg_list)
285: THEN
286: FND_MSG_PUB.initialize;
287: END IF;
288: -- Initialize API return status to success

Line 289: x_return_status := FND_API.G_RET_STS_SUCCESS;

285: THEN
286: FND_MSG_PUB.initialize;
287: END IF;
288: -- Initialize API return status to success
289: x_return_status := FND_API.G_RET_STS_SUCCESS;
290: -- Initialize message list if p_init_msg_list is set to TRUE.
291: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
292: p_api_version,
293: l_api_name,G_PKG_NAME)

Line 291: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

287: END IF;
288: -- Initialize API return status to success
289: x_return_status := FND_API.G_RET_STS_SUCCESS;
290: -- Initialize message list if p_init_msg_list is set to TRUE.
291: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
292: p_api_version,
293: l_api_name,G_PKG_NAME)
294: THEN
295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

291: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
292: p_api_version,
293: l_api_name,G_PKG_NAME)
294: THEN
295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
296: END IF;
297: --------------------Start of API Body-----------------------------------
298: IF p_simulation_visit_tbl.COUNT > 0
299: THEN

Line 336: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

332: l_msg_count := Fnd_Msg_Pub.count_msg;
333:
334: IF l_msg_count > 0 THEN
335: X_msg_count := l_msg_count;
336: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
337: RAISE Fnd_Api.G_EXC_ERROR;
338: END IF;
339:
340: /*

Line 337: RAISE Fnd_Api.G_EXC_ERROR;

333:
334: IF l_msg_count > 0 THEN
335: X_msg_count := l_msg_count;
336: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
337: RAISE Fnd_Api.G_EXC_ERROR;
338: END IF;
339:
340: /*
341: ELSIF p_simulation_visit_tbl(i).operation_flag = 'D' THEN

Line 390: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

386: l_msg_count := Fnd_Msg_Pub.count_msg;
387:
388: IF l_msg_count > 0 THEN
389: X_msg_count := l_msg_count;
390: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
391: RAISE Fnd_Api.G_EXC_ERROR;
392: END IF;
393:
394: IF p_simulation_visit_tbl(i).operation_flag = 'D' THEN

Line 391: RAISE Fnd_Api.G_EXC_ERROR;

387:
388: IF l_msg_count > 0 THEN
389: X_msg_count := l_msg_count;
390: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
391: RAISE Fnd_Api.G_EXC_ERROR;
392: END IF;
393:
394: IF p_simulation_visit_tbl(i).operation_flag = 'D' THEN
395: AHL_LTP_SIMUL_PLAN_PVT.Remove_Visits_FR_Plan (

Line 413: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

409: l_msg_count := Fnd_Msg_Pub.count_msg;
410:
411: IF l_msg_count > 0 THEN
412: X_msg_count := l_msg_count;
413: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
414: RAISE Fnd_Api.G_EXC_ERROR;
415: END IF;
416:
417: END LOOP;

Line 414: RAISE Fnd_Api.G_EXC_ERROR;

410:
411: IF l_msg_count > 0 THEN
412: X_msg_count := l_msg_count;
413: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
414: RAISE Fnd_Api.G_EXC_ERROR;
415: END IF;
416:
417: END LOOP;
418: END IF;

Line 425: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

421: l_msg_count := Fnd_Msg_Pub.count_msg;
422:
423: IF l_msg_count > 0 THEN
424: X_msg_count := l_msg_count;
425: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
426: RAISE Fnd_Api.G_EXC_ERROR;
427: END IF;
428:
429: --Standard check for commit

Line 426: RAISE Fnd_Api.G_EXC_ERROR;

422:
423: IF l_msg_count > 0 THEN
424: X_msg_count := l_msg_count;
425: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
426: RAISE Fnd_Api.G_EXC_ERROR;
427: END IF;
428:
429: --Standard check for commit
430: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN

Line 430: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN

426: RAISE Fnd_Api.G_EXC_ERROR;
427: END IF;
428:
429: --Standard check for commit
430: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
431: COMMIT;
432: END IF;
433: -- Debug info
434: IF G_DEBUG='Y' THEN

Line 443: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

439: Ahl_Debug_Pub.disable_debug;
440: END IF;
441:
442: EXCEPTION
443: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
444: ROLLBACK TO process_simulation_visit;
445: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
446: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
447: p_count => x_msg_count,

Line 445: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

441:
442: EXCEPTION
443: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
444: ROLLBACK TO process_simulation_visit;
445: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
446: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
447: p_count => x_msg_count,
448: p_data => x_msg_data);
449:

Line 446: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

442: EXCEPTION
443: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
444: ROLLBACK TO process_simulation_visit;
445: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
446: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
447: p_count => x_msg_count,
448: p_data => x_msg_data);
449:
450: IF G_DEBUG='Y' THEN

Line 458: WHEN FND_API.G_EXC_ERROR THEN

454: END IF;
455: -- Check if API is called in debug mode. If yes, disable debug.
456: AHL_DEBUG_PUB.disable_debug;
457:
458: WHEN FND_API.G_EXC_ERROR THEN
459: ROLLBACK TO process_simulation_visit;
460: X_return_status := FND_API.G_RET_STS_ERROR;
461: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
462: p_count => x_msg_count,

Line 460: X_return_status := FND_API.G_RET_STS_ERROR;

456: AHL_DEBUG_PUB.disable_debug;
457:
458: WHEN FND_API.G_EXC_ERROR THEN
459: ROLLBACK TO process_simulation_visit;
460: X_return_status := FND_API.G_RET_STS_ERROR;
461: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
462: p_count => x_msg_count,
463: p_data => X_msg_data);
464: -- Debug info.

Line 461: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

457:
458: WHEN FND_API.G_EXC_ERROR THEN
459: ROLLBACK TO process_simulation_visit;
460: X_return_status := FND_API.G_RET_STS_ERROR;
461: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
462: p_count => x_msg_count,
463: p_data => X_msg_data);
464: -- Debug info.
465: IF G_DEBUG='Y' THEN

Line 475: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

471: AHL_DEBUG_PUB.disable_debug;
472:
473: WHEN OTHERS THEN
474: ROLLBACK TO process_simulation_visit;
475: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
476: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
477: THEN
478: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PUB',
479: p_procedure_name => 'PROCESS_SIMULATION_VISIT',

Line 482: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

478: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PUB',
479: p_procedure_name => 'PROCESS_SIMULATION_VISIT',
480: p_error_text => SUBSTR(SQLERRM,1,240));
481: END IF;
482: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
483: p_count => x_msg_count,
484: p_data => X_msg_data);
485:
486: -- Debug info.

Line 514: p_init_msg_list IN VARCHAR2 := FND_API.g_false,

510: -- NOTES
511: --------------------------------------------------------------------
512: PROCEDURE Toggle_Simulation_Delete (
513: p_api_version IN NUMBER,
514: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
515: p_commit IN VARCHAR2 := FND_API.g_false,
516: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
517: p_module_type IN VARCHAR2 := 'JSP',
518: p_visit_id IN NUMBER,

Line 515: p_commit IN VARCHAR2 := FND_API.g_false,

511: --------------------------------------------------------------------
512: PROCEDURE Toggle_Simulation_Delete (
513: p_api_version IN NUMBER,
514: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
515: p_commit IN VARCHAR2 := FND_API.g_false,
516: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
517: p_module_type IN VARCHAR2 := 'JSP',
518: p_visit_id IN NUMBER,
519: p_visit_object_version_number IN NUMBER,

Line 516: p_validation_level IN NUMBER := FND_API.g_valid_level_full,

512: PROCEDURE Toggle_Simulation_Delete (
513: p_api_version IN NUMBER,
514: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
515: p_commit IN VARCHAR2 := FND_API.g_false,
516: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
517: p_module_type IN VARCHAR2 := 'JSP',
518: p_visit_id IN NUMBER,
519: p_visit_object_version_number IN NUMBER,
520: x_return_status OUT NOCOPY VARCHAR2,

Line 545: IF FND_API.to_boolean(p_init_msg_list)

541: IF G_DEBUG='Y' THEN
542: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pub.Toggle Simulation Delete','+SMPLN+');
543: END IF;
544: -- Standard call to check for call compatibility.
545: IF FND_API.to_boolean(p_init_msg_list)
546: THEN
547: FND_MSG_PUB.initialize;
548: END IF;
549: -- Initialize API return status to success

Line 550: x_return_status := FND_API.G_RET_STS_SUCCESS;

546: THEN
547: FND_MSG_PUB.initialize;
548: END IF;
549: -- Initialize API return status to success
550: x_return_status := FND_API.G_RET_STS_SUCCESS;
551: -- Initialize message list if p_init_msg_list is set to TRUE.
552: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
553: p_api_version,
554: l_api_name,G_PKG_NAME)

Line 552: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

548: END IF;
549: -- Initialize API return status to success
550: x_return_status := FND_API.G_RET_STS_SUCCESS;
551: -- Initialize message list if p_init_msg_list is set to TRUE.
552: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
553: p_api_version,
554: l_api_name,G_PKG_NAME)
555: THEN
556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

552: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
553: p_api_version,
554: l_api_name,G_PKG_NAME)
555: THEN
556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
557: END IF;
558: --------------------Start of API Body-----------------------------------
559: --Call Private APT
560: AHL_LTP_SIMUL_PLAN_PVT.Toggle_Simulation_Delete (

Line 579: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

575: l_msg_count := Fnd_Msg_Pub.count_msg;
576:
577: IF l_msg_count > 0 THEN
578: X_msg_count := l_msg_count;
579: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
580: RAISE Fnd_Api.G_EXC_ERROR;
581: END IF;
582:
583: --Standard check for commit

Line 580: RAISE Fnd_Api.G_EXC_ERROR;

576:
577: IF l_msg_count > 0 THEN
578: X_msg_count := l_msg_count;
579: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
580: RAISE Fnd_Api.G_EXC_ERROR;
581: END IF;
582:
583: --Standard check for commit
584: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN

Line 584: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN

580: RAISE Fnd_Api.G_EXC_ERROR;
581: END IF;
582:
583: --Standard check for commit
584: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
585: COMMIT;
586: END IF;
587: -- Debug info
588: IF G_DEBUG='Y' THEN

Line 595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

591: Ahl_Debug_Pub.disable_debug;
592: END IF;
593:
594: EXCEPTION
595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
596: ROLLBACK TO toggle_simulation_delete;
597: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
599: p_count => x_msg_count,

Line 597: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

593:
594: EXCEPTION
595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
596: ROLLBACK TO toggle_simulation_delete;
597: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
599: p_count => x_msg_count,
600: p_data => x_msg_data);
601:

Line 598: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

594: EXCEPTION
595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
596: ROLLBACK TO toggle_simulation_delete;
597: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
599: p_count => x_msg_count,
600: p_data => x_msg_data);
601:
602: IF G_DEBUG='Y' THEN

Line 610: WHEN FND_API.G_EXC_ERROR THEN

606: END IF;
607: -- Check if API is called in debug mode. If yes, disable debug.
608: AHL_DEBUG_PUB.disable_debug;
609:
610: WHEN FND_API.G_EXC_ERROR THEN
611: ROLLBACK TO toggle_simulation_delete;
612: X_return_status := FND_API.G_RET_STS_ERROR;
613: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
614: p_count => x_msg_count,

Line 612: X_return_status := FND_API.G_RET_STS_ERROR;

608: AHL_DEBUG_PUB.disable_debug;
609:
610: WHEN FND_API.G_EXC_ERROR THEN
611: ROLLBACK TO toggle_simulation_delete;
612: X_return_status := FND_API.G_RET_STS_ERROR;
613: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
614: p_count => x_msg_count,
615: p_data => X_msg_data);
616: -- Debug info.

Line 613: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

609:
610: WHEN FND_API.G_EXC_ERROR THEN
611: ROLLBACK TO toggle_simulation_delete;
612: X_return_status := FND_API.G_RET_STS_ERROR;
613: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
614: p_count => x_msg_count,
615: p_data => X_msg_data);
616: -- Debug info.
617: IF G_DEBUG='Y' THEN

Line 627: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

623: AHL_DEBUG_PUB.disable_debug;
624:
625: WHEN OTHERS THEN
626: ROLLBACK TO toggle_simulation_delete;
627: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
628: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
629: THEN
630: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PUB',
631: p_procedure_name => 'TOGGLE_SIMULATION_DELETE',

Line 634: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

630: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PUB',
631: p_procedure_name => 'TOGGLE_SIMULATION_DELETE',
632: p_error_text => SUBSTR(SQLERRM,1,240));
633: END IF;
634: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
635: p_count => x_msg_count,
636: p_data => X_msg_data);
637:
638: -- Debug info.

Line 665: p_init_msg_list IN VARCHAR2 := FND_API.g_false,

661: -- NOTES
662: --------------------------------------------------------------------
663: PROCEDURE Set_Plan_As_Primary (
664: p_api_version IN NUMBER,
665: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
666: p_commit IN VARCHAR2 := FND_API.g_false,
667: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
668: p_module_type IN VARCHAR2 := 'JSP',
669: p_plan_id IN NUMBER,

Line 666: p_commit IN VARCHAR2 := FND_API.g_false,

662: --------------------------------------------------------------------
663: PROCEDURE Set_Plan_As_Primary (
664: p_api_version IN NUMBER,
665: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
666: p_commit IN VARCHAR2 := FND_API.g_false,
667: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
668: p_module_type IN VARCHAR2 := 'JSP',
669: p_plan_id IN NUMBER,
670: p_object_version_number IN NUMBER,

Line 667: p_validation_level IN NUMBER := FND_API.g_valid_level_full,

663: PROCEDURE Set_Plan_As_Primary (
664: p_api_version IN NUMBER,
665: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
666: p_commit IN VARCHAR2 := FND_API.g_false,
667: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
668: p_module_type IN VARCHAR2 := 'JSP',
669: p_plan_id IN NUMBER,
670: p_object_version_number IN NUMBER,
671: x_return_status OUT NOCOPY VARCHAR2,

Line 697: IF FND_API.to_boolean(p_init_msg_list)

693: IF G_DEBUG='Y' THEN
694: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pub. Set Plan as Primary','+SMPLN+');
695: END IF;
696: -- Standard call to check for call compatibility.
697: IF FND_API.to_boolean(p_init_msg_list)
698: THEN
699: FND_MSG_PUB.initialize;
700: END IF;
701: -- Initialize API return status to success

Line 702: x_return_status := FND_API.G_RET_STS_SUCCESS;

698: THEN
699: FND_MSG_PUB.initialize;
700: END IF;
701: -- Initialize API return status to success
702: x_return_status := FND_API.G_RET_STS_SUCCESS;
703: -- Initialize message list if p_init_msg_list is set to TRUE.
704: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
705: p_api_version,
706: l_api_name,G_PKG_NAME)

Line 704: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

700: END IF;
701: -- Initialize API return status to success
702: x_return_status := FND_API.G_RET_STS_SUCCESS;
703: -- Initialize message list if p_init_msg_list is set to TRUE.
704: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
705: p_api_version,
706: l_api_name,G_PKG_NAME)
707: THEN
708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

704: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
705: p_api_version,
706: l_api_name,G_PKG_NAME)
707: THEN
708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
709: END IF;
710: --------------------Start of API Body-----------------------------------
711: --Call Private APT
712: AHL_LTP_SIMUL_PLAN_PVT.Set_Plan_As_Primary (

Line 731: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

727: l_msg_count := Fnd_Msg_Pub.count_msg;
728:
729: IF l_msg_count > 0 THEN
730: X_msg_count := l_msg_count;
731: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
732: RAISE Fnd_Api.G_EXC_ERROR;
733: END IF;
734:
735: --Standard check for commit

Line 732: RAISE Fnd_Api.G_EXC_ERROR;

728:
729: IF l_msg_count > 0 THEN
730: X_msg_count := l_msg_count;
731: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
732: RAISE Fnd_Api.G_EXC_ERROR;
733: END IF;
734:
735: --Standard check for commit
736: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN

Line 736: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN

732: RAISE Fnd_Api.G_EXC_ERROR;
733: END IF;
734:
735: --Standard check for commit
736: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
737: COMMIT;
738: END IF;
739: -- Debug info
740: IF G_DEBUG='Y' THEN

Line 747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

743: Ahl_Debug_Pub.disable_debug;
744: END IF;
745:
746: EXCEPTION
747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
748: ROLLBACK TO set_plan_as_primary;
749: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
750: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
751: p_count => x_msg_count,

Line 749: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

745:
746: EXCEPTION
747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
748: ROLLBACK TO set_plan_as_primary;
749: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
750: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
751: p_count => x_msg_count,
752: p_data => x_msg_data);
753:

Line 750: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

746: EXCEPTION
747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
748: ROLLBACK TO set_plan_as_primary;
749: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
750: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
751: p_count => x_msg_count,
752: p_data => x_msg_data);
753:
754: IF G_DEBUG='Y' THEN

Line 762: WHEN FND_API.G_EXC_ERROR THEN

758: END IF;
759: -- Check if API is called in debug mode. If yes, disable debug.
760: AHL_DEBUG_PUB.disable_debug;
761:
762: WHEN FND_API.G_EXC_ERROR THEN
763: ROLLBACK TO set_plan_as_primary;
764: X_return_status := FND_API.G_RET_STS_ERROR;
765: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
766: p_count => x_msg_count,

Line 764: X_return_status := FND_API.G_RET_STS_ERROR;

760: AHL_DEBUG_PUB.disable_debug;
761:
762: WHEN FND_API.G_EXC_ERROR THEN
763: ROLLBACK TO set_plan_as_primary;
764: X_return_status := FND_API.G_RET_STS_ERROR;
765: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
766: p_count => x_msg_count,
767: p_data => X_msg_data);
768: -- Debug info.

Line 765: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

761:
762: WHEN FND_API.G_EXC_ERROR THEN
763: ROLLBACK TO set_plan_as_primary;
764: X_return_status := FND_API.G_RET_STS_ERROR;
765: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
766: p_count => x_msg_count,
767: p_data => X_msg_data);
768: -- Debug info.
769: IF G_DEBUG='Y' THEN

Line 779: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

775: AHL_DEBUG_PUB.disable_debug;
776:
777: WHEN OTHERS THEN
778: ROLLBACK TO set_plan_as_primary;
779: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
780: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
781: THEN
782: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PUB',
783: p_procedure_name => 'SET_PLAN_AS_PRIMARY',

Line 786: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

782: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PUB',
783: p_procedure_name => 'SET_PLAN_AS_PRIMARY',
784: p_error_text => SUBSTR(SQLERRM,1,240));
785: END IF;
786: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
787: p_count => x_msg_count,
788: p_data => X_msg_data);
789:
790: -- Debug info.

Line 817: p_init_msg_list IN VARCHAR2 := FND_API.g_false,

813: -- NOTES
814: --------------------------------------------------------------------
815: PROCEDURE Set_Visit_As_Primary (
816: p_api_version IN NUMBER,
817: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
818: p_commit IN VARCHAR2 := FND_API.g_false,
819: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
820: p_module_type IN VARCHAR2 := 'JSP',
821: p_visit_id IN NUMBER,

Line 818: p_commit IN VARCHAR2 := FND_API.g_false,

814: --------------------------------------------------------------------
815: PROCEDURE Set_Visit_As_Primary (
816: p_api_version IN NUMBER,
817: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
818: p_commit IN VARCHAR2 := FND_API.g_false,
819: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
820: p_module_type IN VARCHAR2 := 'JSP',
821: p_visit_id IN NUMBER,
822: p_plan_id IN NUMBER,

Line 819: p_validation_level IN NUMBER := FND_API.g_valid_level_full,

815: PROCEDURE Set_Visit_As_Primary (
816: p_api_version IN NUMBER,
817: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
818: p_commit IN VARCHAR2 := FND_API.g_false,
819: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
820: p_module_type IN VARCHAR2 := 'JSP',
821: p_visit_id IN NUMBER,
822: p_plan_id IN NUMBER,
823: p_object_version_number IN NUMBER,

Line 850: IF FND_API.to_boolean(p_init_msg_list)

846: IF G_DEBUG='Y' THEN
847: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pub. Set Visit as Primary','+SMPLN+');
848: END IF;
849: -- Standard call to check for call compatibility.
850: IF FND_API.to_boolean(p_init_msg_list)
851: THEN
852: FND_MSG_PUB.initialize;
853: END IF;
854: -- Initialize API return status to success

Line 855: x_return_status := FND_API.G_RET_STS_SUCCESS;

851: THEN
852: FND_MSG_PUB.initialize;
853: END IF;
854: -- Initialize API return status to success
855: x_return_status := FND_API.G_RET_STS_SUCCESS;
856: -- Initialize message list if p_init_msg_list is set to TRUE.
857: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
858: p_api_version,
859: l_api_name,G_PKG_NAME)

Line 857: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

853: END IF;
854: -- Initialize API return status to success
855: x_return_status := FND_API.G_RET_STS_SUCCESS;
856: -- Initialize message list if p_init_msg_list is set to TRUE.
857: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
858: p_api_version,
859: l_api_name,G_PKG_NAME)
860: THEN
861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

857: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
858: p_api_version,
859: l_api_name,G_PKG_NAME)
860: THEN
861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
862: END IF;
863: --------------------Start of API Body-----------------------------------
864: --Call Private APT
865: AHL_LTP_SIMUL_PLAN_PVT.Set_Visit_As_Primary (

Line 885: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

881: l_msg_count := Fnd_Msg_Pub.count_msg;
882:
883: IF l_msg_count > 0 THEN
884: X_msg_count := l_msg_count;
885: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
886: RAISE Fnd_Api.G_EXC_ERROR;
887: END IF;
888:
889: --Standard check for commit

Line 886: RAISE Fnd_Api.G_EXC_ERROR;

882:
883: IF l_msg_count > 0 THEN
884: X_msg_count := l_msg_count;
885: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
886: RAISE Fnd_Api.G_EXC_ERROR;
887: END IF;
888:
889: --Standard check for commit
890: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN

Line 890: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN

886: RAISE Fnd_Api.G_EXC_ERROR;
887: END IF;
888:
889: --Standard check for commit
890: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
891: COMMIT;
892: END IF;
893: -- Debug info
894: IF G_DEBUG='Y' THEN

Line 901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

897: Ahl_Debug_Pub.disable_debug;
898: END IF;
899:
900: EXCEPTION
901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
902: ROLLBACK TO set_visit_as_primary;
903: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
904: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
905: p_count => x_msg_count,

Line 903: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

899:
900: EXCEPTION
901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
902: ROLLBACK TO set_visit_as_primary;
903: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
904: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
905: p_count => x_msg_count,
906: p_data => x_msg_data);
907:

Line 904: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

900: EXCEPTION
901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
902: ROLLBACK TO set_visit_as_primary;
903: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
904: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
905: p_count => x_msg_count,
906: p_data => x_msg_data);
907:
908: IF G_DEBUG='Y' THEN

Line 916: WHEN FND_API.G_EXC_ERROR THEN

912: END IF;
913: -- Check if API is called in debug mode. If yes, disable debug.
914: AHL_DEBUG_PUB.disable_debug;
915:
916: WHEN FND_API.G_EXC_ERROR THEN
917: ROLLBACK TO set_visit_as_primary;
918: X_return_status := FND_API.G_RET_STS_ERROR;
919: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
920: p_count => x_msg_count,

Line 918: X_return_status := FND_API.G_RET_STS_ERROR;

914: AHL_DEBUG_PUB.disable_debug;
915:
916: WHEN FND_API.G_EXC_ERROR THEN
917: ROLLBACK TO set_visit_as_primary;
918: X_return_status := FND_API.G_RET_STS_ERROR;
919: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
920: p_count => x_msg_count,
921: p_data => X_msg_data);
922: -- Debug info.

Line 919: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

915:
916: WHEN FND_API.G_EXC_ERROR THEN
917: ROLLBACK TO set_visit_as_primary;
918: X_return_status := FND_API.G_RET_STS_ERROR;
919: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
920: p_count => x_msg_count,
921: p_data => X_msg_data);
922: -- Debug info.
923: IF G_DEBUG='Y' THEN

Line 933: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

929: AHL_DEBUG_PUB.disable_debug;
930:
931: WHEN OTHERS THEN
932: ROLLBACK TO set_visit_as_primary;
933: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
934: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
935: THEN
936: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PUB',
937: p_procedure_name => 'SET_VISIT_AS_PRIMARY',

Line 940: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

936: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PUB',
937: p_procedure_name => 'SET_VISIT_AS_PRIMARY',
938: p_error_text => SUBSTR(SQLERRM,1,240));
939: END IF;
940: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
941: p_count => x_msg_count,
942: p_data => X_msg_data);
943:
944: -- Debug info.