[Home] [Help]
216:
217: -- To find visit related information
218: CURSOR c_visit (x_id IN NUMBER)
219: IS
220: SELECT START_DATE_TIME , department_id FROM AHL_VISITS_VL
221: WHERE VISIT_ID = x_id;
222: --
223: -- SATHAPLI::DFF Project, 05-Jan-2010, fetch the DFF data as well
224: /*
526:
527: -- To find whether id already exists
528: CURSOR c_visit (vst_id IN NUMBER) IS
529: SELECT START_DATE_TIME , department_id, visit_type_code, AHL_VWP_VISITS_PVT.Is_Old_Visit(VISIT_ID) IS_OLD_VISIT
530: FROM AHL_VISITS_VL
531: WHERE VISIT_ID = vst_id;
532:
533: l_visit_dets c_visit%RowType;
534:
2341:
2342: -- Define local cursors
2343: -- To find out all visit/template details
2344: CURSOR c_visit(x_id IN NUMBER) IS
2345: SELECT * FROM AHL_VISITS_VL
2346: WHERE VISIT_ID = x_id;
2347: c_visit_rec c_visit%ROWTYPE;
2348:
2349: -- To find whether dept shifts exist for the dept
3132:
3133: -- To find visit related information
3134: CURSOR c_visit (x_id IN NUMBER) IS
3135: SELECT START_DATE_TIME , department_id
3136: FROM AHL_VISITS_VL
3137: WHERE VISIT_ID = x_id;
3138:
3139: -- To find previous stage id
3140: CURSOR c_prev_stage_id (p_stage_id IN NUMBER) IS
3891: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3893: END IF;
3894:
3895: select max(START_DATE_TIME) into l_visit_start_date from AHL_VISITS_VL where VISIT_ID = p_visit_id;
3896: IF p_relation_type = 'BEFORE' THEN -- BEFORE
3897:
3898: --Update prev_stage_num to null as current relation is going to be deleted.
3899: update AHL_VWP_STAGES_B set object_version_number=object_version_number+1,
4663: nvl(vst.start_date_time,stg.earliest_start_date)
4664: END stage_start_date , -- PRAKKUM :: 08-JUL-2011 :: VWPE 12730539 :: Stage start date w.r.t visit start date
4665: vst.department_id
4666: from ahl_vwp_stages_b stg,
4667: ahl_visits_vl vst
4668: WHERE
4669: vst.visit_id = stg.visit_id AND vst.VISIT_ID = x_id;
4670:
4671: --cursor to fetch visit details
4672: cursor c_visit_dets (x_id IN NUMBER)
4673: IS
4674: select DEPARTMENT_ID,START_DATE_TIME,STATUS_CODE,VISIT_TYPE_CODE,AHL_VWP_VISITS_PVT.Is_Old_Visit(VISIT_ID) IS_OLD_VISIT
4675: , CASE WHEN UNIT_SCHEDULE_ID IS NOT NULL THEN 'Y' ELSE 'N' END IS_OPERATIONAL_VISIT
4676: from ahl_visits_vl
4677: WHERE VISIT_ID = x_id;-- PRAKKUM :: 13-FEB-2011 :: Bug 13711800
4678:
4679: l_visit_limited_dets c_visit_dets%RowType;
4680: