[Home] [Help]
776: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
777: ELSE
778: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
779: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_TASKS_NOT_EXISTS');
780: Fnd_Msg_Pub.ADD;
781: END IF;
782:
783: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
784: IF (l_log_procedure >= l_log_current_level) THEN
927: END IF;
928:
929: IF c_fnd_response%NOTFOUND THEN
930: x_return_status := Fnd_Api.g_ret_sts_error;
931: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
932: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_NO_SUPERUSER');
933: Fnd_Msg_Pub.ADD;
934: CLOSE c_fnd_response;
935: RAISE G_EXC_ERROR;
929: IF c_fnd_response%NOTFOUND THEN
930: x_return_status := Fnd_Api.g_ret_sts_error;
931: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
932: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_NO_SUPERUSER');
933: Fnd_Msg_Pub.ADD;
934: CLOSE c_fnd_response;
935: RAISE G_EXC_ERROR;
936: END IF;
937: END IF;
945: END IF;
946:
947: IF c_fnd_user_resp%NOTFOUND THEN
948: x_return_status := Fnd_Api.g_ret_sts_error;
949: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
950: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_NO_USER_GROUPS');
951: Fnd_Msg_Pub.ADD;
952: END IF;
953: END IF;
947: IF c_fnd_user_resp%NOTFOUND THEN
948: x_return_status := Fnd_Api.g_ret_sts_error;
949: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
950: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_NO_USER_GROUPS');
951: Fnd_Msg_Pub.ADD;
952: END IF;
953: END IF;
954: CLOSE c_fnd_user_resp;
955:
981: ELSE
982: x_check_project := 'N';
983: x_return_status := Fnd_Api.g_ret_sts_error;
984:
985: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
986: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_NO_RESPONSIBILITY');
987: Fnd_Msg_Pub.ADD;
988: END IF;
989: END IF;
983: x_return_status := Fnd_Api.g_ret_sts_error;
984:
985: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
986: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_NO_RESPONSIBILITY');
987: Fnd_Msg_Pub.ADD;
988: END IF;
989: END IF;
990: END IF;
991: */
1093: FROM CSI_ITEM_INSTANCES
1094: WHERE Instance_Id = x_instance_id;
1095: ELSE
1096: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
1097: Fnd_Msg_Pub.ADD;
1098: RAISE Fnd_Api.G_EXC_ERROR;
1099: END IF;
1100: END IF;
1101:
1269: fnd_log.string(l_log_statement,
1270: L_DEBUG_KEY,
1271: 'Error in Insert_Tasks. Serial Id missing.');
1272: END IF;
1273: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1274: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_MISSING');
1275: Fnd_Msg_Pub.ADD;
1276: END IF;
1277: END IF;
1271: 'Error in Insert_Tasks. Serial Id missing.');
1272: END IF;
1273: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1274: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_MISSING');
1275: Fnd_Msg_Pub.ADD;
1276: END IF;
1277: END IF;
1278: END IF; -- End of p_unit_id check
1279:
1371: FETCH get_originating_mr_id INTO l_originating_mr_header_id;
1372: CLOSE get_originating_mr_id;
1373: END IF;
1374: --VWP ER-12424063:: tchimira :: 17-FEB -2011 :: end
1375: l_msg_count := Fnd_Msg_Pub.count_msg;
1376: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1377: x_msg_count := l_msg_count;
1378: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1379: RAISE Fnd_Api.G_EXC_ERROR;
1551: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
1552: l_return_status);
1553: END IF;
1554:
1555: l_msg_count := Fnd_Msg_Pub.count_msg;
1556: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1557: x_msg_count := l_msg_count;
1558: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1559: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1590: 'After calling AHL_VWP_TIMES_PVT.Adjust_Task_Times. Return Status = ' ||
1591: l_return_status);
1592: END IF;
1593:
1594: l_msg_count := Fnd_Msg_Pub.count_msg;
1595: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1596: IF (l_log_statement >= l_log_current_level) THEN
1597: fnd_log.string(l_log_statement,
1598: L_DEBUG_KEY,
2124: L_DEBUG_KEY,
2125: 'After calling VALIDATE_VWP_LINKS and return status is:'||l_return_status);
2126: END IF;
2127: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2128: l_msg_count := FND_MSG_PUB.count_msg;
2129: IF (l_log_statement >= l_log_current_level) THEN
2130: fnd_log.string(l_log_statement,
2131: L_DEBUG_KEY,
2132: 'Errors from VALIDATE_VWP_LINKS. l_msg_data: ' || l_msg_data);
2349: FETCH c_mr_title into l_mr_title;
2350: CLOSE c_mr_title;
2351: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_TASK_FOUND');
2352: FND_MESSAGE.SET_TOKEN('MR',l_mr_title);
2353: Fnd_Msg_Pub.ADD;
2354:
2355: ELSE -- else of c_task cursor found or not
2356: --Dup-MR ER#6338208 - sowsubra - start
2357: --commented to allow duplicate MR's in a visit
2366: ' Inner c_task2 found');
2367: END IF;
2368: Fnd_Message.SET_NAME('AHL','AHL_VWP_MR_FOUND');
2369: Fnd_Message.SET_TOKEN('MR_TITLE',c_task_chk_rec.title);
2370: Fnd_Msg_Pub.ADD;
2371: ELSE
2372: */
2373: --Dup-MR ER#6338208 - sowsubra - end
2374:
2402: ' Inner c_task2 found');
2403: END IF;
2404: Fnd_Message.SET_NAME('AHL','AHL_VWP_MR_FOUND');
2405: Fnd_Message.SET_TOKEN('MR_TITLE',c_task_chk_rec.title);
2406: Fnd_Msg_Pub.ADD;
2407: END IF;
2408: CLOSE c_task_chk;
2409: */
2410: --Dup-MR ER#6338208 - sowsubra - end
2412: l_item_id := p_item_id;
2413: l_org_id := p_org_id;
2414: END IF;
2415:
2416: l_msg_count := FND_MSG_PUB.count_msg;
2417: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2418: x_return_status := FND_API.G_RET_STS_ERROR;
2419: RAISE FND_API.G_EXC_ERROR;
2420: END IF;
2455: 'After calling INSERT_TASKS for Summary Task. Task Id = ' || l_task_id ||
2456: '. Return Status = ' || l_return_status);
2457: END IF;
2458:
2459: l_msg_count := FND_MSG_PUB.count_msg;
2460: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2461: IF (l_log_statement >= l_log_current_level) THEN
2462: fnd_log.string(l_log_statement,
2463: L_DEBUG_KEY,
2517: l_stage_id := NULL;
2518: l_stage_name := NULL;
2519: ELSE
2520: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NO_EXIST');
2521: Fnd_Msg_Pub.ADD;
2522: CLOSE c_stage;
2523: RAISE FND_API.G_EXC_ERROR;
2524: END IF;
2525: -- PRAKKUM :: 14-JUL-2011 :: VWPE 12730539 :: NED
2572: 'After calling INSERT_TASKS for Simple Task. Task Id = ' || l_task_id ||
2573: '. Visit ID = ' || l_visit_id);
2574: END IF;
2575:
2576: l_msg_count := FND_MSG_PUB.count_msg;
2577: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2578: IF (l_log_statement >= l_log_current_level) THEN
2579: fnd_log.string(l_log_statement,
2580: L_DEBUG_KEY,
2615: fnd_log.string(l_log_statement,
2616: L_DEBUG_KEY,
2617: 'PLANNED TASK - After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
2618: END IF;
2619: l_msg_count := FND_MSG_PUB.count_msg;
2620: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2621: X_return_status := FND_API.G_RET_STS_ERROR;
2622: RAISE FND_API.G_EXC_ERROR;
2623: END IF;
2690: L_DEBUG_KEY,
2691: 'p_cost_parent_id = p_visit_task_id');
2692: END IF;
2693: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_COST_LOOP');
2694: Fnd_Msg_Pub.ADD;
2695: RAISE Fnd_Api.G_EXC_ERROR;
2696: END IF;
2697:
2698: OPEN c_child (p_visit_task_id, p_visit_id);
2705: L_DEBUG_KEY,
2706: 'TASK LOOP');
2707: END IF;
2708: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_COST_LOOP');
2709: Fnd_Msg_Pub.ADD;
2710: CLOSE c_child;
2711: RAISE Fnd_Api.G_EXC_ERROR;
2712: END IF;
2713: EXIT WHEN c_child%NOTFOUND;
2766: L_DEBUG_KEY,
2767: 'TASK LOOP1');
2768: END IF;
2769: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_ORIGIN_LOOP');
2770: Fnd_Msg_Pub.ADD;
2771: RAISE Fnd_Api.G_EXC_ERROR;
2772: END IF;
2773:
2774: OPEN c_child (p_visit_task_id, p_visit_id);
2782: 'TASK LOOP2');
2783: END IF;
2784:
2785: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_ORIGIN_LOOP');
2786: Fnd_Msg_Pub.ADD;
2787: CLOSE c_child;
2788: RAISE Fnd_Api.G_EXC_ERROR;
2789: END IF;
2790:
2919: OPEN visit_info_csr(p_visit_id);
2920: FETCH visit_info_csr INTO l_service_request_id;
2921: IF (visit_info_csr%NOTFOUND) THEN
2922: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT');
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');
2932: FND_MSG_PUB.ADD;
2933: IF (fnd_log.level_error >= l_log_current_level)THEN
2934: fnd_log.string(fnd_log.level_error,
2935: L_DEBUG_KEY,
2936: 'price list can not be associated because service request id is not associated to visit');
2946: OPEN customer_id_csr(l_service_request_id);
2947: FETCH customer_id_csr INTO l_customer_id;
2948: IF(customer_id_csr%NOTFOUND)THEN
2949: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_SR_ID');
2950: FND_MSG_PUB.ADD;
2951: IF (l_log_unexpected >= l_log_current_level)THEN
2952: fnd_log.string(l_log_unexpected,
2953: L_DEBUG_KEY,
2954: 'Associated Service Request ' || l_service_request_id ||
2956: END IF;
2957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2958: ELSIF(l_customer_id IS NULL)THEN
2959: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_SRVREQ_NOCUST');
2960: FND_MSG_PUB.ADD;
2961: IF (fnd_log.level_error >= l_log_current_level)THEN
2962: fnd_log.string(fnd_log.level_error,
2963: L_DEBUG_KEY,
2964: 'Customer id for corresponding service request ' || l_service_request_id || ' is null.');
2976: FETCH price_list_id_csr INTO x_price_list_id;
2977: IF(price_list_id_csr%NOTFOUND)THEN
2978: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_PLIST_NFOUND');
2979: FND_MESSAGE.Set_Token('PRICE_LIST',p_price_list_name);
2980: FND_MSG_PUB.ADD;
2981: IF (fnd_log.level_error >= l_log_current_level)THEN
2982: fnd_log.string(fnd_log.level_error,
2983: L_DEBUG_KEY,
2984: 'Valid price list not found with price list name ' || p_price_list_name);
3293: OPEN currency_code_csr(l_org_id);
3294: FETCH currency_code_csr INTO x_currency_code;
3295: IF (currency_code_csr%NOTFOUND)THEN
3296: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_NO_CURRENCY');
3297: FND_MSG_PUB.ADD;
3298: IF (fnd_log.level_error >= l_log_current_level)THEN
3299: fnd_log.string(fnd_log.level_error,
3300: L_DEBUG_KEY,
3301: 'No curency is defined for the organization of the visit. l_org_id = ' || l_org_id);
3532: IF cost_parent_dates_rec.start_date_time IS NOT NULL THEN
3533: IF (cost_parent_dates_rec.start_date_time > p_task_rec.past_task_start_date
3534: OR cost_parent_dates_rec.end_date_time < p_task_rec.past_task_end_date) THEN
3535: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_PAST_DATE_INVLD');
3536: Fnd_Msg_Pub.ADD;
3537: x_return_status := FND_API.G_RET_STS_ERROR;
3538: END IF;
3539: END IF;
3540:
3547: IF cost_child_dates_rec.start_date_time IS NOT NULL THEN
3548: IF (cost_child_dates_rec.start_date_time < p_task_rec.past_task_start_date
3549: OR cost_child_dates_rec.end_date_time > p_task_rec.past_task_end_date) THEN
3550: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_PAST_DATE_INVLD');
3551: Fnd_Msg_Pub.ADD;
3552: x_return_status := FND_API.G_RET_STS_ERROR;
3553: END IF;
3554: END IF;
3555:
3568:
3569: -- Validate that the any of the tasks does not start before the stage starts
3570: IF p_task_rec.past_task_start_date < l_stage_planned_start_time THEN
3571: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_TASK_DATE_INVLD');
3572: Fnd_Msg_Pub.ADD;
3573: x_return_status := FND_API.G_RET_STS_ERROR;
3574: END IF;
3575:
3576: IF (l_log_procedure >= l_log_current_level)THEN
3657: CLOSE get_service_type_code;
3658:
3659: FND_MESSAGE.Set_Name('AHL', 'AHL_VWP_ST_VAL_INVLD');
3660: FND_MESSAGE.Set_Token('VALUE', p_service_type);
3661: FND_MSG_PUB.ADD;
3662: RAISE FND_API.G_EXC_ERROR;
3663: END IF;
3664: CLOSE get_service_type_code;
3665: END IF;
3683: CLOSE get_service_type_code;
3684:
3685: FND_MESSAGE.Set_Name('AHL', 'AHL_VWP_ST_VAL_INVLD');
3686: FND_MESSAGE.Set_Token('VALUE', p_service_type);
3687: FND_MSG_PUB.ADD;
3688: RAISE FND_API.G_EXC_ERROR;
3689: END IF;
3690: CLOSE get_service_type_code;
3691: END IF;
3703: CLOSE check_service_type_code;
3704:
3705: FND_MESSAGE.Set_Name('AHL', 'AHL_VWP_ST_CD_INVLD');
3706: FND_MESSAGE.Set_Token('CODE', p_x_service_type_code);
3707: FND_MSG_PUB.ADD;
3708: RAISE FND_API.G_EXC_ERROR;
3709: END IF;
3710: CLOSE check_service_type_code;
3711: END IF; -- (p_x_service_type_code IS NULL) check, for SR module type call
3755: CLOSE get_service_type_code;
3756:
3757: FND_MESSAGE.Set_Name('AHL', 'AHL_VWP_ST_VAL_INVLD');
3758: FND_MESSAGE.Set_Token('VALUE', p_service_type);
3759: FND_MSG_PUB.ADD;
3760: RAISE FND_API.G_EXC_ERROR;
3761: END IF;
3762: CLOSE get_service_type_code;
3763: END IF;
3775: CLOSE check_service_type_code;
3776:
3777: FND_MESSAGE.Set_Name('AHL', 'AHL_VWP_ST_CD_INVLD');
3778: FND_MESSAGE.Set_Token('CODE', p_x_service_type_code);
3779: FND_MSG_PUB.ADD;
3780: RAISE FND_API.G_EXC_ERROR;
3781: END IF;
3782: CLOSE check_service_type_code;
3783: END IF; -- FND_API.G_MISS_CHAR check, for non-JSP and non-SR module type call
3888: fnd_log.string(l_log_statement,
3889: L_DEBUG_KEY,
3890: 'Passed Visit_task_id : '|| p_task_id ||' or Instance id : '|| p_instance_id ||' is null');
3891: END IF;
3892: FND_MSG_PUB.add;
3893: END IF;
3894:
3895: -- Instance warranty enabled
3896: IF(ahl_warranty_contracts_pvt.is_instance_warranty_available(p_instance_id) = 'Y') THEN
4083: fnd_log.string(l_log_statement,
4084: L_DEBUG_KEY,
4085: 'Passed Visit task id is null');
4086: END IF;
4087: FND_MSG_PUB.add;
4088: END IF;
4089:
4090: IF (l_log_statement >= l_log_current_level) THEN
4091: fnd_log.string(l_log_statement,
4127: CLOSE c_get_contract_id;
4128: IF(l_contract_id is null) THEN
4129: FND_MESSAGE.set_name('AHL','AHL_COM_INVALID_WARRANTY_CONTRACT');
4130: FND_MESSAGE.set_token('CONT_NUM', p_task_rec.contract_number);
4131: FND_MSG_PUB.add;
4132: END IF;
4133: l_entl_status := 'APPROVED';
4134: ELSE -- If contact number is not associated
4135: l_contract_id := FND_API.G_MISS_NUM;
4346:
4347: -- Initialize message list if p_init_msg_list is set to TRUE.
4348: IF Fnd_Api.to_boolean(p_init_msg_list)
4349: THEN
4350: Fnd_Msg_Pub.initialize;
4351: END IF;
4352:
4353: -- Initialize API return status to success
4354: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4525: EXCEPTION
4526: WHEN Fnd_Api.g_exc_error THEN
4527: x_return_status := Fnd_Api.g_ret_sts_error;
4528: ROLLBACK TO Handle_Task_Dependency;
4529: Fnd_Msg_Pub.count_and_get(
4530: p_encoded => Fnd_Api.g_false,
4531: p_count => x_msg_count,
4532: p_data => x_msg_data
4533: );
4533: );
4534: WHEN Fnd_Api.g_exc_unexpected_error THEN
4535: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4536: ROLLBACK TO Handle_Task_Dependency;
4537: Fnd_Msg_Pub.count_and_get (
4538: p_encoded => Fnd_Api.g_false,
4539: p_count => x_msg_count,
4540: p_data => x_msg_data
4541: );
4541: );
4542: WHEN OTHERS THEN
4543: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4544: ROLLBACK TO Handle_Task_Dependency;
4545: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4546: THEN
4547: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4548: END IF;
4549: Fnd_Msg_Pub.count_and_get (
4543: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4544: ROLLBACK TO Handle_Task_Dependency;
4545: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4546: THEN
4547: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4548: END IF;
4549: Fnd_Msg_Pub.count_and_get (
4550: p_encoded => Fnd_Api.g_false,
4551: p_count => x_msg_count,
4545: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4546: THEN
4547: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4548: END IF;
4549: Fnd_Msg_Pub.count_and_get (
4550: p_encoded => Fnd_Api.g_false,
4551: p_count => x_msg_count,
4552: p_data => x_msg_data
4553: );
4629:
4630: -- Initialize message list if p_init_msg_list is set to TRUE.
4631: IF Fnd_Api.to_boolean(p_init_msg_list)
4632: THEN
4633: Fnd_Msg_Pub.initialize;
4634: END IF;
4635:
4636: -- Initialize API return status to success
4637: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4650: FETCH c_warranty_record INTO c_warranty_rec;
4651: CLOSE c_warranty_record;
4652: IF (c_warranty_rec.OBJECT_VERSION_NUMBER <> l_task_tbl(i).OBJECT_VERSION_NUMBER) THEN
4653: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
4654: Fnd_Msg_Pub.ADD;
4655: RAISE Fnd_Api.G_EXC_ERROR;
4656: END IF;
4657:
4658: l_task_tbl(i).instance_id := c_warranty_rec.instance_id;
4691: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
4692: l_return_status);
4693: END IF;
4694:
4695: l_msg_count := Fnd_Msg_Pub.count_msg;
4696: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
4697: x_msg_count := l_msg_count;
4698: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4699: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4713: EXCEPTION
4714: WHEN Fnd_Api.g_exc_error THEN
4715: ROLLBACK TO Warranty_Not_Applicable;
4716: x_return_status := Fnd_Api.g_ret_sts_error;
4717: Fnd_Msg_Pub.count_and_get(
4718: p_encoded => Fnd_Api.g_false,
4719: p_count => x_msg_count,
4720: p_data => x_msg_data
4721: );
4721: );
4722: WHEN Fnd_Api.g_exc_unexpected_error THEN
4723: ROLLBACK TO Warranty_Not_Applicable;
4724: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4725: Fnd_Msg_Pub.count_and_get (
4726: p_encoded => Fnd_Api.g_false,
4727: p_count => x_msg_count,
4728: p_data => x_msg_data
4729: );
4729: );
4730: WHEN OTHERS THEN
4731: ROLLBACK TO Warranty_Not_Applicable;
4732: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4733: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4734: THEN
4735: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4736: END IF;
4737: Fnd_Msg_Pub.count_and_get (
4731: ROLLBACK TO Warranty_Not_Applicable;
4732: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4733: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4734: THEN
4735: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4736: END IF;
4737: Fnd_Msg_Pub.count_and_get (
4738: p_encoded => Fnd_Api.g_false,
4739: p_count => x_msg_count,
4733: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4734: THEN
4735: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4736: END IF;
4737: Fnd_Msg_Pub.count_and_get (
4738: p_encoded => Fnd_Api.g_false,
4739: p_count => x_msg_count,
4740: p_data => x_msg_data
4741: );
4845: END IF;
4846:
4847: -- Initialize message list if p_init_msg_list is set to TRUE.
4848: IF FND_API.to_boolean( p_init_msg_list ) THEN
4849: FND_MSG_PUB.initialize;
4850: END IF;
4851:
4852: -- Initialize API return status to success
4853: x_return_status := FND_API.G_RET_STS_SUCCESS;
4879: -- Check Task Type
4880: IF (l_task_type_code = 'SUMMARY' OR l_task_type_code = 'DUPLICATE') THEN
4881: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_INVALID_TASK');
4882: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
4883: FND_MSG_PUB.add;
4884: x_return_status := FND_API.G_RET_STS_ERROR;
4885:
4886: ELSE
4887: -- Check Task Status
4887: -- Check Task Status
4888: IF (l_status_code <> 'PLANNING') THEN
4889: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_INVALID_STATUS');
4890: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
4891: FND_MSG_PUB.add;
4892: x_return_status := FND_API.G_RET_STS_ERROR;
4893: END IF;
4894:
4895: -- Check if this flag already marked RTS
4895: -- Check if this flag already marked RTS
4896: IF(l_current_rts = 'Y') THEN
4897: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_PRESENT');
4898: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
4899: FND_MSG_PUB.add;
4900: x_return_status := FND_API.G_RET_STS_ERROR;
4901: END IF;
4902:
4903: -- Cursor to get the RTS count for this instance
4909: --Check if this instance is already marked RTS
4910: IF (l_rts_count > 0) THEN
4911: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_FOUND');
4912: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
4913: FND_MSG_PUB.add;
4914: x_return_status := FND_API.G_RET_STS_ERROR;
4915: END IF;
4916: END IF;
4917:
4955:
4956: IF ( SQL%ROWCOUNT = 0 ) THEN
4957: FND_MESSAGE.set_name('AHL','AHL_TASK_RECORD_CHANGED');
4958: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
4959: FND_MSG_PUB.add;
4960: x_return_status := FND_API.G_RET_STS_ERROR;
4961: END IF;
4962:
4963: END IF;
5024: COMMIT;
5025: END IF;
5026:
5027: -- Count and Get messages
5028: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5029: p_count => x_msg_count,
5030: p_data => x_msg_data);
5031:
5032: IF (l_log_procedure >= l_log_current_level) THEN
5036: EXCEPTION
5037: WHEN FND_API.G_EXC_ERROR THEN
5038: ROLLBACK TO add_rts_sp;
5039: x_return_status := FND_API.G_RET_STS_ERROR;
5040: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5041: p_count => x_msg_count,
5042: p_data => x_msg_data);
5043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5044: ROLLBACK TO add_rts_sp;
5042: p_data => x_msg_data);
5043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5044: ROLLBACK TO add_rts_sp;
5045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5046: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5047: p_count => x_msg_count,
5048: p_data => x_msg_data);
5049: WHEN OTHERS THEN
5050: ROLLBACK TO add_rts_sp;
5048: p_data => x_msg_data);
5049: WHEN OTHERS THEN
5050: ROLLBACK TO add_rts_sp;
5051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5052: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5053: FND_MSG_PUB.add_exc_msg (G_PKG_NAME, L_API_NAME);
5054: END IF;
5055: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5056: p_count => x_msg_count,
5049: WHEN OTHERS THEN
5050: ROLLBACK TO add_rts_sp;
5051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5052: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5053: FND_MSG_PUB.add_exc_msg (G_PKG_NAME, L_API_NAME);
5054: END IF;
5055: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5056: p_count => x_msg_count,
5057: p_data => x_msg_data);
5051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5052: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5053: FND_MSG_PUB.add_exc_msg (G_PKG_NAME, L_API_NAME);
5054: END IF;
5055: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5056: p_count => x_msg_count,
5057: p_data => x_msg_data);
5058:
5059: END Add_Return_To_Supply;
5114: END IF;
5115:
5116: -- Initialize message list if p_init_msg_list is set to TRUE.
5117: IF FND_API.to_boolean( p_init_msg_list ) THEN
5118: FND_MSG_PUB.initialize;
5119: END IF;
5120:
5121: -- Initialize API return status to success
5122: x_return_status := FND_API.G_RET_STS_SUCCESS;
5144: -- Check Task Type
5145: IF (l_task_type_code = 'SUMMARY' OR l_task_type_code = 'DUPLICATE') THEN
5146: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_INVALID_TASK');
5147: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
5148: FND_MSG_PUB.add;
5149: x_return_status := FND_API.G_RET_STS_ERROR;
5150:
5151: ELSE
5152: -- Check Task Status
5152: -- Check Task Status
5153: IF (l_status_code <> 'PLANNING') THEN
5154: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_INVALID_STATUS');
5155: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
5156: FND_MSG_PUB.add;
5157: x_return_status := FND_API.G_RET_STS_ERROR;
5158: END IF;
5159:
5160: -- Check if this flag already unmarked RTS
5160: -- Check if this flag already unmarked RTS
5161: IF(l_current_rts = 'N') THEN
5162: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_NOT_PRESENT');
5163: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
5164: FND_MSG_PUB.add;
5165: x_return_status := FND_API.G_RET_STS_ERROR;
5166: END IF;
5167: END IF;
5168:
5179:
5180: IF ( SQL%ROWCOUNT = 0 ) THEN
5181: FND_MESSAGE.set_name('AHL','AHL_TASK_RECORD_CHANGED');
5182: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
5183: FND_MSG_PUB.add;
5184: x_return_status := FND_API.G_RET_STS_ERROR;
5185: END IF;
5186: END IF;
5187:
5191: COMMIT;
5192: END IF;
5193:
5194: -- Count and Get messages
5195: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5196: p_count => x_msg_count,
5197: p_data => x_msg_data);
5198:
5199: IF (l_log_procedure >= l_log_current_level) THEN
5203: EXCEPTION
5204: WHEN FND_API.G_EXC_ERROR THEN
5205: ROLLBACK TO remove_rts_sp;
5206: x_return_status := FND_API.G_RET_STS_ERROR;
5207: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5208: p_count => x_msg_count,
5209: p_data => x_msg_data);
5210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5211: ROLLBACK TO remove_rts_sp;
5209: p_data => x_msg_data);
5210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5211: ROLLBACK TO remove_rts_sp;
5212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5213: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5214: p_count => x_msg_count,
5215: p_data => x_msg_data);
5216: WHEN OTHERS THEN
5217: ROLLBACK TO remove_rts_sp;
5215: p_data => x_msg_data);
5216: WHEN OTHERS THEN
5217: ROLLBACK TO remove_rts_sp;
5218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5219: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5220: FND_MSG_PUB.add_exc_msg (G_PKG_NAME, L_API_NAME);
5221: END IF;
5222: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5223: p_count => x_msg_count,
5216: WHEN OTHERS THEN
5217: ROLLBACK TO remove_rts_sp;
5218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5219: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5220: FND_MSG_PUB.add_exc_msg (G_PKG_NAME, L_API_NAME);
5221: END IF;
5222: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5223: p_count => x_msg_count,
5224: p_data => x_msg_data);
5218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5219: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5220: FND_MSG_PUB.add_exc_msg (G_PKG_NAME, L_API_NAME);
5221: END IF;
5222: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5223: p_count => x_msg_count,
5224: p_data => x_msg_data);
5225:
5226: END Remove_Return_To_Supply;
5291: END IF;
5292:
5293: -- Initialize message list if p_init_msg_list is set to TRUE.
5294: IF FND_API.to_boolean( p_init_msg_list ) THEN
5295: FND_MSG_PUB.initialize;
5296: END IF;
5297:
5298: -- Initialize API return status to success
5299: x_return_status := FND_API.G_RET_STS_SUCCESS;
5315: -- Get the violating instance numbers and write them into the error message list
5316: l_instance_num := l_task_rec.instance_number;
5317: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_VALIDATE_ERR');
5318: FND_MESSAGE.set_token( 'INST_NO', l_instance_num );
5319: FND_MSG_PUB.add;
5320:
5321: IF (x_return_status <> FND_API.G_RET_STS_ERROR) THEN
5322: x_return_status := FND_API.G_RET_STS_ERROR;
5323: END IF;
5370: -- Get the violating instance numbers and write them into the error message list
5371: l_instance_num := l_violating_instances(i);
5372: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_VALIDATE_ERR');
5373: FND_MESSAGE.set_token( 'INST_NO', l_instance_num );
5374: FND_MSG_PUB.add;
5375:
5376: IF (x_return_status <> FND_API.G_RET_STS_ERROR) THEN
5377: x_return_status := FND_API.G_RET_STS_ERROR;
5378: END IF;
5389:
5390: END IF;-- END IF(p_module_type = 'VST')
5391:
5392: -- Count and Get messages
5393: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5394: p_count => x_msg_count,
5395: p_data => x_msg_data);
5396:
5397: IF (l_log_procedure >= l_log_current_level) THEN
5525: FND_LOG.string(l_log_procedure, L_DEBUG_KEY || '.begin', 'At the start of the PLSQL procedure Flag_Duplicate_Task. p_task_rec.COUNT ->' || p_task_rec_tbl.COUNT);
5526: END IF;
5527: -- Initialize message list if p_init_msg_list is set to TRUE
5528: IF FND_API.To_Boolean(p_init_msg_list) THEN
5529: FND_MSG_PUB.Initialize;
5530: END IF;
5531: -- Initialize API return status to success
5532: x_return_status := FND_API.G_RET_STS_SUCCESS;
5533: -- Standard call to check for call compatibility.
5549: CLOSE validate_task_csr;
5550: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVD_TASK_FOR_DUP_FLAG' ); -- //Task can not be flagged duplicate as it is either not in planning or
5551: -- //its task type is not planned or unplanned.
5552: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5553: Fnd_Msg_Pub.ADD;
5554: RAISE FND_API.G_EXC_ERROR;
5555: END IF;
5556: CLOSE validate_task_csr; --Added by tchimira since the cursor must be closed in any case
5557: OPEN validate_route_csr(p_task_rec_tbl(i).Visit_Task_Id);
5560: CLOSE validate_route_csr;
5561: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVD_ROUTE_DUP_FLAG' ); -- // Task can not be flagged duplicate because either duplicate flag of Route for the Task is not set
5562: -- //or its return to supply flag is set.
5563: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5564: Fnd_Msg_Pub.ADD;
5565: RAISE FND_API.G_EXC_ERROR;
5566: END IF;
5567: CLOSE validate_route_csr; --Added by tchimira since the cursor must be closed in any case
5568: OPEN validate_duplicate_task_csr(p_task_rec_tbl(i).Visit_Task_Id);
5571: CLOSE validate_duplicate_task_csr;
5572: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNQ_ROUTE_FOR_DUP_FLAG'); -- //Task number can not be flagged duplicate because all the tasks created
5573: -- //for a given route and item instance pair cannot be flagged duplicate.
5574: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5575: Fnd_Msg_Pub.ADD;
5576: RAISE FND_API.G_EXC_ERROR;
5577: END IF;
5578: CLOSE validate_duplicate_task_csr; --Added by tchimira since the cursor must be closed in any case
5579: OPEN validate_mr_csr (p_task_rec_tbl(i).Visit_Task_Id);
5582: CLOSE validate_mr_csr;
5583: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVD_RT_FOR_DUP_FLAG'); -- //Task cannot be flagged duplicate because all the tasks of a given MR
5584: -- //in a visit cannot be flagged duplicate.
5585: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5586: Fnd_Msg_Pub.ADD;
5587: RAISE FND_API.G_EXC_ERROR;
5588: END IF;
5589: CLOSE validate_mr_csr; --Added by tchimira since the cursor must be closed in any case
5590: -- SATRAJEN :: Bug 13054370 :: Tasks which are dependent should not be marked as duplicate.
5595: ELSE
5596: CLOSE validate_dep_csr;
5597: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEP_TASK_FOR_DUP_FLAG'); -- //Task cannot be flagged duplicate because tasks which are dependent cannot be flagged duplicate.
5598: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5599: Fnd_Msg_Pub.ADD;
5600: RAISE FND_API.G_EXC_ERROR;
5601: END IF;
5602: -- SATRAJEN :: END of Bug 13054370
5603: OPEN visit_task_csr(p_task_rec_tbl(i).Visit_Task_Id);
5605: IF visit_task_csr%NOTFOUND THEN
5606: CLOSE visit_task_csr;
5607: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_DELETED'); -- // The task has been deleted.
5608: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5609: Fnd_Msg_Pub.ADD;
5610: RAISE FND_API.G_EXC_ERROR;
5611: END IF;
5612: CLOSE visit_task_csr; --Added by tchimira since the cursor must be closed in any case
5613: IF (l_object_version_number > p_task_rec_tbl(i).object_version_number) THEN
5612: CLOSE visit_task_csr; --Added by tchimira since the cursor must be closed in any case
5613: IF (l_object_version_number > p_task_rec_tbl(i).object_version_number) THEN
5614: Fnd_Message.SET_NAME('AHL','AHL_TASK_RECORD_CHANGED'); -- // Record has been changed
5615: Fnd_Message.Set_Token('TASK_NO', p_task_rec_tbl(i).Visit_Task_Number);
5616: Fnd_Msg_Pub.ADD;
5617: RAISE FND_API.G_EXC_ERROR;
5618: ELSE
5619: UPDATE AHL_VISIT_TASKS_B
5620: SET TASK_TYPE_CODE = 'DUPLICATE' ,
5637: EXCEPTION
5638: WHEN FND_API.G_EXC_ERROR THEN
5639: x_return_status := FND_API.G_RET_STS_ERROR;
5640: ROLLBACK TO Flag_Duplicate_Task;
5641: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5644: ROLLBACK TO Flag_Duplicate_Task;
5645: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5641: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5644: ROLLBACK TO Flag_Duplicate_Task;
5645: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5646: WHEN OTHERS THEN
5647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5648: ROLLBACK TO Flag_Duplicate_Task;
5649: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5645: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5646: WHEN OTHERS THEN
5647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5648: ROLLBACK TO Flag_Duplicate_Task;
5649: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5650: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME, p_procedure_name => L_API_NAME, p_error_text => SUBSTR(SQLERRM,1,500));
5651: END IF;
5652: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5653: END Flag_Duplicate_Task;
5646: WHEN OTHERS THEN
5647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5648: ROLLBACK TO Flag_Duplicate_Task;
5649: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5650: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME, p_procedure_name => L_API_NAME, p_error_text => SUBSTR(SQLERRM,1,500));
5651: END IF;
5652: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5653: END Flag_Duplicate_Task;
5654:
5648: ROLLBACK TO Flag_Duplicate_Task;
5649: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5650: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME, p_procedure_name => L_API_NAME, p_error_text => SUBSTR(SQLERRM,1,500));
5651: END IF;
5652: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5653: END Flag_Duplicate_Task;
5654:
5655:
5656: -------------------------------------------------------------------
5721: FND_LOG.string(l_log_procedure, L_DEBUG_KEY || '.begin', 'At the start of the PLSQL procedure Remove_Duplicate_Task_Flag. p_task_rec.COUNT ->' || p_task_rec_tbl.COUNT);
5722: END IF;
5723: -- Initialize message list if p_init_msg_list is set to TRUE
5724: IF FND_API.To_Boolean(p_init_msg_list) THEN
5725: FND_MSG_PUB.Initialize;
5726: END IF;
5727: -- Initialize API return status to success
5728: x_return_status := FND_API.G_RET_STS_SUCCESS;
5729: -- Standard call to check for call compatibility.
5745: IF validate_task_csr%NOTFOUND THEN
5746: CLOSE validate_task_csr;
5747: Fnd_Message.SET_NAME('AHL','AHL_VWP_TSK_INVD_FOR_REMOV_DUP' ); --// Task is either not in planning or task type is not Duplicate.
5748: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5749: Fnd_Msg_Pub.ADD;
5750: RAISE FND_API.G_EXC_ERROR;
5751: END IF;
5752:
5753: OPEN validate_task_status_csr(p_task_rec_tbl(i).Visit_Task_Id);
5755: IF validate_task_status_csr%FOUND THEN
5756: CLOSE validate_task_status_csr;
5757: Fnd_Message.SET_NAME('AHL','AHL_VWP_MR_INVD_FOR_REMOVE_DUP' ); --// MR for the Task has some tasks in released status.
5758: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5759: Fnd_Msg_Pub.ADD;
5760: RAISE FND_API.G_EXC_ERROR;
5761: END IF;
5762:
5763: OPEN update_visit_task_csr(p_task_rec_tbl(i).Visit_Task_Id);
5766: CLOSE update_visit_task_csr;
5767: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_HAS_NO_UE_RECORD '); -- // Duplicate flag for Task number can not be removed as it has no
5768: -- // unit effectivity record.
5769: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5770: Fnd_Msg_Pub.ADD;
5771: RAISE FND_API.G_EXC_ERROR;
5772: END IF;
5773: IF ((update_task_rec.MANUALLY_PLANNED_FLAG is NULL) OR (update_task_rec.MANUALLY_PLANNED_FLAG = 'N')) THEN
5774: l_task_type_code := 'PLANNED';
5780:
5781: IF (update_task_rec.object_version_number > p_task_rec_tbl(i).object_version_number) THEN
5782: Fnd_Message.SET_NAME('AHL','AHL_TASK_RECORD_CHANGED'); -- // Record has been changed
5783: Fnd_Message.Set_Token('TASK_NO', p_task_rec_tbl(i).Visit_Task_Number);
5784: Fnd_Msg_Pub.ADD;
5785: RAISE FND_API.G_EXC_ERROR;
5786: ELSE
5787: UPDATE AHL_VISIT_TASKS_B
5788: SET TASK_TYPE_CODE = l_task_type_code ,
5807: EXCEPTION
5808: WHEN FND_API.G_EXC_ERROR THEN
5809: x_return_status := FND_API.G_RET_STS_ERROR;
5810: ROLLBACK TO Remove_Duplicate_Task_Flag;
5811: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5814: ROLLBACK TO Remove_Duplicate_Task_Flag;
5815: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5811: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5814: ROLLBACK TO Remove_Duplicate_Task_Flag;
5815: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5816: WHEN OTHERS THEN
5817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5818: ROLLBACK TO Remove_Duplicate_Task_Flag;
5819: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5815: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5816: WHEN OTHERS THEN
5817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5818: ROLLBACK TO Remove_Duplicate_Task_Flag;
5819: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5820: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME, p_procedure_name => L_API_NAME, p_error_text => SUBSTR(SQLERRM,1,500));
5821: END IF;
5822: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5823: END Remove_Duplicate_Task_Flag;
5816: WHEN OTHERS THEN
5817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5818: ROLLBACK TO Remove_Duplicate_Task_Flag;
5819: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5820: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME, p_procedure_name => L_API_NAME, p_error_text => SUBSTR(SQLERRM,1,500));
5821: END IF;
5822: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5823: END Remove_Duplicate_Task_Flag;
5824:
5818: ROLLBACK TO Remove_Duplicate_Task_Flag;
5819: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5820: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME, p_procedure_name => L_API_NAME, p_error_text => SUBSTR(SQLERRM,1,500));
5821: END IF;
5822: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5823: END Remove_Duplicate_Task_Flag;
5824:
5825: --VWPE :: AVIKUKUM :: 05-APR-2011 :: END
5826:
5903:
5904: -- Initialize message list if p_init_msg_list is set to TRUE
5905:
5906: IF FND_API.To_Boolean( p_init_msg_list) THEN
5907: FND_MSG_PUB.Initialize;
5908: END IF;
5909:
5910: -- Initialize API return status to success
5911: x_return_status := FND_API.G_RET_STS_SUCCESS;
5920:
5921: -- make sure that UE id is present in the input and is valid
5922: IF(p_ue_id IS NULL OR p_ue_id = FND_API.G_MISS_NUM) THEN
5923: FND_MESSAGE.Set_Name('AHL','AHL_AVF_SNPSHT_INPUT_MISS'); --tch
5924: FND_MSG_PUB.ADD;
5925:
5926: IF (fnd_log.level_exception >= l_log_current_level)THEN
5927: fnd_log.string
5928: (
5998: IF Fnd_Api.To_Boolean (p_commit) THEN
5999: COMMIT WORK;
6000: END IF;
6001:
6002: Fnd_Msg_Pub.count_and_get(
6003: p_encoded => Fnd_Api.g_false,
6004: p_count => x_msg_count,
6005: p_data => x_msg_data
6006: );
6019: WHEN FND_API.G_EXC_ERROR THEN
6020:
6021: x_return_status := FND_API.G_RET_STS_ERROR;
6022: ROLLBACK TO Cancel_Planning_tasks_pvt;
6023: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6024: p_data => x_msg_data,
6025: p_encoded => fnd_api.g_false);
6026:
6027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6026:
6027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6029: ROLLBACK TO Cancel_Planning_tasks_pvt;
6030: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6031: p_data => x_msg_data,
6032: p_encoded => fnd_api.g_false);
6033:
6034: WHEN OTHERS THEN
6034: WHEN OTHERS THEN
6035: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6036: ROLLBACK TO Cancel_Planning_tasks_pvt;
6037:
6038: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6039: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6040: p_procedure_name => 'Cancel_Planning_tasks',
6041: p_error_text => SUBSTR(SQLERRM,1,500));
6042: END IF;
6035: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6036: ROLLBACK TO Cancel_Planning_tasks_pvt;
6037:
6038: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6039: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6040: p_procedure_name => 'Cancel_Planning_tasks',
6041: p_error_text => SUBSTR(SQLERRM,1,500));
6042: END IF;
6043:
6040: p_procedure_name => 'Cancel_Planning_tasks',
6041: p_error_text => SUBSTR(SQLERRM,1,500));
6042: END IF;
6043:
6044: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6045: p_data => x_msg_data,
6046: p_encoded => fnd_api.g_false);
6047: END Cancel_Planning_tasks;
6048: -- tchimira on 14-Mar-2012 for the bug 13694807 - end