[Home] [Help]
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
106: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
116: END IF;
117:
118: --2) Fetch the uc header details
120: FETCH get_uc_header_det into l_uc_header_rec;
121: IF (get_uc_header_det%NOTFOUND) THEN
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
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:
167: And object_version_number=p_object_version_number;
168:
169: IF sql%rowcount=0 THEN
170: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
171: FND_MSG_PUB.ADD;
172: ELSE
173:
174: ahl_generic_aprv_pvt.START_WF_PROCESS(
175: P_OBJECT =>l_object,
196: And object_version_number=p_object_version_number;
197:
198: IF sql%rowcount=0 THEN
199: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
200: FND_MSG_PUB.ADD;
201: ELSE
202: -- Call the Complete UC Approval API
203: AHL_UC_APPROVALS_PVT.COMPLETE_UC_APPROVAL
204: (
252: And object_version_number=p_object_version_number;
253:
254: IF sql%rowcount=0 THEN
255: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
256: FND_MSG_PUB.ADD;
257: ELSE
258: ahl_generic_aprv_pvt.START_WF_PROCESS(
259: P_OBJECT =>l_object,
260: P_ACTIVITY_ID =>l_activity_id,
280: And object_version_number=p_object_version_number;
281:
282: IF sql%rowcount=0 THEN
283: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
284: FND_MSG_PUB.ADD;
285: ELSE
286:
287: --Call the complete UC Approvals API
288: AHL_UC_APPROVALS_PVT.COMPLETE_UC_APPROVAL
305: ELSE
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:
311:
312: END IF;
313:
314:
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;
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;
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;
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,
355: p_error_text => SUBSTR(SQLERRM,1,240));
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,
355: p_error_text => SUBSTR(SQLERRM,1,240));
356: END IF;
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;
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
454: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
464: END IF;
465:
466: --2) Validate uc_header_id
468: FETCH get_uc_header_det into l_uc_header_rec;
469: IF (get_uc_header_det%NOTFOUND) THEN
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;
504: AHL_DEBUG_PUB.debug('l_msg_data' || l_msg_data);
505: AHL_DEBUG_PUB.debug( 'UC: AHL_UC_APPROVALS_PVT.complete_uc_approval-->After Completeness Check API call');
506: END IF;
507:
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;
580: END IF; --uc_status_codes
581:
582: --End Processing
583:
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;
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;
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;
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,
626: p_error_text => SUBSTR(SQLERRM,1,240));
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,
626: p_error_text => SUBSTR(SQLERRM,1,240));
627: END IF;
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;
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
734: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
744: END IF;
745:
746: -- Fetch the uc header details
748: FETCH get_uc_header_det into l_uc_header_rec;
749: IF (get_uc_header_det%NOTFOUND) THEN
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
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
800: AND object_version_number=p_object_version_number;
801:
802: IF sql%rowcount=0 THEN
803: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
804: FND_MSG_PUB.ADD;
805: -- To be verified if Error is supposed to be raised here or not.
806: ELSE
807:
808: ahl_generic_aprv_pvt.START_WF_PROCESS(P_OBJECT => l_object,
830: And object_version_number=p_object_version_number;
831:
832: IF sql%rowcount=0 THEN
833: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
834: FND_MSG_PUB.ADD;
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,
849: END IF; -- Active Workflow Check
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;
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:
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;
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;
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;
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,
897: p_error_text => SUBSTR(SQLERRM,1,240));
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,
897: p_error_text => SUBSTR(SQLERRM,1,240));
898: END IF;
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;
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
1004: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1014: END IF;
1015:
1016: -- Fetch the uc header details
1018: FETCH get_uc_header_det into l_uc_header_rec;
1019: IF (get_uc_header_det%NOTFOUND) THEN
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
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.
1065: AND object_version_number=p_object_version_number;
1066:
1067: IF sql%rowcount=0 THEN
1068: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1069: FND_MSG_PUB.ADD;
1070: -- To be verified if Error is supposed to be raised here or not.
1071: ELSE
1072:
1073: ahl_generic_aprv_pvt.START_WF_PROCESS(P_OBJECT => l_object,
1095: And object_version_number=p_object_version_number;
1096:
1097: IF sql%rowcount=0 THEN
1098: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1099: FND_MSG_PUB.ADD;
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,
1114: END IF; -- Active Workflow Check
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;
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:
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;
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;
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;
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,
1162: p_error_text => SUBSTR(SQLERRM,1,240));
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,
1162: p_error_text => SUBSTR(SQLERRM,1,240));
1163: END IF;
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;
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
1260: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1274: END IF;
1275:
1276: IF G_DEBUG='Y' THEN
1282: FETCH get_uc_header_det into l_uc_header_rec;
1283: IF (get_uc_header_det%NOTFOUND) THEN
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;
1331: AHL_DEBUG_PUB.debug('l_msg_data' || l_msg_data);
1332: AHL_DEBUG_PUB.debug( 'UC: AHL_UC_APPROVALS_PVT.complete_uc_approval-->After Completeness Check API call');
1333: END IF;
1334:
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;
1384: IF G_DEBUG='Y' THEN
1385: AHL_DEBUG_PUB.debug( 'UC: AHL_UC_APPROVALS_PVT.complete_uc_approval--> After History');
1386: END IF;
1387:
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;
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;
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;
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,
1430: p_error_text => SUBSTR(SQLERRM,1,240));
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,
1430: p_error_text => SUBSTR(SQLERRM,1,240));
1431: END IF;
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;