186: -- Initialize API return status to success
187: x_return_status := FND_API.G_RET_STS_SUCCESS;
188:
189: -- Log API entry point
190: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
191: THEN
192: fnd_log.string
193: (
194: fnd_log.level_procedure,
188:
189: -- Log API entry point
190: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
191: THEN
192: fnd_log.string
193: (
194: fnd_log.level_procedure,
195: L_DEBUG_MODULE||'.begin',
196: 'At the start of PLSQL procedure'
190: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
191: THEN
192: fnd_log.string
193: (
194: fnd_log.level_procedure,
195: L_DEBUG_MODULE||'.begin',
196: 'At the start of PLSQL procedure'
197: );
198: END IF;
239: FND_MSG_PUB.ADD;
240: RAISE FND_API.G_EXC_ERROR;
241: END IF;
242:
243: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
244: THEN
245: fnd_log.string
246: (
247: fnd_log.level_statement,
241: END IF;
242:
243: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
244: THEN
245: fnd_log.string
246: (
247: fnd_log.level_statement,
248: L_DEBUG_MODULE,
249: 'Basic validations done'
243: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
244: THEN
245: fnd_log.string
246: (
247: fnd_log.level_statement,
248: L_DEBUG_MODULE,
249: 'Basic validations done'
250: );
251: END IF;
287: LOOP
288: -- Initialize end date time of the time span to current start date time + time increment/span
289: l_end_time := l_start_time + l_time_increment;
290:
291: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
292: THEN
293: fnd_log.string
294: (
295: fnd_log.level_statement,
289: l_end_time := l_start_time + l_time_increment;
290:
291: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
292: THEN
293: fnd_log.string
294: (
295: fnd_log.level_statement,
296: L_DEBUG_MODULE,
297: '[l_unit_config_id='||TO_CHAR(l_unit_config_id)||'][l_unit_config_name='||l_unit_config_name||'][l_row_idx='||TO_CHAR(l_row_idx)||'][l_col_idx='||TO_CHAR(l_col_idx)||']'||
291: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
292: THEN
293: fnd_log.string
294: (
295: fnd_log.level_statement,
296: L_DEBUG_MODULE,
297: '[l_unit_config_id='||TO_CHAR(l_unit_config_id)||'][l_unit_config_name='||l_unit_config_name||'][l_row_idx='||TO_CHAR(l_row_idx)||'][l_col_idx='||TO_CHAR(l_col_idx)||']'||
298: '[l_start_time='||TO_CHAR(l_start_time, 'DD-MM-YYYY HH24:MI:SS')||'][l_end_time='||TO_CHAR(l_end_time, 'DD-MM-YYYY HH24:MI:SS')||'][l_time_increment='||TO_CHAR(l_time_increment)||']'
299: );
321:
322: -- Verify the Get_MEvent_Details does not throw unexpected errors, etc
323: IF (l_return_status = FND_API.G_RET_STS_ERROR)
324: THEN
325: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
326: THEN
327: fnd_log.string
328: (
329: fnd_log.level_error,
323: IF (l_return_status = FND_API.G_RET_STS_ERROR)
324: THEN
325: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
326: THEN
327: fnd_log.string
328: (
329: fnd_log.level_error,
330: L_DEBUG_MODULE,
331: 'Call to Get_MEvent_Details API returned EXPECTED error'
325: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
326: THEN
327: fnd_log.string
328: (
329: fnd_log.level_error,
330: L_DEBUG_MODULE,
331: 'Call to Get_MEvent_Details API returned EXPECTED error'
332: );
333: END IF;
333: END IF;
334: RAISE FND_API.G_EXC_ERROR;
335: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
336: THEN
337: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
338: THEN
339: fnd_log.string
340: (
341: fnd_log.level_error,
335: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
336: THEN
337: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
338: THEN
339: fnd_log.string
340: (
341: fnd_log.level_error,
342: L_DEBUG_MODULE,
343: 'Call to Get_MEvent_Details API returned UNEXPECTED error'
337: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
338: THEN
339: fnd_log.string
340: (
341: fnd_log.level_error,
342: L_DEBUG_MODULE,
343: 'Call to Get_MEvent_Details API returned UNEXPECTED error'
344: );
345: END IF;
352: THEN
353: RAISE FND_API.G_EXC_ERROR;
354: END IF;
355:
356: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
357: THEN
358: fnd_log.string
359: (
360: fnd_log.level_statement,
354: END IF;
355:
356: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
357: THEN
358: fnd_log.string
359: (
360: fnd_log.level_statement,
361: L_DEBUG_MODULE,
362: 'l_mevent_header_rec = [EVENT_COUNT='||TO_CHAR(l_mevent_header_rec.EVENT_COUNT)||'][HAS_CONFLICT='||l_mevent_header_rec.HAS_CONFLICT||'][HAS_MOPPORTUNITY='||l_mevent_header_rec.HAS_MOPPORTUNITY||']'||
356: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
357: THEN
358: fnd_log.string
359: (
360: fnd_log.level_statement,
361: L_DEBUG_MODULE,
362: 'l_mevent_header_rec = [EVENT_COUNT='||TO_CHAR(l_mevent_header_rec.EVENT_COUNT)||'][HAS_CONFLICT='||l_mevent_header_rec.HAS_CONFLICT||'][HAS_MOPPORTUNITY='||l_mevent_header_rec.HAS_MOPPORTUNITY||']'||
363: 'l_unit_schedule_tbl = [COUNT='||TO_CHAR(l_unit_schedule_tbl.COUNT)||']'||'l_visit_schedule_tbl = [COUNT='||TO_CHAR(l_visit_schedule_tbl.COUNT)||']'
364: );
608: -- 5. Insert record into global temporary table ahl_srch_unit_schedules
609:
610: SELECT NVL(MAX(SRCH_UNIT_SCHEDULE_ID), 0) + 1 INTO l_temp_srch_sched_id FROM AHL_SRCH_UNIT_SCHEDULES;
611:
612: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
613: THEN
614: fnd_log.string
615: (
616: fnd_log.level_statement,
610: SELECT NVL(MAX(SRCH_UNIT_SCHEDULE_ID), 0) + 1 INTO l_temp_srch_sched_id FROM AHL_SRCH_UNIT_SCHEDULES;
611:
612: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
613: THEN
614: fnd_log.string
615: (
616: fnd_log.level_statement,
617: L_DEBUG_MODULE,
618: '[l_temp_srch_sched_id='||TO_CHAR(l_temp_srch_sched_id)||'][l_temp_sched_type='||l_temp_sched_type||'][l_unit_config_id='||TO_CHAR(l_unit_config_id)||'][l_temp_unit_sched_id='||TO_CHAR(l_temp_unit_sched_id)||']'||
612: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
613: THEN
614: fnd_log.string
615: (
616: fnd_log.level_statement,
617: L_DEBUG_MODULE,
618: '[l_temp_srch_sched_id='||TO_CHAR(l_temp_srch_sched_id)||'][l_temp_sched_type='||l_temp_sched_type||'][l_unit_config_id='||TO_CHAR(l_unit_config_id)||'][l_temp_unit_sched_id='||TO_CHAR(l_temp_unit_sched_id)||']'||
619: '[l_temp_visit_id='||TO_CHAR(l_temp_visit_id)||'][l_temp_visit_name='||l_temp_visit_name||'][l_temp_dept_id='||TO_CHAR(l_temp_dept_id)||'][l_temp_org_id='||TO_CHAR(l_temp_org_id)||']'||
620: '[l_temp_start_time='||TO_CHAR(l_temp_start_time, 'DD-MM-YYYY HH24:MI:SS')||'][l_temp_end_time='||TO_CHAR(l_temp_end_time, 'DD-MM-YYYY HH24:MI:SS')||']'||
675:
676: -- API body ends here
677:
678: -- Log API exit point
679: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
680: THEN
681: fnd_log.string
682: (
683: fnd_log.level_procedure,
677:
678: -- Log API exit point
679: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
680: THEN
681: fnd_log.string
682: (
683: fnd_log.level_procedure,
684: L_DEBUG_MODULE||'.end',
685: 'At the end of PLSQL procedure'
679: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
680: THEN
681: fnd_log.string
682: (
683: fnd_log.level_procedure,
684: L_DEBUG_MODULE||'.end',
685: 'At the end of PLSQL procedure'
686: );
687: END IF;
867: x_return_status := FND_API.G_RET_STS_SUCCESS;
868:
869: -- Log API entry point
870: ----dbms_output.put_line('At the start of PLSQL procedure');
871: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
872: THEN
873: fnd_log.string
874: (
875: fnd_log.level_procedure,
869: -- Log API entry point
870: ----dbms_output.put_line('At the start of PLSQL procedure');
871: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
872: THEN
873: fnd_log.string
874: (
875: fnd_log.level_procedure,
876: L_DEBUG_MODULE||'.begin',
877: 'At the start of PLSQL procedure'
871: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
872: THEN
873: fnd_log.string
874: (
875: fnd_log.level_procedure,
876: L_DEBUG_MODULE||'.begin',
877: 'At the start of PLSQL procedure'
878: );
879: END IF;
878: );
879: END IF;
880: -- API body starts here
881: -- log input values
882: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
883: fnd_log.string
884: (
885: fnd_log.level_statement,
886: L_DEBUG_MODULE,
879: END IF;
880: -- API body starts here
881: -- log input values
882: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
883: fnd_log.string
884: (
885: fnd_log.level_statement,
886: L_DEBUG_MODULE,
887: 'p_x_MEvent_Header_Rec.UNIT_CONFIG_HEADER_ID : ' || p_x_MEvent_Header_Rec.UNIT_CONFIG_HEADER_ID || ' ' ||
881: -- log input values
882: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
883: fnd_log.string
884: (
885: fnd_log.level_statement,
886: L_DEBUG_MODULE,
887: 'p_x_MEvent_Header_Rec.UNIT_CONFIG_HEADER_ID : ' || p_x_MEvent_Header_Rec.UNIT_CONFIG_HEADER_ID || ' ' ||
888: 'p_x_MEvent_Header_Rec.START_TIME : ' || p_x_MEvent_Header_Rec.START_TIME || ' ' ||
889: 'p_x_MEvent_Header_Rec.END_TIME : ' || p_x_MEvent_Header_Rec.END_TIME
894: p_x_MEvent_Header_Rec.START_TIME IS NULL OR
895: p_x_MEvent_Header_Rec.END_TIME IS NULL OR
896: p_x_MEvent_Header_Rec.END_TIME <= p_x_MEvent_Header_Rec.START_TIME)THEN
897: ----dbms_output.put_line('Unexpected error : Invalid Input');
898: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
899: fnd_log.string
900: (
901: fnd_log.level_error,
902: L_DEBUG_MODULE,
895: p_x_MEvent_Header_Rec.END_TIME IS NULL OR
896: p_x_MEvent_Header_Rec.END_TIME <= p_x_MEvent_Header_Rec.START_TIME)THEN
897: ----dbms_output.put_line('Unexpected error : Invalid Input');
898: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
899: fnd_log.string
900: (
901: fnd_log.level_error,
902: L_DEBUG_MODULE,
903: 'Unexpected error : Invalid Input'
897: ----dbms_output.put_line('Unexpected error : Invalid Input');
898: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
899: fnd_log.string
900: (
901: fnd_log.level_error,
902: L_DEBUG_MODULE,
903: 'Unexpected error : Invalid Input'
904: );
905: END IF;
922: FETCH context_info_csr INTO p_x_MEvent_Header_Rec.UNIT_NAME, p_x_MEvent_Header_Rec.ITEM_NUMBER,
923: p_x_MEvent_Header_Rec.SERIAL_NUMBER;
924: IF(context_info_csr%NOTFOUND)THEN
925: ----dbms_output.put_line('Unexpected error : Unit not found');
926: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
927: fnd_log.string
928: (
929: fnd_log.level_error,
930: L_DEBUG_MODULE,
923: p_x_MEvent_Header_Rec.SERIAL_NUMBER;
924: IF(context_info_csr%NOTFOUND)THEN
925: ----dbms_output.put_line('Unexpected error : Unit not found');
926: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
927: fnd_log.string
928: (
929: fnd_log.level_error,
930: L_DEBUG_MODULE,
931: 'Unexpected error : unit not found'
925: ----dbms_output.put_line('Unexpected error : Unit not found');
926: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
927: fnd_log.string
928: (
929: fnd_log.level_error,
930: L_DEBUG_MODULE,
931: 'Unexpected error : unit not found'
932: );
933: END IF;
953: x_event_schedules => l_event_schedule_tbl);
954: -- Check for API errors
955: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
956: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.get_all_events returned errors');
957: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
958: fnd_log.string
959: (
960: fnd_log.level_error,
961: L_DEBUG_MODULE,
954: -- Check for API errors
955: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
956: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.get_all_events returned errors');
957: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
958: fnd_log.string
959: (
960: fnd_log.level_error,
961: L_DEBUG_MODULE,
962: 'Unexpected error : AHL_UA_COMMON_PVT.get_all_events returned errors'
956: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.get_all_events returned errors');
957: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
958: fnd_log.string
959: (
960: fnd_log.level_error,
961: L_DEBUG_MODULE,
962: 'Unexpected error : AHL_UA_COMMON_PVT.get_all_events returned errors'
963: );
964: END IF;
988: );
989: -- Check for API errors
990: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
991: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.Get_Prec_Flight_Info returned errors');
992: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
993: fnd_log.string
994: (
995: fnd_log.level_error,
996: L_DEBUG_MODULE,
989: -- Check for API errors
990: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
991: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.Get_Prec_Flight_Info returned errors');
992: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
993: fnd_log.string
994: (
995: fnd_log.level_error,
996: L_DEBUG_MODULE,
997: 'Unexpected error : AHL_UA_COMMON_PVT.Get_Prec_Flight_Info returned errors'
991: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.Get_Prec_Flight_Info returned errors');
992: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
993: fnd_log.string
994: (
995: fnd_log.level_error,
996: L_DEBUG_MODULE,
997: 'Unexpected error : AHL_UA_COMMON_PVT.Get_Prec_Flight_Info returned errors'
998: );
999: END IF;
1030: );
1031: -- Check for API errors
1032: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1033: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.Get_Prec_Visit_Info returned errors');
1034: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1035: fnd_log.string
1036: (
1037: fnd_log.level_error,
1038: L_DEBUG_MODULE,
1031: -- Check for API errors
1032: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1033: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.Get_Prec_Visit_Info returned errors');
1034: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1035: fnd_log.string
1036: (
1037: fnd_log.level_error,
1038: L_DEBUG_MODULE,
1039: 'Unexpected error : AHL_UA_COMMON_PVT.Get_Prec_Event_Info returned errors'
1033: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.Get_Prec_Visit_Info returned errors');
1034: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1035: fnd_log.string
1036: (
1037: fnd_log.level_error,
1038: L_DEBUG_MODULE,
1039: 'Unexpected error : AHL_UA_COMMON_PVT.Get_Prec_Event_Info returned errors'
1040: );
1041: END IF;
1114: );
1115: -- Check for API errors
1116: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1117: ----dbms_output.put_line('Unexpected error : AHL_UA_FLIGHT_SCHEDULES_PUB.Get_Flight_Schedule_Details returned error');
1118: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1119: fnd_log.string
1120: (
1121: fnd_log.level_error,
1122: L_DEBUG_MODULE,
1115: -- Check for API errors
1116: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1117: ----dbms_output.put_line('Unexpected error : AHL_UA_FLIGHT_SCHEDULES_PUB.Get_Flight_Schedule_Details returned error');
1118: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1119: fnd_log.string
1120: (
1121: fnd_log.level_error,
1122: L_DEBUG_MODULE,
1123: 'Unexpected error : AHL_UA_FLIGHT_SCHEDULES_PUB.Get_Flight_Schedule_Details returned error'
1117: ----dbms_output.put_line('Unexpected error : AHL_UA_FLIGHT_SCHEDULES_PUB.Get_Flight_Schedule_Details returned error');
1118: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1119: fnd_log.string
1120: (
1121: fnd_log.level_error,
1122: L_DEBUG_MODULE,
1123: 'Unexpected error : AHL_UA_FLIGHT_SCHEDULES_PUB.Get_Flight_Schedule_Details returned error'
1124: );
1125: END IF;
1208: );
1209: -- Check for API errors
1210: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1211: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.Get_Succ_Event_Info returned errors');
1212: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1213: fnd_log.string
1214: (
1215: fnd_log.level_error,
1216: L_DEBUG_MODULE,
1209: -- Check for API errors
1210: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1211: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.Get_Succ_Event_Info returned errors');
1212: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1213: fnd_log.string
1214: (
1215: fnd_log.level_error,
1216: L_DEBUG_MODULE,
1217: 'Unexpected error : AHL_UA_COMMON_PVT.Get_Succ_Event_Info returned errors'
1211: ----dbms_output.put_line('Unexpected error : AHL_UA_COMMON_PVT.Get_Succ_Event_Info returned errors');
1212: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1213: fnd_log.string
1214: (
1215: fnd_log.level_error,
1216: L_DEBUG_MODULE,
1217: 'Unexpected error : AHL_UA_COMMON_PVT.Get_Succ_Event_Info returned errors'
1218: );
1219: END IF;
1345: END IF;
1346:
1347: ----dbms_output.put_line('returning after success');
1348: -- Log API exit point
1349: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1350: THEN
1351: fnd_log.string
1352: (
1353: fnd_log.level_procedure,
1347: ----dbms_output.put_line('returning after success');
1348: -- Log API exit point
1349: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1350: THEN
1351: fnd_log.string
1352: (
1353: fnd_log.level_procedure,
1354: L_DEBUG_MODULE||'.end',
1355: 'At the end of PLSQL procedure'
1349: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1350: THEN
1351: fnd_log.string
1352: (
1353: fnd_log.level_procedure,
1354: L_DEBUG_MODULE||'.end',
1355: 'At the end of PLSQL procedure'
1356: );
1357: END IF;
1447:
1448: BEGIN
1449: -- Log API entry point
1450: ----dbms_output.put_line('adding flight record for unit_schedule_id : ' || p_unit_flight_schedule_rec.UNIT_SCHEDULE_ID);
1451: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1452: THEN
1453: fnd_log.string
1454: (
1455: fnd_log.level_procedure,
1449: -- Log API entry point
1450: ----dbms_output.put_line('adding flight record for unit_schedule_id : ' || p_unit_flight_schedule_rec.UNIT_SCHEDULE_ID);
1451: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1452: THEN
1453: fnd_log.string
1454: (
1455: fnd_log.level_procedure,
1456: L_DEBUG_MODULE||'.begin',
1457: 'At the start of PLSQL procedure'
1451: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1452: THEN
1453: fnd_log.string
1454: (
1455: fnd_log.level_procedure,
1456: L_DEBUG_MODULE||'.begin',
1457: 'At the start of PLSQL procedure'
1458: );
1459: END IF;
1484: );
1485: -- Check for API errors
1486: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1487: ----dbms_output.put_line('Unexpected error : AHL_UTILITY_PVT.IS_ORG_IN_USER_OU returned errors');
1488: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1489: fnd_log.string
1490: (
1491: fnd_log.level_error,
1492: L_DEBUG_MODULE,
1485: -- Check for API errors
1486: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1487: ----dbms_output.put_line('Unexpected error : AHL_UTILITY_PVT.IS_ORG_IN_USER_OU returned errors');
1488: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1489: fnd_log.string
1490: (
1491: fnd_log.level_error,
1492: L_DEBUG_MODULE,
1493: 'Unexpected error : AHL_UTILITY_PVT.IS_ORG_IN_USER_OU returned errors'
1487: ----dbms_output.put_line('Unexpected error : AHL_UTILITY_PVT.IS_ORG_IN_USER_OU returned errors');
1488: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1489: fnd_log.string
1490: (
1491: fnd_log.level_error,
1492: L_DEBUG_MODULE,
1493: 'Unexpected error : AHL_UTILITY_PVT.IS_ORG_IN_USER_OU returned errors'
1494: );
1495: END IF;
1696: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
1697: END IF;
1698:
1699: -- Log API exit point
1700: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1701: THEN
1702: fnd_log.string
1703: (
1704: fnd_log.level_procedure,
1698:
1699: -- Log API exit point
1700: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1701: THEN
1702: fnd_log.string
1703: (
1704: fnd_log.level_procedure,
1705: L_DEBUG_MODULE||'.end',
1706: 'At the end of PLSQL procedure'
1700: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1701: THEN
1702: fnd_log.string
1703: (
1704: fnd_log.level_procedure,
1705: L_DEBUG_MODULE||'.end',
1706: 'At the end of PLSQL procedure'
1707: );
1708: END IF;
1749: l_prev_event_end_time DATE;
1750:
1751: BEGIN
1752: -- Log API entry point
1753: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1754: THEN
1755: fnd_log.string
1756: (
1757: fnd_log.level_procedure,
1751: BEGIN
1752: -- Log API entry point
1753: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1754: THEN
1755: fnd_log.string
1756: (
1757: fnd_log.level_procedure,
1758: L_DEBUG_MODULE||'.begin',
1759: 'At the start of PLSQL procedure'
1753: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1754: THEN
1755: fnd_log.string
1756: (
1757: fnd_log.level_procedure,
1758: L_DEBUG_MODULE||'.begin',
1759: 'At the start of PLSQL procedure'
1760: );
1761: END IF;
1791: );
1792: -- Check for API errors
1793: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1794: ----dbms_output.put_line('Unexpected error : AHL_UTILITY_PVT.IS_ORG_IN_USER_OU returned errors');
1795: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1796: fnd_log.string
1797: (
1798: fnd_log.level_error,
1799: L_DEBUG_MODULE,
1792: -- Check for API errors
1793: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1794: ----dbms_output.put_line('Unexpected error : AHL_UTILITY_PVT.IS_ORG_IN_USER_OU returned errors');
1795: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1796: fnd_log.string
1797: (
1798: fnd_log.level_error,
1799: L_DEBUG_MODULE,
1800: 'Unexpected error : AHL_UTILITY_PVT.IS_ORG_IN_USER_OU returned errors'
1794: ----dbms_output.put_line('Unexpected error : AHL_UTILITY_PVT.IS_ORG_IN_USER_OU returned errors');
1795: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1796: fnd_log.string
1797: (
1798: fnd_log.level_error,
1799: L_DEBUG_MODULE,
1800: 'Unexpected error : AHL_UTILITY_PVT.IS_ORG_IN_USER_OU returned errors'
1801: );
1802: END IF;
2002: p_x_MEvent_Header_Rec.HAS_MOPPORTUNITY := FND_API.G_TRUE;
2003: END IF;
2004:
2005: -- Log API exit point
2006: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2007: THEN
2008: fnd_log.string
2009: (
2010: fnd_log.level_procedure,
2004:
2005: -- Log API exit point
2006: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2007: THEN
2008: fnd_log.string
2009: (
2010: fnd_log.level_procedure,
2011: L_DEBUG_MODULE||'.end',
2012: 'At the end of PLSQL procedure'
2006: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2007: THEN
2008: fnd_log.string
2009: (
2010: fnd_log.level_procedure,
2011: L_DEBUG_MODULE||'.end',
2012: 'At the end of PLSQL procedure'
2013: );
2014: END IF;
2072: -- Initialize API return status to success
2073: x_return_status := FND_API.G_RET_STS_SUCCESS;
2074:
2075: -- Log API entry point
2076: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2077: THEN
2078: fnd_log.string
2079: (
2080: fnd_log.level_procedure,
2074:
2075: -- Log API entry point
2076: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2077: THEN
2078: fnd_log.string
2079: (
2080: fnd_log.level_procedure,
2081: L_DEBUG_MODULE||'.begin',
2082: 'At the start of PLSQL procedure'
2076: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2077: THEN
2078: fnd_log.string
2079: (
2080: fnd_log.level_procedure,
2081: L_DEBUG_MODULE||'.begin',
2082: 'At the start of PLSQL procedure'
2083: );
2084: END IF;
2110: RAISE FND_API.G_EXC_ERROR;
2111: END IF;
2112: CLOSE check_unit_exists;
2113:
2114: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2115: THEN
2116: fnd_log.string
2117: (
2118: fnd_log.level_statement,
2112: CLOSE check_unit_exists;
2113:
2114: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2115: THEN
2116: fnd_log.string
2117: (
2118: fnd_log.level_statement,
2119: L_DEBUG_MODULE,
2120: 'Basic validations done'
2114: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2115: THEN
2116: fnd_log.string
2117: (
2118: fnd_log.level_statement,
2119: L_DEBUG_MODULE,
2120: 'Basic validations done'
2121: );
2122: END IF;
2136: x_is_conflict => x_is_prec_conflict,
2137: x_is_org_in_user_ou => x_is_prec_org_in_ou
2138: );
2139:
2140: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2141: THEN
2142: fnd_log.string
2143: (
2144: fnd_log.level_statement,
2138: );
2139:
2140: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2141: THEN
2142: fnd_log.string
2143: (
2144: fnd_log.level_statement,
2145: L_DEBUG_MODULE,
2146: 'After calling AHL_UA_COMMON_PVT.Get_Prec_Event_Info [x_is_prec_conflict='||x_is_prec_conflict||']'
2140: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2141: THEN
2142: fnd_log.string
2143: (
2144: fnd_log.level_statement,
2145: L_DEBUG_MODULE,
2146: 'After calling AHL_UA_COMMON_PVT.Get_Prec_Event_Info [x_is_prec_conflict='||x_is_prec_conflict||']'
2147: );
2148: END IF;
2164: x_is_conflict => x_is_succ_conflict,
2165: x_is_org_in_user_ou => x_is_succ_org_in_ou
2166: );
2167:
2168: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2169: THEN
2170: fnd_log.string
2171: (
2172: fnd_log.level_statement,
2166: );
2167:
2168: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2169: THEN
2170: fnd_log.string
2171: (
2172: fnd_log.level_statement,
2173: L_DEBUG_MODULE,
2174: 'After calling AHL_UA_COMMON_PVT.Get_Succ_Event_Info [x_is_succ_conflict='||x_is_succ_conflict||']'
2168: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2169: THEN
2170: fnd_log.string
2171: (
2172: fnd_log.level_statement,
2173: L_DEBUG_MODULE,
2174: 'After calling AHL_UA_COMMON_PVT.Get_Succ_Event_Info [x_is_succ_conflict='||x_is_succ_conflict||']'
2175: );
2176: END IF;
2176: END IF;
2177: -- API body ends here
2178:
2179: -- Log API exit point
2180: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2181: THEN
2182: fnd_log.string
2183: (
2184: fnd_log.level_procedure,
2178:
2179: -- Log API exit point
2180: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2181: THEN
2182: fnd_log.string
2183: (
2184: fnd_log.level_procedure,
2185: L_DEBUG_MODULE||'.end',
2186: 'At the end of PLSQL procedure'
2180: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2181: THEN
2182: fnd_log.string
2183: (
2184: fnd_log.level_procedure,
2185: L_DEBUG_MODULE||'.end',
2186: 'At the end of PLSQL procedure'
2187: );
2188: END IF;