The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Delete_Oper_Visit(
p_visit_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2);
SELECT visit_number
FROM ahl_visits_b
WHERE visit_id = c_visit_id;
SELECT *
FROM AHL_UNIT_SCHEDULES
WHERE AUTOVISIT_PROCESS_STATUS = c_status;
SELECT count (*)
FROM ahl_oper_vst_autocreate op, ahl_unit_config_headers uc
WHERE op.enabled_flag = 'Y'
AND uc.unit_config_header_id = c_uc_id
AND (select mc_id from ahl_mc_headers_b where mc_header_id = uc.master_config_id) = op.mc_id
AND op.organization_id = c_org_id;
SELECT count (*)
FROM ahl_oper_vst_autocreate op, ahl_unit_config_headers uc
WHERE op.enabled_flag = 'Y'
AND uc.unit_config_header_id = c_uc_id
AND (select mc_id from ahl_mc_headers_b where mc_header_id = uc.master_config_id) = op.mc_id
AND op.organization_id = c_org_id
AND op.department_id = c_dep_id;
SELECT count (*)
FROM ahl_oper_vst_autocreate op, ahl_unit_config_headers uc
WHERE op.enabled_flag = 'Y'
AND uc.unit_config_header_id = c_uc_id
AND (select mc_id from ahl_mc_headers_b where mc_header_id = uc.master_config_id) = op.mc_id
AND op.organization_id = c_org_id
AND op.department_id = c_dep_id
AND op.flight_category_code = c_flight_cat;
SELECT to_number((succ_fs.EST_DEPARTURE_TIME - prev_fs.EST_ARRIVAL_TIME)*24*60)
FROM AHL_UNIT_SCHEDULES prev_fs, AHL_UNIT_SCHEDULES succ_fs
WHERE prev_fs.UNIT_SCHEDULE_ID = c_prev_fs_id
AND succ_fs.UNIT_SCHEDULE_ID = c_succ_fs_id;
SELECT op.*
FROM ahl_oper_vst_autocreate op, ahl_unit_config_headers uc
WHERE op.enabled_flag = 'Y'
AND uc.unit_config_header_id = c_uc_id
AND (select mc_id from ahl_mc_headers_b where mc_header_id = uc.master_config_id) = op.mc_id
AND ( (op.organization_id = c_org_id)
OR ( c_org_count = 0 -- there are no non-null org rows meeting mc and enabled_flag
AND op.organization_id IS NULL))
AND ( ( c_org_count = 0 )
OR (op.department_id = c_dep_id)
OR ( c_dep_count = 0
AND op.department_id IS NULL))
AND ( (op.flight_category_code = c_cat_code)
OR ( ((c_cat_count = 0) OR ( c_cat_code IS NULL))
AND op.flight_category_code IS NULL))
AND op.create_for = c_create_for
-- if create_for is not downtime, pass null as c_ground_time to this cursor
AND ( (c_ground_time IS NULL)
OR (c_ground_time BETWEEN op.START_TIME AND NVL(op.END_TIME,c_ground_time)));
SELECT UNIT_SCHEDULE_ID, EST_DEPARTURE_TIME FROM AHL_UNIT_SCHEDULES
WHERE preceding_us_id = c_fs_id;
SELECT estimated_duration
FROM ahl_visit_types_b
WHERE visit_type_code = c_visit_type_code
AND mc_id = c_mc_id
AND status_code = 'COMPLETE';
SELECT *
FROM AHL_UNIT_SCHEDULES
WHERE UNIT_SCHEDULE_ID = c_unit_schedule_id;
SELECT 'X'
FROM AHL_VISITS_B
WHERE VISIT_ID = c_visit_id
AND STATUS_CODE = 'PLANNING'
AND NVL(FIRMED_FLAG,'N') <> 'Y'
AND NVL(LOCKED_FLAG,'N') <> 'Y';
SELECT visit_type_code
FROM AHL_VISITS_B
WHERE VISIT_ID = c_visit_id;
Delete_Oper_Visit(
p_visit_id => l_visit_id,
x_return_status => l_return_status);
Delete_Oper_Visit(
p_visit_id => l_visit_id2,
x_return_status => l_return_status);
Delete_Oper_Visit(
p_visit_id => l_visit_id,
x_return_status => l_return_status);
Delete_Oper_Visit(
p_visit_id => l_visit_id2,
x_return_status => l_return_status);
Delete_Oper_Visit(
p_visit_id => l_visit_id2,
x_return_status => l_return_status);
Delete_Oper_Visit(
p_visit_id => l_visit_id,
x_return_status => l_return_status);
Delete_Oper_Visit(
p_visit_id => l_visit_id2,
x_return_status => l_return_status);
Delete_Oper_Visit(
p_visit_id => l_visit_id,
x_return_status => l_return_status);
UPDATE AHL_UNIT_SCHEDULES
set AUTOVISIT_PROCESS_STATUS = 'R',
OBJECT_VERSION_NUMBER = object_version_number + 1,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = Fnd_Global.USER_ID,
LAST_UPDATE_LOGIN = Fnd_Global.LOGIN_ID
WHERE UNIT_SCHEDULE_ID = flight_schedule_rec.UNIT_SCHEDULE_ID;
SELECT visit.visit_type_code, visit.visit_id
FROM ahl_visits_b visit, ahl_unit_schedules flight
WHERE visit.unit_schedule_id = flight.unit_schedule_id
AND visit.organization_id = flight.departure_org_id
AND flight.unit_schedule_id = p_fs_id
AND visit.status_code NOT IN ('DELETED','CANCELLED')
AND ((NVL(visit.auto_visit_type_flag,'X') = 'D')--Departure --TCHIMIRA :: 14-Jun-2012 :: ER 14015560 ::added the condition
OR (visit.auto_visit_type_flag IS NULL )); -- TCHIMIRA:: 28-Jun-2012 :: handle upgrade cases
SELECT visit.visit_type_code, visit.visit_id
FROM ahl_visits_b visit, ahl_unit_schedules flight
WHERE visit.unit_schedule_id = flight.preceding_us_id
AND flight.unit_schedule_id = c_fs_id
AND visit.organization_id = flight.departure_org_id
AND visit.status_code NOT IN ('DELETED','CANCELLED')
AND ((NVL(visit.auto_visit_type_flag,'X') = 'T')--Downtime --TCHIMIRA :: 14-Jun-2012 :: ER 14015560 ::added the condition
OR (visit.auto_visit_type_flag IS NULL -- TCHIMIRA:: 28-Jun-2012 :: handle upgrade cases
AND TO_CHAR(visit.close_date_time,'DD-MON-YYYY HH24:MI') = TO_CHAR(flight.est_departure_time,'DD-MON-YYYY HH24:MI')));
SELECT visit.visit_type_code, visit.visit_id,visit.AUTO_VISIT_TYPE_FLAG
FROM ahl_visits_b visit, ahl_unit_schedules flight
WHERE visit.unit_schedule_id = flight.unit_schedule_id
and visit.organization_id = flight.arrival_org_id
and flight.unit_schedule_id = p_fs_id
AND visit.status_code NOT IN ('DELETED','CANCELLED')
AND ((NVL(visit.auto_visit_type_flag,'X') IN ('A', 'T'))--TCHIMIRA :: 14-Jun-2012 :: ER 14015560 ::added the condition
OR (visit.auto_visit_type_flag IS NULL )); -- TCHIMIRA:: 28-Jun-2012 :: handle upgrade cases
SELECT succ_flight.est_departure_time, visit.close_date_time, visit.visit_type_code, visit.visit_id
FROM ahl_visits_b visit, ahl_unit_schedules flight, ahl_unit_schedules succ_flight
WHERE visit.unit_schedule_id = flight.unit_schedule_id
and visit.organization_id = flight.arrival_org_id
and succ_flight.preceding_us_id(+) = flight.unit_schedule_id
and flight.unit_schedule_id = p_fs_id
AND visit.status_code NOT IN ('DELETED','CANCELLED')
AND flight.est_arrival_time = visit.start_date_time; --JROTICH :: 11-July-2012 added this condition to rule out same org departure visits
SELECT visit.visit_id
FROM ahl_visits_b visit, ahl_unit_schedules flight, ahl_unit_schedules pre_flight
WHERE visit.unit_schedule_id = pre_flight.unit_schedule_id
AND flight.unit_schedule_id = c_fs_id
AND flight.preceding_us_id = pre_flight.unit_schedule_id
AND visit.organization_id = flight.departure_org_id
AND visit.status_code NOT IN ('DELETED','CANCELLED')
AND ((NVL(visit.auto_visit_type_flag,'X') = 'A')--TCHIMIRA :: 14-Jun-2012 :: ER 14015560 ::added the condition
OR (visit.auto_visit_type_flag IS NULL
AND flight.est_departure_time <> visit.close_date_time)); -- TCHIMIRA:: 28-Jun-2012 :: handle upgrade cases
SELECT visit.visit_id
FROM ahl_visits_b visit, ahl_unit_schedules flight, ahl_unit_schedules succ_flight
WHERE visit.unit_schedule_id = succ_flight.unit_schedule_id
and visit.organization_id = flight.arrival_org_id
and succ_flight.preceding_us_id = flight.unit_schedule_id
and flight.unit_schedule_id = p_fs_id
AND visit.status_code NOT IN ('DELETED','CANCELLED')
AND ((NVL(visit.auto_visit_type_flag,'X') = 'D')--TCHIMIRA :: 14-Jun-2012 :: ER 14015560 ::added the condition
OR (visit.auto_visit_type_flag IS NULL
AND TO_CHAR(succ_flight.est_departure_time,'DD-MON-YYYY HH24:MI') = TO_CHAR(visit.close_date_time,'DD-MON-YYYY HH24:MI')
AND flight.est_arrival_time <> visit.start_date_time )); -- TCHIMIRA:: 28-Jun-2012 :: handle upgrade cases
PROCEDURE Update_Oper_Visit (
p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)IS
-- Local Variables
-- Standard in/out parameters
l_api_name VARCHAR2(30) := 'Update_Oper_Visit';
l_can_update_visit VARCHAR2(1); -- added by tchimira for bug 13844759
SELECT visit_number
FROM ahl_visits_b
WHERE visit_id = c_visit_id;
SELECT *
FROM AHL_UNIT_SCHEDULES
WHERE AUTOVISIT_PROCESS_STATUS = c_status;
SELECT count (*)
FROM ahl_oper_vst_autocreate op, ahl_unit_config_headers uc
WHERE op.enabled_flag = 'Y'
AND uc.unit_config_header_id = c_uc_id
AND (select mc_id from ahl_mc_headers_b where mc_header_id = uc.master_config_id) = op.mc_id
AND op.organization_id = c_org_id;
SELECT count (*)
FROM ahl_oper_vst_autocreate op, ahl_unit_config_headers uc
WHERE op.enabled_flag = 'Y'
AND uc.unit_config_header_id = c_uc_id
AND (select mc_id from ahl_mc_headers_b where mc_header_id = uc.master_config_id) = op.mc_id
AND op.organization_id = c_org_id
AND op.department_id = c_dep_id;
SELECT count (*)
FROM ahl_oper_vst_autocreate op, ahl_unit_config_headers uc
WHERE op.enabled_flag = 'Y'
AND uc.unit_config_header_id = c_uc_id
AND (select mc_id from ahl_mc_headers_b where mc_header_id = uc.master_config_id) = op.mc_id
AND op.organization_id = c_org_id
AND op.department_id = c_dep_id
AND op.flight_category_code = c_flight_cat;
SELECT to_number((succ_fs.EST_DEPARTURE_TIME - prev_fs.EST_ARRIVAL_TIME)*24*60)
FROM AHL_UNIT_SCHEDULES prev_fs, AHL_UNIT_SCHEDULES succ_fs
WHERE prev_fs.UNIT_SCHEDULE_ID = c_prev_fs_id
AND succ_fs.UNIT_SCHEDULE_ID = c_succ_fs_id;
SELECT op.*
FROM ahl_oper_vst_autocreate op, ahl_unit_config_headers uc
WHERE op.enabled_flag = 'Y'
AND uc.unit_config_header_id = c_uc_id
AND (select mc_id from ahl_mc_headers_b where mc_header_id = uc.master_config_id) = op.mc_id
AND ( (op.organization_id = c_org_id)
OR ( c_org_count = 0 -- there are no non-null org rows meeting mc and enabled_flag
AND op.organization_id IS NULL))
AND ( ( c_org_count = 0 )
OR (op.department_id = c_dep_id)
OR ( c_dep_count = 0
AND op.department_id IS NULL))
AND ( (op.flight_category_code = c_cat_code)
OR ( ((c_cat_count = 0) OR ( c_cat_code IS NULL))
AND op.flight_category_code IS NULL))
AND op.create_for = c_create_for
-- if create_for is not downtime, pass null as c_ground_time to this cursor
AND ( (c_ground_time IS NULL)
OR (c_ground_time BETWEEN op.START_TIME AND NVL(op.END_TIME,c_ground_time)));
SELECT UNIT_SCHEDULE_ID, EST_DEPARTURE_TIME FROM AHL_UNIT_SCHEDULES
WHERE preceding_us_id = c_fs_id;
SELECT estimated_duration
FROM ahl_visit_types_b
WHERE visit_type_code = c_visit_type_code
AND mc_id = c_mc_id
AND status_code = 'COMPLETE';
SELECT EST_ARRIVAL_TIME
FROM AHL_UNIT_SCHEDULES
WHERE UNIT_SCHEDULE_ID = c_fs_id;
SELECT visit_id, organization_id, locked_flag, firmed_flag, status_code, start_date_time, close_date_time,AUTO_VISIT_TYPE_FLAG
FROM AHL_VISITS_B
WHERE UNIT_SCHEDULE_ID = C_FLIGHT_SCHEDULE_ID
AND status_code NOT IN ('DELETED','CANCELLED')
ORDER BY visit_id asc; --added this condition by tchimira for bug 13828335
SELECT close_date_time
FROM AHL_VISITS_B
WHERE VISIT_ID = c_visit_id;
SELECT *
FROM AHL_UNIT_SCHEDULES
WHERE UNIT_SCHEDULE_ID = c_unit_schedule_id;
SELECT visit_type_code
FROM AHL_VISITS_B
WHERE VISIT_ID = c_visit_id;
SELECT start_date_time
FROM AHL_VISITS_B
WHERE VISIT_ID = c_visit_id;
SELECT * FROM Ahl_Visits_VL
WHERE VISIT_ID = c_visit_id;
SELECT vtyp.estimated_duration
FROM ahl_visit_types_b vtyp, ahl_visits_b visit, ahl_unit_config_headers unit, ahl_mc_headers_b mc
WHERE visit.visit_id = c_visit_id
AND vtyp.visit_type_code = visit.visit_type_code
AND unit.csi_item_instance_id = visit.item_instance_id
AND unit.master_config_id = mc.mc_header_id
AND vtyp.mc_id = mc.mc_id
AND vtyp.status_code = 'COMPLETE';
SELECT 'X'
FROM AHL_VISITS_B
WHERE VISIT_ID = c_visit_id
AND STATUS_CODE = 'PLANNING'
AND NVL(FIRMED_FLAG,'N') <> 'Y'
AND NVL(LOCKED_FLAG,'N') <> 'Y';
SELECT 'X'
FROM org_organization_definitions hou
WHERE hou.organization_id = c_org_id
AND NVL(hou.operating_unit,mo_global.get_current_org_id()) = mo_global.get_current_org_id();
'ahl.plsql.AHL_AVF_OPER_VSTS_PVT.Update_Oper_Visit.begin',
'At the start of PLSQL procedure'
);
SAVEPOINT Update_Oper_Visit_pvt;
Delete_Oper_Visit(
p_visit_id => assoc_visits_rec.visit_id,
x_return_status => l_return_status);
l_can_update_visit := null;
FETCH can_cancel_visit INTO l_can_update_visit;
fnd_log.string(l_log_statement,L_DEBUG_KEY, 'l_visit_end_time is: '||l_visit_end_time||' ,est_departure_time: '||flight_schedule_rec.est_departure_time||', l_can_update_visit is: '||l_can_update_visit);
IF l_can_update_visit IS NOT NULL THEN
IF (l_log_statement >= l_log_current_level) THEN
fnd_log.string(l_log_statement,L_DEBUG_KEY, ' Before type 1 ');
'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);
AHL_VWP_VISITS_PVT.Update_Visit (
p_api_version => l_api_version,
p_init_msg_list => Fnd_Api.g_false,
p_commit => Fnd_Api.g_false,
p_validation_level => p_validation_level,
p_module_type => 'API',
p_x_visit_rec => l_visit_rec,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
'Errors from Update_Visit. Message count: ' || x_msg_count);
END IF; --IF condition to see if l_can_update_visit IS NOT NULL
END IF; -- IF condition to see if the visit dates has to be updated or not.
l_can_update_visit := null;
FETCH can_cancel_visit INTO l_can_update_visit;
IF ((substr (l_visit_type,1,1) <> 'D')OR ( l_can_update_visit IS NULL)) THEN
-- check for the possibility of creating a departure visit;
l_can_update_visit := null;
FETCH can_cancel_visit INTO l_can_update_visit;
fnd_log.string(l_log_statement,L_DEBUG_KEY, 'l_visit_end_time is: '||l_visit_end_time||' ,est_departure_time: '||flight_schedule_rec.est_departure_time||', l_can_update_visit is: '||l_can_update_visit);
IF l_can_update_visit IS NOT NULL THEN
IF (l_log_statement >= l_log_current_level) THEN
fnd_log.string(l_log_statement,L_DEBUG_KEY, ' Before type 1 ');
'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);
AHL_VWP_VISITS_PVT.Update_Visit (
p_api_version => l_api_version,
p_init_msg_list => Fnd_Api.g_false,
p_commit => Fnd_Api.g_false,
p_validation_level => p_validation_level,
p_module_type => 'API',
p_x_visit_rec => l_visit_rec,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
'Errors from Update_Visit. Message count: ' || x_msg_count);
END IF; --IF condition to see if l_can_update_visit IS NOT NULL
END IF; -- IF condition to see if the visit dates has to be updated or not.
l_can_update_visit := null;
FETCH can_cancel_visit INTO l_can_update_visit;
IF l_can_update_visit IS NULL THEN
l_can_disconnect_visit := 'Y';
Delete_Oper_Visit(
p_visit_id => l_visit_id,
x_return_status => l_return_status);
Delete_Oper_Visit(
p_visit_id => l_visit_id2,
x_return_status => l_return_status);
Delete_Oper_Visit(
p_visit_id => l_visit_id,
x_return_status => l_return_status);
Delete_Oper_Visit(
p_visit_id => l_visit_id,
x_return_status => l_return_status);
'Before calling AHL_VWP_VISITS_PVT.Update_Visit autovst_oper_id: '||get_oper_param_rec.autovst_oper_id);
AHL_VWP_VISITS_PVT.Update_Visit (
p_api_version => l_api_version,
p_init_msg_list => Fnd_Api.g_false,
p_commit => Fnd_Api.g_false,
p_validation_level => p_validation_level,
p_module_type => 'API',
p_x_visit_rec => l_visit_rec,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
'Errors from Update_Visit. Message count: ' || x_msg_count);
Delete_Oper_Visit(
p_visit_id => l_visit_id2,
x_return_status => l_return_status);
'Before calling AHL_VWP_VISITS_PVT.Update_Visit autovst_oper_id: '||get_oper_param_rec.autovst_oper_id);
AHL_VWP_VISITS_PVT.Update_Visit (
p_api_version => l_api_version,
p_init_msg_list => Fnd_Api.g_false,
p_commit => Fnd_Api.g_false,
p_validation_level => p_validation_level,
p_module_type => 'API',
p_x_visit_rec => l_visit_rec,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
'Errors from Update_Visit. Message count: ' || x_msg_count);
l_can_update_visit := null;
FETCH can_cancel_visit INTO l_can_update_visit;
IF l_can_update_visit IS NOT NULL THEN
--TYPE 10: Arrival Org :: there is a visit at arrival org of current FS :: update the visit
l_start_date := flight_schedule_rec.est_arrival_time;
'Before calling AHL_VWP_VISITS_PVT.Update_Visit autovst_oper_id: '||get_oper_param_rec.autovst_oper_id);
AHL_VWP_VISITS_PVT.Update_Visit (
p_api_version => l_api_version,
p_init_msg_list => Fnd_Api.g_false,
p_commit => Fnd_Api.g_false,
p_validation_level => p_validation_level,
p_module_type => 'API',
p_x_visit_rec => l_visit_rec,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
'Errors from Update_Visit. Message count: ' || x_msg_count);
END IF;-- check to see if the visit is updateble or not
l_can_update_visit := null;
FETCH can_cancel_visit INTO l_can_update_visit;
IF ((substr (l_visit_type,1,1) <> 'A') OR (l_can_update_visit IS NULL)) THEN
-- check for the possibility of creating an arrival visit;
l_can_update_visit := null;
FETCH can_cancel_visit INTO l_can_update_visit;
IF l_can_update_visit IS NOT NULL THEN
--TYPE 10: Arrival Org :: there is a visit at arrival org of current FS :: update the visit
l_start_date := flight_schedule_rec.est_arrival_time;
'Before calling AHL_VWP_VISITS_PVT.Update_Visit autovst_oper_id: '||get_oper_param_rec.autovst_oper_id);
AHL_VWP_VISITS_PVT.Update_Visit (
p_api_version => l_api_version,
p_init_msg_list => Fnd_Api.g_false,
p_commit => Fnd_Api.g_false,
p_validation_level => p_validation_level,
p_module_type => 'API',
p_x_visit_rec => l_visit_rec,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
'Errors from Update_Visit. Message count: ' || x_msg_count);
END IF;-- check to see if the visit is updateble or not
Delete_Oper_Visit(
p_visit_id => l_visit_id2,
x_return_status => l_return_status);
Delete_Oper_Visit(
p_visit_id => l_visit_id,
x_return_status => l_return_status);
Delete_Oper_Visit(
p_visit_id => l_visit_id2,
x_return_status => l_return_status);
Delete_Oper_Visit(
p_visit_id => l_visit_id2,
x_return_status => l_return_status);
'Before calling AHL_VWP_VISITS_PVT.Update_Visit autovst_oper_id: '||get_oper_param_rec.autovst_oper_id);
AHL_VWP_VISITS_PVT.Update_Visit (
p_api_version => l_api_version,
p_init_msg_list => Fnd_Api.g_false,
p_commit => Fnd_Api.g_false,
p_validation_level => p_validation_level,
p_module_type => 'API',
p_x_visit_rec => l_visit_rec,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
'Errors from Update_Visit. Message count: ' || x_msg_count);
Delete_Oper_Visit(
p_visit_id => l_visit_id,
x_return_status => l_return_status);
'Before calling AHL_VWP_VISITS_PVT.Update_Visit autovst_oper_id: '||get_oper_param_rec.autovst_oper_id);
AHL_VWP_VISITS_PVT.Update_Visit (
p_api_version => l_api_version,
p_init_msg_list => Fnd_Api.g_false,
p_commit => Fnd_Api.g_false,
p_validation_level => p_validation_level,
p_module_type => 'API',
p_x_visit_rec => l_visit_rec,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
'After calling AHL_VWP_VISITS_PVT.Update_Visit, l_return_status= '||l_return_status||', visit id= '||l_visit_rec.visit_id);
'Errors from Update_Visit. Message count: ' || x_msg_count);
UPDATE AHL_UNIT_SCHEDULES
set AUTOVISIT_PROCESS_STATUS = 'R',
OBJECT_VERSION_NUMBER = object_version_number + 1,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = Fnd_Global.USER_ID,
LAST_UPDATE_LOGIN = Fnd_Global.LOGIN_ID
WHERE UNIT_SCHEDULE_ID = flight_schedule_rec.UNIT_SCHEDULE_ID;
ROLLBACK TO Update_Oper_Visit_pvt;
ROLLBACK TO Update_Oper_Visit_pvt;
ROLLBACK TO Update_Oper_Visit_pvt;
p_procedure_name => 'Update_Oper_Visit',
p_error_text => SUBSTR(SQLERRM,1,500));
END Update_Oper_Visit;
SELECT estimated_duration
FROM ahl_visit_types_b
WHERE visit_type_code = c_visit_type_code
AND mc_id = c_mc_id
AND status_code = 'COMPLETE';
SELECT 'X'
FROM org_organization_definitions hou
WHERE hou.organization_id = c_org_id
AND NVL(hou.operating_unit,mo_global.get_current_org_id()) = mo_global.get_current_org_id();
SELECT visit_number
FROM ahl_visits_b
WHERE visit_id = c_visit_id;
SELECT flight_number
FROM ahl_unit_schedules
WHERE unit_schedule_id = c_us_id;
SELECT NAME INTO l_visit_rec.UNIT_NAME FROM AHL_UNIT_CONFIG_HEADERS
WHERE unit_config_header_id= p_flight_schedule_rec.unit_config_header_id;
FND_MSG_PUB.Delete_Msg(p_msg_index => FND_MSG_PUB.count_msg);
SELECT estimated_duration
FROM ahl_visit_types_b
WHERE visit_type_code = c_visit_type_code
AND mc_id = c_mc_id
AND status_code = 'COMPLETE';
SELECT 'X'
FROM org_organization_definitions hou
WHERE hou.organization_id = c_org_id
AND NVL(hou.operating_unit,mo_global.get_current_org_id()) = mo_global.get_current_org_id();
SELECT visit_number
FROM ahl_visits_b
WHERE visit_id = c_visit_id;
SELECT flight_number
FROM ahl_unit_schedules
WHERE unit_schedule_id = c_us_id;
SELECT NAME INTO l_visit_rec.UNIT_NAME FROM AHL_UNIT_CONFIG_HEADERS
WHERE unit_config_header_id= p_flight_schedule_rec.unit_config_header_id;
FND_MSG_PUB.Delete_Msg(p_msg_index => FND_MSG_PUB.count_msg);
SELECT UNIT_SCHEDULE_ID, EST_DEPARTURE_TIME FROM AHL_UNIT_SCHEDULES
WHERE preceding_us_id = c_fs_id;
SELECT 'X'
FROM org_organization_definitions hou
WHERE hou.organization_id = c_org_id
AND NVL(hou.operating_unit,mo_global.get_current_org_id()) = mo_global.get_current_org_id();
SELECT visit_number
FROM ahl_visits_b
WHERE visit_id = c_visit_id;
select estimated_duration from ahl_visit_types_vl
where
visit_type_code = c_vst_type_code
and mc_id = c_mc_id
and status_code = 'COMPLETE';
SELECT flight_number
FROM ahl_unit_schedules
WHERE unit_schedule_id = c_us_id;
SELECT NAME INTO l_visit_rec.UNIT_NAME FROM AHL_UNIT_CONFIG_HEADERS
WHERE unit_config_header_id= p_flight_schedule_rec.unit_config_header_id;
FND_MSG_PUB.Delete_Msg(p_msg_index => FND_MSG_PUB.count_msg);
PROCEDURE Delete_Oper_Visit(
p_visit_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2)
IS
--Cursor to get planned UEs
-- SATRAJEN :: Bug 14464977 :: Changed for retrieving the Non Routines also :: Aug 2012
/*Cursor get_visit_planned_ues(c_visit_id IN NUMBER)
IS
SELECT distinct unit_effectivity_id
FROM AHL_VISIT_TASKS_B
WHERE VISIT_ID = c_visit_id
AND TASK_TYPE_CODE = 'PLANNED';*/
SELECT unit_effectivity_id
FROM AHL_VISIT_TASKS_B
WHERE VISIT_ID = c_visit_id
AND TASK_TYPE_CODE = 'PLANNED' AND SERVICE_REQUEST_ID IS NULL
UNION
SELECT unit_effectivity_id
FROM AHL_VISIT_TASKS_B
WHERE VISIT_ID = c_visit_id
AND TASK_TYPE_CODE = 'SUMMARY' AND originating_task_id IS NULL AND SERVICE_REQUEST_ID IS NOT NULL;
L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Oper_Visit';
'Before calling AHL_VWP_VISITS_PVT.Delete_Visit, visit id: '||p_visit_id);
AHL_VWP_VISITS_PVT.Delete_Visit (
p_api_version => 1.0,
p_visit_id => p_visit_id,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
'After calling AHL_VWP_VISITS_PVT.Delete_Visit, l_return_status= '||l_return_status);
'Errors from Delete_Visit. Message count: ' || l_msg_count);
END Delete_Oper_Visit;
fnd_file.put_line(fnd_file.log, 'before calling Update_Oper_Visit');
Update_Oper_Visit (
p_api_version => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => FND_API.G_VALID_LEVEL_FULL,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
fnd_file.put_line(fnd_file.log, 'Following error occured during the call to Update_Oper_Visit..');
SELECT 'X'
FROM AHL_VISITS_B
WHERE VISIT_ID = c_visit_id
AND STATUS_CODE = 'PLANNING'
AND NVL(FIRMED_FLAG,'N') <> 'Y'
AND NVL(LOCKED_FLAG,'N') <> 'Y';
SELECT visit_number, auto_visit_type_flag auto_flag
FROM ahl_visits_b
WHERE visit_id = c_visit_id;
UPDATE ahl_visits_b
SET UNIT_SCHEDULE_ID = null,
OBJECT_VERSION_NUMBER = object_version_number + 1,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = Fnd_Global.USER_ID,
LAST_UPDATE_LOGIN = Fnd_Global.LOGIN_ID
WHERE visit_id = p_visit_id;