[Home] [Help]
1: PACKAGE BODY AHL_AVF_OPER_VSTS_PVT AS
2: /* $Header: AHLVOPVB.pls 120.0.12020000.2 2012/12/07 01:20:57 sareepar noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := ' AHL_AVF_OPER_VSTS_PVT';
5: G_APP_NAME CONSTANT VARCHAR2(3) := 'AHL';
1: PACKAGE BODY AHL_AVF_OPER_VSTS_PVT AS
2: /* $Header: AHLVOPVB.pls 120.0.12020000.2 2012/12/07 01:20:57 sareepar noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := ' AHL_AVF_OPER_VSTS_PVT';
5: G_APP_NAME CONSTANT VARCHAR2(3) := 'AHL';
6:
7: ------------------------------------
8: -- Common constants and variables --
285: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
286: fnd_log.string
287: (
288: fnd_log.level_procedure,
289: 'ahl.plsql.AHL_AVF_OPER_VSTS_PVT.Create_Oper_Visit.begin',
290: 'At the start of PLSQL procedure'
291: );
292: END IF;
293:
345: FETCH get_non_null_cat_count INTO l_count_cat;
346: CLOSE get_non_null_cat_count;
347:
348: -- check if there exisits a visit and if yes, get the visit details
349: AHL_AVF_OPER_VSTS_PVT.Get_Visit_Type(flight_schedule_rec.unit_schedule_id, 'P', l_visit_type, l_visit_id,l_visit_id2);
350:
351: IF (l_log_statement >= l_log_current_level) THEN
352: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'flight_schedule_rec.preceding_us_id--@>'||flight_schedule_rec.preceding_us_id);
353: END IF;
825: FETCH get_succeeding_us_det INTO l_succeeding_us_id, l_succ_dep_time;
826: CLOSE get_succeeding_us_det;
827:
828: -- check if there exisits a visit and if yes, what visit type - either arrival or downtime
829: AHL_AVF_OPER_VSTS_PVT.Get_Visit_Type(flight_schedule_rec.unit_schedule_id, 'S', l_visit_type, l_visit_id,l_visit_id2);
830: IF (l_log_statement >= l_log_current_level) THEN
831: fnd_log.string(l_log_statement,L_DEBUG_KEY, ' l_succeeding_us_id--@>'||l_succeeding_us_id);
832: END IF;
833: --If the flight schedule does not have any succeeding flight then
1696: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1697: fnd_log.string
1698: (
1699: fnd_log.level_procedure,
1700: 'ahl.plsql.AHL_AVF_OPER_VSTS_PVT.Update_Oper_Visit.begin',
1701: 'At the start of PLSQL procedure'
1702: );
1703: END IF;
1704:
1813: CLOSE get_non_null_cat_count;
1814:
1815:
1816: -- check if there exisits a visit and if yes, get the visit details
1817: AHL_AVF_OPER_VSTS_PVT.Get_Visit_Type(flight_schedule_rec.unit_schedule_id, 'P', l_visit_type, l_visit_id,l_visit_id2);
1818:
1819: --If the flight schedule does not have any preceeding event then
1820: IF ( flight_schedule_rec.preceding_us_id IS NULL ) THEN
1821: IF substr (l_visit_type,1,1) = 'D' THEN --there is a visit at the departing org of the current FS
1976:
1977: -- PRAKKUM :: Bug 13844759 :: 25/07/2012 :: START
1978: -- Before this, previous visits can be cancelled so fetch details again
1979: -- check if there exisits a visit and if yes, what visit type - either arrival or downtime
1980: AHL_AVF_OPER_VSTS_PVT.Get_Visit_Type(flight_schedule_rec.unit_schedule_id, 'P', l_visit_type, l_visit_id,l_visit_id2);
1981:
1982: l_can_update_visit := null;
1983: IF l_visit_id IS NOT NULL THEN
1984: OPEN can_cancel_visit(l_visit_id);
3003: FETCH get_succeeding_us_det INTO l_succeeding_us_id, l_succ_dep_time;
3004: CLOSE get_succeeding_us_det;
3005:
3006: -- check if there exisits a visit and if yes, what visit type - either arrival or downtime
3007: AHL_AVF_OPER_VSTS_PVT.Get_Visit_Type(flight_schedule_rec.unit_schedule_id, 'S', l_visit_type, l_visit_id,l_visit_id2);
3008:
3009: --If the flight schedule does not have any succeeding flight then
3010: IF ( l_succeeding_us_id IS NULL ) THEN
3011:
3165:
3166: -- PRAKKUM :: Bug 13844759 :: 25/07/2012 :: START
3167: -- Before this, previous visits can be cancelled so fetch details again
3168: -- check if there exisits a visit and if yes, what visit type - either arrival or downtime
3169: AHL_AVF_OPER_VSTS_PVT.Get_Visit_Type(flight_schedule_rec.unit_schedule_id, 'S', l_visit_type, l_visit_id,l_visit_id2);
3170:
3171: l_can_update_visit := null;
3172: IF l_visit_id IS NOT NULL THEN
3173: OPEN can_cancel_visit(l_visit_id);
4995:
4996: -- Also send a visit cancel notification
4997: -- if no planned UEs associated to the visit, then do not send 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,
5993: LAST_UPDATE_LOGIN = Fnd_Global.LOGIN_ID
5994: WHERE visit_id = p_visit_id;
5995:
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,
6070: p_encoded => fnd_api.g_false);
6071:
6072: END Disconnect_Flight_Visit;
6073:
6074: END AHL_AVF_OPER_VSTS_PVT;