[Home] [Help]
7: G_USER_ID CONSTANT NUMBER := TO_NUMBER(FND_GLOBAL.USER_ID);
8: G_LOGIN_ID CONSTANT NUMBER := TO_NUMBER(FND_GLOBAL.LOGIN_ID);
9: G_SYSDATE CONSTANT DATE := SYSDATE;
10: --Flag for determining wether to use Actual dates or Estimated dates.
11: G_USE_ACTUALS CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
12:
13: ------------------------------------------------------------------------------------
14: -- Common variables
15: ------------------------------------------------------------------------------------
133: );
134: END IF;
135:
136: -- initialize return status to success at the begining
137: x_return_status := FND_API.G_RET_STS_SUCCESS;
138:
139:
140: l_record_identifier := get_record_identifier(
141: p_flight_schedule_rec => p_x_flight_schedule_rec
160: 'DML Operation specified is invalid for '
161: ||p_x_flight_schedule_rec.unit_schedule_id
162: );
163: END IF;
164: x_return_status := FND_API.G_RET_STS_ERROR;
165: RAISE FND_API.G_EXC_ERROR;
166: END IF;
167:
168:
161: ||p_x_flight_schedule_rec.unit_schedule_id
162: );
163: END IF;
164: x_return_status := FND_API.G_RET_STS_ERROR;
165: RAISE FND_API.G_EXC_ERROR;
166: END IF;
167:
168:
169: --Obj version number and Unit Schedule id check in case of update or delete.
173: )
174: THEN
175: --Unit Schedule id cannot be null
176: IF p_x_flight_schedule_rec.UNIT_SCHEDULE_ID IS NULL OR
177: p_x_flight_schedule_rec.UNIT_SCHEDULE_ID = FND_API.G_MISS_NUM
178: THEN
179: FND_MESSAGE.set_name( 'AHL','AHL_UA_US_NOT_FOUND' );
180: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
181: FND_MSG_PUB.add;
187: 'Unit Schedule ID is null for '
188: ||p_x_flight_schedule_rec.unit_schedule_id
189: );
190: END IF;
191: x_return_status := FND_API.G_RET_STS_ERROR;
192: RAISE FND_API.G_EXC_ERROR;
193: END IF;
194:
195: -- Check for Object Version number.
188: ||p_x_flight_schedule_rec.unit_schedule_id
189: );
190: END IF;
191: x_return_status := FND_API.G_RET_STS_ERROR;
192: RAISE FND_API.G_EXC_ERROR;
193: END IF;
194:
195: -- Check for Object Version number.
196: IF ( p_x_flight_schedule_rec.OBJECT_VERSION_NUMBER IS NULL OR
193: END IF;
194:
195: -- Check for Object Version number.
196: IF ( p_x_flight_schedule_rec.OBJECT_VERSION_NUMBER IS NULL OR
197: p_x_flight_schedule_rec.OBJECT_VERSION_NUMBER = FND_API.G_MISS_NUM )
198: THEN
199: FND_MESSAGE.set_name( 'AHL','AHL_UA_OBJ_VERNO_NULL' );
200: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
201: FND_MSG_PUB.add;
207: 'Object Version Number is null for '
208: ||p_x_flight_schedule_rec.unit_schedule_id
209: );
210: END IF;
211: x_return_status := FND_API.G_RET_STS_ERROR;
212: RAISE FND_API.G_EXC_ERROR;
213: END IF;
214:
215: -- Check if unit schedule rec is valid.
208: ||p_x_flight_schedule_rec.unit_schedule_id
209: );
210: END IF;
211: x_return_status := FND_API.G_RET_STS_ERROR;
212: RAISE FND_API.G_EXC_ERROR;
213: END IF;
214:
215: -- Check if unit schedule rec is valid.
216: OPEN get_cur_us_csr(p_x_flight_schedule_rec.unit_schedule_id, p_x_flight_schedule_rec.object_version_number);
228: 'Unit Schedule record is not valid ->'
229: ||p_x_flight_schedule_rec.unit_schedule_id
230: );
231: END IF;
232: x_return_status := FND_API.G_RET_STS_ERROR;
233: RAISE FND_API.G_EXC_ERROR;
234: END IF;
235: END IF;
236:
229: ||p_x_flight_schedule_rec.unit_schedule_id
230: );
231: END IF;
232: x_return_status := FND_API.G_RET_STS_ERROR;
233: RAISE FND_API.G_EXC_ERROR;
234: END IF;
235: END IF;
236:
237: -- MANESING::Auto Visit Forecasting Project, 17-Oct-2011, added validation for Flight Category lookup
238: IF (p_x_flight_schedule_rec.dml_operation = 'C' OR
239: p_x_flight_schedule_rec.dml_operation = 'U') THEN
240:
241: IF ((p_x_flight_schedule_rec.flight_category_code IS NOT NULL AND
242: p_x_flight_schedule_rec.flight_category_code <> FND_API.G_MISS_CHAR) OR
243: (p_x_flight_schedule_rec.flight_category_meaning IS NOT NULL AND
244: p_x_flight_schedule_rec.flight_category_meaning <> FND_API.G_MISS_CHAR)) THEN
245:
246: AHL_FMP_COMMON_PVT.validate_lookup
240:
241: IF ((p_x_flight_schedule_rec.flight_category_code IS NOT NULL AND
242: p_x_flight_schedule_rec.flight_category_code <> FND_API.G_MISS_CHAR) OR
243: (p_x_flight_schedule_rec.flight_category_meaning IS NOT NULL AND
244: p_x_flight_schedule_rec.flight_category_meaning <> FND_API.G_MISS_CHAR)) THEN
245:
246: AHL_FMP_COMMON_PVT.validate_lookup
247: (
248: p_lookup_type => 'AHL_FLIGHT_CAT_CODES',
251: x_return_status => l_return_status,
252: x_msg_data => l_msg_data
253: );
254:
255: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
256: x_return_status := l_return_status;
257:
258: IF (l_msg_data = 'AHL_COM_INVALID_LOOKUP') THEN
259: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_UA_INVALID_FLIGHT_CAT');
263: FND_MESSAGE.set_name(G_APP_NAME, l_msg_data);
264: END IF;
265:
266: IF (p_x_flight_schedule_rec.flight_category_meaning IS NULL OR
267: p_x_flight_schedule_rec.flight_category_meaning = FND_API.G_MISS_CHAR) THEN
268: FND_MESSAGE.set_token('FIELD', p_x_flight_schedule_rec.flight_category_code);
269: ELSE
270: FND_MESSAGE.set_token('FIELD', p_x_flight_schedule_rec.flight_category_meaning);
271: END IF;
274: IF (l_log_statement >= l_log_current_level) THEN
275: FND_LOG.string(l_log_statement, l_full_name,
276: 'Flight Category Code ' || p_x_flight_schedule_rec.flight_category_code || ' is not valid.');
277: END IF;
278: RAISE FND_API.G_EXC_ERROR;
279:
280: END IF;
281: END IF;
282:
365: );
366: END IF;
367:
368: -- Initialize return status to success at the begining
369: x_return_status := FND_API.G_RET_STS_SUCCESS;
370:
371: l_record_identifier := get_record_identifier(
372: p_flight_schedule_rec => p_x_flight_schedule_rec
373: );
374:
375: -- convert unit name(UC Name) to UC header id
376: IF /*(
377: p_x_flight_schedule_rec.unit_config_header_id IS NULL OR
378: p_x_flight_schedule_rec.unit_config_header_id = FND_API.G_MISS_NUM
379: )
380: AND*/
381: (
382: p_x_flight_schedule_rec.unit_config_name IS NOT NULL AND
379: )
380: AND*/
381: (
382: p_x_flight_schedule_rec.unit_config_name IS NOT NULL AND
383: p_x_flight_schedule_rec.unit_config_name <> FND_API.G_MISS_CHAR
384: )
385: THEN
386:
387: OPEN uc_name_to_id_csr(p_x_flight_schedule_rec.unit_config_name);
398: 'Unit Config name specified for '||p_x_flight_schedule_rec.unit_schedule_id
399: ||' is invalid'
400: );
401: END IF;
402: x_return_status := FND_API.G_RET_STS_ERROR;
403: END IF;
404: CLOSE uc_name_to_id_csr;
405:
406: END IF;
407:
408: -- convert arrival org
409: IF/*(
410: p_x_flight_schedule_rec.arrival_org_id IS NULL OR
411: p_x_flight_schedule_rec.arrival_org_id = FND_API.G_MISS_NUM
412: )
413: AND*/
414: (
415: p_x_flight_schedule_rec.ARRIVAL_ORG_CODE IS NOT NULL AND
412: )
413: AND*/
414: (
415: p_x_flight_schedule_rec.ARRIVAL_ORG_CODE IS NOT NULL AND
416: p_x_flight_schedule_rec.ARRIVAL_ORG_CODE <> FND_API.G_MISS_CHAR
417: )
418: THEN
419: OPEN org_name_to_id_csr(p_x_flight_schedule_rec.ARRIVAL_ORG_CODE);
420: FETCH org_name_to_id_csr INTO p_x_flight_schedule_rec.arrival_org_id;
430: 'Arrival Org code specified for '||p_x_flight_schedule_rec.unit_schedule_id
431: ||' is invalid'
432: );
433: END IF;
434: x_return_status := FND_API.G_RET_STS_ERROR;
435: END IF;
436: CLOSE org_name_to_id_csr;
437: END IF;
438:
438:
439: -- convert arrival department
440: IF /*(
441: p_x_flight_schedule_rec.arrival_dept_id IS NULL OR
442: p_x_flight_schedule_rec.arrival_dept_id = FND_API.G_MISS_NUM
443: )
444: AND*/
445: (
446: p_x_flight_schedule_rec.arrival_dept_code IS NOT NULL AND
443: )
444: AND*/
445: (
446: p_x_flight_schedule_rec.arrival_dept_code IS NOT NULL AND
447: p_x_flight_schedule_rec.arrival_dept_code <> FND_API.G_MISS_CHAR
448: )
449: AND
450: (
451: p_x_flight_schedule_rec.arrival_org_id IS NOT NULL AND
448: )
449: AND
450: (
451: p_x_flight_schedule_rec.arrival_org_id IS NOT NULL AND
452: p_x_flight_schedule_rec.arrival_org_id <> FND_API.G_MISS_NUM
453: )
454: THEN
455: OPEN dept_name_to_id_csr(p_x_flight_schedule_rec.arrival_dept_code,
456: p_x_flight_schedule_rec.ARRIVAL_ORG_ID);
467: 'Arrival Department code specified for '||p_x_flight_schedule_rec.unit_schedule_id
468: ||' is invalid'
469: );
470: END IF;
471: x_return_status := FND_API.G_RET_STS_ERROR;
472: END IF;
473: CLOSE dept_name_to_id_csr;
474: END IF;
475:
476:
477: -- convert departure org
478: IF /*(
479: p_x_flight_schedule_rec.departure_org_id IS NULL OR
480: p_x_flight_schedule_rec.departure_org_id = FND_API.G_MISS_NUM
481: )
482: AND*/
483: (
484: p_x_flight_schedule_rec.departure_org_code IS NOT NULL AND
481: )
482: AND*/
483: (
484: p_x_flight_schedule_rec.departure_org_code IS NOT NULL AND
485: p_x_flight_schedule_rec.departure_org_code <> FND_API.G_MISS_CHAR
486: )
487: THEN
488: OPEN org_name_to_id_csr(p_x_flight_schedule_rec.departure_org_code);
489: FETCH org_name_to_id_csr INTO p_x_flight_schedule_rec.departure_org_id;
499: 'Departure org code specified for '||p_x_flight_schedule_rec.unit_schedule_id
500: ||' is invalid'
501: );
502: END IF;
503: x_return_status := FND_API.G_RET_STS_ERROR;
504: END IF;
505: CLOSE org_name_to_id_csr;
506: END IF;
507:
507:
508: -- convert departure department
509: IF /*(
510: p_x_flight_schedule_rec.departure_dept_id IS NULL OR
511: p_x_flight_schedule_rec.departure_dept_id = FND_API.G_MISS_NUM
512: )
513: AND*/
514: (
515: p_x_flight_schedule_rec.departure_dept_code IS NOT NULL AND
512: )
513: AND*/
514: (
515: p_x_flight_schedule_rec.departure_dept_code IS NOT NULL AND
516: p_x_flight_schedule_rec.departure_dept_code <> FND_API.G_MISS_CHAR
517: )
518: AND
519: (
520: p_x_flight_schedule_rec.departure_org_id IS NOT NULL AND
517: )
518: AND
519: (
520: p_x_flight_schedule_rec.departure_org_id IS NOT NULL AND
521: p_x_flight_schedule_rec.departure_org_id <> FND_API.G_MISS_NUM
522: )
523: THEN
524: OPEN dept_name_to_id_csr(p_x_flight_schedule_rec.departure_dept_code,
525: p_x_flight_schedule_rec.departure_org_id);
536: 'Departure department code specified for '||p_x_flight_schedule_rec.unit_schedule_id
537: ||' is invalid'
538: );
539: END IF;
540: x_return_status := FND_API.G_RET_STS_ERROR;
541: END IF;
542: CLOSE dept_name_to_id_csr;
543: END IF;
544:
544:
545: -- validate visit synchronization rule lookup type.
546: IF /*(
547: p_x_flight_schedule_rec.VISIT_RESCHEDULE_MODE IS NOT NULL AND
548: p_x_flight_schedule_rec.VISIT_RESCHEDULE_MODE <> FND_API.G_MISS_CHAR
549: )
550: OR*/
551: (
552: p_x_flight_schedule_rec.VISIT_RESCHEDULE_MEANING IS NOT NULL AND
549: )
550: OR*/
551: (
552: p_x_flight_schedule_rec.VISIT_RESCHEDULE_MEANING IS NOT NULL AND
553: p_x_flight_schedule_rec.VISIT_RESCHEDULE_MEANING <> FND_API.G_MISS_CHAR
554: )
555:
556: THEN
557: AHL_RM_ROUTE_UTIL.validate_lookup(
562: p_x_lookup_code => p_x_flight_schedule_rec.VISIT_RESCHEDULE_MODE
563: );
564:
565: -- If any severe error occurs, then, abort API.
566: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
567: FND_MESSAGE.SET_NAME('AHL','AHL_UA_INV_RESCH_MODE');
568: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
569: FND_MSG_PUB.ADD;
570: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
575: 'visit reschedule mode specified for '||p_x_flight_schedule_rec.unit_schedule_id
576: ||' is invalid'
577: );
578: END IF;
579: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: END IF;
582: END IF;
583:
576: ||' is invalid'
577: );
578: END IF;
579: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: END IF;
582: END IF;
583:
584: --MANESING::Auto Visit Forecasting Project, 17-Oct-2011, convert Departure Space name to id
582: END IF;
583:
584: --MANESING::Auto Visit Forecasting Project, 17-Oct-2011, convert Departure Space name to id
585: IF (p_x_flight_schedule_rec.departure_space_name IS NOT NULL AND
586: p_x_flight_schedule_rec.departure_space_name <> FND_API.G_MISS_CHAR) THEN
587:
588: OPEN space_name_to_id_csr (p_x_flight_schedule_rec.departure_org_id,
589: p_x_flight_schedule_rec.departure_dept_id,
590: p_x_flight_schedule_rec.departure_space_name);
589: p_x_flight_schedule_rec.departure_dept_id,
590: p_x_flight_schedule_rec.departure_space_name);
591: FETCH space_name_to_id_csr INTO p_x_flight_schedule_rec.departure_space_id;
592: IF (space_name_to_id_csr%NOTFOUND) THEN
593: x_return_status := FND_API.G_RET_STS_ERROR;
594:
595: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_UA_INV_DEP_SPACE');
596: FND_MESSAGE.set_token('RECORD', l_record_identifier);
597: FND_MSG_PUB.add;
606: END IF;
607:
608: --MANESING::Auto Visit Forecasting Project, 17-Oct-2011, convert Departure Space name to id
609: IF (p_x_flight_schedule_rec.arrival_space_name IS NOT NULL AND
610: p_x_flight_schedule_rec.arrival_space_name <> FND_API.G_MISS_CHAR) THEN
611:
612: OPEN space_name_to_id_csr (p_x_flight_schedule_rec.arrival_org_id,
613: p_x_flight_schedule_rec.arrival_dept_id,
614: p_x_flight_schedule_rec.arrival_space_name);
613: p_x_flight_schedule_rec.arrival_dept_id,
614: p_x_flight_schedule_rec.arrival_space_name);
615: FETCH space_name_to_id_csr INTO p_x_flight_schedule_rec.arrival_space_id;
616: IF (space_name_to_id_csr%NOTFOUND) THEN
617: x_return_status := FND_API.G_RET_STS_ERROR;
618:
619: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_UA_INV_ARR_SPACE');
620: FND_MESSAGE.set_token('RECORD', l_record_identifier);
621: FND_MSG_PUB.add;
678: -- Default Unit Config Header id.
679: IF (p_x_flight_schedule_rec.unit_config_header_id IS NULL )
680: THEN
681: p_x_flight_schedule_rec.unit_config_header_id := l_current_us_rec.unit_config_header_id;
682: ELSIF p_x_flight_schedule_rec.unit_config_header_id = FND_API.G_MISS_NUM THEN
683: p_x_flight_schedule_rec.unit_config_header_id := NULL;
684: END IF;
685:
686: -- Default Flight Number
685:
686: -- Default Flight Number
687: IF ( p_x_flight_schedule_rec.flight_number IS NULL ) THEN
688: p_x_flight_schedule_rec.flight_number := l_current_us_rec.flight_number;
689: ELSIF p_x_flight_schedule_rec.flight_number = FND_API.G_MISS_CHAR THEN
690: p_x_flight_schedule_rec.flight_number := NULL;
691: END IF;
692:
693: -- Default segment
692:
693: -- Default segment
694: IF ( p_x_flight_schedule_rec.segment IS NULL ) THEN
695: p_x_flight_schedule_rec.segment := l_current_us_rec.segment;
696: ELSIF p_x_flight_schedule_rec.segment = FND_API.G_MISS_CHAR THEN
697: p_x_flight_schedule_rec.segment := NULL;
698: END IF;
699:
700: -- Default departure dept id.
699:
700: -- Default departure dept id.
701: IF ( p_x_flight_schedule_rec.departure_dept_id IS NULL ) THEN
702: p_x_flight_schedule_rec.departure_dept_id := l_current_us_rec.departure_dept_id;
703: ELSIF p_x_flight_schedule_rec.departure_dept_id = FND_API.G_MISS_NUM THEN
704: p_x_flight_schedule_rec.departure_dept_id := NULL;
705: END IF;
706:
707: -- Default departure org id.
706:
707: -- Default departure org id.
708: IF ( p_x_flight_schedule_rec.departure_org_id IS NULL ) THEN
709: p_x_flight_schedule_rec.departure_org_id := l_current_us_rec.departure_org_id;
710: ELSIF ( p_x_flight_schedule_rec.departure_org_id = FND_API.G_MISS_NUM ) THEN
711: p_x_flight_schedule_rec.departure_org_id := NULL;
712: END IF;
713:
714: -- Default arrival dept id.
713:
714: -- Default arrival dept id.
715: IF ( p_x_flight_schedule_rec.arrival_dept_id IS NULL ) THEN
716: p_x_flight_schedule_rec.arrival_dept_id := l_current_us_rec.arrival_dept_id;
717: ELSIF p_x_flight_schedule_rec.arrival_dept_id = FND_API.G_MISS_NUM THEN
718: p_x_flight_schedule_rec.arrival_dept_id := NULL;
719: END IF;
720:
721: -- Default arrival org is updated
720:
721: -- Default arrival org is updated
722: IF ( p_x_flight_schedule_rec.arrival_org_id IS NULL ) THEN
723: p_x_flight_schedule_rec.arrival_org_id := l_current_us_rec.arrival_org_id;
724: ELSIF p_x_flight_schedule_rec.arrival_org_id = FND_API.G_MISS_NUM THEN
725: p_x_flight_schedule_rec.arrival_org_id := NULL;
726: END IF;
727:
728: -- Default estimated departure time.
727:
728: -- Default estimated departure time.
729: IF ( p_x_flight_schedule_rec.est_departure_time IS NULL ) THEN
730: p_x_flight_schedule_rec.est_departure_time := l_current_us_rec.est_departure_time;
731: ELSIF p_x_flight_schedule_rec.est_departure_time = FND_API.G_MISS_DATE THEN
732: p_x_flight_schedule_rec.est_departure_time := NULL;
733: END IF;
734:
735: -- Default estimated Arrival time.
734:
735: -- Default estimated Arrival time.
736: IF ( p_x_flight_schedule_rec.est_arrival_time IS NULL ) THEN
737: p_x_flight_schedule_rec.est_arrival_time := l_current_us_rec.est_arrival_time;
738: ELSIF p_x_flight_schedule_rec.est_arrival_time = FND_API.G_MISS_DATE THEN
739: p_x_flight_schedule_rec.est_arrival_time := NULL;
740: END IF;
741:
742: -- default actual_departure_time
741:
742: -- default actual_departure_time
743: IF ( p_x_flight_schedule_rec.actual_departure_time IS NULL ) THEN
744: p_x_flight_schedule_rec.actual_departure_time := l_current_us_rec.actual_departure_time;
745: ELSIF p_x_flight_schedule_rec.actual_departure_time = FND_API.G_MISS_DATE
746: THEN
747: p_x_flight_schedule_rec.actual_departure_time := NULL;
748: END IF;
749:
749:
750: -- default actual_arrival_time
751: IF ( p_x_flight_schedule_rec.actual_arrival_time IS NULL ) THEN
752: p_x_flight_schedule_rec.actual_arrival_time := l_current_us_rec.actual_arrival_time;
753: ELSIF p_x_flight_schedule_rec.actual_arrival_time = FND_API.G_MISS_DATE
754: THEN
755: p_x_flight_schedule_rec.actual_arrival_time := NULL;
756: END IF;
757:
757:
758: -- default preceding_us_id
759: IF ( p_x_flight_schedule_rec.preceding_us_id IS NULL ) THEN
760: p_x_flight_schedule_rec.preceding_us_id := l_current_us_rec.preceding_us_id;
761: ELSIF p_x_flight_schedule_rec.preceding_us_id = FND_API.G_MISS_NUM
762: THEN
763: p_x_flight_schedule_rec.preceding_us_id := NULL;
764: END IF;
765:
765:
766: -- default visit_reschedule_mode
767: IF ( p_x_flight_schedule_rec.visit_reschedule_mode IS NULL ) THEN
768: p_x_flight_schedule_rec.visit_reschedule_mode := l_current_us_rec.visit_reschedule_mode;
769: ELSIF p_x_flight_schedule_rec.visit_reschedule_mode = FND_API.G_MISS_CHAR
770: THEN
771: p_x_flight_schedule_rec.visit_reschedule_mode := NULL;
772: END IF;
773:
774: -- MANESING::Auto Visit Forecasting Project, 17-Oct-2011, default flight category code and spaces
775: -- default flight category code
776: IF (p_x_flight_schedule_rec.flight_category_code IS NULL) THEN
777: p_x_flight_schedule_rec.flight_category_code := l_current_us_rec.flight_category_code;
778: ELSIF (p_x_flight_schedule_rec.flight_category_code = FND_API.G_MISS_CHAR) THEN
779: p_x_flight_schedule_rec.flight_category_code := NULL;
780: END IF;
781:
782: -- default departure space id
781:
782: -- default departure space id
783: IF (p_x_flight_schedule_rec.departure_space_id IS NULL) THEN
784: p_x_flight_schedule_rec.departure_space_id := l_current_us_rec.departure_space_id;
785: ELSIF (p_x_flight_schedule_rec.departure_space_id = FND_API.G_MISS_NUM) THEN
786: p_x_flight_schedule_rec.departure_space_id := NULL;
787: END IF;
788:
789: -- default arrival space id
788:
789: -- default arrival space id
790: IF (p_x_flight_schedule_rec.arrival_space_id IS NULL) THEN
791: p_x_flight_schedule_rec.arrival_space_id := l_current_us_rec.arrival_space_id;
792: ELSIF (p_x_flight_schedule_rec.arrival_space_id = FND_API.G_MISS_NUM) THEN
793: p_x_flight_schedule_rec.arrival_space_id := NULL;
794: END IF;
795:
796: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
832: );
833: END IF;
834:
835: -- Initialize return status to success at the begining
836: x_return_status := FND_API.G_RET_STS_SUCCESS;
837:
838: l_record_identifier := get_record_identifier(
839: p_flight_schedule_rec => p_flight_schedule_rec
840: );
841:
842: -- Unit Config Header is Mandatory input Field and cannot be null
843: IF (
844: p_flight_schedule_rec.unit_config_header_id IS NULL OR
845: p_flight_schedule_rec.unit_config_header_id = FND_API.G_MISS_NUM
846: )
847: THEN
848: FND_MESSAGE.set_name( 'AHL','AHL_UA_INV_UC_NAME' );
849: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
856: 'Unit Config Header id is a mandatory input field and cannot be null for '
857: ||p_flight_schedule_rec.unit_schedule_id
858: );
859: END IF;
860: x_return_status := FND_API.G_RET_STS_ERROR;
861: END IF;
862:
863: -- Flight Number is a mandatory input field and cannot be null
864: IF (
862:
863: -- Flight Number is a mandatory input field and cannot be null
864: IF (
865: p_flight_schedule_rec.flight_number IS NULL OR
866: p_flight_schedule_rec.flight_number = FND_API.G_MISS_CHAR
867: )
868: THEN
869: FND_MESSAGE.set_name( 'AHL', 'AHL_UA_FLG_NUMBER_NULL' );
870: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
877: 'Flight Number cannot be null for '
878: ||p_flight_schedule_rec.unit_schedule_id
879: );
880: END IF;
881: x_return_status := FND_API.G_RET_STS_ERROR;
882: --RAISE FND_API.G_EXC_ERROR;
883: END IF;
884:
885: -- Segment is a mandatory input field and cannot be null
878: ||p_flight_schedule_rec.unit_schedule_id
879: );
880: END IF;
881: x_return_status := FND_API.G_RET_STS_ERROR;
882: --RAISE FND_API.G_EXC_ERROR;
883: END IF;
884:
885: -- Segment is a mandatory input field and cannot be null
886: IF (
884:
885: -- Segment is a mandatory input field and cannot be null
886: IF (
887: p_flight_schedule_rec.segment IS NULL OR
888: p_flight_schedule_rec.segment = FND_API.G_MISS_CHAR
889: )
890: THEN
891: FND_MESSAGE.set_name( 'AHL', 'AHL_UA_SEGMENT_NULL' );
892: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
899: 'Segment cannot be null for '
900: ||p_flight_schedule_rec.unit_schedule_id
901: );
902: END IF;
903: x_return_status := FND_API.G_RET_STS_ERROR;
904: --RAISE FND_API.G_EXC_ERROR;
905: END IF;
906:
907: -- Departure department is a mandatory input field and cannot be null
900: ||p_flight_schedule_rec.unit_schedule_id
901: );
902: END IF;
903: x_return_status := FND_API.G_RET_STS_ERROR;
904: --RAISE FND_API.G_EXC_ERROR;
905: END IF;
906:
907: -- Departure department is a mandatory input field and cannot be null
908: IF (
906:
907: -- Departure department is a mandatory input field and cannot be null
908: IF (
909: p_flight_schedule_rec.departure_dept_id IS NULL OR
910: p_flight_schedule_rec.departure_dept_id = FND_API.G_MISS_NUM
911: )
912: THEN
913: FND_MESSAGE.set_name( 'AHL','AHL_UA_DEP_DEPT_NULL' );
914: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
921: 'Departure_Dept_Id is a mandatory input field and cannot be null for '
922: ||p_flight_schedule_rec.unit_schedule_id
923: );
924: END IF;
925: x_return_status := FND_API.G_RET_STS_ERROR;
926: END IF;
927:
928: -- Departure Organization is a mandatory input field and cannot be null
929: IF (
927:
928: -- Departure Organization is a mandatory input field and cannot be null
929: IF (
930: p_flight_schedule_rec.departure_org_id IS NULL OR
931: p_flight_schedule_rec.departure_org_id = FND_API.G_MISS_NUM
932: )
933: THEN
934: FND_MESSAGE.set_name( 'AHL','AHL_UA_DEP_ORG_NULL' );
935: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
942: 'Departure_Org_Id is a mandatory input field and cannot be null for '
943: ||p_flight_schedule_rec.unit_schedule_id
944: );
945: END IF;
946: x_return_status := FND_API.G_RET_STS_ERROR;
947: END IF;
948:
949: -- Arrival Department is a mandatory input field and cannot be null
950: IF (
948:
949: -- Arrival Department is a mandatory input field and cannot be null
950: IF (
951: p_flight_schedule_rec.arrival_dept_id IS NULL OR
952: p_flight_schedule_rec.arrival_dept_id = FND_API.G_MISS_NUM
953: )
954: THEN
955: FND_MESSAGE.set_name( 'AHL','AHL_UA_ARR_DEPT_NULL' );
956: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
963: 'Arrival_Dept_Id is a mandatory input field and cannot be null for '
964: ||p_flight_schedule_rec.unit_schedule_id
965: );
966: END IF;
967: x_return_status := FND_API.G_RET_STS_ERROR;
968: END IF;
969:
970: -- Arrival Organization is a mandatory input field and cannot be null
971: IF (
969:
970: -- Arrival Organization is a mandatory input field and cannot be null
971: IF (
972: p_flight_schedule_rec.arrival_org_id IS NULL OR
973: p_flight_schedule_rec.arrival_org_id = FND_API.G_MISS_NUM
974: )
975: THEN
976: FND_MESSAGE.set_name( 'AHL','AHL_UA_ARR_ORG_NULL' );
977: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
984: 'Arrival_Org_Id is a mandatory input field and cannot be null for '
985: ||p_flight_schedule_rec.unit_schedule_id
986: );
987: END IF;
988: x_return_status := FND_API.G_RET_STS_ERROR;
989: END IF;
990:
991: -- Estimated Departure Time is a mandatory input field and cannot be null
992: IF (
990:
991: -- Estimated Departure Time is a mandatory input field and cannot be null
992: IF (
993: p_flight_schedule_rec.est_departure_time IS NULL OR
994: p_flight_schedule_rec.est_departure_time = FND_API.G_MISS_DATE
995: )
996: THEN
997: FND_MESSAGE.set_name( 'AHL','AHL_UA_EST_DEP_TIME_NULL' );
998: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
1005: 'Est_Departure_Time is a mandatory input field and cannot be null for '
1006: ||p_flight_schedule_rec.unit_schedule_id
1007: );
1008: END IF;
1009: x_return_status := FND_API.G_RET_STS_ERROR;
1010: END IF;
1011:
1012: -- Estimated Arrival Time is a mandatory input field and cannot be null
1013: IF (
1011:
1012: -- Estimated Arrival Time is a mandatory input field and cannot be null
1013: IF (
1014: p_flight_schedule_rec.est_arrival_time IS NULL OR
1015: p_flight_schedule_rec.est_arrival_time = FND_API.G_MISS_DATE
1016: )
1017: THEN
1018: FND_MESSAGE.set_name( 'AHL','AHL_UA_EST_ARR_TIME_NULL' );
1019: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
1026: 'Est_Arrival_Time is a mandatory input field and cannot be null for '
1027: ||p_flight_schedule_rec.unit_schedule_id
1028: );
1029: END IF;
1030: x_return_status := FND_API.G_RET_STS_ERROR;
1031: END IF;
1032:
1033: -- Visit Reschedule Mode is a mandatory input field and cannot be null
1034: IF (
1032:
1033: -- Visit Reschedule Mode is a mandatory input field and cannot be null
1034: IF (
1035: p_flight_schedule_rec.visit_reschedule_mode IS NULL OR
1036: p_flight_schedule_rec.visit_reschedule_mode = FND_API.G_MISS_CHAR
1037: )
1038: THEN
1039: FND_MESSAGE.set_name( 'AHL','AHL_UA_VST_RES_MODE_NULL' );
1040: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
1047: 'Visit_Reschedule_Mode is a mandatory input field and cannot be null for '
1048: ||p_flight_schedule_rec.unit_schedule_id
1049: );
1050: END IF;
1051: x_return_status := FND_API.G_RET_STS_ERROR;
1052: --RAISE FND_API.G_EXC_ERROR;
1053: END IF;
1054:
1055: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1048: ||p_flight_schedule_rec.unit_schedule_id
1049: );
1050: END IF;
1051: x_return_status := FND_API.G_RET_STS_ERROR;
1052: --RAISE FND_API.G_EXC_ERROR;
1053: END IF;
1054:
1055: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1056: fnd_log.string
1094: );
1095: END IF;
1096:
1097: --Initialize x_return_status to success at the start of the procedure
1098: x_return_status := FND_API.G_RET_STS_SUCCESS;
1099:
1100: --Check if update is allowed for the record
1101: l_update_allowed := is_update_allowed(
1102: p_x_flight_schedule_rec.unit_schedule_id,
1126: ||p_x_flight_schedule_rec.unit_schedule_id
1127: );
1128: END IF;
1129: CLOSE get_current_us_csr;
1130: x_return_status := FND_API.G_RET_STS_ERROR;
1131: --RAISE FND_API.G_EXC_ERROR;
1132: END IF;
1133:
1134: CLOSE get_current_us_csr;
1127: );
1128: END IF;
1129: CLOSE get_current_us_csr;
1130: x_return_status := FND_API.G_RET_STS_ERROR;
1131: --RAISE FND_API.G_EXC_ERROR;
1132: END IF;
1133:
1134: CLOSE get_current_us_csr;
1135:
1147: 'Unit config header id cannot be updated for '
1148: ||p_x_flight_schedule_rec.unit_schedule_id
1149: );
1150: END IF;
1151: x_return_status := FND_API.G_RET_STS_ERROR;
1152: --RAISE FND_API.G_EXC_ERROR;
1153: END IF;
1154:
1155: ----------------------------------------------------------------------------------------------------
1148: ||p_x_flight_schedule_rec.unit_schedule_id
1149: );
1150: END IF;
1151: x_return_status := FND_API.G_RET_STS_ERROR;
1152: --RAISE FND_API.G_EXC_ERROR;
1153: END IF;
1154:
1155: ----------------------------------------------------------------------------------------------------
1156: /* --Un comment the code if this is required
1168: 'Flight Number cannot be updated for '
1169: ||p_x_flight_schedule_rec.unit_schedule_id
1170: );
1171: END IF;
1172: x_return_status := FND_API.G_RET_STS_ERROR;
1173: --RAISE FND_API.G_EXC_ERROR;
1174: END IF;
1175:
1176: -- Flight Segment cannot be updated unless user is super user.
1169: ||p_x_flight_schedule_rec.unit_schedule_id
1170: );
1171: END IF;
1172: x_return_status := FND_API.G_RET_STS_ERROR;
1173: --RAISE FND_API.G_EXC_ERROR;
1174: END IF;
1175:
1176: -- Flight Segment cannot be updated unless user is super user.
1177: IF p_x_flight_schedule_rec.segment <> l_current_us_rec.segment
1187: 'Flight Segment cannot be updated for '
1188: ||p_x_flight_schedule_rec.unit_schedule_id
1189: );
1190: END IF;
1191: x_return_status := FND_API.G_RET_STS_ERROR;
1192: --RAISE FND_API.G_EXC_ERROR;
1193: END IF;
1194: ------------------------------------------------------------------------------------------------------
1195: --Un comment the code if this is required */
1188: ||p_x_flight_schedule_rec.unit_schedule_id
1189: );
1190: END IF;
1191: x_return_status := FND_API.G_RET_STS_ERROR;
1192: --RAISE FND_API.G_EXC_ERROR;
1193: END IF;
1194: ------------------------------------------------------------------------------------------------------
1195: --Un comment the code if this is required */
1196:
1195: --Un comment the code if this is required */
1196:
1197: -- Departure department cannot be updated unless user is super user.
1198: IF p_x_flight_schedule_rec.departure_dept_id <> l_current_us_rec.departure_dept_id AND
1199: l_update_allowed = FND_API.G_FALSE
1200: THEN
1201: FND_MESSAGE.set_name( 'AHL', 'AHL_UA_DEP_DEPT_NO_UPDATE' );
1202: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
1203: FND_MSG_PUB.add;
1209: 'Departure deparment cannot be updated for '
1210: ||p_x_flight_schedule_rec.unit_schedule_id
1211: );
1212: END IF;
1213: x_return_status := FND_API.G_RET_STS_ERROR;
1214: --RAISE FND_API.G_EXC_ERROR;
1215: END IF;
1216:
1217: -- Departure Organization cannot be updated unless user is super user.
1210: ||p_x_flight_schedule_rec.unit_schedule_id
1211: );
1212: END IF;
1213: x_return_status := FND_API.G_RET_STS_ERROR;
1214: --RAISE FND_API.G_EXC_ERROR;
1215: END IF;
1216:
1217: -- Departure Organization cannot be updated unless user is super user.
1218: IF p_x_flight_schedule_rec.departure_org_id <> l_current_us_rec.departure_org_id AND
1215: END IF;
1216:
1217: -- Departure Organization cannot be updated unless user is super user.
1218: IF p_x_flight_schedule_rec.departure_org_id <> l_current_us_rec.departure_org_id AND
1219: l_update_allowed = FND_API.G_FALSE
1220: THEN
1221: FND_MESSAGE.set_name( 'AHL', 'AHL_UA_DEP_ORG_NO_UPDATE' );
1222: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
1223: FND_MSG_PUB.add;
1229: 'Departure org cannot be updated for '
1230: ||p_x_flight_schedule_rec.unit_schedule_id
1231: );
1232: END IF;
1233: x_return_status := FND_API.G_RET_STS_ERROR;
1234: --RAISE FND_API.G_EXC_ERROR;
1235: END IF;
1236:
1237: -- Arrival Department cannot be updated unless user is super user.
1230: ||p_x_flight_schedule_rec.unit_schedule_id
1231: );
1232: END IF;
1233: x_return_status := FND_API.G_RET_STS_ERROR;
1234: --RAISE FND_API.G_EXC_ERROR;
1235: END IF;
1236:
1237: -- Arrival Department cannot be updated unless user is super user.
1238: IF p_x_flight_schedule_rec.arrival_dept_id <> l_current_us_rec.arrival_dept_id AND
1235: END IF;
1236:
1237: -- Arrival Department cannot be updated unless user is super user.
1238: IF p_x_flight_schedule_rec.arrival_dept_id <> l_current_us_rec.arrival_dept_id AND
1239: l_update_allowed = FND_API.G_FALSE
1240: THEN
1241: FND_MESSAGE.set_name( 'AHL', 'AHL_UA_ARR_DEP_NO_UPDATE' );
1242: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
1243: FND_MSG_PUB.add;
1249: 'Arrival Department cannot be updated for'
1250: ||p_x_flight_schedule_rec.unit_schedule_id
1251: );
1252: END IF;
1253: x_return_status := FND_API.G_RET_STS_ERROR;
1254: --RAISE FND_API.G_EXC_ERROR;
1255: END IF;
1256:
1257: -- Arrival Organization cannot be updated unless user is super user.
1250: ||p_x_flight_schedule_rec.unit_schedule_id
1251: );
1252: END IF;
1253: x_return_status := FND_API.G_RET_STS_ERROR;
1254: --RAISE FND_API.G_EXC_ERROR;
1255: END IF;
1256:
1257: -- Arrival Organization cannot be updated unless user is super user.
1258: IF p_x_flight_schedule_rec.arrival_org_id <> l_current_us_rec.arrival_org_id AND
1255: END IF;
1256:
1257: -- Arrival Organization cannot be updated unless user is super user.
1258: IF p_x_flight_schedule_rec.arrival_org_id <> l_current_us_rec.arrival_org_id AND
1259: l_update_allowed = FND_API.G_FALSE
1260: THEN
1261: FND_MESSAGE.set_name( 'AHL', 'AHL_UA_ARR_ORG_NO_UPDATE' );
1262: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
1263: FND_MSG_PUB.add;
1269: 'Arrival org cannot be updated for '
1270: ||p_x_flight_schedule_rec.unit_schedule_id
1271: );
1272: END IF;
1273: x_return_status := FND_API.G_RET_STS_ERROR;
1274: --RAISE FND_API.G_EXC_ERROR;
1275: END IF;
1276:
1277: -- Estimated Departure Time cannot be updated unless user is super user.
1270: ||p_x_flight_schedule_rec.unit_schedule_id
1271: );
1272: END IF;
1273: x_return_status := FND_API.G_RET_STS_ERROR;
1274: --RAISE FND_API.G_EXC_ERROR;
1275: END IF;
1276:
1277: -- Estimated Departure Time cannot be updated unless user is super user.
1278: IF p_x_flight_schedule_rec.est_departure_time <> l_current_us_rec.est_departure_time AND
1275: END IF;
1276:
1277: -- Estimated Departure Time cannot be updated unless user is super user.
1278: IF p_x_flight_schedule_rec.est_departure_time <> l_current_us_rec.est_departure_time AND
1279: l_update_allowed = FND_API.G_FALSE
1280: THEN
1281: FND_MESSAGE.set_name( 'AHL', 'AHL_UA_EST_DEP_NO_UPDATE' );
1282: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
1283: FND_MSG_PUB.add;
1289: 'Estimated Departure time cannot be updated for '
1290: ||p_x_flight_schedule_rec.unit_schedule_id
1291: );
1292: END IF;
1293: x_return_status := FND_API.G_RET_STS_ERROR;
1294: --RAISE FND_API.G_EXC_ERROR;
1295: END IF;
1296:
1297: -- Estimated Arrival Time cannot be updated unless user is super user.
1290: ||p_x_flight_schedule_rec.unit_schedule_id
1291: );
1292: END IF;
1293: x_return_status := FND_API.G_RET_STS_ERROR;
1294: --RAISE FND_API.G_EXC_ERROR;
1295: END IF;
1296:
1297: -- Estimated Arrival Time cannot be updated unless user is super user.
1298: IF p_x_flight_schedule_rec.est_arrival_time <> l_current_us_rec.est_arrival_time AND
1295: END IF;
1296:
1297: -- Estimated Arrival Time cannot be updated unless user is super user.
1298: IF p_x_flight_schedule_rec.est_arrival_time <> l_current_us_rec.est_arrival_time AND
1299: l_update_allowed = FND_API.G_FALSE
1300: THEN
1301: FND_MESSAGE.set_name( 'AHL', 'AHL_UA_EST_ARR_NO_UPDATE' );
1302: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
1303: FND_MSG_PUB.add;
1309: 'Estimated Arrival time cannot be updated for '
1310: ||p_x_flight_schedule_rec.unit_schedule_id
1311: );
1312: END IF;
1313: x_return_status := FND_API.G_RET_STS_ERROR;
1314: --RAISE FND_API.G_EXC_ERROR;
1315: END IF;
1316:
1317: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1310: ||p_x_flight_schedule_rec.unit_schedule_id
1311: );
1312: END IF;
1313: x_return_status := FND_API.G_RET_STS_ERROR;
1314: --RAISE FND_API.G_EXC_ERROR;
1315: END IF;
1316:
1317: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1318: fnd_log.string
1420: END IF;
1421:
1422: -- Set return status to success.
1423:
1424: x_return_status := FND_API.G_RET_STS_SUCCESS;
1425:
1426: l_record_identifier := get_record_identifier(
1427: p_flight_schedule_rec => p_x_flight_schedule_rec
1428: );
1440: IF ( l_curr_act_dates_rec.actual_departure_time IS NOT NULL OR
1441: l_curr_act_dates_rec.actual_arrival_time IS NOT NULL )
1442: AND is_delete_allowed(p_unit_schedule_id => p_x_flight_schedule_rec.unit_schedule_id,
1443: p_is_super_user => is_super_user
1444: ) = FND_API.G_FALSE
1445: THEN
1446: FND_MESSAGE.set_name( 'AHL', 'AHL_UA_ACT_NO_DEL' );
1447: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
1448: FND_MSG_PUB.add;
1454: 'Actual times are entered for '||p_x_flight_schedule_rec.unit_schedule_id
1455: ||'so delete not allowed'
1456: );
1457: END IF;
1458: x_return_status := FND_API.G_RET_STS_ERROR;
1459: END IF;
1460:
1461: ELSE
1462: --Check for duplicate records.
1482: 'Duplicates flight schedules found for ,'
1483: ||p_x_flight_schedule_rec.unit_schedule_id
1484: );
1485: END IF;
1486: x_return_status := FND_API.G_RET_STS_ERROR;
1487: RAISE FND_API.G_EXC_ERROR;
1488: END IF;
1489:
1490: --Check if Actual Arrival is entered without departure.
1483: ||p_x_flight_schedule_rec.unit_schedule_id
1484: );
1485: END IF;
1486: x_return_status := FND_API.G_RET_STS_ERROR;
1487: RAISE FND_API.G_EXC_ERROR;
1488: END IF;
1489:
1490: --Check if Actual Arrival is entered without departure.
1491: IF (
1489:
1490: --Check if Actual Arrival is entered without departure.
1491: IF (
1492: p_x_flight_schedule_rec.ACTUAL_ARRIVAL_TIME IS NOT NULL AND
1493: p_x_flight_schedule_rec.ACTUAL_ARRIVAL_TIME <> FND_API.G_MISS_DATE
1494: )
1495: AND
1496: (
1497: p_x_flight_schedule_rec.ACTUAL_DEPARTURE_TIME IS NULL OR
1494: )
1495: AND
1496: (
1497: p_x_flight_schedule_rec.ACTUAL_DEPARTURE_TIME IS NULL OR
1498: p_x_flight_schedule_rec.ACTUAL_DEPARTURE_TIME = FND_API.G_MISS_DATE
1499: )
1500: THEN
1501: FND_MESSAGE.set_name( 'AHL', 'AHL_UA_ARR_WO_DEP' );
1502: FND_MESSAGE.set_token( 'RECORD', l_record_identifier );
1508: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1509: 'Actuals Arrival time cannot be entered until departure time is entered '||p_x_flight_schedule_rec.unit_schedule_id
1510: );
1511: END IF;
1512: x_return_status := FND_API.G_RET_STS_ERROR;
1513: END IF;
1514:
1515: --Check if actuals are greater than sysdate.
1516: IF (
1514:
1515: --Check if actuals are greater than sysdate.
1516: IF (
1517: p_x_flight_schedule_rec.ACTUAL_DEPARTURE_TIME IS NOT NULL AND
1518: p_x_flight_schedule_rec.ACTUAL_DEPARTURE_TIME <> FND_API.G_MISS_DATE AND
1519: p_x_flight_schedule_rec.ACTUAL_DEPARTURE_TIME > SYSDATE
1520: )
1521: OR
1522: (
1520: )
1521: OR
1522: (
1523: p_x_flight_schedule_rec.ACTUAL_ARRIVAL_TIME IS NOT NULL AND
1524: p_x_flight_schedule_rec.ACTUAL_ARRIVAL_TIME <> FND_API.G_MISS_DATE AND
1525: p_x_flight_schedule_rec.ACTUAL_ARRIVAL_TIME > SYSDATE
1526: )
1527: THEN
1528: FND_MESSAGE.set_name( 'AHL', 'AHL_UA_ACT_GT_SYSDATE' );
1535: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1536: 'Actuals cannot be greater than sysdate for '||p_x_flight_schedule_rec.unit_schedule_id
1537: );
1538: END IF;
1539: x_return_status := FND_API.G_RET_STS_ERROR;
1540: END IF;
1541:
1542: --Validate if arrival dates are greater than departure dates.
1543: IF (
1541:
1542: --Validate if arrival dates are greater than departure dates.
1543: IF (
1544: p_x_flight_schedule_rec.EST_DEPARTURE_TIME IS NOT NULL AND
1545: p_x_flight_schedule_rec.EST_DEPARTURE_TIME <> FND_API.G_MISS_DATE
1546: )
1547: AND
1548: p_x_flight_schedule_rec.EST_DEPARTURE_TIME >= p_x_flight_schedule_rec.EST_ARRIVAL_TIME
1549: THEN
1558: 'Estimated Departure cannot be greater than arrival for '
1559: ||p_x_flight_schedule_rec.unit_schedule_id
1560: );
1561: END IF;
1562: x_return_status := FND_API.G_RET_STS_ERROR;
1563: END IF;
1564:
1565: --Validate if arrival dates are greater than departure dates.
1566: IF (
1564:
1565: --Validate if arrival dates are greater than departure dates.
1566: IF (
1567: p_x_flight_schedule_rec.ACTUAL_DEPARTURE_TIME IS NOT NULL AND
1568: p_x_flight_schedule_rec.ACTUAL_DEPARTURE_TIME <> FND_API.G_MISS_DATE
1569: )
1570: AND
1571: p_x_flight_schedule_rec.ACTUAL_DEPARTURE_TIME >= p_x_flight_schedule_rec.ACTUAL_ARRIVAL_TIME
1572: THEN
1581: 'Actual Departure cannot be greater than arrival for '
1582: ||p_x_flight_schedule_rec.unit_schedule_id
1583: );
1584: END IF;
1585: x_return_status := FND_API.G_RET_STS_ERROR;
1586: END IF;
1587:
1588:
1589: IF (
1587:
1588:
1589: IF (
1590: p_x_flight_schedule_rec.actual_departure_time IS NOT NULL AND
1591: p_x_flight_schedule_rec.actual_departure_time <> FND_API.G_MISS_DATE
1592: )
1593: OR
1594: (
1595: p_x_flight_schedule_rec.actual_arrival_time IS NOT NULL AND
1592: )
1593: OR
1594: (
1595: p_x_flight_schedule_rec.actual_arrival_time IS NOT NULL AND
1596: p_x_flight_schedule_rec.actual_arrival_time <> FND_API.G_MISS_DATE
1597: )
1598: THEN
1599: --If create then use unit_config_header_id to fetch actual times
1600: -- Added for bug 4071579
1635: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1636: 'previous actuals are not entered for '||p_x_flight_schedule_rec.unit_schedule_id
1637: );
1638: END IF;
1639: x_return_status := FND_API.G_RET_STS_ERROR;
1640: END IF;
1641: END IF;
1642:
1643: -- code to verify if estimated times are updated to a value less than
1663: 'estimated arrival time violates another flight'||
1664: 'schedules estimated arrival time for '||p_x_flight_schedule_rec.unit_schedule_id
1665: );
1666: END IF;
1667: x_return_status := FND_API.G_RET_STS_ERROR;
1668: END IF;
1669:
1670: -- MANESING::Auto Visit Forecasting Project, 17-Oct-2011, validate if spaces belongs to respective departments
1671: -- Departure Space
1669:
1670: -- MANESING::Auto Visit Forecasting Project, 17-Oct-2011, validate if spaces belongs to respective departments
1671: -- Departure Space
1672: IF (p_x_flight_schedule_rec.departure_space_id IS NOT NULL AND
1673: p_x_flight_schedule_rec.departure_space_id <> FND_API.G_MISS_NUM) THEN
1674:
1675: OPEN validate_space_id_csr (p_x_flight_schedule_rec.departure_space_id,
1676: p_x_flight_schedule_rec.departure_org_id,
1677: p_x_flight_schedule_rec.departure_dept_id);
1676: p_x_flight_schedule_rec.departure_org_id,
1677: p_x_flight_schedule_rec.departure_dept_id);
1678: FETCH validate_space_id_csr INTO l_dummy;
1679: IF (validate_space_id_csr%NOTFOUND) THEN
1680: x_return_status := FND_API.G_RET_STS_ERROR;
1681:
1682: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_UA_INV_DEP_SPACE');
1683: FND_MESSAGE.set_token('RECORD', l_record_identifier);
1684: FND_MSG_PUB.ADD;
1693: END IF;
1694:
1695: -- Arrival Space
1696: IF (p_x_flight_schedule_rec.arrival_space_id IS NOT NULL AND
1697: p_x_flight_schedule_rec.arrival_space_id <> FND_API.G_MISS_NUM) THEN
1698:
1699: OPEN validate_space_id_csr (p_x_flight_schedule_rec.arrival_space_id,
1700: p_x_flight_schedule_rec.arrival_org_id,
1701: p_x_flight_schedule_rec.arrival_dept_id);
1700: p_x_flight_schedule_rec.arrival_org_id,
1701: p_x_flight_schedule_rec.arrival_dept_id);
1702: FETCH validate_space_id_csr INTO l_dummy;
1703: IF (validate_space_id_csr%NOTFOUND) THEN
1704: x_return_status := FND_API.G_RET_STS_ERROR;
1705:
1706: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_UA_INV_ARR_SPACE');
1707: FND_MESSAGE.set_token('RECORD', l_record_identifier);
1708: FND_MSG_PUB.ADD;
1804: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
1805: END IF;
1806:
1807: -- Initialize Procedure return status to success
1808: x_return_status := FND_API.G_RET_STS_SUCCESS;
1809:
1810: OPEN get_flight_sch_dtl_csr (p_flight_schedule_rec.unit_schedule_id);
1811: FETCH get_flight_sch_dtl_csr INTO l_old_flight_sch_rec;
1812: CLOSE get_flight_sch_dtl_csr;
1845:
1846: AHL_AVF_OPER_VSTS_PVT.Launch_Visit_Dur_Notification(
1847: p_unit_schedule_id => p_flight_schedule_rec.preceding_us_id,
1848: p_visit_ids => to_char(l_visit_rec.visit_id),
1849: p_commit => FND_API.G_FALSE,
1850: x_item_key => l_item_key,
1851: x_return_status => x_return_status
1852: );
1853:
1895:
1896: AHL_AVF_OPER_VSTS_PVT.Launch_Visit_Dur_Notification(
1897: p_unit_schedule_id => p_flight_schedule_rec.unit_schedule_id,
1898: p_visit_ids => to_char(l_visit_rec.visit_id),
1899: p_commit => FND_API.G_FALSE,
1900: x_item_key => l_item_key,
1901: x_return_status => x_return_status
1902: );
1903:
1960: LOOP
1961: --Get preceeding us id.
1962: l_equal_arr_count := 0;
1963: l_count := 1;
1964: IF G_USE_ACTUALS = FND_API.G_TRUE THEN
1965: OPEN get_pre_us_id_act(p_x_flight_schedules_tbl(i).unit_config_header_id);
1966: LOOP
1967: FETCH get_pre_us_id_act INTO l_pre_us_tbl(l_count).unit_schedule_id,
1968: l_pre_us_tbl(l_count).arrival_time;
2040:
2041: BEGIN
2042: -- Initialize the return status to success.
2043:
2044: x_return_status := FND_API.G_RET_STS_SUCCESS;
2045:
2046: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2047: fnd_log.string
2048: (
2087: THEN
2088: l_visit_tbl(l_visit_count).PLAN_END_DATE := l_flight_visit.close_date_time + l_time_diff;
2089: ELSE
2090: -- calculate the close date time.
2091: l_visit_tbl(l_visit_count).PLAN_END_DATE := AHL_VWP_TIMES_PVT.GET_VISIT_END_TIME(l_flight_visit.visit_id , FND_API.G_FALSE) + l_time_diff;
2092: END IF;
2093:
2094: l_visit_tbl(l_visit_count).item_instance_id := l_flight_visit.item_instance_id;
2095: l_visit_tbl(l_visit_count).unit_schedule_id := l_flight_visit.unit_schedule_id;
2129: CLOSE get_flight_visit;
2130:
2131: AHL_VWP_VISITS_PVT.Process_Visit (
2132: p_api_version => 1.0,
2133: p_init_msg_list => FND_API.g_false,
2134: p_commit => FND_API.g_false,
2135: p_validation_level => FND_API.g_valid_level_full,
2136: p_module_type => 'JSP',
2137: p_x_Visit_tbl => l_visit_tbl,
2130:
2131: AHL_VWP_VISITS_PVT.Process_Visit (
2132: p_api_version => 1.0,
2133: p_init_msg_list => FND_API.g_false,
2134: p_commit => FND_API.g_false,
2135: p_validation_level => FND_API.g_valid_level_full,
2136: p_module_type => 'JSP',
2137: p_x_Visit_tbl => l_visit_tbl,
2138: x_return_status => x_return_status,
2131: AHL_VWP_VISITS_PVT.Process_Visit (
2132: p_api_version => 1.0,
2133: p_init_msg_list => FND_API.g_false,
2134: p_commit => FND_API.g_false,
2135: p_validation_level => FND_API.g_valid_level_full,
2136: p_module_type => 'JSP',
2137: p_x_Visit_tbl => l_visit_tbl,
2138: x_return_status => x_return_status,
2139: x_msg_count => l_msg_count,
2141: );
2142:
2143: -- Bug # 9075539 -- start
2144: -- If any severe error occurs, then, abort API.
2145: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2146: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2147: fnd_log.string
2148: (
2149: fnd_log.level_exception,
2151: 'AHL_VWP_VISITS_PVT.Process_Visit returned with expected error..'
2152: );
2153: END IF;
2154: -- fix for bug 13866936
2155: -- RAISE FND_API.G_EXC_ERROR;
2156: x_return_status := 'V';-- status assigned to force flight schedule updates
2157: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2158: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2159: fnd_log.string
2153: END IF;
2154: -- fix for bug 13866936
2155: -- RAISE FND_API.G_EXC_ERROR;
2156: x_return_status := 'V';-- status assigned to force flight schedule updates
2157: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2158: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2159: fnd_log.string
2160: (
2161: fnd_log.level_exception,
2163: 'AHL_VWP_VISITS_PVT.Process_Visit returned with un-expected error..'
2164: );
2165: END IF;
2166: -- fix for bug 13866936
2167: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2168: x_return_status := 'V';-- status assigned to force flight schedule updates
2169: ELSIF x_return_status = 'V' THEN
2170: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2171: fnd_log.string
2188: 'At the end of '||l_api_name
2189: );
2190: END IF;
2191: EXCEPTION
2192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2194: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2195: p_count => l_msg_count,
2196: p_data => l_msg_data);
2189: );
2190: END IF;
2191: EXCEPTION
2192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2194: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2195: p_count => l_msg_count,
2196: p_data => l_msg_data);
2197:
2190: END IF;
2191: EXCEPTION
2192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2194: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2195: p_count => l_msg_count,
2196: p_data => l_msg_data);
2197:
2198: WHEN FND_API.G_EXC_ERROR THEN
2194: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2195: p_count => l_msg_count,
2196: p_data => l_msg_data);
2197:
2198: WHEN FND_API.G_EXC_ERROR THEN
2199: x_return_status := FND_API.G_RET_STS_ERROR;
2200: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2201: p_count => l_msg_count,
2202: p_data => l_msg_data);
2195: p_count => l_msg_count,
2196: p_data => l_msg_data);
2197:
2198: WHEN FND_API.G_EXC_ERROR THEN
2199: x_return_status := FND_API.G_RET_STS_ERROR;
2200: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2201: p_count => l_msg_count,
2202: p_data => l_msg_data);
2203:
2196: p_data => l_msg_data);
2197:
2198: WHEN FND_API.G_EXC_ERROR THEN
2199: x_return_status := FND_API.G_RET_STS_ERROR;
2200: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2201: p_count => l_msg_count,
2202: p_data => l_msg_data);
2203:
2204: WHEN OTHERS THEN
2201: p_count => l_msg_count,
2202: p_data => l_msg_data);
2203:
2204: WHEN OTHERS THEN
2205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2206: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2207: THEN
2208: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2209: p_procedure_name => l_api_name,
2213: FND_MSG_PUB.count_and_get
2214: (
2215: p_count => l_msg_count,
2216: p_data => l_msg_data,
2217: p_encoded => FND_API.G_FALSE
2218: );
2219:
2220: END Synchronize_Visit_Details;
2221:
2233: l_autovisit_process_status VARCHAR2(1);
2234:
2235: BEGIN
2236: -- Initialize return status to success initially
2237: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2238:
2239: FOR i IN p_x_flight_schedules_tbl.FIRST..p_x_flight_schedules_tbl.LAST
2240: LOOP
2241: IF p_x_flight_schedules_tbl(i).DML_OPERATION = 'C'
2283: x_return_status
2284: );
2285:
2286: -- If any severe error occurs, then, abort API.
2287: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2288: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2289: fnd_log.string
2290: (
2291: fnd_log.level_exception,
2292: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
2293: 'convert_values_to_ids returned with expected error..'
2294: );
2295: END IF;
2296: RAISE FND_API.G_EXC_ERROR;
2297: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2298: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2299: fnd_log.string
2300: (
2293: 'convert_values_to_ids returned with expected error..'
2294: );
2295: END IF;
2296: RAISE FND_API.G_EXC_ERROR;
2297: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2298: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2299: fnd_log.string
2300: (
2301: fnd_log.level_exception,
2302: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
2303: 'convert_values_to_ids returned with un-expected error..'
2304: );
2305: END IF;
2306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2307: END IF;-- return status
2308: END IF;-- module type
2309:
2310:
2323: x_return_status
2324: );
2325:
2326: -- If any severe error occurs, then, abort API.
2327: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2328: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2329: fnd_log.string
2330: (
2331: fnd_log.level_exception,
2332: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
2333: 'validate_mandatory_fields returned with expected error..'
2334: );
2335: END IF;
2336: RAISE FND_API.G_EXC_ERROR;
2337: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2338: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2339: fnd_log.string
2340: (
2333: 'validate_mandatory_fields returned with expected error..'
2334: );
2335: END IF;
2336: RAISE FND_API.G_EXC_ERROR;
2337: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2338: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2339: fnd_log.string
2340: (
2341: fnd_log.level_exception,
2342: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
2343: 'validate_mandatory_fields returned with un-expected error..'
2344: );
2345: END IF;
2346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2347: END IF;
2348:
2349: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2350: fnd_log.string
2361: x_return_status
2362: );
2363:
2364: -- If any severe error occurs, then, abort API.
2365: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2366: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2367: fnd_log.string
2368: (
2369: fnd_log.level_exception,
2370: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
2371: 'validate_record returned with expected error..'
2372: );
2373: END IF;
2374: RAISE FND_API.G_EXC_ERROR;
2375: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2376: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2377: fnd_log.string
2378: (
2371: 'validate_record returned with expected error..'
2372: );
2373: END IF;
2374: RAISE FND_API.G_EXC_ERROR;
2375: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2376: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2377: fnd_log.string
2378: (
2379: fnd_log.level_exception,
2380: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
2381: 'validate_record returned with un-expected error..'
2382: );
2383: END IF;
2384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2385: END IF;
2386:
2387: /* MANESING::Auto Visit Forecasting Project, 17-Oct-2011
2388: * When a Flight Schedule record is Created, autovisit process status is set to Created.
2592: l_autovisit_process_status VARCHAR2(1);
2593:
2594: BEGIN
2595: -- Initialize return status to success initially
2596: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2597:
2598: -- Validate all inputs to the API
2599: FOR i IN p_x_flight_schedules_tbl.FIRST..p_x_flight_schedules_tbl.LAST
2600: LOOP
2642: x_return_status
2643: );
2644:
2645: -- If any severe error occurs, then, abort API.
2646: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2647: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2648: fnd_log.string
2649: (
2650: fnd_log.level_exception,
2651: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
2652: 'convert_values_to_ids returned with expected error..'
2653: );
2654: END IF;
2655: RAISE FND_API.G_EXC_ERROR;
2656: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2657: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2658: fnd_log.string
2659: (
2652: 'convert_values_to_ids returned with expected error..'
2653: );
2654: END IF;
2655: RAISE FND_API.G_EXC_ERROR;
2656: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2657: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2658: fnd_log.string
2659: (
2660: fnd_log.level_exception,
2661: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
2662: 'convert_values_to_ids returned with un-expected error..'
2663: );
2664: END IF;
2665: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2666: END IF;-- return status
2667: END IF;-- module type
2668:
2669: -- Default missing and unchanged attributes.
2699: x_return_status
2700: );
2701:
2702: -- If any severe error occurs, then, abort API.
2703: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2704: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2705: fnd_log.string
2706: (
2707: fnd_log.level_exception,
2708: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
2709: 'validate_mandatory_fields returned with expected error..'
2710: );
2711: END IF;
2712: RAISE FND_API.G_EXC_ERROR;
2713: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2714: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2715: fnd_log.string
2716: (
2709: 'validate_mandatory_fields returned with expected error..'
2710: );
2711: END IF;
2712: RAISE FND_API.G_EXC_ERROR;
2713: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2714: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2715: fnd_log.string
2716: (
2717: fnd_log.level_exception,
2718: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
2719: 'validate_mandatory_fields returned with un-expected error..'
2720: );
2721: END IF;
2722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2723: END IF; -- return status
2724:
2725:
2726: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2739: x_return_status
2740: );
2741:
2742: -- If any severe error occurs, then, abort API.
2743: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2744: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2745: fnd_log.string
2746: (
2747: fnd_log.level_exception,
2748: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
2749: 'validate_update returned with expected error..'
2750: );
2751: END IF;
2752: RAISE FND_API.G_EXC_ERROR;
2753: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2754: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2755: fnd_log.string
2756: (
2749: 'validate_update returned with expected error..'
2750: );
2751: END IF;
2752: RAISE FND_API.G_EXC_ERROR;
2753: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2754: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2755: fnd_log.string
2756: (
2757: fnd_log.level_exception,
2758: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
2759: 'validate_update returned with un-expected error..'
2760: );
2761: END IF;
2762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2763: END IF;
2764:
2765: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2766: fnd_log.string
2777: x_return_status
2778: );
2779:
2780: -- If any severe error occurs, then, abort API.
2781: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2782: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2783: fnd_log.string
2784: (
2785: fnd_log.level_exception,
2786: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
2787: 'validate_record returned with expected error..'
2788: );
2789: END IF;
2790: RAISE FND_API.G_EXC_ERROR;
2791: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2792: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2793: fnd_log.string
2794: (
2787: 'validate_record returned with expected error..'
2788: );
2789: END IF;
2790: RAISE FND_API.G_EXC_ERROR;
2791: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2792: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2793: fnd_log.string
2794: (
2795: fnd_log.level_exception,
2796: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
2797: 'validate_record returned with un-expected error..'
2798: );
2799: END IF;
2800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2801: END IF;
2802:
2803: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2804: fnd_log.string
2829: IF (l_log_statement >= l_log_current_level) THEN
2830: FND_LOG.string(l_log_statement, l_full_name, 'After call to Invoke_Visit_Dur_Notification API, Return Status: ' || x_return_status);
2831: END IF;
2832:
2833: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2834:
2835: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2836: RAISE FND_API.G_EXC_ERROR;
2837: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2831: END IF;
2832:
2833: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2834:
2835: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2836: RAISE FND_API.G_EXC_ERROR;
2837: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2839: END IF;
2832:
2833: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2834:
2835: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2836: RAISE FND_API.G_EXC_ERROR;
2837: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2839: END IF;
2840:
2833: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2834:
2835: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2836: RAISE FND_API.G_EXC_ERROR;
2837: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2839: END IF;
2840:
2841: END IF;
2834:
2835: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2836: RAISE FND_API.G_EXC_ERROR;
2837: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2839: END IF;
2840:
2841: END IF;
2842: END IF;
2980: p_visit_sync_rec => l_visit_sync_rec
2981: );
2982:
2983: -- If any severe error occurs, then, abort API.
2984: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2985: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2986: fnd_log.string
2987: (
2988: fnd_log.level_exception,
2989: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
2990: 'Synchronize_Visit_Details returned with expected error..'
2991: );
2992: END IF;
2993: RAISE FND_API.G_EXC_ERROR;
2994: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2995: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2996: fnd_log.string
2997: (
2990: 'Synchronize_Visit_Details returned with expected error..'
2991: );
2992: END IF;
2993: RAISE FND_API.G_EXC_ERROR;
2994: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2995: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2996: fnd_log.string
2997: (
2998: fnd_log.level_exception,
2999: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
3000: 'Synchronize_Visit_Details returned with un-expected error..'
3001: );
3002: END IF;
3003: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3004: END IF; -- return status check
3005: END IF; -- l_sync_flag
3006: END IF; -- DML Operation check
3007:
3097:
3098: BEGIN
3099:
3100: -- Initialize return status to success initially
3101: x_return_status:=FND_API.G_RET_STS_SUCCESS;
3102:
3103: -- Validate all inputs to the API
3104: FOR i IN p_x_flight_schedules_tbl.FIRST..p_x_flight_schedules_tbl.LAST
3105: LOOP
3137: x_return_status
3138: );
3139:
3140: -- If any severe error occurs, then, abort API.
3141: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3142: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
3143: fnd_log.string
3144: (
3145: fnd_log.level_exception,
3146: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
3147: 'validate_record returned with expected error..'
3148: );
3149: END IF;
3150: RAISE FND_API.G_EXC_ERROR;
3151: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3152: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
3153: fnd_log.string
3154: (
3147: 'validate_record returned with expected error..'
3148: );
3149: END IF;
3150: RAISE FND_API.G_EXC_ERROR;
3151: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3152: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
3153: fnd_log.string
3154: (
3155: fnd_log.level_exception,
3156: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
3157: 'validate_record returned with un-expected error..'
3158: );
3159: END IF;
3160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3161: END IF;
3162:
3163: -- Delete the record
3164: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3188: x_return_status
3189: );
3190:
3191: -- If any severe error occurs, then, abort API.
3192: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3193: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
3194: fnd_log.string
3195: (
3196: fnd_log.level_exception,
3197: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
3198: 'AHL_VWP_VISITS_PVT.Process_Visit returned with expected error..'
3199: );
3200: END IF;
3201: RAISE FND_API.G_EXC_ERROR;
3202: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3203: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
3204: fnd_log.string
3205: (
3198: 'AHL_VWP_VISITS_PVT.Process_Visit returned with expected error..'
3199: );
3200: END IF;
3201: RAISE FND_API.G_EXC_ERROR;
3202: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3203: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
3204: fnd_log.string
3205: (
3206: fnd_log.level_exception,
3207: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
3208: 'validate_record returned with un-expected error..'
3209: );
3210: END IF;
3211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3212: END IF;
3213:
3214: -- Bug # 9075539 -- start
3215: -- When a flight schedule is deleted, the associated Visits will be canceled
3239:
3240: -- delete the transit visits found
3241: AHL_VWP_VISITS_PVT.Process_Visit (
3242: p_api_version => 1.0,
3243: p_init_msg_list => FND_API.g_false,
3244: p_commit => FND_API.g_false,
3245: p_validation_level => FND_API.g_valid_level_full,
3246: p_module_type => 'JSP',
3247: p_x_Visit_tbl => l_visit_tbl,
3240: -- delete the transit visits found
3241: AHL_VWP_VISITS_PVT.Process_Visit (
3242: p_api_version => 1.0,
3243: p_init_msg_list => FND_API.g_false,
3244: p_commit => FND_API.g_false,
3245: p_validation_level => FND_API.g_valid_level_full,
3246: p_module_type => 'JSP',
3247: p_x_Visit_tbl => l_visit_tbl,
3248: x_return_status => x_return_status,
3241: AHL_VWP_VISITS_PVT.Process_Visit (
3242: p_api_version => 1.0,
3243: p_init_msg_list => FND_API.g_false,
3244: p_commit => FND_API.g_false,
3245: p_validation_level => FND_API.g_valid_level_full,
3246: p_module_type => 'JSP',
3247: p_x_Visit_tbl => l_visit_tbl,
3248: x_return_status => x_return_status,
3249: x_msg_count => l_msg_count,
3250: x_msg_data => l_msg_data
3251: );
3252:
3253: -- If any severe error occurs, then, abort API.
3254: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3255: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
3256: fnd_log.string
3257: (
3258: fnd_log.level_exception,
3260: 'AHL_VWP_VISITS_PVT.Process_Visit returned with expected error..'
3261: );
3262: END IF;
3263: -- fix for bug 13866936
3264: -- RAISE FND_API.G_EXC_ERROR;
3265: x_return_status := 'V';-- status assigned to force flight schedule updates
3266: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3267: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
3268: fnd_log.string
3262: END IF;
3263: -- fix for bug 13866936
3264: -- RAISE FND_API.G_EXC_ERROR;
3265: x_return_status := 'V';-- status assigned to force flight schedule updates
3266: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3267: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
3268: fnd_log.string
3269: (
3270: fnd_log.level_exception,
3272: 'AHL_VWP_VISITS_PVT.Process_Visit returned with un-expected error..'
3273: );
3274: END IF;
3275: -- fix for bug 13866936
3276: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3277: x_return_status := 'V';-- status assigned to force flight schedule updates
3278: ELSIF x_return_status = 'V' THEN
3279: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
3280: fnd_log.string
3318: -- Procedure for creating/updating/deleting Flight Schedules.
3319: -----------------------------------------------------------------------------------------------------
3320: PROCEDURE Process_Flight_Schedules(
3321: p_api_version IN NUMBER :=1.0,
3322: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
3323: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3324: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3325: p_default IN VARCHAR2 :=FND_API.G_FALSE,
3326: p_module_type IN VARCHAR2 :=NULL,
3319: -----------------------------------------------------------------------------------------------------
3320: PROCEDURE Process_Flight_Schedules(
3321: p_api_version IN NUMBER :=1.0,
3322: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
3323: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3324: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3325: p_default IN VARCHAR2 :=FND_API.G_FALSE,
3326: p_module_type IN VARCHAR2 :=NULL,
3327: x_return_status OUT NOCOPY VARCHAR2,
3320: PROCEDURE Process_Flight_Schedules(
3321: p_api_version IN NUMBER :=1.0,
3322: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
3323: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3324: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3325: p_default IN VARCHAR2 :=FND_API.G_FALSE,
3326: p_module_type IN VARCHAR2 :=NULL,
3327: x_return_status OUT NOCOPY VARCHAR2,
3328: x_msg_count OUT NOCOPY NUMBER,
3321: p_api_version IN NUMBER :=1.0,
3322: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
3323: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3324: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3325: p_default IN VARCHAR2 :=FND_API.G_FALSE,
3326: p_module_type IN VARCHAR2 :=NULL,
3327: x_return_status OUT NOCOPY VARCHAR2,
3328: x_msg_count OUT NOCOPY NUMBER,
3329: x_msg_data OUT NOCOPY VARCHAR2,
3347:
3348: SAVEPOINT process_flight_schedules_pvt;
3349:
3350: -- Initialize return status to success initially
3351: x_return_status:=FND_API.G_RET_STS_SUCCESS;
3352:
3353: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3354: p_api_version,
3355: l_api_name,G_PKG_NAME)
3349:
3350: -- Initialize return status to success initially
3351: x_return_status:=FND_API.G_RET_STS_SUCCESS;
3352:
3353: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3354: p_api_version,
3355: l_api_name,G_PKG_NAME)
3356: THEN
3357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3353: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3354: p_api_version,
3355: l_api_name,G_PKG_NAME)
3356: THEN
3357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3358: END IF;
3359:
3360: -- Initialize message list if p_init_msg_list is set to TRUE.
3361: IF FND_API.to_boolean(p_init_msg_list) THEN
3357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3358: END IF;
3359:
3360: -- Initialize message list if p_init_msg_list is set to TRUE.
3361: IF FND_API.to_boolean(p_init_msg_list) THEN
3362: FND_MSG_PUB.initialize;
3363: END IF;
3364:
3365: --Local procedure for Deleting Flight Schedules
3413: 'Done DML , committing the work'
3414: );
3415: END IF;
3416:
3417: IF FND_API.TO_BOOLEAN(p_commit) THEN
3418: COMMIT;
3419: END IF;
3420:
3421: -- Bug # 9075539 - start
3421: -- Bug # 9075539 - start
3422: IF l_return_status = 'V'
3423: THEN
3424: x_return_status := 'V';
3425: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3426: p_count => x_msg_count,
3427: p_data => X_msg_data);
3428: END IF;
3429: -- Bug # 9075539 - end
3436: 'At the end of Process_Flight_Schedules'
3437: );
3438: END IF;
3439: EXCEPTION
3440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3441: ROLLBACK TO process_flight_schedules_pvt;
3442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3443: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3444: p_count => x_msg_count,
3438: END IF;
3439: EXCEPTION
3440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3441: ROLLBACK TO process_flight_schedules_pvt;
3442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3443: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3444: p_count => x_msg_count,
3445: p_data => x_msg_data);
3446:
3439: EXCEPTION
3440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3441: ROLLBACK TO process_flight_schedules_pvt;
3442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3443: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3444: p_count => x_msg_count,
3445: p_data => x_msg_data);
3446:
3447: WHEN FND_API.G_EXC_ERROR THEN
3443: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3444: p_count => x_msg_count,
3445: p_data => x_msg_data);
3446:
3447: WHEN FND_API.G_EXC_ERROR THEN
3448: ROLLBACK TO process_flight_schedules_pvt;
3449: x_return_status := FND_API.G_RET_STS_ERROR;
3450: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3451: p_count => x_msg_count,
3445: p_data => x_msg_data);
3446:
3447: WHEN FND_API.G_EXC_ERROR THEN
3448: ROLLBACK TO process_flight_schedules_pvt;
3449: x_return_status := FND_API.G_RET_STS_ERROR;
3450: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3451: p_count => x_msg_count,
3452: p_data => X_msg_data);
3453:
3446:
3447: WHEN FND_API.G_EXC_ERROR THEN
3448: ROLLBACK TO process_flight_schedules_pvt;
3449: x_return_status := FND_API.G_RET_STS_ERROR;
3450: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3451: p_count => x_msg_count,
3452: p_data => X_msg_data);
3453:
3454: WHEN OTHERS THEN
3452: p_data => X_msg_data);
3453:
3454: WHEN OTHERS THEN
3455: ROLLBACK TO process_flight_schedules_pvt;
3456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3457: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3458: THEN
3459: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3460: p_procedure_name => l_api_name,
3464: FND_MSG_PUB.count_and_get
3465: (
3466: p_count => x_msg_count,
3467: p_data => x_msg_data,
3468: p_encoded => FND_API.G_FALSE
3469: );
3470: END Process_Flight_Schedules;
3471:
3472: -----------------------------------------------------------------------------------------------------
3517: );
3518: END IF;
3519:
3520: -- Initialize return status to success initially
3521: x_return_status:=FND_API.G_RET_STS_SUCCESS;
3522:
3523: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3524: p_api_version,
3525: l_api_name,G_PKG_NAME)
3519:
3520: -- Initialize return status to success initially
3521: x_return_status:=FND_API.G_RET_STS_SUCCESS;
3522:
3523: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3524: p_api_version,
3525: l_api_name,G_PKG_NAME)
3526: THEN
3527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3523: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3524: p_api_version,
3525: l_api_name,G_PKG_NAME)
3526: THEN
3527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3528: END IF;
3529:
3530: -- Throw error if p_unit_schedule_id is null
3531:
3539: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3540: 'unit schedule id is null..'
3541: );
3542: END IF;
3543: x_return_status := FND_API.G_RET_STS_ERROR;
3544: RAISE FND_API.G_EXC_ERROR;
3545: ELSE
3546: OPEN check_flight_exists_csr(p_unit_schedule_id, p_unit_config_id);
3547: FETCH check_flight_exists_csr INTO l_dummy;
3540: 'unit schedule id is null..'
3541: );
3542: END IF;
3543: x_return_status := FND_API.G_RET_STS_ERROR;
3544: RAISE FND_API.G_EXC_ERROR;
3545: ELSE
3546: OPEN check_flight_exists_csr(p_unit_schedule_id, p_unit_config_id);
3547: FETCH check_flight_exists_csr INTO l_dummy;
3548: IF check_flight_exists_csr%NOTFOUND THEN
3555: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3556: 'unit schedule Record is invalid..'
3557: );
3558: END IF;
3559: x_return_status := FND_API.G_RET_STS_ERROR;
3560: CLOSE check_flight_exists_csr;
3561: RAISE FND_API.G_EXC_ERROR;
3562: END IF;
3563: CLOSE check_flight_exists_csr;
3557: );
3558: END IF;
3559: x_return_status := FND_API.G_RET_STS_ERROR;
3560: CLOSE check_flight_exists_csr;
3561: RAISE FND_API.G_EXC_ERROR;
3562: END IF;
3563: CLOSE check_flight_exists_csr;
3564: END IF;
3565:
3571: 'At the start of '||l_api_name
3572: );
3573: END IF;
3574: EXCEPTION
3575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3577: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3578: p_count => x_msg_count,
3579: p_data => x_msg_data);
3572: );
3573: END IF;
3574: EXCEPTION
3575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3577: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3578: p_count => x_msg_count,
3579: p_data => x_msg_data);
3580:
3573: END IF;
3574: EXCEPTION
3575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3577: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3578: p_count => x_msg_count,
3579: p_data => x_msg_data);
3580:
3581: WHEN FND_API.G_EXC_ERROR THEN
3577: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3578: p_count => x_msg_count,
3579: p_data => x_msg_data);
3580:
3581: WHEN FND_API.G_EXC_ERROR THEN
3582: x_return_status := FND_API.G_RET_STS_ERROR;
3583: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3584: p_count => x_msg_count,
3585: p_data => X_msg_data);
3578: p_count => x_msg_count,
3579: p_data => x_msg_data);
3580:
3581: WHEN FND_API.G_EXC_ERROR THEN
3582: x_return_status := FND_API.G_RET_STS_ERROR;
3583: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3584: p_count => x_msg_count,
3585: p_data => X_msg_data);
3586:
3579: p_data => x_msg_data);
3580:
3581: WHEN FND_API.G_EXC_ERROR THEN
3582: x_return_status := FND_API.G_RET_STS_ERROR;
3583: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3584: p_count => x_msg_count,
3585: p_data => X_msg_data);
3586:
3587: WHEN OTHERS THEN
3584: p_count => x_msg_count,
3585: p_data => X_msg_data);
3586:
3587: WHEN OTHERS THEN
3588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3589: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3590: THEN
3591: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3592: p_procedure_name => l_api_name,
3596: FND_MSG_PUB.count_and_get
3597: (
3598: p_count => x_msg_count,
3599: p_data => x_msg_data,
3600: p_encoded => FND_API.G_FALSE
3601: );
3602:
3603: END Validate_Flight_Schedule;
3604:
3613: BEGIN
3614:
3615: IF (FND_FUNCTION.TEST('AHL_UA_SUPER_USER'))
3616: THEN
3617: RETURN FND_API.G_TRUE;
3618: --RETURN 'Y';
3619: ELSE
3620: RETURN FND_API.G_FALSE;
3621: --RETURN 'N';
3616: THEN
3617: RETURN FND_API.G_TRUE;
3618: --RETURN 'Y';
3619: ELSE
3620: RETURN FND_API.G_FALSE;
3621: --RETURN 'N';
3622: END IF;
3623:
3624: END is_super_user;
3673:
3674: IF (l_curr_acutals_rec.actual_departure_time IS NULL
3675: AND l_curr_acutals_rec.actual_arrival_time IS NULL)
3676: THEN
3677: RETURN FND_API.G_TRUE;
3678: ELSIF (p_is_super_user = FND_API.G_TRUE
3679: AND l_curr_acutals_rec.actual_departure_time IS NOT NULL
3680: AND l_curr_acutals_rec.actual_arrival_time IS NOT NULL )
3681: THEN
3674: IF (l_curr_acutals_rec.actual_departure_time IS NULL
3675: AND l_curr_acutals_rec.actual_arrival_time IS NULL)
3676: THEN
3677: RETURN FND_API.G_TRUE;
3678: ELSIF (p_is_super_user = FND_API.G_TRUE
3679: AND l_curr_acutals_rec.actual_departure_time IS NOT NULL
3680: AND l_curr_acutals_rec.actual_arrival_time IS NOT NULL )
3681: THEN
3682: RETURN FND_API.G_TRUE;
3678: ELSIF (p_is_super_user = FND_API.G_TRUE
3679: AND l_curr_acutals_rec.actual_departure_time IS NOT NULL
3680: AND l_curr_acutals_rec.actual_arrival_time IS NOT NULL )
3681: THEN
3682: RETURN FND_API.G_TRUE;
3683: ELSE
3684: RETURN FND_API.G_FALSE;
3685: END IF;
3686:
3680: AND l_curr_acutals_rec.actual_arrival_time IS NOT NULL )
3681: THEN
3682: RETURN FND_API.G_TRUE;
3683: ELSE
3684: RETURN FND_API.G_FALSE;
3685: END IF;
3686:
3687: END is_delete_allowed;
3688:
3741: END IF;
3742:
3743: IF l_actual_recorded = 'N'
3744: THEN
3745: RETURN FND_API.G_TRUE;
3746: ELSIF l_actual_recorded = 'Y' AND p_is_super_user = FND_API.G_TRUE
3747: THEN
3748: RETURN FND_API.G_TRUE;
3749: ELSE
3742:
3743: IF l_actual_recorded = 'N'
3744: THEN
3745: RETURN FND_API.G_TRUE;
3746: ELSIF l_actual_recorded = 'Y' AND p_is_super_user = FND_API.G_TRUE
3747: THEN
3748: RETURN FND_API.G_TRUE;
3749: ELSE
3750: RETURN FND_API.G_FALSE;
3744: THEN
3745: RETURN FND_API.G_TRUE;
3746: ELSIF l_actual_recorded = 'Y' AND p_is_super_user = FND_API.G_TRUE
3747: THEN
3748: RETURN FND_API.G_TRUE;
3749: ELSE
3750: RETURN FND_API.G_FALSE;
3751: END IF;
3752:
3746: ELSIF l_actual_recorded = 'Y' AND p_is_super_user = FND_API.G_TRUE
3747: THEN
3748: RETURN FND_API.G_TRUE;
3749: ELSE
3750: RETURN FND_API.G_FALSE;
3751: END IF;
3752:
3753: END is_update_allowed;
3754: END AHL_UA_FLIGHT_SCHEDULES_PVT;