eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.AHL_UA_UNIT_SCHEDULES_PVT dependencies on FND_API

Line 12: G_USE_ACTUALS CONSTANT VARCHAR2(1) := FND_API.G_FALSE;

8: ---------------------------------
9: l_dummy_varchar VARCHAR2(1);
10:
11: /* Variable to indicate whether to use actual flight times */
12: G_USE_ACTUALS CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
13:
14: /* Constants to define event type */
15: G_EVENT_TYPE_VISIT CONSTANT VARCHAR2(12) := 'VISIT';
16: G_EVENT_TYPE_FLIGHT CONSTANT VARCHAR2(12) := 'FLIGHT';

Line 178: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)

174: -- Standard start of API savepoint
175: SAVEPOINT Search_Unit_Schedules_SP;
176:
177: -- Standard call to check for call compatibility
178: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
179: THEN
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: END IF;
182:

Line 180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

176:
177: -- Standard call to check for call compatibility
178: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
179: THEN
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: END IF;
182:
183: -- Initialize message list by default
184: FND_MSG_PUB.Initialize;

Line 187: x_return_status := FND_API.G_RET_STS_SUCCESS;

183: -- Initialize message list by default
184: FND_MSG_PUB.Initialize;
185:
186: -- Initialize API return status to success
187: x_return_status := FND_API.G_RET_STS_SUCCESS;
188:
189: -- Log API entry point
190: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
191: THEN

Line 208: IF (p_unit_schedules_search.start_date_time IS NULL OR p_unit_schedules_search.start_date_time = FND_API.G_MISS_DATE)

204: -- supported, hence retaining all data in the table till session is killed. Not sure whether it will be a
205: -- performance hit or not, will repeal both frontend and backend code in that case.
206:
207: -- 5. If (p_unit_schedules_search is NULL or p_unit_schedules_search.start_date_time is null), then display error "Start date and time are mandatory parameters to perform a search on Unit Schedules"
208: IF (p_unit_schedules_search.start_date_time IS NULL OR p_unit_schedules_search.start_date_time = FND_API.G_MISS_DATE)
209: THEN
210: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_SUS_START_DATE_NULL');
211: FND_MSG_PUB.ADD;
212: RAISE FND_API.G_EXC_ERROR;

Line 212: RAISE FND_API.G_EXC_ERROR;

208: IF (p_unit_schedules_search.start_date_time IS NULL OR p_unit_schedules_search.start_date_time = FND_API.G_MISS_DATE)
209: THEN
210: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_SUS_START_DATE_NULL');
211: FND_MSG_PUB.ADD;
212: RAISE FND_API.G_EXC_ERROR;
213: END IF;
214:
215: -- 6. If (p_unit_schedules_search is NULL or p_unit_schedules_search.time_increment is null or p_unit_schedules_search.time_uom is null), then display error "Display increment is mandatory parameter to perform a search on Unit Schedules"
216: IF (

Line 217: p_unit_schedules_search.time_increment IS NULL OR p_unit_schedules_search.time_increment = FND_API.G_MISS_NUM OR

213: END IF;
214:
215: -- 6. If (p_unit_schedules_search is NULL or p_unit_schedules_search.time_increment is null or p_unit_schedules_search.time_uom is null), then display error "Display increment is mandatory parameter to perform a search on Unit Schedules"
216: IF (
217: p_unit_schedules_search.time_increment IS NULL OR p_unit_schedules_search.time_increment = FND_API.G_MISS_NUM OR
218: p_unit_schedules_search.time_uom IS NULL OR p_unit_schedules_search.time_uom = FND_API.G_MISS_CHAR
219: )
220: THEN
221: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_SUS_TIME_UOM_NULL');

Line 218: p_unit_schedules_search.time_uom IS NULL OR p_unit_schedules_search.time_uom = FND_API.G_MISS_CHAR

214:
215: -- 6. If (p_unit_schedules_search is NULL or p_unit_schedules_search.time_increment is null or p_unit_schedules_search.time_uom is null), then display error "Display increment is mandatory parameter to perform a search on Unit Schedules"
216: IF (
217: p_unit_schedules_search.time_increment IS NULL OR p_unit_schedules_search.time_increment = FND_API.G_MISS_NUM OR
218: p_unit_schedules_search.time_uom IS NULL OR p_unit_schedules_search.time_uom = FND_API.G_MISS_CHAR
219: )
220: THEN
221: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_SUS_TIME_UOM_NULL');
222: FND_MSG_PUB.ADD;

Line 223: RAISE FND_API.G_EXC_ERROR;

219: )
220: THEN
221: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_SUS_TIME_UOM_NULL');
222: FND_MSG_PUB.ADD;
223: RAISE FND_API.G_EXC_ERROR;
224: END IF;
225:
226: -- 7. If (p_unit_schedules_search.time_increment is not a positive integer), then display error "Display increment should be a positive integer"
227: IF (p_unit_schedules_search.time_increment <= 0 OR p_unit_schedules_search.time_increment <> TRUNC(p_unit_schedules_search.time_increment))

Line 231: RAISE FND_API.G_EXC_ERROR;

227: IF (p_unit_schedules_search.time_increment <= 0 OR p_unit_schedules_search.time_increment <> TRUNC(p_unit_schedules_search.time_increment))
228: THEN
229: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_SUS_TIME_INTEGER');
230: FND_MSG_PUB.ADD;
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233:
234: -- 8. Validate p_unit_schedules_search.time_uom using cursor check_time_uom_exists. If cursor does not return 1 record (and only 1), the display error "Invalid UOM for display increment"
235: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_UA_TIME_UOM', p_unit_schedules_search.time_uom))

Line 240: RAISE FND_API.G_EXC_ERROR;

236: THEN
237: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_SUS_TIME_UOM_INVALID');
238: FND_MESSAGE.SET_TOKEN('UOM', p_unit_schedules_search.time_uom);
239: FND_MSG_PUB.ADD;
240: RAISE FND_API.G_EXC_ERROR;
241: END IF;
242:
243: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
244: THEN

Line 323: IF (l_return_status = FND_API.G_RET_STS_ERROR)

319: x_Visit_Schedule_tbl => l_visit_schedule_tbl
320: );
321:
322: -- Verify the Get_MEvent_Details does not throw unexpected errors, etc
323: IF (l_return_status = FND_API.G_RET_STS_ERROR)
324: THEN
325: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
326: THEN
327: fnd_log.string

Line 334: RAISE FND_API.G_EXC_ERROR;

330: L_DEBUG_MODULE,
331: 'Call to Get_MEvent_Details API returned EXPECTED error'
332: );
333: END IF;
334: RAISE FND_API.G_EXC_ERROR;
335: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
336: THEN
337: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
338: THEN

Line 335: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)

331: 'Call to Get_MEvent_Details API returned EXPECTED error'
332: );
333: END IF;
334: RAISE FND_API.G_EXC_ERROR;
335: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
336: THEN
337: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
338: THEN
339: fnd_log.string

Line 346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

342: L_DEBUG_MODULE,
343: 'Call to Get_MEvent_Details API returned UNEXPECTED error'
344: );
345: END IF;
346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
347: END IF;
348:
349: -- Check Error Message stack.
350: x_msg_count := FND_MSG_PUB.count_msg;

Line 353: RAISE FND_API.G_EXC_ERROR;

349: -- Check Error Message stack.
350: x_msg_count := FND_MSG_PUB.count_msg;
351: IF x_msg_count > 0
352: THEN
353: RAISE FND_API.G_EXC_ERROR;
354: END IF;
355:
356: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
357: THEN

Line 383: -- a. If (l_mevent_header_rec.has_conflict = FND_API.G_TRUE), implies that there is a conflict

379:
380: -- 2. If (l_mevent_header_rec.event_count > 1), implies that there are multiple events
381: IF (l_mevent_header_rec.event_count > 1)
382: THEN
383: -- a. If (l_mevent_header_rec.has_conflict = FND_API.G_TRUE), implies that there is a conflict
384: IF (l_mevent_header_rec.has_conflict = FND_API.G_TRUE)
385: THEN
386: l_temp_sched_type := L_EVENT_CONFLICT;
387:

Line 384: IF (l_mevent_header_rec.has_conflict = FND_API.G_TRUE)

380: -- 2. If (l_mevent_header_rec.event_count > 1), implies that there are multiple events
381: IF (l_mevent_header_rec.event_count > 1)
382: THEN
383: -- a. If (l_mevent_header_rec.has_conflict = FND_API.G_TRUE), implies that there is a conflict
384: IF (l_mevent_header_rec.has_conflict = FND_API.G_TRUE)
385: THEN
386: l_temp_sched_type := L_EVENT_CONFLICT;
387:
388: -- b. Else, if (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE), implies that there are a multiple events with maintenance opportunity

Line 388: -- b. Else, if (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE), implies that there are a multiple events with maintenance opportunity

384: IF (l_mevent_header_rec.has_conflict = FND_API.G_TRUE)
385: THEN
386: l_temp_sched_type := L_EVENT_CONFLICT;
387:
388: -- b. Else, if (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE), implies that there are a multiple events with maintenance opportunity
389: ELSIF (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE)
390: THEN
391: l_temp_sched_type := L_EVENT_MULT_MAINTOP;
392: -- c. Else, implies that there are multiple events

Line 389: ELSIF (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE)

385: THEN
386: l_temp_sched_type := L_EVENT_CONFLICT;
387:
388: -- b. Else, if (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE), implies that there are a multiple events with maintenance opportunity
389: ELSIF (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE)
390: THEN
391: l_temp_sched_type := L_EVENT_MULT_MAINTOP;
392: -- c. Else, implies that there are multiple events
393: ELSE

Line 403: -- a. If (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE), implies that there is a maintenance opportunity

399:
400: -- 3. If (l_mevent_header_rec.event_count = 0), implies that there are no events
401: ELSIF (l_mevent_header_rec.event_count = 0)
402: THEN
403: -- a. If (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE), implies that there is a maintenance opportunity
404: IF (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE)
405: THEN
406: l_temp_sched_type := L_EVENT_MAINTOP;
407:

Line 404: IF (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE)

400: -- 3. If (l_mevent_header_rec.event_count = 0), implies that there are no events
401: ELSIF (l_mevent_header_rec.event_count = 0)
402: THEN
403: -- a. If (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE), implies that there is a maintenance opportunity
404: IF (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE)
405: THEN
406: l_temp_sched_type := L_EVENT_MAINTOP;
407:
408: -- The MO record can either be in l_visit_schedule_tbl or l_unit_schedule_tbl is one of its records, need to know

Line 418: IF (l_unit_schedule_tbl(l_tbl_dummy_idx).HAS_MOPPORTUNITY = FND_API.G_TRUE)

414: IF (l_unit_schedule_tbl.count > 0)
415: THEN
416: FOR l_tbl_dummy_idx IN l_unit_schedule_tbl.FIRST..l_unit_schedule_tbl.LAST
417: LOOP
418: IF (l_unit_schedule_tbl(l_tbl_dummy_idx).HAS_MOPPORTUNITY = FND_API.G_TRUE)
419: THEN
420: l_MO_tbl_idx := l_tbl_dummy_idx;
421: l_MO_tbl := G_EVENT_TYPE_FLIGHT;
422: EXIT;

Line 432: IF (l_visit_schedule_tbl(l_tbl_dummy_idx).HAS_MOPPORTUNITY = FND_API.G_TRUE)

428: IF (l_visit_schedule_tbl.count > 0 AND l_MO_tbl IS NULL)
429: THEN
430: FOR l_tbl_dummy_idx IN l_visit_schedule_tbl.FIRST..l_visit_schedule_tbl.LAST
431: LOOP
432: IF (l_visit_schedule_tbl(l_tbl_dummy_idx).HAS_MOPPORTUNITY = FND_API.G_TRUE)
433: THEN
434: l_MO_tbl_idx := l_tbl_dummy_idx;
435: l_MO_tbl := G_EVENT_TYPE_VISIT;
436: EXIT;

Line 444: -- 1. If (l_unit_schedule_tbl(l_MO_tbl).is_prev_org_valid = FND_API.G_FALSE), implies that the the org is not in the user's OU

440:
441: -- ii. If (l_MO_tbl = G_EVENT_TYPE_FLIGHT), implies that the preceding event to this time block is a flight schedule
442: IF (l_MO_tbl = G_EVENT_TYPE_FLIGHT)
443: THEN
444: -- 1. If (l_unit_schedule_tbl(l_MO_tbl).is_prev_org_valid = FND_API.G_FALSE), implies that the the org is not in the user's OU
445: IF (l_unit_schedule_tbl(l_MO_tbl_idx).is_prev_org_valid = FND_API.G_FALSE)
446: THEN
447: l_temp_sched_type := L_EVENT_MAINT_ORG_NOOU;
448: ELSE

Line 445: IF (l_unit_schedule_tbl(l_MO_tbl_idx).is_prev_org_valid = FND_API.G_FALSE)

441: -- ii. If (l_MO_tbl = G_EVENT_TYPE_FLIGHT), implies that the preceding event to this time block is a flight schedule
442: IF (l_MO_tbl = G_EVENT_TYPE_FLIGHT)
443: THEN
444: -- 1. If (l_unit_schedule_tbl(l_MO_tbl).is_prev_org_valid = FND_API.G_FALSE), implies that the the org is not in the user's OU
445: IF (l_unit_schedule_tbl(l_MO_tbl_idx).is_prev_org_valid = FND_API.G_FALSE)
446: THEN
447: l_temp_sched_type := L_EVENT_MAINT_ORG_NOOU;
448: ELSE
449: l_temp_visit_name := l_unit_schedule_tbl(l_MO_tbl_idx).prev_flight_number;

Line 460: -- 1. If (l_visit_schedule_tbl(l_MO_tbl).is_prev_org_valid = FND_API.G_FALSE), implies that the the org is not in the user's OU

456:
457: -- iii. Else, if (l_MO_tbl = G_EVENT_TYPE_VISIT), implies that the preceding event to this time block is a visit schedule
458: ELSIF (l_MO_tbl = G_EVENT_TYPE_VISIT)
459: THEN
460: -- 1. If (l_visit_schedule_tbl(l_MO_tbl).is_prev_org_valid = FND_API.G_FALSE), implies that the the org is not in the user's OU
461: IF (l_visit_schedule_tbl(l_MO_tbl_idx).is_prev_org_valid = FND_API.G_FALSE)
462: THEN
463: l_temp_sched_type := L_EVENT_MAINT_ORG_NOOU;
464: ELSE

Line 461: IF (l_visit_schedule_tbl(l_MO_tbl_idx).is_prev_org_valid = FND_API.G_FALSE)

457: -- iii. Else, if (l_MO_tbl = G_EVENT_TYPE_VISIT), implies that the preceding event to this time block is a visit schedule
458: ELSIF (l_MO_tbl = G_EVENT_TYPE_VISIT)
459: THEN
460: -- 1. If (l_visit_schedule_tbl(l_MO_tbl).is_prev_org_valid = FND_API.G_FALSE), implies that the the org is not in the user's OU
461: IF (l_visit_schedule_tbl(l_MO_tbl_idx).is_prev_org_valid = FND_API.G_FALSE)
462: THEN
463: l_temp_sched_type := L_EVENT_MAINT_ORG_NOOU;
464: ELSE
465: l_temp_visit_name := l_visit_schedule_tbl(l_MO_tbl_idx).prev_flight_number;

Line 486: -- a. If (l_mevent_header_rec.has_conflict = FND_API.G_TRUE), implies that there is a conflict

482:
483: -- 4. If (l_mevent_header_rec.event_count = 1)
484: ELSIF (l_mevent_header_rec.event_count = 1)
485: THEN
486: -- a. If (l_mevent_header_rec.has_conflict = FND_API.G_TRUE), implies that there is a conflict
487: IF (l_mevent_header_rec.has_conflict = FND_API.G_TRUE)
488: THEN
489: l_temp_sched_type := L_EVENT_CONFLICT;
490: l_temp_start_time := l_start_time;

Line 487: IF (l_mevent_header_rec.has_conflict = FND_API.G_TRUE)

483: -- 4. If (l_mevent_header_rec.event_count = 1)
484: ELSIF (l_mevent_header_rec.event_count = 1)
485: THEN
486: -- a. If (l_mevent_header_rec.has_conflict = FND_API.G_TRUE), implies that there is a conflict
487: IF (l_mevent_header_rec.has_conflict = FND_API.G_TRUE)
488: THEN
489: l_temp_sched_type := L_EVENT_CONFLICT;
490: l_temp_start_time := l_start_time;
491: l_temp_end_time := l_end_time;

Line 493: -- b. Else, if (l_mevent_header_rec.has_mopportunity = FND_API.G_FALSE), implies either a visit or flight is scheduled

489: l_temp_sched_type := L_EVENT_CONFLICT;
490: l_temp_start_time := l_start_time;
491: l_temp_end_time := l_end_time;
492:
493: -- b. Else, if (l_mevent_header_rec.has_mopportunity = FND_API.G_FALSE), implies either a visit or flight is scheduled
494: ELSIF (l_mevent_header_rec.has_mopportunity = FND_API.G_FALSE)
495: THEN
496: -- i. If (l_unit_schedule_tbl.count > 0), implies that a flight is scheduled
497: IF (l_unit_schedule_tbl.count > 0)

Line 494: ELSIF (l_mevent_header_rec.has_mopportunity = FND_API.G_FALSE)

490: l_temp_start_time := l_start_time;
491: l_temp_end_time := l_end_time;
492:
493: -- b. Else, if (l_mevent_header_rec.has_mopportunity = FND_API.G_FALSE), implies either a visit or flight is scheduled
494: ELSIF (l_mevent_header_rec.has_mopportunity = FND_API.G_FALSE)
495: THEN
496: -- i. If (l_unit_schedule_tbl.count > 0), implies that a flight is scheduled
497: IF (l_unit_schedule_tbl.count > 0)
498: THEN

Line 513: -- c. Else, if (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE), implies there is a maintenance opportunity

509: ELSE
510: l_temp_sched_type := L_EVENT_NOTHING;
511: END IF;
512:
513: -- c. Else, if (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE), implies there is a maintenance opportunity
514: ELSIF (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE)
515: THEN
516: /*
517: -- The earlier logic was 1 event (flight / visit) with MO(s) will be displayed as MO according to the

Line 514: ELSIF (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE)

510: l_temp_sched_type := L_EVENT_NOTHING;
511: END IF;
512:
513: -- c. Else, if (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE), implies there is a maintenance opportunity
514: ELSIF (l_mevent_header_rec.has_mopportunity = FND_API.G_TRUE)
515: THEN
516: /*
517: -- The earlier logic was 1 event (flight / visit) with MO(s) will be displayed as MO according to the
518: -- priorities of displaying event icons

Line 537: IF (l_unit_schedule_tbl(l_tbl_dummy_idx).HAS_MOPPORTUNITY = FND_API.G_TRUE)

533: IF (l_unit_schedule_tbl.count > 0)
534: THEN
535: FOR l_tbl_dummy_idx IN l_unit_schedule_tbl.FIRST..l_unit_schedule_tbl.LAST
536: LOOP
537: IF (l_unit_schedule_tbl(l_tbl_dummy_idx).HAS_MOPPORTUNITY = FND_API.G_TRUE)
538: THEN
539: l_MO_tbl_idx := l_tbl_dummy_idx;
540: l_MO_tbl := G_EVENT_TYPE_FLIGHT;
541: EXIT;

Line 551: IF (l_visit_schedule_tbl(l_tbl_dummy_idx).HAS_MOPPORTUNITY = FND_API.G_TRUE)

547: IF (l_visit_schedule_tbl.count > 0 AND l_MO_tbl IS NULL)
548: THEN
549: FOR l_tbl_dummy_idx IN l_visit_schedule_tbl.FIRST..l_visit_schedule_tbl.LAST
550: LOOP
551: IF (l_visit_schedule_tbl(l_tbl_dummy_idx).HAS_MOPPORTUNITY = FND_API.G_TRUE)
552: THEN
553: l_MO_tbl_idx := l_tbl_dummy_idx;
554: l_MO_tbl := G_EVENT_TYPE_VISIT;
555: EXIT;

Line 563: -- 1. If (l_unit_schedule_tbl(l_MO_tbl).is_prev_org_valid = FND_API.G_FALSE), implies that the the org is not in the user's OU

559:
560: -- ii. If (l_MO_tbl = G_EVENT_TYPE_FLIGHT), implies that the preceding event to this time block is a flight schedule
561: IF (l_MO_tbl = G_EVENT_TYPE_FLIGHT)
562: THEN
563: -- 1. If (l_unit_schedule_tbl(l_MO_tbl).is_prev_org_valid = FND_API.G_FALSE), implies that the the org is not in the user's OU
564: IF (l_unit_schedule_tbl(l_MO_tbl_idx).is_prev_org_valid = FND_API.G_FALSE)
565: THEN
566: l_temp_sched_type := L_EVENT_MAINT_ORG_NOOU;
567: ELSE

Line 564: IF (l_unit_schedule_tbl(l_MO_tbl_idx).is_prev_org_valid = FND_API.G_FALSE)

560: -- ii. If (l_MO_tbl = G_EVENT_TYPE_FLIGHT), implies that the preceding event to this time block is a flight schedule
561: IF (l_MO_tbl = G_EVENT_TYPE_FLIGHT)
562: THEN
563: -- 1. If (l_unit_schedule_tbl(l_MO_tbl).is_prev_org_valid = FND_API.G_FALSE), implies that the the org is not in the user's OU
564: IF (l_unit_schedule_tbl(l_MO_tbl_idx).is_prev_org_valid = FND_API.G_FALSE)
565: THEN
566: l_temp_sched_type := L_EVENT_MAINT_ORG_NOOU;
567: ELSE
568: l_temp_visit_name := l_unit_schedule_tbl(l_MO_tbl_idx).prev_flight_number;

Line 579: -- 1. If (l_visit_schedule_tbl(l_MO_tbl).is_prev_org_valid = FND_API.G_FALSE), implies that the the org is not in the user's OU

575:
576: -- iii. Else, if (l_MO_tbl = G_EVENT_TYPE_VISIT), implies that the preceding event to this time block is a visit schedule
577: ELSIF (l_MO_tbl = G_EVENT_TYPE_VISIT)
578: THEN
579: -- 1. If (l_visit_schedule_tbl(l_MO_tbl).is_prev_org_valid = FND_API.G_FALSE), implies that the the org is not in the user's OU
580: IF (l_visit_schedule_tbl(l_MO_tbl_idx).is_prev_org_valid = FND_API.G_FALSE)
581: THEN
582: l_temp_sched_type := L_EVENT_MAINT_ORG_NOOU;
583: ELSE

Line 580: IF (l_visit_schedule_tbl(l_MO_tbl_idx).is_prev_org_valid = FND_API.G_FALSE)

576: -- iii. Else, if (l_MO_tbl = G_EVENT_TYPE_VISIT), implies that the preceding event to this time block is a visit schedule
577: ELSIF (l_MO_tbl = G_EVENT_TYPE_VISIT)
578: THEN
579: -- 1. If (l_visit_schedule_tbl(l_MO_tbl).is_prev_org_valid = FND_API.G_FALSE), implies that the the org is not in the user's OU
580: IF (l_visit_schedule_tbl(l_MO_tbl_idx).is_prev_org_valid = FND_API.G_FALSE)
581: THEN
582: l_temp_sched_type := L_EVENT_MAINT_ORG_NOOU;
583: ELSE
584: l_temp_visit_name := l_visit_schedule_tbl(l_MO_tbl_idx).prev_flight_number;

Line 693: RAISE FND_API.G_EXC_ERROR;

689: -- Check Error Message stack.
690: x_msg_count := FND_MSG_PUB.count_msg;
691: IF x_msg_count > 0
692: THEN
693: RAISE FND_API.G_EXC_ERROR;
694: END IF;
695:
696: -- Commit by default
697: COMMIT WORK;

Line 704: p_encoded => FND_API.G_FALSE

700: FND_MSG_PUB.count_and_get
701: (
702: p_count => x_msg_count,
703: p_data => x_msg_data,
704: p_encoded => FND_API.G_FALSE
705: );
706:
707: EXCEPTION
708: WHEN FND_API.G_EXC_ERROR THEN

Line 708: WHEN FND_API.G_EXC_ERROR THEN

704: p_encoded => FND_API.G_FALSE
705: );
706:
707: EXCEPTION
708: WHEN FND_API.G_EXC_ERROR THEN
709: x_return_status := FND_API.G_RET_STS_ERROR;
710: Rollback to Search_Unit_Schedules_SP;
711: FND_MSG_PUB.count_and_get
712: (

Line 709: x_return_status := FND_API.G_RET_STS_ERROR;

705: );
706:
707: EXCEPTION
708: WHEN FND_API.G_EXC_ERROR THEN
709: x_return_status := FND_API.G_RET_STS_ERROR;
710: Rollback to Search_Unit_Schedules_SP;
711: FND_MSG_PUB.count_and_get
712: (
713: p_count => x_msg_count,

Line 715: p_encoded => FND_API.G_FALSE

711: FND_MSG_PUB.count_and_get
712: (
713: p_count => x_msg_count,
714: p_data => x_msg_data,
715: p_encoded => FND_API.G_FALSE
716: );
717:
718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

714: p_data => x_msg_data,
715: p_encoded => FND_API.G_FALSE
716: );
717:
718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
720: Rollback to Search_Unit_Schedules_SP;
721: FND_MSG_PUB.count_and_get
722: (

Line 719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

715: p_encoded => FND_API.G_FALSE
716: );
717:
718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
720: Rollback to Search_Unit_Schedules_SP;
721: FND_MSG_PUB.count_and_get
722: (
723: p_count => x_msg_count,

Line 725: p_encoded => FND_API.G_FALSE

721: FND_MSG_PUB.count_and_get
722: (
723: p_count => x_msg_count,
724: p_data => x_msg_data,
725: p_encoded => FND_API.G_FALSE
726: );
727:
728: WHEN OTHERS THEN
729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

725: p_encoded => FND_API.G_FALSE
726: );
727:
728: WHEN OTHERS THEN
729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730: Rollback to Search_Unit_Schedules_SP;
731: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
732: THEN
733: FND_MSG_PUB.add_exc_msg

Line 744: p_encoded => FND_API.G_FALSE

740: FND_MSG_PUB.count_and_get
741: (
742: p_count => x_msg_count,
743: p_data => x_msg_data,
744: p_encoded => FND_API.G_FALSE
745: );
746: END Search_Unit_Schedules;
747: ---------------------------------------
748: -- Spec Procedure Get_MEvent_Details --

Line 858: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)

854:
855: BEGIN
856:
857: -- Standard call to check for call compatibility
858: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
859: THEN
860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
861: END IF;
862:

Line 860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

856:
857: -- Standard call to check for call compatibility
858: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
859: THEN
860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
861: END IF;
862:
863: -- Initialize message list by default
864: FND_MSG_PUB.Initialize;

Line 867: x_return_status := FND_API.G_RET_STS_SUCCESS;

863: -- Initialize message list by default
864: FND_MSG_PUB.Initialize;
865:
866: -- Initialize API return status to success
867: x_return_status := FND_API.G_RET_STS_SUCCESS;
868:
869: -- Log API entry point
870: ----dbms_output.put_line('At the start of PLSQL procedure');
871: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)

Line 906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

902: L_DEBUG_MODULE,
903: 'Unexpected error : Invalid Input'
904: );
905: END IF;
906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
907: END IF;
908:
909: --initialize profile values
910: IF(G_DEPT_CONFLICT_PROF = 'Y')THEN

Line 935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

931: 'Unexpected error : unit not found'
932: );
933: END IF;
934: CLOSE context_info_csr;
935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
936: END IF;
937: CLOSE context_info_csr;
938: END IF;
939: -- initialize header level conflict and Maintenance Opportunity related flags with default values

Line 940: p_x_MEvent_Header_Rec.HAS_CONFLICT := FND_API.G_FALSE;

936: END IF;
937: CLOSE context_info_csr;
938: END IF;
939: -- initialize header level conflict and Maintenance Opportunity related flags with default values
940: p_x_MEvent_Header_Rec.HAS_CONFLICT := FND_API.G_FALSE;
941: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_FALSE;
942: ----dbms_output.put_line('Calling AHL_UA_COMMON_PVT.get_all_events');
943: -- Get all the events in the time slot
944: AHL_UA_COMMON_PVT.get_all_events(

Line 941: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_FALSE;

937: CLOSE context_info_csr;
938: END IF;
939: -- initialize header level conflict and Maintenance Opportunity related flags with default values
940: p_x_MEvent_Header_Rec.HAS_CONFLICT := FND_API.G_FALSE;
941: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_FALSE;
942: ----dbms_output.put_line('Calling AHL_UA_COMMON_PVT.get_all_events');
943: -- Get all the events in the time slot
944: AHL_UA_COMMON_PVT.get_all_events(
945: p_api_version => 1.0 ,

Line 955: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN

951: p_end_date_time => p_x_MEvent_Header_Rec.END_TIME,
952: p_use_actuals => G_USE_ACTUALS,
953: x_event_schedules => l_event_schedule_tbl);
954: -- Check for API errors
955: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
956: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.get_all_events returned errors');
957: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
958: fnd_log.string
959: (

Line 965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

961: L_DEBUG_MODULE,
962: 'Unexpected error : AHL_UA_COMMON_PVT.get_all_events returned errors'
963: );
964: END IF;
965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
966: END IF;
967:
968: -- Set the event count
969: IF(l_event_schedule_tbl IS NULL)THEN

Line 990: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN

986: x_is_conflict => l_is_conflict
987:
988: );
989: -- Check for API errors
990: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
991: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.Get_Prec_Flight_Info returned errors');
992: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
993: fnd_log.string
994: (

Line 1000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

996: L_DEBUG_MODULE,
997: 'Unexpected error : AHL_UA_COMMON_PVT.Get_Prec_Flight_Info returned errors'
998: );
999: END IF;
1000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1001: END IF;
1002:
1003: -- assign previous flight info if available
1004: IF(l_flight_schedule_rec.UNIT_SCHEDULE_ID IS NOT NULL)THEN

Line 1032: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN

1028: x_is_org_in_user_ou => l_is_org_in_user_ou
1029:
1030: );
1031: -- Check for API errors
1032: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1033: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.Get_Prec_Visit_Info returned errors');
1034: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1035: fnd_log.string
1036: (

Line 1042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1038: L_DEBUG_MODULE,
1039: 'Unexpected error : AHL_UA_COMMON_PVT.Get_Prec_Event_Info returned errors'
1040: );
1041: END IF;
1042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1043: END IF;
1044: -- determine type of previous event
1045: IF(l_flight_schedule_rec.unit_schedule_id IS NOT NULL)THEN
1046: l_prev_event_type := G_EVENT_TYPE_FLIGHT;

Line 1104: p_init_msg_list => FND_API.G_TRUE,

1100: l_flight_search_rec.UNIT_SCHEDULE_ID := l_event_schedule_tbl(i).EVENT_ID;
1101: ----dbms_output.put_line('calling AHL_UA_FLIGHT_SCHEDULES_PUB.Get_Flight_Schedule_Details for UNIT_SCHEDULE_ID : ' || l_flight_search_rec.UNIT_SCHEDULE_ID);
1102: AHL_UA_FLIGHT_SCHEDULES_PUB.Get_Flight_Schedule_Details(
1103: p_api_version => 1.0,
1104: p_init_msg_list => FND_API.G_TRUE,
1105: p_commit => FND_API.G_FALSE,
1106: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1107: p_default => FND_API.G_FALSE,
1108: p_module_type => 'US',

Line 1105: p_commit => FND_API.G_FALSE,

1101: ----dbms_output.put_line('calling AHL_UA_FLIGHT_SCHEDULES_PUB.Get_Flight_Schedule_Details for UNIT_SCHEDULE_ID : ' || l_flight_search_rec.UNIT_SCHEDULE_ID);
1102: AHL_UA_FLIGHT_SCHEDULES_PUB.Get_Flight_Schedule_Details(
1103: p_api_version => 1.0,
1104: p_init_msg_list => FND_API.G_TRUE,
1105: p_commit => FND_API.G_FALSE,
1106: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1107: p_default => FND_API.G_FALSE,
1108: p_module_type => 'US',
1109: x_return_status => x_return_status,

Line 1106: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

1102: AHL_UA_FLIGHT_SCHEDULES_PUB.Get_Flight_Schedule_Details(
1103: p_api_version => 1.0,
1104: p_init_msg_list => FND_API.G_TRUE,
1105: p_commit => FND_API.G_FALSE,
1106: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1107: p_default => FND_API.G_FALSE,
1108: p_module_type => 'US',
1109: x_return_status => x_return_status,
1110: x_msg_count => x_msg_count,

Line 1107: p_default => FND_API.G_FALSE,

1103: p_api_version => 1.0,
1104: p_init_msg_list => FND_API.G_TRUE,
1105: p_commit => FND_API.G_FALSE,
1106: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1107: p_default => FND_API.G_FALSE,
1108: p_module_type => 'US',
1109: x_return_status => x_return_status,
1110: x_msg_count => x_msg_count,
1111: x_msg_data => x_msg_data,

Line 1116: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN

1112: p_flight_search_rec => l_flight_search_rec,
1113: x_flight_schedules_tbl => l_flight_schedules_tbl
1114: );
1115: -- Check for API errors
1116: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1117: ----dbms_output.put_line('Unexpected error : AHL_UA_FLIGHT_SCHEDULES_PUB.Get_Flight_Schedule_Details returned error');
1118: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1119: fnd_log.string
1120: (

Line 1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1122: L_DEBUG_MODULE,
1123: 'Unexpected error : AHL_UA_FLIGHT_SCHEDULES_PUB.Get_Flight_Schedule_Details returned error'
1124: );
1125: END IF;
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: END IF;
1128: l_flight_schedule_rec := l_flight_schedules_tbl(l_flight_schedules_tbl.FIRST);
1129: ----dbms_output.put_line('calling populate_unit_schedule_rec for window event');
1130: populate_unit_schedule_rec(

Line 1176: IF(p_module_type = 'US' AND p_x_MEvent_Header_Rec.HAS_CONFLICT = FND_API.G_TRUE AND p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE)THEN

1172: l_prev_event_type := l_curr_event_type;
1173: l_prev_visit_schedule_rec := l_curr_visit_schedule_rec;
1174: END IF;
1175: -- if module type is US then if there is MO and Conflcit.. return without further processing to save resources.
1176: IF(p_module_type = 'US' AND p_x_MEvent_Header_Rec.HAS_CONFLICT = FND_API.G_TRUE AND p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE)THEN
1177: l_early_exit_flag := TRUE;
1178: EXIT;
1179: END IF;
1180: END LOOP;

Line 1210: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN

1206: x_is_org_in_user_ou => l_is_org_in_user_ou
1207:
1208: );
1209: -- Check for API errors
1210: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1211: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.Get_Succ_Event_Info returned errors');
1212: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1213: fnd_log.string
1214: (

Line 1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1216: L_DEBUG_MODULE,
1217: 'Unexpected error : AHL_UA_COMMON_PVT.Get_Succ_Event_Info returned errors'
1218: );
1219: END IF;
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1221: END IF;
1222: -- determine type of last event
1223: IF(l_flight_schedule_rec.unit_schedule_id IS NOT NULL)THEN
1224: l_curr_event_type := G_EVENT_TYPE_FLIGHT;

Line 1269: -- a dummy record needs to be added with MO flag as FND_API.G_TRUE if there is flight for unit

1265: p_x_Visit_Schedule_tbl => x_Visit_Schedule_tbl,
1266: x_Visit_Schedule_Rec => l_curr_visit_schedule_rec
1267: );
1268: ELSE -- when no post window event is found
1269: -- a dummy record needs to be added with MO flag as FND_API.G_TRUE if there is flight for unit
1270: -- either can add it to flight or visit, lets add where perious event lies
1271: --Adithya added the end_date > sysdate condition for FP bug# 6447447.
1272: IF(l_prev_event_type IS NOT NULL AND p_x_MEvent_Header_Rec.END_TIME > SYSDATE)THEN
1273: IF(l_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN

Line 1285: l_curr_unit_schedule_rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

1281: l_curr_unit_schedule_rec.PRVE_EVENT_DEP_NAME := l_prev_unit_schedule_rec.ARRIVAL_DEP_NAME;
1282: l_curr_unit_schedule_rec.PREV_EVENT_END_TIME := l_prev_unit_schedule_rec.ARRIVAL_TIME;
1283: l_curr_unit_schedule_rec.PREV_UNIT_SCHEDULE_ID := l_prev_unit_schedule_rec.UNIT_SCHEDULE_ID;
1284: l_curr_unit_schedule_rec.PREV_FLIGHT_NUMBER := l_prev_unit_schedule_rec.FLIGHT_NUMBER;
1285: l_curr_unit_schedule_rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1286: l_curr_unit_schedule_rec.HAS_CONFLICT := FND_API.G_FALSE;
1287: l_prev_unit_schedule_rec.EVENT_SEQ := NVL(l_prev_unit_schedule_rec.EVENT_SEQ,1);
1288: l_curr_unit_schedule_rec.EVENT_SEQ := l_prev_unit_schedule_rec.EVENT_SEQ + 1;
1289: -- add pre-window event if event count = 0

Line 1286: l_curr_unit_schedule_rec.HAS_CONFLICT := FND_API.G_FALSE;

1282: l_curr_unit_schedule_rec.PREV_EVENT_END_TIME := l_prev_unit_schedule_rec.ARRIVAL_TIME;
1283: l_curr_unit_schedule_rec.PREV_UNIT_SCHEDULE_ID := l_prev_unit_schedule_rec.UNIT_SCHEDULE_ID;
1284: l_curr_unit_schedule_rec.PREV_FLIGHT_NUMBER := l_prev_unit_schedule_rec.FLIGHT_NUMBER;
1285: l_curr_unit_schedule_rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1286: l_curr_unit_schedule_rec.HAS_CONFLICT := FND_API.G_FALSE;
1287: l_prev_unit_schedule_rec.EVENT_SEQ := NVL(l_prev_unit_schedule_rec.EVENT_SEQ,1);
1288: l_curr_unit_schedule_rec.EVENT_SEQ := l_prev_unit_schedule_rec.EVENT_SEQ + 1;
1289: -- add pre-window event if event count = 0
1290: IF(p_x_MEvent_Header_Rec.EVENT_COUNT = 0)THEN

Line 1296: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

1292: END IF;
1293: -- add current dummy event
1294: x_Unit_Schedule_tbl(l_curr_unit_schedule_rec.EVENT_SEQ -1) := l_curr_unit_schedule_rec;
1295: -- update header to tell that there is a MO
1296: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1297:
1298: --Adithya modified the condition below as part of fix for FP bug# 6447447
1299: -- Even if there are no flights but visits exist in the past, MO should be flagged
1300: ELSIF(l_prev_event_type = G_EVENT_TYPE_VISIT) --AND l_prev_visit_schedule_rec.PREV_UNIT_SCHEDULE_ID IS NOT NULL)

Line 1314: l_curr_visit_schedule_rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

1310: l_curr_visit_schedule_rec.PREV_EVENT_END_TIME :=
1311: NVL(l_prev_visit_schedule_rec.END_TIME, l_prev_visit_schedule_rec.START_TIME + 1/1440);
1312: l_curr_visit_schedule_rec.PREV_UNIT_SCHEDULE_ID := l_prev_visit_schedule_rec.PREV_UNIT_SCHEDULE_ID;
1313: l_curr_visit_schedule_rec.PREV_FLIGHT_NUMBER := l_prev_visit_schedule_rec.PREV_FLIGHT_NUMBER;
1314: l_curr_visit_schedule_rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1315: l_curr_visit_schedule_rec.HAS_CONFLICT := FND_API.G_FALSE;
1316: l_prev_visit_schedule_rec.EVENT_SEQ := NVL(l_prev_visit_schedule_rec.EVENT_SEQ,1);
1317: l_curr_visit_schedule_rec.EVENT_SEQ := l_prev_visit_schedule_rec.EVENT_SEQ + 1;
1318: -- add pre-window event if event count = 0

Line 1315: l_curr_visit_schedule_rec.HAS_CONFLICT := FND_API.G_FALSE;

1311: NVL(l_prev_visit_schedule_rec.END_TIME, l_prev_visit_schedule_rec.START_TIME + 1/1440);
1312: l_curr_visit_schedule_rec.PREV_UNIT_SCHEDULE_ID := l_prev_visit_schedule_rec.PREV_UNIT_SCHEDULE_ID;
1313: l_curr_visit_schedule_rec.PREV_FLIGHT_NUMBER := l_prev_visit_schedule_rec.PREV_FLIGHT_NUMBER;
1314: l_curr_visit_schedule_rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1315: l_curr_visit_schedule_rec.HAS_CONFLICT := FND_API.G_FALSE;
1316: l_prev_visit_schedule_rec.EVENT_SEQ := NVL(l_prev_visit_schedule_rec.EVENT_SEQ,1);
1317: l_curr_visit_schedule_rec.EVENT_SEQ := l_prev_visit_schedule_rec.EVENT_SEQ + 1;
1318: -- add pre-window event if event count = 0
1319: IF(p_x_MEvent_Header_Rec.EVENT_COUNT = 0)THEN

Line 1325: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

1321: END IF;
1322: -- add current event
1323: x_Visit_Schedule_tbl(l_curr_visit_schedule_rec.EVENT_SEQ -1) := l_curr_visit_schedule_rec;
1324: -- update header to tell that there is a MO
1325: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1326: END IF;
1327:
1328: --Adithya modified code for fixing FP bug# 6447447 -- Start --
1329: ELSIF ( p_x_MEvent_Header_Rec.END_TIME > SYSDATE )

Line 1335: l_curr_visit_schedule_rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

1331: THEN
1332: l_curr_visit_schedule_rec := NULL;--initilaize it
1333: l_curr_visit_schedule_rec.EVENT_SEQ := 1;
1334: l_curr_visit_schedule_rec.PREV_EVENT_END_TIME := sysdate;
1335: l_curr_visit_schedule_rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1336: l_curr_visit_schedule_rec.HAS_CONFLICT := FND_API.G_FALSE;
1337: -- add current dummy event
1338: x_Visit_Schedule_tbl(0) := l_curr_visit_schedule_rec;
1339: -- update header to tell that there is a MO

Line 1336: l_curr_visit_schedule_rec.HAS_CONFLICT := FND_API.G_FALSE;

1332: l_curr_visit_schedule_rec := NULL;--initilaize it
1333: l_curr_visit_schedule_rec.EVENT_SEQ := 1;
1334: l_curr_visit_schedule_rec.PREV_EVENT_END_TIME := sysdate;
1335: l_curr_visit_schedule_rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1336: l_curr_visit_schedule_rec.HAS_CONFLICT := FND_API.G_FALSE;
1337: -- add current dummy event
1338: x_Visit_Schedule_tbl(0) := l_curr_visit_schedule_rec;
1339: -- update header to tell that there is a MO
1340: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

Line 1340: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

1336: l_curr_visit_schedule_rec.HAS_CONFLICT := FND_API.G_FALSE;
1337: -- add current dummy event
1338: x_Visit_Schedule_tbl(0) := l_curr_visit_schedule_rec;
1339: -- update header to tell that there is a MO
1340: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1341: --Adithya modified code for fixing FP bug# 6447447 -- END --
1342:
1343: END IF;
1344: END IF;

Line 1363: RAISE FND_API.G_EXC_ERROR;

1359: -- Check Error Message stack.
1360: x_msg_count := FND_MSG_PUB.count_msg;
1361: IF x_msg_count > 0
1362: THEN
1363: RAISE FND_API.G_EXC_ERROR;
1364: END IF;
1365:
1366: -- Standard call to get message count and if count is 1, get message info
1367: FND_MSG_PUB.count_and_get

Line 1371: p_encoded => FND_API.G_FALSE

1367: FND_MSG_PUB.count_and_get
1368: (
1369: p_count => x_msg_count,
1370: p_data => x_msg_data,
1371: p_encoded => FND_API.G_FALSE
1372: );
1373:
1374: EXCEPTION
1375: WHEN FND_API.G_EXC_ERROR THEN

Line 1375: WHEN FND_API.G_EXC_ERROR THEN

1371: p_encoded => FND_API.G_FALSE
1372: );
1373:
1374: EXCEPTION
1375: WHEN FND_API.G_EXC_ERROR THEN
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1377: FND_MSG_PUB.count_and_get
1378: (
1379: p_count => x_msg_count,

Line 1376: x_return_status := FND_API.G_RET_STS_ERROR;

1372: );
1373:
1374: EXCEPTION
1375: WHEN FND_API.G_EXC_ERROR THEN
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1377: FND_MSG_PUB.count_and_get
1378: (
1379: p_count => x_msg_count,
1380: p_data => x_msg_data,

Line 1381: p_encoded => FND_API.G_FALSE

1377: FND_MSG_PUB.count_and_get
1378: (
1379: p_count => x_msg_count,
1380: p_data => x_msg_data,
1381: p_encoded => FND_API.G_FALSE
1382: );
1383:
1384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1380: p_data => x_msg_data,
1381: p_encoded => FND_API.G_FALSE
1382: );
1383:
1384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1386: FND_MSG_PUB.count_and_get
1387: (
1388: p_count => x_msg_count,

Line 1385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1381: p_encoded => FND_API.G_FALSE
1382: );
1383:
1384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1386: FND_MSG_PUB.count_and_get
1387: (
1388: p_count => x_msg_count,
1389: p_data => x_msg_data,

Line 1390: p_encoded => FND_API.G_FALSE

1386: FND_MSG_PUB.count_and_get
1387: (
1388: p_count => x_msg_count,
1389: p_data => x_msg_data,
1390: p_encoded => FND_API.G_FALSE
1391: );
1392:
1393: WHEN OTHERS THEN
1394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1390: p_encoded => FND_API.G_FALSE
1391: );
1392:
1393: WHEN OTHERS THEN
1394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1395: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1396: THEN
1397: FND_MSG_PUB.add_exc_msg
1398: (

Line 1408: p_encoded => FND_API.G_FALSE

1404: FND_MSG_PUB.count_and_get
1405: (
1406: p_count => x_msg_count,
1407: p_data => x_msg_data,
1408: p_encoded => FND_API.G_FALSE
1409: );
1410: END Get_MEvent_Details;
1411: -------------------------------------------------------------------------------------------
1412: -- Non-spec Procedure populate_unit_schedule_rec --

Line 1477: x_Unit_Schedule_Rec.IS_ORG_VALID := FND_API.G_TRUE;

1473:
1474:
1475:
1476: -- whether the org is valid for the user
1477: x_Unit_Schedule_Rec.IS_ORG_VALID := FND_API.G_TRUE;
1478: IF(p_unit_flight_schedule_rec.ARRIVAL_ORG_ID IS NOT NULL)THEN
1479: x_Unit_Schedule_Rec.IS_ORG_VALID := AHL_UTILITY_PVT.IS_ORG_IN_USER_OU(
1480: p_org_id => p_unit_flight_schedule_rec.ARRIVAL_ORG_ID,
1481: p_org_name => NULL,

Line 1486: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN

1482: x_return_status => l_return_status,
1483: x_msg_data => l_msg_data
1484: );
1485: -- Check for API errors
1486: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1487: ----dbms_output.put_line('Unexpected error : AHL_UTILITY_PVT.IS_ORG_IN_USER_OU returned errors');
1488: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1489: fnd_log.string
1490: (

Line 1496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1492: L_DEBUG_MODULE,
1493: 'Unexpected error : AHL_UTILITY_PVT.IS_ORG_IN_USER_OU returned errors'
1494: );
1495: END IF;
1496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1497: END IF;
1498: END IF;
1499:
1500: IF(G_USE_ACTUALS = FND_API.G_FALSE)THEN

Line 1500: IF(G_USE_ACTUALS = FND_API.G_FALSE)THEN

1496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1497: END IF;
1498: END IF;
1499:
1500: IF(G_USE_ACTUALS = FND_API.G_FALSE)THEN
1501: x_Unit_Schedule_Rec.DEPARTURE_TIME := p_unit_flight_schedule_rec.EST_DEPARTURE_TIME;
1502: x_Unit_Schedule_Rec.ARRIVAL_TIME := p_unit_flight_schedule_rec.EST_ARRIVAL_TIME;
1503: ELSE
1504: x_Unit_Schedule_Rec.DEPARTURE_TIME := NVL(p_unit_flight_schedule_rec.ACTUAL_DEPARTURE_TIME,

Line 1511: x_Unit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_FALSE;

1507: p_unit_flight_schedule_rec.EST_ARRIVAL_TIME);
1508: END IF;
1509:
1510: x_Unit_Schedule_Rec.PREV_EVENT_TYPE := p_prev_event_type;
1511: x_Unit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_FALSE;
1512: x_Unit_Schedule_Rec.HAS_CONFLICT := FND_API.G_FALSE;
1513:
1514: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1515: ----dbms_output.put_line('prev event type : ' || G_EVENT_TYPE_FLIGHT);

Line 1512: x_Unit_Schedule_Rec.HAS_CONFLICT := FND_API.G_FALSE;

1508: END IF;
1509:
1510: x_Unit_Schedule_Rec.PREV_EVENT_TYPE := p_prev_event_type;
1511: x_Unit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_FALSE;
1512: x_Unit_Schedule_Rec.HAS_CONFLICT := FND_API.G_FALSE;
1513:
1514: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1515: ----dbms_output.put_line('prev event type : ' || G_EVENT_TYPE_FLIGHT);
1516: x_Unit_Schedule_Rec.PREV_EVENT_ID := p_prev_unit_schedule_rec.UNIT_SCHEDULE_ID;

Line 1549: x_Unit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;

1545:
1546: -- Determine Conflcits
1547: IF(x_Unit_Schedule_Rec.PREV_EVENT_ID IS NOT NULL)THEN
1548: IF(x_Unit_Schedule_Rec.DEPARTURE_ORG_ID <> x_Unit_Schedule_Rec.PREV_EVENT_ORG_ID)THEN
1549: x_Unit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;
1550: org_conflict := TRUE;
1551: END IF;
1552: IF(G_DEPT_CONFLICT AND x_Unit_Schedule_Rec.DEPARTURE_DEP_ID <> x_Unit_Schedule_Rec.PREV_EVENT_DEP_ID)THEN
1553: x_Unit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;

Line 1553: x_Unit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;

1549: x_Unit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;
1550: org_conflict := TRUE;
1551: END IF;
1552: IF(G_DEPT_CONFLICT AND x_Unit_Schedule_Rec.DEPARTURE_DEP_ID <> x_Unit_Schedule_Rec.PREV_EVENT_DEP_ID)THEN
1553: x_Unit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;
1554: dept_conflict := TRUE;
1555: END IF;
1556: IF(x_Unit_Schedule_Rec.DEPARTURE_TIME < l_prev_event_end_time)THEN
1557: x_Unit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;

Line 1557: x_Unit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;

1553: x_Unit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;
1554: dept_conflict := TRUE;
1555: END IF;
1556: IF(x_Unit_Schedule_Rec.DEPARTURE_TIME < l_prev_event_end_time)THEN
1557: x_Unit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;
1558: time_conflict := TRUE;
1559: END IF;
1560: END IF;
1561:

Line 1575: x_Unit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

1571: x_Unit_Schedule_Rec.DEPARTURE_TIME > l_prev_event_end_time AND
1572: x_Unit_Schedule_Rec.DEPARTURE_TIME > SYSDATE) THEN
1573: IF(l_prev_event_end_time >= SYSDATE AND
1574: (x_Unit_Schedule_Rec.DEPARTURE_TIME - l_prev_event_end_time)*24*60 >= G_MIN_TIME_MO)THEN
1575: x_Unit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1576: ELSIF(l_prev_event_end_time < SYSDATE AND
1577: (x_Unit_Schedule_Rec.DEPARTURE_TIME - SYSDATE)*24*60 >= G_MIN_TIME_MO)THEN
1578: x_Unit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1579: END IF;

Line 1578: x_Unit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

1574: (x_Unit_Schedule_Rec.DEPARTURE_TIME - l_prev_event_end_time)*24*60 >= G_MIN_TIME_MO)THEN
1575: x_Unit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1576: ELSIF(l_prev_event_end_time < SYSDATE AND
1577: (x_Unit_Schedule_Rec.DEPARTURE_TIME - SYSDATE)*24*60 >= G_MIN_TIME_MO)THEN
1578: x_Unit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1579: END IF;
1580: END IF;
1581: --Commented the following lines of code as part of fix for bug# 6447447
1582: /*

Line 1587: x_Unit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

1583: IF(x_Unit_Schedule_Rec.PREV_EVENT_ID IS NOT NULL AND
1584: x_Unit_Schedule_Rec.PREV_UNIT_SCHEDULE_ID IS NOT NULL AND
1585: x_Unit_Schedule_Rec.DEPARTURE_TIME > l_prev_event_end_time) THEN
1586: IF ((x_Unit_Schedule_Rec.DEPARTURE_TIME - l_prev_event_end_time)*24*60 >= G_MIN_TIME_MO)THEN
1587: x_Unit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1588: END IF;
1589: END IF;
1590: */
1591:

Line 1603: IF(x_Unit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE OR x_Unit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN

1599: ELSE
1600: IF(l_previous_event_seq > 0)THEN
1601: x_Unit_Schedule_Rec.EVENT_SEQ := l_previous_event_seq + 1;
1602: ELSE
1603: IF(x_Unit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE OR x_Unit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1604: add_pre_window_event := TRUE;
1605: x_Unit_Schedule_Rec.EVENT_SEQ := 2;
1606: ELSE
1607: x_Unit_Schedule_Rec.EVENT_SEQ := 1;

Line 1612: IF(x_Unit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE OR x_Unit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN

1608: END IF;
1609: END IF;
1610: END IF;
1611: ELSIF( NOT p_window_event AND x_Unit_Schedule_Rec.PREV_EVENT_ID IS NOT NULL)THEN
1612: IF(x_Unit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE OR x_Unit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1613: IF(l_previous_event_seq > 0)THEN
1614: x_Unit_Schedule_Rec.EVENT_SEQ := l_previous_event_seq + 1;
1615: ELSE
1616: add_pre_window_event := TRUE;

Line 1633: IF(x_Unit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN

1629: END IF;
1630: END IF;
1631:
1632: -- Add Conflcit Message
1633: IF(x_Unit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1634: -- Event with sequence () and previous Event() has conflcits.
1635: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FLIGHT_CONFLICT_MSG');
1636: FND_MESSAGE.SET_TOKEN('EVENT_SEQ1',x_Unit_Schedule_Rec.EVENT_SEQ,false);
1637: FND_MESSAGE.SET_TOKEN('EVENT_SEQ2',x_Unit_Schedule_Rec.EVENT_SEQ -1,false);

Line 1692: IF(x_Unit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN

1688: p_x_Unit_Schedule_tbl(l_index) := x_Unit_Schedule_Rec;
1689: END IF;
1690:
1691: -- Update conflict or MO at the header level
1692: IF(x_Unit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1693: p_x_MEvent_Header_Rec.HAS_CONFLICT := FND_API.G_TRUE;
1694: END IF;
1695: IF(x_Unit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE)THEN
1696: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

Line 1693: p_x_MEvent_Header_Rec.HAS_CONFLICT := FND_API.G_TRUE;

1689: END IF;
1690:
1691: -- Update conflict or MO at the header level
1692: IF(x_Unit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1693: p_x_MEvent_Header_Rec.HAS_CONFLICT := FND_API.G_TRUE;
1694: END IF;
1695: IF(x_Unit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE)THEN
1696: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1697: END IF;

Line 1695: IF(x_Unit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE)THEN

1691: -- Update conflict or MO at the header level
1692: IF(x_Unit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1693: p_x_MEvent_Header_Rec.HAS_CONFLICT := FND_API.G_TRUE;
1694: END IF;
1695: IF(x_Unit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE)THEN
1696: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1697: END IF;
1698:
1699: -- Log API exit point

Line 1696: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

1692: IF(x_Unit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1693: p_x_MEvent_Header_Rec.HAS_CONFLICT := FND_API.G_TRUE;
1694: END IF;
1695: IF(x_Unit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE)THEN
1696: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1697: END IF;
1698:
1699: -- Log API exit point
1700: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)

Line 1782: x_Visit_Schedule_Rec.IS_ORG_VALID := FND_API.G_TRUE;

1778: ----dbms_output.put_line('added org and dept info: ');
1779:
1780:
1781:
1782: x_Visit_Schedule_Rec.IS_ORG_VALID := FND_API.G_TRUE;
1783: IF(p_Visit_Rec.ORGANIZATION_ID IS NOT NULL)THEN
1784:
1785: -- whether the org is valid for the user
1786: x_Visit_Schedule_Rec.IS_ORG_VALID := AHL_UTILITY_PVT.IS_ORG_IN_USER_OU(

Line 1793: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN

1789: x_return_status => l_return_status,
1790: x_msg_data => l_msg_data
1791: );
1792: -- Check for API errors
1793: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1794: ----dbms_output.put_line('Unexpected error : AHL_UTILITY_PVT.IS_ORG_IN_USER_OU returned errors');
1795: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1796: fnd_log.string
1797: (

Line 1803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1799: L_DEBUG_MODULE,
1800: 'Unexpected error : AHL_UTILITY_PVT.IS_ORG_IN_USER_OU returned errors'
1801: );
1802: END IF;
1803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1804: END IF;
1805: END IF;
1806:
1807: IF(NVL(x_visit_Schedule_rec.VISIT_STATUS_CODE,'x') NOT IN( 'CLOSED','CANCELLED'))THEN

Line 1808: x_Visit_Schedule_Rec.CAN_CANCEL := FND_API.G_TRUE;

1804: END IF;
1805: END IF;
1806:
1807: IF(NVL(x_visit_Schedule_rec.VISIT_STATUS_CODE,'x') NOT IN( 'CLOSED','CANCELLED'))THEN
1808: x_Visit_Schedule_Rec.CAN_CANCEL := FND_API.G_TRUE;
1809: ELSE
1810: x_Visit_Schedule_Rec.CAN_CANCEL := FND_API.G_FALSE;
1811: END IF;
1812:

Line 1810: x_Visit_Schedule_Rec.CAN_CANCEL := FND_API.G_FALSE;

1806:
1807: IF(NVL(x_visit_Schedule_rec.VISIT_STATUS_CODE,'x') NOT IN( 'CLOSED','CANCELLED'))THEN
1808: x_Visit_Schedule_Rec.CAN_CANCEL := FND_API.G_TRUE;
1809: ELSE
1810: x_Visit_Schedule_Rec.CAN_CANCEL := FND_API.G_FALSE;
1811: END IF;
1812:
1813:
1814: x_Visit_Schedule_Rec.PREV_EVENT_TYPE := p_prev_event_type;

Line 1815: x_Visit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_FALSE;

1811: END IF;
1812:
1813:
1814: x_Visit_Schedule_Rec.PREV_EVENT_TYPE := p_prev_event_type;
1815: x_Visit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_FALSE;
1816: x_Visit_Schedule_Rec.HAS_CONFLICT := FND_API.G_FALSE;
1817:
1818: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1819: ----dbms_output.put_line('Previous event type : ' || G_EVENT_TYPE_FLIGHT);

Line 1816: x_Visit_Schedule_Rec.HAS_CONFLICT := FND_API.G_FALSE;

1812:
1813:
1814: x_Visit_Schedule_Rec.PREV_EVENT_TYPE := p_prev_event_type;
1815: x_Visit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_FALSE;
1816: x_Visit_Schedule_Rec.HAS_CONFLICT := FND_API.G_FALSE;
1817:
1818: IF(p_prev_event_type = G_EVENT_TYPE_FLIGHT)THEN
1819: ----dbms_output.put_line('Previous event type : ' || G_EVENT_TYPE_FLIGHT);
1820:

Line 1856: x_Visit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;

1852: -- Determine Conflcits
1853: IF(x_Visit_Schedule_Rec.PREV_EVENT_ID IS NOT NULL)THEN
1854: IF(x_Visit_Schedule_Rec.VISIT_ORG_ID <> x_Visit_Schedule_Rec.PREV_EVENT_ORG_ID)THEN
1855: org_conflict := TRUE;
1856: x_Visit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;
1857: END IF;
1858: IF(G_DEPT_CONFLICT AND x_Visit_Schedule_Rec.VISIT_DEP_ID <> x_Visit_Schedule_Rec.PREV_EVENT_DEP_ID)THEN
1859: dept_conflict := TRUE;
1860: x_Visit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;

Line 1860: x_Visit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;

1856: x_Visit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;
1857: END IF;
1858: IF(G_DEPT_CONFLICT AND x_Visit_Schedule_Rec.VISIT_DEP_ID <> x_Visit_Schedule_Rec.PREV_EVENT_DEP_ID)THEN
1859: dept_conflict := TRUE;
1860: x_Visit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;
1861: END IF;
1862: IF(x_Visit_Schedule_Rec.START_TIME < l_prev_event_end_time)THEN
1863: time_conflict := TRUE;
1864: x_Visit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;

Line 1864: x_Visit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;

1860: x_Visit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;
1861: END IF;
1862: IF(x_Visit_Schedule_Rec.START_TIME < l_prev_event_end_time)THEN
1863: time_conflict := TRUE;
1864: x_Visit_Schedule_Rec.HAS_CONFLICT := FND_API.G_TRUE;
1865: END IF;
1866: END IF;
1867:
1868: -- Determine Maintenance Opportunity

Line 1881: x_Visit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

1877: x_Visit_Schedule_Rec.START_TIME > l_prev_event_end_time AND
1878: x_Visit_Schedule_Rec.START_TIME > SYSDATE) THEN
1879: IF(l_prev_event_end_time >= SYSDATE AND
1880: (x_Visit_Schedule_Rec.START_TIME - l_prev_event_end_time)*24*60 >= G_MIN_TIME_MO)THEN
1881: x_Visit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1882: ELSIF(l_prev_event_end_time < SYSDATE AND
1883: (x_Visit_Schedule_Rec.START_TIME - SYSDATE)*24*60 >= G_MIN_TIME_MO)THEN
1884: x_Visit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1885: END IF;

Line 1884: x_Visit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

1880: (x_Visit_Schedule_Rec.START_TIME - l_prev_event_end_time)*24*60 >= G_MIN_TIME_MO)THEN
1881: x_Visit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1882: ELSIF(l_prev_event_end_time < SYSDATE AND
1883: (x_Visit_Schedule_Rec.START_TIME - SYSDATE)*24*60 >= G_MIN_TIME_MO)THEN
1884: x_Visit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1885: END IF;
1886: END IF;
1887:
1888: -- Commented the following lines of code as part of fix for bug# 6447447

Line 1894: x_Visit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

1890: IF(x_Visit_Schedule_Rec.PREV_EVENT_ID IS NOT NULL AND
1891: x_Visit_Schedule_Rec.PREV_UNIT_SCHEDULE_ID IS NOT NULL AND
1892: x_Visit_Schedule_Rec.START_TIME > l_prev_event_end_time) THEN
1893: IF ((x_Visit_Schedule_Rec.START_TIME - l_prev_event_end_time)*24*60 >= G_MIN_TIME_MO)THEN
1894: x_Visit_Schedule_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1895: END IF;
1896: END IF;
1897: */
1898:

Line 1909: IF(x_Visit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE OR x_Visit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN

1905: ELSE
1906: IF(l_previous_event_seq > 0)THEN
1907: x_Visit_Schedule_Rec.EVENT_SEQ := l_previous_event_seq + 1;
1908: ELSE
1909: IF(x_Visit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE OR x_Visit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1910: add_pre_window_event := TRUE;
1911: x_Visit_Schedule_Rec.EVENT_SEQ := 2;
1912: ELSE
1913: x_Visit_Schedule_Rec.EVENT_SEQ := 1;

Line 1918: IF(x_Visit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE OR x_Visit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN

1914: END IF;
1915: END IF;
1916: END IF;
1917: ELSIF( NOT p_window_event AND x_Visit_Schedule_Rec.PREV_EVENT_ID IS NOT NULL)THEN
1918: IF(x_Visit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE OR x_Visit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1919: IF(l_previous_event_seq > 0)THEN
1920: x_Visit_Schedule_Rec.EVENT_SEQ := l_previous_event_seq + 1;
1921: ELSE
1922: add_pre_window_event := TRUE;

Line 1939: IF(x_Visit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN

1935: END IF;
1936: END IF;
1937:
1938: -- Add Conflcit Message
1939: IF(x_Visit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1940: -- Event with sequence () and previous Event() has conflcits.
1941: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_FLIGHT_CONFLICT_MSG');
1942: FND_MESSAGE.SET_TOKEN('EVENT_SEQ1',x_Visit_Schedule_Rec.EVENT_SEQ,false);
1943: FND_MESSAGE.SET_TOKEN('EVENT_SEQ2',x_Visit_Schedule_Rec.EVENT_SEQ -1,false);

Line 1998: IF(x_Visit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN

1994: p_x_Visit_Schedule_tbl(l_index) := x_Visit_Schedule_Rec;
1995: END IF;
1996:
1997: -- Update conflict or MO at the header level
1998: IF(x_Visit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1999: p_x_MEvent_Header_Rec.HAS_CONFLICT := FND_API.G_TRUE;
2000: END IF;
2001: IF(x_Visit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE)THEN
2002: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

Line 1999: p_x_MEvent_Header_Rec.HAS_CONFLICT := FND_API.G_TRUE;

1995: END IF;
1996:
1997: -- Update conflict or MO at the header level
1998: IF(x_Visit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1999: p_x_MEvent_Header_Rec.HAS_CONFLICT := FND_API.G_TRUE;
2000: END IF;
2001: IF(x_Visit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE)THEN
2002: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
2003: END IF;

Line 2001: IF(x_Visit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE)THEN

1997: -- Update conflict or MO at the header level
1998: IF(x_Visit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1999: p_x_MEvent_Header_Rec.HAS_CONFLICT := FND_API.G_TRUE;
2000: END IF;
2001: IF(x_Visit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE)THEN
2002: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
2003: END IF;
2004:
2005: -- Log API exit point

Line 2002: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;

1998: IF(x_Visit_Schedule_Rec.HAS_CONFLICT = FND_API.G_TRUE)THEN
1999: p_x_MEvent_Header_Rec.HAS_CONFLICT := FND_API.G_TRUE;
2000: END IF;
2001: IF(x_Visit_Schedule_Rec.HAS_MOPPORTUNITY = FND_API.G_TRUE)THEN
2002: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
2003: END IF;
2004:
2005: -- Log API exit point
2006: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)

Line 2064: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)

2060: and ahl_util_uc_pkg.get_uc_status_code (p_unit_config_id) NOT IN ('DRAFT', 'EXPIRED');
2061:
2062: BEGIN
2063: -- Standard call to check for call compatibility
2064: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2065: THEN
2066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2067: END IF;
2068:

Line 2066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2062: BEGIN
2063: -- Standard call to check for call compatibility
2064: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2065: THEN
2066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2067: END IF;
2068:
2069: -- Initialize message list by default
2070: FND_MSG_PUB.Initialize;

Line 2073: x_return_status := FND_API.G_RET_STS_SUCCESS;

2069: -- Initialize message list by default
2070: FND_MSG_PUB.Initialize;
2071:
2072: -- Initialize API return status to success
2073: x_return_status := FND_API.G_RET_STS_SUCCESS;
2074:
2075: -- Log API entry point
2076: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2077: THEN

Line 2089: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR

2085:
2086: -- API body starts here
2087: -- 5. If (p_unit_config_id is null or p_start_date_time is null or p_end_date_time is null), then display error "Unit Configuration Id and Start Time are mandatory parameters"
2088: IF (
2089: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
2090: p_start_date_time IS NULL OR p_start_date_time = FND_API.G_MISS_DATE
2091: -- There could be cases where there are no succeeding events, hence np p_end_date_time
2092: --p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE OR
2093: --p_start_date_time >= nvl(p_end_date_time, p_start_date_time + 1)

Line 2090: p_start_date_time IS NULL OR p_start_date_time = FND_API.G_MISS_DATE

2086: -- API body starts here
2087: -- 5. If (p_unit_config_id is null or p_start_date_time is null or p_end_date_time is null), then display error "Unit Configuration Id and Start Time are mandatory parameters"
2088: IF (
2089: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
2090: p_start_date_time IS NULL OR p_start_date_time = FND_API.G_MISS_DATE
2091: -- There could be cases where there are no succeeding events, hence np p_end_date_time
2092: --p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE OR
2093: --p_start_date_time >= nvl(p_end_date_time, p_start_date_time + 1)
2094: )

Line 2092: --p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE OR

2088: IF (
2089: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
2090: p_start_date_time IS NULL OR p_start_date_time = FND_API.G_MISS_DATE
2091: -- There could be cases where there are no succeeding events, hence np p_end_date_time
2092: --p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE OR
2093: --p_start_date_time >= nvl(p_end_date_time, p_start_date_time + 1)
2094: )
2095: THEN
2096: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_PROCEDURE_CALL');

Line 2099: RAISE FND_API.G_EXC_ERROR;

2095: THEN
2096: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_PROCEDURE_CALL');
2097: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);
2098: FND_MSG_PUB.ADD;
2099: RAISE FND_API.G_EXC_ERROR;
2100: END IF;
2101:
2102: -- 6. Validate unit configuration with unit_config_id = p_unit_config_id exists and is complete and active, using cursor check_unit_exists. If no record found, throw error "Unit Configuration does not exist or is not complete"
2103: OPEN check_unit_exists (p_unit_config_id);

Line 2110: RAISE FND_API.G_EXC_ERROR;

2106: THEN
2107: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UA_UNIT_ID_NOT_FOUND');
2108: FND_MSG_PUB.ADD;
2109: CLOSE check_unit_exists;
2110: RAISE FND_API.G_EXC_ERROR;
2111: END IF;
2112: CLOSE check_unit_exists;
2113:
2114: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)

Line 2194: RAISE FND_API.G_EXC_ERROR;

2190: -- Check Error Message stack.
2191: x_msg_count := FND_MSG_PUB.count_msg;
2192: IF x_msg_count > 0
2193: THEN
2194: RAISE FND_API.G_EXC_ERROR;
2195: END IF;
2196:
2197: -- Standard call to get message count and if count is 1, get message info
2198: FND_MSG_PUB.count_and_get

Line 2202: p_encoded => FND_API.G_FALSE

2198: FND_MSG_PUB.count_and_get
2199: (
2200: p_count => x_msg_count,
2201: p_data => x_msg_data,
2202: p_encoded => FND_API.G_FALSE
2203: );
2204:
2205: EXCEPTION
2206: WHEN FND_API.G_EXC_ERROR THEN

Line 2206: WHEN FND_API.G_EXC_ERROR THEN

2202: p_encoded => FND_API.G_FALSE
2203: );
2204:
2205: EXCEPTION
2206: WHEN FND_API.G_EXC_ERROR THEN
2207: x_return_status := FND_API.G_RET_STS_ERROR;
2208: FND_MSG_PUB.count_and_get
2209: (
2210: p_count => x_msg_count,

Line 2207: x_return_status := FND_API.G_RET_STS_ERROR;

2203: );
2204:
2205: EXCEPTION
2206: WHEN FND_API.G_EXC_ERROR THEN
2207: x_return_status := FND_API.G_RET_STS_ERROR;
2208: FND_MSG_PUB.count_and_get
2209: (
2210: p_count => x_msg_count,
2211: p_data => x_msg_data,

Line 2212: p_encoded => FND_API.G_FALSE

2208: FND_MSG_PUB.count_and_get
2209: (
2210: p_count => x_msg_count,
2211: p_data => x_msg_data,
2212: p_encoded => FND_API.G_FALSE
2213: );
2214:
2215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 2215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2211: p_data => x_msg_data,
2212: p_encoded => FND_API.G_FALSE
2213: );
2214:
2215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2217: FND_MSG_PUB.count_and_get
2218: (
2219: p_count => x_msg_count,

Line 2216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2212: p_encoded => FND_API.G_FALSE
2213: );
2214:
2215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2217: FND_MSG_PUB.count_and_get
2218: (
2219: p_count => x_msg_count,
2220: p_data => x_msg_data,

Line 2221: p_encoded => FND_API.G_FALSE

2217: FND_MSG_PUB.count_and_get
2218: (
2219: p_count => x_msg_count,
2220: p_data => x_msg_data,
2221: p_encoded => FND_API.G_FALSE
2222: );
2223:
2224: WHEN OTHERS THEN
2225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 2225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2221: p_encoded => FND_API.G_FALSE
2222: );
2223:
2224: WHEN OTHERS THEN
2225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2226: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2227: THEN
2228: FND_MSG_PUB.add_exc_msg
2229: (

Line 2239: p_encoded => FND_API.G_FALSE

2235: FND_MSG_PUB.count_and_get
2236: (
2237: p_count => x_msg_count,
2238: p_data => x_msg_data,
2239: p_encoded => FND_API.G_FALSE
2240: );
2241: END Get_Prec_Succ_Event_Info;
2242:
2243: -- Function to get the profile value for minimum number of minutes to considered as a