[Home] [Help]
775: WHERE Visit_Task_Number = p_visit_task_number AND Visit_Id = p_visit_id AND status_code <> 'DELETED';
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;
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;
936: 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;
954: CLOSE c_fnd_user_resp;
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;
990: END IF;
1092: INTO x_Item_Id, x_Item_Org_Id
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;
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;
1278: END IF; -- End of p_unit_id check
2347: CLOSE c_task;
2348: OPEN c_mr_title(l_MR_id);
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
2348: OPEN c_mr_title(l_MR_id);
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
2364: fnd_log.string(l_log_statement,
2365: L_DEBUG_KEY,
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: */
2365: L_DEBUG_KEY,
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
2400: fnd_log.string(l_log_statement,
2401: L_DEBUG_KEY,
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;
2401: L_DEBUG_KEY,
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: */
2516: IF l_is_old_visit <> 'Y' THEN
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;
2689: fnd_log.string(l_log_statement,
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:
2704: fnd_log.string(l_log_statement,
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;
2765: fnd_log.string(l_log_statement,
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:
2781: L_DEBUG_KEY,
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;
2918:
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,
2945:
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,
2955: ' is invalid as record not found.');
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,
2974: -- find out the price list id
2975: OPEN price_list_id_csr(p_price_list_name,l_customer_id);
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,
2975: OPEN price_list_id_csr(p_price_list_name,l_customer_id);
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,
3292: IF (l_org_id IS NOT NULL)THEN
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,
3531: -- Validate that this past task's dates are within the first cost parent's dates
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;
3546: -- Validate that the first cost child's dates are within this task's dates
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;
3567: AHL_VWP_TIMES_PVT.compute_date(l_visit_start_date, l_dept_id, l_cum_duration);
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:
3655: END IF;
3656:
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;
3656:
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;
3681: END IF;
3682:
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;
3682:
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;
3701: END IF;
3702:
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;
3702:
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;
3753: END IF;
3754:
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;
3754:
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;
3773: END IF;
3774:
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;
3774:
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;
4125: OPEN c_get_contract_id(p_task_rec.contract_number);
4126: FETCH c_get_contract_id into l_contract_id;
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';
4126: FETCH c_get_contract_id into l_contract_id;
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
4649: OPEN c_warranty_record (l_task_tbl(i).visit_task_id);
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:
4877: END IF;
4878:
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:
4878:
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
4885:
4886: ELSE
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;
4886: ELSE
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:
4893: END IF;
4894:
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;
4894:
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:
4907: END LOOP;
4908:
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;
4908:
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;
4953: WHERE visit_task_id = p_task_tbl_type(i).visit_task_id
4954: AND object_version_number = p_task_tbl_type(i).object_version_number;
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;
4954: AND object_version_number = p_task_tbl_type(i).object_version_number;
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:
5142: END IF;
5143:
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:
5143:
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
5150:
5151: ELSE
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;
5151: ELSE
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:
5158: END IF;
5159:
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;
5159:
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;
5177: WHERE visit_task_id = p_task_tbl_type(i).visit_task_id
5178: AND object_version_number = p_task_tbl_type(i).object_version_number;
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;
5178: AND object_version_number = p_task_tbl_type(i).object_version_number;
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;
5313: FOR l_task_rec in get_vst_violating_inst(p_visit_id)
5314: LOOP
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
5314: LOOP
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;
5368: LOOP
5369:
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
5369:
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;
5546: OPEN validate_task_csr(p_task_rec_tbl(i).Visit_Task_Id);
5547: FETCH validate_task_csr INTO l_dummy;
5548: IF validate_task_csr%NOTFOUND THEN
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;
5548: IF validate_task_csr%NOTFOUND THEN
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);
5558: FETCH validate_route_csr INTO l_dummy;
5559: IF validate_route_csr%NOTFOUND THEN
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;
5559: IF validate_route_csr%NOTFOUND THEN
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);
5569: FETCH validate_duplicate_task_csr INTO l_dummy;
5570: IF validate_duplicate_task_csr%NOTFOUND THEN
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;
5570: IF validate_duplicate_task_csr%NOTFOUND THEN
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);
5580: FETCH validate_mr_csr INTO l_dummy;
5581: IF validate_mr_csr%NOTFOUND THEN
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;
5581: IF validate_mr_csr%NOTFOUND THEN
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
5593: IF validate_dep_csr%NOTFOUND THEN
5594: CLOSE validate_dep_csr;
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;
5594: CLOSE validate_dep_csr;
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);
5604: FETCH visit_task_csr INTO l_object_version_number;
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;
5604: FETCH visit_task_csr INTO l_object_version_number;
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
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
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
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
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
5743: OPEN validate_task_csr(p_task_rec_tbl(i).Visit_Task_Id);
5744: FETCH validate_task_csr INTO l_dummy;
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;
5744: FETCH validate_task_csr INTO l_dummy;
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);
5754: FETCH validate_task_status_csr INTO l_dummy;
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;
5754: FETCH validate_task_status_csr INTO l_dummy;
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);
5764: FETCH update_visit_task_csr INTO update_task_rec;
5765: IF update_visit_task_csr%NOTFOUND THEN
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;
5765: IF update_visit_task_csr%NOTFOUND THEN
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
5778: l_task_type_code := 'UNPLANNED';
5779: END IF;
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
5779: END IF;
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
5919: END IF;
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