3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) :='AHL_UA_FLIGHT_SCHEDULES_PUB';
5:
6: -- Flag for determining wether to use Actual dates or Estimated dates.
7: G_USE_ACTUALS CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
8:
9: PROCEDURE Get_Flight_Schedule_Details
10: (
11: -- standard IN params
9: PROCEDURE Get_Flight_Schedule_Details
10: (
11: -- standard IN params
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
14: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
15: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
16: p_default IN VARCHAR2 :=FND_API.G_FALSE,
17: p_module_type IN VARCHAR2 :=NULL,
10: (
11: -- standard IN params
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
14: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
15: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
16: p_default IN VARCHAR2 :=FND_API.G_FALSE,
17: p_module_type IN VARCHAR2 :=NULL,
18: -- standard OUT params
11: -- standard IN params
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
14: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
15: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
16: p_default IN VARCHAR2 :=FND_API.G_FALSE,
17: p_module_type IN VARCHAR2 :=NULL,
18: -- standard OUT params
19: x_return_status OUT NOCOPY VARCHAR2,
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
14: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
15: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
16: p_default IN VARCHAR2 :=FND_API.G_FALSE,
17: p_module_type IN VARCHAR2 :=NULL,
18: -- standard OUT params
19: x_return_status OUT NOCOPY VARCHAR2,
20: x_msg_count OUT NOCOPY NUMBER,
50: --savepoint is not required for procedures which does only query
51: --SAVEPOINT search_flight_schedules_pub;
52:
53: -- Initialize return status to success initially
54: x_return_status:=FND_API.G_RET_STS_SUCCESS;
55:
56: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
57: p_api_version,
58: l_api_name,G_PKG_NAME)
52:
53: -- Initialize return status to success initially
54: x_return_status:=FND_API.G_RET_STS_SUCCESS;
55:
56: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
57: p_api_version,
58: l_api_name,G_PKG_NAME)
59: THEN
60: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
57: p_api_version,
58: l_api_name,G_PKG_NAME)
59: THEN
60: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
61: END IF;
62:
63: -- Initialize message list if p_init_msg_list is set to TRUE.
64: IF FND_API.to_boolean(p_init_msg_list) THEN
60: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
61: END IF;
62:
63: -- Initialize message list if p_init_msg_list is set to TRUE.
64: IF FND_API.to_boolean(p_init_msg_list) THEN
65: FND_MSG_PUB.initialize;
66: END IF;
67:
68: -- Validations for dates-based search... If dates criteria applied to arrival / departure, then both start and end need to be passed
70: THEN
71: FND_MESSAGE.set_name('AHL', 'AHL_UA_SEARCH_DATE_APP_FLAG');
72: FND_MSG_PUB.add;
73:
74: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
75: END IF;
76:
77: -- Search query...
78: l_search_Query := 'SELECT
183: IF p_flight_search_rec.START_DATE IS NOT NULL AND p_flight_search_rec.END_DATE IS NOT NULL
184: THEN
185: IF p_flight_search_rec.DATE_APPLY_TO_FLAG IS NULL
186: THEN
187: IF g_use_actuals = FND_API.G_TRUE
188: THEN
189: l_search_Query := l_search_Query ||' AND ( ';
190: l_search_Query := l_search_Query ||' ( ';
191: l_search_Query := l_search_Query ||' to_date(:start_time, ''DD-MON-RRRR HH24:MI:SS'') <= nvl(actual_departure_time, est_departure_time) and ';
248: END IF;
249:
250: ELSIF p_flight_search_rec.DATE_APPLY_TO_FLAG = G_APPLY_TO_ARRIVAL
251: THEN
252: IF g_use_actuals = FND_API.G_TRUE
253: THEN
254: l_search_Query := l_search_Query ||' AND ';
255: l_search_Query := l_search_Query ||' ( ';
256: l_search_Query := l_search_Query ||' to_date(:start_time, ''DD-MON-RRRR HH24:MI:SS'') < nvl(actual_arrival_time, est_arrival_time) and ';
273: END IF;
274:
275: ELSIF p_flight_search_rec.DATE_APPLY_TO_FLAG = G_APPLY_TO_DEPARTURE
276: THEN
277: IF g_use_actuals = FND_API.G_TRUE
278: THEN
279: l_search_Query := l_search_Query ||' AND ';
280: l_search_Query := l_search_Query ||' ( ';
281: l_search_Query := l_search_Query ||' to_date(:start_time, ''DD-MON-RRRR HH24:MI:SS'') <= nvl(actual_departure_time, est_departure_time) and ';
299: END IF;
300:
301: ELSIF p_flight_search_rec.START_DATE IS NOT NULL
302: THEN
303: IF g_use_actuals = FND_API.G_TRUE
304: THEN
305: l_search_Query := l_search_Query || ' AND NVL(ACTUAL_ARRIVAL_TIME,EST_ARRIVAL_TIME) >= to_date(:'||l_bind_index||', ''DD-MON-RRRR HH24:MI:SS'')';
306: ELSE
307: l_search_Query := l_search_Query || ' AND EST_ARRIVAL_TIME >= to_date(:'||l_bind_index||', ''DD-MON-RRRR HH24:MI:SS'')';
310: l_bind_index := l_bind_index + 1;
311:
312: ELSIF p_flight_search_rec.END_DATE IS NOT NULL
313: THEN
314: IF g_use_actuals = FND_API.G_TRUE
315: THEN
316: l_search_Query := l_search_Query || ' AND NVL(ACTUAL_DEPARTURE_TIME,EST_DEPARTURE_TIME) <= to_date(:'||l_bind_index||', ''DD-MON-RRRR HH24:MI:SS'')';
317: ELSE
318: l_search_Query := l_search_Query || ' AND EST_DEPARTURE_TIME <= to_date(:'||l_bind_index||', ''DD-MON-RRRR HH24:MI:SS'')';
449: );
450: END IF;
451:
452: EXCEPTION
453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
454: --ROLLBACK TO search_flight_schedules_pub;
455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
456: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
457: p_count => x_msg_count,
451:
452: EXCEPTION
453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
454: --ROLLBACK TO search_flight_schedules_pub;
455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
456: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
457: p_count => x_msg_count,
458: p_data => x_msg_data);
459:
452: EXCEPTION
453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
454: --ROLLBACK TO search_flight_schedules_pub;
455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
456: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
457: p_count => x_msg_count,
458: p_data => x_msg_data);
459:
460: WHEN OTHERS THEN
458: p_data => x_msg_data);
459:
460: WHEN OTHERS THEN
461: --ROLLBACK TO search_flight_schedules_pub;
462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
463: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
464: THEN
465: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
466: p_procedure_name => l_api_name,
478: PROCEDURE Process_Flight_Schedules
479: (
480: -- standard IN params
481: p_api_version IN NUMBER,
482: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
483: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
484: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
485: p_default IN VARCHAR2 :=FND_API.G_FALSE,
486: p_module_type IN VARCHAR2 :=NULL,
479: (
480: -- standard IN params
481: p_api_version IN NUMBER,
482: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
483: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
484: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
485: p_default IN VARCHAR2 :=FND_API.G_FALSE,
486: p_module_type IN VARCHAR2 :=NULL,
487: -- standard OUT params
480: -- standard IN params
481: p_api_version IN NUMBER,
482: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
483: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
484: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
485: p_default IN VARCHAR2 :=FND_API.G_FALSE,
486: p_module_type IN VARCHAR2 :=NULL,
487: -- standard OUT params
488: x_return_status OUT NOCOPY VARCHAR2,
481: p_api_version IN NUMBER,
482: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
483: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
484: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
485: p_default IN VARCHAR2 :=FND_API.G_FALSE,
486: p_module_type IN VARCHAR2 :=NULL,
487: -- standard OUT params
488: x_return_status OUT NOCOPY VARCHAR2,
489: x_msg_count OUT NOCOPY NUMBER,
508: --define a savepoint for the procedure
509: SAVEPOINT Process_Flight_Schedules_pub;
510:
511: -- Initialize return status to success initially
512: x_return_status:=FND_API.G_RET_STS_SUCCESS;
513:
514: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
515: p_api_version,
516: l_api_name,G_PKG_NAME)
510:
511: -- Initialize return status to success initially
512: x_return_status:=FND_API.G_RET_STS_SUCCESS;
513:
514: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
515: p_api_version,
516: l_api_name,G_PKG_NAME)
517: THEN
518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
515: p_api_version,
516: l_api_name,G_PKG_NAME)
517: THEN
518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
519: END IF;
520:
521: -- Initialize message list if p_init_msg_list is set to TRUE.
522: IF FND_API.to_boolean(p_init_msg_list) THEN
518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
519: END IF;
520:
521: -- Initialize message list if p_init_msg_list is set to TRUE.
522: IF FND_API.to_boolean(p_init_msg_list) THEN
523: FND_MSG_PUB.initialize;
524: END IF;
525:
526:
543: p_x_flight_schedules_tbl(i).DML_OPERATION = 'U' OR p_x_flight_schedules_tbl(i).DML_OPERATION = 'u' )
544: THEN
545: --Unit Schedule id cannot be null
546: IF (p_x_flight_schedules_tbl(i).UNIT_SCHEDULE_ID IS NULL OR
547: p_x_flight_schedules_tbl(i).UNIT_SCHEDULE_ID = FND_API.G_MISS_NUM)
548: THEN
549: FND_MESSAGE.set_name( 'AHL','AHL_UA_US_NOT_FOUND' );
550: FND_MESSAGE.set_token( 'RECORD', p_x_flight_schedules_tbl(i).UNIT_SCHEDULE_ID);
551: FND_MSG_PUB.add;
552: END IF;
553:
554: -- Check for Object Version number.
555: IF (p_x_flight_schedules_tbl(i).OBJECT_VERSION_NUMBER IS NULL OR
556: p_x_flight_schedules_tbl(i).OBJECT_VERSION_NUMBER = FND_API.G_MISS_NUM)
557: THEN
558: FND_MESSAGE.set_name( 'AHL','AHL_UA_OBJ_VERNO_NULL' );
559: FND_MESSAGE.set_token( 'RECORD', p_x_flight_schedules_tbl(i).UNIT_SCHEDULE_ID);
560: FND_MSG_PUB.add;
567: p_x_flight_schedules_tbl(i).DML_OPERATION = 'u'
568: THEN
569: -- Unit Config Header id is a mandatory input field and cannot be null.
570: IF (p_x_flight_schedules_tbl(i).UNIT_CONFIG_HEADER_ID IS NULL OR
571: p_x_flight_schedules_tbl(i).UNIT_CONFIG_HEADER_ID = FND_API.G_MISS_NUM )AND
572: (p_x_flight_schedules_tbl(i).UNIT_CONFIG_NAME IS NULL OR
573: p_x_flight_schedules_tbl(i).UNIT_CONFIG_NAME = FND_API.G_MISS_CHAR)
574:
575: THEN
569: -- Unit Config Header id is a mandatory input field and cannot be null.
570: IF (p_x_flight_schedules_tbl(i).UNIT_CONFIG_HEADER_ID IS NULL OR
571: p_x_flight_schedules_tbl(i).UNIT_CONFIG_HEADER_ID = FND_API.G_MISS_NUM )AND
572: (p_x_flight_schedules_tbl(i).UNIT_CONFIG_NAME IS NULL OR
573: p_x_flight_schedules_tbl(i).UNIT_CONFIG_NAME = FND_API.G_MISS_CHAR)
574:
575: THEN
576: FND_MESSAGE.set_name( 'AHL','AHL_UA_INV_UC_NAME' );
577: FND_MESSAGE.set_token( 'RECORD', p_x_flight_schedules_tbl(i).UNIT_SCHEDULE_ID);
579: END IF;
580:
581: --Flight Number is a mandatory input field and cannot be null.
582: IF p_x_flight_schedules_tbl(i).FLIGHT_NUMBER IS NULL OR
583: p_x_flight_schedules_tbl(i).FLIGHT_NUMBER = FND_API.G_MISS_CHAR
584: THEN
585: FND_MESSAGE.set_name( 'AHL','AHL_UA_FLG_NUMBER_NULL' );
586: FND_MESSAGE.set_token( 'RECORD', p_x_flight_schedules_tbl(i).UNIT_SCHEDULE_ID);
587: FND_MSG_PUB.add;
588: END IF;
589:
590: --Segment is a mandatory input field and cannot be null
591: IF p_x_flight_schedules_tbl(i).SEGMENT IS NULL OR
592: p_x_flight_schedules_tbl(i).SEGMENT = FND_API.G_MISS_CHAR
593: THEN
594: FND_MESSAGE.set_name( 'AHL','AHL_UA_SEGMENT_NULL' );
595: FND_MESSAGE.set_token( 'RECORD', p_x_flight_schedules_tbl(i).UNIT_SCHEDULE_ID);
596: FND_MSG_PUB.add;
597: END IF;
598:
599: --Departure_Dept_Id is a mandatory input field and cannot be null
600: IF ( p_x_flight_schedules_tbl(i).DEPARTURE_DEPT_ID IS NULL OR
601: p_x_flight_schedules_tbl(i).DEPARTURE_DEPT_ID = FND_API.G_MISS_NUM ) AND
602: ( p_x_flight_schedules_tbl(i).DEPARTURE_DEPT_CODE IS NULL OR
603: p_x_flight_schedules_tbl(i).DEPARTURE_DEPT_CODE = FND_API.G_MISS_CHAR )
604: THEN
605: FND_MESSAGE.set_name( 'AHL','AHL_UA_DEP_DEPT_NULL' );
599: --Departure_Dept_Id is a mandatory input field and cannot be null
600: IF ( p_x_flight_schedules_tbl(i).DEPARTURE_DEPT_ID IS NULL OR
601: p_x_flight_schedules_tbl(i).DEPARTURE_DEPT_ID = FND_API.G_MISS_NUM ) AND
602: ( p_x_flight_schedules_tbl(i).DEPARTURE_DEPT_CODE IS NULL OR
603: p_x_flight_schedules_tbl(i).DEPARTURE_DEPT_CODE = FND_API.G_MISS_CHAR )
604: THEN
605: FND_MESSAGE.set_name( 'AHL','AHL_UA_DEP_DEPT_NULL' );
606: FND_MESSAGE.set_token( 'RECORD', p_x_flight_schedules_tbl(i).UNIT_SCHEDULE_ID);
607: FND_MSG_PUB.add;
608: END IF;
609:
610: --Departure_Org_Id is a mandatory input field and cannot be null
611: IF ( p_x_flight_schedules_tbl(i).DEPARTURE_ORG_ID IS NULL OR
612: p_x_flight_schedules_tbl(i).DEPARTURE_ORG_ID = FND_API.G_MISS_NUM ) AND
613: ( p_x_flight_schedules_tbl(i).DEPARTURE_ORG_CODE IS NULL OR
614: p_x_flight_schedules_tbl(i).DEPARTURE_ORG_CODE = FND_API.G_MISS_CHAR )
615: THEN
616: FND_MESSAGE.set_name( 'AHL','AHL_UA_DEP_ORG_NULL' );
610: --Departure_Org_Id is a mandatory input field and cannot be null
611: IF ( p_x_flight_schedules_tbl(i).DEPARTURE_ORG_ID IS NULL OR
612: p_x_flight_schedules_tbl(i).DEPARTURE_ORG_ID = FND_API.G_MISS_NUM ) AND
613: ( p_x_flight_schedules_tbl(i).DEPARTURE_ORG_CODE IS NULL OR
614: p_x_flight_schedules_tbl(i).DEPARTURE_ORG_CODE = FND_API.G_MISS_CHAR )
615: THEN
616: FND_MESSAGE.set_name( 'AHL','AHL_UA_DEP_ORG_NULL' );
617: FND_MESSAGE.set_token( 'RECORD', p_x_flight_schedules_tbl(i).UNIT_SCHEDULE_ID);
618: FND_MSG_PUB.add;
619: END IF;
620:
621: --Arrival_Dept_Id is a mandatory input field and cannot be null
622: IF ( p_x_flight_schedules_tbl(i).ARRIVAL_DEPT_ID IS NULL OR
623: p_x_flight_schedules_tbl(i).ARRIVAL_DEPT_ID = FND_API.G_MISS_NUM ) AND
624: ( p_x_flight_schedules_tbl(i).ARRIVAL_DEPT_CODE IS NULL OR
625: p_x_flight_schedules_tbl(i).ARRIVAL_DEPT_CODE = FND_API.G_MISS_CHAR )
626:
627: THEN
621: --Arrival_Dept_Id is a mandatory input field and cannot be null
622: IF ( p_x_flight_schedules_tbl(i).ARRIVAL_DEPT_ID IS NULL OR
623: p_x_flight_schedules_tbl(i).ARRIVAL_DEPT_ID = FND_API.G_MISS_NUM ) AND
624: ( p_x_flight_schedules_tbl(i).ARRIVAL_DEPT_CODE IS NULL OR
625: p_x_flight_schedules_tbl(i).ARRIVAL_DEPT_CODE = FND_API.G_MISS_CHAR )
626:
627: THEN
628: FND_MESSAGE.set_name( 'AHL','AHL_UA_ARR_DEPT_NULL' );
629: FND_MESSAGE.set_token( 'RECORD', p_x_flight_schedules_tbl(i).UNIT_SCHEDULE_ID);
631: END IF;
632:
633: --Arrival_Org_Id is a mandatory input field and cannot be null
634: IF ( p_x_flight_schedules_tbl(i).ARRIVAL_ORG_ID IS NULL OR
635: p_x_flight_schedules_tbl(i).ARRIVAL_ORG_ID = FND_API.G_MISS_NUM ) AND
636: ( p_x_flight_schedules_tbl(i).ARRIVAL_ORG_CODE IS NULL OR
637: p_x_flight_schedules_tbl(i).ARRIVAL_ORG_CODE = FND_API.G_MISS_CHAR )
638: THEN
639: FND_MESSAGE.set_name( 'AHL','AHL_UA_ARR_ORG_NULL' );
633: --Arrival_Org_Id is a mandatory input field and cannot be null
634: IF ( p_x_flight_schedules_tbl(i).ARRIVAL_ORG_ID IS NULL OR
635: p_x_flight_schedules_tbl(i).ARRIVAL_ORG_ID = FND_API.G_MISS_NUM ) AND
636: ( p_x_flight_schedules_tbl(i).ARRIVAL_ORG_CODE IS NULL OR
637: p_x_flight_schedules_tbl(i).ARRIVAL_ORG_CODE = FND_API.G_MISS_CHAR )
638: THEN
639: FND_MESSAGE.set_name( 'AHL','AHL_UA_ARR_ORG_NULL' );
640: FND_MESSAGE.set_token( 'RECORD', p_x_flight_schedules_tbl(i).UNIT_SCHEDULE_ID);
641: FND_MSG_PUB.add;
642: END IF;
643:
644: --Est_Departure_Time is a mandatory input field and cannot be null
645: IF p_x_flight_schedules_tbl(i).EST_DEPARTURE_TIME IS NULL OR
646: p_x_flight_schedules_tbl(i).EST_DEPARTURE_TIME = FND_API.G_MISS_DATE
647: THEN
648: FND_MESSAGE.set_name( 'AHL','AHL_UA_EST_DEP_TIME_NULL' );
649: FND_MESSAGE.set_token( 'RECORD', p_x_flight_schedules_tbl(i).UNIT_SCHEDULE_ID);
650: FND_MSG_PUB.add;
651: END IF;
652:
653: --Est_Arrival_Time is a mandatory input field and cannot be null
654: IF p_x_flight_schedules_tbl(i).EST_ARRIVAL_TIME IS NULL OR
655: p_x_flight_schedules_tbl(i).EST_ARRIVAL_TIME = FND_API.G_MISS_DATE
656: THEN
657: FND_MESSAGE.set_name( 'AHL','AHL_UA_EST_ARR_TIME_NULL' );
658: FND_MESSAGE.set_token( 'RECORD', p_x_flight_schedules_tbl(i).UNIT_SCHEDULE_ID);
659: FND_MSG_PUB.add;
660: END IF;
661:
662: --Visit_Reschedule_Mode is a mandatory input field and cannot be null
663: IF ( p_x_flight_schedules_tbl(i).VISIT_RESCHEDULE_MODE IS NULL OR
664: p_x_flight_schedules_tbl(i).VISIT_RESCHEDULE_MODE = FND_API.G_MISS_CHAR ) AND
665: ( p_x_flight_schedules_tbl(i).VISIT_RESCHEDULE_MEANING IS NULL OR
666: p_x_flight_schedules_tbl(i).VISIT_RESCHEDULE_MEANING = FND_API.G_MISS_CHAR )
667: THEN
668: FND_MESSAGE.set_name( 'AHL','AHL_UA_VST_RES_MODE_NULL' );
662: --Visit_Reschedule_Mode is a mandatory input field and cannot be null
663: IF ( p_x_flight_schedules_tbl(i).VISIT_RESCHEDULE_MODE IS NULL OR
664: p_x_flight_schedules_tbl(i).VISIT_RESCHEDULE_MODE = FND_API.G_MISS_CHAR ) AND
665: ( p_x_flight_schedules_tbl(i).VISIT_RESCHEDULE_MEANING IS NULL OR
666: p_x_flight_schedules_tbl(i).VISIT_RESCHEDULE_MEANING = FND_API.G_MISS_CHAR )
667: THEN
668: FND_MESSAGE.set_name( 'AHL','AHL_UA_VST_RES_MODE_NULL' );
669: FND_MESSAGE.set_token( 'RECORD', p_x_flight_schedules_tbl(i).UNIT_SCHEDULE_ID);
670: FND_MSG_PUB.add;
676:
677: l_msg_count := FND_MSG_PUB.COUNT_MSG;
678: IF (l_msg_count > 0)
679: THEN
680: RAISE FND_API.G_EXC_ERROR;
681: END IF;
682:
683:
684: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
703: p_x_flight_schedules_tbl => p_x_flight_schedules_tbl
704: );
705:
706: -- Check Error Message stack.
707: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
708: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
709: fnd_log.string
710: (
711: fnd_log.level_error,
712: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
713: 'Private API raised expected error....'
714: );
715: END IF;
716: RAISE FND_API.G_EXC_ERROR;
717: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
718: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
719: fnd_log.string
720: (
713: 'Private API raised expected error....'
714: );
715: END IF;
716: RAISE FND_API.G_EXC_ERROR;
717: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
718: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
719: fnd_log.string
720: (
721: fnd_log.level_error,
722: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
723: 'Private API raised unexpected error....'
724: );
725: END IF;
726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
727: END IF;
728:
729: -- Standard check for p_commit
730: IF FND_API.To_Boolean (p_commit)
726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
727: END IF;
728:
729: -- Standard check for p_commit
730: IF FND_API.To_Boolean (p_commit)
731: THEN
732: COMMIT;
733: END IF;
734:
741: );
742: END IF;
743:
744: EXCEPTION
745: WHEN FND_API.G_EXC_ERROR THEN
746: x_return_status := FND_API.G_RET_STS_ERROR;
747: Rollback to Process_Flight_Schedules_pub;
748: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
749: p_data => x_msg_data,
742: END IF;
743:
744: EXCEPTION
745: WHEN FND_API.G_EXC_ERROR THEN
746: x_return_status := FND_API.G_RET_STS_ERROR;
747: Rollback to Process_Flight_Schedules_pub;
748: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
749: p_data => x_msg_data,
750: p_encoded => fnd_api.g_false );
746: x_return_status := FND_API.G_RET_STS_ERROR;
747: Rollback to Process_Flight_Schedules_pub;
748: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
749: p_data => x_msg_data,
750: p_encoded => fnd_api.g_false );
751:
752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
754: Rollback to Process_Flight_Schedules_pub;
748: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
749: p_data => x_msg_data,
750: p_encoded => fnd_api.g_false );
751:
752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
754: Rollback to Process_Flight_Schedules_pub;
755: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
756: p_data => x_msg_data,
749: p_data => x_msg_data,
750: p_encoded => fnd_api.g_false );
751:
752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
754: Rollback to Process_Flight_Schedules_pub;
755: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
756: p_data => x_msg_data,
757: p_encoded => fnd_api.g_false );
753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
754: Rollback to Process_Flight_Schedules_pub;
755: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
756: p_data => x_msg_data,
757: p_encoded => fnd_api.g_false );
758:
759: WHEN OTHERS THEN
760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
761: Rollback to Process_Flight_Schedules_pub;
756: p_data => x_msg_data,
757: p_encoded => fnd_api.g_false );
758:
759: WHEN OTHERS THEN
760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
761: Rollback to Process_Flight_Schedules_pub;
762: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
763: THEN
764: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
766: p_error_text => SUBSTR(SQLERRM,1,240) );
767: END IF;
768: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
769: p_data => x_msg_data,
770: p_encoded => fnd_api.g_false );
771:
772: END Process_Flight_Schedules;
773:
774: -----------------------------------------------------------------------------------------------------
896: END IF;
897:
898: AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules(
899: p_api_version => 1.0,
900: p_init_msg_list => FND_API.G_FALSE,
901: p_commit => FND_API.G_FALSE,
902: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
903: p_default => FND_API.G_FALSE,
904: p_module_type => null,
897:
898: AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules(
899: p_api_version => 1.0,
900: p_init_msg_list => FND_API.G_FALSE,
901: p_commit => FND_API.G_FALSE,
902: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
903: p_default => FND_API.G_FALSE,
904: p_module_type => null,
905: x_return_status => x_return_status,
898: AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules(
899: p_api_version => 1.0,
900: p_init_msg_list => FND_API.G_FALSE,
901: p_commit => FND_API.G_FALSE,
902: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
903: p_default => FND_API.G_FALSE,
904: p_module_type => null,
905: x_return_status => x_return_status,
906: x_msg_count => x_msg_count,
899: p_api_version => 1.0,
900: p_init_msg_list => FND_API.G_FALSE,
901: p_commit => FND_API.G_FALSE,
902: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
903: p_default => FND_API.G_FALSE,
904: p_module_type => null,
905: x_return_status => x_return_status,
906: x_msg_count => x_msg_count,
907: x_msg_data => x_msg_data,
917: );
918: END IF;
919:
920: -- Check Error Message stack.
921: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
922: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
923: fnd_log.string
924: (
925: fnd_log.level_error,
926: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
927: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised expected error....'
928: );
929: END IF;
930: RAISE FND_API.G_EXC_ERROR;
931: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
932: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
933: fnd_log.string
934: (
927: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised expected error....'
928: );
929: END IF;
930: RAISE FND_API.G_EXC_ERROR;
931: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
932: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
933: fnd_log.string
934: (
935: fnd_log.level_error,
936: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
937: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised unexpected error....'
938: );
939: END IF;
940: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
941: END IF;
942:
943:
944: --Populate the ids back to flight_visit_rec
1085: x_is_conflict => l_is_conflict
1086: );
1087:
1088: -- Check Error Message stack.
1089: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1090: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1091: fnd_log.string
1092: (
1093: fnd_log.level_error,
1094: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1095: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised expected error....'
1096: );
1097: END IF;
1098: RAISE FND_API.G_EXC_ERROR;
1099: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1100: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1101: fnd_log.string
1102: (
1095: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised expected error....'
1096: );
1097: END IF;
1098: RAISE FND_API.G_EXC_ERROR;
1099: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1100: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1101: fnd_log.string
1102: (
1103: fnd_log.level_error,
1104: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1105: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised unexpected error....'
1106: );
1107: END IF;
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: END IF;
1110:
1111: -- Determine if the succeding event is Flight and its details.
1112: AHL_UA_COMMON_PVT.Get_Succ_Flight_Info
1116: x_msg_count => x_msg_count,
1117: x_msg_data => x_msg_data,
1118: p_unit_config_id => p_x_flight_visit_schedules_tbl(i).UNIT_CONFIG_HEADER_ID,
1119: p_end_date_time => p_x_flight_visit_schedules_tbl(i).EST_ARRIVAL_TIME,
1120: p_use_actuals => FND_API.G_FALSE,
1121: x_succ_flight_schedule => l_x_succ_flight_schedule,
1122: x_is_conflict => l_is_conflict
1123: );
1124:
1122: x_is_conflict => l_is_conflict
1123: );
1124:
1125: -- Check Error Message stack.
1126: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1127: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1128: fnd_log.string
1129: (
1130: fnd_log.level_error,
1131: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1132: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised expected error....'
1133: );
1134: END IF;
1135: RAISE FND_API.G_EXC_ERROR;
1136: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1137: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1138: fnd_log.string
1139: (
1132: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised expected error....'
1133: );
1134: END IF;
1135: RAISE FND_API.G_EXC_ERROR;
1136: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1137: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1138: fnd_log.string
1139: (
1140: fnd_log.level_error,
1141: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1142: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised unexpected error....'
1143: );
1144: END IF;
1145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1146: END IF;
1147:
1148: IF l_x_visit_rec.visit_id IS NOT NULL THEN
1149: l_x_visit_tbl(j).PLAN_END_DATE := l_x_visit_rec.START_DATE;
1253: END IF;
1254:
1255: AHL_VWP_VISITS_PVT.Process_Visit (
1256: p_api_version => 1.0,
1257: p_init_msg_list => FND_API.G_FALSE,
1258: p_commit => FND_API.G_FALSE,
1259: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1260: p_module_type => NULL,
1261: p_x_Visit_tbl => l_x_visit_tbl,
1254:
1255: AHL_VWP_VISITS_PVT.Process_Visit (
1256: p_api_version => 1.0,
1257: p_init_msg_list => FND_API.G_FALSE,
1258: p_commit => FND_API.G_FALSE,
1259: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1260: p_module_type => NULL,
1261: p_x_Visit_tbl => l_x_visit_tbl,
1262: x_return_status => x_return_status,
1255: AHL_VWP_VISITS_PVT.Process_Visit (
1256: p_api_version => 1.0,
1257: p_init_msg_list => FND_API.G_FALSE,
1258: p_commit => FND_API.G_FALSE,
1259: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1260: p_module_type => NULL,
1261: p_x_Visit_tbl => l_x_visit_tbl,
1262: x_return_status => x_return_status,
1263: x_msg_count => x_msg_count,
1273: );
1274: END IF;
1275:
1276: -- Check Error Message stack.
1277: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1278: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1279: fnd_log.string
1280: (
1281: fnd_log.level_error,
1282: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1283: 'AHL_VWP_VISITS_PVT.Process_Visit API raised expected error....'
1284: );
1285: END IF;
1286: RAISE FND_API.G_EXC_ERROR;
1287: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1288: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1289: fnd_log.string
1290: (
1283: 'AHL_VWP_VISITS_PVT.Process_Visit API raised expected error....'
1284: );
1285: END IF;
1286: RAISE FND_API.G_EXC_ERROR;
1287: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1288: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1289: fnd_log.string
1290: (
1291: fnd_log.level_error,
1292: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1293: 'AHL_VWP_VISITS_PVT.Process_Visit API raised unexpected error....'
1294: );
1295: END IF;
1296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1297: END IF;
1298:
1299: -- Re-assign visit id.
1300: j := l_x_visit_tbl.FIRST;
1333: l_api_name CONSTANT VARCHAR2(30) := 'validate_api_inputs';
1334:
1335: BEGIN
1336: -- Initialize return status to success initially
1337: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1338:
1339: FOR i IN p_flight_visit_sch_tbl.FIRST..p_flight_visit_sch_tbl.LAST
1340: LOOP
1341:
1362: FND_MESSAGE.set_name( 'AHL','AHL_COM_INVALID_DML' );
1363: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_flight_visit_sch_tbl(i)));
1364: FND_MESSAGE.set_token( 'FIELD', p_flight_visit_sch_tbl(i).DML_OPERATION);
1365: FND_MSG_PUB.add;
1366: x_return_status := FND_API.G_RET_STS_ERROR;
1367: END IF;
1368:
1369:
1370: --Obj version number and Unit Schedule id check in case of update or delete.
1372: p_flight_visit_sch_tbl(i).DML_OPERATION = 'U' OR p_flight_visit_sch_tbl(i).DML_OPERATION = 'u' )
1373: THEN
1374: --Unit Schedule id cannot be null
1375: IF (p_flight_visit_sch_tbl(i).UNIT_SCHEDULE_ID IS NULL OR
1376: p_flight_visit_sch_tbl(i).UNIT_SCHEDULE_ID = FND_API.G_MISS_NUM)
1377: THEN
1378: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1379: fnd_log.string
1380: (
1385: END IF;
1386: FND_MESSAGE.set_name( 'AHL','AHL_UA_US_NOT_FOUND' );
1387: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_flight_visit_sch_tbl(i)));
1388: FND_MSG_PUB.add;
1389: x_return_status := FND_API.G_RET_STS_ERROR;
1390: END IF;
1391:
1392: -- Check for Object Version number.
1393: IF (p_flight_visit_sch_tbl(i).OBJECT_VERSION_NUMBER IS NULL OR
1390: END IF;
1391:
1392: -- Check for Object Version number.
1393: IF (p_flight_visit_sch_tbl(i).OBJECT_VERSION_NUMBER IS NULL OR
1394: p_flight_visit_sch_tbl(i).OBJECT_VERSION_NUMBER = FND_API.G_MISS_NUM)
1395: THEN
1396: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1397: fnd_log.string
1398: (
1404: END IF;
1405: FND_MESSAGE.set_name( 'AHL','AHL_UA_OBJ_VERNO_NULL' );
1406: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_flight_visit_sch_tbl(i)));
1407: FND_MSG_PUB.add;
1408: x_return_status := FND_API.G_RET_STS_ERROR;
1409: END IF;
1410: END IF;
1411:
1412: IF p_flight_visit_sch_tbl(i).DML_OPERATION = 'C' OR
1415: p_flight_visit_sch_tbl(i).DML_OPERATION = 'u'
1416: THEN
1417: -- Unit Config Header id is a mandatory input field and cannot be null.
1418: IF (p_flight_visit_sch_tbl(i).UNIT_CONFIG_HEADER_ID IS NULL OR
1419: p_flight_visit_sch_tbl(i).UNIT_CONFIG_HEADER_ID = FND_API.G_MISS_NUM )AND
1420: (p_flight_visit_sch_tbl(i).UNIT_CONFIG_NAME IS NULL OR
1421: p_flight_visit_sch_tbl(i).UNIT_CONFIG_NAME = FND_API.G_MISS_CHAR)
1422:
1423: THEN
1417: -- Unit Config Header id is a mandatory input field and cannot be null.
1418: IF (p_flight_visit_sch_tbl(i).UNIT_CONFIG_HEADER_ID IS NULL OR
1419: p_flight_visit_sch_tbl(i).UNIT_CONFIG_HEADER_ID = FND_API.G_MISS_NUM )AND
1420: (p_flight_visit_sch_tbl(i).UNIT_CONFIG_NAME IS NULL OR
1421: p_flight_visit_sch_tbl(i).UNIT_CONFIG_NAME = FND_API.G_MISS_CHAR)
1422:
1423: THEN
1424: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1425: fnd_log.string
1432: END IF;
1433: FND_MESSAGE.set_name( 'AHL','AHL_UA_INV_UC_NAME' );
1434: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_flight_visit_sch_tbl(i)));
1435: FND_MSG_PUB.add;
1436: x_return_status := FND_API.G_RET_STS_ERROR;
1437: END IF;
1438:
1439: --Flight Number is a mandatory input field and cannot be null.
1440: IF p_flight_visit_sch_tbl(i).FLIGHT_NUMBER IS NULL OR
1437: END IF;
1438:
1439: --Flight Number is a mandatory input field and cannot be null.
1440: IF p_flight_visit_sch_tbl(i).FLIGHT_NUMBER IS NULL OR
1441: p_flight_visit_sch_tbl(i).FLIGHT_NUMBER = FND_API.G_MISS_CHAR
1442: THEN
1443: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1444: fnd_log.string
1445: (
1451: END IF;
1452: FND_MESSAGE.set_name( 'AHL','AHL_UA_FLG_NUMBER_NULL' );
1453: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_flight_visit_sch_tbl(i)));
1454: FND_MSG_PUB.add;
1455: x_return_status := FND_API.G_RET_STS_ERROR;
1456: END IF;
1457:
1458: --Segment is a mandatory input field and cannot be null
1459: IF p_flight_visit_sch_tbl(i).SEGMENT IS NULL OR
1456: END IF;
1457:
1458: --Segment is a mandatory input field and cannot be null
1459: IF p_flight_visit_sch_tbl(i).SEGMENT IS NULL OR
1460: p_flight_visit_sch_tbl(i).SEGMENT = FND_API.G_MISS_CHAR
1461: THEN
1462: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1463: fnd_log.string
1464: (
1470: END IF;
1471: FND_MESSAGE.set_name( 'AHL','AHL_UA_SEGMENT_NULL' );
1472: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_flight_visit_sch_tbl(i)));
1473: FND_MSG_PUB.add;
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1475: END IF;
1476:
1477: --Departure_Dept_Id is a mandatory input field and cannot be null
1478: IF ( p_flight_visit_sch_tbl(i).DEPARTURE_DEPT_ID IS NULL OR
1475: END IF;
1476:
1477: --Departure_Dept_Id is a mandatory input field and cannot be null
1478: IF ( p_flight_visit_sch_tbl(i).DEPARTURE_DEPT_ID IS NULL OR
1479: p_flight_visit_sch_tbl(i).DEPARTURE_DEPT_ID = FND_API.G_MISS_NUM ) AND
1480: ( p_flight_visit_sch_tbl(i).DEPARTURE_DEPT_CODE IS NULL OR
1481: p_flight_visit_sch_tbl(i).DEPARTURE_DEPT_CODE = FND_API.G_MISS_CHAR )
1482: THEN
1483: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1477: --Departure_Dept_Id is a mandatory input field and cannot be null
1478: IF ( p_flight_visit_sch_tbl(i).DEPARTURE_DEPT_ID IS NULL OR
1479: p_flight_visit_sch_tbl(i).DEPARTURE_DEPT_ID = FND_API.G_MISS_NUM ) AND
1480: ( p_flight_visit_sch_tbl(i).DEPARTURE_DEPT_CODE IS NULL OR
1481: p_flight_visit_sch_tbl(i).DEPARTURE_DEPT_CODE = FND_API.G_MISS_CHAR )
1482: THEN
1483: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1484: fnd_log.string
1485: (
1491: END IF;
1492: FND_MESSAGE.set_name( 'AHL','AHL_UA_DEP_DEPT_NULL' );
1493: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_flight_visit_sch_tbl(i)));
1494: FND_MSG_PUB.add;
1495: x_return_status := FND_API.G_RET_STS_ERROR;
1496: END IF;
1497:
1498: --Departure_Org_Id is a mandatory input field and cannot be null
1499: IF ( p_flight_visit_sch_tbl(i).DEPARTURE_ORG_ID IS NULL OR
1496: END IF;
1497:
1498: --Departure_Org_Id is a mandatory input field and cannot be null
1499: IF ( p_flight_visit_sch_tbl(i).DEPARTURE_ORG_ID IS NULL OR
1500: p_flight_visit_sch_tbl(i).DEPARTURE_ORG_ID = FND_API.G_MISS_NUM ) AND
1501: ( p_flight_visit_sch_tbl(i).DEPARTURE_ORG_CODE IS NULL OR
1502: p_flight_visit_sch_tbl(i).DEPARTURE_ORG_CODE = FND_API.G_MISS_CHAR )
1503: THEN
1504: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1498: --Departure_Org_Id is a mandatory input field and cannot be null
1499: IF ( p_flight_visit_sch_tbl(i).DEPARTURE_ORG_ID IS NULL OR
1500: p_flight_visit_sch_tbl(i).DEPARTURE_ORG_ID = FND_API.G_MISS_NUM ) AND
1501: ( p_flight_visit_sch_tbl(i).DEPARTURE_ORG_CODE IS NULL OR
1502: p_flight_visit_sch_tbl(i).DEPARTURE_ORG_CODE = FND_API.G_MISS_CHAR )
1503: THEN
1504: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1505: fnd_log.string
1506: (
1512: END IF;
1513: FND_MESSAGE.set_name( 'AHL','AHL_UA_DEP_ORG_NULL' );
1514: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_flight_visit_sch_tbl(i)));
1515: FND_MSG_PUB.add;
1516: x_return_status := FND_API.G_RET_STS_ERROR;
1517: END IF;
1518:
1519: --Arrival_Dept_Id is a mandatory input field and cannot be null
1520: IF ( p_flight_visit_sch_tbl(i).ARRIVAL_DEPT_ID IS NULL OR
1517: END IF;
1518:
1519: --Arrival_Dept_Id is a mandatory input field and cannot be null
1520: IF ( p_flight_visit_sch_tbl(i).ARRIVAL_DEPT_ID IS NULL OR
1521: p_flight_visit_sch_tbl(i).ARRIVAL_DEPT_ID = FND_API.G_MISS_NUM ) AND
1522: ( p_flight_visit_sch_tbl(i).ARRIVAL_DEPT_CODE IS NULL OR
1523: p_flight_visit_sch_tbl(i).ARRIVAL_DEPT_CODE = FND_API.G_MISS_CHAR )
1524:
1525: THEN
1519: --Arrival_Dept_Id is a mandatory input field and cannot be null
1520: IF ( p_flight_visit_sch_tbl(i).ARRIVAL_DEPT_ID IS NULL OR
1521: p_flight_visit_sch_tbl(i).ARRIVAL_DEPT_ID = FND_API.G_MISS_NUM ) AND
1522: ( p_flight_visit_sch_tbl(i).ARRIVAL_DEPT_CODE IS NULL OR
1523: p_flight_visit_sch_tbl(i).ARRIVAL_DEPT_CODE = FND_API.G_MISS_CHAR )
1524:
1525: THEN
1526: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1527: fnd_log.string
1534: END IF;
1535: FND_MESSAGE.set_name( 'AHL','AHL_UA_ARR_DEPT_NULL' );
1536: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_flight_visit_sch_tbl(i)));
1537: FND_MSG_PUB.add;
1538: x_return_status := FND_API.G_RET_STS_ERROR;
1539: END IF;
1540:
1541: --Arrival_Org_Id is a mandatory input field and cannot be null
1542: IF ( p_flight_visit_sch_tbl(i).ARRIVAL_ORG_ID IS NULL OR
1539: END IF;
1540:
1541: --Arrival_Org_Id is a mandatory input field and cannot be null
1542: IF ( p_flight_visit_sch_tbl(i).ARRIVAL_ORG_ID IS NULL OR
1543: p_flight_visit_sch_tbl(i).ARRIVAL_ORG_ID = FND_API.G_MISS_NUM ) AND
1544: ( p_flight_visit_sch_tbl(i).ARRIVAL_ORG_CODE IS NULL OR
1545: p_flight_visit_sch_tbl(i).ARRIVAL_ORG_CODE = FND_API.G_MISS_CHAR )
1546: THEN
1547: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1541: --Arrival_Org_Id is a mandatory input field and cannot be null
1542: IF ( p_flight_visit_sch_tbl(i).ARRIVAL_ORG_ID IS NULL OR
1543: p_flight_visit_sch_tbl(i).ARRIVAL_ORG_ID = FND_API.G_MISS_NUM ) AND
1544: ( p_flight_visit_sch_tbl(i).ARRIVAL_ORG_CODE IS NULL OR
1545: p_flight_visit_sch_tbl(i).ARRIVAL_ORG_CODE = FND_API.G_MISS_CHAR )
1546: THEN
1547: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1548: fnd_log.string
1549: (
1555: END IF;
1556: FND_MESSAGE.set_name( 'AHL','AHL_UA_ARR_ORG_NULL' );
1557: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_flight_visit_sch_tbl(i)));
1558: FND_MSG_PUB.add;
1559: x_return_status := FND_API.G_RET_STS_ERROR;
1560: END IF;
1561:
1562: --Est_Departure_Time is a mandatory input field and cannot be null
1563: IF p_flight_visit_sch_tbl(i).EST_DEPARTURE_TIME IS NULL OR
1560: END IF;
1561:
1562: --Est_Departure_Time is a mandatory input field and cannot be null
1563: IF p_flight_visit_sch_tbl(i).EST_DEPARTURE_TIME IS NULL OR
1564: p_flight_visit_sch_tbl(i).EST_DEPARTURE_TIME = FND_API.G_MISS_DATE
1565: THEN
1566: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1567: fnd_log.string
1568: (
1574: END IF;
1575: FND_MESSAGE.set_name( 'AHL','AHL_UA_EST_DEP_TIME_NULL' );
1576: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_flight_visit_sch_tbl(i)));
1577: FND_MSG_PUB.add;
1578: x_return_status := FND_API.G_RET_STS_ERROR;
1579: END IF;
1580:
1581: --Est_Arrival_Time is a mandatory input field and cannot be null
1582: IF p_flight_visit_sch_tbl(i).EST_ARRIVAL_TIME IS NULL OR
1579: END IF;
1580:
1581: --Est_Arrival_Time is a mandatory input field and cannot be null
1582: IF p_flight_visit_sch_tbl(i).EST_ARRIVAL_TIME IS NULL OR
1583: p_flight_visit_sch_tbl(i).EST_ARRIVAL_TIME = FND_API.G_MISS_DATE
1584: THEN
1585: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1586: fnd_log.string
1587: (
1593: END IF;
1594: FND_MESSAGE.set_name( 'AHL','AHL_UA_EST_ARR_TIME_NULL' );
1595: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_flight_visit_sch_tbl(i)));
1596: FND_MSG_PUB.add;
1597: x_return_status := FND_API.G_RET_STS_ERROR;
1598: END IF;
1599:
1600: --Visit_Reschedule_Mode is a mandatory input field and cannot be null
1601: IF ( p_flight_visit_sch_tbl(i).VISIT_RESCHEDULE_MODE IS NULL OR
1598: END IF;
1599:
1600: --Visit_Reschedule_Mode is a mandatory input field and cannot be null
1601: IF ( p_flight_visit_sch_tbl(i).VISIT_RESCHEDULE_MODE IS NULL OR
1602: p_flight_visit_sch_tbl(i).VISIT_RESCHEDULE_MODE = FND_API.G_MISS_CHAR ) AND
1603: ( p_flight_visit_sch_tbl(i).VISIT_RESCHEDULE_MEANING IS NULL OR
1604: p_flight_visit_sch_tbl(i).VISIT_RESCHEDULE_MEANING = FND_API.G_MISS_CHAR )
1605: THEN
1606: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1600: --Visit_Reschedule_Mode is a mandatory input field and cannot be null
1601: IF ( p_flight_visit_sch_tbl(i).VISIT_RESCHEDULE_MODE IS NULL OR
1602: p_flight_visit_sch_tbl(i).VISIT_RESCHEDULE_MODE = FND_API.G_MISS_CHAR ) AND
1603: ( p_flight_visit_sch_tbl(i).VISIT_RESCHEDULE_MEANING IS NULL OR
1604: p_flight_visit_sch_tbl(i).VISIT_RESCHEDULE_MEANING = FND_API.G_MISS_CHAR )
1605: THEN
1606: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1607: fnd_log.string
1608: (
1614: END IF;
1615: FND_MESSAGE.set_name( 'AHL','AHL_UA_VST_RES_MODE_NULL' );
1616: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_flight_visit_sch_tbl(i)));
1617: FND_MSG_PUB.add;
1618: x_return_status := FND_API.G_RET_STS_ERROR;
1619: END IF;
1620:
1621: ----------------- Validate visit paramters here, only when DML_OPERATION is C -------------------
1622: IF p_flight_visit_sch_tbl(i).DML_OPERATION = 'C' OR
1623: p_flight_visit_sch_tbl(i).DML_OPERATION = 'c'
1624: THEN
1625: -- Check for visit type.
1626: IF ( p_flight_visit_sch_tbl(i).VISIT_TYPE_CODE IS NULL OR
1627: p_flight_visit_sch_tbl(i).VISIT_TYPE_CODE = FND_API.G_MISS_CHAR ) AND
1628: ( p_flight_visit_sch_tbl(i).VISIT_TYPE_MEANING IS NULL OR
1629: p_flight_visit_sch_tbl(i).VISIT_TYPE_MEANING = FND_API.G_MISS_CHAR )
1630: THEN
1631: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1625: -- Check for visit type.
1626: IF ( p_flight_visit_sch_tbl(i).VISIT_TYPE_CODE IS NULL OR
1627: p_flight_visit_sch_tbl(i).VISIT_TYPE_CODE = FND_API.G_MISS_CHAR ) AND
1628: ( p_flight_visit_sch_tbl(i).VISIT_TYPE_MEANING IS NULL OR
1629: p_flight_visit_sch_tbl(i).VISIT_TYPE_MEANING = FND_API.G_MISS_CHAR )
1630: THEN
1631: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1632: fnd_log.string
1633: (
1639: END IF;
1640: FND_MESSAGE.set_name( 'AHL','AHL_UA_VST_TYPE_NULL' );
1641: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_flight_visit_sch_tbl(i)));
1642: FND_MSG_PUB.add;
1643: x_return_status := FND_API.G_RET_STS_ERROR;
1644: END IF;
1645:
1646: -- Check for visit create type.
1647: IF ( p_flight_visit_sch_tbl(i).VISIT_CREATE_TYPE IS NULL OR
1644: END IF;
1645:
1646: -- Check for visit create type.
1647: IF ( p_flight_visit_sch_tbl(i).VISIT_CREATE_TYPE IS NULL OR
1648: p_flight_visit_sch_tbl(i).VISIT_CREATE_TYPE = FND_API.G_MISS_CHAR ) AND
1649: ( p_flight_visit_sch_tbl(i).VISIT_CREATE_MEANING IS NULL OR
1650: p_flight_visit_sch_tbl(i).VISIT_CREATE_MEANING = FND_API.G_MISS_CHAR )
1651: THEN
1652: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1646: -- Check for visit create type.
1647: IF ( p_flight_visit_sch_tbl(i).VISIT_CREATE_TYPE IS NULL OR
1648: p_flight_visit_sch_tbl(i).VISIT_CREATE_TYPE = FND_API.G_MISS_CHAR ) AND
1649: ( p_flight_visit_sch_tbl(i).VISIT_CREATE_MEANING IS NULL OR
1650: p_flight_visit_sch_tbl(i).VISIT_CREATE_MEANING = FND_API.G_MISS_CHAR )
1651: THEN
1652: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1653: fnd_log.string
1654: (
1660: END IF;
1661: FND_MESSAGE.set_name( 'AHL','AHL_UA_VST_CRE_TYPE_NULL' );
1662: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_flight_visit_sch_tbl(i)));
1663: FND_MSG_PUB.add;
1664: x_return_status := FND_API.G_RET_STS_ERROR;
1665: END IF;
1666: END IF;
1667:
1668: END IF;
1678: PROCEDURE Process_FlightVisit_Sch
1679: (
1680: -- standard IN params
1681: p_api_version IN NUMBER,
1682: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1683: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1684: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1685: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1686: p_module_type IN VARCHAR2 :=NULL,
1679: (
1680: -- standard IN params
1681: p_api_version IN NUMBER,
1682: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1683: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1684: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1685: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1686: p_module_type IN VARCHAR2 :=NULL,
1687: -- standard OUT params
1680: -- standard IN params
1681: p_api_version IN NUMBER,
1682: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1683: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1684: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1685: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1686: p_module_type IN VARCHAR2 :=NULL,
1687: -- standard OUT params
1688: x_return_status OUT NOCOPY VARCHAR2,
1681: p_api_version IN NUMBER,
1682: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1683: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1684: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1685: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1686: p_module_type IN VARCHAR2 :=NULL,
1687: -- standard OUT params
1688: x_return_status OUT NOCOPY VARCHAR2,
1689: x_msg_count OUT NOCOPY NUMBER,
1707: --define a savepoint for the procedure
1708: SAVEPOINT p_x_flght_visit_schedules_pub;
1709:
1710: -- Initialize return status to success initially
1711: x_return_status:=FND_API.G_RET_STS_SUCCESS;
1712:
1713: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1714: p_api_version,
1715: l_api_name,G_PKG_NAME)
1709:
1710: -- Initialize return status to success initially
1711: x_return_status:=FND_API.G_RET_STS_SUCCESS;
1712:
1713: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1714: p_api_version,
1715: l_api_name,G_PKG_NAME)
1716: THEN
1717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1713: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1714: p_api_version,
1715: l_api_name,G_PKG_NAME)
1716: THEN
1717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1718: END IF;
1719:
1720: -- Initialize message list if p_init_msg_list is set to TRUE.
1721: IF FND_API.to_boolean(p_init_msg_list) THEN
1717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1718: END IF;
1719:
1720: -- Initialize message list if p_init_msg_list is set to TRUE.
1721: IF FND_API.to_boolean(p_init_msg_list) THEN
1722: FND_MSG_PUB.initialize;
1723: END IF;
1724:
1725:
1738: x_return_status => x_return_status
1739: );
1740:
1741: -- If any severe error occurs, then, abort API.
1742: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1743: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1744: fnd_log.string
1745: (
1746: fnd_log.level_error,
1747: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1748: 'validate_api_inputs API raised expected error....'
1749: );
1750: END IF;
1751: RAISE FND_API.G_EXC_ERROR;
1752: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1753: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1754: fnd_log.string
1755: (
1748: 'validate_api_inputs API raised expected error....'
1749: );
1750: END IF;
1751: RAISE FND_API.G_EXC_ERROR;
1752: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1753: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1754: fnd_log.string
1755: (
1756: fnd_log.level_error,
1757: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1758: 'validate_api_inputs API raised unexpected error....'
1759: );
1760: END IF;
1761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1762: END IF;
1763:
1764: --Procedure to populate Flight Schedule rec from flight_visit_rec
1765:
1780: x_msg_data => x_msg_data
1781: );
1782:
1783: -- Standard check for p_commit
1784: IF FND_API.To_Boolean (p_commit)
1785: THEN
1786: COMMIT;
1787: END IF;
1788:
1795: );
1796: END IF;
1797:
1798: EXCEPTION
1799: WHEN FND_API.G_EXC_ERROR THEN
1800: x_return_status := FND_API.G_RET_STS_ERROR;
1801: Rollback to p_x_flght_visit_schedules_pub;
1802: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1803: p_data => x_msg_data,
1796: END IF;
1797:
1798: EXCEPTION
1799: WHEN FND_API.G_EXC_ERROR THEN
1800: x_return_status := FND_API.G_RET_STS_ERROR;
1801: Rollback to p_x_flght_visit_schedules_pub;
1802: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1803: p_data => x_msg_data,
1804: p_encoded => fnd_api.g_false );
1800: x_return_status := FND_API.G_RET_STS_ERROR;
1801: Rollback to p_x_flght_visit_schedules_pub;
1802: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1803: p_data => x_msg_data,
1804: p_encoded => fnd_api.g_false );
1805:
1806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1808: Rollback to p_x_flght_visit_schedules_pub;
1802: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1803: p_data => x_msg_data,
1804: p_encoded => fnd_api.g_false );
1805:
1806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1808: Rollback to p_x_flght_visit_schedules_pub;
1809: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1810: p_data => x_msg_data,
1803: p_data => x_msg_data,
1804: p_encoded => fnd_api.g_false );
1805:
1806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1808: Rollback to p_x_flght_visit_schedules_pub;
1809: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1810: p_data => x_msg_data,
1811: p_encoded => fnd_api.g_false );
1807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1808: Rollback to p_x_flght_visit_schedules_pub;
1809: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1810: p_data => x_msg_data,
1811: p_encoded => fnd_api.g_false );
1812:
1813: WHEN OTHERS THEN
1814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1815: Rollback to p_x_flght_visit_schedules_pub;
1810: p_data => x_msg_data,
1811: p_encoded => fnd_api.g_false );
1812:
1813: WHEN OTHERS THEN
1814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1815: Rollback to p_x_flght_visit_schedules_pub;
1816: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1817: THEN
1818: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1820: p_error_text => SUBSTR(SQLERRM,1,240) );
1821: END IF;
1822: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1823: p_data => x_msg_data,
1824: p_encoded => fnd_api.g_false );
1825:
1826: END Process_FlightVisit_Sch;
1827:
1828: END AHL_UA_FLIGHT_SCHEDULES_PUB;