[Home] [Help]
2093: --
2094: -- NOTES
2095: -- anraj: 09-FEB-2005
2096: -- i. The calls to AHL_LTP_REQST_MATRL_PVT.Modify_Visit_Task_Matrls has been commnetd out because
2097: -- it is handled in AHL_VWP_VISITS_PVT.Process_Visit.
2098: -- ii. The code to remove space assignment has been commented because it is handled in AHL_VWP_VISITS_PVT.Process_Visit
2099: -- iii. Commented cursors c_space_assign_cur,c_visit_sched_cur,visit_info_cur
2100: PROCEDURE Schedule_Visit (
2101: p_api_version IN NUMBER,
2094: -- NOTES
2095: -- anraj: 09-FEB-2005
2096: -- i. The calls to AHL_LTP_REQST_MATRL_PVT.Modify_Visit_Task_Matrls has been commnetd out because
2097: -- it is handled in AHL_VWP_VISITS_PVT.Process_Visit.
2098: -- ii. The code to remove space assignment has been commented because it is handled in AHL_VWP_VISITS_PVT.Process_Visit
2099: -- iii. Commented cursors c_space_assign_cur,c_visit_sched_cur,visit_info_cur
2100: PROCEDURE Schedule_Visit (
2101: p_api_version IN NUMBER,
2102: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2181: --
2182: l_schedule_visit_rec schedule_visit_cur%ROWTYPE;
2183: --l_space_assign_rec c_space_assign_cur%ROWTYPE;
2184: --
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
2400: AHL_DEBUG_PUB.debug( 'schedule visits schedule_flag'||p_x_schedule_visit_rec.schedule_flag);
2401: END IF;
2402:
2403: -- anraj: commented, issue number 144
2404: -- commented since space assigments are taken care of in the AHL_VWP_VISITS_PVT.Process_Visit
2405: /*
2406: IF p_x_schedule_visit_rec.schedule_flag <> 'Y' THEN
2407: -- Check for the visit has been assigned to different org and department
2408: IF ( p_x_schedule_visit_rec.org_id IS NOT NULL AND
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;
2553:
2554: AHL_VWP_VISITS_PVT.Process_Visit
2550: 'Before Calling ahl Vwp Visits Pvt Process Visit Records : '|| l_visit_tbl.count
2551: );
2552: END IF;
2553:
2554: AHL_VWP_VISITS_PVT.Process_Visit
2555: (
2556: p_api_version => p_api_version,
2557: p_init_msg_list => p_init_msg_list,
2558: p_commit => p_commit,
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;
2576:
2577: -- Check Error Message stack.
2582: END IF;
2583: END IF;
2584:
2585:
2586: -- anraj commented as material planning is handled in AHL_VWP_VISITS_PVT.Process_Visit
2587: -- issue number 144, LTP issues , CMRO Forum
2588: /*
2589: IF (p_x_schedule_visit_rec.org_id <> l_organization_id OR
2590: trunc(p_x_schedule_visit_rec.start_date) <> l_start_date_time OR
2710: --
2711: -- NOTES
2712: -- anraj: 09-FEB-2005
2713: -- i. Commented the UPDATE of ahl_schedule_materials
2714: -- ii. The code to remove space assignment has been commented because it is handled in AHL_VWP_VISITS_PVT.Process_Visit
2715: -- iii. Commented cursors c_space_assign_cur,c_visit_task_matrl_cur,c_sch_mat_cur
2716: PROCEDURE Unschedule_Visit (
2717: p_api_version IN NUMBER,
2718: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2778: --l_schedule_material_id NUMBER;
2779: --l_scheduled_date DATE;
2780: --l_scheduled_quantity NUMBER;
2781: --
2782: l_visit_tbl AHL_VWP_VISITS_PVT.Visit_Tbl_Type;
2783: i NUMBER := 0;
2784: l_visit_name VARCHAR2(80);
2785: BEGIN
2786: --------------------Initialize ----------------------------------
2850: RAISE Fnd_Api.G_EXC_ERROR;
2851: END IF;
2852: --
2853: --Check for material scheduling
2854: -- anraj commented because material scheduling is handled in AHL_VWP_VISITS_PVT.Process_Visit
2855: -- issue number 144, LTP issues , CMRO Forum
2856: /*
2857: OPEN c_sch_mat_cur(l_visit_id);
2858: LOOP
2887: */
2888: --
2889: --Check for Record in space assignments
2890: -- anraj: commented, issue number 144
2891: -- commented since space assigments are taken care of in the AHL_VWP_VISITS_PVT.Process_Visit
2892: /*
2893: IF l_visit_id IS NOT NULL THEN
2894: OPEN c_space_assign_cur(l_visit_id);
2895: LOOP
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:
2951: END IF;
2952:
2949: );
2950:
2951: END IF;
2952:
2953: AHL_VWP_VISITS_PVT.Process_Visit
2954: (
2955: p_api_version => p_api_version,
2956: p_init_msg_list => p_init_msg_list,
2957: p_commit => p_commit,
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:
2975: END IF;
2976: