[Home] [Help]
2397: l_object_version_number NUMBER;
2398: l_visit_task_id NUMBER;
2399: l_workorder_id NUMBER;
2400: l_sr_task_rec ahl_prd_nonroutine_pvt.sr_task_rec_type;
2401: l_warranty_entl_tbl ahl_warranty_entl_pvt.warranty_entl_tbl_type;
2402: --
2403: BEGIN
2404:
2405: IF (l_log_procedure >= l_log_current_level) THEN
2435: CLOSE Get_warranty_entl_rec_csr;
2436:
2437: l_warranty_entl_tbl(l_rec_count).warranty_entitlement_id := l_warranty_entl_id;
2438: l_warranty_entl_tbl(l_rec_count).object_version_number := l_object_version_number;
2439: l_warranty_entl_tbl(l_rec_count).operation_flag := ahl_warranty_entl_pvt.G_OP_UPDATE;
2440: l_warranty_entl_tbl(l_rec_count).warranty_contract_id := l_sr_task_rec.warranty_contract_id;
2441:
2442: -- for Part Changes and Create Disposition UIs (module_type is null, since API is called internally),
2443: -- warranty contract id for Non Routine will be derived from the Originating work order
2453: IF (fnd_global.resp_id <> l_tranit_tech_resp_id and
2454: fnd_global.resp_id <> l_tech_resp_id and
2455: fnd_global.resp_id <> l_data_clerk_resp_id) THEN
2456:
2457: l_user_role := ahl_warranty_entl_pvt.G_USER_PLANNER;
2458: IF (l_warranty_entl_tbl(l_rec_count).warranty_contract_id IS NOT null) THEN
2459: l_warranty_entl_tbl(l_rec_count).entitlement_status_code := 'APPROVED';
2460: ELSE
2461: l_warranty_entl_tbl(l_rec_count).entitlement_status_code := 'NOT_APPLICABLE';
2462: END IF;
2463:
2464: -- for Transit Technician, Technician and Data Clerk
2465: ELSE
2466: l_user_role := ahl_warranty_entl_pvt.G_USER_NONPLANNER;
2467: l_warranty_entl_tbl(l_rec_count).entitlement_status_code := 'APPROVAL_PENDING';
2468: END IF;
2469:
2470: l_warranty_entl_tbl(l_rec_count).sr_incident_id := l_sr_task_rec.incident_id;
2495: END IF;
2496:
2497: IF (l_rec_count > 0) THEN
2498: -- call API to update warranty entitlement records
2499: AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements
2500: (
2501: p_api_version => p_api_version,
2502: p_init_msg_list => p_init_msg_list,
2503: p_commit => p_commit,