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
304: x_return_status := FND_API.G_RET_STS_SUCCESS;
1211: IF Fnd_Api.To_Boolean (p_commit) THEN
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: );
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);
1236:
1237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
1243:
1244: WHEN OTHERS THEN
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,
1250: p_procedure_name => 'Create_Oper_Visit',
1251: p_error_text => SUBSTR(SQLERRM,1,500));
1252: END IF;
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,
1250: p_procedure_name => 'Create_Oper_Visit',
1251: p_error_text => SUBSTR(SQLERRM,1,500));
1252: END IF;
1253:
1250: p_procedure_name => 'Create_Oper_Visit',
1251: p_error_text => SUBSTR(SQLERRM,1,500));
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:
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
1715: x_return_status := FND_API.G_RET_STS_SUCCESS;
1883: OPEN c_Visit(l_visit_id);
1884: FETCH c_Visit INTO c_Visit_rec;
1885: IF c_Visit%NOTFOUND THEN
1886: CLOSE c_Visit;
1887: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1888: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
1889: Fnd_Msg_Pub.ADD;
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 );
1885: IF c_Visit%NOTFOUND THEN
1886: CLOSE c_Visit;
1887: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1888: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
1889: Fnd_Msg_Pub.ADD;
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;
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,
1942: 'Errors from Update_Visit. Message count: ' || x_msg_count);
2130: OPEN c_Visit(l_visit_id);
2131: FETCH c_Visit INTO c_Visit_rec;
2132: IF c_Visit%NOTFOUND THEN
2133: CLOSE c_Visit;
2134: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2135: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2136: Fnd_Msg_Pub.ADD;
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 );
2132: IF c_Visit%NOTFOUND THEN
2133: CLOSE c_Visit;
2134: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2135: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2136: Fnd_Msg_Pub.ADD;
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;
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,
2189: 'Errors from Update_Visit. Message count: ' || x_msg_count);
2718: OPEN c_Visit(l_visit_id2);--PRAKKUM :: Bug 14342603 :: 18/07/2012
2719: FETCH c_Visit INTO c_Visit_rec;
2720: IF c_Visit%NOTFOUND THEN
2721: CLOSE c_Visit;
2722: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2723: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2724: Fnd_Msg_Pub.ADD;
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 );
2720: IF c_Visit%NOTFOUND THEN
2721: CLOSE c_Visit;
2722: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2723: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2724: Fnd_Msg_Pub.ADD;
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;
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,
2778: 'Errors from Update_Visit. Message count: ' || x_msg_count);
2871: OPEN c_Visit(l_visit_id);
2872: FETCH c_Visit INTO c_Visit_rec;
2873: IF c_Visit%NOTFOUND THEN
2874: CLOSE c_Visit;
2875: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2876: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2877: Fnd_Msg_Pub.ADD;
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 );
2873: IF c_Visit%NOTFOUND THEN
2874: CLOSE c_Visit;
2875: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2876: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2877: Fnd_Msg_Pub.ADD;
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;
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,
2931: 'Errors from Update_Visit. Message count: ' || x_msg_count);
3071: OPEN c_Visit(l_visit_id);
3072: FETCH c_Visit INTO c_Visit_rec;
3073: IF c_Visit%NOTFOUND THEN
3074: CLOSE c_Visit;
3075: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3076: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
3077: Fnd_Msg_Pub.ADD;
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 );
3073: IF c_Visit%NOTFOUND THEN
3074: CLOSE c_Visit;
3075: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3076: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
3077: Fnd_Msg_Pub.ADD;
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;
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,
3131: 'Errors from Update_Visit. Message count: ' || x_msg_count);
3310: OPEN c_Visit(l_visit_id);
3311: FETCH c_Visit INTO c_Visit_rec;
3312: IF c_Visit%NOTFOUND THEN
3313: CLOSE c_Visit;
3314: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3315: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
3316: Fnd_Msg_Pub.ADD;
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 );
3312: IF c_Visit%NOTFOUND THEN
3313: CLOSE c_Visit;
3314: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3315: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
3316: Fnd_Msg_Pub.ADD;
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;
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,
3370: 'Errors from Update_Visit. Message count: ' || x_msg_count);
3781: OPEN c_Visit(l_visit_id);
3782: FETCH c_Visit INTO c_Visit_rec;
3783: IF c_Visit%NOTFOUND THEN
3784: CLOSE c_Visit;
3785: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3786: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
3787: Fnd_Msg_Pub.ADD;
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 );
3783: IF c_Visit%NOTFOUND THEN
3784: CLOSE c_Visit;
3785: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3786: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
3787: Fnd_Msg_Pub.ADD;
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;
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,
3841: 'Errors from Update_Visit. Message count: ' || x_msg_count);
3929: OPEN c_Visit(l_visit_id);
3930: FETCH c_Visit INTO c_Visit_rec;
3931: IF c_Visit%NOTFOUND THEN
3932: CLOSE c_Visit;
3933: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3934: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
3935: Fnd_Msg_Pub.ADD;
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 );
3931: IF c_Visit%NOTFOUND THEN
3932: CLOSE c_Visit;
3933: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3934: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
3935: Fnd_Msg_Pub.ADD;
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;
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,
3989: 'Errors from Update_Visit. Message count: ' || x_msg_count);
4054: IF Fnd_Api.To_Boolean (p_commit) THEN
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: );
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);
4078:
4079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
4085:
4086: WHEN OTHERS THEN
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,
4092: p_procedure_name => 'Update_Oper_Visit',
4093: p_error_text => SUBSTR(SQLERRM,1,500));
4094: END IF;
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,
4092: p_procedure_name => 'Update_Oper_Visit',
4093: p_error_text => SUBSTR(SQLERRM,1,500));
4094: END IF;
4095:
4092: p_procedure_name => 'Update_Oper_Visit',
4093: p_error_text => SUBSTR(SQLERRM,1,500));
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:
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,
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:
4299: OPEN get_flight_details(p_flight_schedule_rec.unit_schedule_id);
4300: FETCH get_flight_details INTO flt_dets_rec;
4301: CLOSE get_flight_details;
4302:
4303: fnd_file.put_line(fnd_file.log, 'Validation Failure: Had problems with the MRs associated. So departure visit creation for flight '||flt_dets_rec.flight_number||' is not successful.');
4304: ELSE
4305: x_return_status := l_return_status ;
4306: x_msg_count := FND_MSG_PUB.count_msg;
4307: IF (l_log_statement >= l_log_current_level) THEN
4308: fnd_log.string(l_log_statement,
4309: L_DEBUG_KEY,
4310: 'Errors from Create_Visit. Message count: ' || x_msg_count);
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);
4343:
4344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
4350:
4351: WHEN OTHERS THEN
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;
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,
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:
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,
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:
4556: OPEN get_flight_details(p_flight_schedule_rec.unit_schedule_id);
4557: FETCH get_flight_details INTO flt_dets_rec;
4558: CLOSE get_flight_details;
4559:
4560: fnd_file.put_line(fnd_file.log, 'Validation Failure: Had problems with the MRs associated. So arrival visit creation for flight '||flt_dets_rec.flight_number||' is not successful.');
4561: ELSE
4562: x_return_status := l_return_status ;
4563: x_msg_count := FND_MSG_PUB.count_msg;
4564: IF (l_log_statement >= l_log_current_level) THEN
4565: fnd_log.string(l_log_statement,
4566: L_DEBUG_KEY,
4567: 'Errors from Create_Visit. Message count: ' || x_msg_count);
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);
4600:
4601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
4607:
4608: WHEN OTHERS THEN
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;
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,
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:
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,
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.');
4845: ELSE
4846: x_return_status := l_return_status ;
4847: x_msg_count := FND_MSG_PUB.count_msg;
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.');
4845: ELSE
4846: x_return_status := l_return_status ;
4847: x_msg_count := FND_MSG_PUB.count_msg;
4848: IF (l_log_statement >= l_log_current_level) THEN
4849: fnd_log.string(l_log_statement,
4850: L_DEBUG_KEY,
4851: 'Errors from Create_Visit. Message count: ' || x_msg_count);
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);
4884:
4885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
4891:
4892: WHEN OTHERS THEN
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;
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,
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:
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,
4987: 'Errors from Delete_Visit. Message count: ' || l_msg_count);
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,
5010: 'Errors from Launch_Visit_Can_Notification ' );
5062: -- Standard start of API savepoint
5063: SAVEPOINT Process_Operational_visits;
5064:
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;
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;
5074:
5075: -- 2. Dump all input parameters
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;
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;
5141: ROLLBACK TO Process_Operational_visits;
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:
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
5159: LOOP
5160: fnd_msg_pub.get( p_msg_index => i,
5161: p_encoded => FND_API.G_FALSE,
5156: retcode := 2;
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:
5168:
5169: WHEN OTHERS THEN
5170: ROLLBACK TO Process_Operational_visits;
5171: retcode := 2;
5172: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5173: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5174: p_procedure_name => 'Process_Operational_visits',
5175: p_error_text => SUBSTR(SQLERRM,1,500));
5176: END IF;
5169: WHEN OTHERS THEN
5170: ROLLBACK TO Process_Operational_visits;
5171: retcode := 2;
5172: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5173: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5174: p_procedure_name => 'Process_Operational_visits',
5175: p_error_text => SUBSTR(SQLERRM,1,500));
5176: END IF;
5177: l_msg_count := Fnd_Msg_Pub.count_msg;
5173: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5174: p_procedure_name => 'Process_Operational_visits',
5175: p_error_text => SUBSTR(SQLERRM,1,500));
5176: END IF;
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,
5176: END IF;
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:
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;
5261: END IF;
5262:
5263: -- get the details of the Workflow process mapped to the object G_WF_CANC_OBJ
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;
5417: END IF;
5418:
5419: -- get the details of the Workflow process mapped to the object G_WF_VSCE_OBJ
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;
5572: END IF;
5573:
5574: -- get the details of the Workflow process mapped to the object G_WF_DISC_OBJ
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;
5727: END IF;
5728:
5729: -- get the details of the Workflow process mapped to the object G_WF_VDUR_OBJ
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);
5907:
5908: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
5914:
5915: WHEN OTHERS THEN
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,
5921: p_procedure_name => 'Load_Can_Cancel_Visit',
5922: p_error_text => SUBSTR(SQLERRM,1,500));
5923: END IF;
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,
5921: p_procedure_name => 'Load_Can_Cancel_Visit',
5922: p_error_text => SUBSTR(SQLERRM,1,500));
5923: END IF;
5924:
5921: p_procedure_name => 'Load_Can_Cancel_Visit',
5922: p_error_text => SUBSTR(SQLERRM,1,500));
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;
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,
6008: 'Errors from Launch_Visit_Disc_Notification ' );
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);
6050:
6051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
6057:
6058: WHEN OTHERS THEN
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,
6064: p_procedure_name => 'Disconnect_Flight_Visit',
6065: p_error_text => SUBSTR(SQLERRM,1,500));
6066: END IF;
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,
6064: p_procedure_name => 'Disconnect_Flight_Visit',
6065: p_error_text => SUBSTR(SQLERRM,1,500));
6066: END IF;
6067:
6064: p_procedure_name => 'Disconnect_Flight_Visit',
6065: p_error_text => SUBSTR(SQLERRM,1,500));
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;