37: l_unit_schedule_id NUMBER;
38: l_flight_schedule_rec AHL_UA_FLIGHT_SCHEDULES_PVT.FLIGHT_SCHEDULE_REC_TYPE;
39: BEGIN
40:
41: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
42: fnd_log.string
43: (
44: fnd_log.level_procedure,
45: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
38: l_flight_schedule_rec AHL_UA_FLIGHT_SCHEDULES_PVT.FLIGHT_SCHEDULE_REC_TYPE;
39: BEGIN
40:
41: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
42: fnd_log.string
43: (
44: fnd_log.level_procedure,
45: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
46: 'At the start of PLSQL procedure'
40:
41: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
42: fnd_log.string
43: (
44: fnd_log.level_procedure,
45: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
46: 'At the start of PLSQL procedure'
47: );
48: END IF;
424: );
425: END LOOP;
426: CLOSE l_flight_schedule_csr;
427:
428: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
429: fnd_log.string
430: (
431: fnd_log.level_procedure,
432: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
425: END LOOP;
426: CLOSE l_flight_schedule_csr;
427:
428: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
429: fnd_log.string
430: (
431: fnd_log.level_procedure,
432: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
433: 'At the end of PLSQL procedure'
427:
428: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
429: fnd_log.string
430: (
431: fnd_log.level_procedure,
432: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
433: 'At the end of PLSQL procedure'
434: );
435: END IF;
480: l_api_name CONSTANT VARCHAR2(30) := 'Process_Flight_Schedules';
481: l_api_version CONSTANT NUMBER := 1.0;
482: l_msg_count NUMBER;
483: BEGIN
484: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
485: fnd_log.string
486: (
487: fnd_log.level_procedure,
488: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
481: l_api_version CONSTANT NUMBER := 1.0;
482: l_msg_count NUMBER;
483: BEGIN
484: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
485: fnd_log.string
486: (
487: fnd_log.level_procedure,
488: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
489: 'At the start of PLSQL procedure'
483: BEGIN
484: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
485: fnd_log.string
486: (
487: fnd_log.level_procedure,
488: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
489: 'At the start of PLSQL procedure'
490: );
491: END IF;
665: RAISE FND_API.G_EXC_ERROR;
666: END IF;
667:
668:
669: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
670: fnd_log.string
671: (
672: fnd_log.level_statement,
673: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
666: END IF;
667:
668:
669: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
670: fnd_log.string
671: (
672: fnd_log.level_statement,
673: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
674: 'Before calling the private API.....'
668:
669: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
670: fnd_log.string
671: (
672: fnd_log.level_statement,
673: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
674: 'Before calling the private API.....'
675: );
676: END IF;
689: );
690:
691: -- Check Error Message stack.
692: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
693: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
694: fnd_log.string
695: (
696: fnd_log.level_error,
697: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
690:
691: -- Check Error Message stack.
692: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
693: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
694: fnd_log.string
695: (
696: fnd_log.level_error,
697: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
698: 'Private API raised expected error....'
692: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
693: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
694: fnd_log.string
695: (
696: fnd_log.level_error,
697: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
698: 'Private API raised expected error....'
699: );
700: END IF;
699: );
700: END IF;
701: RAISE FND_API.G_EXC_ERROR;
702: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
703: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
704: fnd_log.string
705: (
706: fnd_log.level_error,
707: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
700: END IF;
701: RAISE FND_API.G_EXC_ERROR;
702: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
703: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
704: fnd_log.string
705: (
706: fnd_log.level_error,
707: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
708: 'Private API raised unexpected error....'
702: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
703: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
704: fnd_log.string
705: (
706: fnd_log.level_error,
707: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
708: 'Private API raised unexpected error....'
709: );
710: END IF;
716: THEN
717: COMMIT;
718: END IF;
719:
720: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
721: fnd_log.string
722: (
723: fnd_log.level_procedure,
724: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
717: COMMIT;
718: END IF;
719:
720: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
721: fnd_log.string
722: (
723: fnd_log.level_procedure,
724: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
725: 'At the end of PLSQL procedure'
719:
720: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
721: fnd_log.string
722: (
723: fnd_log.level_procedure,
724: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
725: 'At the end of PLSQL procedure'
726: );
727: END IF;
804: l_x_flight_schedules_tbl AHL_UA_FLIGHT_SCHEDULES_PVT.FLIGHT_SCHEDULES_TBL_TYPE;
805: l_api_name CONSTANT VARCHAR2(30) := 'handle_flight_schedules';
806: BEGIN
807:
808: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
809: fnd_log.string
810: (
811: fnd_log.level_procedure,
812: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
805: l_api_name CONSTANT VARCHAR2(30) := 'handle_flight_schedules';
806: BEGIN
807:
808: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
809: fnd_log.string
810: (
811: fnd_log.level_procedure,
812: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
813: 'At the start of procedure'
807:
808: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
809: fnd_log.string
810: (
811: fnd_log.level_procedure,
812: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
813: 'At the start of procedure'
814: );
815: END IF;
862: l_x_flight_schedules_tbl(i).DML_OPERATION := p_x_flght_visit_schedules_tbl(i).DML_OPERATION;
863: END LOOP;
864:
865: -- Call the private procedure for processing visits
866: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
867: fnd_log.string
868: (
869: fnd_log.level_statement,
870: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
863: END LOOP;
864:
865: -- Call the private procedure for processing visits
866: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
867: fnd_log.string
868: (
869: fnd_log.level_statement,
870: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
871: 'Calling AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules..'
865: -- Call the private procedure for processing visits
866: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
867: fnd_log.string
868: (
869: fnd_log.level_statement,
870: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
871: 'Calling AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules..'
872: );
873: END IF;
884: x_msg_data => x_msg_data,
885: p_x_flight_schedules_tbl => l_x_flight_schedules_tbl
886: );
887:
888: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
889: fnd_log.string
890: (
891: fnd_log.level_statement,
892: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
885: p_x_flight_schedules_tbl => l_x_flight_schedules_tbl
886: );
887:
888: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
889: fnd_log.string
890: (
891: fnd_log.level_statement,
892: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
893: 'After calling AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules....'
887:
888: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
889: fnd_log.string
890: (
891: fnd_log.level_statement,
892: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
893: 'After calling AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules....'
894: );
895: END IF;
895: END IF;
896:
897: -- Check Error Message stack.
898: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
899: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
900: fnd_log.string
901: (
902: fnd_log.level_error,
903: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
896:
897: -- Check Error Message stack.
898: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
899: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
900: fnd_log.string
901: (
902: fnd_log.level_error,
903: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
904: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised expected error....'
898: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
899: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
900: fnd_log.string
901: (
902: fnd_log.level_error,
903: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
904: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised expected error....'
905: );
906: END IF;
905: );
906: END IF;
907: RAISE FND_API.G_EXC_ERROR;
908: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
909: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
910: fnd_log.string
911: (
912: fnd_log.level_error,
913: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
906: END IF;
907: RAISE FND_API.G_EXC_ERROR;
908: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
909: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
910: fnd_log.string
911: (
912: fnd_log.level_error,
913: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
914: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised unexpected error....'
908: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
909: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
910: fnd_log.string
911: (
912: fnd_log.level_error,
913: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
914: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised unexpected error....'
915: );
916: END IF;
964: p_x_flght_visit_schedules_tbl(i).ATTRIBUTE13 := l_x_flight_schedules_tbl(i).ATTRIBUTE13;
965: p_x_flght_visit_schedules_tbl(i).ATTRIBUTE14 := l_x_flight_schedules_tbl(i).ATTRIBUTE14;
966: p_x_flght_visit_schedules_tbl(i).ATTRIBUTE15 := l_x_flight_schedules_tbl(i).ATTRIBUTE15;
967: END LOOP;
968: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
969: fnd_log.string
970: (
971: fnd_log.level_procedure,
972: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
965: p_x_flght_visit_schedules_tbl(i).ATTRIBUTE14 := l_x_flight_schedules_tbl(i).ATTRIBUTE14;
966: p_x_flght_visit_schedules_tbl(i).ATTRIBUTE15 := l_x_flight_schedules_tbl(i).ATTRIBUTE15;
967: END LOOP;
968: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
969: fnd_log.string
970: (
971: fnd_log.level_procedure,
972: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
973: 'At the end of procedure'
967: END LOOP;
968: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
969: fnd_log.string
970: (
971: fnd_log.level_procedure,
972: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
973: 'At the end of procedure'
974: );
975: END IF;
999: l_api_name CONSTANT VARCHAR2(30) := 'auto_create_transit_visit';
1000: l_api_version CONSTANT NUMBER := 1.0;
1001: BEGIN
1002:
1003: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1004: fnd_log.string
1005: (
1006: fnd_log.level_procedure,
1007: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1000: l_api_version CONSTANT NUMBER := 1.0;
1001: BEGIN
1002:
1003: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1004: fnd_log.string
1005: (
1006: fnd_log.level_procedure,
1007: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1008: 'At the start of procedure'
1002:
1003: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1004: fnd_log.string
1005: (
1006: fnd_log.level_procedure,
1007: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1008: 'At the start of procedure'
1009: );
1010: END IF;
1055: );
1056:
1057: -- Check Error Message stack.
1058: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1059: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1060: fnd_log.string
1061: (
1062: fnd_log.level_error,
1063: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1056:
1057: -- Check Error Message stack.
1058: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1059: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1060: fnd_log.string
1061: (
1062: fnd_log.level_error,
1063: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1064: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised expected error....'
1058: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1059: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1060: fnd_log.string
1061: (
1062: fnd_log.level_error,
1063: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1064: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised expected error....'
1065: );
1066: END IF;
1065: );
1066: END IF;
1067: RAISE FND_API.G_EXC_ERROR;
1068: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1069: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1070: fnd_log.string
1071: (
1072: fnd_log.level_error,
1073: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1066: END IF;
1067: RAISE FND_API.G_EXC_ERROR;
1068: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1069: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1070: fnd_log.string
1071: (
1072: fnd_log.level_error,
1073: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1074: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised unexpected error....'
1068: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1069: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1070: fnd_log.string
1071: (
1072: fnd_log.level_error,
1073: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1074: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised unexpected error....'
1075: );
1076: END IF;
1092: );
1093:
1094: -- Check Error Message stack.
1095: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1096: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1097: fnd_log.string
1098: (
1099: fnd_log.level_error,
1100: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1093:
1094: -- Check Error Message stack.
1095: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1096: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1097: fnd_log.string
1098: (
1099: fnd_log.level_error,
1100: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1101: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised expected error....'
1095: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1096: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1097: fnd_log.string
1098: (
1099: fnd_log.level_error,
1100: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1101: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised expected error....'
1102: );
1103: END IF;
1102: );
1103: END IF;
1104: RAISE FND_API.G_EXC_ERROR;
1105: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1106: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1107: fnd_log.string
1108: (
1109: fnd_log.level_error,
1110: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1103: END IF;
1104: RAISE FND_API.G_EXC_ERROR;
1105: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1106: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1107: fnd_log.string
1108: (
1109: fnd_log.level_error,
1110: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1111: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised unexpected error....'
1105: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1106: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1107: fnd_log.string
1108: (
1109: fnd_log.level_error,
1110: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1111: 'AHL_UA_FLIGHT_SCHEDULES_PVT.Process_Flight_Schedules API raised unexpected error....'
1112: );
1113: END IF;
1124: l_x_visit_tbl(j).PLAN_END_HOUR := TO_NUMBER(TO_CHAR(l_x_visit_tbl(j).PLAN_END_DATE, 'HH24'));
1125: l_x_visit_tbl(j).PLAN_END_MIN := TO_NUMBER(TO_CHAR(l_x_visit_tbl(j).PLAN_END_DATE, 'MI'));
1126: END IF;
1127:
1128: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1129: fnd_log.string
1130: (
1131: fnd_log.level_statement,
1132: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1125: l_x_visit_tbl(j).PLAN_END_MIN := TO_NUMBER(TO_CHAR(l_x_visit_tbl(j).PLAN_END_DATE, 'MI'));
1126: END IF;
1127:
1128: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1129: fnd_log.string
1130: (
1131: fnd_log.level_statement,
1132: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1133: 'l_x_visit_tbl(j).VISIT_NAME->'||l_x_visit_tbl(j).VISIT_NAME
1127:
1128: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1129: fnd_log.string
1130: (
1131: fnd_log.level_statement,
1132: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1133: 'l_x_visit_tbl(j).VISIT_NAME->'||l_x_visit_tbl(j).VISIT_NAME
1134: );
1135: fnd_log.string
1131: fnd_log.level_statement,
1132: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1133: 'l_x_visit_tbl(j).VISIT_NAME->'||l_x_visit_tbl(j).VISIT_NAME
1134: );
1135: fnd_log.string
1136: (
1137: fnd_log.level_statement,
1138: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1139: 'l_x_visit_tbl(j).ORGANIZATION_ID->'||l_x_visit_tbl(j).ORGANIZATION_ID
1133: 'l_x_visit_tbl(j).VISIT_NAME->'||l_x_visit_tbl(j).VISIT_NAME
1134: );
1135: fnd_log.string
1136: (
1137: fnd_log.level_statement,
1138: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1139: 'l_x_visit_tbl(j).ORGANIZATION_ID->'||l_x_visit_tbl(j).ORGANIZATION_ID
1140: );
1141: fnd_log.string
1137: fnd_log.level_statement,
1138: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1139: 'l_x_visit_tbl(j).ORGANIZATION_ID->'||l_x_visit_tbl(j).ORGANIZATION_ID
1140: );
1141: fnd_log.string
1142: (
1143: fnd_log.level_statement,
1144: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1145: 'l_x_visit_tbl(j).DEPARTMENT_ID->'||l_x_visit_tbl(j).DEPARTMENT_ID
1139: 'l_x_visit_tbl(j).ORGANIZATION_ID->'||l_x_visit_tbl(j).ORGANIZATION_ID
1140: );
1141: fnd_log.string
1142: (
1143: fnd_log.level_statement,
1144: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1145: 'l_x_visit_tbl(j).DEPARTMENT_ID->'||l_x_visit_tbl(j).DEPARTMENT_ID
1146: );
1147: fnd_log.string
1143: fnd_log.level_statement,
1144: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1145: 'l_x_visit_tbl(j).DEPARTMENT_ID->'||l_x_visit_tbl(j).DEPARTMENT_ID
1146: );
1147: fnd_log.string
1148: (
1149: fnd_log.level_statement,
1150: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1151: 'l_x_visit_tbl(j).START_DATE->'||l_x_visit_tbl(j).START_DATE
1145: 'l_x_visit_tbl(j).DEPARTMENT_ID->'||l_x_visit_tbl(j).DEPARTMENT_ID
1146: );
1147: fnd_log.string
1148: (
1149: fnd_log.level_statement,
1150: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1151: 'l_x_visit_tbl(j).START_DATE->'||l_x_visit_tbl(j).START_DATE
1152: );
1153: fnd_log.string
1149: fnd_log.level_statement,
1150: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1151: 'l_x_visit_tbl(j).START_DATE->'||l_x_visit_tbl(j).START_DATE
1152: );
1153: fnd_log.string
1154: (
1155: fnd_log.level_statement,
1156: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1157: 'l_x_visit_tbl(j).VISIT_TYPE_CODE->'||l_x_visit_tbl(j).VISIT_TYPE_CODE
1151: 'l_x_visit_tbl(j).START_DATE->'||l_x_visit_tbl(j).START_DATE
1152: );
1153: fnd_log.string
1154: (
1155: fnd_log.level_statement,
1156: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1157: 'l_x_visit_tbl(j).VISIT_TYPE_CODE->'||l_x_visit_tbl(j).VISIT_TYPE_CODE
1158: );
1159: fnd_log.string
1155: fnd_log.level_statement,
1156: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1157: 'l_x_visit_tbl(j).VISIT_TYPE_CODE->'||l_x_visit_tbl(j).VISIT_TYPE_CODE
1158: );
1159: fnd_log.string
1160: (
1161: fnd_log.level_statement,
1162: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1163: 'l_x_visit_tbl(j).VISIT_TYPE_NAME->'||l_x_visit_tbl(j).VISIT_TYPE_NAME
1157: 'l_x_visit_tbl(j).VISIT_TYPE_CODE->'||l_x_visit_tbl(j).VISIT_TYPE_CODE
1158: );
1159: fnd_log.string
1160: (
1161: fnd_log.level_statement,
1162: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1163: 'l_x_visit_tbl(j).VISIT_TYPE_NAME->'||l_x_visit_tbl(j).VISIT_TYPE_NAME
1164: );
1165: fnd_log.string
1161: fnd_log.level_statement,
1162: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1163: 'l_x_visit_tbl(j).VISIT_TYPE_NAME->'||l_x_visit_tbl(j).VISIT_TYPE_NAME
1164: );
1165: fnd_log.string
1166: (
1167: fnd_log.level_statement,
1168: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1169: 'l_x_visit_tbl(j).VISIT_CREATE_TYPE->'||l_x_visit_tbl(j).VISIT_CREATE_TYPE
1163: 'l_x_visit_tbl(j).VISIT_TYPE_NAME->'||l_x_visit_tbl(j).VISIT_TYPE_NAME
1164: );
1165: fnd_log.string
1166: (
1167: fnd_log.level_statement,
1168: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1169: 'l_x_visit_tbl(j).VISIT_CREATE_TYPE->'||l_x_visit_tbl(j).VISIT_CREATE_TYPE
1170: );
1171: fnd_log.string
1167: fnd_log.level_statement,
1168: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1169: 'l_x_visit_tbl(j).VISIT_CREATE_TYPE->'||l_x_visit_tbl(j).VISIT_CREATE_TYPE
1170: );
1171: fnd_log.string
1172: (
1173: fnd_log.level_statement,
1174: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1175: 'l_x_visit_tbl(j).UNIT_NAME->'||l_x_visit_tbl(j).UNIT_NAME
1169: 'l_x_visit_tbl(j).VISIT_CREATE_TYPE->'||l_x_visit_tbl(j).VISIT_CREATE_TYPE
1170: );
1171: fnd_log.string
1172: (
1173: fnd_log.level_statement,
1174: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1175: 'l_x_visit_tbl(j).UNIT_NAME->'||l_x_visit_tbl(j).UNIT_NAME
1176: );
1177: fnd_log.string
1173: fnd_log.level_statement,
1174: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1175: 'l_x_visit_tbl(j).UNIT_NAME->'||l_x_visit_tbl(j).UNIT_NAME
1176: );
1177: fnd_log.string
1178: (
1179: fnd_log.level_statement,
1180: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1181: 'l_x_visit_tbl(j).ITEM_INSTANCE_ID->'||l_x_visit_tbl(j).ITEM_INSTANCE_ID
1175: 'l_x_visit_tbl(j).UNIT_NAME->'||l_x_visit_tbl(j).UNIT_NAME
1176: );
1177: fnd_log.string
1178: (
1179: fnd_log.level_statement,
1180: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1181: 'l_x_visit_tbl(j).ITEM_INSTANCE_ID->'||l_x_visit_tbl(j).ITEM_INSTANCE_ID
1182: );
1183: fnd_log.string
1179: fnd_log.level_statement,
1180: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1181: 'l_x_visit_tbl(j).ITEM_INSTANCE_ID->'||l_x_visit_tbl(j).ITEM_INSTANCE_ID
1182: );
1183: fnd_log.string
1184: (
1185: fnd_log.level_statement,
1186: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1187: 'l_x_visit_tbl(j).ITEM_NAME->'||l_x_visit_tbl(j).ITEM_NAME
1181: 'l_x_visit_tbl(j).ITEM_INSTANCE_ID->'||l_x_visit_tbl(j).ITEM_INSTANCE_ID
1182: );
1183: fnd_log.string
1184: (
1185: fnd_log.level_statement,
1186: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1187: 'l_x_visit_tbl(j).ITEM_NAME->'||l_x_visit_tbl(j).ITEM_NAME
1188: );
1189: fnd_log.string
1185: fnd_log.level_statement,
1186: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1187: 'l_x_visit_tbl(j).ITEM_NAME->'||l_x_visit_tbl(j).ITEM_NAME
1188: );
1189: fnd_log.string
1190: (
1191: fnd_log.level_statement,
1192: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1193: 'l_x_visit_tbl(j).SERIAL_NUMBER->'||l_x_visit_tbl(j).SERIAL_NUMBER
1187: 'l_x_visit_tbl(j).ITEM_NAME->'||l_x_visit_tbl(j).ITEM_NAME
1188: );
1189: fnd_log.string
1190: (
1191: fnd_log.level_statement,
1192: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1193: 'l_x_visit_tbl(j).SERIAL_NUMBER->'||l_x_visit_tbl(j).SERIAL_NUMBER
1194: );
1195: fnd_log.string
1191: fnd_log.level_statement,
1192: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1193: 'l_x_visit_tbl(j).SERIAL_NUMBER->'||l_x_visit_tbl(j).SERIAL_NUMBER
1194: );
1195: fnd_log.string
1196: (
1197: fnd_log.level_statement,
1198: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1199: 'l_x_visit_tbl(j).UNIT_SCHEDULE_ID->'||l_x_visit_tbl(j).UNIT_SCHEDULE_ID
1193: 'l_x_visit_tbl(j).SERIAL_NUMBER->'||l_x_visit_tbl(j).SERIAL_NUMBER
1194: );
1195: fnd_log.string
1196: (
1197: fnd_log.level_statement,
1198: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1199: 'l_x_visit_tbl(j).UNIT_SCHEDULE_ID->'||l_x_visit_tbl(j).UNIT_SCHEDULE_ID
1200: );
1201:
1198: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1199: 'l_x_visit_tbl(j).UNIT_SCHEDULE_ID->'||l_x_visit_tbl(j).UNIT_SCHEDULE_ID
1200: );
1201:
1202: fnd_log.string
1203: (
1204: fnd_log.level_statement,
1205: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1206: 'l_x_visit_tbl(j).OPERATION_FLAG->'||l_x_visit_tbl(j).OPERATION_FLAG
1200: );
1201:
1202: fnd_log.string
1203: (
1204: fnd_log.level_statement,
1205: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1206: 'l_x_visit_tbl(j).OPERATION_FLAG->'||l_x_visit_tbl(j).OPERATION_FLAG
1207: );
1208: END IF;
1211:
1212: IF l_x_visit_tbl.COUNT > 0
1213: THEN
1214:
1215: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1216: fnd_log.string
1217: (
1218: fnd_log.level_statement,
1219: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1212: IF l_x_visit_tbl.COUNT > 0
1213: THEN
1214:
1215: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1216: fnd_log.string
1217: (
1218: fnd_log.level_statement,
1219: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1220: 'Calling AHL_VWP_VISITS_PVT.Process_Visit'
1214:
1215: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1216: fnd_log.string
1217: (
1218: fnd_log.level_statement,
1219: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1220: 'Calling AHL_VWP_VISITS_PVT.Process_Visit'
1221: );
1222: END IF;
1232: x_msg_count => x_msg_count,
1233: x_msg_data => x_msg_data
1234: );
1235:
1236: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1237: fnd_log.string
1238: (
1239: fnd_log.level_statement,
1240: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1233: x_msg_data => x_msg_data
1234: );
1235:
1236: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1237: fnd_log.string
1238: (
1239: fnd_log.level_statement,
1240: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1241: 'After calling AHL_VWP_VISITS_PVT.Process_Visit'
1235:
1236: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1237: fnd_log.string
1238: (
1239: fnd_log.level_statement,
1240: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1241: 'After calling AHL_VWP_VISITS_PVT.Process_Visit'
1242: );
1243: END IF;
1243: END IF;
1244:
1245: -- Check Error Message stack.
1246: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1247: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1248: fnd_log.string
1249: (
1250: fnd_log.level_error,
1251: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1244:
1245: -- Check Error Message stack.
1246: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1247: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1248: fnd_log.string
1249: (
1250: fnd_log.level_error,
1251: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1252: 'AHL_VWP_VISITS_PVT.Process_Visit API raised expected error....'
1246: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1247: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1248: fnd_log.string
1249: (
1250: fnd_log.level_error,
1251: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1252: 'AHL_VWP_VISITS_PVT.Process_Visit API raised expected error....'
1253: );
1254: END IF;
1253: );
1254: END IF;
1255: RAISE FND_API.G_EXC_ERROR;
1256: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1257: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1258: fnd_log.string
1259: (
1260: fnd_log.level_error,
1261: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1254: END IF;
1255: RAISE FND_API.G_EXC_ERROR;
1256: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1257: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1258: fnd_log.string
1259: (
1260: fnd_log.level_error,
1261: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1262: 'AHL_VWP_VISITS_PVT.Process_Visit API raised unexpected error....'
1256: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1257: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1258: fnd_log.string
1259: (
1260: fnd_log.level_error,
1261: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1262: 'AHL_VWP_VISITS_PVT.Process_Visit API raised unexpected error....'
1263: );
1264: END IF;
1282: END LOOP;
1283:
1284: END IF;
1285:
1286: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1287: fnd_log.string
1288: (
1289: fnd_log.level_procedure,
1290: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1283:
1284: END IF;
1285:
1286: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1287: fnd_log.string
1288: (
1289: fnd_log.level_procedure,
1290: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1291: 'At the end of procedure'
1285:
1286: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1287: fnd_log.string
1288: (
1289: fnd_log.level_procedure,
1290: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1291: 'At the end of procedure'
1292: );
1293: END IF;
1318: p_flight_visit_sch_tbl(i).DML_OPERATION <> 'C' AND p_flight_visit_sch_tbl(i).DML_OPERATION <> 'c'
1319: )
1320: )
1321: THEN
1322: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1323: fnd_log.string
1324: (
1325: fnd_log.level_error,
1326: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1319: )
1320: )
1321: THEN
1322: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1323: fnd_log.string
1324: (
1325: fnd_log.level_error,
1326: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1327: 'Invalid DML Operation flag for '
1321: THEN
1322: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1323: fnd_log.string
1324: (
1325: fnd_log.level_error,
1326: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1327: 'Invalid DML Operation flag for '
1328: ||p_flight_visit_sch_tbl(i).unit_schedule_id
1329: );
1343: --Unit Schedule id cannot be null
1344: IF (p_flight_visit_sch_tbl(i).UNIT_SCHEDULE_ID IS NULL OR
1345: p_flight_visit_sch_tbl(i).UNIT_SCHEDULE_ID = FND_API.G_MISS_NUM)
1346: THEN
1347: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1348: fnd_log.string
1349: (
1350: fnd_log.level_error,
1351: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1344: IF (p_flight_visit_sch_tbl(i).UNIT_SCHEDULE_ID IS NULL OR
1345: p_flight_visit_sch_tbl(i).UNIT_SCHEDULE_ID = FND_API.G_MISS_NUM)
1346: THEN
1347: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1348: fnd_log.string
1349: (
1350: fnd_log.level_error,
1351: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1352: 'Flight Schedule doesnt id cannot be null '
1346: THEN
1347: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1348: fnd_log.string
1349: (
1350: fnd_log.level_error,
1351: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1352: 'Flight Schedule doesnt id cannot be null '
1353: );
1354: END IF;
1361: -- Check for Object Version number.
1362: IF (p_flight_visit_sch_tbl(i).OBJECT_VERSION_NUMBER IS NULL OR
1363: p_flight_visit_sch_tbl(i).OBJECT_VERSION_NUMBER = FND_API.G_MISS_NUM)
1364: THEN
1365: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1366: fnd_log.string
1367: (
1368: fnd_log.level_error,
1369: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1362: IF (p_flight_visit_sch_tbl(i).OBJECT_VERSION_NUMBER IS NULL OR
1363: p_flight_visit_sch_tbl(i).OBJECT_VERSION_NUMBER = FND_API.G_MISS_NUM)
1364: THEN
1365: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1366: fnd_log.string
1367: (
1368: fnd_log.level_error,
1369: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1370: 'Object version number cannot be null for '
1364: THEN
1365: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1366: fnd_log.string
1367: (
1368: fnd_log.level_error,
1369: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1370: 'Object version number cannot be null for '
1371: ||p_flight_visit_sch_tbl(i).unit_schedule_id
1372: );
1389: (p_flight_visit_sch_tbl(i).UNIT_CONFIG_NAME IS NULL OR
1390: p_flight_visit_sch_tbl(i).UNIT_CONFIG_NAME = FND_API.G_MISS_CHAR)
1391:
1392: THEN
1393: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1394: fnd_log.string
1395: (
1396: fnd_log.level_error,
1397: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1390: p_flight_visit_sch_tbl(i).UNIT_CONFIG_NAME = FND_API.G_MISS_CHAR)
1391:
1392: THEN
1393: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1394: fnd_log.string
1395: (
1396: fnd_log.level_error,
1397: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1398: 'Unit config header id and name, both cannot be null for '
1392: THEN
1393: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1394: fnd_log.string
1395: (
1396: fnd_log.level_error,
1397: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1398: 'Unit config header id and name, both cannot be null for '
1399: ||p_flight_visit_sch_tbl(i).unit_schedule_id
1400: );
1408: --Flight Number is a mandatory input field and cannot be null.
1409: IF p_flight_visit_sch_tbl(i).FLIGHT_NUMBER IS NULL OR
1410: p_flight_visit_sch_tbl(i).FLIGHT_NUMBER = FND_API.G_MISS_CHAR
1411: THEN
1412: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1413: fnd_log.string
1414: (
1415: fnd_log.level_error,
1416: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1409: IF p_flight_visit_sch_tbl(i).FLIGHT_NUMBER IS NULL OR
1410: p_flight_visit_sch_tbl(i).FLIGHT_NUMBER = FND_API.G_MISS_CHAR
1411: THEN
1412: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1413: fnd_log.string
1414: (
1415: fnd_log.level_error,
1416: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1417: 'Flight Number cannot be null for '
1411: THEN
1412: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1413: fnd_log.string
1414: (
1415: fnd_log.level_error,
1416: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1417: 'Flight Number cannot be null for '
1418: ||p_flight_visit_sch_tbl(i).unit_schedule_id
1419: );
1427: --Segment is a mandatory input field and cannot be null
1428: IF p_flight_visit_sch_tbl(i).SEGMENT IS NULL OR
1429: p_flight_visit_sch_tbl(i).SEGMENT = FND_API.G_MISS_CHAR
1430: THEN
1431: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1432: fnd_log.string
1433: (
1434: fnd_log.level_error,
1435: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1428: IF p_flight_visit_sch_tbl(i).SEGMENT IS NULL OR
1429: p_flight_visit_sch_tbl(i).SEGMENT = FND_API.G_MISS_CHAR
1430: THEN
1431: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1432: fnd_log.string
1433: (
1434: fnd_log.level_error,
1435: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1436: 'Flight Segment cannot be null for '
1430: THEN
1431: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1432: fnd_log.string
1433: (
1434: fnd_log.level_error,
1435: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1436: 'Flight Segment cannot be null for '
1437: ||p_flight_visit_sch_tbl(i).unit_schedule_id
1438: );
1448: p_flight_visit_sch_tbl(i).DEPARTURE_DEPT_ID = FND_API.G_MISS_NUM ) AND
1449: ( p_flight_visit_sch_tbl(i).DEPARTURE_DEPT_CODE IS NULL OR
1450: p_flight_visit_sch_tbl(i).DEPARTURE_DEPT_CODE = FND_API.G_MISS_CHAR )
1451: THEN
1452: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1453: fnd_log.string
1454: (
1455: fnd_log.level_error,
1456: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1449: ( p_flight_visit_sch_tbl(i).DEPARTURE_DEPT_CODE IS NULL OR
1450: p_flight_visit_sch_tbl(i).DEPARTURE_DEPT_CODE = FND_API.G_MISS_CHAR )
1451: THEN
1452: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1453: fnd_log.string
1454: (
1455: fnd_log.level_error,
1456: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1457: 'Departure Department id and code, both cannot be null '
1451: THEN
1452: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1453: fnd_log.string
1454: (
1455: fnd_log.level_error,
1456: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1457: 'Departure Department id and code, both cannot be null '
1458: ||p_flight_visit_sch_tbl(i).unit_schedule_id
1459: );
1469: p_flight_visit_sch_tbl(i).DEPARTURE_ORG_ID = FND_API.G_MISS_NUM ) AND
1470: ( p_flight_visit_sch_tbl(i).DEPARTURE_ORG_CODE IS NULL OR
1471: p_flight_visit_sch_tbl(i).DEPARTURE_ORG_CODE = FND_API.G_MISS_CHAR )
1472: THEN
1473: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1474: fnd_log.string
1475: (
1476: fnd_log.level_error,
1477: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1470: ( p_flight_visit_sch_tbl(i).DEPARTURE_ORG_CODE IS NULL OR
1471: p_flight_visit_sch_tbl(i).DEPARTURE_ORG_CODE = FND_API.G_MISS_CHAR )
1472: THEN
1473: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1474: fnd_log.string
1475: (
1476: fnd_log.level_error,
1477: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1478: 'Departure Org id and code, both cannot be null '
1472: THEN
1473: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1474: fnd_log.string
1475: (
1476: fnd_log.level_error,
1477: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1478: 'Departure Org id and code, both cannot be null '
1479: ||p_flight_visit_sch_tbl(i).unit_schedule_id
1480: );
1491: ( p_flight_visit_sch_tbl(i).ARRIVAL_DEPT_CODE IS NULL OR
1492: p_flight_visit_sch_tbl(i).ARRIVAL_DEPT_CODE = FND_API.G_MISS_CHAR )
1493:
1494: THEN
1495: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1496: fnd_log.string
1497: (
1498: fnd_log.level_error,
1499: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1492: p_flight_visit_sch_tbl(i).ARRIVAL_DEPT_CODE = FND_API.G_MISS_CHAR )
1493:
1494: THEN
1495: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1496: fnd_log.string
1497: (
1498: fnd_log.level_error,
1499: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1500: 'Arrival dept id and code, both cannot be null '
1494: THEN
1495: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1496: fnd_log.string
1497: (
1498: fnd_log.level_error,
1499: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1500: 'Arrival dept id and code, both cannot be null '
1501: ||p_flight_visit_sch_tbl(i).unit_schedule_id
1502: );
1512: p_flight_visit_sch_tbl(i).ARRIVAL_ORG_ID = FND_API.G_MISS_NUM ) AND
1513: ( p_flight_visit_sch_tbl(i).ARRIVAL_ORG_CODE IS NULL OR
1514: p_flight_visit_sch_tbl(i).ARRIVAL_ORG_CODE = FND_API.G_MISS_CHAR )
1515: THEN
1516: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1517: fnd_log.string
1518: (
1519: fnd_log.level_error,
1520: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1513: ( p_flight_visit_sch_tbl(i).ARRIVAL_ORG_CODE IS NULL OR
1514: p_flight_visit_sch_tbl(i).ARRIVAL_ORG_CODE = FND_API.G_MISS_CHAR )
1515: THEN
1516: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1517: fnd_log.string
1518: (
1519: fnd_log.level_error,
1520: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1521: 'Arrival org id and code, both cannot be null '
1515: THEN
1516: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1517: fnd_log.string
1518: (
1519: fnd_log.level_error,
1520: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1521: 'Arrival org id and code, both cannot be null '
1522: ||p_flight_visit_sch_tbl(i).unit_schedule_id
1523: );
1531: --Est_Departure_Time is a mandatory input field and cannot be null
1532: IF p_flight_visit_sch_tbl(i).EST_DEPARTURE_TIME IS NULL OR
1533: p_flight_visit_sch_tbl(i).EST_DEPARTURE_TIME = FND_API.G_MISS_DATE
1534: THEN
1535: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1536: fnd_log.string
1537: (
1538: fnd_log.level_error,
1539: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1532: IF p_flight_visit_sch_tbl(i).EST_DEPARTURE_TIME IS NULL OR
1533: p_flight_visit_sch_tbl(i).EST_DEPARTURE_TIME = FND_API.G_MISS_DATE
1534: THEN
1535: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1536: fnd_log.string
1537: (
1538: fnd_log.level_error,
1539: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1540: 'estimated departure time cannot be null '
1534: THEN
1535: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1536: fnd_log.string
1537: (
1538: fnd_log.level_error,
1539: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1540: 'estimated departure time cannot be null '
1541: ||p_flight_visit_sch_tbl(i).unit_schedule_id
1542: );
1550: --Est_Arrival_Time is a mandatory input field and cannot be null
1551: IF p_flight_visit_sch_tbl(i).EST_ARRIVAL_TIME IS NULL OR
1552: p_flight_visit_sch_tbl(i).EST_ARRIVAL_TIME = FND_API.G_MISS_DATE
1553: THEN
1554: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1555: fnd_log.string
1556: (
1557: fnd_log.level_error,
1558: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1551: IF p_flight_visit_sch_tbl(i).EST_ARRIVAL_TIME IS NULL OR
1552: p_flight_visit_sch_tbl(i).EST_ARRIVAL_TIME = FND_API.G_MISS_DATE
1553: THEN
1554: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1555: fnd_log.string
1556: (
1557: fnd_log.level_error,
1558: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1559: 'Estimated arrival cannot be null '
1553: THEN
1554: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1555: fnd_log.string
1556: (
1557: fnd_log.level_error,
1558: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1559: 'Estimated arrival cannot be null '
1560: ||p_flight_visit_sch_tbl(i).unit_schedule_id
1561: );
1571: p_flight_visit_sch_tbl(i).VISIT_RESCHEDULE_MODE = FND_API.G_MISS_CHAR ) AND
1572: ( p_flight_visit_sch_tbl(i).VISIT_RESCHEDULE_MEANING IS NULL OR
1573: p_flight_visit_sch_tbl(i).VISIT_RESCHEDULE_MEANING = FND_API.G_MISS_CHAR )
1574: THEN
1575: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1576: fnd_log.string
1577: (
1578: fnd_log.level_error,
1579: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1572: ( p_flight_visit_sch_tbl(i).VISIT_RESCHEDULE_MEANING IS NULL OR
1573: p_flight_visit_sch_tbl(i).VISIT_RESCHEDULE_MEANING = FND_API.G_MISS_CHAR )
1574: THEN
1575: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1576: fnd_log.string
1577: (
1578: fnd_log.level_error,
1579: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1580: 'Visit Reschedule mode cannot be null for '
1574: THEN
1575: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1576: fnd_log.string
1577: (
1578: fnd_log.level_error,
1579: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1580: 'Visit Reschedule mode cannot be null for '
1581: ||p_flight_visit_sch_tbl(i).unit_schedule_id
1582: );
1596: p_flight_visit_sch_tbl(i).VISIT_TYPE_CODE = FND_API.G_MISS_CHAR ) AND
1597: ( p_flight_visit_sch_tbl(i).VISIT_TYPE_MEANING IS NULL OR
1598: p_flight_visit_sch_tbl(i).VISIT_TYPE_MEANING = FND_API.G_MISS_CHAR )
1599: THEN
1600: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1601: fnd_log.string
1602: (
1603: fnd_log.level_error,
1604: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1597: ( p_flight_visit_sch_tbl(i).VISIT_TYPE_MEANING IS NULL OR
1598: p_flight_visit_sch_tbl(i).VISIT_TYPE_MEANING = FND_API.G_MISS_CHAR )
1599: THEN
1600: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1601: fnd_log.string
1602: (
1603: fnd_log.level_error,
1604: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1605: 'Visit Type Code cannot be null for '
1599: THEN
1600: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1601: fnd_log.string
1602: (
1603: fnd_log.level_error,
1604: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1605: 'Visit Type Code cannot be null for '
1606: ||p_flight_visit_sch_tbl(i).unit_schedule_id
1607: );
1617: p_flight_visit_sch_tbl(i).VISIT_CREATE_TYPE = FND_API.G_MISS_CHAR ) AND
1618: ( p_flight_visit_sch_tbl(i).VISIT_CREATE_MEANING IS NULL OR
1619: p_flight_visit_sch_tbl(i).VISIT_CREATE_MEANING = FND_API.G_MISS_CHAR )
1620: THEN
1621: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1622: fnd_log.string
1623: (
1624: fnd_log.level_error,
1625: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1618: ( p_flight_visit_sch_tbl(i).VISIT_CREATE_MEANING IS NULL OR
1619: p_flight_visit_sch_tbl(i).VISIT_CREATE_MEANING = FND_API.G_MISS_CHAR )
1620: THEN
1621: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1622: fnd_log.string
1623: (
1624: fnd_log.level_error,
1625: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1626: 'Visit create type code cannot be null for '
1620: THEN
1621: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1622: fnd_log.string
1623: (
1624: fnd_log.level_error,
1625: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1626: 'Visit create type code cannot be null for '
1627: ||p_flight_visit_sch_tbl(i).unit_schedule_id
1628: );
1663: IS
1664: l_api_name CONSTANT VARCHAR2(30) := 'Process_FlightVisit_Sch';
1665: l_api_version CONSTANT NUMBER := 1.0;
1666: BEGIN
1667: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1668: fnd_log.string
1669: (
1670: fnd_log.level_procedure,
1671: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1664: l_api_name CONSTANT VARCHAR2(30) := 'Process_FlightVisit_Sch';
1665: l_api_version CONSTANT NUMBER := 1.0;
1666: BEGIN
1667: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1668: fnd_log.string
1669: (
1670: fnd_log.level_procedure,
1671: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1672: 'At the start of PLSQL procedure Process_FlightVisit_Sch'
1666: BEGIN
1667: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1668: fnd_log.string
1669: (
1670: fnd_log.level_procedure,
1671: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1672: 'At the start of PLSQL procedure Process_FlightVisit_Sch'
1673: );
1674: END IF;
1691: FND_MSG_PUB.initialize;
1692: END IF;
1693:
1694:
1695: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1696: fnd_log.string
1697: (
1698: fnd_log.level_statement,
1699: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1692: END IF;
1693:
1694:
1695: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1696: fnd_log.string
1697: (
1698: fnd_log.level_statement,
1699: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1700: 'Before calling the private API.....'
1694:
1695: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1696: fnd_log.string
1697: (
1698: fnd_log.level_statement,
1699: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1700: 'Before calling the private API.....'
1701: );
1702: END IF;
1708: );
1709:
1710: -- If any severe error occurs, then, abort API.
1711: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1712: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1713: fnd_log.string
1714: (
1715: fnd_log.level_error,
1716: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1709:
1710: -- If any severe error occurs, then, abort API.
1711: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1712: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1713: fnd_log.string
1714: (
1715: fnd_log.level_error,
1716: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1717: 'validate_api_inputs API raised expected error....'
1711: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1712: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1713: fnd_log.string
1714: (
1715: fnd_log.level_error,
1716: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1717: 'validate_api_inputs API raised expected error....'
1718: );
1719: END IF;
1718: );
1719: END IF;
1720: RAISE FND_API.G_EXC_ERROR;
1721: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1722: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1723: fnd_log.string
1724: (
1725: fnd_log.level_error,
1726: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1719: END IF;
1720: RAISE FND_API.G_EXC_ERROR;
1721: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1722: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1723: fnd_log.string
1724: (
1725: fnd_log.level_error,
1726: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1727: 'validate_api_inputs API raised unexpected error....'
1721: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1722: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1723: fnd_log.string
1724: (
1725: fnd_log.level_error,
1726: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1727: 'validate_api_inputs API raised unexpected error....'
1728: );
1729: END IF;
1754: THEN
1755: COMMIT;
1756: END IF;
1757:
1758: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1759: fnd_log.string
1760: (
1761: fnd_log.level_procedure,
1762: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1755: COMMIT;
1756: END IF;
1757:
1758: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1759: fnd_log.string
1760: (
1761: fnd_log.level_procedure,
1762: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1763: 'At the end of PLSQL procedure Process_FlightVisit_Sch'
1757:
1758: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1759: fnd_log.string
1760: (
1761: fnd_log.level_procedure,
1762: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1763: 'At the end of PLSQL procedure Process_FlightVisit_Sch'
1764: );
1765: END IF;