[Home] [Help]
1683: --
1684: -- NOTES
1685: -- anraj: 09-FEB-2005
1686: -- i. The calls to AHL_LTP_REQST_MATRL_PVT.Modify_Visit_Task_Matrls has been commnetd out because
1687: -- it is handled in AHL_VWP_VISITS_PVT.Process_Visit.
1688: -- ii. The code to remove space assignment has been commented because it is handled in AHL_VWP_VISITS_PVT.Process_Visit
1689: -- iii. Commented cursors c_space_assign_cur,c_visit_sched_cur,visit_info_cur
1690: PROCEDURE Schedule_Visit (
1691: p_api_version IN NUMBER,
1684: -- NOTES
1685: -- anraj: 09-FEB-2005
1686: -- i. The calls to AHL_LTP_REQST_MATRL_PVT.Modify_Visit_Task_Matrls has been commnetd out because
1687: -- it is handled in AHL_VWP_VISITS_PVT.Process_Visit.
1688: -- ii. The code to remove space assignment has been commented because it is handled in AHL_VWP_VISITS_PVT.Process_Visit
1689: -- iii. Commented cursors c_space_assign_cur,c_visit_sched_cur,visit_info_cur
1690: PROCEDURE Schedule_Visit (
1691: p_api_version IN NUMBER,
1692: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1771: --
1772: l_schedule_visit_rec schedule_visit_cur%ROWTYPE;
1773: --l_space_assign_rec c_space_assign_cur%ROWTYPE;
1774: --
1775: l_Visit_tbl ahl_vwp_visits_pvt.Visit_Tbl_Type;
1776: i number := 0;
1777: BEGIN
1778:
1779: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1990: AHL_DEBUG_PUB.debug( 'schedule visits schedule_flag'||p_x_schedule_visit_rec.schedule_flag);
1991: END IF;
1992:
1993: -- anraj: commented, issue number 144
1994: -- commented since space assigments are taken care of in the AHL_VWP_VISITS_PVT.Process_Visit
1995: /*
1996: IF p_x_schedule_visit_rec.schedule_flag <> 'Y' THEN
1997: -- Check for the visit has been assigned to different org and department
1998: IF ( p_x_schedule_visit_rec.org_id IS NOT NULL AND
2136: fnd_log.string
2137: (
2138: fnd_log.level_statement,
2139: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2140: 'Before Calling ahl Vwp Visits Pvt Process Visit Records : '|| l_visit_tbl.count
2141: );
2142: END IF;
2143:
2144: AHL_VWP_VISITS_PVT.Process_Visit
2140: 'Before Calling ahl Vwp Visits Pvt Process Visit Records : '|| l_visit_tbl.count
2141: );
2142: END IF;
2143:
2144: AHL_VWP_VISITS_PVT.Process_Visit
2145: (
2146: p_api_version => p_api_version,
2147: p_init_msg_list => p_init_msg_list,
2148: p_commit => p_commit,
2159: fnd_log.string
2160: (
2161: fnd_log.level_statement,
2162: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2163: 'Before Calling ahl Vwp Visits Pvt status : '|| l_return_status
2164: );
2165: END IF;
2166:
2167: -- Check Error Message stack.
2172: END IF;
2173: END IF;
2174:
2175:
2176: -- anraj commented as material planning is handled in AHL_VWP_VISITS_PVT.Process_Visit
2177: -- issue number 144, LTP issues , CMRO Forum
2178: /*
2179: IF (p_x_schedule_visit_rec.org_id <> l_organization_id OR
2180: trunc(p_x_schedule_visit_rec.start_date) <> l_start_date_time OR
2300: --
2301: -- NOTES
2302: -- anraj: 09-FEB-2005
2303: -- i. Commented the UPDATE of ahl_schedule_materials
2304: -- ii. The code to remove space assignment has been commented because it is handled in AHL_VWP_VISITS_PVT.Process_Visit
2305: -- iii. Commented cursors c_space_assign_cur,c_visit_task_matrl_cur,c_sch_mat_cur
2306: PROCEDURE Unschedule_Visit (
2307: p_api_version IN NUMBER,
2308: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2368: --l_schedule_material_id NUMBER;
2369: --l_scheduled_date DATE;
2370: --l_scheduled_quantity NUMBER;
2371: --
2372: l_visit_tbl AHL_VWP_VISITS_PVT.Visit_Tbl_Type;
2373: i NUMBER := 0;
2374: l_visit_name VARCHAR2(80);
2375: BEGIN
2376: --------------------Initialize ----------------------------------
2440: RAISE Fnd_Api.G_EXC_ERROR;
2441: END IF;
2442: --
2443: --Check for material scheduling
2444: -- anraj commented because material scheduling is handled in AHL_VWP_VISITS_PVT.Process_Visit
2445: -- issue number 144, LTP issues , CMRO Forum
2446: /*
2447: OPEN c_sch_mat_cur(l_visit_id);
2448: LOOP
2477: */
2478: --
2479: --Check for Record in space assignments
2480: -- anraj: commented, issue number 144
2481: -- commented since space assigments are taken care of in the AHL_VWP_VISITS_PVT.Process_Visit
2482: /*
2483: IF l_visit_id IS NOT NULL THEN
2484: OPEN c_space_assign_cur(l_visit_id);
2485: LOOP
2534: fnd_log.string
2535: (
2536: fnd_log.level_statement,
2537: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2538: 'Before Calling ahl Vwp Visits Pvt Process Visit Records : '|| l_visit_tbl.count
2539: );
2540:
2541: END IF;
2542:
2539: );
2540:
2541: END IF;
2542:
2543: AHL_VWP_VISITS_PVT.Process_Visit
2544: (
2545: p_api_version => p_api_version,
2546: p_init_msg_list => p_init_msg_list,
2547: p_commit => p_commit,
2558: fnd_log.string
2559: (
2560: fnd_log.level_statement,
2561: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2562: 'After Calling ahl Vwp Visits Pvt status : '|| l_return_status
2563: );
2564:
2565: END IF;
2566: