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
1332: CLOSE GET_PC_HEADER_DET;
1333: IF (l_pc_header_det.object_version_number <> l_object_version_number)
1334: THEN
1335: fnd_message.set_name('AHL', 'AHL_APRV_OBJ_CHANGED');
1336: fnd_msg_pub.add;
1337: l_msg_count := 1;
1338: l_return_status := FND_API.G_RET_STS_ERROR;
1339: ELSE
1340: l_pc_header_rec.PC_HEADER_ID := l_pc_header_det.PC_HEADER_ID;
1415: END IF;
1416:
1417: EXCEPTION
1418: WHEN FND_API.g_exc_error THEN
1419: FND_MSG_PUB.Count_And_Get
1420: (
1421: p_encoded => FND_API.G_FALSE,
1422: p_count => l_msg_count,
1423: p_data => l_msg_data
1565:
1566:
1567: EXCEPTION
1568: WHEN FND_API.g_exc_error THEN
1569: FND_MSG_PUB.Count_And_Get
1570: (
1571: p_encoded => FND_API.G_FALSE,
1572: p_count => l_msg_count,
1573: p_data => l_msg_data