[Home] [Help]
314: x_space_rec := p_space_rec;
315: OPEN c_space_rec;
316: FETCH c_space_rec INTO l_space_rec;
317: IF c_space_rec%NOTFOUND THEN
318: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
319: FND_MESSAGE.set_name('AHL', 'AHL_APPR_RECORD_NOT_FOUND');
320: FND_MSG_PUB.add;
321: RAISE Fnd_Api.G_EXC_ERROR;
322: END IF;
316: FETCH c_space_rec INTO l_space_rec;
317: IF c_space_rec%NOTFOUND THEN
318: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
319: FND_MESSAGE.set_name('AHL', 'AHL_APPR_RECORD_NOT_FOUND');
320: FND_MSG_PUB.add;
321: RAISE Fnd_Api.G_EXC_ERROR;
322: END IF;
323: END IF;
324: CLOSE c_space_rec;
326: --Check for object version number
327: IF (l_space_rec.object_version_number <> p_space_rec.object_version_number)
328: THEN
329: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
330: Fnd_Msg_Pub.ADD;
331: RAISE Fnd_Api.G_EXC_ERROR;
332: END IF;
333: --
334: IF p_space_rec.space_name <> l_space_rec.space_name THEN
339: AHL_DEBUG_PUB.debug( 'DUMMY'||l_dummy);
340: END IF;
341: IF l_dummy IS NOT NULL THEN
342: Fnd_Message.SET_NAME('AHL','AHL_APPR_SPACE_NAME_EXISTS');
343: Fnd_Msg_Pub.ADD;
344: RAISE Fnd_Api.G_EXC_ERROR;
345: END IF;
346: END IF;
347:
516: )
517: --
518: THEN
519: -- missing required fields
520: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
521: THEN
522: Fnd_Message.set_name('AHL', 'AHL_APPR_ORG_REQUIRED');
523: Fnd_Msg_Pub.ADD;
524: END IF;
519: -- missing required fields
520: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
521: THEN
522: Fnd_Message.set_name('AHL', 'AHL_APPR_ORG_REQUIRED');
523: Fnd_Msg_Pub.ADD;
524: END IF;
525: x_return_status := Fnd_Api.G_RET_STS_ERROR;
526: END IF;
527: -- BOM_DEPARTMENT_ID
528: IF (p_space_rec.DEPARTMENT_ID = Fnd_Api.G_MISS_NUM OR
529: p_space_rec.DEPARTMENT_ID IS NULL)
530: THEN
531: -- missing required fields
532: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
533: THEN
534: Fnd_Message.set_name('AHL', 'AHL_APPR_DEPT_REQUIRED');
535: Fnd_Msg_Pub.ADD;
536: END IF;
531: -- missing required fields
532: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
533: THEN
534: Fnd_Message.set_name('AHL', 'AHL_APPR_DEPT_REQUIRED');
535: Fnd_Msg_Pub.ADD;
536: END IF;
537: x_return_status := Fnd_Api.G_RET_STS_ERROR;
538: END IF;
539: --SPACE CATEGORY
540: IF (p_space_rec.SPACE_CATEGORY_CODE = Fnd_Api.G_MISS_CHAR OR
541: p_space_rec.SPACE_CATEGORY_CODE IS NULL)
542: THEN
543: -- missing required fields
544: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
545: THEN
546: Fnd_Message.set_name('AHL', 'AHL_APPR_SP_CATEGORY_NOT_EXIST');
547: Fnd_Msg_Pub.ADD;
548: END IF;
543: -- missing required fields
544: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
545: THEN
546: Fnd_Message.set_name('AHL', 'AHL_APPR_SP_CATEGORY_NOT_EXIST');
547: Fnd_Msg_Pub.ADD;
548: END IF;
549: x_return_status := Fnd_Api.G_RET_STS_ERROR;
550: END IF;
551:
553: IF (p_space_rec.space_name = Fnd_Api.G_MISS_CHAR OR
554: p_space_rec.SPACE_NAME IS NULL)
555: THEN
556: -- missing required fields
557: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
558: THEN
559: Fnd_Message.set_name('AHL', 'AHL_APPR_SPACE_NAME_NOT_EXIST');
560: Fnd_Msg_Pub.ADD;
561: END IF;
556: -- missing required fields
557: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
558: THEN
559: Fnd_Message.set_name('AHL', 'AHL_APPR_SPACE_NAME_NOT_EXIST');
560: Fnd_Msg_Pub.ADD;
561: END IF;
562: x_return_status := Fnd_Api.G_RET_STS_ERROR;
563: END IF;
564: -- Validate uniqueness
570: 'ahl_spaces_vl',
571: 'space_name = ' || p_space_rec.space_name
572: ) = Fnd_Api.g_false
573: THEN
574: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error)
575: THEN
576: Fnd_Message.set_name('AHL', 'AHL_APPR_SPACE_NAME_EXISTS');
577: Fnd_Msg_Pub.ADD;
578: END IF;
573: THEN
574: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error)
575: THEN
576: Fnd_Message.set_name('AHL', 'AHL_APPR_SPACE_NAME_EXISTS');
577: Fnd_Msg_Pub.ADD;
578: END IF;
579: x_return_status := Fnd_Api.g_ret_sts_error;
580: END IF;
581: END IF;
585: OPEN space_name_cur(p_space_rec.space_name,p_space_rec.department_id);
586: FETCH space_name_cur INTO l_space_name;
587: IF l_space_name IS NOT NULL THEN
588: Fnd_Message.set_name('AHL', 'AHL_APPR_SPACE_NAME_EXISTS');
589: Fnd_Msg_Pub.ADD;
590: END IF;
591: CLOSE space_name_cur;
592: END IF;
593:
601: WHERE space_id = p_space_rec.space_id;
602: --
603: IF l_space_id IS NOT NULL THEN
604: Fnd_Message.set_name('AHL', 'AHL_APPR_SPACE_ASSIGN_EXISTS');
605: Fnd_Msg_Pub.ADD;
606: ELSE
607: OPEN space_name_cur(p_space_rec.space_name,p_space_rec.department_id);
608: FETCH space_name_cur INTO l_space_name;
609: IF l_space_name IS NOT NULL THEN
607: OPEN space_name_cur(p_space_rec.space_name,p_space_rec.department_id);
608: FETCH space_name_cur INTO l_space_name;
609: IF l_space_name IS NOT NULL THEN
610: Fnd_Message.set_name('AHL', 'AHL_APPR_SPACE_NAME_EXISTS');
611: Fnd_Msg_Pub.ADD;
612: END IF;
613: CLOSE space_name_cur;
614: END IF;
615: END IF;
678: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
679: END IF;
680: -- Initialize message list if p_init_msg_list is set to TRUE.
681: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
682: Fnd_Msg_Pub.initialize;
683: END IF;
684: -- Initialize API return status to success
685: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
686: --
722: --
723: -- END of API body.
724: --
725: -------------------- finish --------------------------
726: Fnd_Msg_Pub.count_and_get(
727: p_encoded => Fnd_Api.g_false,
728: p_count => x_msg_count,
729: p_data => x_msg_data);
730: EXCEPTION
729: p_data => x_msg_data);
730: EXCEPTION
731: WHEN Fnd_Api.G_EXC_ERROR THEN
732: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
733: Fnd_Msg_Pub.Count_AND_Get
734: ( p_count => x_msg_count,
735: p_data => x_msg_data,
736: p_encoded => Fnd_Api.G_FALSE
737: );
736: p_encoded => Fnd_Api.G_FALSE
737: );
738: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
739: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
740: Fnd_Msg_Pub.Count_AND_Get
741: ( p_count => x_msg_count,
742: p_data => x_msg_data,
743: p_encoded => Fnd_Api.G_FALSE
744: );
743: p_encoded => Fnd_Api.G_FALSE
744: );
745: WHEN OTHERS THEN
746: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
747: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
748: THEN
749: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
750: END IF;
751: Fnd_Msg_Pub.Count_AND_Get
745: WHEN OTHERS THEN
746: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
747: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
748: THEN
749: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
750: END IF;
751: Fnd_Msg_Pub.Count_AND_Get
752: ( p_count => x_msg_count,
753: p_data => x_msg_data,
747: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
748: THEN
749: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
750: END IF;
751: Fnd_Msg_Pub.Count_AND_Get
752: ( p_count => x_msg_count,
753: p_data => x_msg_data,
754: p_encoded => Fnd_Api.G_FALSE
755: );
819: END IF;
820: -- Standard call to check for call compatibility.
821: IF FND_API.to_boolean(p_init_msg_list)
822: THEN
823: FND_MSG_PUB.initialize;
824: END IF;
825: -- Initialize API return status to success
826: x_return_status := FND_API.G_RET_STS_SUCCESS;
827: -- Initialize message list if p_init_msg_list is set to TRUE.
854:
855: IF NVL(l_return_status,'x') <> 'S'
856: THEN
857: Fnd_Message.SET_NAME('AHL','AHL_APPR_ORG_ID_NOT_EXISTS');
858: Fnd_Msg_Pub.ADD;
859: END IF;
860: ELSE
861: Fnd_Message.SET_NAME('AHL','AHL_APPR_ORG_REQUIRED');
862: Fnd_Msg_Pub.ADD;
858: Fnd_Msg_Pub.ADD;
859: END IF;
860: ELSE
861: Fnd_Message.SET_NAME('AHL','AHL_APPR_ORG_REQUIRED');
862: Fnd_Msg_Pub.ADD;
863: END IF;
864:
865: --Assign the returned value
866: p_x_space_rec.organization_id := l_organization_id;
882:
883: IF NVL(l_return_status,'x') <> 'S'
884: THEN
885: Fnd_Message.SET_NAME('AHL','AHL_APPR_DEPT_ID_NOT_EXIST');
886: Fnd_Msg_Pub.ADD;
887: END IF;
888: ELSE
889: Fnd_Message.SET_NAME('AHL','AHL_APPR_DEPT_REQUIRED');
890: Fnd_Msg_Pub.ADD;
886: Fnd_Msg_Pub.ADD;
887: END IF;
888: ELSE
889: Fnd_Message.SET_NAME('AHL','AHL_APPR_DEPT_REQUIRED');
890: Fnd_Msg_Pub.ADD;
891: END IF;
892:
893:
894: --Assign the returned value
908:
909: IF NVL(l_return_status, 'X') <> 'S'
910: THEN
911: Fnd_Message.SET_NAME('AHL','AHL_APPR_SP_CATEGORY_NOT_EXIST');
912: Fnd_Msg_Pub.ADD;
913: END IF;
914: END IF;
915: -- Id presents
916: IF p_x_space_rec.space_category_code IS NOT NULL AND
918: THEN
919: l_space_rec.space_category_code := p_x_space_rec.space_category_code;
920: ELSE
921: Fnd_Message.SET_NAME('AHL','AHL_APPR_SP_CATEGORY_NOT_EXIST');
922: Fnd_Msg_Pub.ADD;
923: END IF;
924: --
925: --SPACE_NAME
926: IF (p_x_space_rec.space_name = Fnd_Api.G_MISS_CHAR OR
927: p_x_space_rec.SPACE_NAME IS NULL)
928: THEN
929: -- missing required fields
930: Fnd_Message.set_name('AHL', 'AHL_APPR_SPACE_NAME_NOT_EXIST');
931: Fnd_Msg_Pub.ADD;
932: END IF;
933:
934: --Standard check to count messages
935: l_msg_count := Fnd_Msg_Pub.count_msg;
931: Fnd_Msg_Pub.ADD;
932: END IF;
933:
934: --Standard check to count messages
935: l_msg_count := Fnd_Msg_Pub.count_msg;
936:
937: IF l_msg_count > 0 THEN
938: X_msg_count := l_msg_count;
939: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
977: -- l_dummy would be populated with '1', otherwise,
978: -- it receives NULL.
979: IF l_dummy IS NOT NULL THEN
980: Fnd_Message.SET_NAME('AHL','AHL_APPR_SEQUENCE_NOT_EXISTS');
981: Fnd_Msg_Pub.ADD;
982: END IF;
983: -- For optional fields
984: IF p_x_space_rec.description = FND_API.G_MISS_CHAR
985: THEN
1101: END IF;
1102: END IF;
1103:
1104: --Standard check to count messages
1105: l_msg_count := Fnd_Msg_Pub.count_msg;
1106:
1107: IF l_msg_count > 0 THEN
1108: X_msg_count := l_msg_count;
1109: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1145:
1146: p_x_space_rec.space_id := l_space_id;
1147: ---------------------------End of Body---------------------------------------
1148: --Standard check to count messages
1149: l_msg_count := Fnd_Msg_Pub.count_msg;
1150:
1151: IF l_msg_count > 0 THEN
1152: X_msg_count := l_msg_count;
1153: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1167: EXCEPTION
1168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1169: ROLLBACK TO create_space;
1170: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1171: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1172: p_count => x_msg_count,
1173: p_data => x_msg_data);
1174: IF G_DEBUG='Y' THEN
1175: AHL_DEBUG_PUB.log_app_messages (
1180: END IF;
1181: WHEN FND_API.G_EXC_ERROR THEN
1182: ROLLBACK TO create_space;
1183: X_return_status := FND_API.G_RET_STS_ERROR;
1184: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1185: p_count => x_msg_count,
1186: p_data => X_msg_data);
1187: IF G_DEBUG='Y' THEN
1188: -- Debug info.
1194: END IF;
1195: WHEN OTHERS THEN
1196: ROLLBACK TO create_space;
1197: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1198: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1199: THEN
1200: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
1201: p_procedure_name => 'CREATE_SPACE',
1202: p_error_text => SUBSTR(SQLERRM,1,240));
1196: ROLLBACK TO create_space;
1197: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1198: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1199: THEN
1200: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
1201: p_procedure_name => 'CREATE_SPACE',
1202: p_error_text => SUBSTR(SQLERRM,1,240));
1203: END IF;
1204: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1200: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
1201: p_procedure_name => 'CREATE_SPACE',
1202: p_error_text => SUBSTR(SQLERRM,1,240));
1203: END IF;
1204: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1205: p_count => x_msg_count,
1206: p_data => X_msg_data);
1207: IF G_DEBUG='Y' THEN
1208: -- Debug info.
1278: END IF;
1279: -- Standard call to check for call compatibility.
1280: IF FND_API.to_boolean(p_init_msg_list)
1281: THEN
1282: FND_MSG_PUB.initialize;
1283: END IF;
1284: -- Initialize API return status to success
1285: x_return_status := FND_API.G_RET_STS_SUCCESS;
1286: -- Initialize message list if p_init_msg_list is set to TRUE.
1323: IF NVL(l_return_status,'x') <> 'S'
1324: THEN
1325: Fnd_Message.SET_NAME('AHL','AHL_APPR_SPACE_NOT_EXISTS');
1326: Fnd_Message.SET_TOKEN('SPACEID',l_space_rec.space_name);
1327: Fnd_Msg_Pub.ADD;
1328: END IF;
1329: ELSE
1330: Fnd_Message.SET_NAME('AHL','AHL_APPR_SPACE_ID_NOT_EXIST');
1331: Fnd_Msg_Pub.ADD;
1327: Fnd_Msg_Pub.ADD;
1328: END IF;
1329: ELSE
1330: Fnd_Message.SET_NAME('AHL','AHL_APPR_SPACE_ID_NOT_EXIST');
1331: Fnd_Msg_Pub.ADD;
1332: RAISE Fnd_Api.G_EXC_ERROR;
1333: END IF;
1334:
1335: --Assign the returned value
1339: IF (l_space_rec.space_name IS NULL OR
1340: l_space_rec.space_name = fnd_api.g_miss_char)
1341: THEN
1342: Fnd_Message.set_name('AHL', 'AHL_APPR_SPACE_NAME_NOT_EXIST');
1343: Fnd_Msg_Pub.ADD;
1344: RAISE Fnd_Api.G_EXC_ERROR;
1345: END IF;
1346:
1347: --For Space Category
1358:
1359: IF NVL(l_return_status, 'X') <> 'S'
1360: THEN
1361: Fnd_Message.SET_NAME('AHL','AHL_APPR_SP_CATEGORY_NOT_EXIST');
1362: Fnd_Msg_Pub.ADD;
1363: END IF;
1364: END IF;
1365: -- Id presents
1366: IF l_space_rec.space_category_code IS NOT NULL AND
1383:
1384: IF NVL(l_return_status, 'X') <> 'S'
1385: THEN
1386: Fnd_Message.SET_NAME('AHL','AHL_APPR_SP_STATUS_NOT_EXIST');
1387: Fnd_Msg_Pub.ADD;
1388: END IF;
1389: END IF;
1390: -- Id presents
1391: IF p_space_rec.inactive_flag_code IS NOT NULL AND
1410: x_msg_count => l_msg_count,
1411: x_msg_data => l_msg_data );
1412:
1413: --Standard check to count messages
1414: l_msg_count := Fnd_Msg_Pub.count_msg;
1415:
1416: IF l_msg_count > 0 THEN
1417: X_msg_count := l_msg_count;
1418: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1455:
1456:
1457: ---------------------------End of Body---------------------------------------
1458: --Standard check to count messages
1459: l_msg_count := Fnd_Msg_Pub.count_msg;
1460:
1461: IF l_msg_count > 0 THEN
1462: X_msg_count := l_msg_count;
1463: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1477: EXCEPTION
1478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1479: ROLLBACK TO update_space;
1480: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1481: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1482: p_count => x_msg_count,
1483: p_data => x_msg_data);
1484: IF G_DEBUG='Y' THEN
1485: AHL_DEBUG_PUB.log_app_messages (
1490: END IF;
1491: WHEN FND_API.G_EXC_ERROR THEN
1492: ROLLBACK TO update_space;
1493: X_return_status := FND_API.G_RET_STS_ERROR;
1494: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1495: p_count => x_msg_count,
1496: p_data => X_msg_data);
1497: -- Debug info.
1498: IF G_DEBUG='Y' THEN
1504: END IF;
1505: WHEN OTHERS THEN
1506: ROLLBACK TO update_space;
1507: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1508: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1509: THEN
1510: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
1511: p_procedure_name => 'UPDATE_SPACE',
1512: p_error_text => SUBSTR(SQLERRM,1,240));
1506: ROLLBACK TO update_space;
1507: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1508: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1509: THEN
1510: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
1511: p_procedure_name => 'UPDATE_SPACE',
1512: p_error_text => SUBSTR(SQLERRM,1,240));
1513: END IF;
1514: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1510: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
1511: p_procedure_name => 'UPDATE_SPACE',
1512: p_error_text => SUBSTR(SQLERRM,1,240));
1513: END IF;
1514: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1515: p_count => x_msg_count,
1516: p_data => X_msg_data);
1517:
1518: -- Debug info.
1597: END IF;
1598: -- Standard call to check for call compatibility.
1599: IF FND_API.to_boolean(p_init_msg_list)
1600: THEN
1601: FND_MSG_PUB.initialize;
1602: END IF;
1603: -- Initialize API return status to success
1604: x_return_status := FND_API.G_RET_STS_SUCCESS;
1605: -- Initialize message list if p_init_msg_list is set to TRUE.
1614: OPEN c_space_cur(p_space_rec.space_id);
1615: FETCH c_space_cur INTO l_space_id,
1616: l_object_version_number;
1617: IF c_space_cur%NOTFOUND THEN
1618: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1619: FND_MESSAGE.set_name('AHL', 'AHL_APPR_RECORD_NOT_FOUND');
1620: FND_MSG_PUB.add;
1621: END IF;
1622: CLOSE c_space_cur;
1616: l_object_version_number;
1617: IF c_space_cur%NOTFOUND THEN
1618: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1619: FND_MESSAGE.set_name('AHL', 'AHL_APPR_RECORD_NOT_FOUND');
1620: FND_MSG_PUB.add;
1621: END IF;
1622: CLOSE c_space_cur;
1623: RAISE FND_API.g_exc_error;
1624: END IF;
1626: --Check for object version number
1627: IF l_object_version_number <> p_space_rec.object_version_number
1628: THEN
1629: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1630: FND_MSG_PUB.add;
1631: RAISE FND_API.g_exc_error;
1632: END IF;
1633: --Ckeck for any visits assigned
1634: OPEN c_space_visit_cur(l_space_id);
1642: CLOSE get_status_cur;
1643: --
1644: IF l_visit_status_code <> 'CLOSED' THEN
1645: FND_MESSAGE.set_name('AHL', 'AHL_APPR_SP_VISITS_ASSIGNED');
1646: FND_MSG_PUB.add;
1647: RAISE Fnd_Api.G_EXC_ERROR;
1648: ELSE
1649: UPDATE AHL_SPACES_B
1650: SET INACTIVE_FLAG = 'N'
1654: END LOOP;
1655: CLOSE c_space_visit_cur;
1656: --
1657: --Standard check to count messages
1658: l_msg_count := Fnd_Msg_Pub.count_msg;
1659:
1660: IF l_msg_count > 0 THEN
1661: X_msg_count := l_msg_count;
1662: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1674:
1675: END IF;
1676: ---------------------------End of Body---------------------------------------
1677: --Standard check to count messages
1678: l_msg_count := Fnd_Msg_Pub.count_msg;
1679:
1680: IF l_msg_count > 0 THEN
1681: X_msg_count := l_msg_count;
1682: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1697: EXCEPTION
1698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1699: ROLLBACK TO delete_space;
1700: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1701: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1702: p_count => x_msg_count,
1703: p_data => x_msg_data);
1704: IF G_DEBUG='Y' THEN
1705: AHL_DEBUG_PUB.log_app_messages (
1710: END IF;
1711: WHEN FND_API.G_EXC_ERROR THEN
1712: ROLLBACK TO delete_space;
1713: X_return_status := FND_API.G_RET_STS_ERROR;
1714: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1715: p_count => x_msg_count,
1716: p_data => X_msg_data);
1717: -- Debug info.
1718: IF G_DEBUG='Y' THEN
1724: END IF;
1725: WHEN OTHERS THEN
1726: ROLLBACK TO delete_space;
1727: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1728: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1729: THEN
1730: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
1731: p_procedure_name => 'DELETE_SPACE',
1732: p_error_text => SUBSTR(SQLERRM,1,240));
1726: ROLLBACK TO delete_space;
1727: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1728: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1729: THEN
1730: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
1731: p_procedure_name => 'DELETE_SPACE',
1732: p_error_text => SUBSTR(SQLERRM,1,240));
1733: END IF;
1734: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1730: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
1731: p_procedure_name => 'DELETE_SPACE',
1732: p_error_text => SUBSTR(SQLERRM,1,240));
1733: END IF;
1734: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1735: p_count => x_msg_count,
1736: p_data => X_msg_data);
1737:
1738: -- Debug info.
1883: x_space_capbl_rec := p_space_capbl_rec;
1884: OPEN c_space_capbl_rec;
1885: FETCH c_space_capbl_rec INTO l_space_capbl_rec;
1886: IF c_space_capbl_rec%NOTFOUND THEN
1887: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1888: FND_MESSAGE.set_name('AHL', 'AHL_APPR_RECORD_NOT_FOUND');
1889: FND_MSG_PUB.add;
1890: RAISE Fnd_Api.G_EXC_ERROR;
1891: END IF;
1885: FETCH c_space_capbl_rec INTO l_space_capbl_rec;
1886: IF c_space_capbl_rec%NOTFOUND THEN
1887: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1888: FND_MESSAGE.set_name('AHL', 'AHL_APPR_RECORD_NOT_FOUND');
1889: FND_MSG_PUB.add;
1890: RAISE Fnd_Api.G_EXC_ERROR;
1891: END IF;
1892: END IF;
1893: CLOSE c_space_capbl_rec;
1905: --Check for object version number
1906: IF (l_space_capbl_rec.object_version_number <> p_space_capbl_rec.object_version_number)
1907: THEN
1908: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1909: Fnd_Msg_Pub.ADD;
1910: RAISE Fnd_Api.G_EXC_ERROR;
1911: END IF;
1912: -- SPACE ID
1913: IF p_space_capbl_rec.space_id <> FND_API.g_miss_num THEN
2049: IF (p_space_capbl_rec.ORGANIZATION_ID IS NULL OR
2050: p_space_capbl_rec.ORGANIZATION_ID = Fnd_Api.G_MISS_NUM )
2051: THEN
2052: -- missing required fields
2053: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
2054: THEN
2055: Fnd_Message.set_name('AHL', 'AHL_APPR_ORG_ID_NOT_EXISTS');
2056: Fnd_Msg_Pub.ADD;
2057: END IF;
2052: -- missing required fields
2053: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
2054: THEN
2055: Fnd_Message.set_name('AHL', 'AHL_APPR_ORG_ID_NOT_EXISTS');
2056: Fnd_Msg_Pub.ADD;
2057: END IF;
2058: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2059: END IF;
2060: -- SPACE_ID
2061: IF (p_space_capbl_rec.SPACE_ID = Fnd_Api.G_MISS_NUM OR
2062: p_space_capbl_rec.SPACE_ID IS NULL)
2063: THEN
2064: -- missing required fields
2065: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
2066: THEN
2067: Fnd_Message.set_name('AHL', 'AHL_APPR_DEPT_ID_NOT_EXIST');
2068: Fnd_Msg_Pub.ADD;
2069: END IF;
2064: -- missing required fields
2065: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
2066: THEN
2067: Fnd_Message.set_name('AHL', 'AHL_APPR_DEPT_ID_NOT_EXIST');
2068: Fnd_Msg_Pub.ADD;
2069: END IF;
2070: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2071: END IF;
2072: --VISIT TYPE
2073: IF (p_space_capbl_rec.VISIT_TYPE_CODE = Fnd_Api.G_MISS_CHAR OR
2074: p_space_capbl_rec.VISIT_TYPE_CODE IS NULL)
2075: THEN
2076: -- missing required fields
2077: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
2078: THEN
2079: Fnd_Message.set_name('AHL', 'AHL_APPR_VISIT_TYPE_NOT_EXIST');
2080: Fnd_Msg_Pub.ADD;
2081: END IF;
2076: -- missing required fields
2077: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
2078: THEN
2079: Fnd_Message.set_name('AHL', 'AHL_APPR_VISIT_TYPE_NOT_EXIST');
2080: Fnd_Msg_Pub.ADD;
2081: END IF;
2082: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2083: END IF;
2084:
2086: IF (p_space_capbl_rec.INVENTORY_ITEM_ID = Fnd_Api.G_MISS_NUM OR
2087: p_space_capbl_rec.INVENTORY_ITEM_ID IS NULL)
2088: THEN
2089: -- missing required fields
2090: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
2091: THEN
2092: Fnd_Message.set_name('AHL', 'AHL_APPR_INV_ITEM_NOT_EXIST');
2093: Fnd_Msg_Pub.ADD;
2094: END IF;
2089: -- missing required fields
2090: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
2091: THEN
2092: Fnd_Message.set_name('AHL', 'AHL_APPR_INV_ITEM_NOT_EXIST');
2093: Fnd_Msg_Pub.ADD;
2094: END IF;
2095: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2096: END IF;
2097:
2104: 'visit_type = ' || p_space_capbl_rec.visit_type_code ||
2105: ''' AND inventory_item_id = ''' || p_space_capbl_rec.inventory_item_id
2106: ) = Fnd_Api.g_false
2107: THEN
2108: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error)
2109: THEN
2110: Fnd_Message.set_name('AHL', 'AHL_APPR_SPACE_CAPBL_DUPL_ID');
2111: Fnd_Msg_Pub.ADD;
2112: END IF;
2107: THEN
2108: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error)
2109: THEN
2110: Fnd_Message.set_name('AHL', 'AHL_APPR_SPACE_CAPBL_DUPL_ID');
2111: Fnd_Msg_Pub.ADD;
2112: END IF;
2113: x_return_status := Fnd_Api.g_ret_sts_error;
2114: END IF;
2115: END IF; */
2131: p_space_capbl_rec.space_id);
2132: FETCH check_unique_cur INTO l_dummy;
2133: IF l_dummy is NOT NULL THEN
2134: Fnd_Message.set_name('AHL', 'AHL_APPR_SPACE_CAPBL_DUPL_ID');
2135: Fnd_Msg_Pub.ADD;
2136: END IF;
2137: x_return_status := Fnd_Api.g_ret_sts_error;
2138: END IF;
2139: END IF;
2201: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2202: END IF;
2203: -- Initialize message list if p_init_msg_list is set to TRUE.
2204: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
2205: Fnd_Msg_Pub.initialize;
2206: END IF;
2207: -- Initialize API return status to success
2208: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2209: --
2245: --
2246: -- END of API body.
2247: --
2248: -------------------- finish --------------------------
2249: Fnd_Msg_Pub.count_and_get(
2250: p_encoded => Fnd_Api.g_false,
2251: p_count => x_msg_count,
2252: p_data => x_msg_data);
2253: EXCEPTION
2252: p_data => x_msg_data);
2253: EXCEPTION
2254: WHEN Fnd_Api.G_EXC_ERROR THEN
2255: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
2256: Fnd_Msg_Pub.Count_AND_Get
2257: ( p_count => x_msg_count,
2258: p_data => x_msg_data,
2259: p_encoded => Fnd_Api.G_FALSE
2260: );
2259: p_encoded => Fnd_Api.G_FALSE
2260: );
2261: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2262: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
2263: Fnd_Msg_Pub.Count_AND_Get
2264: ( p_count => x_msg_count,
2265: p_data => x_msg_data,
2266: p_encoded => Fnd_Api.G_FALSE
2267: );
2266: p_encoded => Fnd_Api.G_FALSE
2267: );
2268: WHEN OTHERS THEN
2269: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
2270: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
2271: THEN
2272: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2273: END IF;
2274: Fnd_Msg_Pub.Count_AND_Get
2268: WHEN OTHERS THEN
2269: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
2270: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
2271: THEN
2272: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2273: END IF;
2274: Fnd_Msg_Pub.Count_AND_Get
2275: ( p_count => x_msg_count,
2276: p_data => x_msg_data,
2270: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
2271: THEN
2272: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2273: END IF;
2274: Fnd_Msg_Pub.Count_AND_Get
2275: ( p_count => x_msg_count,
2276: p_data => x_msg_data,
2277: p_encoded => Fnd_Api.G_FALSE
2278: );
2349: END IF;
2350: -- Standard call to check for call compatibility.
2351: IF FND_API.to_boolean(p_init_msg_list)
2352: THEN
2353: FND_MSG_PUB.initialize;
2354: END IF;
2355: -- Initialize API return status to success
2356: x_return_status := FND_API.G_RET_STS_SUCCESS;
2357: -- Initialize message list if p_init_msg_list is set to TRUE.
2394: IF NVL(l_return_status,'x') <> 'S'
2395: THEN
2396: Fnd_Message.SET_NAME('AHL','AHL_APPR_SPACE_NOT_EXISTS');
2397: Fnd_Message.SET_TOKEN('ORGID',p_x_space_capblts_rec.space_name);
2398: Fnd_Msg_Pub.ADD;
2399: END IF;
2400: END IF;
2401: --Assign the returned value
2402: p_x_space_capblts_rec.space_id := l_space_id;
2417: IF NVL(l_return_status,'x') <> 'S'
2418: THEN
2419: Fnd_Message.SET_NAME('AHL','AHL_APPR_ORG_NT_EXISTS');
2420: Fnd_Message.SET_TOKEN('ORGID',p_x_space_capblts_rec.org_name);
2421: Fnd_Msg_Pub.ADD;
2422: END IF;
2423: END IF;
2424: --Assign the returned value
2425: p_x_space_capblts_rec.organization_id := l_organization_id;
2456: IF NVL(l_return_status,'x') <> 'S'
2457: THEN
2458: Fnd_Message.SET_NAME('AHL','AHL_APPR_ITEM_NOT_EXISTS');
2459: Fnd_Message.SET_TOKEN('ITEM',p_x_space_capblts_rec.item_description);
2460: Fnd_Msg_Pub.ADD;
2461: END IF;
2462: --Assign the returned value
2463: p_x_space_capblts_rec.inventory_item_id := l_inventory_item_id;
2464:
2486: IF NVL(l_return_status, 'X') <> 'S'
2487: THEN
2488: Fnd_Message.SET_NAME('AHL','AHL_APPR_VISIT_TYPE_NOT_EXISTS');
2489: Fnd_Message.SET_TOKEN('VISIT',p_x_space_capblts_rec.visit_type_mean);
2490: Fnd_Msg_Pub.ADD;
2491: END IF;
2492: -- END IF;
2493: -- Id presents
2494: ELSIF p_x_space_capblts_rec.visit_type_code IS NOT NULL AND
2496: THEN
2497: l_space_capblts_rec.visit_type_code := p_x_space_capblts_rec.visit_type_code;
2498: ELSE
2499: Fnd_Message.SET_NAME('AHL','AHL_APPR_VISIT_TYPE_NOT_EXIST');
2500: Fnd_Msg_Pub.ADD;
2501: END IF;
2502: -- Assign return value
2503: p_x_space_capblts_rec.visit_type_code := l_space_capblts_rec.visit_type_code;
2504:
2509:
2510: END IF;
2511:
2512: --Standard check to count messages
2513: l_msg_count := Fnd_Msg_Pub.count_msg;
2514:
2515: IF l_msg_count > 0 THEN
2516: X_msg_count := l_msg_count;
2517: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2561: -- l_dummy would be populated with '1', otherwise,
2562: -- it receives NULL.
2563: IF l_dummy IS NOT NULL THEN
2564: Fnd_Message.SET_NAME('AHL','AHL_APPR_SEQUENCE_NOT_EXISTS');
2565: Fnd_Msg_Pub.ADD;
2566: END IF;
2567: -- For optional fields
2568: --
2569: IF p_x_space_capblts_rec.attribute_category = FND_API.G_MISS_CHAR
2679: END IF;
2680: END IF;
2681:
2682: --Standard check to count messages
2683: l_msg_count := Fnd_Msg_Pub.count_msg;
2684:
2685: IF l_msg_count > 0 THEN
2686: X_msg_count := l_msg_count;
2687: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2754:
2755: p_x_space_capblts_rec.space_capability_id := l_space_capability_id;
2756: ---------------------------End of Body---------------------------------------
2757: --Standard check to count messages
2758: l_msg_count := Fnd_Msg_Pub.count_msg;
2759:
2760: IF l_msg_count > 0 THEN
2761: X_msg_count := l_msg_count;
2762: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2777: EXCEPTION
2778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2779: ROLLBACK TO create_space_capblts;
2780: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2781: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2782: p_count => x_msg_count,
2783: p_data => x_msg_data);
2784:
2785: IF G_DEBUG='Y' THEN
2791: END IF;
2792: WHEN FND_API.G_EXC_ERROR THEN
2793: ROLLBACK TO create_space_capblts;
2794: X_return_status := FND_API.G_RET_STS_ERROR;
2795: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2796: p_count => x_msg_count,
2797: p_data => X_msg_data);
2798: -- Debug info.
2799: IF G_DEBUG='Y' THEN
2806:
2807: WHEN OTHERS THEN
2808: ROLLBACK TO create_space_capblts;
2809: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2810: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2811: THEN
2812: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
2813: p_procedure_name => 'CREATE_SPACE_CAPBLTS',
2814: p_error_text => SUBSTR(SQLERRM,1,240));
2808: ROLLBACK TO create_space_capblts;
2809: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2810: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2811: THEN
2812: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
2813: p_procedure_name => 'CREATE_SPACE_CAPBLTS',
2814: p_error_text => SUBSTR(SQLERRM,1,240));
2815: END IF;
2816: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2812: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
2813: p_procedure_name => 'CREATE_SPACE_CAPBLTS',
2814: p_error_text => SUBSTR(SQLERRM,1,240));
2815: END IF;
2816: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2817: p_count => x_msg_count,
2818: p_data => X_msg_data);
2819:
2820: -- Debug info.
2888: END IF;
2889: -- Standard call to check for call compatibility.
2890: IF FND_API.to_boolean(p_init_msg_list)
2891: THEN
2892: FND_MSG_PUB.initialize;
2893: END IF;
2894: -- Initialize API return status to success
2895: x_return_status := FND_API.G_RET_STS_SUCCESS;
2896: -- Initialize message list if p_init_msg_list is set to TRUE.
2938: IF NVL(l_return_status,'x') <> 'S'
2939: THEN
2940: Fnd_Message.SET_NAME('AHL','AHL_APPR_ORG_NT_EXISTS');
2941: Fnd_Message.SET_TOKEN('ORGID',p_space_capblts_rec.org_name);
2942: Fnd_Msg_Pub.ADD;
2943: END IF;
2944: END IF;
2945: --Assign the returned value
2946: l_space_capblts_rec.organization_id := l_organization_id;
2962: IF NVL(l_return_status,'x') <> 'S'
2963: THEN
2964: Fnd_Message.SET_NAME('AHL','AHL_APPR_SPACE_NOT_EXISTS');
2965: Fnd_Message.SET_TOKEN('SPACEID',p_space_capblts_rec.space_name);
2966: Fnd_Msg_Pub.ADD;
2967: END IF;
2968: END IF;
2969: --Assign the returned value
2970: l_space_capblts_rec.space_id := l_space_id;
2995: IF NVL(l_return_status,'x') <> 'S'
2996: THEN
2997: Fnd_Message.SET_NAME('AHL','AHL_APPR_ITEM_NOT_EXISTS');
2998: Fnd_Message.SET_TOKEN('DEPTID',p_space_capblts_rec.item_description);
2999: Fnd_Msg_Pub.ADD;
3000: END IF;
3001: END IF;
3002: --Assign the returned value
3003: l_space_capblts_rec.inventory_item_id := l_inventory_item_id;
3016:
3017: IF NVL(l_return_status, 'X') <> 'S'
3018: THEN
3019: Fnd_Message.SET_NAME('AHL','AHL_APPR_VISIT_TYPE_NOT_EXIST');
3020: Fnd_Msg_Pub.ADD;
3021: END IF;
3022: END IF;
3023: -- Id presents
3024: IF p_space_capblts_rec.visit_type_code IS NOT NULL AND
3026: THEN
3027: l_space_capblts_rec.visit_type_code := p_space_capblts_rec.visit_type_code;
3028: ELSE
3029: Fnd_Message.SET_NAME('AHL','AHL_APPR_VISIT_TYPE_NOT_EXIST');
3030: Fnd_Msg_Pub.ADD;
3031: END IF;
3032:
3033:
3034: --------------------------------Validation ---------------------------
3079:
3080:
3081: ---------------------------End of Body---------------------------------------
3082: --Standard check to count messages
3083: l_msg_count := Fnd_Msg_Pub.count_msg;
3084:
3085: IF l_msg_count > 0 THEN
3086: X_msg_count := l_msg_count;
3087: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3102: EXCEPTION
3103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3104: ROLLBACK TO update_space_capblts;
3105: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3106: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3107: p_count => x_msg_count,
3108: p_data => x_msg_data);
3109:
3110: IF G_DEBUG='Y' THEN
3117:
3118: WHEN FND_API.G_EXC_ERROR THEN
3119: ROLLBACK TO update_space_capblts;
3120: X_return_status := FND_API.G_RET_STS_ERROR;
3121: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3122: p_count => x_msg_count,
3123: p_data => X_msg_data);
3124: -- Debug info.
3125: IF G_DEBUG='Y' THEN
3132:
3133: WHEN OTHERS THEN
3134: ROLLBACK TO update_space_capblts;
3135: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3136: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3137: THEN
3138: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
3139: p_procedure_name => 'UPDATE_SPACE_CAPBLTS',
3140: p_error_text => SUBSTR(SQLERRM,1,240));
3134: ROLLBACK TO update_space_capblts;
3135: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3136: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3137: THEN
3138: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
3139: p_procedure_name => 'UPDATE_SPACE_CAPBLTS',
3140: p_error_text => SUBSTR(SQLERRM,1,240));
3141: END IF;
3142: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3138: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
3139: p_procedure_name => 'UPDATE_SPACE_CAPBLTS',
3140: p_error_text => SUBSTR(SQLERRM,1,240));
3141: END IF;
3142: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3143: p_count => x_msg_count,
3144: p_data => X_msg_data);
3145:
3146: -- Debug info.
3232: END IF;
3233: -- Standard call to check for call compatibility.
3234: IF FND_API.to_boolean(p_init_msg_list)
3235: THEN
3236: FND_MSG_PUB.initialize;
3237: END IF;
3238: -- Initialize API return status to success
3239: x_return_status := FND_API.G_RET_STS_SUCCESS;
3240: -- Initialize message list if p_init_msg_list is set to TRUE.
3250: FETCH c_space_capb_cur INTO l_space_capability_id,
3251: l_object_version_number,l_visit_type,
3252: l_inventory_item_id;
3253: IF c_space_capb_cur%NOTFOUND THEN
3254: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3255: FND_MESSAGE.set_name('AHL', 'AHL_APPR_RECORD_NOT_FOUND');
3256: FND_MSG_PUB.add;
3257: END IF;
3258: CLOSE c_space_capb_cur;
3252: l_inventory_item_id;
3253: IF c_space_capb_cur%NOTFOUND THEN
3254: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3255: FND_MESSAGE.set_name('AHL', 'AHL_APPR_RECORD_NOT_FOUND');
3256: FND_MSG_PUB.add;
3257: END IF;
3258: CLOSE c_space_capb_cur;
3259: RAISE FND_API.g_exc_error;
3260: END IF;
3263: --Check for object version number
3264: IF l_object_version_number <> p_space_capblts_rec.object_version_number
3265: THEN
3266: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
3267: FND_MSG_PUB.add;
3268: RAISE FND_API.g_exc_error;
3269: END IF;
3270: -- Check for space assignment exists, If so any visit has same capability
3271: OPEN space_assign_cur(p_space_capblts_rec.space_id);
3276: OPEN check_space_capb_cur(l_visit_id,l_visit_type,l_inventory_item_id);
3277: FETCH check_space_capb_cur INTO l_dummy;
3278: IF check_space_capb_cur%FOUND THEN
3279: FND_MESSAGE.set_name('AHL', 'AHL_CAPBL_ASIGN_TO_VIIST');
3280: FND_MSG_PUB.add;
3281: CLOSE check_space_capb_cur;
3282: RAISE FND_API.g_exc_error;
3283: END IF;
3284: CLOSE check_space_capb_cur;
3296: WHERE SPACE_CAPABILITY_ID = l_space_capability_id;
3297:
3298: ---------------------------End of Body---------------------------------------
3299: --Standard check to count messages
3300: l_msg_count := Fnd_Msg_Pub.count_msg;
3301:
3302: IF l_msg_count > 0 THEN
3303: X_msg_count := l_msg_count;
3304: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3319: EXCEPTION
3320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3321: ROLLBACK TO delete_space_capblts;
3322: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3323: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3324: p_count => x_msg_count,
3325: p_data => x_msg_data);
3326: IF G_DEBUG='Y' THEN
3327: AHL_DEBUG_PUB.log_app_messages (
3332: END IF;
3333: WHEN FND_API.G_EXC_ERROR THEN
3334: ROLLBACK TO delete_space_capblts;
3335: X_return_status := FND_API.G_RET_STS_ERROR;
3336: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3337: p_count => x_msg_count,
3338: p_data => X_msg_data);
3339: IF G_DEBUG='Y' THEN
3340: -- Debug info.
3346: END IF;
3347: WHEN OTHERS THEN
3348: ROLLBACK TO delete_space_capblts;
3349: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3350: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3351: THEN
3352: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
3353: p_procedure_name => 'DELETE_SPACE_CAPBLTS',
3354: p_error_text => SUBSTR(SQLERRM,1,240));
3348: ROLLBACK TO delete_space_capblts;
3349: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3350: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3351: THEN
3352: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
3353: p_procedure_name => 'DELETE_SPACE_CAPBLTS',
3354: p_error_text => SUBSTR(SQLERRM,1,240));
3355: END IF;
3356: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3352: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_SPACE_CAPB_PVT',
3353: p_procedure_name => 'DELETE_SPACE_CAPBLTS',
3354: p_error_text => SUBSTR(SQLERRM,1,240));
3355: END IF;
3356: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3357: p_count => x_msg_count,
3358: p_data => X_msg_data);
3359:
3360: IF G_DEBUG='Y' THEN