63: l_msg_data VARCHAR2(2000);
64:
65: BEGIN
66:
67: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
68: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
69: END IF;
70:
71: --Initialize API return status to success -- PRAKKUM :: 02/06/2011 :: VWPE :: Initialized to success by default
64:
65: BEGIN
66:
67: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
68: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
69: END IF;
70:
71: --Initialize API return status to success -- PRAKKUM :: 02/06/2011 :: VWPE :: Initialized to success by default
72: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
136: RAISE Fnd_Api.G_EXC_ERROR;
137: END IF;
138: END IF;
139:
140: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
141: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
142: END IF;
143:
144: Fnd_Msg_Pub.count_and_get(
137: END IF;
138: END IF;
139:
140: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
141: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
142: END IF;
143:
144: Fnd_Msg_Pub.count_and_get(
145: p_encoded => Fnd_Api.g_false,
214: L_DEBUG CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
215:
216: BEGIN
217:
218: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
219: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
220: END IF;
221:
222: --Initialize API return status to success -- PRAKKUM :: 02/06/2011 :: VWPE :: Initialized to success by default
215:
216: BEGIN
217:
218: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
219: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
220: END IF;
221:
222: --Initialize API return status to success -- PRAKKUM :: 02/06/2011 :: VWPE :: Initialized to success by default
223: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
251: RAISE Fnd_Api.G_EXC_ERROR;
252: END IF;
253: END IF;
254:
255: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
256: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
257: END IF;
258:
259: EXCEPTION
252: END IF;
253: END IF;
254:
255: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
256: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
257: END IF;
258:
259: EXCEPTION
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
854: END IF;
855: x_return_status := Fnd_Api.G_RET_STS_ERROR;
856: END IF;
857:
858: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
859:
860: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.visit_id '||p_space_assign_rec.visit_id);
861: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.space_id '||p_space_assign_rec.space_id);
862: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.start_from '||p_space_assign_rec.start_from);
856: END IF;
857:
858: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
859:
860: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.visit_id '||p_space_assign_rec.visit_id);
861: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.space_id '||p_space_assign_rec.space_id);
862: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.start_from '||p_space_assign_rec.start_from);
863: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.end_to '||p_space_assign_rec.end_to);
864: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.space_assignment_id '||p_space_assign_rec.space_assignment_id);
857:
858: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
859:
860: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.visit_id '||p_space_assign_rec.visit_id);
861: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.space_id '||p_space_assign_rec.space_id);
862: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.start_from '||p_space_assign_rec.start_from);
863: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.end_to '||p_space_assign_rec.end_to);
864: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.space_assignment_id '||p_space_assign_rec.space_assignment_id);
865:
858: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
859:
860: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.visit_id '||p_space_assign_rec.visit_id);
861: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.space_id '||p_space_assign_rec.space_id);
862: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.start_from '||p_space_assign_rec.start_from);
863: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.end_to '||p_space_assign_rec.end_to);
864: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.space_assignment_id '||p_space_assign_rec.space_assignment_id);
865:
866: END IF;
859:
860: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.visit_id '||p_space_assign_rec.visit_id);
861: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.space_id '||p_space_assign_rec.space_id);
862: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.start_from '||p_space_assign_rec.start_from);
863: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.end_to '||p_space_assign_rec.end_to);
864: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.space_assignment_id '||p_space_assign_rec.space_assignment_id);
865:
866: END IF;
867:
860: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.visit_id '||p_space_assign_rec.visit_id);
861: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.space_id '||p_space_assign_rec.space_id);
862: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.start_from '||p_space_assign_rec.start_from);
863: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.end_to '||p_space_assign_rec.end_to);
864: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_space_assign_rec.space_assignment_id '||p_space_assign_rec.space_assignment_id);
865:
866: END IF;
867:
868: -- Validate uniqueness
894: nvl(p_space_assign_rec.end_to,nvl(l_end_date_time,l_start_date_time)));
895: LOOP
896: FETCH space_unavailable_cur INTO l_start_date,l_end_date;
897:
898: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
899: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'nvl(p_space_assign_rec.START_FROM,l_start_date_time) '||nvl(p_space_assign_rec.START_FROM,l_start_date_time));
900: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'nvl(p_space_assign_rec.end_to,nvl(l_end_date_time,l_start_date_time)) '||nvl(p_space_assign_rec.end_to,nvl(l_end_date_time,l_start_date_time)));
901: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_start_date '||l_start_date||' ; l_end_date '||l_end_date);
902: IF space_unavailable_cur%FOUND THEN
895: LOOP
896: FETCH space_unavailable_cur INTO l_start_date,l_end_date;
897:
898: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
899: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'nvl(p_space_assign_rec.START_FROM,l_start_date_time) '||nvl(p_space_assign_rec.START_FROM,l_start_date_time));
900: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'nvl(p_space_assign_rec.end_to,nvl(l_end_date_time,l_start_date_time)) '||nvl(p_space_assign_rec.end_to,nvl(l_end_date_time,l_start_date_time)));
901: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_start_date '||l_start_date||' ; l_end_date '||l_end_date);
902: IF space_unavailable_cur%FOUND THEN
903: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'space_unavailable_cur FOUND');
896: FETCH space_unavailable_cur INTO l_start_date,l_end_date;
897:
898: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
899: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'nvl(p_space_assign_rec.START_FROM,l_start_date_time) '||nvl(p_space_assign_rec.START_FROM,l_start_date_time));
900: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'nvl(p_space_assign_rec.end_to,nvl(l_end_date_time,l_start_date_time)) '||nvl(p_space_assign_rec.end_to,nvl(l_end_date_time,l_start_date_time)));
901: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_start_date '||l_start_date||' ; l_end_date '||l_end_date);
902: IF space_unavailable_cur%FOUND THEN
903: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'space_unavailable_cur FOUND');
904: END IF;
897:
898: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
899: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'nvl(p_space_assign_rec.START_FROM,l_start_date_time) '||nvl(p_space_assign_rec.START_FROM,l_start_date_time));
900: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'nvl(p_space_assign_rec.end_to,nvl(l_end_date_time,l_start_date_time)) '||nvl(p_space_assign_rec.end_to,nvl(l_end_date_time,l_start_date_time)));
901: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_start_date '||l_start_date||' ; l_end_date '||l_end_date);
902: IF space_unavailable_cur%FOUND THEN
903: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'space_unavailable_cur FOUND');
904: END IF;
905: END IF;
899: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'nvl(p_space_assign_rec.START_FROM,l_start_date_time) '||nvl(p_space_assign_rec.START_FROM,l_start_date_time));
900: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'nvl(p_space_assign_rec.end_to,nvl(l_end_date_time,l_start_date_time)) '||nvl(p_space_assign_rec.end_to,nvl(l_end_date_time,l_start_date_time)));
901: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_start_date '||l_start_date||' ; l_end_date '||l_end_date);
902: IF space_unavailable_cur%FOUND THEN
903: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'space_unavailable_cur FOUND');
904: END IF;
905: END IF;
906:
907: EXIT WHEN space_unavailable_cur%NOTFOUND;
2185: l_Visit_tbl ahl_vwp_visits_pvt.Visit_Tbl_Type;
2186: i number := 0;
2187: BEGIN
2188:
2189: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2190: fnd_log.string
2191: (
2192: fnd_log.level_procedure,
2193: 'ahl.plsql.AHL_LTP_SPACE_ASSIGN_PVT.Schedule_Visit',
2186: i number := 0;
2187: BEGIN
2188:
2189: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2190: fnd_log.string
2191: (
2192: fnd_log.level_procedure,
2193: 'ahl.plsql.AHL_LTP_SPACE_ASSIGN_PVT.Schedule_Visit',
2194: 'At the start of PLSQL procedure'
2188:
2189: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2190: fnd_log.string
2191: (
2192: fnd_log.level_procedure,
2193: 'ahl.plsql.AHL_LTP_SPACE_ASSIGN_PVT.Schedule_Visit',
2194: 'At the start of PLSQL procedure'
2195: );
2196: END IF;
2541: l_Visit_tbl(i).VISIT_TYPE_NAME := p_x_schedule_visit_rec.visit_type_mean;
2542: l_Visit_tbl(i).OPERATION_FLAG := 'U';
2543:
2544: IF l_Visit_tbl.COUNT > 0 THEN
2545: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2546: fnd_log.string
2547: (
2548: fnd_log.level_statement,
2549: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2542: l_Visit_tbl(i).OPERATION_FLAG := 'U';
2543:
2544: IF l_Visit_tbl.COUNT > 0 THEN
2545: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2546: fnd_log.string
2547: (
2548: fnd_log.level_statement,
2549: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2550: 'Before Calling ahl Vwp Visits Pvt Process Visit Records : '|| l_visit_tbl.count
2544: IF l_Visit_tbl.COUNT > 0 THEN
2545: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2546: fnd_log.string
2547: (
2548: fnd_log.level_statement,
2549: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2550: 'Before Calling ahl Vwp Visits Pvt Process Visit Records : '|| l_visit_tbl.count
2551: );
2552: END IF;
2564: x_msg_data => l_msg_data
2565: );
2566: END IF;
2567:
2568: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2569: fnd_log.string
2570: (
2571: fnd_log.level_statement,
2572: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2565: );
2566: END IF;
2567:
2568: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2569: fnd_log.string
2570: (
2571: fnd_log.level_statement,
2572: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2573: 'Before Calling ahl Vwp Visits Pvt status : '|| l_return_status
2567:
2568: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2569: fnd_log.string
2570: (
2571: fnd_log.level_statement,
2572: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2573: 'Before Calling ahl Vwp Visits Pvt status : '|| l_return_status
2574: );
2575: END IF;
2596: AHL_DEBUG_PUB.debug( 'before calling Start Date:'||p_x_schedule_visit_rec.start_date);
2597: AHL_DEBUG_PUB.debug( 'before calling Org ID:'||p_x_schedule_visit_rec.org_id);
2598: END IF;
2599:
2600: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2601: fnd_log.string
2602: (
2603: fnd_log.level_statement,
2604: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2597: AHL_DEBUG_PUB.debug( 'before calling Org ID:'||p_x_schedule_visit_rec.org_id);
2598: END IF;
2599:
2600: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2601: fnd_log.string
2602: (
2603: fnd_log.level_statement,
2604: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2605: 'Before Calling ahl ltp reqst matrl pvt Modify Visit Task Material for Visit Id : '|| l_visit_id
2599:
2600: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2601: fnd_log.string
2602: (
2603: fnd_log.level_statement,
2604: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2605: 'Before Calling ahl ltp reqst matrl pvt Modify Visit Task Material for Visit Id : '|| l_visit_id
2606: );
2607: END IF;
2939: l_visit_tbl(i).object_version_number := p_x_schedule_visit_rec.object_version_number;
2940: l_visit_tbl(i).operation_flag := 'U';
2941:
2942: IF l_Visit_tbl.COUNT > 0 THEN
2943: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2944: fnd_log.string
2945: (
2946: fnd_log.level_statement,
2947: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2940: l_visit_tbl(i).operation_flag := 'U';
2941:
2942: IF l_Visit_tbl.COUNT > 0 THEN
2943: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2944: fnd_log.string
2945: (
2946: fnd_log.level_statement,
2947: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2948: 'Before Calling ahl Vwp Visits Pvt Process Visit Records : '|| l_visit_tbl.count
2942: IF l_Visit_tbl.COUNT > 0 THEN
2943: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2944: fnd_log.string
2945: (
2946: fnd_log.level_statement,
2947: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2948: 'Before Calling ahl Vwp Visits Pvt Process Visit Records : '|| l_visit_tbl.count
2949: );
2950:
2963: x_msg_data => l_msg_data
2964: );
2965: END IF;
2966:
2967: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2968: fnd_log.string
2969: (
2970: fnd_log.level_statement,
2971: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2964: );
2965: END IF;
2966:
2967: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2968: fnd_log.string
2969: (
2970: fnd_log.level_statement,
2971: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2972: 'After Calling ahl Vwp Visits Pvt status : '|| l_return_status
2966:
2967: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2968: fnd_log.string
2969: (
2970: fnd_log.level_statement,
2971: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2972: 'After Calling ahl Vwp Visits Pvt status : '|| l_return_status
2973: );
2974: