108: -- Parameters :
109: --
110: -- Standard IN Parameters :
111: -- p_api_version IN NUMBER Required
112: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
113: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
114: --
115: -- Standard OUT Parameters :
116: -- x_return_status OUT VARCHAR2 Required
109: --
110: -- Standard IN Parameters :
111: -- p_api_version IN NUMBER Required
112: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
113: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
114: --
115: -- Standard OUT Parameters :
116: -- x_return_status OUT VARCHAR2 Required
117: -- x_msg_count OUT NUMBER Required
118: -- x_msg_data OUT VARCHAR2 Required
119: --------------------------------------------------------------------------------------------------------------------
120: PROCEDURE Create_Oper_Visit (
121: p_api_version IN NUMBER := 1.0,
122: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
123: p_commit IN VARCHAR2 := FND_API.G_FALSE,
124: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
125: x_return_status OUT NOCOPY VARCHAR2,
126: x_msg_count OUT NOCOPY NUMBER,
119: --------------------------------------------------------------------------------------------------------------------
120: PROCEDURE Create_Oper_Visit (
121: p_api_version IN NUMBER := 1.0,
122: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
123: p_commit IN VARCHAR2 := FND_API.G_FALSE,
124: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
125: x_return_status OUT NOCOPY VARCHAR2,
126: x_msg_count OUT NOCOPY NUMBER,
127: x_msg_data OUT NOCOPY VARCHAR2)IS
120: PROCEDURE Create_Oper_Visit (
121: p_api_version IN NUMBER := 1.0,
122: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
123: p_commit IN VARCHAR2 := FND_API.G_FALSE,
124: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
125: x_return_status OUT NOCOPY VARCHAR2,
126: x_msg_count OUT NOCOPY NUMBER,
127: x_msg_data OUT NOCOPY VARCHAR2)IS
128:
295: SAVEPOINT Create_Oper_Visit_pvt;
296:
297: -- Initialize message list if p_init_msg_list is set to TRUE
298:
299: IF FND_API.To_Boolean( p_init_msg_list) THEN
300: FND_MSG_PUB.Initialize;
301: END IF;
302:
303: -- Initialize API return status to success
300: FND_MSG_PUB.Initialize;
301: END IF;
302:
303: -- Initialize API return status to success
304: x_return_status := FND_API.G_RET_STS_SUCCESS;
305:
306: -- Standard call to check for call compatibility.
307: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
308: p_api_version,
303: -- Initialize API return status to success
304: x_return_status := FND_API.G_RET_STS_SUCCESS;
305:
306: -- Standard call to check for call compatibility.
307: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
308: p_api_version,
309: l_api_name,G_PKG_NAME)
310: THEN
311: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
307: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
308: p_api_version,
309: l_api_name,G_PKG_NAME)
310: THEN
311: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
312: END IF;
313:
314: -- Added for logging visit numbers :: SATRAJEN
315: fnd_file.put_line(fnd_file.log, 'List of Operational Visit Numbers created ');
1207: ---------------------------End of Body-------------------------------------
1208: -- END of API body.
1209: -- Standard check of p_commit.
1210:
1211: IF Fnd_Api.To_Boolean (p_commit) THEN
1212: COMMIT WORK;
1213: END IF;
1214:
1215: Fnd_Msg_Pub.count_and_get(
1212: COMMIT WORK;
1213: END IF;
1214:
1215: Fnd_Msg_Pub.count_and_get(
1216: p_encoded => Fnd_Api.g_false,
1217: p_count => x_msg_count,
1218: p_data => x_msg_data
1219: );
1220:
1225: END IF;
1226:
1227: EXCEPTION
1228:
1229: WHEN FND_API.G_EXC_ERROR THEN
1230:
1231: x_return_status := FND_API.G_RET_STS_ERROR;
1232: ROLLBACK TO Create_Oper_Visit_pvt;
1233: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1227: EXCEPTION
1228:
1229: WHEN FND_API.G_EXC_ERROR THEN
1230:
1231: x_return_status := FND_API.G_RET_STS_ERROR;
1232: ROLLBACK TO Create_Oper_Visit_pvt;
1233: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1234: p_data => x_msg_data,
1235: p_encoded => fnd_api.g_false);
1231: x_return_status := FND_API.G_RET_STS_ERROR;
1232: ROLLBACK TO Create_Oper_Visit_pvt;
1233: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1234: p_data => x_msg_data,
1235: p_encoded => fnd_api.g_false);
1236:
1237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1239: ROLLBACK TO Create_Oper_Visit_pvt;
1233: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1234: p_data => x_msg_data,
1235: p_encoded => fnd_api.g_false);
1236:
1237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1239: ROLLBACK TO Create_Oper_Visit_pvt;
1240: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1241: p_data => x_msg_data,
1234: p_data => x_msg_data,
1235: p_encoded => fnd_api.g_false);
1236:
1237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1239: ROLLBACK TO Create_Oper_Visit_pvt;
1240: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1241: p_data => x_msg_data,
1242: p_encoded => fnd_api.g_false);
1238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1239: ROLLBACK TO Create_Oper_Visit_pvt;
1240: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1241: p_data => x_msg_data,
1242: p_encoded => fnd_api.g_false);
1243:
1244: WHEN OTHERS THEN
1245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1246: ROLLBACK TO Create_Oper_Visit_pvt;
1241: p_data => x_msg_data,
1242: p_encoded => fnd_api.g_false);
1243:
1244: WHEN OTHERS THEN
1245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1246: ROLLBACK TO Create_Oper_Visit_pvt;
1247:
1248: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1249: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1252: END IF;
1253:
1254: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1255: p_data => x_msg_data,
1256: p_encoded => fnd_api.g_false);
1257: END Create_Oper_Visit;
1258:
1259: ---------------------------------------------------------------------------------------
1260: -- PROCEDURE
1449: -- Parameters :
1450: --
1451: -- Standard IN Parameters :
1452: -- p_api_version IN NUMBER Required
1453: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1454: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1455: --
1456: -- Standard OUT Parameters :
1457: -- x_return_status OUT VARCHAR2 Required
1450: --
1451: -- Standard IN Parameters :
1452: -- p_api_version IN NUMBER Required
1453: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1454: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1455: --
1456: -- Standard OUT Parameters :
1457: -- x_return_status OUT VARCHAR2 Required
1458: -- x_msg_count OUT NUMBER Required
1459: -- x_msg_data OUT VARCHAR2 Required
1460: --------------------------------------------------------------------------------------------------------------------
1461: PROCEDURE Update_Oper_Visit (
1462: p_api_version IN NUMBER := 1.0,
1463: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1464: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1465: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1466: x_return_status OUT NOCOPY VARCHAR2,
1467: x_msg_count OUT NOCOPY NUMBER,
1460: --------------------------------------------------------------------------------------------------------------------
1461: PROCEDURE Update_Oper_Visit (
1462: p_api_version IN NUMBER := 1.0,
1463: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1464: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1465: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1466: x_return_status OUT NOCOPY VARCHAR2,
1467: x_msg_count OUT NOCOPY NUMBER,
1468: x_msg_data OUT NOCOPY VARCHAR2)IS
1461: PROCEDURE Update_Oper_Visit (
1462: p_api_version IN NUMBER := 1.0,
1463: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1464: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1465: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1466: x_return_status OUT NOCOPY VARCHAR2,
1467: x_msg_count OUT NOCOPY NUMBER,
1468: x_msg_data OUT NOCOPY VARCHAR2)IS
1469:
1706: SAVEPOINT Update_Oper_Visit_pvt;
1707:
1708: -- Initialize message list if p_init_msg_list is set to TRUE
1709:
1710: IF FND_API.To_Boolean( p_init_msg_list) THEN
1711: FND_MSG_PUB.Initialize;
1712: END IF;
1713:
1714: -- Initialize API return status to success
1711: FND_MSG_PUB.Initialize;
1712: END IF;
1713:
1714: -- Initialize API return status to success
1715: x_return_status := FND_API.G_RET_STS_SUCCESS;
1716:
1717: -- Standard call to check for call compatibility.
1718: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1719: p_api_version,
1714: -- Initialize API return status to success
1715: x_return_status := FND_API.G_RET_STS_SUCCESS;
1716:
1717: -- Standard call to check for call compatibility.
1718: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1719: p_api_version,
1720: l_api_name,G_PKG_NAME)
1721: THEN
1722: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1718: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1719: p_api_version,
1720: l_api_name,G_PKG_NAME)
1721: THEN
1722: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1723: END IF;
1724:
1725: l_profile_varchar := FND_PROFILE.VALUE('AHL_AVF_VST_UPD_FLT_TIME');
1726: l_profile_varchar2 := FND_PROFILE.VALUE('AHL_AVF_FLT_VST_UPD_WINDOW');
1776: IF (l_log_statement >= l_log_current_level) THEN
1777: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After calling Disconnect_Flight_Visit and l_return_status: '||l_return_status);
1778: END IF;
1779:
1780: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1781: x_msg_count := l_msg_count;
1782: x_return_status := l_return_status;
1783: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1784: RAISE Fnd_Api.g_exc_error;
1779:
1780: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1781: x_msg_count := l_msg_count;
1782: x_return_status := l_return_status;
1783: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1784: RAISE Fnd_Api.g_exc_error;
1785: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1786: RAISE Fnd_Api.g_exc_unexpected_error;
1787: END IF;
1780: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1781: x_msg_count := l_msg_count;
1782: x_return_status := l_return_status;
1783: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1784: RAISE Fnd_Api.g_exc_error;
1785: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1786: RAISE Fnd_Api.g_exc_unexpected_error;
1787: END IF;
1788: END IF;
1781: x_msg_count := l_msg_count;
1782: x_return_status := l_return_status;
1783: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1784: RAISE Fnd_Api.g_exc_error;
1785: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1786: RAISE Fnd_Api.g_exc_unexpected_error;
1787: END IF;
1788: END IF;
1789: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
1782: x_return_status := l_return_status;
1783: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1784: RAISE Fnd_Api.g_exc_error;
1785: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1786: RAISE Fnd_Api.g_exc_unexpected_error;
1787: END IF;
1788: END IF;
1789: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
1790: END IF; -- Check before cancelling the visit
1890: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1891: fnd_log.string(fnd_log.level_statement,L_DEBUG_KEY,'Visit not found for - ' ||l_visit_rec.visit_id );
1892: END IF;
1893: END IF;
1894: RAISE Fnd_Api.g_exc_error;
1895: ELSE
1896: CLOSE c_Visit;
1897: END IF;
1898: -- Complete Visit Record
1917: 'Before calling AHL_VWP_VISITS_PVT.Update_Visit autovst_oper_id: '||get_oper_param_rec.autovst_oper_id||', l_visit_rec.START_DATE: '||l_visit_rec.START_DATE);
1918: END IF;
1919: AHL_VWP_VISITS_PVT.Update_Visit (
1920: p_api_version => l_api_version,
1921: p_init_msg_list => Fnd_Api.g_false,
1922: p_commit => Fnd_Api.g_false,
1923: p_validation_level => p_validation_level,
1924: p_module_type => 'API',
1925: p_x_visit_rec => l_visit_rec,
1918: END IF;
1919: AHL_VWP_VISITS_PVT.Update_Visit (
1920: p_api_version => l_api_version,
1921: p_init_msg_list => Fnd_Api.g_false,
1922: p_commit => Fnd_Api.g_false,
1923: p_validation_level => p_validation_level,
1924: p_module_type => 'API',
1925: p_x_visit_rec => l_visit_rec,
1926: x_return_status => l_return_status,
1933: ( fnd_log.level_procedure,
1934: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1935: 'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
1936: END IF;
1937: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1938: x_msg_count := FND_MSG_PUB.count_msg;
1939: IF (l_log_statement >= l_log_current_level) THEN
1940: fnd_log.string(l_log_statement,
1941: L_DEBUG_KEY,
1940: fnd_log.string(l_log_statement,
1941: L_DEBUG_KEY,
1942: 'Errors from Update_Visit. Message count: ' || x_msg_count);
1943: END IF;
1944: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1945: RAISE FND_API.G_EXC_ERROR;
1946: ELSE
1947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1948: END IF;
1941: L_DEBUG_KEY,
1942: 'Errors from Update_Visit. Message count: ' || x_msg_count);
1943: END IF;
1944: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1945: RAISE FND_API.G_EXC_ERROR;
1946: ELSE
1947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1948: END IF;
1949: END IF; -- Return Status is not Success
1943: END IF;
1944: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1945: RAISE FND_API.G_EXC_ERROR;
1946: ELSE
1947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1948: END IF;
1949: END IF; -- Return Status is not Success
1950: ELSE
1951: --PRAKKUM :: 01/08/2012 :: Added procedure :: START
1959: IF (l_log_statement >= l_log_current_level) THEN
1960: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After calling Disconnect_Flight_Visit and l_return_status: '||l_return_status);
1961: END IF;
1962:
1963: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1964: x_msg_count := l_msg_count;
1965: x_return_status := l_return_status;
1966: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1967: RAISE Fnd_Api.g_exc_error;
1962:
1963: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1964: x_msg_count := l_msg_count;
1965: x_return_status := l_return_status;
1966: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1967: RAISE Fnd_Api.g_exc_error;
1968: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1969: RAISE Fnd_Api.g_exc_unexpected_error;
1970: END IF;
1963: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1964: x_msg_count := l_msg_count;
1965: x_return_status := l_return_status;
1966: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1967: RAISE Fnd_Api.g_exc_error;
1968: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1969: RAISE Fnd_Api.g_exc_unexpected_error;
1970: END IF;
1971: END IF;
1964: x_msg_count := l_msg_count;
1965: x_return_status := l_return_status;
1966: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1967: RAISE Fnd_Api.g_exc_error;
1968: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1969: RAISE Fnd_Api.g_exc_unexpected_error;
1970: END IF;
1971: END IF;
1972: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
1965: x_return_status := l_return_status;
1966: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1967: RAISE Fnd_Api.g_exc_error;
1968: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1969: RAISE Fnd_Api.g_exc_unexpected_error;
1970: END IF;
1971: END IF;
1972: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
1973: END IF; --IF condition to see if l_can_update_visit IS NOT NULL
2137: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2138: fnd_log.string(fnd_log.level_statement,L_DEBUG_KEY,'Visit not found for - ' ||l_visit_rec.visit_id );
2139: END IF;
2140: END IF;
2141: RAISE Fnd_Api.g_exc_error;
2142: ELSE
2143: CLOSE c_Visit;
2144: END IF;
2145: -- Complete Visit Record
2164: 'Before calling AHL_VWP_VISITS_PVT.Update_Visit autovst_oper_id: '||get_oper_param_rec.autovst_oper_id||', l_visit_rec.START_DATE: '||l_visit_rec.START_DATE);
2165: END IF;
2166: AHL_VWP_VISITS_PVT.Update_Visit (
2167: p_api_version => l_api_version,
2168: p_init_msg_list => Fnd_Api.g_false,
2169: p_commit => Fnd_Api.g_false,
2170: p_validation_level => p_validation_level,
2171: p_module_type => 'API',
2172: p_x_visit_rec => l_visit_rec,
2165: END IF;
2166: AHL_VWP_VISITS_PVT.Update_Visit (
2167: p_api_version => l_api_version,
2168: p_init_msg_list => Fnd_Api.g_false,
2169: p_commit => Fnd_Api.g_false,
2170: p_validation_level => p_validation_level,
2171: p_module_type => 'API',
2172: p_x_visit_rec => l_visit_rec,
2173: x_return_status => l_return_status,
2180: ( fnd_log.level_procedure,
2181: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2182: 'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
2183: END IF;
2184: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2185: x_msg_count := FND_MSG_PUB.count_msg;
2186: IF (l_log_statement >= l_log_current_level) THEN
2187: fnd_log.string(l_log_statement,
2188: L_DEBUG_KEY,
2187: fnd_log.string(l_log_statement,
2188: L_DEBUG_KEY,
2189: 'Errors from Update_Visit. Message count: ' || x_msg_count);
2190: END IF;
2191: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2192: RAISE FND_API.G_EXC_ERROR;
2193: ELSE
2194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2195: END IF;
2188: L_DEBUG_KEY,
2189: 'Errors from Update_Visit. Message count: ' || x_msg_count);
2190: END IF;
2191: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2192: RAISE FND_API.G_EXC_ERROR;
2193: ELSE
2194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2195: END IF;
2196: END IF; -- Return Status is not Success
2190: END IF;
2191: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2192: RAISE FND_API.G_EXC_ERROR;
2193: ELSE
2194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2195: END IF;
2196: END IF; -- Return Status is not Success
2197: ELSE
2198: --PRAKKUM :: 01/08/2012 :: Added procedure :: START
2206: IF (l_log_statement >= l_log_current_level) THEN
2207: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After calling Disconnect_Flight_Visit and l_return_status: '||l_return_status);
2208: END IF;
2209:
2210: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2211: x_msg_count := l_msg_count;
2212: x_return_status := l_return_status;
2213: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2214: RAISE Fnd_Api.g_exc_error;
2209:
2210: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2211: x_msg_count := l_msg_count;
2212: x_return_status := l_return_status;
2213: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2214: RAISE Fnd_Api.g_exc_error;
2215: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2216: RAISE Fnd_Api.g_exc_unexpected_error;
2217: END IF;
2210: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2211: x_msg_count := l_msg_count;
2212: x_return_status := l_return_status;
2213: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2214: RAISE Fnd_Api.g_exc_error;
2215: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2216: RAISE Fnd_Api.g_exc_unexpected_error;
2217: END IF;
2218: END IF;
2211: x_msg_count := l_msg_count;
2212: x_return_status := l_return_status;
2213: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2214: RAISE Fnd_Api.g_exc_error;
2215: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2216: RAISE Fnd_Api.g_exc_unexpected_error;
2217: END IF;
2218: END IF;
2219: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
2212: x_return_status := l_return_status;
2213: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2214: RAISE Fnd_Api.g_exc_error;
2215: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2216: RAISE Fnd_Api.g_exc_unexpected_error;
2217: END IF;
2218: END IF;
2219: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
2220: l_visit_id := NULL; --Since visit is cancelled
2336: IF (l_log_statement >= l_log_current_level) THEN
2337: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After calling Disconnect_Flight_Visit and l_return_status: '||l_return_status);
2338: END IF;
2339:
2340: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2341: x_msg_count := l_msg_count;
2342: x_return_status := l_return_status;
2343: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2344: RAISE Fnd_Api.g_exc_error;
2339:
2340: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2341: x_msg_count := l_msg_count;
2342: x_return_status := l_return_status;
2343: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2344: RAISE Fnd_Api.g_exc_error;
2345: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2346: RAISE Fnd_Api.g_exc_unexpected_error;
2347: END IF;
2340: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2341: x_msg_count := l_msg_count;
2342: x_return_status := l_return_status;
2343: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2344: RAISE Fnd_Api.g_exc_error;
2345: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2346: RAISE Fnd_Api.g_exc_unexpected_error;
2347: END IF;
2348: END IF;
2341: x_msg_count := l_msg_count;
2342: x_return_status := l_return_status;
2343: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2344: RAISE Fnd_Api.g_exc_error;
2345: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2346: RAISE Fnd_Api.g_exc_unexpected_error;
2347: END IF;
2348: END IF;
2349: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
2342: x_return_status := l_return_status;
2343: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2344: RAISE Fnd_Api.g_exc_error;
2345: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2346: RAISE Fnd_Api.g_exc_unexpected_error;
2347: END IF;
2348: END IF;
2349: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
2350: l_visit_id2 := NULL; --Since visit is cancelled
2469: IF (l_log_statement >= l_log_current_level) THEN
2470: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After calling Disconnect_Flight_Visit and l_return_status: '||l_return_status);
2471: END IF;
2472:
2473: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2474: x_msg_count := l_msg_count;
2475: x_return_status := l_return_status;
2476: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2477: RAISE Fnd_Api.g_exc_error;
2472:
2473: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2474: x_msg_count := l_msg_count;
2475: x_return_status := l_return_status;
2476: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2477: RAISE Fnd_Api.g_exc_error;
2478: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2479: RAISE Fnd_Api.g_exc_unexpected_error;
2480: END IF;
2473: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2474: x_msg_count := l_msg_count;
2475: x_return_status := l_return_status;
2476: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2477: RAISE Fnd_Api.g_exc_error;
2478: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2479: RAISE Fnd_Api.g_exc_unexpected_error;
2480: END IF;
2481: END IF;
2474: x_msg_count := l_msg_count;
2475: x_return_status := l_return_status;
2476: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2477: RAISE Fnd_Api.g_exc_error;
2478: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2479: RAISE Fnd_Api.g_exc_unexpected_error;
2480: END IF;
2481: END IF;
2482: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
2475: x_return_status := l_return_status;
2476: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2477: RAISE Fnd_Api.g_exc_error;
2478: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2479: RAISE Fnd_Api.g_exc_unexpected_error;
2480: END IF;
2481: END IF;
2482: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
2483: l_visit_id2 := NULL; --Since visit is cancelled
2725: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2726: fnd_log.string(fnd_log.level_statement,L_DEBUG_KEY,'Visit not found for - ' ||l_visit_rec.visit_id );
2727: END IF;
2728: END IF;
2729: RAISE Fnd_Api.g_exc_error;
2730: ELSE
2731: CLOSE c_Visit;
2732: END IF;
2733:
2753: 'Before calling AHL_VWP_VISITS_PVT.Update_Visit autovst_oper_id: '||get_oper_param_rec.autovst_oper_id);
2754: END IF;
2755: AHL_VWP_VISITS_PVT.Update_Visit (
2756: p_api_version => l_api_version,
2757: p_init_msg_list => Fnd_Api.g_false,
2758: p_commit => Fnd_Api.g_false,
2759: p_validation_level => p_validation_level,
2760: p_module_type => 'API',
2761: p_x_visit_rec => l_visit_rec,
2754: END IF;
2755: AHL_VWP_VISITS_PVT.Update_Visit (
2756: p_api_version => l_api_version,
2757: p_init_msg_list => Fnd_Api.g_false,
2758: p_commit => Fnd_Api.g_false,
2759: p_validation_level => p_validation_level,
2760: p_module_type => 'API',
2761: p_x_visit_rec => l_visit_rec,
2762: x_return_status => l_return_status,
2769: ( fnd_log.level_procedure,
2770: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2771: 'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
2772: END IF;
2773: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2774: x_msg_count := FND_MSG_PUB.count_msg;
2775: IF (l_log_statement >= l_log_current_level) THEN
2776: fnd_log.string(l_log_statement,
2777: L_DEBUG_KEY,
2776: fnd_log.string(l_log_statement,
2777: L_DEBUG_KEY,
2778: 'Errors from Update_Visit. Message count: ' || x_msg_count);
2779: END IF;
2780: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2781: RAISE FND_API.G_EXC_ERROR;
2782: ELSE
2783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2784: END IF;
2777: L_DEBUG_KEY,
2778: 'Errors from Update_Visit. Message count: ' || x_msg_count);
2779: END IF;
2780: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2781: RAISE FND_API.G_EXC_ERROR;
2782: ELSE
2783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2784: END IF;
2785: END IF; -- Return Status is not Success
2779: END IF;
2780: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2781: RAISE FND_API.G_EXC_ERROR;
2782: ELSE
2783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2784: END IF;
2785: END IF; -- Return Status is not Success
2786: END IF; --IF((l_difference_dep_time > nvl
2787: END IF;--else of l_visit_type_code <> get_oper_param_rec.visit_type_code
2878: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2879: fnd_log.string(fnd_log.level_statement,L_DEBUG_KEY,'Visit not found for - ' ||l_visit_rec.visit_id );
2880: END IF;
2881: END IF;
2882: RAISE Fnd_Api.g_exc_error;
2883: ELSE
2884: CLOSE c_Visit;
2885: END IF;
2886:
2906: 'Before calling AHL_VWP_VISITS_PVT.Update_Visit autovst_oper_id: '||get_oper_param_rec.autovst_oper_id);
2907: END IF;
2908: AHL_VWP_VISITS_PVT.Update_Visit (
2909: p_api_version => l_api_version,
2910: p_init_msg_list => Fnd_Api.g_false,
2911: p_commit => Fnd_Api.g_false,
2912: p_validation_level => p_validation_level,
2913: p_module_type => 'API',
2914: p_x_visit_rec => l_visit_rec,
2907: END IF;
2908: AHL_VWP_VISITS_PVT.Update_Visit (
2909: p_api_version => l_api_version,
2910: p_init_msg_list => Fnd_Api.g_false,
2911: p_commit => Fnd_Api.g_false,
2912: p_validation_level => p_validation_level,
2913: p_module_type => 'API',
2914: p_x_visit_rec => l_visit_rec,
2915: x_return_status => l_return_status,
2922: ( fnd_log.level_procedure,
2923: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2924: 'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
2925: END IF;
2926: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2927: x_msg_count := FND_MSG_PUB.count_msg;
2928: IF (l_log_statement >= l_log_current_level) THEN
2929: fnd_log.string(l_log_statement,
2930: L_DEBUG_KEY,
2929: fnd_log.string(l_log_statement,
2930: L_DEBUG_KEY,
2931: 'Errors from Update_Visit. Message count: ' || x_msg_count);
2932: END IF;
2933: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2934: RAISE FND_API.G_EXC_ERROR;
2935: ELSE
2936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2937: END IF;
2930: L_DEBUG_KEY,
2931: 'Errors from Update_Visit. Message count: ' || x_msg_count);
2932: END IF;
2933: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2934: RAISE FND_API.G_EXC_ERROR;
2935: ELSE
2936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2937: END IF;
2938: END IF; -- Return Status is not Success
2932: END IF;
2933: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2934: RAISE FND_API.G_EXC_ERROR;
2935: ELSE
2936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2937: END IF;
2938: END IF; -- Return Status is not Success
2939: END IF; -- IF((l_difference_dep_time > nvl(FND_PROFIL
2940: ELSE -- there is no visit at the dep org of current FS
3078: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3079: fnd_log.string(fnd_log.level_statement,L_DEBUG_KEY,'Visit not found for - ' ||l_visit_rec.visit_id );
3080: END IF;
3081: END IF;
3082: RAISE Fnd_Api.g_exc_error;
3083: ELSE
3084: CLOSE c_Visit;
3085: END IF;
3086:
3106: 'Before calling AHL_VWP_VISITS_PVT.Update_Visit autovst_oper_id: '||get_oper_param_rec.autovst_oper_id);
3107: END IF;
3108: AHL_VWP_VISITS_PVT.Update_Visit (
3109: p_api_version => l_api_version,
3110: p_init_msg_list => Fnd_Api.g_false,
3111: p_commit => Fnd_Api.g_false,
3112: p_validation_level => p_validation_level,
3113: p_module_type => 'API',
3114: p_x_visit_rec => l_visit_rec,
3107: END IF;
3108: AHL_VWP_VISITS_PVT.Update_Visit (
3109: p_api_version => l_api_version,
3110: p_init_msg_list => Fnd_Api.g_false,
3111: p_commit => Fnd_Api.g_false,
3112: p_validation_level => p_validation_level,
3113: p_module_type => 'API',
3114: p_x_visit_rec => l_visit_rec,
3115: x_return_status => l_return_status,
3122: ( fnd_log.level_procedure,
3123: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3124: 'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
3125: END IF;
3126: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3127: x_msg_count := FND_MSG_PUB.count_msg;
3128: IF (l_log_statement >= l_log_current_level) THEN
3129: fnd_log.string(l_log_statement,
3130: L_DEBUG_KEY,
3129: fnd_log.string(l_log_statement,
3130: L_DEBUG_KEY,
3131: 'Errors from Update_Visit. Message count: ' || x_msg_count);
3132: END IF;
3133: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3134: RAISE FND_API.G_EXC_ERROR;
3135: ELSE
3136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3137: END IF;
3130: L_DEBUG_KEY,
3131: 'Errors from Update_Visit. Message count: ' || x_msg_count);
3132: END IF;
3133: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3134: RAISE FND_API.G_EXC_ERROR;
3135: ELSE
3136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3137: END IF;
3138: END IF; -- Return Status is not Success
3132: END IF;
3133: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3134: RAISE FND_API.G_EXC_ERROR;
3135: ELSE
3136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3137: END IF;
3138: END IF; -- Return Status is not Success
3139: ELSE
3140: --PRAKKUM :: 01/08/2012 :: Added procedure :: START
3148: IF (l_log_statement >= l_log_current_level) THEN
3149: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After calling Disconnect_Flight_Visit and l_return_status: '||l_return_status);
3150: END IF;
3151:
3152: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3153: x_msg_count := l_msg_count;
3154: x_return_status := l_return_status;
3155: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3156: RAISE Fnd_Api.g_exc_error;
3151:
3152: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3153: x_msg_count := l_msg_count;
3154: x_return_status := l_return_status;
3155: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3156: RAISE Fnd_Api.g_exc_error;
3157: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3158: RAISE Fnd_Api.g_exc_unexpected_error;
3159: END IF;
3152: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3153: x_msg_count := l_msg_count;
3154: x_return_status := l_return_status;
3155: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3156: RAISE Fnd_Api.g_exc_error;
3157: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3158: RAISE Fnd_Api.g_exc_unexpected_error;
3159: END IF;
3160: END IF;
3153: x_msg_count := l_msg_count;
3154: x_return_status := l_return_status;
3155: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3156: RAISE Fnd_Api.g_exc_error;
3157: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3158: RAISE Fnd_Api.g_exc_unexpected_error;
3159: END IF;
3160: END IF;
3161: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
3154: x_return_status := l_return_status;
3155: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3156: RAISE Fnd_Api.g_exc_error;
3157: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3158: RAISE Fnd_Api.g_exc_unexpected_error;
3159: END IF;
3160: END IF;
3161: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
3162: END IF;-- check to see if the visit is updateble or not
3317: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3318: fnd_log.string(fnd_log.level_statement,L_DEBUG_KEY,'Visit not found for - ' ||l_visit_rec.visit_id );
3319: END IF;
3320: END IF;
3321: RAISE Fnd_Api.g_exc_error;
3322: ELSE
3323: CLOSE c_Visit;
3324: END IF;
3325:
3345: 'Before calling AHL_VWP_VISITS_PVT.Update_Visit autovst_oper_id: '||get_oper_param_rec.autovst_oper_id);
3346: END IF;
3347: AHL_VWP_VISITS_PVT.Update_Visit (
3348: p_api_version => l_api_version,
3349: p_init_msg_list => Fnd_Api.g_false,
3350: p_commit => Fnd_Api.g_false,
3351: p_validation_level => p_validation_level,
3352: p_module_type => 'API',
3353: p_x_visit_rec => l_visit_rec,
3346: END IF;
3347: AHL_VWP_VISITS_PVT.Update_Visit (
3348: p_api_version => l_api_version,
3349: p_init_msg_list => Fnd_Api.g_false,
3350: p_commit => Fnd_Api.g_false,
3351: p_validation_level => p_validation_level,
3352: p_module_type => 'API',
3353: p_x_visit_rec => l_visit_rec,
3354: x_return_status => l_return_status,
3361: ( fnd_log.level_procedure,
3362: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3363: 'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
3364: END IF;
3365: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3366: x_msg_count := FND_MSG_PUB.count_msg;
3367: IF (l_log_statement >= l_log_current_level) THEN
3368: fnd_log.string(l_log_statement,
3369: L_DEBUG_KEY,
3368: fnd_log.string(l_log_statement,
3369: L_DEBUG_KEY,
3370: 'Errors from Update_Visit. Message count: ' || x_msg_count);
3371: END IF;
3372: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3373: RAISE FND_API.G_EXC_ERROR;
3374: ELSE
3375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3376: END IF;
3369: L_DEBUG_KEY,
3370: 'Errors from Update_Visit. Message count: ' || x_msg_count);
3371: END IF;
3372: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3373: RAISE FND_API.G_EXC_ERROR;
3374: ELSE
3375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3376: END IF;
3377: END IF; -- Return Status is not Success
3371: END IF;
3372: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3373: RAISE FND_API.G_EXC_ERROR;
3374: ELSE
3375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3376: END IF;
3377: END IF; -- Return Status is not Success
3378: ELSE
3379: --PRAKKUM :: 01/08/2012 :: Added procedure :: START
3387: IF (l_log_statement >= l_log_current_level) THEN
3388: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After calling Disconnect_Flight_Visit and l_return_status: '||l_return_status);
3389: END IF;
3390:
3391: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3392: x_msg_count := l_msg_count;
3393: x_return_status := l_return_status;
3394: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3395: RAISE Fnd_Api.g_exc_error;
3390:
3391: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3392: x_msg_count := l_msg_count;
3393: x_return_status := l_return_status;
3394: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3395: RAISE Fnd_Api.g_exc_error;
3396: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3397: RAISE Fnd_Api.g_exc_unexpected_error;
3398: END IF;
3391: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3392: x_msg_count := l_msg_count;
3393: x_return_status := l_return_status;
3394: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3395: RAISE Fnd_Api.g_exc_error;
3396: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3397: RAISE Fnd_Api.g_exc_unexpected_error;
3398: END IF;
3399: END IF;
3392: x_msg_count := l_msg_count;
3393: x_return_status := l_return_status;
3394: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3395: RAISE Fnd_Api.g_exc_error;
3396: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3397: RAISE Fnd_Api.g_exc_unexpected_error;
3398: END IF;
3399: END IF;
3400: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
3393: x_return_status := l_return_status;
3394: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3395: RAISE Fnd_Api.g_exc_error;
3396: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3397: RAISE Fnd_Api.g_exc_unexpected_error;
3398: END IF;
3399: END IF;
3400: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
3401: l_visit_id := NULL; --SInce visit is cancelled
3508: IF (l_log_statement >= l_log_current_level) THEN
3509: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After calling Disconnect_Flight_Visit and l_return_status: '||l_return_status);
3510: END IF;
3511:
3512: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3513: x_msg_count := l_msg_count;
3514: x_return_status := l_return_status;
3515: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3516: RAISE Fnd_Api.g_exc_error;
3511:
3512: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3513: x_msg_count := l_msg_count;
3514: x_return_status := l_return_status;
3515: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3516: RAISE Fnd_Api.g_exc_error;
3517: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3518: RAISE Fnd_Api.g_exc_unexpected_error;
3519: END IF;
3512: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3513: x_msg_count := l_msg_count;
3514: x_return_status := l_return_status;
3515: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3516: RAISE Fnd_Api.g_exc_error;
3517: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3518: RAISE Fnd_Api.g_exc_unexpected_error;
3519: END IF;
3520: END IF;
3513: x_msg_count := l_msg_count;
3514: x_return_status := l_return_status;
3515: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3516: RAISE Fnd_Api.g_exc_error;
3517: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3518: RAISE Fnd_Api.g_exc_unexpected_error;
3519: END IF;
3520: END IF;
3521: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
3514: x_return_status := l_return_status;
3515: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3516: RAISE Fnd_Api.g_exc_error;
3517: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3518: RAISE Fnd_Api.g_exc_unexpected_error;
3519: END IF;
3520: END IF;
3521: --PRAKKUM :: 01/08/2012 :: Added procedure :: END
3522: l_visit_id := NULL; --Since visit is cancelled
3788: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3789: fnd_log.string(fnd_log.level_statement,L_DEBUG_KEY,'Visit not found for - ' ||l_visit_rec.visit_id );
3790: END IF;
3791: END IF;
3792: RAISE Fnd_Api.g_exc_error;
3793: ELSE
3794: CLOSE c_Visit;
3795: END IF;
3796:
3816: 'Before calling AHL_VWP_VISITS_PVT.Update_Visit autovst_oper_id: '||get_oper_param_rec.autovst_oper_id);
3817: END IF;
3818: AHL_VWP_VISITS_PVT.Update_Visit (
3819: p_api_version => l_api_version,
3820: p_init_msg_list => Fnd_Api.g_false,
3821: p_commit => Fnd_Api.g_false,
3822: p_validation_level => p_validation_level,
3823: p_module_type => 'API',
3824: p_x_visit_rec => l_visit_rec,
3817: END IF;
3818: AHL_VWP_VISITS_PVT.Update_Visit (
3819: p_api_version => l_api_version,
3820: p_init_msg_list => Fnd_Api.g_false,
3821: p_commit => Fnd_Api.g_false,
3822: p_validation_level => p_validation_level,
3823: p_module_type => 'API',
3824: p_x_visit_rec => l_visit_rec,
3825: x_return_status => l_return_status,
3832: ( fnd_log.level_procedure,
3833: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3834: 'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
3835: END IF;
3836: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3837: x_msg_count := FND_MSG_PUB.count_msg;
3838: IF (l_log_statement >= l_log_current_level) THEN
3839: fnd_log.string(l_log_statement,
3840: L_DEBUG_KEY,
3839: fnd_log.string(l_log_statement,
3840: L_DEBUG_KEY,
3841: 'Errors from Update_Visit. Message count: ' || x_msg_count);
3842: END IF;
3843: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3844: RAISE FND_API.G_EXC_ERROR;
3845: ELSE
3846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3847: END IF;
3840: L_DEBUG_KEY,
3841: 'Errors from Update_Visit. Message count: ' || x_msg_count);
3842: END IF;
3843: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3844: RAISE FND_API.G_EXC_ERROR;
3845: ELSE
3846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3847: END IF;
3848: END IF; -- Return Status is not Success
3842: END IF;
3843: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3844: RAISE FND_API.G_EXC_ERROR;
3845: ELSE
3846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3847: END IF;
3848: END IF; -- Return Status is not Success
3849: END IF;--IF((l_difference_arrival_time > nv
3850: END IF;--IF of l_visit_type_code <> get_oper_param_rec.visit_type_code
3936: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3937: fnd_log.string(fnd_log.level_statement,L_DEBUG_KEY,'Visit not found for - ' ||l_visit_rec.visit_id );
3938: END IF;
3939: END IF;
3940: RAISE Fnd_Api.g_exc_error;
3941: ELSE
3942: CLOSE c_Visit;
3943: END IF;
3944:
3964: 'Before calling AHL_VWP_VISITS_PVT.Update_Visit autovst_oper_id: '||get_oper_param_rec.autovst_oper_id);
3965: END IF;
3966: AHL_VWP_VISITS_PVT.Update_Visit (
3967: p_api_version => l_api_version,
3968: p_init_msg_list => Fnd_Api.g_false,
3969: p_commit => Fnd_Api.g_false,
3970: p_validation_level => p_validation_level,
3971: p_module_type => 'API',
3972: p_x_visit_rec => l_visit_rec,
3965: END IF;
3966: AHL_VWP_VISITS_PVT.Update_Visit (
3967: p_api_version => l_api_version,
3968: p_init_msg_list => Fnd_Api.g_false,
3969: p_commit => Fnd_Api.g_false,
3970: p_validation_level => p_validation_level,
3971: p_module_type => 'API',
3972: p_x_visit_rec => l_visit_rec,
3973: x_return_status => l_return_status,
3980: ( fnd_log.level_procedure,
3981: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3982: 'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
3983: END IF;
3984: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3985: x_msg_count := FND_MSG_PUB.count_msg;
3986: IF (l_log_statement >= l_log_current_level) THEN
3987: fnd_log.string(l_log_statement,
3988: L_DEBUG_KEY,
3987: fnd_log.string(l_log_statement,
3988: L_DEBUG_KEY,
3989: 'Errors from Update_Visit. Message count: ' || x_msg_count);
3990: END IF;
3991: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3992: RAISE FND_API.G_EXC_ERROR;
3993: ELSE
3994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3995: END IF;
3988: L_DEBUG_KEY,
3989: 'Errors from Update_Visit. Message count: ' || x_msg_count);
3990: END IF;
3991: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3992: RAISE FND_API.G_EXC_ERROR;
3993: ELSE
3994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3995: END IF;
3996: END IF; -- Return Status is not Success
3990: END IF;
3991: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3992: RAISE FND_API.G_EXC_ERROR;
3993: ELSE
3994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3995: END IF;
3996: END IF; -- Return Status is not Success
3997: END If; -- IF((l_difference_arrival_time > nvl(FND_PROFILE
3998: ELSE -- there is no visit associated to the arrival org of current FS
4050: END LOOP;
4051:
4052: -- END of API body.
4053: -- Standard check of p_commit.
4054: IF Fnd_Api.To_Boolean (p_commit) THEN
4055: COMMIT WORK;
4056: END IF;
4057:
4058: Fnd_Msg_Pub.count_and_get(
4055: COMMIT WORK;
4056: END IF;
4057:
4058: Fnd_Msg_Pub.count_and_get(
4059: p_encoded => Fnd_Api.g_false,
4060: p_count => x_msg_count,
4061: p_data => x_msg_data
4062: );
4063:
4068: END IF;
4069:
4070: EXCEPTION
4071:
4072: WHEN FND_API.G_EXC_ERROR THEN
4073: x_return_status := FND_API.G_RET_STS_ERROR;
4074: ROLLBACK TO Update_Oper_Visit_pvt;
4075: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4076: p_data => x_msg_data,
4069:
4070: EXCEPTION
4071:
4072: WHEN FND_API.G_EXC_ERROR THEN
4073: x_return_status := FND_API.G_RET_STS_ERROR;
4074: ROLLBACK TO Update_Oper_Visit_pvt;
4075: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4076: p_data => x_msg_data,
4077: p_encoded => fnd_api.g_false);
4073: x_return_status := FND_API.G_RET_STS_ERROR;
4074: ROLLBACK TO Update_Oper_Visit_pvt;
4075: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4076: p_data => x_msg_data,
4077: p_encoded => fnd_api.g_false);
4078:
4079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4081: ROLLBACK TO Update_Oper_Visit_pvt;
4075: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4076: p_data => x_msg_data,
4077: p_encoded => fnd_api.g_false);
4078:
4079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4081: ROLLBACK TO Update_Oper_Visit_pvt;
4082: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4083: p_data => x_msg_data,
4076: p_data => x_msg_data,
4077: p_encoded => fnd_api.g_false);
4078:
4079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4081: ROLLBACK TO Update_Oper_Visit_pvt;
4082: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4083: p_data => x_msg_data,
4084: p_encoded => fnd_api.g_false);
4080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4081: ROLLBACK TO Update_Oper_Visit_pvt;
4082: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4083: p_data => x_msg_data,
4084: p_encoded => fnd_api.g_false);
4085:
4086: WHEN OTHERS THEN
4087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4088: ROLLBACK TO Update_Oper_Visit_pvt;
4083: p_data => x_msg_data,
4084: p_encoded => fnd_api.g_false);
4085:
4086: WHEN OTHERS THEN
4087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4088: ROLLBACK TO Update_Oper_Visit_pvt;
4089:
4090: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4091: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4094: END IF;
4095:
4096: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4097: p_data => x_msg_data,
4098: p_encoded => fnd_api.g_false);
4099: END Update_Oper_Visit;
4100:
4101: --TCHIMIRA :: 14-Jun-2012 :: start
4102: ---------------------------------------------------------------------------------------
4187: 'At the start of PL SQL function.');
4188: END IF;
4189:
4190: -- initialize procedure return status to success
4191: x_return_status := FND_API.G_RET_STS_SUCCESS;
4192:
4193: -- Bug 14336467 :: PRAKKUM :: 13/07/2012
4194: p_is_creation_success := 'Y'; --initialize to success
4195:
4281: 'After calling AHL_VWP_VISITS_PVT.Create_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
4282: END IF;
4283:
4284: -- SATRAJEN :: Bug 14336467 :: Prevent Erroring out when the called from Operational Visit Procedure. :: START
4285: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4286: l_pub_msg := FND_MSG_PUB.Get_Detail (p_msg_index => FND_MSG_PUB.G_LAST);
4287: IF (l_pub_msg like '%AHL_VWP_PRD_MR_ASSOC_FAIL%') THEN
4288: IF (l_log_statement >= l_log_current_level) THEN
4289: fnd_log.string
4290: ( l_log_statement,
4291: L_DEBUG_KEY,
4292: 'visit id= '||l_visit_rec.visit_id || 'Had problems with the MRs associated. So departure visit creation is not successful. ');
4293: END IF;
4294: x_return_status := FND_API.G_RET_STS_SUCCESS;
4295: p_is_creation_success := 'N'; -- Flag as creation of visit failed due to validations
4296: -- Remove message from FND
4297: FND_MSG_PUB.Delete_Msg(p_msg_index => FND_MSG_PUB.count_msg);
4298:
4308: fnd_log.string(l_log_statement,
4309: L_DEBUG_KEY,
4310: 'Errors from Create_Visit. Message count: ' || x_msg_count);
4311: END IF;
4312: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4313: RAISE FND_API.G_EXC_ERROR;
4314: ELSE
4315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4316: END IF;
4309: L_DEBUG_KEY,
4310: 'Errors from Create_Visit. Message count: ' || x_msg_count);
4311: END IF;
4312: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4313: RAISE FND_API.G_EXC_ERROR;
4314: ELSE
4315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4316: END IF;
4317: END IF;
4311: END IF;
4312: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4313: RAISE FND_API.G_EXC_ERROR;
4314: ELSE
4315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4316: END IF;
4317: END IF;
4318: ELSE
4319: x_return_status := l_return_status ;
4333: L_DEBUG_KEY ||'.end',
4334: 'At the end of PL SQL function.');
4335: END IF;
4336: EXCEPTION
4337: WHEN FND_API.G_EXC_ERROR THEN
4338: x_return_status := FND_API.G_RET_STS_ERROR;
4339: ROLLBACK TO Create_Dep_visit_pvt;
4340: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4341: p_data => x_msg_data,
4334: 'At the end of PL SQL function.');
4335: END IF;
4336: EXCEPTION
4337: WHEN FND_API.G_EXC_ERROR THEN
4338: x_return_status := FND_API.G_RET_STS_ERROR;
4339: ROLLBACK TO Create_Dep_visit_pvt;
4340: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4341: p_data => x_msg_data,
4342: p_encoded => fnd_api.g_false);
4338: x_return_status := FND_API.G_RET_STS_ERROR;
4339: ROLLBACK TO Create_Dep_visit_pvt;
4340: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4341: p_data => x_msg_data,
4342: p_encoded => fnd_api.g_false);
4343:
4344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4346: ROLLBACK TO Create_Dep_visit_pvt;
4340: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4341: p_data => x_msg_data,
4342: p_encoded => fnd_api.g_false);
4343:
4344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4346: ROLLBACK TO Create_Dep_visit_pvt;
4347: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4348: p_data => x_msg_data,
4341: p_data => x_msg_data,
4342: p_encoded => fnd_api.g_false);
4343:
4344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4346: ROLLBACK TO Create_Dep_visit_pvt;
4347: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4348: p_data => x_msg_data,
4349: p_encoded => fnd_api.g_false);
4345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4346: ROLLBACK TO Create_Dep_visit_pvt;
4347: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4348: p_data => x_msg_data,
4349: p_encoded => fnd_api.g_false);
4350:
4351: WHEN OTHERS THEN
4352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4353: ROLLBACK TO Create_Dep_visit_pvt;
4348: p_data => x_msg_data,
4349: p_encoded => fnd_api.g_false);
4350:
4351: WHEN OTHERS THEN
4352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4353: ROLLBACK TO Create_Dep_visit_pvt;
4354: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4355: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4356: p_procedure_name => 'Create_Departure_visit',
4357: p_error_text => SUBSTR(SQLERRM,1,500));
4358: END IF;
4359: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4360: p_data => x_msg_data,
4361: p_encoded => fnd_api.g_false);
4362: END Create_Departure_visit;
4363:
4364: ---------------------------------------------------------------------------------------
4365: -- PROCEDURE
4446: 'At the start of PL SQL function.');
4447: END IF;
4448:
4449: -- initialize procedure return status to success
4450: x_return_status := FND_API.G_RET_STS_SUCCESS;
4451:
4452: -- Bug 14336467 :: PRAKKUM :: 13/07/2012
4453: p_is_creation_success := 'Y'; -- Initialize to success
4454:
4538: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
4539: 'After calling AHL_VWP_VISITS_PVT.Create_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
4540: END IF;
4541: -- SATRAJEN :: Bug 14336467 :: Prevent Erroring out when the called from Operational Visit Procedure. :: START
4542: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4543: l_pub_msg := FND_MSG_PUB.Get_Detail (p_msg_index => FND_MSG_PUB.G_LAST);
4544: IF (l_pub_msg like '%AHL_VWP_PRD_MR_ASSOC_FAIL%') THEN
4545: IF (l_log_statement >= l_log_current_level) THEN
4546: fnd_log.string
4547: ( l_log_statement,
4548: L_DEBUG_KEY,
4549: 'visit id= '||l_visit_rec.visit_id || 'Had problems with the MRs associated. So arrival visit creation is not successful.');
4550: END IF;
4551: x_return_status := FND_API.G_RET_STS_SUCCESS;
4552: p_is_creation_success := 'N'; -- Flag as creation of visit failed due to validations
4553: -- Remove message from FND
4554: FND_MSG_PUB.Delete_Msg(p_msg_index => FND_MSG_PUB.count_msg);
4555:
4565: fnd_log.string(l_log_statement,
4566: L_DEBUG_KEY,
4567: 'Errors from Create_Visit. Message count: ' || x_msg_count);
4568: END IF;
4569: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4570: RAISE FND_API.G_EXC_ERROR;
4571: ELSE
4572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4573: END IF;
4566: L_DEBUG_KEY,
4567: 'Errors from Create_Visit. Message count: ' || x_msg_count);
4568: END IF;
4569: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4570: RAISE FND_API.G_EXC_ERROR;
4571: ELSE
4572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4573: END IF;
4574: END IF;
4568: END IF;
4569: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4570: RAISE FND_API.G_EXC_ERROR;
4571: ELSE
4572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4573: END IF;
4574: END IF;
4575: ELSE
4576: x_return_status := l_return_status ;
4590: L_DEBUG_KEY ||'.end',
4591: 'At the end of PL SQL function.');
4592: END IF;
4593: EXCEPTION
4594: WHEN FND_API.G_EXC_ERROR THEN
4595: x_return_status := FND_API.G_RET_STS_ERROR;
4596: ROLLBACK TO Create_Arr_visit_pvt;
4597: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4598: p_data => x_msg_data,
4591: 'At the end of PL SQL function.');
4592: END IF;
4593: EXCEPTION
4594: WHEN FND_API.G_EXC_ERROR THEN
4595: x_return_status := FND_API.G_RET_STS_ERROR;
4596: ROLLBACK TO Create_Arr_visit_pvt;
4597: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4598: p_data => x_msg_data,
4599: p_encoded => fnd_api.g_false);
4595: x_return_status := FND_API.G_RET_STS_ERROR;
4596: ROLLBACK TO Create_Arr_visit_pvt;
4597: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4598: p_data => x_msg_data,
4599: p_encoded => fnd_api.g_false);
4600:
4601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4603: ROLLBACK TO Create_Arr_visit_pvt;
4597: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4598: p_data => x_msg_data,
4599: p_encoded => fnd_api.g_false);
4600:
4601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4603: ROLLBACK TO Create_Arr_visit_pvt;
4604: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4605: p_data => x_msg_data,
4598: p_data => x_msg_data,
4599: p_encoded => fnd_api.g_false);
4600:
4601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4603: ROLLBACK TO Create_Arr_visit_pvt;
4604: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4605: p_data => x_msg_data,
4606: p_encoded => fnd_api.g_false);
4602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4603: ROLLBACK TO Create_Arr_visit_pvt;
4604: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4605: p_data => x_msg_data,
4606: p_encoded => fnd_api.g_false);
4607:
4608: WHEN OTHERS THEN
4609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4610: ROLLBACK TO Create_Arr_visit_pvt;
4605: p_data => x_msg_data,
4606: p_encoded => fnd_api.g_false);
4607:
4608: WHEN OTHERS THEN
4609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4610: ROLLBACK TO Create_Arr_visit_pvt;
4611: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4612: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4613: p_procedure_name => 'Create_Arrival_visit',
4614: p_error_text => SUBSTR(SQLERRM,1,500));
4615: END IF;
4616: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4617: p_data => x_msg_data,
4618: p_encoded => fnd_api.g_false);
4619: END Create_Arrival_visit;
4620:
4621: ---------------------------------------------------------------------------------------
4622: -- PROCEDURE
4714: 'At the start of PL SQL function.');
4715: END IF;
4716:
4717: -- initialize procedure return status to success
4718: x_return_status := FND_API.G_RET_STS_SUCCESS;
4719:
4720: -- Bug 14336467 :: PRAKKUM :: 13/07/2012
4721: p_is_creation_success := 'Y'; -- Initialize to success
4722:
4827: 'After calling AHL_VWP_VISITS_PVT.Create_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
4828: END IF;
4829:
4830: -- SATRAJEN :: Bug 14336467 :: Prevent Erroring out when the called from Operational Visit Procedure. :: START
4831: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4832: l_pub_msg := FND_MSG_PUB.Get_Detail (p_msg_index => FND_MSG_PUB.G_LAST);
4833: IF (l_pub_msg like '%AHL_VWP_PRD_MR_ASSOC_FAIL%') THEN
4834: IF (l_log_statement >= l_log_current_level) THEN
4835: fnd_log.string
4836: ( l_log_statement,
4837: L_DEBUG_KEY,
4838: 'visit id= '||l_visit_rec.visit_id || 'Had problems with the MRs associated. So downtime visit creation is not successful. ');
4839: END IF;
4840: x_return_status := FND_API.G_RET_STS_SUCCESS;
4841: p_is_creation_success := 'N'; -- Flag as creation of visit failed due to validations
4842: -- Remove message from FND
4843: FND_MSG_PUB.Delete_Msg(p_msg_index => FND_MSG_PUB.count_msg);
4844: fnd_file.put_line(fnd_file.log, 'Validation Failure: Had problems with the MRs associated. So downtime visit creation for flight '||flt_dets_rec.flight_number||' is not successful.');
4849: fnd_log.string(l_log_statement,
4850: L_DEBUG_KEY,
4851: 'Errors from Create_Visit. Message count: ' || x_msg_count);
4852: END IF;
4853: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4854: RAISE FND_API.G_EXC_ERROR;
4855: ELSE
4856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4857: END IF;
4850: L_DEBUG_KEY,
4851: 'Errors from Create_Visit. Message count: ' || x_msg_count);
4852: END IF;
4853: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4854: RAISE FND_API.G_EXC_ERROR;
4855: ELSE
4856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4857: END IF;
4858: END IF;
4852: END IF;
4853: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4854: RAISE FND_API.G_EXC_ERROR;
4855: ELSE
4856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4857: END IF;
4858: END IF;
4859: ELSE
4860: x_return_status := l_return_status ;
4874: L_DEBUG_KEY ||'.end',
4875: 'At the end of PL SQL function.');
4876: END IF;
4877: EXCEPTION
4878: WHEN FND_API.G_EXC_ERROR THEN
4879: x_return_status := FND_API.G_RET_STS_ERROR;
4880: ROLLBACK TO Create_Downtime_visit_pvt;
4881: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4882: p_data => x_msg_data,
4875: 'At the end of PL SQL function.');
4876: END IF;
4877: EXCEPTION
4878: WHEN FND_API.G_EXC_ERROR THEN
4879: x_return_status := FND_API.G_RET_STS_ERROR;
4880: ROLLBACK TO Create_Downtime_visit_pvt;
4881: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4882: p_data => x_msg_data,
4883: p_encoded => fnd_api.g_false);
4879: x_return_status := FND_API.G_RET_STS_ERROR;
4880: ROLLBACK TO Create_Downtime_visit_pvt;
4881: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4882: p_data => x_msg_data,
4883: p_encoded => fnd_api.g_false);
4884:
4885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4887: ROLLBACK TO Create_Downtime_visit_pvt;
4881: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4882: p_data => x_msg_data,
4883: p_encoded => fnd_api.g_false);
4884:
4885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4887: ROLLBACK TO Create_Downtime_visit_pvt;
4888: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4889: p_data => x_msg_data,
4882: p_data => x_msg_data,
4883: p_encoded => fnd_api.g_false);
4884:
4885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4887: ROLLBACK TO Create_Downtime_visit_pvt;
4888: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4889: p_data => x_msg_data,
4890: p_encoded => fnd_api.g_false);
4886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4887: ROLLBACK TO Create_Downtime_visit_pvt;
4888: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4889: p_data => x_msg_data,
4890: p_encoded => fnd_api.g_false);
4891:
4892: WHEN OTHERS THEN
4893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4894: ROLLBACK TO Create_Downtime_visit_pvt;
4889: p_data => x_msg_data,
4890: p_encoded => fnd_api.g_false);
4891:
4892: WHEN OTHERS THEN
4893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4894: ROLLBACK TO Create_Downtime_visit_pvt;
4895: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4896: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4897: p_procedure_name => 'Create_Downtime_visit',
4898: p_error_text => SUBSTR(SQLERRM,1,500));
4899: END IF;
4900: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4901: p_data => x_msg_data,
4902: p_encoded => fnd_api.g_false);
4903: END Create_Downtime_visit;
4904:
4905: ---------------------------------------------------------------------------------------
4906: -- PROCEDURE
4978: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
4979: 'After calling AHL_VWP_VISITS_PVT.Delete_Visit, l_return_status= '||l_return_status);
4980: END IF;
4981: x_return_status := l_return_status ;
4982: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4983: l_msg_count := FND_MSG_PUB.count_msg;
4984: IF (l_log_statement >= l_log_current_level) THEN
4985: fnd_log.string(l_log_statement,
4986: L_DEBUG_KEY,
4985: fnd_log.string(l_log_statement,
4986: L_DEBUG_KEY,
4987: 'Errors from Delete_Visit. Message count: ' || l_msg_count);
4988: END IF;
4989: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4990: RAISE FND_API.G_EXC_ERROR;
4991: ELSE
4992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4993: END IF;
4986: L_DEBUG_KEY,
4987: 'Errors from Delete_Visit. Message count: ' || l_msg_count);
4988: END IF;
4989: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4990: RAISE FND_API.G_EXC_ERROR;
4991: ELSE
4992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4993: END IF;
4994: END IF; -- Return Status is not Success
4988: END IF;
4989: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4990: RAISE FND_API.G_EXC_ERROR;
4991: ELSE
4992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4993: END IF;
4994: END IF; -- Return Status is not Success
4995:
4996: -- Also send a visit cancel notification
4998: IF l_ue_ids is not null then
4999: AHL_AVF_OPER_VSTS_PVT.Launch_Visit_Can_Notification (
5000: p_visit_id => p_visit_id,
5001: p_ue_ids => l_ue_ids,
5002: p_commit => Fnd_Api.g_false ,
5003: x_item_key => x_item_key,
5004: x_return_status => l_return_status );
5005: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5006: l_msg_count := FND_MSG_PUB.count_msg;
5001: p_ue_ids => l_ue_ids,
5002: p_commit => Fnd_Api.g_false ,
5003: x_item_key => x_item_key,
5004: x_return_status => l_return_status );
5005: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5006: l_msg_count := FND_MSG_PUB.count_msg;
5007: IF (l_log_statement >= l_log_current_level) THEN
5008: fnd_log.string(l_log_statement,
5009: L_DEBUG_KEY,
5008: fnd_log.string(l_log_statement,
5009: L_DEBUG_KEY,
5010: 'Errors from Launch_Visit_Can_Notification ' );
5011: END IF;
5012: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5013: RAISE FND_API.G_EXC_ERROR;
5014: ELSE
5015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5016: END IF;
5009: L_DEBUG_KEY,
5010: 'Errors from Launch_Visit_Can_Notification ' );
5011: END IF;
5012: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5013: RAISE FND_API.G_EXC_ERROR;
5014: ELSE
5015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5016: END IF;
5017: END IF; -- Return Status is not Success
5011: END IF;
5012: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5013: RAISE FND_API.G_EXC_ERROR;
5014: ELSE
5015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5016: END IF;
5017: END IF; -- Return Status is not Success
5018: END IF; --IF l_ue_ids is not null then
5019:
5065: -- 1. Initialize error message stack by default
5066: FND_MSG_PUB.Initialize;
5067:
5068: -- Standard call to check for call compatibility
5069: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5070: retcode := 2;
5071: errbuf := FND_MSG_PUB.Get;
5072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5073: END IF;
5068: -- Standard call to check for call compatibility
5069: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5070: retcode := 2;
5071: errbuf := FND_MSG_PUB.Get;
5072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5073: END IF;
5074:
5075: -- 2. Dump all input parameters
5076: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
5086: fnd_file.put_line(fnd_file.log, 'before calling Create_Oper_Visit');
5087:
5088: Create_Oper_Visit (
5089: p_api_version => 1.0,
5090: p_init_msg_list => FND_API.G_FALSE,
5091: p_commit => FND_API.G_FALSE,
5092: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5093: x_return_status => l_return_status,
5094: x_msg_count => l_msg_count,
5087:
5088: Create_Oper_Visit (
5089: p_api_version => 1.0,
5090: p_init_msg_list => FND_API.G_FALSE,
5091: p_commit => FND_API.G_FALSE,
5092: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5093: x_return_status => l_return_status,
5094: x_msg_count => l_msg_count,
5095: x_msg_data => l_msg_data
5088: Create_Oper_Visit (
5089: p_api_version => 1.0,
5090: p_init_msg_list => FND_API.G_FALSE,
5091: p_commit => FND_API.G_FALSE,
5092: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5093: x_return_status => l_return_status,
5094: x_msg_count => l_msg_count,
5095: x_msg_data => l_msg_data
5096: );
5097:
5098: l_msg_count := FND_MSG_PUB.Count_Msg;
5099: IF (l_msg_count > 0) THEN
5100: fnd_file.put_line(fnd_file.log, 'Following error occured during the call to Create_Oper_Visit..');
5101: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5102: RAISE FND_API.G_EXC_ERROR;
5103: ELSE
5104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5105: END IF;
5098: l_msg_count := FND_MSG_PUB.Count_Msg;
5099: IF (l_msg_count > 0) THEN
5100: fnd_file.put_line(fnd_file.log, 'Following error occured during the call to Create_Oper_Visit..');
5101: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5102: RAISE FND_API.G_EXC_ERROR;
5103: ELSE
5104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5105: END IF;
5106: ELSE
5100: fnd_file.put_line(fnd_file.log, 'Following error occured during the call to Create_Oper_Visit..');
5101: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5102: RAISE FND_API.G_EXC_ERROR;
5103: ELSE
5104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5105: END IF;
5106: ELSE
5107: COMMIT WORK;
5108: END IF;
5113: fnd_file.put_line(fnd_file.log, 'before calling Update_Oper_Visit');
5114:
5115: Update_Oper_Visit (
5116: p_api_version => 1.0,
5117: p_init_msg_list => FND_API.G_FALSE,
5118: p_commit => FND_API.G_FALSE,
5119: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5120: x_return_status => l_return_status,
5121: x_msg_count => l_msg_count,
5114:
5115: Update_Oper_Visit (
5116: p_api_version => 1.0,
5117: p_init_msg_list => FND_API.G_FALSE,
5118: p_commit => FND_API.G_FALSE,
5119: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5120: x_return_status => l_return_status,
5121: x_msg_count => l_msg_count,
5122: x_msg_data => l_msg_data
5115: Update_Oper_Visit (
5116: p_api_version => 1.0,
5117: p_init_msg_list => FND_API.G_FALSE,
5118: p_commit => FND_API.G_FALSE,
5119: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5120: x_return_status => l_return_status,
5121: x_msg_count => l_msg_count,
5122: x_msg_data => l_msg_data
5123: );
5124:
5125: l_msg_count := FND_MSG_PUB.Count_Msg;
5126: IF (l_msg_count > 0) THEN
5127: fnd_file.put_line(fnd_file.log, 'Following error occured during the call to Update_Oper_Visit..');
5128: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5129: RAISE FND_API.G_EXC_ERROR;
5130: ELSE
5131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5132: END IF;
5125: l_msg_count := FND_MSG_PUB.Count_Msg;
5126: IF (l_msg_count > 0) THEN
5127: fnd_file.put_line(fnd_file.log, 'Following error occured during the call to Update_Oper_Visit..');
5128: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5129: RAISE FND_API.G_EXC_ERROR;
5130: ELSE
5131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5132: END IF;
5133: ELSE
5127: fnd_file.put_line(fnd_file.log, 'Following error occured during the call to Update_Oper_Visit..');
5128: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5129: RAISE FND_API.G_EXC_ERROR;
5130: ELSE
5131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5132: END IF;
5133: ELSE
5134: COMMIT WORK;
5135: END IF;
5136:
5137: END IF;
5138:
5139: EXCEPTION
5140: WHEN FND_API.G_EXC_ERROR THEN
5141: ROLLBACK TO Process_Operational_visits;
5142: retcode := 2;
5143: FOR i IN 1..l_msg_count
5144: LOOP
5142: retcode := 2;
5143: FOR i IN 1..l_msg_count
5144: LOOP
5145: fnd_msg_pub.get( p_msg_index => i,
5146: p_encoded => FND_API.G_FALSE,
5147: p_data => l_err_msg,
5148: p_msg_index_out => l_msg_index_out);
5149:
5150: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
5150: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
5151: END LOOP;
5152:
5153:
5154: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5155: ROLLBACK TO Process_Operational_visits;
5156: retcode := 2;
5157: l_msg_count := Fnd_Msg_Pub.count_msg;
5158: FOR i IN 1..l_msg_count
5157: l_msg_count := Fnd_Msg_Pub.count_msg;
5158: FOR i IN 1..l_msg_count
5159: LOOP
5160: fnd_msg_pub.get( p_msg_index => i,
5161: p_encoded => FND_API.G_FALSE,
5162: p_data => l_err_msg,
5163: p_msg_index_out => l_msg_index_out);
5164:
5165: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
5177: l_msg_count := Fnd_Msg_Pub.count_msg;
5178: FOR i IN 1..l_msg_count
5179: LOOP
5180: fnd_msg_pub.get( p_msg_index => i,
5181: p_encoded => FND_API.G_FALSE,
5182: p_data => l_err_msg,
5183: p_msg_index_out => l_msg_index_out);
5184:
5185: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
5202: -- p_commit IN Commit flag. Workflow will be launched only Required
5203: -- after a commit.
5204: -- x_item_key OUT Item key of the launched notification Required
5205: -- x_return_status OUT Return status. Item key to be used only if Required
5206: -- this status is FND_API.G_RET_STS_SUCCESS.
5207: --
5208: -- End of Comments
5209:
5210: PROCEDURE Launch_Visit_Can_Notification (
5209:
5210: PROCEDURE Launch_Visit_Can_Notification (
5211: p_visit_id IN NUMBER,
5212: p_ue_ids IN VARCHAR2,
5213: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5214: x_item_key OUT NOCOPY VARCHAR2,
5215: x_return_status OUT NOCOPY VARCHAR2
5216: ) IS
5217:
5232: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
5233: END IF;
5234:
5235: -- initialize procedure return status to success
5236: x_return_status := FND_API.G_RET_STS_SUCCESS;
5237:
5238: IF (l_log_statement >= l_log_current_level) THEN
5239: FND_LOG.string(l_log_statement, l_full_name, 'the arguments: '||
5240: ' Visit ID > '||p_visit_id||
5243: END IF;
5244:
5245: -- check for the Visit Id
5246: IF (p_visit_id IS NULL) THEN
5247: x_return_status := FND_API.G_RET_STS_ERROR;
5248: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_VWP_INVALID_VST'); -- Visit id is invalid.
5249: FND_MESSAGE.Set_Token('VISIT_ID', p_visit_id);
5250: FND_MSG_PUB.ADD;
5251: RETURN;
5252: END IF;
5253:
5254: -- check for the Unit Effectivity ID
5255: IF (p_ue_ids IS NULL) THEN
5256: x_return_status := FND_API.G_RET_STS_ERROR;
5257: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UMP_UE_ID_INVALID'); -- Unit Effectivity Id (UEID) is invalid
5258: FND_MESSAGE.Set_Token('UEID', p_ue_ids);
5259: FND_MSG_PUB.ADD;
5260: RETURN;
5278: ', x_return_status > '||x_return_status);
5279: END IF;
5280:
5281: -- if returned with error, don't proceed any further
5282: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5283: RETURN;
5284: END IF;
5285:
5286: -- if the mapping is active, call the notification API
5325: ', x_return_status > '||x_return_status);
5326: END IF;
5327:
5328: -- if returned with error, don't proceed any further
5329: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5330: RETURN;
5331: END IF;
5332: END IF;
5333:
5331: END IF;
5332: END IF;
5333:
5334: -- Standard check of p_commit
5335: IF FND_API.TO_BOOLEAN(p_commit) THEN
5336: COMMIT WORK;
5337: END IF;
5338:
5339: IF (l_log_procedure >= l_log_current_level) THEN
5358: -- p_commit IN Commit flag. Workflow will be launched only Required
5359: -- after a commit.
5360: -- x_item_key OUT Item key of the launched notification Required
5361: -- x_return_status OUT Return status. Item key to be used only if Required
5362: -- this status is FND_API.G_RET_STS_SUCCESS.
5363: --
5364: -- End of Comments
5365:
5366: PROCEDURE Launch_Visit_SCE_Notification (
5365:
5366: PROCEDURE Launch_Visit_SCE_Notification (
5367: p_visit_id IN NUMBER,
5368: p_ue_ids IN VARCHAR2,
5369: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5370: x_item_key OUT NOCOPY VARCHAR2,
5371: x_return_status OUT NOCOPY VARCHAR2
5372: ) IS
5373:
5388: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
5389: END IF;
5390:
5391: -- initialize procedure return status to success
5392: x_return_status := FND_API.G_RET_STS_SUCCESS;
5393:
5394: IF (l_log_statement >= l_log_current_level) THEN
5395: FND_LOG.string(l_log_statement, l_full_name, 'the arguments: '||
5396: ' Visit ID > '||p_visit_id||
5399: END IF;
5400:
5401: -- check for the Visit Id
5402: IF (p_visit_id IS NULL) THEN
5403: x_return_status := FND_API.G_RET_STS_ERROR;
5404: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_VWP_INVALID_VST'); -- Visit id is invalid.
5405: FND_MESSAGE.Set_Token('VISIT_ID', p_visit_id);
5406: FND_MSG_PUB.ADD;
5407: RETURN;
5408: END IF;
5409:
5410: -- check for the Unit Effectivity ID
5411: IF (p_ue_ids IS NULL) THEN
5412: x_return_status := FND_API.G_RET_STS_ERROR;
5413: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UMP_UE_ID_INVALID'); -- Unit Effectivity Id (UEID) is invalid
5414: FND_MESSAGE.Set_Token('UEID', p_ue_ids);
5415: FND_MSG_PUB.ADD;
5416: RETURN;
5434: ', x_return_status > '||x_return_status);
5435: END IF;
5436:
5437: -- if returned with error, don't proceed any further
5438: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5439: RETURN;
5440: END IF;
5441:
5442: -- if the mapping is active, call the notification API
5481: ', x_return_status > '||x_return_status);
5482: END IF;
5483:
5484: -- if returned with error, don't proceed any further
5485: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5486: RETURN;
5487: END IF;
5488: END IF;
5489:
5487: END IF;
5488: END IF;
5489:
5490: -- Standard check of p_commit
5491: IF FND_API.TO_BOOLEAN(p_commit) THEN
5492: COMMIT WORK;
5493: END IF;
5494:
5495: IF (l_log_procedure >= l_log_current_level) THEN
5513: -- p_commit IN Commit flag. Workflow will be launched only Required
5514: -- after a commit.
5515: -- x_item_key OUT Item key of the launched notification Required
5516: -- x_return_status OUT Return status. Item key to be used only if Required
5517: -- this status is FND_API.G_RET_STS_SUCCESS.
5518: --
5519: -- End of Comments
5520:
5521: PROCEDURE Launch_Visit_Disc_Notification (
5520:
5521: PROCEDURE Launch_Visit_Disc_Notification (
5522: p_unit_schedule_id IN NUMBER,
5523: p_visit_ids IN VARCHAR2,
5524: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5525: x_item_key OUT NOCOPY VARCHAR2,
5526: x_return_status OUT NOCOPY VARCHAR2
5527: ) IS
5528:
5543: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
5544: END IF;
5545:
5546: -- initialize procedure return status to success
5547: x_return_status := FND_API.G_RET_STS_SUCCESS;
5548:
5549: IF (l_log_statement >= l_log_current_level) THEN
5550: FND_LOG.string(l_log_statement, l_full_name, 'the arguments: '||
5551: 'Unit Schedule Id > '||p_unit_schedule_id||
5554: END IF;
5555:
5556: -- check for the Visit Id
5557: IF (p_visit_ids IS NULL) THEN
5558: x_return_status := FND_API.G_RET_STS_ERROR;
5559: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_VWP_INVALID_VST'); -- Visit id is invalid.
5560: FND_MESSAGE.Set_Token('VISIT_ID', p_visit_ids);
5561: FND_MSG_PUB.ADD;
5562: RETURN;
5563: END IF;
5564:
5565: -- check for the Flight Schedule
5566: IF (p_unit_schedule_id IS NULL) THEN
5567: x_return_status := FND_API.G_RET_STS_ERROR;
5568: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UA_US_NOT_FOUND'); -- Flight Schedule (RECORD) does not exist.
5569: FND_MESSAGE.Set_Token('RECORD', p_unit_schedule_id);
5570: FND_MSG_PUB.ADD;
5571: RETURN;
5589: ', x_return_status > '||x_return_status);
5590: END IF;
5591:
5592: -- if returned with error, don't proceed any further
5593: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5594: RETURN;
5595: END IF;
5596:
5597: -- if the mapping is active, call the notification API
5636: ', x_return_status > '||x_return_status);
5637: END IF;
5638:
5639: -- if returned with error, don't proceed any further
5640: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5641: RETURN;
5642: END IF;
5643: END IF;
5644:
5642: END IF;
5643: END IF;
5644:
5645: -- Standard check of p_commit
5646: IF FND_API.TO_BOOLEAN(p_commit) THEN
5647: COMMIT WORK;
5648: END IF;
5649:
5650: IF (l_log_procedure >= l_log_current_level) THEN
5668: -- p_commit IN Commit flag. Workflow will be launched only Required
5669: -- after a commit.
5670: -- x_item_key OUT Item key of the launched notification Required
5671: -- x_return_status OUT Return status. Item key to be used only if Required
5672: -- this status is FND_API.G_RET_STS_SUCCESS.
5673: --
5674: -- End of Comments
5675:
5676: PROCEDURE Launch_Visit_Dur_Notification (
5675:
5676: PROCEDURE Launch_Visit_Dur_Notification (
5677: p_unit_schedule_id IN NUMBER,
5678: p_visit_ids IN VARCHAR2,
5679: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5680: x_item_key OUT NOCOPY VARCHAR2,
5681: x_return_status OUT NOCOPY VARCHAR2
5682: ) IS
5683:
5698: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
5699: END IF;
5700:
5701: -- initialize procedure return status to success
5702: x_return_status := FND_API.G_RET_STS_SUCCESS;
5703:
5704: IF (l_log_statement >= l_log_current_level) THEN
5705: FND_LOG.string(l_log_statement, l_full_name, 'the arguments: '||
5706: 'Unit Schedule Id > '||p_unit_schedule_id||
5709: END IF;
5710:
5711: -- check for the Visit Id
5712: IF (p_visit_ids IS NULL) THEN
5713: x_return_status := FND_API.G_RET_STS_ERROR;
5714: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_VWP_INVALID_VST'); -- Visit id is invalid.
5715: FND_MESSAGE.Set_Token('VISIT_ID', p_visit_ids);
5716: FND_MSG_PUB.ADD;
5717: RETURN;
5718: END IF;
5719:
5720: -- check for the Flight Schedule
5721: IF (p_unit_schedule_id IS NULL) THEN
5722: x_return_status := FND_API.G_RET_STS_ERROR;
5723: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UA_US_NOT_FOUND'); -- Flight Schedule (RECORD) does not exist.
5724: FND_MESSAGE.Set_Token('RECORD', p_unit_schedule_id);
5725: FND_MSG_PUB.ADD;
5726: RETURN;
5744: ', x_return_status > '||x_return_status);
5745: END IF;
5746:
5747: -- if returned with error, don't proceed any further
5748: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5749: RETURN;
5750: END IF;
5751:
5752: -- if the mapping is active, call the notification API
5791: ', x_return_status > '||x_return_status);
5792: END IF;
5793:
5794: -- if returned with error, don't proceed any further
5795: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5796: RETURN;
5797: END IF;
5798: END IF;
5799:
5797: END IF;
5798: END IF;
5799:
5800: -- Standard check of p_commit
5801: IF FND_API.TO_BOOLEAN(p_commit) THEN
5802: COMMIT WORK;
5803: END IF;
5804:
5805: IF (l_log_procedure >= l_log_current_level) THEN
5823: -- p_visit_id2 IN Visit Id Optional
5824: -- l_can_cancel_visit OUT Flag denotes whether Visit with p_visit_id can be cancelled
5825: -- l_can_cancel_visit2 OUT Flag denotes whether Visit with p_visit_id2 can be cancelled
5826: -- x_return_status OUT Return status. Item key to be used only if Required
5827: -- this status is FND_API.G_RET_STS_SUCCESS.
5828: --
5829: -- End of Comments
5830:
5831: PROCEDURE Load_Can_Cancel_Visit (
5860: -- Standard start of API savepoint
5861: SAVEPOINT Load_Can_Cancel_Visit;
5862:
5863: -- initialize procedure return status to success
5864: x_return_status := FND_API.G_RET_STS_SUCCESS;
5865:
5866: IF (l_log_statement >= l_log_current_level) THEN
5867: FND_LOG.string(l_log_statement, l_full_name, 'the arguments: '||
5868: 'p_visit_id --@> '||p_visit_id||
5896: END IF;
5897:
5898: EXCEPTION
5899:
5900: WHEN FND_API.G_EXC_ERROR THEN
5901:
5902: x_return_status := FND_API.G_RET_STS_ERROR;
5903: ROLLBACK TO Load_Can_Cancel_Visit;
5904: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5898: EXCEPTION
5899:
5900: WHEN FND_API.G_EXC_ERROR THEN
5901:
5902: x_return_status := FND_API.G_RET_STS_ERROR;
5903: ROLLBACK TO Load_Can_Cancel_Visit;
5904: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5905: p_data => x_msg_data,
5906: p_encoded => fnd_api.g_false);
5902: x_return_status := FND_API.G_RET_STS_ERROR;
5903: ROLLBACK TO Load_Can_Cancel_Visit;
5904: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5905: p_data => x_msg_data,
5906: p_encoded => fnd_api.g_false);
5907:
5908: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5910: ROLLBACK TO Load_Can_Cancel_Visit;
5904: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5905: p_data => x_msg_data,
5906: p_encoded => fnd_api.g_false);
5907:
5908: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5910: ROLLBACK TO Load_Can_Cancel_Visit;
5911: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5912: p_data => x_msg_data,
5905: p_data => x_msg_data,
5906: p_encoded => fnd_api.g_false);
5907:
5908: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5910: ROLLBACK TO Load_Can_Cancel_Visit;
5911: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5912: p_data => x_msg_data,
5913: p_encoded => fnd_api.g_false);
5909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5910: ROLLBACK TO Load_Can_Cancel_Visit;
5911: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5912: p_data => x_msg_data,
5913: p_encoded => fnd_api.g_false);
5914:
5915: WHEN OTHERS THEN
5916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5917: ROLLBACK TO Load_Can_Cancel_Visit;
5912: p_data => x_msg_data,
5913: p_encoded => fnd_api.g_false);
5914:
5915: WHEN OTHERS THEN
5916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5917: ROLLBACK TO Load_Can_Cancel_Visit;
5918:
5919: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5920: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5923: END IF;
5924:
5925: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5926: p_data => x_msg_data,
5927: p_encoded => fnd_api.g_false);
5928:
5929: END Load_Can_Cancel_Visit;
5930: -- PRAKKUM :: Bug 13844759 :: 26/07/2012 :: END
5931:
5940: -- Launch_Visit_Dur_Notification Parameters:
5941: -- p_visit_id IN Visit Id Required
5942: -- p_unit_schedule_id IN Unit Schedule Id Required
5943: -- x_return_status OUT Return status. Item key to be used only if Required
5944: -- this status is FND_API.G_RET_STS_SUCCESS.
5945: --
5946: -- End of Comments
5947:
5948: PROCEDURE Disconnect_Flight_Visit (
5976: -- Standard start of API savepoint
5977: SAVEPOINT Disconnect_Flight_Visit;
5978:
5979: -- initialize procedure return status to success
5980: x_return_status := FND_API.G_RET_STS_SUCCESS;
5981:
5982: IF (l_log_statement >= l_log_current_level) THEN
5983: FND_LOG.string(l_log_statement, l_full_name, 'the arguments: '||
5984: 'p_visit_id --@> '||p_visit_id||
5996: -- Send a visit disconnect notification
5997: AHL_AVF_OPER_VSTS_PVT.Launch_Visit_Disc_Notification (
5998: p_unit_schedule_id => p_unit_schedule_id,
5999: p_visit_ids => p_visit_id,
6000: p_commit => Fnd_Api.g_false ,
6001: x_item_key => x_item_key,
6002: x_return_status => l_return_status );
6003: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6004: x_msg_count := FND_MSG_PUB.count_msg;
5999: p_visit_ids => p_visit_id,
6000: p_commit => Fnd_Api.g_false ,
6001: x_item_key => x_item_key,
6002: x_return_status => l_return_status );
6003: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6004: x_msg_count := FND_MSG_PUB.count_msg;
6005: IF (l_log_statement >= l_log_current_level) THEN
6006: fnd_log.string(l_log_statement,
6007: l_full_name,
6006: fnd_log.string(l_log_statement,
6007: l_full_name,
6008: 'Errors from Launch_Visit_Disc_Notification ' );
6009: END IF;
6010: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6011: RAISE FND_API.G_EXC_ERROR;
6012: ELSE
6013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6014: END IF;
6007: l_full_name,
6008: 'Errors from Launch_Visit_Disc_Notification ' );
6009: END IF;
6010: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6011: RAISE FND_API.G_EXC_ERROR;
6012: ELSE
6013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6014: END IF;
6015: END IF; -- Return Status is not Success
6009: END IF;
6010: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6011: RAISE FND_API.G_EXC_ERROR;
6012: ELSE
6013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6014: END IF;
6015: END IF; -- Return Status is not Success
6016:
6017: -- For Logging :: START
6039: END IF;
6040:
6041: EXCEPTION
6042:
6043: WHEN FND_API.G_EXC_ERROR THEN
6044:
6045: x_return_status := FND_API.G_RET_STS_ERROR;
6046: ROLLBACK TO Disconnect_Flight_Visit;
6047: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6041: EXCEPTION
6042:
6043: WHEN FND_API.G_EXC_ERROR THEN
6044:
6045: x_return_status := FND_API.G_RET_STS_ERROR;
6046: ROLLBACK TO Disconnect_Flight_Visit;
6047: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6048: p_data => x_msg_data,
6049: p_encoded => fnd_api.g_false);
6045: x_return_status := FND_API.G_RET_STS_ERROR;
6046: ROLLBACK TO Disconnect_Flight_Visit;
6047: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6048: p_data => x_msg_data,
6049: p_encoded => fnd_api.g_false);
6050:
6051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6053: ROLLBACK TO Disconnect_Flight_Visit;
6047: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6048: p_data => x_msg_data,
6049: p_encoded => fnd_api.g_false);
6050:
6051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6053: ROLLBACK TO Disconnect_Flight_Visit;
6054: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6055: p_data => x_msg_data,
6048: p_data => x_msg_data,
6049: p_encoded => fnd_api.g_false);
6050:
6051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6053: ROLLBACK TO Disconnect_Flight_Visit;
6054: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6055: p_data => x_msg_data,
6056: p_encoded => fnd_api.g_false);
6052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6053: ROLLBACK TO Disconnect_Flight_Visit;
6054: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6055: p_data => x_msg_data,
6056: p_encoded => fnd_api.g_false);
6057:
6058: WHEN OTHERS THEN
6059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6060: ROLLBACK TO Disconnect_Flight_Visit;
6055: p_data => x_msg_data,
6056: p_encoded => fnd_api.g_false);
6057:
6058: WHEN OTHERS THEN
6059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6060: ROLLBACK TO Disconnect_Flight_Visit;
6061:
6062: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6063: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6066: END IF;
6067:
6068: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6069: p_data => x_msg_data,
6070: p_encoded => fnd_api.g_false);
6071:
6072: END Disconnect_Flight_Visit;
6073:
6074: END AHL_AVF_OPER_VSTS_PVT;