263: x_space_restriction_rec := p_space_restriction_rec;
264: OPEN c_space_restriction_rec;
265: FETCH c_space_restriction_rec INTO l_space_restriction_rec;
266: IF c_space_restriction_rec%NOTFOUND THEN
267: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
268: FND_MESSAGE.set_name('AHL', 'AHL_APPR_RECORD_NOT_FOUND');
269: FND_MSG_PUB.add;
270: RAISE Fnd_Api.G_EXC_ERROR;
271: END IF;
265: FETCH c_space_restriction_rec INTO l_space_restriction_rec;
266: IF c_space_restriction_rec%NOTFOUND THEN
267: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
268: FND_MESSAGE.set_name('AHL', 'AHL_APPR_RECORD_NOT_FOUND');
269: FND_MSG_PUB.add;
270: RAISE Fnd_Api.G_EXC_ERROR;
271: END IF;
272: END IF;
273: CLOSE c_space_restriction_rec;
274: --Check for object version number
275: IF (l_space_restriction_rec.object_version_number <> p_space_restriction_rec.object_version_number)
276: THEN
277: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
278: Fnd_Msg_Pub.ADD;
279: RAISE Fnd_Api.G_EXC_ERROR;
280: END IF;
281: -- SPACE ID
282: IF p_space_restriction_rec.space_id <> FND_API.g_miss_num THEN
390: p_space_restriction_rec.ORGANIZATION_ID = FND_API.G_MISS_NUM)
391: --
392: THEN
393: -- missing required fields
394: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
395: THEN
396: Fnd_Message.set_name('AHL', 'AHL_APPR_ORG_REQUIRED');
397: Fnd_Msg_Pub.ADD;
398: END IF;
393: -- missing required fields
394: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
395: THEN
396: Fnd_Message.set_name('AHL', 'AHL_APPR_ORG_REQUIRED');
397: Fnd_Msg_Pub.ADD;
398: END IF;
399: x_return_status := Fnd_Api.G_RET_STS_ERROR;
400: END IF;
401: --
404: p_space_restriction_rec.DEPARTMENT_ID = FND_API.G_MISS_NUM)
405: --
406: THEN
407: -- missing required fields
408: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
409: THEN
410: Fnd_Message.set_name('AHL', 'AHL_APPR_DEPT_REQUIRED');
411: Fnd_Msg_Pub.ADD;
412: END IF;
407: -- missing required fields
408: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
409: THEN
410: Fnd_Message.set_name('AHL', 'AHL_APPR_DEPT_REQUIRED');
411: Fnd_Msg_Pub.ADD;
412: END IF;
413: x_return_status := Fnd_Api.G_RET_STS_ERROR;
414: END IF;
415: --
418: p_space_restriction_rec.SPACE_ID = FND_API.G_MISS_NUM)
419: --
420: THEN
421: -- missing required fields
422: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
423: THEN
424: Fnd_Message.set_name('AHL', 'AHL_APPR_SPACE_ID_NOT_EXIST');
425: Fnd_Msg_Pub.ADD;
426: END IF;
421: -- missing required fields
422: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
423: THEN
424: Fnd_Message.set_name('AHL', 'AHL_APPR_SPACE_ID_NOT_EXIST');
425: Fnd_Msg_Pub.ADD;
426: END IF;
427: x_return_status := Fnd_Api.G_RET_STS_ERROR;
428: END IF;
429: -- START_DATE
430: IF (p_space_restriction_rec.START_DATE = Fnd_Api.G_MISS_DATE OR
431: p_space_restriction_rec.START_DATE IS NULL)
432: THEN
433: -- missing required fields
434: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
435: THEN
436: Fnd_Message.set_name('AHL', 'AHL_APPR_START_DATE_NOT_EXIST');
437: Fnd_Msg_Pub.ADD;
438: END IF;
433: -- missing required fields
434: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
435: THEN
436: Fnd_Message.set_name('AHL', 'AHL_APPR_START_DATE_NOT_EXIST');
437: Fnd_Msg_Pub.ADD;
438: END IF;
439: x_return_status := Fnd_Api.G_RET_STS_ERROR;
440: END IF;
441: --END DATE
442: IF (p_space_restriction_rec.END_DATE = Fnd_Api.G_MISS_DATE OR
443: p_space_restriction_rec.END_DATE IS NULL)
444: THEN
445: -- missing required fields
446: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
447: THEN
448: Fnd_Message.set_name('AHL', 'AHL_APPR_END_DATE_NOT_EXIST');
449: Fnd_Msg_Pub.ADD;
450: END IF;
445: -- missing required fields
446: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
447: THEN
448: Fnd_Message.set_name('AHL', 'AHL_APPR_END_DATE_NOT_EXIST');
449: Fnd_Msg_Pub.ADD;
450: END IF;
451: x_return_status := Fnd_Api.G_RET_STS_ERROR;
452: END IF;
453:
462: p_pk_name => l_pk_name,
463: p_pk_value => l_pk_value
464: ) = Fnd_Api.G_FALSE
465: THEN
466: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
467: THEN
468: Fnd_Message.set_name('AHL', 'AHL_APPR_INVALID_SPACE_ID');
469: Fnd_Msg_Pub.ADD;
470: END IF;
465: THEN
466: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
467: THEN
468: Fnd_Message.set_name('AHL', 'AHL_APPR_INVALID_SPACE_ID');
469: Fnd_Msg_Pub.ADD;
470: END IF;
471: x_return_status := Fnd_Api.G_RET_STS_ERROR;
472: END IF; -- check_fk_exists
473: END IF;
523: THEN
524: IF p_space_restriction_rec.START_DATE < TRUNC(SYSDATE)
525: THEN
526: Fnd_Message.set_name('AHL', 'AHL_APPR_INVALID_START_DATE');
527: Fnd_Msg_Pub.ADD;
528: x_return_status := Fnd_Api.G_RET_STS_ERROR;
529: END IF;
530: END IF;
531:
535: THEN
536: IF( p_space_restriction_rec.END_DATE < p_space_restriction_rec.START_DATE )
537: THEN
538: Fnd_Message.set_name('AHL', 'AHL_APPR_INV_START_END_DATE');
539: Fnd_Msg_Pub.ADD;
540: x_return_status := Fnd_Api.G_RET_STS_ERROR;
541: END IF;
542: END IF;
543:
544: --
545: IF (p_space_restriction_rec.START_DATE IS NULL AND
546: p_space_restriction_rec.END_DATE IS NOT NULL) THEN
547: Fnd_Message.set_name('AHL', 'AHL_APPR_INVALID_START_DATE');
548: Fnd_Msg_Pub.ADD;
549: END IF;
550: --
551: ELSE
552: OPEN space_restirct_date_cur(p_space_restriction_rec.space_unavailability_id);
557: THEN
558: IF p_space_restriction_rec.START_DATE < TRUNC(SYSDATE)
559: THEN
560: Fnd_Message.set_name('AHL', 'AHL_APPR_INVALID_START_DATE');
561: Fnd_Msg_Pub.ADD;
562: END IF;
563: END IF;
564: --
565: IF ((p_space_restriction_rec.END_DATE IS NOT NULL AND
569: THEN
570: IF( p_space_restriction_rec.END_DATE < p_space_restriction_rec.START_DATE )
571: THEN
572: Fnd_Message.set_name('AHL', 'AHL_APPR_INV_START_END_DATE');
573: Fnd_Msg_Pub.ADD;
574: x_return_status := Fnd_Api.G_RET_STS_ERROR;
575: END IF;
576: END IF;
577: --
582: THEN
583: IF( p_space_restriction_rec.END_DATE < p_space_restriction_rec.START_DATE )
584: THEN
585: Fnd_Message.set_name('AHL', 'AHL_APPR_INV_START_END_DATE');
586: Fnd_Msg_Pub.ADD;
587: x_return_status := Fnd_Api.G_RET_STS_ERROR;
588: END IF;
589: END IF;
590: --
595: THEN
596: IF( p_space_restriction_rec.END_DATE < p_space_restriction_rec.START_DATE )
597: THEN
598: Fnd_Message.set_name('AHL', 'AHL_APPR_INV_START_END_DATE');
599: Fnd_Msg_Pub.ADD;
600: x_return_status := Fnd_Api.G_RET_STS_ERROR;
601: END IF;
602: END IF;
603: --
609: THEN
610: IF( p_space_restriction_rec.END_DATE < p_space_restriction_rec.START_DATE )
611: THEN
612: Fnd_Message.set_name('AHL', 'AHL_APPR_INV_START_END_DATE');
613: Fnd_Msg_Pub.ADD;
614: x_return_status := Fnd_Api.G_RET_STS_ERROR;
615: END IF;
616: END IF;
617:
624: p_space_restriction_rec.END_DATE <> l_end_date ))
625: THEN
626: IF p_space_restriction_rec.END_DATE < trunc(sysdate) THEN
627: Fnd_Message.set_name('AHL', 'AHL_APPR_INVALID_END_DATE');
628: Fnd_Msg_Pub.ADD;
629: x_return_status := Fnd_Api.G_RET_STS_ERROR;
630: END IF;
631: END IF; */
632: --
634: p_space_restriction_rec.END_DATE <> l_end_date )
635: THEN
636: IF p_space_restriction_rec.END_DATE < trunc(sysdate) THEN
637: Fnd_Message.set_name('AHL', 'AHL_APPR_INVALID_END_DATE');
638: Fnd_Msg_Pub.ADD;
639: x_return_status := Fnd_Api.G_RET_STS_ERROR;
640: END IF;
641: END IF;
642:
653: IF (l_start_date_time >= p_space_restriction_rec.START_DATE
654: AND l_start_date_time <= p_space_restriction_rec.END_DATE)
655: THEN
656: Fnd_Message.set_name('AHL', 'AHL_APPR_SPACE_VISITS_EXIST');
657: Fnd_Msg_Pub.ADD;
658: END IF;
659: END IF;
660: END LOOP;
661: CLOSE space_visit_cur;
700: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
701: END IF;
702: -- Initialize message list if p_init_msg_list is set to TRUE.
703: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
704: Fnd_Msg_Pub.initialize;
705: END IF;
706: -- Initialize API return status to success
707: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
708: --
744: -- END of API body.
745: --
746: -------------------- finish --------------------------
747:
748: Fnd_Msg_Pub.count_and_get(
749: p_encoded => Fnd_Api.g_false,
750: p_count => x_msg_count,
751: p_data => x_msg_data);
752: EXCEPTION
751: p_data => x_msg_data);
752: EXCEPTION
753: WHEN Fnd_Api.G_EXC_ERROR THEN
754: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
755: Fnd_Msg_Pub.Count_AND_Get
756: ( p_count => x_msg_count,
757: p_data => x_msg_data,
758: p_encoded => Fnd_Api.G_FALSE
759: );
758: p_encoded => Fnd_Api.G_FALSE
759: );
760: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
761: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
762: Fnd_Msg_Pub.Count_AND_Get
763: ( p_count => x_msg_count,
764: p_data => x_msg_data,
765: p_encoded => Fnd_Api.G_FALSE
766: );
765: p_encoded => Fnd_Api.G_FALSE
766: );
767: WHEN OTHERS THEN
768: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
769: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
770: THEN
771: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
772: END IF;
773: Fnd_Msg_Pub.Count_AND_Get
767: WHEN OTHERS THEN
768: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
769: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
770: THEN
771: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
772: END IF;
773: Fnd_Msg_Pub.Count_AND_Get
774: ( p_count => x_msg_count,
775: p_data => x_msg_data,
769: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
770: THEN
771: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
772: END IF;
773: Fnd_Msg_Pub.Count_AND_Get
774: ( p_count => x_msg_count,
775: p_data => x_msg_data,
776: p_encoded => Fnd_Api.G_FALSE
777: );
856: END IF;
857: -- Standard call to check for call compatibility.
858: IF FND_API.to_boolean(p_init_msg_list)
859: THEN
860: FND_MSG_PUB.initialize;
861: END IF;
862: -- Initialize API return status to success
863: x_return_status := FND_API.G_RET_STS_SUCCESS;
864: -- Initialize message list if p_init_msg_list is set to TRUE.
893: IF NVL(l_return_status,'x') <> 'S'
894: THEN
895: Fnd_Message.SET_NAME('AHL','AHL_APPR_ORG_NT_EXISTS');
896: Fnd_Message.SET_TOKEN('ORGID',p_x_space_restriction_rec.org_name);
897: Fnd_Msg_Pub.ADD;
898: END IF;
899: END IF;
900: --Assign the returned value
901: p_x_space_restriction_rec.organization_id := l_organization_id;
922: IF NVL(l_return_status,'x') <> 'S'
923: THEN
924: Fnd_Message.SET_NAME('AHL','AHL_APPR_DPT_NOT_EXISTS');
925: Fnd_Message.SET_TOKEN('DEPTID',p_x_space_restriction_rec.dept_description);
926: Fnd_Msg_Pub.ADD;
927: END IF;
928: END IF;
929: --Assign the returned value
930: p_x_space_restriction_rec.department_id := l_department_id;
948: IF NVL(l_return_status,'x') <> 'S'
949: THEN
950: Fnd_Message.SET_NAME('AHL','AHL_APPR_SPACE_NOT_EXISTS');
951: Fnd_Message.SET_TOKEN('SPACEID',p_x_space_restriction_rec.space_name);
952: Fnd_Msg_Pub.ADD;
953: END IF;
954: END IF;
955: --Assign the returned value
956: p_x_space_restriction_rec.space_id := l_space_id;
959: AHL_DEBUG_PUB.debug( 'Space id'||p_x_space_restriction_rec.space_id);
960: END IF;
961:
962: --Standard check to count messages
963: l_msg_count := Fnd_Msg_Pub.count_msg;
964:
965: IF l_msg_count > 0 THEN
966: X_msg_count := l_msg_count;
967: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1003: -- l_dummy would be populated with '1', otherwise,
1004: -- it receives NULL.
1005: IF l_dummy IS NOT NULL THEN
1006: Fnd_Message.SET_NAME('AHL','AHL_APPR_SEQUENCE_NOT_EXISTS');
1007: Fnd_Msg_Pub.ADD;
1008: END IF;
1009:
1010: -- For optional fields
1011: IF p_x_space_restriction_rec.description = FND_API.G_MISS_CHAR
1136: CLOSE check_duplicate_cur;
1137: IF l_dup_id IS NOT NULL
1138: THEN
1139: Fnd_Message.SET_NAME('AHL','AHL_APPR_RECORD_EXISTS');
1140: Fnd_Msg_Pub.ADD;
1141: END IF;
1142:
1143: --Standard check to count messages
1144: l_msg_count := Fnd_Msg_Pub.count_msg;
1140: Fnd_Msg_Pub.ADD;
1141: END IF;
1142:
1143: --Standard check to count messages
1144: l_msg_count := Fnd_Msg_Pub.count_msg;
1145:
1146: IF l_msg_count > 0 THEN
1147: X_msg_count := l_msg_count;
1148: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1183:
1184: p_x_space_restriction_rec.space_unavailability_id := l_space_unavaialability_id;
1185: ---------------------------End of Body---------------------------------------
1186: --Standard check to count messages
1187: l_msg_count := Fnd_Msg_Pub.count_msg;
1188:
1189: IF l_msg_count > 0 THEN
1190: X_msg_count := l_msg_count;
1191: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1206: EXCEPTION
1207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1208: ROLLBACK TO create_space_restriction;
1209: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1210: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1211: p_count => x_msg_count,
1212: p_data => x_msg_data);
1213: IF G_DEBUG='Y' THEN
1214: AHL_DEBUG_PUB.log_app_messages (
1219: END IF;
1220: WHEN FND_API.G_EXC_ERROR THEN
1221: ROLLBACK TO create_space_restriction;
1222: X_return_status := FND_API.G_RET_STS_ERROR;
1223: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1224: p_count => x_msg_count,
1225: p_data => X_msg_data);
1226: IF G_DEBUG='Y' THEN
1227: -- Debug info.
1234:
1235: WHEN OTHERS THEN
1236: ROLLBACK TO create_space_restriction;
1237: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1238: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1239: THEN
1240: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_UNAVL_PVT',
1241: p_procedure_name => 'CREATE_SPACE_RESTRICTION',
1242: p_error_text => SUBSTR(SQLERRM,1,240));
1236: ROLLBACK TO create_space_restriction;
1237: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1238: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1239: THEN
1240: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_UNAVL_PVT',
1241: p_procedure_name => 'CREATE_SPACE_RESTRICTION',
1242: p_error_text => SUBSTR(SQLERRM,1,240));
1243: END IF;
1244: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1240: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_UNAVL_PVT',
1241: p_procedure_name => 'CREATE_SPACE_RESTRICTION',
1242: p_error_text => SUBSTR(SQLERRM,1,240));
1243: END IF;
1244: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1245: p_count => x_msg_count,
1246: p_data => X_msg_data);
1247: IF G_DEBUG='Y' THEN
1248: -- Debug info.
1337: END IF;
1338: -- Standard call to check for call compatibility.
1339: IF FND_API.to_boolean(p_init_msg_list)
1340: THEN
1341: FND_MSG_PUB.initialize;
1342: END IF;
1343: -- Initialize API return status to success
1344: x_return_status := FND_API.G_RET_STS_SUCCESS;
1345: -- Initialize message list if p_init_msg_list is set to TRUE.
1376: IF NVL(l_return_status,'x') <> 'S'
1377: THEN
1378: Fnd_Message.SET_NAME('AHL','AHL_APPR_SPACE_NOT_EXISTS');
1379: Fnd_Message.SET_TOKEN('ORGID',p_space_restriction_rec.space_name);
1380: Fnd_Msg_Pub.ADD;
1381: END IF;
1382: END IF;
1383: -- Get organization , department id
1384: OPEN get_space_detail_cur (l_space_id);
1423: --
1424: IF (p_space_restriction_rec.start_date <> l_start_date OR
1425: p_space_restriction_rec.end_date <> l_end_date ) THEN
1426: Fnd_Message.SET_NAME('AHL','AHL_APPR_RECORD_EXISTS');
1427: Fnd_Msg_Pub.ADD;
1428: END IF;
1429: END IF;
1430: --Standard check to count messages
1431: l_msg_count := Fnd_Msg_Pub.count_msg;
1427: Fnd_Msg_Pub.ADD;
1428: END IF;
1429: END IF;
1430: --Standard check to count messages
1431: l_msg_count := Fnd_Msg_Pub.count_msg;
1432:
1433: IF l_msg_count > 0 THEN
1434: X_msg_count := l_msg_count;
1435: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1469:
1470:
1471: ---------------------------End of Body---------------------------------------
1472: --Standard check to count messages
1473: l_msg_count := Fnd_Msg_Pub.count_msg;
1474:
1475: IF l_msg_count > 0 THEN
1476: X_msg_count := l_msg_count;
1477: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1492: EXCEPTION
1493: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1494: ROLLBACK TO update_space_restriction;
1495: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1496: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1497: p_count => x_msg_count,
1498: p_data => x_msg_data);
1499: IF G_DEBUG='Y' THEN
1500: AHL_DEBUG_PUB.log_app_messages (
1506:
1507: WHEN FND_API.G_EXC_ERROR THEN
1508: ROLLBACK TO update_space_restriction;
1509: X_return_status := FND_API.G_RET_STS_ERROR;
1510: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1511: p_count => x_msg_count,
1512: p_data => X_msg_data);
1513: IF G_DEBUG='Y' THEN
1514: -- Debug info.
1521:
1522: WHEN OTHERS THEN
1523: ROLLBACK TO update_space_restriction;
1524: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1525: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1526: THEN
1527: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_UNAVL_PVT',
1528: p_procedure_name => 'UPDATE_SPACE_RESTRICTION',
1529: p_error_text => SUBSTR(SQLERRM,1,240));
1523: ROLLBACK TO update_space_restriction;
1524: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1525: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1526: THEN
1527: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_UNAVL_PVT',
1528: p_procedure_name => 'UPDATE_SPACE_RESTRICTION',
1529: p_error_text => SUBSTR(SQLERRM,1,240));
1530: END IF;
1531: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1527: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_UNAVL_PVT',
1528: p_procedure_name => 'UPDATE_SPACE_RESTRICTION',
1529: p_error_text => SUBSTR(SQLERRM,1,240));
1530: END IF;
1531: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1532: p_count => x_msg_count,
1533: p_data => X_msg_data);
1534: IF G_DEBUG='Y' THEN
1535: -- Debug info.
1598: END IF;
1599: -- Standard call to check for call compatibility.
1600: IF FND_API.to_boolean(p_init_msg_list)
1601: THEN
1602: FND_MSG_PUB.initialize;
1603: END IF;
1604: -- Initialize API return status to success
1605: x_return_status := FND_API.G_RET_STS_SUCCESS;
1606: -- Initialize message list if p_init_msg_list is set to TRUE.
1615: OPEN c_space_restrict_cur(p_space_restriction_rec.space_unavailability_id);
1616: FETCH c_space_restrict_cur INTO l_space_unavailability_id,
1617: l_object_version_number;
1618: IF c_space_restrict_cur%NOTFOUND THEN
1619: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1620: FND_MESSAGE.set_name('AHL', 'AHL_APPR_RECORD_NOT_FOUND');
1621: FND_MSG_PUB.add;
1622: END IF;
1623: CLOSE c_space_restrict_cur;
1617: l_object_version_number;
1618: IF c_space_restrict_cur%NOTFOUND THEN
1619: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1620: FND_MESSAGE.set_name('AHL', 'AHL_APPR_RECORD_NOT_FOUND');
1621: FND_MSG_PUB.add;
1622: END IF;
1623: CLOSE c_space_restrict_cur;
1624: RAISE FND_API.g_exc_error;
1625: END IF;
1627: --Check for object version number
1628: IF l_object_version_number <> p_space_restriction_rec.object_version_number
1629: THEN
1630: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1631: FND_MSG_PUB.add;
1632: RAISE FND_API.g_exc_error;
1633: END IF;
1634: -------------------Call Table handler generated procedure------------
1635: AHL_SPACE_UNAVAILABLE_PKG.DELETE_ROW (
1636: X_SPACE_UNAVAILABILITY_ID => l_space_unavailability_id
1637: );
1638: ---------------------------End of Body---------------------------------------
1639: --Standard check to count messages
1640: l_msg_count := Fnd_Msg_Pub.count_msg;
1641:
1642: IF l_msg_count > 0 THEN
1643: X_msg_count := l_msg_count;
1644: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1659: EXCEPTION
1660: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1661: ROLLBACK TO delete_space_restriction;
1662: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1663: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1664: p_count => x_msg_count,
1665: p_data => x_msg_data);
1666: IF G_DEBUG='Y' THEN
1667: AHL_DEBUG_PUB.log_app_messages (
1672: END IF;
1673: WHEN FND_API.G_EXC_ERROR THEN
1674: ROLLBACK TO delete_space_restriction;
1675: X_return_status := FND_API.G_RET_STS_ERROR;
1676: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1677: p_count => x_msg_count,
1678: p_data => X_msg_data);
1679: IF G_DEBUG='Y' THEN
1680: -- Debug info.
1687:
1688: WHEN OTHERS THEN
1689: ROLLBACK TO delete_space_restriction;
1690: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1691: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1692: THEN
1693: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_UNAVL_PVT',
1694: p_procedure_name => 'DELETE_SPACE_RESTRICTION',
1695: p_error_text => SUBSTR(SQLERRM,1,240));
1689: ROLLBACK TO delete_space_restriction;
1690: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1691: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1692: THEN
1693: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_UNAVL_PVT',
1694: p_procedure_name => 'DELETE_SPACE_RESTRICTION',
1695: p_error_text => SUBSTR(SQLERRM,1,240));
1696: END IF;
1697: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1693: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_UNAVL_PVT',
1694: p_procedure_name => 'DELETE_SPACE_RESTRICTION',
1695: p_error_text => SUBSTR(SQLERRM,1,240));
1696: END IF;
1697: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1698: p_count => x_msg_count,
1699: p_data => X_msg_data);
1700: IF G_DEBUG='Y' THEN
1701: -- Debug info.