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_COMMON_PVT dependencies on FND_API

Line 90: AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE) event_end_time

86: select
87: vwp.visit_id event_id,
88: G_EVENT_TYPE_VISIT event_type,
89: vwp.start_date_time event_start_time,
90: AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE) event_end_time
91: from ahl_visits_b vwp, ahl_unit_config_headers uc
92: where uc.unit_config_header_id = p_unit_config_id
93: and vwp.item_instance_id = uc.csi_item_instance_id
94: --priyan Bug # 5303188

Line 107: p_start_time < nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 ) and

103: vwp.start_date_time < p_end_time
104: )
105: or
106: (
107: p_start_time < nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 ) and
108: nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 ) <= p_end_time
109: )
110: or
111: (

Line 108: nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 ) <= p_end_time

104: )
105: or
106: (
107: p_start_time < nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 ) and
108: nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 ) <= p_end_time
109: )
110: or
111: (
112: vwp.start_date_time <= p_start_time and

Line 113: p_end_time <= nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 )

109: )
110: or
111: (
112: vwp.start_date_time <= p_start_time and
113: p_end_time <= nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 )
114: )
115: )
116: ) events
117: order by event_start_time asc, NVL(event_end_time, event_start_time + 1/1440) asc, event_type desc;

Line 163: AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE) event_end_time

159: select
160: vwp.visit_id event_id,
161: G_EVENT_TYPE_VISIT event_type,
162: vwp.start_date_time event_start_time,
163: AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE) event_end_time
164: from ahl_visits_b vwp, ahl_unit_config_headers uc
165: where uc.unit_config_header_id = p_unit_config_id
166: and vwp.item_instance_id = uc.csi_item_instance_id
167: --priyan Bug # 5303188

Line 180: p_start_time < nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 ) and

176: vwp.start_date_time < p_end_time
177: )
178: or
179: (
180: p_start_time < nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 ) and
181: nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 ) <= p_end_time
182: )
183: or
184: (

Line 181: nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 ) <= p_end_time

177: )
178: or
179: (
180: p_start_time < nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 ) and
181: nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 ) <= p_end_time
182: )
183: or
184: (
185: vwp.start_date_time <= p_start_time and

Line 186: p_end_time <= nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 )

182: )
183: or
184: (
185: vwp.start_date_time <= p_start_time and
186: p_end_time <= nvl(AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(vwp.VISIT_ID , FND_API.G_FALSE), vwp.start_date_time + 1/1440 )
187: )
188: )
189: )
190: order by event_start_time asc, NVL(event_end_time, event_start_time + 1/1440) asc, event_type desc;

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

190: order by event_start_time asc, NVL(event_end_time, event_start_time + 1/1440) asc, event_type desc;
191:
192: BEGIN
193: -- Standard call to check for call compatibility
194: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
195: THEN
196: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
197: END IF;
198:

Line 196: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

192: BEGIN
193: -- Standard call to check for call compatibility
194: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
195: THEN
196: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
197: END IF;
198:
199: -- Initialize API return status to success
200: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 200: x_return_status := FND_API.G_RET_STS_SUCCESS;

196: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
197: END IF;
198:
199: -- Initialize API return status to success
200: x_return_status := FND_API.G_RET_STS_SUCCESS;
201:
202: -- Log API entry point
203: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
204: THEN

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

212:
213: -- API body starts here
214: -- 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"
215: IF (
216: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
217: p_start_date_time IS NULL OR p_start_date_time = FND_API.G_MISS_DATE OR
218: p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE
219: )
220: THEN

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

213: -- API body starts here
214: -- 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"
215: IF (
216: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
217: p_start_date_time IS NULL OR p_start_date_time = FND_API.G_MISS_DATE OR
218: p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE
219: )
220: THEN
221: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');

Line 218: p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE

214: -- 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"
215: IF (
216: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
217: p_start_date_time IS NULL OR p_start_date_time = FND_API.G_MISS_DATE OR
218: p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE
219: )
220: THEN
221: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
222: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);

Line 224: RAISE FND_API.G_EXC_ERROR;

220: THEN
221: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
222: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);
223: FND_MSG_PUB.ADD;
224: RAISE FND_API.G_EXC_ERROR;
225: END IF;
226:
227: /*
228: -- 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"

Line 236: RAISE FND_API.G_EXC_ERROR;

232: THEN
233: FND_MESSAGE.SET_NAME('AHL', 'AHL_UA_UNIT_ID_NOT_FOUND');
234: FND_MSG_PUB.ADD;
235: CLOSE check_unit_exists;
236: RAISE FND_API.G_EXC_ERROR;
237: END IF;
238: CLOSE check_unit_exists;
239: */
240:

Line 252: IF (p_use_actuals IS NOT NULL AND p_use_actuals = FND_API.G_TRUE)

248: );
249: END IF;
250:
251: -- 7. If (p_use_actuals = 'T'), open cursor get_prec_flight_act else open cursor get_prec_flight_est
252: IF (p_use_actuals IS NOT NULL AND p_use_actuals = FND_API.G_TRUE)
253: THEN
254: OPEN get_event_details_act (p_unit_config_id, p_start_date_time, p_end_date_time);
255: LOOP
256: FETCH get_event_details_act INTO l_event_id, l_event_type, l_event_start_time, l_event_end_time;

Line 329: RAISE FND_API.G_EXC_ERROR;

325: -- Check Error Message stack.
326: x_msg_count := FND_MSG_PUB.count_msg;
327: IF x_msg_count > 0
328: THEN
329: RAISE FND_API.G_EXC_ERROR;
330: END IF;
331:
332: -- Standard call to get message count and if count is 1, get message info
333: FND_MSG_PUB.count_and_get

Line 337: p_encoded => FND_API.G_FALSE

333: FND_MSG_PUB.count_and_get
334: (
335: p_count => x_msg_count,
336: p_data => x_msg_data,
337: p_encoded => FND_API.G_FALSE
338: );
339:
340: EXCEPTION
341: WHEN FND_API.G_EXC_ERROR THEN

Line 341: WHEN FND_API.G_EXC_ERROR THEN

337: p_encoded => FND_API.G_FALSE
338: );
339:
340: EXCEPTION
341: WHEN FND_API.G_EXC_ERROR THEN
342: x_return_status := FND_API.G_RET_STS_ERROR;
343: FND_MSG_PUB.count_and_get
344: (
345: p_count => x_msg_count,

Line 342: x_return_status := FND_API.G_RET_STS_ERROR;

338: );
339:
340: EXCEPTION
341: WHEN FND_API.G_EXC_ERROR THEN
342: x_return_status := FND_API.G_RET_STS_ERROR;
343: FND_MSG_PUB.count_and_get
344: (
345: p_count => x_msg_count,
346: p_data => x_msg_data,

Line 347: p_encoded => FND_API.G_FALSE

343: FND_MSG_PUB.count_and_get
344: (
345: p_count => x_msg_count,
346: p_data => x_msg_data,
347: p_encoded => FND_API.G_FALSE
348: );
349:
350: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 350: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

346: p_data => x_msg_data,
347: p_encoded => FND_API.G_FALSE
348: );
349:
350: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
352: FND_MSG_PUB.count_and_get
353: (
354: p_count => x_msg_count,

Line 351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

347: p_encoded => FND_API.G_FALSE
348: );
349:
350: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
352: FND_MSG_PUB.count_and_get
353: (
354: p_count => x_msg_count,
355: p_data => x_msg_data,

Line 356: p_encoded => FND_API.G_FALSE

352: FND_MSG_PUB.count_and_get
353: (
354: p_count => x_msg_count,
355: p_data => x_msg_data,
356: p_encoded => FND_API.G_FALSE
357: );
358:
359: WHEN OTHERS THEN
360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

356: p_encoded => FND_API.G_FALSE
357: );
358:
359: WHEN OTHERS THEN
360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
361: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
362: THEN
363: FND_MSG_PUB.add_exc_msg
364: (

Line 374: p_encoded => FND_API.G_FALSE

370: FND_MSG_PUB.count_and_get
371: (
372: p_count => x_msg_count,
373: p_data => x_msg_data,
374: p_encoded => FND_API.G_FALSE
375: );
376: END Get_All_Events;
377:
378: -----------------------------------------

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

435: l_est_flight_rec get_prec_flight_est%rowtype;
436:
437: BEGIN
438: -- Standard call to check for call compatibility
439: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
440: THEN
441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
442: END IF;
443:

Line 441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

437: BEGIN
438: -- Standard call to check for call compatibility
439: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
440: THEN
441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
442: END IF;
443:
444: -- Initialize API return status to success
445: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 445: x_return_status := FND_API.G_RET_STS_SUCCESS;

441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
442: END IF;
443:
444: -- Initialize API return status to success
445: x_return_status := FND_API.G_RET_STS_SUCCESS;
446:
447: -- Log API entry point
448: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
449: THEN

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

457:
458: -- API body starts here
459: -- 4. If (p_unit_config_id is null or p_start_date_time is null), then display error "Unit Configuration Id and Start Time are mandatory parameters"
460: IF (
461: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
462: p_start_date_time IS NULL OR p_start_date_time = FND_API.G_MISS_DATE
463: )
464: THEN
465: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');

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

458: -- API body starts here
459: -- 4. If (p_unit_config_id is null or p_start_date_time is null), then display error "Unit Configuration Id and Start Time are mandatory parameters"
460: IF (
461: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
462: p_start_date_time IS NULL OR p_start_date_time = FND_API.G_MISS_DATE
463: )
464: THEN
465: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
466: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);

Line 468: RAISE FND_API.G_EXC_ERROR;

464: THEN
465: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
466: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);
467: FND_MSG_PUB.ADD;
468: RAISE FND_API.G_EXC_ERROR;
469: END IF;
470:
471: /*
472: -- 5. 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"

Line 480: RAISE FND_API.G_EXC_ERROR;

476: THEN
477: FND_MESSAGE.SET_NAME('AHL', 'AHL_UA_UNIT_ID_NOT_FOUND');
478: FND_MSG_PUB.ADD;
479: CLOSE check_unit_exists;
480: RAISE FND_API.G_EXC_ERROR;
481: END IF;
482: CLOSE check_unit_exists;
483: */
484:

Line 495: x_is_conflict := FND_API.G_FALSE;

491: 'Basic validations done'
492: );
493: END IF;
494:
495: x_is_conflict := FND_API.G_FALSE;
496:
497: -- 6. If (p_use_actuals = FND_API.G_TRUE), open cursor get_prec_flight_act else open cursor get_prec_flight_est
498: IF (p_use_actuals IS NOT NULL AND p_use_actuals = FND_API.G_TRUE)
499: THEN

Line 497: -- 6. If (p_use_actuals = FND_API.G_TRUE), open cursor get_prec_flight_act else open cursor get_prec_flight_est

493: END IF;
494:
495: x_is_conflict := FND_API.G_FALSE;
496:
497: -- 6. If (p_use_actuals = FND_API.G_TRUE), open cursor get_prec_flight_act else open cursor get_prec_flight_est
498: IF (p_use_actuals IS NOT NULL AND p_use_actuals = FND_API.G_TRUE)
499: THEN
500: -- 7. Fetch one record from cursor into and populate x_Flight_Schedule_Rec_Type with values from this record
501: OPEN get_prec_flight_act (p_unit_config_id, p_start_date_time);

Line 498: IF (p_use_actuals IS NOT NULL AND p_use_actuals = FND_API.G_TRUE)

494:
495: x_is_conflict := FND_API.G_FALSE;
496:
497: -- 6. If (p_use_actuals = FND_API.G_TRUE), open cursor get_prec_flight_act else open cursor get_prec_flight_est
498: IF (p_use_actuals IS NOT NULL AND p_use_actuals = FND_API.G_TRUE)
499: THEN
500: -- 7. Fetch one record from cursor into and populate x_Flight_Schedule_Rec_Type with values from this record
501: OPEN get_prec_flight_act (p_unit_config_id, p_start_date_time);
502: FETCH get_prec_flight_act INTO l_act_flight_rec;

Line 547: -- 8. Fetch another record from cursor, and if the record's arrival time (actual / estimated based on p_use_actuals) = previous record's arrival time, then populate x_is_conflict = FND_API.G_TRUE

543: x_prec_flight_schedule.attribute13 := l_act_flight_rec.attribute13;
544: x_prec_flight_schedule.attribute14 := l_act_flight_rec.attribute14;
545: x_prec_flight_schedule.attribute15 := l_act_flight_rec.attribute15;
546:
547: -- 8. Fetch another record from cursor, and if the record's arrival time (actual / estimated based on p_use_actuals) = previous record's arrival time, then populate x_is_conflict = FND_API.G_TRUE
548: FETCH get_prec_flight_act INTO l_act_flight_rec;
549: IF (
550: get_prec_flight_act%FOUND
551: AND

Line 563: x_is_conflict := FND_API.G_TRUE;

559: nvl(l_act_flight_rec.actual_arrival_time, l_act_flight_rec.est_arrival_time) =
560: nvl(x_prec_flight_schedule.actual_arrival_time, x_prec_flight_schedule.est_arrival_time)
561: )
562: THEN
563: x_is_conflict := FND_API.G_TRUE;
564: END IF;
565: END IF;
566: CLOSE get_prec_flight_act;
567: ELSE

Line 615: -- 8. Fetch another record from cursor, and if the record's arrival time (actual / estimated based on p_use_actuals) = previous record's arrival time, then populate x_is_conflict = FND_API.G_TRUE

611: x_prec_flight_schedule.attribute13 := l_est_flight_rec.attribute13;
612: x_prec_flight_schedule.attribute14 := l_est_flight_rec.attribute14;
613: x_prec_flight_schedule.attribute15 := l_est_flight_rec.attribute15;
614:
615: -- 8. Fetch another record from cursor, and if the record's arrival time (actual / estimated based on p_use_actuals) = previous record's arrival time, then populate x_is_conflict = FND_API.G_TRUE
616: FETCH get_prec_flight_est INTO l_est_flight_rec;
617: IF (
618: get_prec_flight_est%FOUND
619: AND

Line 628: x_is_conflict := FND_API.G_TRUE;

624: AND
625: l_est_flight_rec.est_arrival_time = x_prec_flight_schedule.est_arrival_time
626: )
627: THEN
628: x_is_conflict := FND_API.G_TRUE;
629: END IF;
630: END IF;
631: CLOSE get_prec_flight_est;
632: END IF;

Line 652: RAISE FND_API.G_EXC_ERROR;

648: -- Check Error Message stack.
649: x_msg_count := FND_MSG_PUB.count_msg;
650: IF x_msg_count > 0
651: THEN
652: RAISE FND_API.G_EXC_ERROR;
653: END IF;
654:
655: -- Standard call to get message count and if count is 1, get message info
656: FND_MSG_PUB.count_and_get

Line 660: p_encoded => FND_API.G_FALSE

656: FND_MSG_PUB.count_and_get
657: (
658: p_count => x_msg_count,
659: p_data => x_msg_data,
660: p_encoded => FND_API.G_FALSE
661: );
662:
663: EXCEPTION
664: WHEN FND_API.G_EXC_ERROR THEN

Line 664: WHEN FND_API.G_EXC_ERROR THEN

660: p_encoded => FND_API.G_FALSE
661: );
662:
663: EXCEPTION
664: WHEN FND_API.G_EXC_ERROR THEN
665: x_return_status := FND_API.G_RET_STS_ERROR;
666: FND_MSG_PUB.count_and_get
667: (
668: p_count => x_msg_count,

Line 665: x_return_status := FND_API.G_RET_STS_ERROR;

661: );
662:
663: EXCEPTION
664: WHEN FND_API.G_EXC_ERROR THEN
665: x_return_status := FND_API.G_RET_STS_ERROR;
666: FND_MSG_PUB.count_and_get
667: (
668: p_count => x_msg_count,
669: p_data => x_msg_data,

Line 670: p_encoded => FND_API.G_FALSE

666: FND_MSG_PUB.count_and_get
667: (
668: p_count => x_msg_count,
669: p_data => x_msg_data,
670: p_encoded => FND_API.G_FALSE
671: );
672:
673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

669: p_data => x_msg_data,
670: p_encoded => FND_API.G_FALSE
671: );
672:
673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
675: FND_MSG_PUB.count_and_get
676: (
677: p_count => x_msg_count,

Line 674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

670: p_encoded => FND_API.G_FALSE
671: );
672:
673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
675: FND_MSG_PUB.count_and_get
676: (
677: p_count => x_msg_count,
678: p_data => x_msg_data,

Line 679: p_encoded => FND_API.G_FALSE

675: FND_MSG_PUB.count_and_get
676: (
677: p_count => x_msg_count,
678: p_data => x_msg_data,
679: p_encoded => FND_API.G_FALSE
680: );
681:
682: WHEN OTHERS THEN
683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

679: p_encoded => FND_API.G_FALSE
680: );
681:
682: WHEN OTHERS THEN
683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
684: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
685: THEN
686: FND_MSG_PUB.add_exc_msg
687: (

Line 697: p_encoded => FND_API.G_FALSE

693: FND_MSG_PUB.count_and_get
694: (
695: p_count => x_msg_count,
696: p_data => x_msg_data,
697: p_encoded => FND_API.G_FALSE
698: );
699: END Get_Prec_Flight_Info;
700:
701: ----------------------------------------

Line 740: AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(VB.VISIT_ID , FND_API.G_FALSE) CLOSE_DATE_TIME,

736: VB.DEPARTMENT_ID,
737: BDPT.DESCRIPTION DEPARTMENT_NAME,
738: VB.SERVICE_REQUEST_ID,
739: VB.START_DATE_TIME,
740: AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(VB.VISIT_ID , FND_API.G_FALSE) CLOSE_DATE_TIME,
741: VB.STATUS_CODE,
742: VB.VISIT_TYPE_CODE,
743: VB.PROJECT_FLAG,
744: VB.PROJECT_ID,

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

780: l_prec_visit get_prec_visit_rec%rowtype;
781:
782: BEGIN
783: -- Standard call to check for call compatibility
784: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
785: THEN
786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
787: END IF;
788:

Line 786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

782: BEGIN
783: -- Standard call to check for call compatibility
784: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
785: THEN
786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
787: END IF;
788:
789: -- Initialize API return status to success
790: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 790: x_return_status := FND_API.G_RET_STS_SUCCESS;

786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
787: END IF;
788:
789: -- Initialize API return status to success
790: x_return_status := FND_API.G_RET_STS_SUCCESS;
791:
792: -- Log API entry point
793: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
794: THEN

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

802:
803: -- API body starts here
804: -- 4. If (p_unit_config_id is null or p_start_date_time is null), then display error "Unit Configuration Id and Start Time are mandatory parameters"
805: IF (
806: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
807: p_start_date_time IS NULL OR p_start_date_time = FND_API.G_MISS_DATE
808: )
809: THEN
810: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');

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

803: -- API body starts here
804: -- 4. If (p_unit_config_id is null or p_start_date_time is null), then display error "Unit Configuration Id and Start Time are mandatory parameters"
805: IF (
806: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
807: p_start_date_time IS NULL OR p_start_date_time = FND_API.G_MISS_DATE
808: )
809: THEN
810: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
811: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);

Line 813: RAISE FND_API.G_EXC_ERROR;

809: THEN
810: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
811: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);
812: FND_MSG_PUB.ADD;
813: RAISE FND_API.G_EXC_ERROR;
814: END IF;
815:
816: /*
817: -- 5. 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"

Line 825: RAISE FND_API.G_EXC_ERROR;

821: THEN
822: FND_MESSAGE.SET_NAME('AHL', 'AHL_UA_UNIT_ID_NOT_FOUND');
823: FND_MSG_PUB.ADD;
824: CLOSE check_unit_exists;
825: RAISE FND_API.G_EXC_ERROR;
826: END IF;
827: CLOSE check_unit_exists;
828: */
829:

Line 840: x_is_conflict := FND_API.G_FALSE;

836: 'Basic validations done'
837: );
838: END IF;
839:
840: x_is_conflict := FND_API.G_FALSE;
841:
842: --6. get the greatest and the second greatest CLOSE_DATE and see if they are the same. If same then a conflict occurs.
843: OPEN get_prec_visit_rec (p_unit_config_id ,p_start_date_time);
844: FETCH get_prec_visit_rec INTO l_prec_visit;

Line 893: x_is_conflict := FND_API.G_TRUE; -- events are in conflict

889: AND
890: NVL(l_prec_visit.CLOSE_DATE_TIME, l_prec_visit.START_DATE_TIME + 1/1440) = NVL(x_prec_visit.END_DATE, x_prec_visit.START_DATE + 1/1440)
891: )
892: THEN
893: x_is_conflict := FND_API.G_TRUE; -- events are in conflict
894: END IF;
895: END IF;
896: CLOSE get_prec_visit_rec;
897: -- API body ends here

Line 914: RAISE FND_API.G_EXC_ERROR;

910: -- Check Error Message stack.
911: x_msg_count := FND_MSG_PUB.count_msg;
912: IF x_msg_count > 0
913: THEN
914: RAISE FND_API.G_EXC_ERROR;
915: END IF;
916:
917: -- Standard call to get message count and if count is 1, get message info
918: FND_MSG_PUB.count_and_get

Line 922: p_encoded => FND_API.G_FALSE

918: FND_MSG_PUB.count_and_get
919: (
920: p_count => x_msg_count,
921: p_data => x_msg_data,
922: p_encoded => FND_API.G_FALSE
923: );
924:
925: EXCEPTION
926: WHEN FND_API.G_EXC_ERROR THEN

Line 926: WHEN FND_API.G_EXC_ERROR THEN

922: p_encoded => FND_API.G_FALSE
923: );
924:
925: EXCEPTION
926: WHEN FND_API.G_EXC_ERROR THEN
927: x_return_status := FND_API.G_RET_STS_ERROR;
928: FND_MSG_PUB.count_and_get
929: (
930: p_count => x_msg_count,

Line 927: x_return_status := FND_API.G_RET_STS_ERROR;

923: );
924:
925: EXCEPTION
926: WHEN FND_API.G_EXC_ERROR THEN
927: x_return_status := FND_API.G_RET_STS_ERROR;
928: FND_MSG_PUB.count_and_get
929: (
930: p_count => x_msg_count,
931: p_data => x_msg_data,

Line 932: p_encoded => FND_API.G_FALSE

928: FND_MSG_PUB.count_and_get
929: (
930: p_count => x_msg_count,
931: p_data => x_msg_data,
932: p_encoded => FND_API.G_FALSE
933: );
934:
935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

931: p_data => x_msg_data,
932: p_encoded => FND_API.G_FALSE
933: );
934:
935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
937: FND_MSG_PUB.count_and_get
938: (
939: p_count => x_msg_count,

Line 936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

932: p_encoded => FND_API.G_FALSE
933: );
934:
935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
937: FND_MSG_PUB.count_and_get
938: (
939: p_count => x_msg_count,
940: p_data => x_msg_data,

Line 941: p_encoded => FND_API.G_FALSE

937: FND_MSG_PUB.count_and_get
938: (
939: p_count => x_msg_count,
940: p_data => x_msg_data,
941: p_encoded => FND_API.G_FALSE
942: );
943:
944: WHEN OTHERS THEN
945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

941: p_encoded => FND_API.G_FALSE
942: );
943:
944: WHEN OTHERS THEN
945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
946: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
947: THEN
948: FND_MSG_PUB.add_exc_msg
949: (

Line 959: p_encoded => FND_API.G_FALSE

955: FND_MSG_PUB.count_and_get
956: (
957: p_count => x_msg_count,
958: p_data => x_msg_data,
959: p_encoded => FND_API.G_FALSE
960: );
961: END Get_Prec_Visit_Info;
962:
963: ----------------------------------------

Line 1003: AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(VB.VISIT_ID , FND_API.G_FALSE) CLOSE_DATE_TIME,

999: VB.DEPARTMENT_ID,
1000: BDPT.DESCRIPTION DEPARTMENT_NAME,
1001: VB.SERVICE_REQUEST_ID,
1002: VB.START_DATE_TIME,
1003: AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(VB.VISIT_ID , FND_API.G_FALSE) CLOSE_DATE_TIME,
1004: VB.STATUS_CODE,
1005: VB.VISIT_TYPE_CODE,
1006: VB.PROJECT_FLAG,
1007: VB.PROJECT_ID,

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

1040: l_succ_visit get_succ_visit_rec%rowtype;
1041:
1042: BEGIN
1043: -- Standard call to check for call compatibility
1044: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1045: THEN
1046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1047: END IF;
1048:

Line 1046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1042: BEGIN
1043: -- Standard call to check for call compatibility
1044: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1045: THEN
1046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1047: END IF;
1048:
1049: -- Initialize API return status to success
1050: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 1050: x_return_status := FND_API.G_RET_STS_SUCCESS;

1046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1047: END IF;
1048:
1049: -- Initialize API return status to success
1050: x_return_status := FND_API.G_RET_STS_SUCCESS;
1051:
1052: -- Log API entry point
1053: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1054: THEN

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

1063: -- API body starts here
1064: -- 4. If (p_unit_config_id is null or p_end_date_time is null), then display error "Unit Configuration Id and Start Time are mandatory parameters"
1065: -- This API is not expected to be called with p_end_date_time = NULL, since the calling API should already be verifying that, hence throwing error if thats the case...
1066: IF (
1067: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
1068: p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE
1069: )
1070: THEN
1071: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');

Line 1068: p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE

1064: -- 4. If (p_unit_config_id is null or p_end_date_time is null), then display error "Unit Configuration Id and Start Time are mandatory parameters"
1065: -- This API is not expected to be called with p_end_date_time = NULL, since the calling API should already be verifying that, hence throwing error if thats the case...
1066: IF (
1067: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
1068: p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE
1069: )
1070: THEN
1071: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
1072: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);

Line 1074: RAISE FND_API.G_EXC_ERROR;

1070: THEN
1071: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
1072: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);
1073: FND_MSG_PUB.ADD;
1074: RAISE FND_API.G_EXC_ERROR;
1075: END IF;
1076:
1077: /*
1078: -- 5. 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"

Line 1086: RAISE FND_API.G_EXC_ERROR;

1082: THEN
1083: FND_MESSAGE.SET_NAME('AHL', 'AHL_UA_UNIT_ID_NOT_FOUND');
1084: FND_MSG_PUB.ADD;
1085: CLOSE check_unit_exists;
1086: RAISE FND_API.G_EXC_ERROR;
1087: END IF;
1088: CLOSE check_unit_exists;
1089: */
1090:

Line 1101: x_is_conflict := FND_API.G_FALSE;

1097: 'Basic validations done'
1098: );
1099: END IF;
1100:
1101: x_is_conflict := FND_API.G_FALSE;
1102:
1103: --6. get the greatest and the second greatest CLOSE_DATE and see if they are the same. If same then a conflict occurs.
1104: OPEN get_succ_visit_rec (p_unit_config_id ,p_end_date_time);
1105: FETCH get_succ_visit_rec INTO l_succ_visit;

Line 1152: x_is_conflict := FND_API.G_TRUE; -- events are in conflict

1148: AND
1149: NVL(l_succ_visit.CLOSE_DATE_TIME, l_succ_visit.START_DATE_TIME + 1/1440) = NVL(x_succ_visit.END_DATE, x_succ_visit.START_DATE + 1/1440)
1150: )
1151: THEN
1152: x_is_conflict := FND_API.G_TRUE; -- events are in conflict
1153: END IF;
1154: END IF;
1155: CLOSE get_succ_visit_rec;
1156: -- API body ends here

Line 1173: RAISE FND_API.G_EXC_ERROR;

1169: -- Check Error Message stack.
1170: x_msg_count := FND_MSG_PUB.count_msg;
1171: IF x_msg_count > 0
1172: THEN
1173: RAISE FND_API.G_EXC_ERROR;
1174: END IF;
1175:
1176: -- Standard call to get message count and if count is 1, get message info
1177: FND_MSG_PUB.count_and_get

Line 1181: p_encoded => FND_API.G_FALSE

1177: FND_MSG_PUB.count_and_get
1178: (
1179: p_count => x_msg_count,
1180: p_data => x_msg_data,
1181: p_encoded => FND_API.G_FALSE
1182: );
1183:
1184: EXCEPTION
1185: WHEN FND_API.G_EXC_ERROR THEN

Line 1185: WHEN FND_API.G_EXC_ERROR THEN

1181: p_encoded => FND_API.G_FALSE
1182: );
1183:
1184: EXCEPTION
1185: WHEN FND_API.G_EXC_ERROR THEN
1186: x_return_status := FND_API.G_RET_STS_ERROR;
1187: FND_MSG_PUB.count_and_get
1188: (
1189: p_count => x_msg_count,

Line 1186: x_return_status := FND_API.G_RET_STS_ERROR;

1182: );
1183:
1184: EXCEPTION
1185: WHEN FND_API.G_EXC_ERROR THEN
1186: x_return_status := FND_API.G_RET_STS_ERROR;
1187: FND_MSG_PUB.count_and_get
1188: (
1189: p_count => x_msg_count,
1190: p_data => x_msg_data,

Line 1191: p_encoded => FND_API.G_FALSE

1187: FND_MSG_PUB.count_and_get
1188: (
1189: p_count => x_msg_count,
1190: p_data => x_msg_data,
1191: p_encoded => FND_API.G_FALSE
1192: );
1193:
1194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1190: p_data => x_msg_data,
1191: p_encoded => FND_API.G_FALSE
1192: );
1193:
1194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1196: FND_MSG_PUB.count_and_get
1197: (
1198: p_count => x_msg_count,

Line 1195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1191: p_encoded => FND_API.G_FALSE
1192: );
1193:
1194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1196: FND_MSG_PUB.count_and_get
1197: (
1198: p_count => x_msg_count,
1199: p_data => x_msg_data,

Line 1200: p_encoded => FND_API.G_FALSE

1196: FND_MSG_PUB.count_and_get
1197: (
1198: p_count => x_msg_count,
1199: p_data => x_msg_data,
1200: p_encoded => FND_API.G_FALSE
1201: );
1202:
1203: WHEN OTHERS THEN
1204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1200: p_encoded => FND_API.G_FALSE
1201: );
1202:
1203: WHEN OTHERS THEN
1204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1205: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1206: THEN
1207: FND_MSG_PUB.add_exc_msg
1208: (

Line 1218: p_encoded => FND_API.G_FALSE

1214: FND_MSG_PUB.count_and_get
1215: (
1216: p_count => x_msg_count,
1217: p_data => x_msg_data,
1218: p_encoded => FND_API.G_FALSE
1219: );
1220: END Get_Succ_Visit_Info;
1221:
1222: ---------------------------------------------

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

1251: l_is_flight_conflict VARCHAR2(1);
1252: l_is_visit_conflict VARCHAR2(1);
1253: BEGIN
1254: -- Standard call to check for call compatibility
1255: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1256: THEN
1257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1258: END IF;
1259:

Line 1257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1253: BEGIN
1254: -- Standard call to check for call compatibility
1255: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1256: THEN
1257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1258: END IF;
1259:
1260: -- Initialize API return status to success
1261: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 1261: x_return_status := FND_API.G_RET_STS_SUCCESS;

1257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1258: END IF;
1259:
1260: -- Initialize API return status to success
1261: x_return_status := FND_API.G_RET_STS_SUCCESS;
1262:
1263: -- Log API entry point
1264: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1265: THEN

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

1274: -- API body starts here
1275: -- 4. If (p_unit_config_id is null or p_start_date_time is null), then display error "Unit Configuration Id and End Time are mandatory parameters"
1276:
1277: IF (
1278: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
1279: p_start_date_time IS NULL OR p_start_date_time = FND_API.G_MISS_DATE
1280: )
1281: THEN
1282: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');

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

1275: -- 4. If (p_unit_config_id is null or p_start_date_time is null), then display error "Unit Configuration Id and End Time are mandatory parameters"
1276:
1277: IF (
1278: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
1279: p_start_date_time IS NULL OR p_start_date_time = FND_API.G_MISS_DATE
1280: )
1281: THEN
1282: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
1283: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);

Line 1285: RAISE FND_API.G_EXC_ERROR;

1281: THEN
1282: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
1283: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);
1284: FND_MSG_PUB.ADD;
1285: RAISE FND_API.G_EXC_ERROR;
1286: END IF;
1287:
1288: /*
1289: -- 5. 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"

Line 1297: RAISE FND_API.G_EXC_ERROR;

1293: THEN
1294: FND_MESSAGE.SET_NAME('AHL', 'AHL_UA_UNIT_ID_NOT_FOUND');
1295: FND_MSG_PUB.ADD;
1296: CLOSE check_unit_exists;
1297: RAISE FND_API.G_EXC_ERROR;
1298: END IF;
1299: CLOSE check_unit_exists;
1300: */
1301:

Line 1312: x_is_conflict := FND_API.G_FALSE;

1308: 'Basic validations done'
1309: );
1310: END IF;
1311:
1312: x_is_conflict := FND_API.G_FALSE;
1313: x_is_org_in_user_ou := FND_API.G_TRUE;
1314:
1315: -- call the Get_Prec_Flight_Info to find out the preceding Flight Schedule or if there is a conflict
1316: -- between preceding Flight Schedules

Line 1313: x_is_org_in_user_ou := FND_API.G_TRUE;

1309: );
1310: END IF;
1311:
1312: x_is_conflict := FND_API.G_FALSE;
1313: x_is_org_in_user_ou := FND_API.G_TRUE;
1314:
1315: -- call the Get_Prec_Flight_Info to find out the preceding Flight Schedule or if there is a conflict
1316: -- between preceding Flight Schedules
1317: Get_Prec_Flight_Info

Line 1333: RAISE FND_API.G_EXC_ERROR;

1329: -- Check Error Message stack.
1330: x_msg_count := FND_MSG_PUB.count_msg;
1331: IF x_msg_count > 0
1332: THEN
1333: RAISE FND_API.G_EXC_ERROR;
1334: END IF;
1335:
1336: -- call the Get_Prec_Visit_Info to find out the preceding Flight Schedule or if there is a conflict
1337: -- between preceding Flight Schedules

Line 1353: RAISE FND_API.G_EXC_ERROR;

1349: -- Check Error Message stack.
1350: x_msg_count := FND_MSG_PUB.count_msg;
1351: IF x_msg_count > 0
1352: THEN
1353: RAISE FND_API.G_EXC_ERROR;
1354: END IF;
1355:
1356: IF (l_prec_flight_schedule.UNIT_SCHEDULE_ID IS NULL AND l_prec_visit.VISIT_ID IS NULL)
1357: THEN

Line 1361: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit

1357: THEN
1358: RETURN;
1359: ELSIF (l_prec_flight_schedule.UNIT_SCHEDULE_ID IS NULL)
1360: THEN
1361: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit
1362: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1363: ELSIF (l_prec_visit.VISIT_ID IS NULL)
1364: THEN
1365: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit

Line 1365: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit

1361: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit
1362: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1363: ELSIF (l_prec_visit.VISIT_ID IS NULL)
1364: THEN
1365: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit
1366: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1367: ELSE -- implies both records are not NULL
1368: IF (p_use_actuals = FND_API.G_TRUE)
1369: THEN

Line 1368: IF (p_use_actuals = FND_API.G_TRUE)

1364: THEN
1365: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit
1366: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1367: ELSE -- implies both records are not NULL
1368: IF (p_use_actuals = FND_API.G_TRUE)
1369: THEN
1370: --Modifying to capture preceding overlapping visits too...
1371: /*IF(nvl(l_prec_flight_schedule.ACTUAL_ARRIVAL_TIME, l_prec_flight_schedule.EST_ARRIVAL_TIME) > l_prec_visit.END_DATE )
1372: THEN

Line 1373: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit

1369: THEN
1370: --Modifying to capture preceding overlapping visits too...
1371: /*IF(nvl(l_prec_flight_schedule.ACTUAL_ARRIVAL_TIME, l_prec_flight_schedule.EST_ARRIVAL_TIME) > l_prec_visit.END_DATE )
1372: THEN
1373: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit
1374: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1375: ELSIF (nvl(l_prec_flight_schedule.ACTUAL_ARRIVAL_TIME, l_prec_flight_schedule.EST_ARRIVAL_TIME) < l_prec_visit.END_DATE )
1376: THEN
1377: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit

Line 1377: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit

1373: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit
1374: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1375: ELSIF (nvl(l_prec_flight_schedule.ACTUAL_ARRIVAL_TIME, l_prec_flight_schedule.EST_ARRIVAL_TIME) < l_prec_visit.END_DATE )
1376: THEN
1377: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit
1378: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1379: ELSE
1380: x_is_conflict := FND_API.G_TRUE; -- events are in conflict
1381: END IF;*/

Line 1380: x_is_conflict := FND_API.G_TRUE; -- events are in conflict

1376: THEN
1377: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit
1378: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1379: ELSE
1380: x_is_conflict := FND_API.G_TRUE; -- events are in conflict
1381: END IF;*/
1382: IF(nvl(l_prec_flight_schedule.ACTUAL_DEPARTURE_TIME, l_prec_flight_schedule.EST_DEPARTURE_TIME) > l_prec_visit.START_DATE )
1383: THEN
1384: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit

Line 1384: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit

1380: x_is_conflict := FND_API.G_TRUE; -- events are in conflict
1381: END IF;*/
1382: IF(nvl(l_prec_flight_schedule.ACTUAL_DEPARTURE_TIME, l_prec_flight_schedule.EST_DEPARTURE_TIME) > l_prec_visit.START_DATE )
1383: THEN
1384: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit
1385: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1386: ELSIF (nvl(l_prec_flight_schedule.ACTUAL_DEPARTURE_TIME, l_prec_flight_schedule.EST_DEPARTURE_TIME) < l_prec_visit.START_DATE )
1387: THEN
1388: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit

Line 1388: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit

1384: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit
1385: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1386: ELSIF (nvl(l_prec_flight_schedule.ACTUAL_DEPARTURE_TIME, l_prec_flight_schedule.EST_DEPARTURE_TIME) < l_prec_visit.START_DATE )
1387: THEN
1388: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit
1389: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1390: ELSE
1391: x_is_conflict := FND_API.G_TRUE; -- events are in conflict
1392: END IF;

Line 1391: x_is_conflict := FND_API.G_TRUE; -- events are in conflict

1387: THEN
1388: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit
1389: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1390: ELSE
1391: x_is_conflict := FND_API.G_TRUE; -- events are in conflict
1392: END IF;
1393: ELSE
1394: --Modifying to capture preceding overlapping visits too...
1395: /*IF(l_prec_flight_schedule.EST_ARRIVAL_TIME > l_prec_visit.END_DATE )

Line 1397: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit

1393: ELSE
1394: --Modifying to capture preceding overlapping visits too...
1395: /*IF(l_prec_flight_schedule.EST_ARRIVAL_TIME > l_prec_visit.END_DATE )
1396: THEN
1397: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit
1398: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1399: ELSIF (l_prec_flight_schedule.EST_ARRIVAL_TIME < l_prec_visit.END_DATE )
1400: THEN
1401: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit

Line 1401: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit

1397: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit
1398: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1399: ELSIF (l_prec_flight_schedule.EST_ARRIVAL_TIME < l_prec_visit.END_DATE )
1400: THEN
1401: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit
1402: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1403: ELSE
1404: x_is_conflict := FND_API.G_TRUE; -- events are in conflict
1405: END IF;*/

Line 1404: x_is_conflict := FND_API.G_TRUE; -- events are in conflict

1400: THEN
1401: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit
1402: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1403: ELSE
1404: x_is_conflict := FND_API.G_TRUE; -- events are in conflict
1405: END IF;*/
1406: IF(l_prec_flight_schedule.EST_DEPARTURE_TIME > l_prec_visit.START_DATE )
1407: THEN
1408: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit

Line 1408: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit

1404: x_is_conflict := FND_API.G_TRUE; -- events are in conflict
1405: END IF;*/
1406: IF(l_prec_flight_schedule.EST_DEPARTURE_TIME > l_prec_visit.START_DATE )
1407: THEN
1408: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit
1409: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1410: ELSIF (l_prec_flight_schedule.EST_DEPARTURE_TIME < l_prec_visit.START_DATE )
1411: THEN
1412: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit

Line 1412: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit

1408: l_prec_is_visit := FND_API.G_FALSE; -- preceding event is not a visit
1409: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1410: ELSIF (l_prec_flight_schedule.EST_DEPARTURE_TIME < l_prec_visit.START_DATE )
1411: THEN
1412: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit
1413: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1414: ELSE
1415: x_is_conflict := FND_API.G_TRUE; -- events are in conflict
1416: END IF;

Line 1415: x_is_conflict := FND_API.G_TRUE; -- events are in conflict

1411: THEN
1412: l_prec_is_visit := FND_API.G_TRUE; -- preceding event is a visit
1413: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1414: ELSE
1415: x_is_conflict := FND_API.G_TRUE; -- events are in conflict
1416: END IF;
1417: END IF;
1418: END IF;
1419:

Line 1421: IF( x_is_conflict = FND_API.G_FALSE)

1417: END IF;
1418: END IF;
1419:
1420: -- if there is no conflict then populate the relevant record (either visit or flight schedule) to be sent back
1421: IF( x_is_conflict = FND_API.G_FALSE)
1422: THEN
1423: IF (l_prec_is_visit = FND_API.G_FALSE)
1424: THEN
1425: x_prec_flight_schedule := l_prec_flight_schedule; -- populate the record to be sent back

Line 1423: IF (l_prec_is_visit = FND_API.G_FALSE)

1419:
1420: -- if there is no conflict then populate the relevant record (either visit or flight schedule) to be sent back
1421: IF( x_is_conflict = FND_API.G_FALSE)
1422: THEN
1423: IF (l_prec_is_visit = FND_API.G_FALSE)
1424: THEN
1425: x_prec_flight_schedule := l_prec_flight_schedule; -- populate the record to be sent back
1426: ELSE
1427: x_prec_visit := l_prec_visit; -- populate the record to be sent back

Line 1437: RAISE FND_API.G_EXC_ERROR;

1433: );
1434: x_msg_count := FND_MSG_PUB.count_msg;
1435: IF x_msg_count > 0
1436: THEN
1437: RAISE FND_API.G_EXC_ERROR;
1438: END IF;
1439: END IF;
1440: END IF;
1441: -- API body ends here

Line 1458: RAISE FND_API.G_EXC_ERROR;

1454: -- Check Error Message stack.
1455: x_msg_count := FND_MSG_PUB.count_msg;
1456: IF x_msg_count > 0
1457: THEN
1458: RAISE FND_API.G_EXC_ERROR;
1459: END IF;
1460:
1461: -- Standard call to get message count and if count is 1, get message info
1462: FND_MSG_PUB.count_and_get

Line 1466: p_encoded => FND_API.G_FALSE

1462: FND_MSG_PUB.count_and_get
1463: (
1464: p_count => x_msg_count,
1465: p_data => x_msg_data,
1466: p_encoded => FND_API.G_FALSE
1467: );
1468:
1469: EXCEPTION
1470: WHEN FND_API.G_EXC_ERROR THEN

Line 1470: WHEN FND_API.G_EXC_ERROR THEN

1466: p_encoded => FND_API.G_FALSE
1467: );
1468:
1469: EXCEPTION
1470: WHEN FND_API.G_EXC_ERROR THEN
1471: x_return_status := FND_API.G_RET_STS_ERROR;
1472: FND_MSG_PUB.count_and_get
1473: (
1474: p_count => x_msg_count,

Line 1471: x_return_status := FND_API.G_RET_STS_ERROR;

1467: );
1468:
1469: EXCEPTION
1470: WHEN FND_API.G_EXC_ERROR THEN
1471: x_return_status := FND_API.G_RET_STS_ERROR;
1472: FND_MSG_PUB.count_and_get
1473: (
1474: p_count => x_msg_count,
1475: p_data => x_msg_data,

Line 1476: p_encoded => FND_API.G_FALSE

1472: FND_MSG_PUB.count_and_get
1473: (
1474: p_count => x_msg_count,
1475: p_data => x_msg_data,
1476: p_encoded => FND_API.G_FALSE
1477: );
1478:
1479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1475: p_data => x_msg_data,
1476: p_encoded => FND_API.G_FALSE
1477: );
1478:
1479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1481: FND_MSG_PUB.count_and_get
1482: (
1483: p_count => x_msg_count,

Line 1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1476: p_encoded => FND_API.G_FALSE
1477: );
1478:
1479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1481: FND_MSG_PUB.count_and_get
1482: (
1483: p_count => x_msg_count,
1484: p_data => x_msg_data,

Line 1485: p_encoded => FND_API.G_FALSE

1481: FND_MSG_PUB.count_and_get
1482: (
1483: p_count => x_msg_count,
1484: p_data => x_msg_data,
1485: p_encoded => FND_API.G_FALSE
1486: );
1487:
1488: WHEN OTHERS THEN
1489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1485: p_encoded => FND_API.G_FALSE
1486: );
1487:
1488: WHEN OTHERS THEN
1489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1490: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1491: THEN
1492: FND_MSG_PUB.add_exc_msg
1493: (

Line 1503: p_encoded => FND_API.G_FALSE

1499: FND_MSG_PUB.count_and_get
1500: (
1501: p_count => x_msg_count,
1502: p_data => x_msg_data,
1503: p_encoded => FND_API.G_FALSE
1504: );
1505: END Get_Prec_Event_Info;
1506:
1507: ---------------------------------------------

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

1537: l_is_visit_conflict VARCHAR2(1);
1538:
1539: BEGIN
1540: -- Standard call to check for call compatibility
1541: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1542: THEN
1543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1544: END IF;
1545:

Line 1543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1539: BEGIN
1540: -- Standard call to check for call compatibility
1541: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1542: THEN
1543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1544: END IF;
1545:
1546: -- Initialize API return status to success
1547: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 1547: x_return_status := FND_API.G_RET_STS_SUCCESS;

1543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1544: END IF;
1545:
1546: -- Initialize API return status to success
1547: x_return_status := FND_API.G_RET_STS_SUCCESS;
1548:
1549: -- Log API entry point
1550: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1551: THEN

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

1560: -- API body starts here
1561: -- 4. If (p_unit_config_id is null or p_end_date_time is null), then display error "Unit Configuration Id and End Time are mandatory parameters"
1562: -- This API is not expected to be called with p_end_date_time = NULL, since the calling API should already be verifying that, hence throwing error if thats the case...
1563: IF (
1564: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
1565: p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE
1566: )
1567: THEN
1568: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');

Line 1565: p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE

1561: -- 4. If (p_unit_config_id is null or p_end_date_time is null), then display error "Unit Configuration Id and End Time are mandatory parameters"
1562: -- This API is not expected to be called with p_end_date_time = NULL, since the calling API should already be verifying that, hence throwing error if thats the case...
1563: IF (
1564: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
1565: p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE
1566: )
1567: THEN
1568: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
1569: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);

Line 1571: RAISE FND_API.G_EXC_ERROR;

1567: THEN
1568: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
1569: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);
1570: FND_MSG_PUB.ADD;
1571: RAISE FND_API.G_EXC_ERROR;
1572: END IF;
1573:
1574: /*
1575: -- 5. 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"

Line 1583: RAISE FND_API.G_EXC_ERROR;

1579: THEN
1580: FND_MESSAGE.SET_NAME('AHL', 'AHL_UA_UNIT_ID_NOT_FOUND');
1581: FND_MSG_PUB.ADD;
1582: CLOSE check_unit_exists;
1583: RAISE FND_API.G_EXC_ERROR;
1584: END IF;
1585: CLOSE check_unit_exists;
1586: */
1587:

Line 1598: x_is_conflict := FND_API.G_FALSE;

1594: 'Basic validations done'
1595: );
1596: END IF;
1597:
1598: x_is_conflict := FND_API.G_FALSE;
1599: x_is_org_in_user_ou := FND_API.G_TRUE;
1600:
1601: -- call the Get_Succ_Flight_Info to find out the preceding Flight Schedule or if there is a conflict
1602: -- between preceding Flight Schedules

Line 1599: x_is_org_in_user_ou := FND_API.G_TRUE;

1595: );
1596: END IF;
1597:
1598: x_is_conflict := FND_API.G_FALSE;
1599: x_is_org_in_user_ou := FND_API.G_TRUE;
1600:
1601: -- call the Get_Succ_Flight_Info to find out the preceding Flight Schedule or if there is a conflict
1602: -- between preceding Flight Schedules
1603: Get_Succ_Flight_Info

Line 1619: RAISE FND_API.G_EXC_ERROR;

1615: -- Check Error Message stack.
1616: x_msg_count := FND_MSG_PUB.count_msg;
1617: IF x_msg_count > 0
1618: THEN
1619: RAISE FND_API.G_EXC_ERROR;
1620: END IF;
1621:
1622: -- call the Get_Succ_Visit_Info to find out the preceding Flight Schedule or if there is a conflict
1623: -- between preceding Flight Schedules

Line 1639: RAISE FND_API.G_EXC_ERROR;

1635: -- Check Error Message stack.
1636: x_msg_count := FND_MSG_PUB.count_msg;
1637: IF x_msg_count > 0
1638: THEN
1639: RAISE FND_API.G_EXC_ERROR;
1640: END IF;
1641:
1642: IF (l_succ_flight_schedule.UNIT_SCHEDULE_ID IS NULL AND l_succ_visit.VISIT_ID IS NULL)
1643: THEN

Line 1647: l_succ_is_visit := FND_API.G_TRUE; -- preceding event is a visit

1643: THEN
1644: RETURN;
1645: ELSIF (l_succ_flight_schedule.UNIT_SCHEDULE_ID IS NULL)
1646: THEN
1647: l_succ_is_visit := FND_API.G_TRUE; -- preceding event is a visit
1648: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1649: ELSIF (l_succ_visit.VISIT_ID IS NULL)
1650: THEN
1651: l_succ_is_visit := FND_API.G_FALSE; -- preceding event is not a visit

Line 1651: l_succ_is_visit := FND_API.G_FALSE; -- preceding event is not a visit

1647: l_succ_is_visit := FND_API.G_TRUE; -- preceding event is a visit
1648: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1649: ELSIF (l_succ_visit.VISIT_ID IS NULL)
1650: THEN
1651: l_succ_is_visit := FND_API.G_FALSE; -- preceding event is not a visit
1652: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1653: ELSE -- implies both records are not NULL
1654: IF (p_use_actuals = FND_API.G_TRUE)
1655: THEN

Line 1654: IF (p_use_actuals = FND_API.G_TRUE)

1650: THEN
1651: l_succ_is_visit := FND_API.G_FALSE; -- preceding event is not a visit
1652: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1653: ELSE -- implies both records are not NULL
1654: IF (p_use_actuals = FND_API.G_TRUE)
1655: THEN
1656: IF(nvl(l_succ_flight_schedule.ACTUAL_DEPARTURE_TIME, l_succ_flight_schedule.EST_DEPARTURE_TIME) < l_succ_visit.START_DATE )
1657: THEN
1658: l_succ_is_visit := FND_API.G_FALSE; -- succeeding event is not a visit

Line 1658: l_succ_is_visit := FND_API.G_FALSE; -- succeeding event is not a visit

1654: IF (p_use_actuals = FND_API.G_TRUE)
1655: THEN
1656: IF(nvl(l_succ_flight_schedule.ACTUAL_DEPARTURE_TIME, l_succ_flight_schedule.EST_DEPARTURE_TIME) < l_succ_visit.START_DATE )
1657: THEN
1658: l_succ_is_visit := FND_API.G_FALSE; -- succeeding event is not a visit
1659: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1660: ELSIF (nvl(l_succ_flight_schedule.ACTUAL_DEPARTURE_TIME, l_succ_flight_schedule.EST_DEPARTURE_TIME) > l_succ_visit.START_DATE )
1661: THEN
1662: l_succ_is_visit := FND_API.G_TRUE; -- succeeding event is a visit

Line 1662: l_succ_is_visit := FND_API.G_TRUE; -- succeeding event is a visit

1658: l_succ_is_visit := FND_API.G_FALSE; -- succeeding event is not a visit
1659: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1660: ELSIF (nvl(l_succ_flight_schedule.ACTUAL_DEPARTURE_TIME, l_succ_flight_schedule.EST_DEPARTURE_TIME) > l_succ_visit.START_DATE )
1661: THEN
1662: l_succ_is_visit := FND_API.G_TRUE; -- succeeding event is a visit
1663: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1664: ELSE
1665: x_is_conflict :=FND_API.G_TRUE; -- events are in conflict
1666: END IF;

Line 1665: x_is_conflict :=FND_API.G_TRUE; -- events are in conflict

1661: THEN
1662: l_succ_is_visit := FND_API.G_TRUE; -- succeeding event is a visit
1663: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1664: ELSE
1665: x_is_conflict :=FND_API.G_TRUE; -- events are in conflict
1666: END IF;
1667: ELSE
1668: IF(l_succ_flight_schedule.EST_DEPARTURE_TIME < l_succ_visit.START_DATE )
1669: THEN

Line 1670: l_succ_is_visit := FND_API.G_FALSE; -- succeeding event is not a visit

1666: END IF;
1667: ELSE
1668: IF(l_succ_flight_schedule.EST_DEPARTURE_TIME < l_succ_visit.START_DATE )
1669: THEN
1670: l_succ_is_visit := FND_API.G_FALSE; -- succeeding event is not a visit
1671: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1672: ELSIF (l_succ_flight_schedule.EST_DEPARTURE_TIME > l_succ_visit.START_DATE )
1673: THEN
1674: l_succ_is_visit := FND_API.G_TRUE; -- succeeding event is a visit

Line 1674: l_succ_is_visit := FND_API.G_TRUE; -- succeeding event is a visit

1670: l_succ_is_visit := FND_API.G_FALSE; -- succeeding event is not a visit
1671: x_is_conflict := l_is_flight_conflict; -- events are in conflict
1672: ELSIF (l_succ_flight_schedule.EST_DEPARTURE_TIME > l_succ_visit.START_DATE )
1673: THEN
1674: l_succ_is_visit := FND_API.G_TRUE; -- succeeding event is a visit
1675: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1676: ELSE
1677: x_is_conflict :=FND_API.G_TRUE; -- events are in conflict
1678: END IF;

Line 1677: x_is_conflict :=FND_API.G_TRUE; -- events are in conflict

1673: THEN
1674: l_succ_is_visit := FND_API.G_TRUE; -- succeeding event is a visit
1675: x_is_conflict := l_is_visit_conflict; -- events are in conflict
1676: ELSE
1677: x_is_conflict :=FND_API.G_TRUE; -- events are in conflict
1678: END IF;
1679: END IF;
1680: END IF;
1681:

Line 1683: IF( x_is_conflict = FND_API.G_FALSE)

1679: END IF;
1680: END IF;
1681:
1682: -- if there is no conflict then populate the relevant record (either visit or flight schedule) to be sent back
1683: IF( x_is_conflict = FND_API.G_FALSE)
1684: THEN
1685: IF (l_succ_is_visit = FND_API.G_FALSE)
1686: THEN
1687: x_succ_flight_schedule := l_succ_flight_schedule; -- populate the record to be sent back

Line 1685: IF (l_succ_is_visit = FND_API.G_FALSE)

1681:
1682: -- if there is no conflict then populate the relevant record (either visit or flight schedule) to be sent back
1683: IF( x_is_conflict = FND_API.G_FALSE)
1684: THEN
1685: IF (l_succ_is_visit = FND_API.G_FALSE)
1686: THEN
1687: x_succ_flight_schedule := l_succ_flight_schedule; -- populate the record to be sent back
1688: ELSE
1689: x_succ_visit := l_succ_visit; -- populate the record to be sent back

Line 1700: RAISE FND_API.G_EXC_ERROR;

1696:
1697: x_msg_count := FND_MSG_PUB.count_msg;
1698: IF x_msg_count > 0
1699: THEN
1700: RAISE FND_API.G_EXC_ERROR;
1701: END IF;
1702: END IF;
1703: END IF;
1704: -- API body ends here

Line 1721: RAISE FND_API.G_EXC_ERROR;

1717: -- Check Error Message stack.
1718: x_msg_count := FND_MSG_PUB.count_msg;
1719: IF x_msg_count > 0
1720: THEN
1721: RAISE FND_API.G_EXC_ERROR;
1722: END IF;
1723:
1724: -- Standard call to get message count and if count is 1, get message info
1725: FND_MSG_PUB.count_and_get

Line 1729: p_encoded => FND_API.G_FALSE

1725: FND_MSG_PUB.count_and_get
1726: (
1727: p_count => x_msg_count,
1728: p_data => x_msg_data,
1729: p_encoded => FND_API.G_FALSE
1730: );
1731:
1732: EXCEPTION
1733: WHEN FND_API.G_EXC_ERROR THEN

Line 1733: WHEN FND_API.G_EXC_ERROR THEN

1729: p_encoded => FND_API.G_FALSE
1730: );
1731:
1732: EXCEPTION
1733: WHEN FND_API.G_EXC_ERROR THEN
1734: x_return_status := FND_API.G_RET_STS_ERROR;
1735: FND_MSG_PUB.count_and_get
1736: (
1737: p_count => x_msg_count,

Line 1734: x_return_status := FND_API.G_RET_STS_ERROR;

1730: );
1731:
1732: EXCEPTION
1733: WHEN FND_API.G_EXC_ERROR THEN
1734: x_return_status := FND_API.G_RET_STS_ERROR;
1735: FND_MSG_PUB.count_and_get
1736: (
1737: p_count => x_msg_count,
1738: p_data => x_msg_data,

Line 1739: p_encoded => FND_API.G_FALSE

1735: FND_MSG_PUB.count_and_get
1736: (
1737: p_count => x_msg_count,
1738: p_data => x_msg_data,
1739: p_encoded => FND_API.G_FALSE
1740: );
1741:
1742: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1742: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1738: p_data => x_msg_data,
1739: p_encoded => FND_API.G_FALSE
1740: );
1741:
1742: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1744: FND_MSG_PUB.count_and_get
1745: (
1746: p_count => x_msg_count,

Line 1743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1739: p_encoded => FND_API.G_FALSE
1740: );
1741:
1742: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1744: FND_MSG_PUB.count_and_get
1745: (
1746: p_count => x_msg_count,
1747: p_data => x_msg_data,

Line 1748: p_encoded => FND_API.G_FALSE

1744: FND_MSG_PUB.count_and_get
1745: (
1746: p_count => x_msg_count,
1747: p_data => x_msg_data,
1748: p_encoded => FND_API.G_FALSE
1749: );
1750:
1751: WHEN OTHERS THEN
1752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1748: p_encoded => FND_API.G_FALSE
1749: );
1750:
1751: WHEN OTHERS THEN
1752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1753: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1754: THEN
1755: FND_MSG_PUB.add_exc_msg
1756: (

Line 1766: p_encoded => FND_API.G_FALSE

1762: FND_MSG_PUB.count_and_get
1763: (
1764: p_count => x_msg_count,
1765: p_data => x_msg_data,
1766: p_encoded => FND_API.G_FALSE
1767: );
1768: END Get_Succ_Event_Info;
1769:
1770: ---------------------------------------------

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

1821: l_est_flight_rec get_succ_flight_est%rowtype;
1822:
1823: BEGIN
1824: -- Standard call to check for call compatibility
1825: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1826: THEN
1827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1828: END IF;
1829:

Line 1827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1823: BEGIN
1824: -- Standard call to check for call compatibility
1825: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1826: THEN
1827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1828: END IF;
1829:
1830: -- Initialize API return status to success
1831: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 1831: x_return_status := FND_API.G_RET_STS_SUCCESS;

1827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1828: END IF;
1829:
1830: -- Initialize API return status to success
1831: x_return_status := FND_API.G_RET_STS_SUCCESS;
1832:
1833: -- Log API entry point
1834: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1835: THEN

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

1844: -- API body starts here
1845: -- 4. If (p_unit_config_id is null or p_end_date_time is null), then display error "Unit Configuration Id and End Time are mandatory parameters"
1846: -- This API is not expected to be called with p_end_date_time = NULL, since the calling API should already be verifying that, hence throwing error if thats the case...
1847: IF (
1848: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
1849: p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE
1850: )
1851: THEN
1852: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');

Line 1849: p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE

1845: -- 4. If (p_unit_config_id is null or p_end_date_time is null), then display error "Unit Configuration Id and End Time are mandatory parameters"
1846: -- This API is not expected to be called with p_end_date_time = NULL, since the calling API should already be verifying that, hence throwing error if thats the case...
1847: IF (
1848: p_unit_config_id IS NULL OR p_unit_config_id = FND_API.G_MISS_NUM OR
1849: p_end_date_time IS NULL OR p_end_date_time = FND_API.G_MISS_DATE
1850: )
1851: THEN
1852: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
1853: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);

Line 1855: RAISE FND_API.G_EXC_ERROR;

1851: THEN
1852: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
1853: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);
1854: FND_MSG_PUB.ADD;
1855: RAISE FND_API.G_EXC_ERROR;
1856: END IF;
1857:
1858: /*
1859: -- 5. 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"

Line 1867: RAISE FND_API.G_EXC_ERROR;

1863: THEN
1864: FND_MESSAGE.SET_NAME('AHL', 'AHL_UA_UNIT_ID_NOT_FOUND');
1865: FND_MSG_PUB.ADD;
1866: CLOSE check_unit_exists;
1867: RAISE FND_API.G_EXC_ERROR;
1868: END IF;
1869: CLOSE check_unit_exists;
1870: */
1871:

Line 1882: x_is_conflict := FND_API.G_FALSE;

1878: 'Basic validations done'
1879: );
1880: END IF;
1881:
1882: x_is_conflict := FND_API.G_FALSE;
1883:
1884: -- 6. If (p_use_actuals = FND_API.G_TRUE), open cursor get_succ_flight_act else open cursor get_succ_flight_est
1885: IF (p_use_actuals IS NOT NULL AND p_use_actuals = FND_API.G_TRUE)
1886: THEN

Line 1884: -- 6. If (p_use_actuals = FND_API.G_TRUE), open cursor get_succ_flight_act else open cursor get_succ_flight_est

1880: END IF;
1881:
1882: x_is_conflict := FND_API.G_FALSE;
1883:
1884: -- 6. If (p_use_actuals = FND_API.G_TRUE), open cursor get_succ_flight_act else open cursor get_succ_flight_est
1885: IF (p_use_actuals IS NOT NULL AND p_use_actuals = FND_API.G_TRUE)
1886: THEN
1887: -- 7. Fetch one record from cursor into and populate x_Flight_Schedule_Rec_Type with values from this record
1888: OPEN get_succ_flight_act (p_unit_config_id, p_end_date_time);

Line 1885: IF (p_use_actuals IS NOT NULL AND p_use_actuals = FND_API.G_TRUE)

1881:
1882: x_is_conflict := FND_API.G_FALSE;
1883:
1884: -- 6. If (p_use_actuals = FND_API.G_TRUE), open cursor get_succ_flight_act else open cursor get_succ_flight_est
1885: IF (p_use_actuals IS NOT NULL AND p_use_actuals = FND_API.G_TRUE)
1886: THEN
1887: -- 7. Fetch one record from cursor into and populate x_Flight_Schedule_Rec_Type with values from this record
1888: OPEN get_succ_flight_act (p_unit_config_id, p_end_date_time);
1889: FETCH get_succ_flight_act INTO l_act_flight_rec;

Line 1934: -- 8. Fetch another record from cursor, and if the record's arrival time (actual / estimated based on p_use_actuals) = previous record's arrival time, then populate x_is_conflict = FND_API.G_TRUE

1930: x_succ_flight_schedule.attribute13 := l_act_flight_rec.attribute13;
1931: x_succ_flight_schedule.attribute14 := l_act_flight_rec.attribute14;
1932: x_succ_flight_schedule.attribute15 := l_act_flight_rec.attribute15;
1933:
1934: -- 8. Fetch another record from cursor, and if the record's arrival time (actual / estimated based on p_use_actuals) = previous record's arrival time, then populate x_is_conflict = FND_API.G_TRUE
1935: FETCH get_succ_flight_act INTO l_act_flight_rec;
1936: IF (
1937: get_succ_flight_act%FOUND
1938: AND

Line 1947: x_is_conflict := FND_API.G_TRUE;

1943: nvl(l_act_flight_rec.actual_arrival_time, l_act_flight_rec.est_arrival_time) =
1944: nvl(x_succ_flight_schedule.actual_arrival_time, x_succ_flight_schedule.est_arrival_time)
1945: )
1946: THEN
1947: x_is_conflict := FND_API.G_TRUE;
1948: END IF;
1949: END IF;
1950: CLOSE get_succ_flight_act;
1951: ELSE

Line 1999: -- 8. Fetch another record from cursor, and if the record's arrival time (actual / estimated based on p_use_actuals) = previous record's arrival time, then populate x_is_conflict = FND_API.G_TRUE

1995: x_succ_flight_schedule.attribute13 := l_est_flight_rec.attribute13;
1996: x_succ_flight_schedule.attribute14 := l_est_flight_rec.attribute14;
1997: x_succ_flight_schedule.attribute15 := l_est_flight_rec.attribute15;
1998:
1999: -- 8. Fetch another record from cursor, and if the record's arrival time (actual / estimated based on p_use_actuals) = previous record's arrival time, then populate x_is_conflict = FND_API.G_TRUE
2000: FETCH get_succ_flight_est INTO l_est_flight_rec;
2001: IF (
2002: get_succ_flight_est%FOUND
2003: AND

Line 2010: x_is_conflict := FND_API.G_TRUE;

2006: AND
2007: l_est_flight_rec.est_arrival_time = x_succ_flight_schedule.est_arrival_time
2008: )
2009: THEN
2010: x_is_conflict := FND_API.G_TRUE;
2011: END IF;
2012: END IF;
2013: CLOSE get_succ_flight_est;
2014: END IF;

Line 2033: RAISE FND_API.G_EXC_ERROR;

2029: -- Check Error Message stack.
2030: x_msg_count := FND_MSG_PUB.count_msg;
2031: IF x_msg_count > 0
2032: THEN
2033: RAISE FND_API.G_EXC_ERROR;
2034: END IF;
2035:
2036: -- Standard call to get message count and if count is 1, get message info
2037: FND_MSG_PUB.count_and_get

Line 2041: p_encoded => FND_API.G_FALSE

2037: FND_MSG_PUB.count_and_get
2038: (
2039: p_count => x_msg_count,
2040: p_data => x_msg_data,
2041: p_encoded => FND_API.G_FALSE
2042: );
2043:
2044: EXCEPTION
2045: WHEN FND_API.G_EXC_ERROR THEN

Line 2045: WHEN FND_API.G_EXC_ERROR THEN

2041: p_encoded => FND_API.G_FALSE
2042: );
2043:
2044: EXCEPTION
2045: WHEN FND_API.G_EXC_ERROR THEN
2046: x_return_status := FND_API.G_RET_STS_ERROR;
2047: FND_MSG_PUB.count_and_get
2048: (
2049: p_count => x_msg_count,

Line 2046: x_return_status := FND_API.G_RET_STS_ERROR;

2042: );
2043:
2044: EXCEPTION
2045: WHEN FND_API.G_EXC_ERROR THEN
2046: x_return_status := FND_API.G_RET_STS_ERROR;
2047: FND_MSG_PUB.count_and_get
2048: (
2049: p_count => x_msg_count,
2050: p_data => x_msg_data,

Line 2051: p_encoded => FND_API.G_FALSE

2047: FND_MSG_PUB.count_and_get
2048: (
2049: p_count => x_msg_count,
2050: p_data => x_msg_data,
2051: p_encoded => FND_API.G_FALSE
2052: );
2053:
2054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 2054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2050: p_data => x_msg_data,
2051: p_encoded => FND_API.G_FALSE
2052: );
2053:
2054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2056: FND_MSG_PUB.count_and_get
2057: (
2058: p_count => x_msg_count,

Line 2055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2051: p_encoded => FND_API.G_FALSE
2052: );
2053:
2054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2056: FND_MSG_PUB.count_and_get
2057: (
2058: p_count => x_msg_count,
2059: p_data => x_msg_data,

Line 2060: p_encoded => FND_API.G_FALSE

2056: FND_MSG_PUB.count_and_get
2057: (
2058: p_count => x_msg_count,
2059: p_data => x_msg_data,
2060: p_encoded => FND_API.G_FALSE
2061: );
2062:
2063: WHEN OTHERS THEN
2064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 2064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2060: p_encoded => FND_API.G_FALSE
2061: );
2062:
2063: WHEN OTHERS THEN
2064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2065: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2066: THEN
2067: FND_MSG_PUB.add_exc_msg
2068: (

Line 2078: p_encoded => FND_API.G_FALSE

2074: FND_MSG_PUB.count_and_get
2075: (
2076: p_count => x_msg_count,
2077: p_data => x_msg_data,
2078: p_encoded => FND_API.G_FALSE
2079: );
2080: END Get_Succ_Flight_Info;
2081:
2082: End AHL_UA_COMMON_PVT;