[Home] [Help]
112: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
113:
114: CURSOR get_visit_instance IS
115: SELECT item_instance_id
116: FROM ahl_visits_b
117: WHERE visit_id = p_visit_id;
118: CURSOR check_instance_in_tree(c_top_instance_id NUMBER, c_instance_id NUMBER) IS
119: SELECT subject_id
120: FROM csi_ii_relationships
670: SELECT 'x'
671: FROM ahl_simulation_plans_vl ASP
672: WHERE primary_plan_flag = 'Y'
673: AND EXISTS ( SELECT 1
674: FROM ahl_visits_b
675: WHERE visit_id = x_id
676: AND NVL(simulation_plan_id,-99) = ASP.simulation_plan_id);
677: */
678: BEGIN
1217:
1218: -- SKPATHAK :: 13914410 :: 03-APR-2012
1219: Cursor get_visit_start_date (c_visit_id IN NUMBER ) IS
1220: SELECT start_date_time
1221: FROM ahl_visits_b
1222: WHERE visit_id = c_visit_id;
1223: l_visit_start_date DATE;
1224:
1225: -- Local variables defined for the procedure
2826: 'p_flag' || p_flag);
2827: END IF;
2828: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2829: IF p_visit_id IS NOT NULL THEN
2830: UPDATE AHL_VISITS_B
2831: SET OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1,
2832: --TCHIMIRA::BUG 9222622 ::15-DEC-2009::UPDATE WHO COLUMNS
2833: LAST_UPDATE_DATE = SYSDATE,
2834: LAST_UPDATED_BY = Fnd_Global.USER_ID,
2860: L_API_NAME CONSTANT VARCHAR2(30) := 'Check_Price_List_Name_Or_Id';
2861: L_DEBUG_KEY CONSTANT VARCHAR2(100):= 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
2862:
2863: CURSOR visit_info_csr(p_visit_id IN NUMBER)IS
2864: SELECT service_request_id FROM ahl_visits_b
2865: WHERE visit_id = p_visit_id;
2866:
2867: l_service_request_id NUMBER;
2868:
2923: FND_MSG_PUB.ADD;
2924: IF (l_log_unexpected >= l_log_current_level)THEN
2925: fnd_log.string(l_log_unexpected,
2926: L_DEBUG_KEY,
2927: 'Visit id not found in AHL_VISITS_B table');
2928: END IF;
2929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2930: ELSIF(l_service_request_id IS NULL)THEN
2931: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT_UPDT_NOS');
3254: L_API_NAME CONSTANT VARCHAR2(30) := 'Check_Currency_for_Costing';
3255: L_DEBUG_KEY CONSTANT VARCHAR2(100):= 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
3256:
3257: CURSOR organization_csr(p_visit_id IN NUMBER)IS
3258: SELECT VST.organization_id FROM AHL_VISITS_B VST
3259: WHERE VST.visit_id = p_visit_id;
3260:
3261: l_org_id NUMBER;
3262:
3269: AND NVL(operating_unit, mo_global.get_current_org_id())= mo_global.get_current_org_id();
3270:
3271: /*SELECT currency_code
3272: -- into x_currency_code
3273: FROM CST_ORGANIZATION_DEFINITIONS COD --,AHL_VISITS_B VST
3274: WHERE --VST.visit_id = p_visit_id AND
3275: --COD.Organization_Id = VST.organization_id
3276: COD.Organization_Id = p_org_id
3277: AND NVL(operating_unit, mo_global.get_current_org_id())
3489:
3490: -- To find visit related information
3491: CURSOR c_visit (c_visit_id IN NUMBER)
3492: IS
3493: SELECT START_DATE_TIME , department_id FROM AHL_VISITS_B
3494: WHERE VISIT_ID = c_visit_id;
3495:
3496: -- Cursor to find out the cumulative duration of all the stages before the stage of this task
3497: CURSOR c_sum_stage_duration (c_stage_name VARCHAR2,
5879:
5880: Cursor is_visit_implemented (c_visit_id IN NUMBER)
5881: IS
5882: SELECT 'N'
5883: FROM ahl_visits_b visit, ahl_visit_tasks_b task
5884: WHERE visit.visit_id = c_visit_id
5885: AND visit.visit_id = task.visit_id
5886: AND task.status_code = 'PLANNING';
5887: l_is_visit_implemented VARCHAR2(1);
5979: END IF;
5980: CLOSE is_visit_implemented;
5981:
5982: IF l_is_visit_implemented = 'Y' THEN
5983: UPDATE ahl_visits_b
5984: SET status_code = 'RELEASED',
5985: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1,
5986: LAST_UPDATE_DATE = SYSDATE,
5987: LAST_UPDATED_BY = Fnd_Global.USER_ID,