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

Line 23: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE

19: -- Parameters :
20: --
21: -- Standard IN Parameters :
22: -- p_api_version IN NUMBER Required
23: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
24: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE
25: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
26: -- Standard OUT Parameters :
27: -- x_return_status OUT VARCHAR2 Required

Line 24: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE

20: --
21: -- Standard IN Parameters :
22: -- p_api_version IN NUMBER Required
23: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
24: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE
25: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
26: -- Standard OUT Parameters :
27: -- x_return_status OUT VARCHAR2 Required
28: -- x_msg_count OUT NUMBER Required

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

21: -- Standard IN Parameters :
22: -- p_api_version IN NUMBER Required
23: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
24: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE
25: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
26: -- Standard OUT Parameters :
27: -- x_return_status OUT VARCHAR2 Required
28: -- x_msg_count OUT NUMBER Required
29: -- x_msg_data OUT VARCHAR2 Required

Line 49: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,

45:
46: PROCEDURE INITIATE_UC_APPROVALS
47: (
48: p_api_version IN NUMBER,
49: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
50: p_commit IN VARCHAR2 := FND_API.G_FALSE,
51: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
52: p_uc_header_id IN NUMBER,
53: p_object_version_number IN NUMBER,

Line 50: p_commit IN VARCHAR2 := FND_API.G_FALSE,

46: PROCEDURE INITIATE_UC_APPROVALS
47: (
48: p_api_version IN NUMBER,
49: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
50: p_commit IN VARCHAR2 := FND_API.G_FALSE,
51: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
52: p_uc_header_id IN NUMBER,
53: p_object_version_number IN NUMBER,
54: x_return_status OUT NOCOPY VARCHAR2,

Line 51: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

47: (
48: p_api_version IN NUMBER,
49: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
50: p_commit IN VARCHAR2 := FND_API.G_FALSE,
51: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
52: p_uc_header_id IN NUMBER,
53: p_object_version_number IN NUMBER,
54: x_return_status OUT NOCOPY VARCHAR2,
55: x_msg_count OUT NOCOPY NUMBER,

Line 101: IF FND_API.To_Boolean(p_init_msg_list) THEN

97: AHL_DEBUG_PUB.debug( 'Enter Initiate UC Approvals');
98: END IF;
99:
100: -- Initialize message list if p_init_msg_list is set to TRUE
101: IF FND_API.To_Boolean(p_init_msg_list) THEN
102: FND_MSG_PUB.Initialize;
103: END IF;
104:
105: -- Initialize API return status to success

Line 106: x_return_status := FND_API.G_RET_STS_SUCCESS;

102: FND_MSG_PUB.Initialize;
103: END IF;
104:
105: -- Initialize API return status to success
106: x_return_status := FND_API.G_RET_STS_SUCCESS;
107:
108: -- Begin Processing
109: --1)Validate uc_header_id is valid
110: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN

Line 110: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN

106: x_return_status := FND_API.G_RET_STS_SUCCESS;
107:
108: -- Begin Processing
109: --1)Validate uc_header_id is valid
110: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN
111: x_return_status := FND_API.G_RET_STS_ERROR;
112: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
113: FND_MESSAGE.set_token('PROCEDURE', G_PKG_NAME);
114: FND_MSG_PUB.add;

Line 111: x_return_status := FND_API.G_RET_STS_ERROR;

107:
108: -- Begin Processing
109: --1)Validate uc_header_id is valid
110: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN
111: x_return_status := FND_API.G_RET_STS_ERROR;
112: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
113: FND_MESSAGE.set_token('PROCEDURE', G_PKG_NAME);
114: FND_MSG_PUB.add;
115: RAISE FND_API.G_EXC_ERROR;

Line 115: RAISE FND_API.G_EXC_ERROR;

111: x_return_status := FND_API.G_RET_STS_ERROR;
112: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
113: FND_MESSAGE.set_token('PROCEDURE', G_PKG_NAME);
114: FND_MSG_PUB.add;
115: RAISE FND_API.G_EXC_ERROR;
116: END IF;
117:
118: --2) Fetch the uc header details
119: OPEN get_uc_header_det(p_uc_header_id, p_object_version_number);

Line 126: RAISE FND_API.G_EXC_ERROR;

122: fnd_message.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
123: fnd_message.set_token('UC_HEADER_ID', p_uc_header_id, false);
124: FND_MSG_PUB.add;
125: CLOSE get_uc_header_det;
126: RAISE FND_API.G_EXC_ERROR;
127: END IF;
128: CLOSE get_uc_header_det;
129:
130: --3) Make sure parent header id is null

Line 134: RAISE FND_API.G_EXC_ERROR;

130: --3) Make sure parent header id is null
131: IF (l_uc_header_rec.parent_uc_header_id is not null) THEN
132: fnd_message.set_name('AHL','AHL_UC_APRV_SUBUNIT');
133: FND_MSG_PUB.add;
134: RAISE FND_API.G_EXC_ERROR;
135: END IF;
136:
137:
138: --4) If status is draft or approval rejected

Line 206: p_init_msg_list =>FND_API.G_TRUE,

202: -- Call the Complete UC Approval API
203: AHL_UC_APPROVALS_PVT.COMPLETE_UC_APPROVAL
204: (
205: p_api_version =>1.0,
206: p_init_msg_list =>FND_API.G_TRUE,
207: p_commit =>FND_API.G_FALSE,
208: p_validation_level =>NULL,
209: p_approval_status =>'APPROVED',
210: p_uc_header_id =>l_activity_id,

Line 207: p_commit =>FND_API.G_FALSE,

203: AHL_UC_APPROVALS_PVT.COMPLETE_UC_APPROVAL
204: (
205: p_api_version =>1.0,
206: p_init_msg_list =>FND_API.G_TRUE,
207: p_commit =>FND_API.G_FALSE,
208: p_validation_level =>NULL,
209: p_approval_status =>'APPROVED',
210: p_uc_header_id =>l_activity_id,
211: p_object_version_number =>l_object_version_number+1,

Line 291: p_init_msg_list =>FND_API.G_TRUE,

287: --Call the complete UC Approvals API
288: AHL_UC_APPROVALS_PVT.COMPLETE_UC_APPROVAL
289: (
290: p_api_version =>1.0,
291: p_init_msg_list =>FND_API.G_TRUE,
292: p_commit =>FND_API.G_FALSE,
293: p_validation_level =>NULL,
294: p_uc_header_id =>l_activity_id,
295: p_object_version_number =>p_object_version_number+1,

Line 292: p_commit =>FND_API.G_FALSE,

288: AHL_UC_APPROVALS_PVT.COMPLETE_UC_APPROVAL
289: (
290: p_api_version =>1.0,
291: p_init_msg_list =>FND_API.G_TRUE,
292: p_commit =>FND_API.G_FALSE,
293: p_validation_level =>NULL,
294: p_uc_header_id =>l_activity_id,
295: p_object_version_number =>p_object_version_number+1,
296: p_approval_status =>'APPROVED',

Line 310: RAISE FND_API.G_EXC_ERROR;

306: --Not the right status to submit for approvals.
307: fnd_message.set_name('AHL','AHL_UC_APRV_IN_PROGRESS');
308: fnd_message.set_token('NAME', l_uc_header_rec.name, false);
309: FND_MSG_PUB.add;
310: RAISE FND_API.G_EXC_ERROR;
311:
312: END IF;
313:
314:

Line 319: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

315: l_msg_count := FND_MSG_PUB.count_msg;
316:
317: IF l_msg_count > 0 THEN
318: X_msg_count := l_msg_count;
319: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
320: RAISE FND_API.G_EXC_ERROR;
321: END IF;
322:
323: IF FND_API.TO_BOOLEAN(p_commit) THEN

Line 320: RAISE FND_API.G_EXC_ERROR;

316:
317: IF l_msg_count > 0 THEN
318: X_msg_count := l_msg_count;
319: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
320: RAISE FND_API.G_EXC_ERROR;
321: END IF;
322:
323: IF FND_API.TO_BOOLEAN(p_commit) THEN
324: COMMIT;

Line 323: IF FND_API.TO_BOOLEAN(p_commit) THEN

319: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
320: RAISE FND_API.G_EXC_ERROR;
321: END IF;
322:
323: IF FND_API.TO_BOOLEAN(p_commit) THEN
324: COMMIT;
325: END IF;
326:
327: EXCEPTION

Line 328: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

324: COMMIT;
325: END IF;
326:
327: EXCEPTION
328: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
329: ROLLBACK TO INITIATE_UC_APPROVALS;
330: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
331: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
332: p_count => x_msg_count,

Line 330: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

326:
327: EXCEPTION
328: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
329: ROLLBACK TO INITIATE_UC_APPROVALS;
330: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
331: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
332: p_count => x_msg_count,
333: p_data => x_msg_data);
334: IF G_DEBUG='Y' THEN

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

327: EXCEPTION
328: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
329: ROLLBACK TO INITIATE_UC_APPROVALS;
330: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
331: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
332: p_count => x_msg_count,
333: p_data => x_msg_data);
334: IF G_DEBUG='Y' THEN
335: AHL_DEBUG_PUB.disable_debug;

Line 338: WHEN FND_API.G_EXC_ERROR THEN

334: IF G_DEBUG='Y' THEN
335: AHL_DEBUG_PUB.disable_debug;
336: END IF;
337:
338: WHEN FND_API.G_EXC_ERROR THEN
339: ROLLBACK TO INITIATE_UC_APPROVALS;
340: X_return_status := FND_API.G_RET_STS_ERROR;
341: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
342: p_count => x_msg_count,

Line 340: X_return_status := FND_API.G_RET_STS_ERROR;

336: END IF;
337:
338: WHEN FND_API.G_EXC_ERROR THEN
339: ROLLBACK TO INITIATE_UC_APPROVALS;
340: X_return_status := FND_API.G_RET_STS_ERROR;
341: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
342: p_count => x_msg_count,
343: p_data => X_msg_data);
344: IF G_DEBUG='Y' THEN

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

337:
338: WHEN FND_API.G_EXC_ERROR THEN
339: ROLLBACK TO INITIATE_UC_APPROVALS;
340: X_return_status := FND_API.G_RET_STS_ERROR;
341: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
342: p_count => x_msg_count,
343: p_data => X_msg_data);
344: IF G_DEBUG='Y' THEN
345: AHL_DEBUG_PUB.disable_debug;

Line 350: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

346: END IF;
347:
348: WHEN OTHERS THEN
349: ROLLBACK TO INITIATE_UC_APPROVALS;
350: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
351: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
352: THEN
353: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
354: p_procedure_name => l_api_name,

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

353: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
354: p_procedure_name => l_api_name,
355: p_error_text => SUBSTR(SQLERRM,1,240));
356: END IF;
357: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
358: p_count => x_msg_count,
359: p_data => X_msg_data);
360: IF G_DEBUG='Y' THEN
361: AHL_DEBUG_PUB.disable_debug;

Line 377: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE

373: -- Parameters :
374: --
375: -- Standard IN Parameters :
376: -- p_api_version IN NUMBER Required
377: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
378: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE
379: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
380: -- Standard OUT Parameters :
381: -- x_return_status OUT VARCHAR2 Required

Line 378: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE

374: --
375: -- Standard IN Parameters :
376: -- p_api_version IN NUMBER Required
377: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
378: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE
379: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
380: -- Standard OUT Parameters :
381: -- x_return_status OUT VARCHAR2 Required
382: -- x_msg_count OUT NUMBER Required

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

375: -- Standard IN Parameters :
376: -- p_api_version IN NUMBER Required
377: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
378: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE
379: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
380: -- Standard OUT Parameters :
381: -- x_return_status OUT VARCHAR2 Required
382: -- x_msg_count OUT NUMBER Required
383: -- x_msg_data OUT VARCHAR2 Required

Line 403: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,

399: -- End of Comments.
400: --------------------------------------------------------------------------------------------
401: PROCEDURE COMPLETE_UC_APPROVAL(
402: p_api_version IN NUMBER,
403: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
404: p_commit IN VARCHAR2 := FND_API.G_FALSE,
405: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
406: p_uc_header_id IN NUMBER,
407: p_object_version_number IN NUMBER,

Line 404: p_commit IN VARCHAR2 := FND_API.G_FALSE,

400: --------------------------------------------------------------------------------------------
401: PROCEDURE COMPLETE_UC_APPROVAL(
402: p_api_version IN NUMBER,
403: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
404: p_commit IN VARCHAR2 := FND_API.G_FALSE,
405: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
406: p_uc_header_id IN NUMBER,
407: p_object_version_number IN NUMBER,
408: p_approval_status IN VARCHAR2,

Line 405: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

401: PROCEDURE COMPLETE_UC_APPROVAL(
402: p_api_version IN NUMBER,
403: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
404: p_commit IN VARCHAR2 := FND_API.G_FALSE,
405: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
406: p_uc_header_id IN NUMBER,
407: p_object_version_number IN NUMBER,
408: p_approval_status IN VARCHAR2,
409: x_return_status OUT NOCOPY VARCHAR2,

Line 449: IF FND_API.To_Boolean(p_init_msg_list) THEN

445: AHL_DEBUG_PUB.debug( 'Enter Complete UC Approvals');
446: END IF;
447:
448: -- Initialize message list if p_init_msg_list is set to TRUE
449: IF FND_API.To_Boolean(p_init_msg_list) THEN
450: FND_MSG_PUB.Initialize;
451: END IF;
452:
453: -- Initialize API return status to success

Line 454: x_return_status := FND_API.G_RET_STS_SUCCESS;

450: FND_MSG_PUB.Initialize;
451: END IF;
452:
453: -- Initialize API return status to success
454: x_return_status := FND_API.G_RET_STS_SUCCESS;
455:
456: -- Begin Processing
457: --1) Validate uc_header_id
458: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN

Line 458: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN

454: x_return_status := FND_API.G_RET_STS_SUCCESS;
455:
456: -- Begin Processing
457: --1) Validate uc_header_id
458: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN
459: x_return_status := FND_API.G_RET_STS_ERROR;
460: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
461: FND_MESSAGE.set_token('PROCEDURE', G_PKG_NAME);
462: FND_MSG_PUB.add;

Line 459: x_return_status := FND_API.G_RET_STS_ERROR;

455:
456: -- Begin Processing
457: --1) Validate uc_header_id
458: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN
459: x_return_status := FND_API.G_RET_STS_ERROR;
460: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
461: FND_MESSAGE.set_token('PROCEDURE', G_PKG_NAME);
462: FND_MSG_PUB.add;
463: RAISE FND_API.G_EXC_ERROR;

Line 463: RAISE FND_API.G_EXC_ERROR;

459: x_return_status := FND_API.G_RET_STS_ERROR;
460: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
461: FND_MESSAGE.set_token('PROCEDURE', G_PKG_NAME);
462: FND_MSG_PUB.add;
463: RAISE FND_API.G_EXC_ERROR;
464: END IF;
465:
466: --2) Validate uc_header_id
467: OPEN get_uc_header_det(p_uc_header_id);

Line 474: RAISE FND_API.G_EXC_ERROR;

470: fnd_message.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
471: fnd_message.set_token('UC_HEADER_ID', p_uc_header_id, false);
472: FND_MSG_PUB.add;
473: CLOSE get_uc_header_det;
474: RAISE FND_API.G_EXC_ERROR;
475: END IF;
476: CLOSE get_uc_header_det;
477:
478:

Line 490: p_init_msg_list => FND_API.G_TRUE,

486:
487: --call the completeness check API
488: AHL_UC_VALIDATION_PUB.check_completeness(
489: p_api_version => 1.0,
490: p_init_msg_list => FND_API.G_TRUE,
491: p_commit => FND_API.G_FALSE,
492: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
493: p_unit_header_id => p_uc_header_id,
494: x_evaluation_status => l_evaluation_status,

Line 491: p_commit => FND_API.G_FALSE,

487: --call the completeness check API
488: AHL_UC_VALIDATION_PUB.check_completeness(
489: p_api_version => 1.0,
490: p_init_msg_list => FND_API.G_TRUE,
491: p_commit => FND_API.G_FALSE,
492: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
493: p_unit_header_id => p_uc_header_id,
494: x_evaluation_status => l_evaluation_status,
495: x_return_status => l_return_status,

Line 492: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

488: AHL_UC_VALIDATION_PUB.check_completeness(
489: p_api_version => 1.0,
490: p_init_msg_list => FND_API.G_TRUE,
491: p_commit => FND_API.G_FALSE,
492: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
493: p_unit_header_id => p_uc_header_id,
494: x_evaluation_status => l_evaluation_status,
495: x_return_status => l_return_status,
496: x_msg_count => l_msg_count,

Line 512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

508: l_msg_count := FND_MSG_PUB.count_msg;
509: IF l_msg_count > 0 THEN
510: AHL_DEBUG_PUB.debug('FAiled Check Completeness API');
511: x_msg_count := l_msg_count;
512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
513: END IF;
514:
515: IF ( l_evaluation_status = 'T' ) THEN
516: l_status := 'COMPLETE';

Line 553: p_init_msg_list => FND_API.G_TRUE,

549: -- SATHAPLI::Bug 7018042, 05-May-2008, Fix start
550: -- The UC is in status 'Complete' or 'Incomplete'. Check for the completeness and update the status accordingly.
551: AHL_UC_VALIDATION_PUB.check_completeness(
552: p_api_version => 1.0,
553: p_init_msg_list => FND_API.G_TRUE,
554: p_commit => FND_API.G_FALSE,
555: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
556: p_unit_header_id => p_uc_header_id,
557: x_evaluation_status => l_evaluation_status,

Line 554: p_commit => FND_API.G_FALSE,

550: -- The UC is in status 'Complete' or 'Incomplete'. Check for the completeness and update the status accordingly.
551: AHL_UC_VALIDATION_PUB.check_completeness(
552: p_api_version => 1.0,
553: p_init_msg_list => FND_API.G_TRUE,
554: p_commit => FND_API.G_FALSE,
555: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
556: p_unit_header_id => p_uc_header_id,
557: x_evaluation_status => l_evaluation_status,
558: x_return_status => l_return_status,

Line 555: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

551: AHL_UC_VALIDATION_PUB.check_completeness(
552: p_api_version => 1.0,
553: p_init_msg_list => FND_API.G_TRUE,
554: p_commit => FND_API.G_FALSE,
555: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
556: p_unit_header_id => p_uc_header_id,
557: x_evaluation_status => l_evaluation_status,
558: x_return_status => l_return_status,
559: x_msg_count => l_msg_count,

Line 588: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

584: l_msg_count := FND_MSG_PUB.count_msg;
585:
586: IF l_msg_count > 0 THEN
587: X_msg_count := l_msg_count;
588: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
589: RAISE FND_API.G_EXC_ERROR;
590: END IF;
591:
592:

Line 589: RAISE FND_API.G_EXC_ERROR;

585:
586: IF l_msg_count > 0 THEN
587: X_msg_count := l_msg_count;
588: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
589: RAISE FND_API.G_EXC_ERROR;
590: END IF;
591:
592:
593: IF FND_API.TO_BOOLEAN(p_commit) THEN

Line 593: IF FND_API.TO_BOOLEAN(p_commit) THEN

589: RAISE FND_API.G_EXC_ERROR;
590: END IF;
591:
592:
593: IF FND_API.TO_BOOLEAN(p_commit) THEN
594: COMMIT;
595: END IF;
596:
597: EXCEPTION

Line 598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

594: COMMIT;
595: END IF;
596:
597: EXCEPTION
598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
599: ROLLBACK TO COMPLETE_UC_APPROVAL;
600: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
601: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
602: p_count => x_msg_count,

Line 600: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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

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

597: EXCEPTION
598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
599: ROLLBACK TO COMPLETE_UC_APPROVAL;
600: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
601: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
602: p_count => x_msg_count,
603: p_data => x_msg_data);
604: IF G_DEBUG='Y' THEN
605: AHL_DEBUG_PUB.disable_debug;

Line 609: WHEN FND_API.G_EXC_ERROR THEN

605: AHL_DEBUG_PUB.disable_debug;
606: END IF;
607:
608:
609: WHEN FND_API.G_EXC_ERROR THEN
610: ROLLBACK TO COMPLETE_UC_APPROVAL;
611: X_return_status := FND_API.G_RET_STS_ERROR;
612: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
613: p_count => x_msg_count,

Line 611: X_return_status := FND_API.G_RET_STS_ERROR;

607:
608:
609: WHEN FND_API.G_EXC_ERROR THEN
610: ROLLBACK TO COMPLETE_UC_APPROVAL;
611: X_return_status := FND_API.G_RET_STS_ERROR;
612: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
613: p_count => x_msg_count,
614: p_data => X_msg_data);
615: IF G_DEBUG='Y' THEN

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

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

Line 621: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

617: END IF;
618:
619: WHEN OTHERS THEN
620: ROLLBACK TO COMPLETE_UC_APPROVAL;
621: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
622: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
623: THEN
624: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
625: p_procedure_name => l_api_name,

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

624: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
625: p_procedure_name => l_api_name,
626: p_error_text => SUBSTR(SQLERRM,1,240));
627: END IF;
628: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
629: p_count => x_msg_count,
630: p_data => X_msg_data);
631: IF G_DEBUG='Y' THEN
632: AHL_DEBUG_PUB.disable_debug;

Line 650: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE

646: -- Parameters :
647: --
648: -- Standard IN Parameters :
649: -- p_api_version IN NUMBER Required
650: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
651: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE
652: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
653: -- Standard OUT Parameters :
654: -- x_return_status OUT VARCHAR2 Required

Line 651: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE

647: --
648: -- Standard IN Parameters :
649: -- p_api_version IN NUMBER Required
650: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
651: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE
652: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
653: -- Standard OUT Parameters :
654: -- x_return_status OUT VARCHAR2 Required
655: -- x_msg_count OUT NUMBER Required

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

648: -- Standard IN Parameters :
649: -- p_api_version IN NUMBER Required
650: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
651: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE
652: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
653: -- Standard OUT Parameters :
654: -- x_return_status OUT VARCHAR2 Required
655: -- x_msg_count OUT NUMBER Required
656: -- x_msg_data OUT VARCHAR2 Required

Line 675: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,

671:
672: PROCEDURE INITIATE_QUARANTINE
673: (
674: p_api_version IN NUMBER,
675: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
676: p_commit IN VARCHAR2 := FND_API.G_FALSE,
677: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
678: p_uc_header_id IN NUMBER,
679: p_object_version_number IN NUMBER,

Line 676: p_commit IN VARCHAR2 := FND_API.G_FALSE,

672: PROCEDURE INITIATE_QUARANTINE
673: (
674: p_api_version IN NUMBER,
675: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
676: p_commit IN VARCHAR2 := FND_API.G_FALSE,
677: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
678: p_uc_header_id IN NUMBER,
679: p_object_version_number IN NUMBER,
680: x_return_status OUT NOCOPY VARCHAR2,

Line 677: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

673: (
674: p_api_version IN NUMBER,
675: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
676: p_commit IN VARCHAR2 := FND_API.G_FALSE,
677: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
678: p_uc_header_id IN NUMBER,
679: p_object_version_number IN NUMBER,
680: x_return_status OUT NOCOPY VARCHAR2,
681: x_msg_count OUT NOCOPY NUMBER,

Line 729: IF FND_API.To_Boolean(p_init_msg_list) THEN

725: AHL_DEBUG_PUB.debug( 'Enter Initiate UC-ACL Quarantine Approvals');
726: END IF;
727:
728: -- Initialize message list if p_init_msg_list is set to TRUE
729: IF FND_API.To_Boolean(p_init_msg_list) THEN
730: FND_MSG_PUB.Initialize;
731: END IF;
732:
733: -- Initialize API return status to success

Line 734: x_return_status := FND_API.G_RET_STS_SUCCESS;

730: FND_MSG_PUB.Initialize;
731: END IF;
732:
733: -- Initialize API return status to success
734: x_return_status := FND_API.G_RET_STS_SUCCESS;
735:
736: -- Begin Processing
737: -- Validate uc_header_id is valid
738: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN

Line 738: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN

734: x_return_status := FND_API.G_RET_STS_SUCCESS;
735:
736: -- Begin Processing
737: -- Validate uc_header_id is valid
738: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN
739: x_return_status := FND_API.G_RET_STS_ERROR;
740: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
741: FND_MESSAGE.set_token('PROCEDURE', G_PKG_NAME);
742: FND_MSG_PUB.add;

Line 739: x_return_status := FND_API.G_RET_STS_ERROR;

735:
736: -- Begin Processing
737: -- Validate uc_header_id is valid
738: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN
739: x_return_status := FND_API.G_RET_STS_ERROR;
740: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
741: FND_MESSAGE.set_token('PROCEDURE', G_PKG_NAME);
742: FND_MSG_PUB.add;
743: RAISE FND_API.G_EXC_ERROR;

Line 743: RAISE FND_API.G_EXC_ERROR;

739: x_return_status := FND_API.G_RET_STS_ERROR;
740: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
741: FND_MESSAGE.set_token('PROCEDURE', G_PKG_NAME);
742: FND_MSG_PUB.add;
743: RAISE FND_API.G_EXC_ERROR;
744: END IF;
745:
746: -- Fetch the uc header details
747: OPEN get_uc_header_det(p_uc_header_id, p_object_version_number);

Line 754: RAISE FND_API.G_EXC_ERROR;

750: fnd_message.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
751: fnd_message.set_token('UC_HEADER_ID', p_uc_header_id, false);
752: FND_MSG_PUB.add;
753: CLOSE get_uc_header_det;
754: RAISE FND_API.G_EXC_ERROR;
755: END IF;
756: CLOSE get_uc_header_det;
757:
758: -- Make sure parent header id is null

Line 762: RAISE FND_API.G_EXC_ERROR;

758: -- Make sure parent header id is null
759: IF (l_uc_header_rec.parent_uc_header_id is not null) THEN
760: fnd_message.set_name('AHL','AHL_UC_APRV_SUBUNIT');
761: FND_MSG_PUB.add;
762: RAISE FND_API.G_EXC_ERROR;
763: END IF;
764:
765: IF G_DEBUG='Y' THEN
766: AHL_DEBUG_PUB.debug( 'l_uc_header_rec.active_uc_status_code : '||l_uc_header_rec.active_uc_status_code);

Line 839: p_init_msg_list =>FND_API.G_TRUE,

835: -- To be verified if Error is supposed to be raised here or not.
836: ELSE
837: -- Call the Complete UC Approval API
838: AHL_UC_APPROVALS_PVT.COMPLETE_QUARANTINE_APPROVAL(p_api_version =>1.0,
839: p_init_msg_list =>FND_API.G_TRUE,
840: p_commit =>FND_API.G_FALSE,
841: p_validation_level =>NULL,
842: p_approval_status =>'APPROVED',
843: p_uc_header_id =>l_activity_id,

Line 840: p_commit =>FND_API.G_FALSE,

836: ELSE
837: -- Call the Complete UC Approval API
838: AHL_UC_APPROVALS_PVT.COMPLETE_QUARANTINE_APPROVAL(p_api_version =>1.0,
839: p_init_msg_list =>FND_API.G_TRUE,
840: p_commit =>FND_API.G_FALSE,
841: p_validation_level =>NULL,
842: p_approval_status =>'APPROVED',
843: p_uc_header_id =>l_activity_id,
844: p_object_version_number =>l_object_version_number+1,

Line 854: RAISE FND_API.G_EXC_ERROR;

850: ELSE --Not the right status to submit for approvals.
851: fnd_message.set_name('AHL','AHL_UC_APRV_IN_PROGRESS');
852: fnd_message.set_token('UNIT_NAME', l_uc_header_rec.name, false);
853: FND_MSG_PUB.add;
854: RAISE FND_API.G_EXC_ERROR;
855: END IF; -- Active Status Check.
856:
857: l_msg_count := FND_MSG_PUB.count_msg;
858:

Line 861: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

857: l_msg_count := FND_MSG_PUB.count_msg;
858:
859: IF l_msg_count > 0 THEN
860: X_msg_count := l_msg_count;
861: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
862: RAISE FND_API.G_EXC_ERROR;
863: END IF;
864:
865: IF FND_API.TO_BOOLEAN(p_commit) THEN

Line 862: RAISE FND_API.G_EXC_ERROR;

858:
859: IF l_msg_count > 0 THEN
860: X_msg_count := l_msg_count;
861: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
862: RAISE FND_API.G_EXC_ERROR;
863: END IF;
864:
865: IF FND_API.TO_BOOLEAN(p_commit) THEN
866: COMMIT;

Line 865: IF FND_API.TO_BOOLEAN(p_commit) THEN

861: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
862: RAISE FND_API.G_EXC_ERROR;
863: END IF;
864:
865: IF FND_API.TO_BOOLEAN(p_commit) THEN
866: COMMIT;
867: END IF;
868:
869: EXCEPTION

Line 870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

866: COMMIT;
867: END IF;
868:
869: EXCEPTION
870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
871: ROLLBACK TO INITIATE_QUARANTINE_SP;
872: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
873: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
874: p_count => x_msg_count,

Line 872: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

868:
869: EXCEPTION
870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
871: ROLLBACK TO INITIATE_QUARANTINE_SP;
872: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
873: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
874: p_count => x_msg_count,
875: p_data => x_msg_data);
876: IF G_DEBUG='Y' THEN

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

869: EXCEPTION
870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
871: ROLLBACK TO INITIATE_QUARANTINE_SP;
872: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
873: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
874: p_count => x_msg_count,
875: p_data => x_msg_data);
876: IF G_DEBUG='Y' THEN
877: AHL_DEBUG_PUB.disable_debug;

Line 880: WHEN FND_API.G_EXC_ERROR THEN

876: IF G_DEBUG='Y' THEN
877: AHL_DEBUG_PUB.disable_debug;
878: END IF;
879:
880: WHEN FND_API.G_EXC_ERROR THEN
881: ROLLBACK TO INITIATE_QUARANTINE_SP;
882: X_return_status := FND_API.G_RET_STS_ERROR;
883: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
884: p_count => x_msg_count,

Line 882: X_return_status := FND_API.G_RET_STS_ERROR;

878: END IF;
879:
880: WHEN FND_API.G_EXC_ERROR THEN
881: ROLLBACK TO INITIATE_QUARANTINE_SP;
882: X_return_status := FND_API.G_RET_STS_ERROR;
883: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
884: p_count => x_msg_count,
885: p_data => X_msg_data);
886: IF G_DEBUG='Y' THEN

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

879:
880: WHEN FND_API.G_EXC_ERROR THEN
881: ROLLBACK TO INITIATE_QUARANTINE_SP;
882: X_return_status := FND_API.G_RET_STS_ERROR;
883: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
884: p_count => x_msg_count,
885: p_data => X_msg_data);
886: IF G_DEBUG='Y' THEN
887: AHL_DEBUG_PUB.disable_debug;

Line 892: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

888: END IF;
889:
890: WHEN OTHERS THEN
891: ROLLBACK TO INITIATE_QUARANTINE_SP;
892: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
893: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
894: THEN
895: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
896: p_procedure_name => l_api_name,

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

895: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
896: p_procedure_name => l_api_name,
897: p_error_text => SUBSTR(SQLERRM,1,240));
898: END IF;
899: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
900: p_count => x_msg_count,
901: p_data => X_msg_data);
902: IF G_DEBUG='Y' THEN
903: AHL_DEBUG_PUB.disable_debug;

Line 920: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE

916: -- Parameters :
917: --
918: -- Standard IN Parameters :
919: -- p_api_version IN NUMBER Required
920: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
921: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE
922: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
923: -- Standard OUT Parameters :
924: -- x_return_status OUT VARCHAR2 Required

Line 921: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE

917: --
918: -- Standard IN Parameters :
919: -- p_api_version IN NUMBER Required
920: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
921: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE
922: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
923: -- Standard OUT Parameters :
924: -- x_return_status OUT VARCHAR2 Required
925: -- x_msg_count OUT NUMBER Required

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

918: -- Standard IN Parameters :
919: -- p_api_version IN NUMBER Required
920: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
921: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE
922: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
923: -- Standard OUT Parameters :
924: -- x_return_status OUT VARCHAR2 Required
925: -- x_msg_count OUT NUMBER Required
926: -- x_msg_data OUT VARCHAR2 Required

Line 945: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,

941:
942: PROCEDURE INITIATE_DEACTIVATE_QUARANTINE
943: (
944: p_api_version IN NUMBER,
945: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
946: p_commit IN VARCHAR2 := FND_API.G_FALSE,
947: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
948: p_uc_header_id IN NUMBER,
949: p_object_version_number IN NUMBER,

Line 946: p_commit IN VARCHAR2 := FND_API.G_FALSE,

942: PROCEDURE INITIATE_DEACTIVATE_QUARANTINE
943: (
944: p_api_version IN NUMBER,
945: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
946: p_commit IN VARCHAR2 := FND_API.G_FALSE,
947: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
948: p_uc_header_id IN NUMBER,
949: p_object_version_number IN NUMBER,
950: x_return_status OUT NOCOPY VARCHAR2,

Line 947: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

943: (
944: p_api_version IN NUMBER,
945: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
946: p_commit IN VARCHAR2 := FND_API.G_FALSE,
947: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
948: p_uc_header_id IN NUMBER,
949: p_object_version_number IN NUMBER,
950: x_return_status OUT NOCOPY VARCHAR2,
951: x_msg_count OUT NOCOPY NUMBER,

Line 999: IF FND_API.To_Boolean(p_init_msg_list) THEN

995: AHL_DEBUG_PUB.debug( 'Enter Initiate UC-ACL Deactivate Quarantine Approvals');
996: END IF;
997:
998: -- Initialize message list if p_init_msg_list is set to TRUE
999: IF FND_API.To_Boolean(p_init_msg_list) THEN
1000: FND_MSG_PUB.Initialize;
1001: END IF;
1002:
1003: -- Initialize API return status to success

Line 1004: x_return_status := FND_API.G_RET_STS_SUCCESS;

1000: FND_MSG_PUB.Initialize;
1001: END IF;
1002:
1003: -- Initialize API return status to success
1004: x_return_status := FND_API.G_RET_STS_SUCCESS;
1005:
1006: -- Begin Processing
1007: -- Validate uc_header_id is valid
1008: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN

Line 1008: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN

1004: x_return_status := FND_API.G_RET_STS_SUCCESS;
1005:
1006: -- Begin Processing
1007: -- Validate uc_header_id is valid
1008: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN
1009: x_return_status := FND_API.G_RET_STS_ERROR;
1010: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
1011: FND_MESSAGE.set_token('PROCEDURE', G_PKG_NAME);
1012: FND_MSG_PUB.add;

Line 1009: x_return_status := FND_API.G_RET_STS_ERROR;

1005:
1006: -- Begin Processing
1007: -- Validate uc_header_id is valid
1008: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN
1009: x_return_status := FND_API.G_RET_STS_ERROR;
1010: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
1011: FND_MESSAGE.set_token('PROCEDURE', G_PKG_NAME);
1012: FND_MSG_PUB.add;
1013: RAISE FND_API.G_EXC_ERROR;

Line 1013: RAISE FND_API.G_EXC_ERROR;

1009: x_return_status := FND_API.G_RET_STS_ERROR;
1010: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
1011: FND_MESSAGE.set_token('PROCEDURE', G_PKG_NAME);
1012: FND_MSG_PUB.add;
1013: RAISE FND_API.G_EXC_ERROR;
1014: END IF;
1015:
1016: -- Fetch the uc header details
1017: OPEN get_uc_header_det(p_uc_header_id, p_object_version_number);

Line 1024: RAISE FND_API.G_EXC_ERROR;

1020: fnd_message.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
1021: fnd_message.set_token('UC_HEADER_ID', p_uc_header_id, false);
1022: FND_MSG_PUB.add;
1023: CLOSE get_uc_header_det;
1024: RAISE FND_API.G_EXC_ERROR;
1025: END IF;
1026: CLOSE get_uc_header_det;
1027:
1028: -- Make sure parent header id is null

Line 1032: RAISE FND_API.G_EXC_ERROR;

1028: -- Make sure parent header id is null
1029: IF (l_uc_header_rec.parent_uc_header_id is not null) THEN
1030: fnd_message.set_name('AHL','AHL_UC_APRV_SUBUNIT');
1031: FND_MSG_PUB.add;
1032: RAISE FND_API.G_EXC_ERROR;
1033: END IF;
1034:
1035: -- Workflow process to be started only if status is APPROVED.
1036: IF ((l_uc_header_rec.active_uc_status_code = 'APPROVED') AND

Line 1104: p_init_msg_list =>FND_API.G_TRUE,

1100: -- To be verified if Error is supposed to be raised here or not.
1101: ELSE
1102: -- Call the Complete UC Approval API
1103: AHL_UC_APPROVALS_PVT.COMPLETE_QUARANTINE_APPROVAL(p_api_version =>1.0,
1104: p_init_msg_list =>FND_API.G_TRUE,
1105: p_commit =>FND_API.G_FALSE,
1106: p_validation_level =>NULL,
1107: p_approval_status =>'APPROVED',
1108: p_uc_header_id =>l_activity_id,

Line 1105: p_commit =>FND_API.G_FALSE,

1101: ELSE
1102: -- Call the Complete UC Approval API
1103: AHL_UC_APPROVALS_PVT.COMPLETE_QUARANTINE_APPROVAL(p_api_version =>1.0,
1104: p_init_msg_list =>FND_API.G_TRUE,
1105: p_commit =>FND_API.G_FALSE,
1106: p_validation_level =>NULL,
1107: p_approval_status =>'APPROVED',
1108: p_uc_header_id =>l_activity_id,
1109: p_object_version_number =>l_object_version_number+1,

Line 1119: RAISE FND_API.G_EXC_ERROR;

1115: ELSE --Not the right status to submit for approvals.
1116: fnd_message.set_name('AHL','AHL_UC_APRV_IN_PROGRESS');
1117: fnd_message.set_token('UNIT_NAME', l_uc_header_rec.name, false);
1118: FND_MSG_PUB.add;
1119: RAISE FND_API.G_EXC_ERROR;
1120: END IF; -- Active Status Check.
1121:
1122: l_msg_count := FND_MSG_PUB.count_msg;
1123:

Line 1126: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1122: l_msg_count := FND_MSG_PUB.count_msg;
1123:
1124: IF l_msg_count > 0 THEN
1125: X_msg_count := l_msg_count;
1126: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1127: RAISE FND_API.G_EXC_ERROR;
1128: END IF;
1129:
1130: IF FND_API.TO_BOOLEAN(p_commit) THEN

Line 1127: RAISE FND_API.G_EXC_ERROR;

1123:
1124: IF l_msg_count > 0 THEN
1125: X_msg_count := l_msg_count;
1126: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1127: RAISE FND_API.G_EXC_ERROR;
1128: END IF;
1129:
1130: IF FND_API.TO_BOOLEAN(p_commit) THEN
1131: COMMIT;

Line 1130: IF FND_API.TO_BOOLEAN(p_commit) THEN

1126: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1127: RAISE FND_API.G_EXC_ERROR;
1128: END IF;
1129:
1130: IF FND_API.TO_BOOLEAN(p_commit) THEN
1131: COMMIT;
1132: END IF;
1133:
1134: EXCEPTION

Line 1135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1131: COMMIT;
1132: END IF;
1133:
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1136: ROLLBACK TO INITIATE_QUARANTINE_SP;
1137: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1139: p_count => x_msg_count,

Line 1137: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1133:
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1136: ROLLBACK TO INITIATE_QUARANTINE_SP;
1137: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1139: p_count => x_msg_count,
1140: p_data => x_msg_data);
1141: IF G_DEBUG='Y' THEN

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

1134: EXCEPTION
1135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1136: ROLLBACK TO INITIATE_QUARANTINE_SP;
1137: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1139: p_count => x_msg_count,
1140: p_data => x_msg_data);
1141: IF G_DEBUG='Y' THEN
1142: AHL_DEBUG_PUB.disable_debug;

Line 1145: WHEN FND_API.G_EXC_ERROR THEN

1141: IF G_DEBUG='Y' THEN
1142: AHL_DEBUG_PUB.disable_debug;
1143: END IF;
1144:
1145: WHEN FND_API.G_EXC_ERROR THEN
1146: ROLLBACK TO INITIATE_QUARANTINE_SP;
1147: X_return_status := FND_API.G_RET_STS_ERROR;
1148: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1149: p_count => x_msg_count,

Line 1147: X_return_status := FND_API.G_RET_STS_ERROR;

1143: END IF;
1144:
1145: WHEN FND_API.G_EXC_ERROR THEN
1146: ROLLBACK TO INITIATE_QUARANTINE_SP;
1147: X_return_status := FND_API.G_RET_STS_ERROR;
1148: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1149: p_count => x_msg_count,
1150: p_data => X_msg_data);
1151: IF G_DEBUG='Y' THEN

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

1144:
1145: WHEN FND_API.G_EXC_ERROR THEN
1146: ROLLBACK TO INITIATE_QUARANTINE_SP;
1147: X_return_status := FND_API.G_RET_STS_ERROR;
1148: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1149: p_count => x_msg_count,
1150: p_data => X_msg_data);
1151: IF G_DEBUG='Y' THEN
1152: AHL_DEBUG_PUB.disable_debug;

Line 1157: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1153: END IF;
1154:
1155: WHEN OTHERS THEN
1156: ROLLBACK TO INITIATE_QUARANTINE_SP;
1157: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1158: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1159: THEN
1160: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1161: p_procedure_name => l_api_name,

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

1160: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1161: p_procedure_name => l_api_name,
1162: p_error_text => SUBSTR(SQLERRM,1,240));
1163: END IF;
1164: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1165: p_count => x_msg_count,
1166: p_data => X_msg_data);
1167: IF G_DEBUG='Y' THEN
1168: AHL_DEBUG_PUB.disable_debug;

Line 1184: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE

1180: -- Parameters :
1181: --
1182: -- Standard IN Parameters :
1183: -- p_api_version IN NUMBER Required
1184: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
1185: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE
1186: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1187: -- Standard OUT Parameters :
1188: -- x_return_status OUT VARCHAR2 Required

Line 1185: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE

1181: --
1182: -- Standard IN Parameters :
1183: -- p_api_version IN NUMBER Required
1184: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
1185: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE
1186: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1187: -- Standard OUT Parameters :
1188: -- x_return_status OUT VARCHAR2 Required
1189: -- x_msg_count OUT NUMBER Required

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

1182: -- Standard IN Parameters :
1183: -- p_api_version IN NUMBER Required
1184: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
1185: -- p_commit IN VARCHAR2 Default FND_API.G_TRUE
1186: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1187: -- Standard OUT Parameters :
1188: -- x_return_status OUT VARCHAR2 Required
1189: -- x_msg_count OUT NUMBER Required
1190: -- x_msg_data OUT VARCHAR2 Required

Line 1209: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,

1205: -- End of Comments.
1206: --------------------------------------------------------------------------------------------
1207: PROCEDURE COMPLETE_QUARANTINE_APPROVAL(
1208: p_api_version IN NUMBER,
1209: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1210: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1211: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1212: p_uc_header_id IN NUMBER,
1213: p_object_version_number IN NUMBER,

Line 1210: p_commit IN VARCHAR2 := FND_API.G_FALSE,

1206: --------------------------------------------------------------------------------------------
1207: PROCEDURE COMPLETE_QUARANTINE_APPROVAL(
1208: p_api_version IN NUMBER,
1209: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1210: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1211: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1212: p_uc_header_id IN NUMBER,
1213: p_object_version_number IN NUMBER,
1214: p_approval_status IN VARCHAR2,

Line 1211: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

1207: PROCEDURE COMPLETE_QUARANTINE_APPROVAL(
1208: p_api_version IN NUMBER,
1209: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1210: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1211: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1212: p_uc_header_id IN NUMBER,
1213: p_object_version_number IN NUMBER,
1214: p_approval_status IN VARCHAR2,
1215: x_return_status OUT NOCOPY VARCHAR2,

Line 1255: IF FND_API.To_Boolean(p_init_msg_list) THEN

1251: AHL_DEBUG_PUB.debug( 'Enter Complete UC Approvals');
1252: END IF;
1253:
1254: -- Initialize message list if p_init_msg_list is set to TRUE
1255: IF FND_API.To_Boolean(p_init_msg_list) THEN
1256: FND_MSG_PUB.Initialize;
1257: END IF;
1258:
1259: -- Initialize API return status to success

Line 1260: x_return_status := FND_API.G_RET_STS_SUCCESS;

1256: FND_MSG_PUB.Initialize;
1257: END IF;
1258:
1259: -- Initialize API return status to success
1260: x_return_status := FND_API.G_RET_STS_SUCCESS;
1261:
1262: IF G_DEBUG='Y' THEN
1263: AHL_DEBUG_PUB.debug( 'UC: AHL_UC_APPROVALS_PVT.complete_uc_approval--> check for Valid UC');
1264: END IF;

Line 1268: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN

1264: END IF;
1265:
1266: -- Begin Processing
1267: --1) Validate if uc_header_id is passed.
1268: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN
1269: x_return_status := FND_API.G_RET_STS_ERROR;
1270: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
1271: FND_MESSAGE.set_token('PROCEDURE', G_PKG_NAME);
1272: FND_MSG_PUB.add;

Line 1269: x_return_status := FND_API.G_RET_STS_ERROR;

1265:
1266: -- Begin Processing
1267: --1) Validate if uc_header_id is passed.
1268: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM) THEN
1269: x_return_status := FND_API.G_RET_STS_ERROR;
1270: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
1271: FND_MESSAGE.set_token('PROCEDURE', G_PKG_NAME);
1272: FND_MSG_PUB.add;
1273: RAISE FND_API.G_EXC_ERROR;

Line 1273: RAISE FND_API.G_EXC_ERROR;

1269: x_return_status := FND_API.G_RET_STS_ERROR;
1270: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
1271: FND_MESSAGE.set_token('PROCEDURE', G_PKG_NAME);
1272: FND_MSG_PUB.add;
1273: RAISE FND_API.G_EXC_ERROR;
1274: END IF;
1275:
1276: IF G_DEBUG='Y' THEN
1277: AHL_DEBUG_PUB.debug( 'UC: AHL_UC_APPROVALS_PVT.complete_uc_approval--> UC is Valid 1 ');

Line 1288: RAISE FND_API.G_EXC_ERROR;

1284: fnd_message.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
1285: fnd_message.set_token('UC_HEADER_ID', p_uc_header_id, false);
1286: FND_MSG_PUB.add;
1287: CLOSE get_uc_header_det;
1288: RAISE FND_API.G_EXC_ERROR;
1289: END IF;
1290: CLOSE get_uc_header_det;
1291:
1292: IF G_DEBUG='Y' THEN

Line 1317: p_init_msg_list => FND_API.G_TRUE,

1313:
1314: --call the completeness check API
1315: AHL_UC_VALIDATION_PUB.check_completeness(
1316: p_api_version => 1.0,
1317: p_init_msg_list => FND_API.G_TRUE,
1318: p_commit => FND_API.G_FALSE,
1319: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1320: p_unit_header_id => p_uc_header_id,
1321: x_evaluation_status => l_evaluation_status,

Line 1318: p_commit => FND_API.G_FALSE,

1314: --call the completeness check API
1315: AHL_UC_VALIDATION_PUB.check_completeness(
1316: p_api_version => 1.0,
1317: p_init_msg_list => FND_API.G_TRUE,
1318: p_commit => FND_API.G_FALSE,
1319: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1320: p_unit_header_id => p_uc_header_id,
1321: x_evaluation_status => l_evaluation_status,
1322: x_return_status => l_return_status,

Line 1319: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

1315: AHL_UC_VALIDATION_PUB.check_completeness(
1316: p_api_version => 1.0,
1317: p_init_msg_list => FND_API.G_TRUE,
1318: p_commit => FND_API.G_FALSE,
1319: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1320: p_unit_header_id => p_uc_header_id,
1321: x_evaluation_status => l_evaluation_status,
1322: x_return_status => l_return_status,
1323: x_msg_count => l_msg_count,

Line 1339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1335: l_msg_count := FND_MSG_PUB.count_msg;
1336: IF l_msg_count > 0 THEN
1337: AHL_DEBUG_PUB.debug('Failed Check Completeness API');
1338: x_msg_count := l_msg_count;
1339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1340: END IF;
1341:
1342: IF ( l_evaluation_status = 'T' ) THEN
1343: l_status := 'COMPLETE';

Line 1375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1371: WHEN OTHERS THEN
1372: IF G_DEBUG='Y' THEN
1373: AHL_DEBUG_PUB.debug('Unexpected Error during Update');
1374: END IF;
1375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1376: END;
1377:
1378: IF G_DEBUG='Y' THEN
1379: AHL_DEBUG_PUB.debug( 'UC: AHL_UC_APPROVALS_PVT.complete_uc_approval--> Before History');

Line 1392: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1388: l_msg_count := FND_MSG_PUB.count_msg;
1389:
1390: IF l_msg_count > 0 THEN
1391: X_msg_count := l_msg_count;
1392: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1393: RAISE FND_API.G_EXC_ERROR;
1394: END IF;
1395:
1396:

Line 1393: RAISE FND_API.G_EXC_ERROR;

1389:
1390: IF l_msg_count > 0 THEN
1391: X_msg_count := l_msg_count;
1392: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1393: RAISE FND_API.G_EXC_ERROR;
1394: END IF;
1395:
1396:
1397: IF FND_API.TO_BOOLEAN(p_commit) THEN

Line 1397: IF FND_API.TO_BOOLEAN(p_commit) THEN

1393: RAISE FND_API.G_EXC_ERROR;
1394: END IF;
1395:
1396:
1397: IF FND_API.TO_BOOLEAN(p_commit) THEN
1398: COMMIT;
1399: END IF;
1400:
1401: EXCEPTION

Line 1402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1398: COMMIT;
1399: END IF;
1400:
1401: EXCEPTION
1402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1403: ROLLBACK TO COMPLETE_Q_APPROVAL_SP;
1404: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1405: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1406: p_count => x_msg_count,

Line 1404: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1400:
1401: EXCEPTION
1402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1403: ROLLBACK TO COMPLETE_Q_APPROVAL_SP;
1404: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1405: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1406: p_count => x_msg_count,
1407: p_data => x_msg_data);
1408: IF G_DEBUG='Y' THEN

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

1401: EXCEPTION
1402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1403: ROLLBACK TO COMPLETE_Q_APPROVAL_SP;
1404: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1405: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1406: p_count => x_msg_count,
1407: p_data => x_msg_data);
1408: IF G_DEBUG='Y' THEN
1409: AHL_DEBUG_PUB.disable_debug;

Line 1413: WHEN FND_API.G_EXC_ERROR THEN

1409: AHL_DEBUG_PUB.disable_debug;
1410: END IF;
1411:
1412:
1413: WHEN FND_API.G_EXC_ERROR THEN
1414: ROLLBACK TO COMPLETE_Q_APPROVAL_SP;
1415: X_return_status := FND_API.G_RET_STS_ERROR;
1416: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1417: p_count => x_msg_count,

Line 1415: X_return_status := FND_API.G_RET_STS_ERROR;

1411:
1412:
1413: WHEN FND_API.G_EXC_ERROR THEN
1414: ROLLBACK TO COMPLETE_Q_APPROVAL_SP;
1415: X_return_status := FND_API.G_RET_STS_ERROR;
1416: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1417: p_count => x_msg_count,
1418: p_data => X_msg_data);
1419: IF G_DEBUG='Y' THEN

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

1412:
1413: WHEN FND_API.G_EXC_ERROR THEN
1414: ROLLBACK TO COMPLETE_Q_APPROVAL_SP;
1415: X_return_status := FND_API.G_RET_STS_ERROR;
1416: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1417: p_count => x_msg_count,
1418: p_data => X_msg_data);
1419: IF G_DEBUG='Y' THEN
1420: AHL_DEBUG_PUB.disable_debug;

Line 1425: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1421: END IF;
1422:
1423: WHEN OTHERS THEN
1424: ROLLBACK TO COMPLETE_Q_APPROVAL_SP;
1425: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1426: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1427: THEN
1428: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1429: p_procedure_name => l_api_name,

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

1428: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1429: p_procedure_name => l_api_name,
1430: p_error_text => SUBSTR(SQLERRM,1,240));
1431: END IF;
1432: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1433: p_count => x_msg_count,
1434: p_data => X_msg_data);
1435: IF G_DEBUG='Y' THEN
1436: AHL_DEBUG_PUB.disable_debug;