40: IF G_DEBUG='Y' THEN
41: AHL_DEBUG_PUB.ENABLE_DEBUG;
42: END IF;
43:
44: fnd_msg_pub.initialize;
45:
46: l_return_status := FND_API.g_ret_sts_success;
47:
48: IF G_DEBUG='Y' THEN
258: END IF;
259:
260: EXCEPTION
261: WHEN FND_API.G_EXC_ERROR THEN
262: FND_MSG_PUB.Count_And_Get
263: (
264: p_encoded => FND_API.G_FALSE,
265: p_count => l_msg_count,
266: p_data => l_msg_data
393: RETURN;
394:
395: EXCEPTION
396: WHEN FND_API.G_EXC_ERROR THEN
397: FND_MSG_PUB.Count_And_Get
398: (
399: p_encoded => FND_API.G_FALSE,
400: p_count => l_msg_count,
401: p_data => l_msg_data
522: RETURN;
523:
524: EXCEPTION
525: WHEN FND_API.G_EXC_ERROR THEN
526: FND_MSG_PUB.Count_And_Get
527: (
528: p_encoded => FND_API.G_FALSE,
529: p_count => l_msg_count,
530: p_data => l_msg_data
641: RETURN;
642:
643: EXCEPTION
644: WHEN FND_API.G_EXC_ERROR THEN
645: FND_MSG_PUB.Count_And_Get
646: (
647: p_encoded => FND_API.G_FALSE,
648: p_count => l_msg_count,
649: p_data => l_msg_data
771: RETURN;
772:
773: EXCEPTION
774: WHEN FND_API.G_EXC_ERROR THEN
775: FND_MSG_PUB.Count_And_Get
776: (
777: p_encoded => FND_API.G_FALSE,
778: p_count => l_msg_count,
779: p_data => l_msg_data
910: RETURN;
911:
912: EXCEPTION
913: WHEN FND_API.G_EXC_ERROR THEN
914: FND_MSG_PUB.Count_And_Get
915: (
916: p_encoded => FND_API.G_FALSE,
917: p_count => l_msg_count,
918: p_data => l_msg_data
1048: RETURN;
1049:
1050: EXCEPTION
1051: WHEN FND_API.G_EXC_ERROR THEN
1052: FND_MSG_PUB.Count_And_Get
1053: (
1054: p_encoded => FND_API.G_FALSE,
1055: p_count => l_msg_count,
1056: p_data => l_msg_data
1182: RETURN;
1183:
1184: EXCEPTION
1185: WHEN FND_API.G_EXC_ERROR THEN
1186: FND_MSG_PUB.Count_And_Get
1187: (
1188: p_encoded => FND_API.G_FALSE,
1189: p_count => l_msg_count,
1190: p_data => l_msg_data
1354: CLOSE GET_PC_HEADER_DET;
1355: IF (l_pc_header_det.object_version_number <> l_object_version_number)
1356: THEN
1357: fnd_message.set_name('AHL', 'AHL_APRV_OBJ_CHANGED');
1358: fnd_msg_pub.add;
1359: l_msg_count := 1;
1360: l_return_status := FND_API.G_RET_STS_ERROR;
1361: ELSE
1362: l_pc_header_rec.PC_HEADER_ID := l_pc_header_det.PC_HEADER_ID;
1440: END IF;
1441:
1442: EXCEPTION
1443: WHEN FND_API.g_exc_error THEN
1444: FND_MSG_PUB.Count_And_Get
1445: (
1446: p_encoded => FND_API.G_FALSE,
1447: p_count => l_msg_count,
1448: p_data => l_msg_data
1590:
1591:
1592: EXCEPTION
1593: WHEN FND_API.g_exc_error THEN
1594: FND_MSG_PUB.Count_And_Get
1595: (
1596: p_encoded => FND_API.G_FALSE,
1597: p_count => l_msg_count,
1598: p_data => l_msg_data