311: c_visit_rec c_visit%ROWTYPE;
312:
313: BEGIN
314:
315: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
316: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PL SQL procedure ');
317: END IF;
318:
319: --------------------Value OR ID conversion---------------------------
312:
313: BEGIN
314:
315: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
316: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PL SQL procedure ');
317: END IF;
318:
319: --------------------Value OR ID conversion---------------------------
320: --Start API Body
361: --p_x_task_Rec.department_id := c_visit_rec.department_id;
362: p_x_task_Rec.department_id := NULL;
363: END IF;
364:
365: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
366: fnd_log.string(fnd_log.level_statement,L_DEBUG,' Dept ID= ' || p_x_task_Rec.department_id);
367: END IF;
368: ELSE -- Else of if visit org not exists
369: IF (p_x_task_Rec.dept_name IS NOT NULL AND p_x_task_Rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
362: p_x_task_Rec.department_id := NULL;
363: END IF;
364:
365: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
366: fnd_log.string(fnd_log.level_statement,L_DEBUG,' Dept ID= ' || p_x_task_Rec.department_id);
367: END IF;
368: ELSE -- Else of if visit org not exists
369: IF (p_x_task_Rec.dept_name IS NOT NULL AND p_x_task_Rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
370: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
366: fnd_log.string(fnd_log.level_statement,L_DEBUG,' Dept ID= ' || p_x_task_Rec.department_id);
367: END IF;
368: ELSE -- Else of if visit org not exists
369: IF (p_x_task_Rec.dept_name IS NOT NULL AND p_x_task_Rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
370: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
371: fnd_log.string(fnd_log.level_statement,L_DEBUG,' NO ORGANIZATION FOR VISIT');
372: END IF;
373: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_NO_ORG_EXISTS');
374: Fnd_Msg_Pub.ADD;
367: END IF;
368: ELSE -- Else of if visit org not exists
369: IF (p_x_task_Rec.dept_name IS NOT NULL AND p_x_task_Rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
370: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
371: fnd_log.string(fnd_log.level_statement,L_DEBUG,' NO ORGANIZATION FOR VISIT');
372: END IF;
373: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_NO_ORG_EXISTS');
374: Fnd_Msg_Pub.ADD;
375: RAISE Fnd_Api.G_EXC_ERROR;
390: Fnd_Msg_Pub.ADD;
391: RAISE Fnd_Api.g_exc_error;
392: END IF;
393:
394: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
395: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Service ID= ' || p_x_task_Rec.service_request_id);
396: END IF;
397: ELSE
398: p_x_task_Rec.service_request_id := NULL;
391: RAISE Fnd_Api.g_exc_error;
392: END IF;
393:
394: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
395: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Service ID= ' || p_x_task_Rec.service_request_id);
396: END IF;
397: ELSE
398: p_x_task_Rec.service_request_id := NULL;
399: p_x_task_Rec.service_request_number := NULL;
399: p_x_task_Rec.service_request_number := NULL;
400: END IF;
401: */
402:
403: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
404: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PL SQL procedure ');
405: END IF;
406:
407: END Asso_Inst_Dept_to_Tasks;
400: END IF;
401: */
402:
403: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
404: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PL SQL procedure ');
405: END IF;
406:
407: END Asso_Inst_Dept_to_Tasks;
408:
619: --------------------- initialize -----------------------
620: SAVEPOINT Create_Planned_Task;
621:
622: -- Debug info.
623: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
624: fnd_log.string(fnd_log.level_procedure, L_DEBUG||'.begin','At the start of PLSQL procedure');
625: END IF;
626:
627: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
620: SAVEPOINT Create_Planned_Task;
621:
622: -- Debug info.
623: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
624: fnd_log.string(fnd_log.level_procedure, L_DEBUG||'.begin','At the start of PLSQL procedure');
625: END IF;
626:
627: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
628: Fnd_Msg_Pub.initialize;
668: l_department_id := NULL;
669: END IF;
670:
671: -- Cursor to retrieve visit info
672: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
673: fnd_log.string(fnd_log.level_statement, L_DEBUG,'Visit Id: Unit Effe Id ' || l_visit_id || '-' || l_unit_effectivity_id);
674: fnd_log.string(fnd_log.level_statement, L_DEBUG ,'Service Req Id: Department Id:' || l_service_req_id || '-' || l_department_id);
675: END IF;
676:
669: END IF;
670:
671: -- Cursor to retrieve visit info
672: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
673: fnd_log.string(fnd_log.level_statement, L_DEBUG,'Visit Id: Unit Effe Id ' || l_visit_id || '-' || l_unit_effectivity_id);
674: fnd_log.string(fnd_log.level_statement, L_DEBUG ,'Service Req Id: Department Id:' || l_service_req_id || '-' || l_department_id);
675: END IF;
676:
677: IF l_unit_effectivity_id IS NOT NULL THEN
670:
671: -- Cursor to retrieve visit info
672: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
673: fnd_log.string(fnd_log.level_statement, L_DEBUG,'Visit Id: Unit Effe Id ' || l_visit_id || '-' || l_unit_effectivity_id);
674: fnd_log.string(fnd_log.level_statement, L_DEBUG ,'Service Req Id: Department Id:' || l_service_req_id || '-' || l_department_id);
675: END IF;
676:
677: IF l_unit_effectivity_id IS NOT NULL THEN
678: OPEN c_unit (l_unit_effectivity_id);
691: Fnd_Msg_Pub.ADD;
692: ELSE -- UE not planned in any other Visit
693: CLOSE c_unit;
694:
695: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
696: fnd_log.string(fnd_log.level_statement, L_DEBUG,'Unit effectivity' || l_unit_effectivity_id);
697: END IF;
698:
699: -- Get the Object_type code to check whether it is SR or MR.
692: ELSE -- UE not planned in any other Visit
693: CLOSE c_unit;
694:
695: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
696: fnd_log.string(fnd_log.level_statement, L_DEBUG,'Unit effectivity' || l_unit_effectivity_id);
697: END IF;
698:
699: -- Get the Object_type code to check whether it is SR or MR.
700: OPEN c_unit_object_type (l_unit_effectivity_id);
700: OPEN c_unit_object_type (l_unit_effectivity_id);
701: FETCH c_unit_object_type INTO l_object_type;
702: CLOSE c_unit_object_type;
703:
704: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
705: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before l_object_type check' );
706: END IF;
707:
708: IF l_object_type = 'MR' THEN
701: FETCH c_unit_object_type INTO l_object_type;
702: CLOSE c_unit_object_type;
703:
704: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
705: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before l_object_type check' );
706: END IF;
707:
708: IF l_object_type = 'MR' THEN
709: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
705: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before l_object_type check' );
706: END IF;
707:
708: IF l_object_type = 'MR' THEN
709: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
710: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
711: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || l_unit_effectivity_id);
712: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
713: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
706: END IF;
707:
708: IF l_object_type = 'MR' THEN
709: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
710: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
711: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || l_unit_effectivity_id);
712: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
713: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
714: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
707:
708: IF l_object_type = 'MR' THEN
709: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
710: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
711: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || l_unit_effectivity_id);
712: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
713: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
714: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
715: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service_request id =>' || l_service_req_id);
708: IF l_object_type = 'MR' THEN
709: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
710: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
711: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || l_unit_effectivity_id);
712: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
713: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
714: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
715: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service_request id =>' || l_service_req_id);
716: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || p_x_task_Rec.quantity);
709: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
710: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
711: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || l_unit_effectivity_id);
712: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
713: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
714: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
715: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service_request id =>' || l_service_req_id);
716: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || p_x_task_Rec.quantity);
717: END IF;
710: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
711: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || l_unit_effectivity_id);
712: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
713: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
714: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
715: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service_request id =>' || l_service_req_id);
716: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || p_x_task_Rec.quantity);
717: END IF;
718:
711: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || l_unit_effectivity_id);
712: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
713: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
714: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
715: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service_request id =>' || l_service_req_id);
716: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || p_x_task_Rec.quantity);
717: END IF;
718:
719: create_mr_tasks(p_ue_id => l_unit_effectivity_id,
712: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
713: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
714: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
715: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service_request id =>' || l_service_req_id);
716: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || p_x_task_Rec.quantity);
717: END IF;
718:
719: create_mr_tasks(p_ue_id => l_unit_effectivity_id,
720: p_parent_ue_id => null,
732: );
733:
734: -- if object type is SR
735: ELSIF l_object_type = 'SR' THEN
736: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
737: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_object_type = SR');
738: END IF;
739: -- Get the details of the UE
740: OPEN c_item_info (l_unit_effectivity_id);
733:
734: -- if object type is SR
735: ELSIF l_object_type = 'SR' THEN
736: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
737: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_object_type = SR');
738: END IF;
739: -- Get the details of the UE
740: OPEN c_item_info (l_unit_effectivity_id);
741: FETCH c_item_info INTO l_serial_id,l_service_req_id,l_org_id,l_item_id;
740: OPEN c_item_info (l_unit_effectivity_id);
741: FETCH c_item_info INTO l_serial_id,l_service_req_id,l_org_id,l_item_id;
742: CLOSE c_item_info;
743:
744: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
745: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling AHL_VWP_RULES_PVT.Insert_Tasks');
746: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue_id =>' || l_unit_effectivity_id);
747: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
748: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
741: FETCH c_item_info INTO l_serial_id,l_service_req_id,l_org_id,l_item_id;
742: CLOSE c_item_info;
743:
744: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
745: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling AHL_VWP_RULES_PVT.Insert_Tasks');
746: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue_id =>' || l_unit_effectivity_id);
747: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
748: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
749: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
742: CLOSE c_item_info;
743:
744: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
745: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling AHL_VWP_RULES_PVT.Insert_Tasks');
746: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue_id =>' || l_unit_effectivity_id);
747: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
748: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
749: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
750: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_req_id);
743:
744: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
745: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling AHL_VWP_RULES_PVT.Insert_Tasks');
746: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue_id =>' || l_unit_effectivity_id);
747: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
748: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
749: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
750: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_req_id);
751: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || p_x_task_Rec.quantity);
744: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
745: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling AHL_VWP_RULES_PVT.Insert_Tasks');
746: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue_id =>' || l_unit_effectivity_id);
747: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
748: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
749: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
750: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_req_id);
751: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || p_x_task_Rec.quantity);
752: END IF;
745: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling AHL_VWP_RULES_PVT.Insert_Tasks');
746: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue_id =>' || l_unit_effectivity_id);
747: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
748: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
749: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
750: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_req_id);
751: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || p_x_task_Rec.quantity);
752: END IF;
753:
746: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue_id =>' || l_unit_effectivity_id);
747: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
748: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
749: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
750: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_req_id);
751: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || p_x_task_Rec.quantity);
752: END IF;
753:
754: OPEN c_task_for_ue(l_visit_id, l_unit_effectivity_id);
747: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || 'null');
748: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
749: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
750: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_req_id);
751: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || p_x_task_Rec.quantity);
752: END IF;
753:
754: OPEN c_task_for_ue(l_visit_id, l_unit_effectivity_id);
755: FETCH c_task_for_ue INTO l_parent_task_id;
780: x_msg_count => l_msg_count,
781: x_msg_data => l_msg_data
782: );
783:
784: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
785: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'After AHL_VWP_RULES_PVT.Insert_Tasks for Planned Task');
786: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_return_status' || l_return_status);
787: END IF;
788:
781: x_msg_data => l_msg_data
782: );
783:
784: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
785: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'After AHL_VWP_RULES_PVT.Insert_Tasks for Planned Task');
786: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_return_status' || l_return_status);
787: END IF;
788:
789: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
782: );
783:
784: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
785: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'After AHL_VWP_RULES_PVT.Insert_Tasks for Planned Task');
786: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_return_status' || l_return_status);
787: END IF;
788:
789: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
790: CLOSE c_task_for_ue; -- NR-MR Changes - sowsubra
797: -- Check if any valid child UE exist
798: OPEN c_check_child_ue(l_unit_effectivity_id);
799: FETCH c_check_child_ue INTO l_dummy;
800: IF c_check_child_ue%FOUND THEN
801: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
802: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
803: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'c_check_child_ue%FOUND is TRUE');
804: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || l_unit_effectivity_id);
805: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_task_id);
798: OPEN c_check_child_ue(l_unit_effectivity_id);
799: FETCH c_check_child_ue INTO l_dummy;
800: IF c_check_child_ue%FOUND THEN
801: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
802: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
803: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'c_check_child_ue%FOUND is TRUE');
804: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || l_unit_effectivity_id);
805: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_task_id);
806: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
799: FETCH c_check_child_ue INTO l_dummy;
800: IF c_check_child_ue%FOUND THEN
801: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
802: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
803: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'c_check_child_ue%FOUND is TRUE');
804: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || l_unit_effectivity_id);
805: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_task_id);
806: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
807: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
800: IF c_check_child_ue%FOUND THEN
801: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
802: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
803: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'c_check_child_ue%FOUND is TRUE');
804: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || l_unit_effectivity_id);
805: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_task_id);
806: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
807: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
808: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_req_id);
801: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
802: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
803: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'c_check_child_ue%FOUND is TRUE');
804: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || l_unit_effectivity_id);
805: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_task_id);
806: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
807: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
808: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_req_id);
809: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || p_x_task_Rec.quantity);
802: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
803: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'c_check_child_ue%FOUND is TRUE');
804: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || l_unit_effectivity_id);
805: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_task_id);
806: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
807: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
808: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_req_id);
809: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || p_x_task_Rec.quantity);
810: END IF;
803: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'c_check_child_ue%FOUND is TRUE');
804: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || l_unit_effectivity_id);
805: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_task_id);
806: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
807: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
808: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_req_id);
809: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || p_x_task_Rec.quantity);
810: END IF;
811: -- The New API which would recursively create tasks for all the MRs which are the children of the SR
804: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || l_unit_effectivity_id);
805: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_task_id);
806: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
807: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
808: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_req_id);
809: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || p_x_task_Rec.quantity);
810: END IF;
811: -- The New API which would recursively create tasks for all the MRs which are the children of the SR
812: -- the Task id returned by Insert_Tasks is passed as the parent id here
805: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_task_id);
806: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || l_visit_id);
807: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
808: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_req_id);
809: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || p_x_task_Rec.quantity);
810: END IF;
811: -- The New API which would recursively create tasks for all the MRs which are the children of the SR
812: -- the Task id returned by Insert_Tasks is passed as the parent id here
813: create_mr_tasks(p_ue_id => l_unit_effectivity_id,
838: Fnd_Msg_Pub.ADD;
839: RAISE Fnd_Api.G_EXC_ERROR;
840: END IF; ***/
841:
842: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
843: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Inside No Child UEs ELSE BLOCK');
844: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling AHL_VWP_RULES_PVT.Insert_Tasks for Planned Task');
845: END IF;
846:
839: RAISE Fnd_Api.G_EXC_ERROR;
840: END IF; ***/
841:
842: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
843: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Inside No Child UEs ELSE BLOCK');
844: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling AHL_VWP_RULES_PVT.Insert_Tasks for Planned Task');
845: END IF;
846:
847: -- Create a Planned Task
840: END IF; ***/
841:
842: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
843: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Inside No Child UEs ELSE BLOCK');
844: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling AHL_VWP_RULES_PVT.Insert_Tasks for Planned Task');
845: END IF;
846:
847: -- Create a Planned Task
848: AHL_VWP_RULES_PVT.Insert_Tasks
872: x_msg_count => l_msg_count,
873: x_msg_data => l_msg_data
874: );
875:
876: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
877: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'After AHL_VWP_RULES_PVT.Insert_Tasks for Planned Task - l_return_status : '|| l_return_status);
878: END IF;
879:
880: -- TCHIMIRA::ER 9368251 ::17-JUN-2010::Begin
873: x_msg_data => l_msg_data
874: );
875:
876: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
877: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'After AHL_VWP_RULES_PVT.Insert_Tasks for Planned Task - l_return_status : '|| l_return_status);
878: END IF;
879:
880: -- TCHIMIRA::ER 9368251 ::17-JUN-2010::Begin
881: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
877: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'After AHL_VWP_RULES_PVT.Insert_Tasks for Planned Task - l_return_status : '|| l_return_status);
878: END IF;
879:
880: -- TCHIMIRA::ER 9368251 ::17-JUN-2010::Begin
881: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
882: fnd_log.string(fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
883: 'Id of the newly created Task: ' || l_task_id ||
884: 'Id of the parent summary Task: ' || l_parent_task_id ||
885: ', p_x_task_Rec.duration: ' || p_x_task_Rec.duration ||
878: END IF;
879:
880: -- TCHIMIRA::ER 9368251 ::17-JUN-2010::Begin
881: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
882: fnd_log.string(fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
883: 'Id of the newly created Task: ' || l_task_id ||
884: 'Id of the parent summary Task: ' || l_parent_task_id ||
885: ', p_x_task_Rec.duration: ' || p_x_task_Rec.duration ||
886: ', return_status from AHL_VWP_RULES_PVT.Insert_Tasks: ' || l_return_status );
889: -- Update the duration column for the Planned task as well as its parent summary task with the user entered Estimated Duration
890: UPDATE AHL_VISIT_TASKS_B
891: SET DURATION = p_x_task_Rec.duration
892: WHERE VISIT_TASK_ID IN(l_task_id,l_parent_task_id) ;
893: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
894: fnd_log.string(fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
895: 'Updated the duration for the task.');
896: END IF;
897: END IF;
890: UPDATE AHL_VISIT_TASKS_B
891: SET DURATION = p_x_task_Rec.duration
892: WHERE VISIT_TASK_ID IN(l_task_id,l_parent_task_id) ;
893: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
894: fnd_log.string(fnd_log.level_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name,
895: 'Updated the duration for the task.');
896: END IF;
897: END IF;
898: -- TCHIMIRA::ER 9368251 ::17-JUN-2010::End
950: IF x_msg_count > 0 THEN
951: RAISE FND_API.G_EXC_ERROR;
952: END IF;
953:
954: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
955: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before CS_ServiceRequest_PUB.Update_Status ');
956: END IF;
957: -- anraj changed the api
958: CS_ServiceRequest_PUB.Update_Status
951: RAISE FND_API.G_EXC_ERROR;
952: END IF;
953:
954: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
955: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before CS_ServiceRequest_PUB.Update_Status ');
956: END IF;
957: -- anraj changed the api
958: CS_ServiceRequest_PUB.Update_Status
959: (
982: p_status => NULL,
983: x_interaction_id => l_interaction_id
984: );
985:
986: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
987: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'After CS_ServiceRequest_PUB.Update_Status - Return Status - '||x_return_status );
988: END IF;
989:
990: IF NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
983: x_interaction_id => l_interaction_id
984: );
985:
986: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
987: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'After CS_ServiceRequest_PUB.Update_Status - Return Status - '||x_return_status );
988: END IF;
989:
990: IF NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
991: RAISE Fnd_Api.G_EXC_ERROR;
997: OPEN c_task_id_for_ue(l_visit_id, l_unit_effectivity_id);
998: FETCH c_task_id_for_ue INTO p_x_task_Rec.visit_task_id;
999: CLOSE c_task_id_for_ue;
1000:
1001: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1002: fnd_log.string(fnd_log.level_statement, L_DEBUG, 'p_x_task_Rec.visit_task_id = ' || p_x_task_Rec.visit_task_id);
1003: END IF;
1004: /* End changes by rnahata for Bug 6939329 */
1005: END IF; -- c_unit%FOUND
998: FETCH c_task_id_for_ue INTO p_x_task_Rec.visit_task_id;
999: CLOSE c_task_id_for_ue;
1000:
1001: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1002: fnd_log.string(fnd_log.level_statement, L_DEBUG, 'p_x_task_Rec.visit_task_id = ' || p_x_task_Rec.visit_task_id);
1003: END IF;
1004: /* End changes by rnahata for Bug 6939329 */
1005: END IF; -- c_unit%FOUND
1006: ELSE -- l_unit_effectivity_id
1045: IF Fnd_Api.To_Boolean ( p_commit ) THEN
1046: COMMIT WORK;
1047: END IF;
1048:
1049: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1050: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
1051: END IF;
1052:
1053: EXCEPTION
1046: COMMIT WORK;
1047: END IF;
1048:
1049: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1050: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
1051: END IF;
1052:
1053: EXCEPTION
1054: WHEN Fnd_Api.g_exc_error THEN
1218: L_DEBUG CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
1219: MR_Serial_Tbl AHL_VWP_RULES_PVT.MR_Serial_Tbl_Type;
1220:
1221: BEGIN
1222: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1223: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin', 'At the start of the procedure..');
1224: fnd_log.string(fnd_log.level_procedure,L_DEBUG, 'p_ue_id' || p_ue_id);
1225: END IF;
1226:
1219: MR_Serial_Tbl AHL_VWP_RULES_PVT.MR_Serial_Tbl_Type;
1220:
1221: BEGIN
1222: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1223: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin', 'At the start of the procedure..');
1224: fnd_log.string(fnd_log.level_procedure,L_DEBUG, 'p_ue_id' || p_ue_id);
1225: END IF;
1226:
1227: l_unit_eff_id := p_ue_id;
1220:
1221: BEGIN
1222: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1223: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin', 'At the start of the procedure..');
1224: fnd_log.string(fnd_log.level_procedure,L_DEBUG, 'p_ue_id' || p_ue_id);
1225: END IF;
1226:
1227: l_unit_eff_id := p_ue_id;
1228: l_service_request_id := p_service_request_id;
1264: OPEN c_info (l_mr_header_id, l_unit_eff_id);
1265: FETCH c_info INTO l_serial_id;
1266: CLOSE c_info;
1267:
1268: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1269: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_mr_header_id =>' || l_mr_header_id);
1270: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_unit_eff_id =>' ||l_unit_eff_id);
1271: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_serial_id =>' || l_serial_id);
1272: END IF;
1265: FETCH c_info INTO l_serial_id;
1266: CLOSE c_info;
1267:
1268: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1269: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_mr_header_id =>' || l_mr_header_id);
1270: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_unit_eff_id =>' ||l_unit_eff_id);
1271: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_serial_id =>' || l_serial_id);
1272: END IF;
1273:
1266: CLOSE c_info;
1267:
1268: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1269: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_mr_header_id =>' || l_mr_header_id);
1270: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_unit_eff_id =>' ||l_unit_eff_id);
1271: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_serial_id =>' || l_serial_id);
1272: END IF;
1273:
1274: -- NR-MR Changes - sowsubra
1267:
1268: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1269: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_mr_header_id =>' || l_mr_header_id);
1270: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_unit_eff_id =>' ||l_unit_eff_id);
1271: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'l_serial_id =>' || l_serial_id);
1272: END IF;
1273:
1274: -- NR-MR Changes - sowsubra
1275: -- Done to allow creation of a task for an instance that has already been removed.
1280: RAISE Fnd_Api.G_EXC_ERROR;
1281: END IF;
1282: ***/
1283:
1284: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1285: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Calling ahl_vwp_rules_pvt.create_tasks_for_mr');
1286: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_visit_id =>' || p_visit_id);
1287: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_serial_id =>' || l_serial_id);
1288: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_mr_id =>' || l_mr_header_id);
1281: END IF;
1282: ***/
1283:
1284: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1285: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Calling ahl_vwp_rules_pvt.create_tasks_for_mr');
1286: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_visit_id =>' || p_visit_id);
1287: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_serial_id =>' || l_serial_id);
1288: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_mr_id =>' || l_mr_header_id);
1289: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_department_id =>' || l_department_id);
1282: ***/
1283:
1284: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1285: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Calling ahl_vwp_rules_pvt.create_tasks_for_mr');
1286: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_visit_id =>' || p_visit_id);
1287: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_serial_id =>' || l_serial_id);
1288: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_mr_id =>' || l_mr_header_id);
1289: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_department_id =>' || l_department_id);
1290: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_service_req_id =>' || l_service_request_id);
1283:
1284: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1285: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Calling ahl_vwp_rules_pvt.create_tasks_for_mr');
1286: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_visit_id =>' || p_visit_id);
1287: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_serial_id =>' || l_serial_id);
1288: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_mr_id =>' || l_mr_header_id);
1289: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_department_id =>' || l_department_id);
1290: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_service_req_id =>' || l_service_request_id);
1291: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_x_parent_MR_Id =>' || l_parent_MR_Id);
1284: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1285: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Calling ahl_vwp_rules_pvt.create_tasks_for_mr');
1286: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_visit_id =>' || p_visit_id);
1287: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_serial_id =>' || l_serial_id);
1288: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_mr_id =>' || l_mr_header_id);
1289: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_department_id =>' || l_department_id);
1290: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_service_req_id =>' || l_service_request_id);
1291: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_x_parent_MR_Id =>' || l_parent_MR_Id);
1292: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_service_req_id =>' || l_service_request_id);
1285: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Calling ahl_vwp_rules_pvt.create_tasks_for_mr');
1286: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_visit_id =>' || p_visit_id);
1287: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_serial_id =>' || l_serial_id);
1288: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_mr_id =>' || l_mr_header_id);
1289: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_department_id =>' || l_department_id);
1290: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_service_req_id =>' || l_service_request_id);
1291: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_x_parent_MR_Id =>' || l_parent_MR_Id);
1292: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_service_req_id =>' || l_service_request_id);
1293: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_quantity =>' || p_quantity);
1286: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_visit_id =>' || p_visit_id);
1287: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_serial_id =>' || l_serial_id);
1288: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_mr_id =>' || l_mr_header_id);
1289: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_department_id =>' || l_department_id);
1290: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_service_req_id =>' || l_service_request_id);
1291: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_x_parent_MR_Id =>' || l_parent_MR_Id);
1292: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_service_req_id =>' || l_service_request_id);
1293: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_quantity =>' || p_quantity);
1294: END IF;
1287: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_serial_id =>' || l_serial_id);
1288: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_mr_id =>' || l_mr_header_id);
1289: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_department_id =>' || l_department_id);
1290: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_service_req_id =>' || l_service_request_id);
1291: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_x_parent_MR_Id =>' || l_parent_MR_Id);
1292: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_service_req_id =>' || l_service_request_id);
1293: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_quantity =>' || p_quantity);
1294: END IF;
1295:
1288: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_mr_id =>' || l_mr_header_id);
1289: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_department_id =>' || l_department_id);
1290: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_service_req_id =>' || l_service_request_id);
1291: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_x_parent_MR_Id =>' || l_parent_MR_Id);
1292: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_service_req_id =>' || l_service_request_id);
1293: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_quantity =>' || p_quantity);
1294: END IF;
1295:
1296: ahl_vwp_rules_pvt.create_tasks_for_mr(p_visit_id => p_visit_id,
1289: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_department_id =>' || l_department_id);
1290: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_service_req_id =>' || l_service_request_id);
1291: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_x_parent_MR_Id =>' || l_parent_MR_Id);
1292: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_service_req_id =>' || l_service_request_id);
1293: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_quantity =>' || p_quantity);
1294: END IF;
1295:
1296: ahl_vwp_rules_pvt.create_tasks_for_mr(p_visit_id => p_visit_id,
1297: p_unit_id => l_unit_eff_id,
1313: p_x_parent_MR_Id => l_parent_MR_Id,
1314: x_return_status => l_return_status
1315: );
1316:
1317: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1318: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'After ahl_vwp_rules_pvt.create_tasks_for_mr');
1319: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_x_parent_MR_Id = ' || l_parent_MR_Id );
1320: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'x_return_status is ' || l_return_status );
1321: END IF;
1314: x_return_status => l_return_status
1315: );
1316:
1317: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1318: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'After ahl_vwp_rules_pvt.create_tasks_for_mr');
1319: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_x_parent_MR_Id = ' || l_parent_MR_Id );
1320: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'x_return_status is ' || l_return_status );
1321: END IF;
1322:
1315: );
1316:
1317: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1318: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'After ahl_vwp_rules_pvt.create_tasks_for_mr');
1319: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_x_parent_MR_Id = ' || l_parent_MR_Id );
1320: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'x_return_status is ' || l_return_status );
1321: END IF;
1322:
1323: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1316:
1317: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1318: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'After ahl_vwp_rules_pvt.create_tasks_for_mr');
1319: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'p_x_parent_MR_Id = ' || l_parent_MR_Id );
1320: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'x_return_status is ' || l_return_status );
1321: END IF;
1322:
1323: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1324: RAISE Fnd_Api.G_EXC_ERROR;
1327: MR_Serial_Tbl(0).MR_ID := l_mr_header_id ;
1328: MR_Serial_Tbl(0).Serial_ID := l_serial_id;
1329: --SKPATHAK : BUG 13997419 :: 26-APR-2012 :: pass the ue id as well
1330: MR_Serial_Tbl(0).UE_ID := l_unit_eff_id;
1331: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1332: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Calling AHL_VWP_RULES_PVT.Tech_Dependency');
1333: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'MR_Serial_Tbl(0).MR_ID -->'|| MR_Serial_Tbl(0).MR_ID);
1334: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'MR_Serial_Tbl(0).Serial_ID'|| MR_Serial_Tbl(0).Serial_ID);
1335: END IF;
1328: MR_Serial_Tbl(0).Serial_ID := l_serial_id;
1329: --SKPATHAK : BUG 13997419 :: 26-APR-2012 :: pass the ue id as well
1330: MR_Serial_Tbl(0).UE_ID := l_unit_eff_id;
1331: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1332: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Calling AHL_VWP_RULES_PVT.Tech_Dependency');
1333: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'MR_Serial_Tbl(0).MR_ID -->'|| MR_Serial_Tbl(0).MR_ID);
1334: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'MR_Serial_Tbl(0).Serial_ID'|| MR_Serial_Tbl(0).Serial_ID);
1335: END IF;
1336:
1329: --SKPATHAK : BUG 13997419 :: 26-APR-2012 :: pass the ue id as well
1330: MR_Serial_Tbl(0).UE_ID := l_unit_eff_id;
1331: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1332: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Calling AHL_VWP_RULES_PVT.Tech_Dependency');
1333: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'MR_Serial_Tbl(0).MR_ID -->'|| MR_Serial_Tbl(0).MR_ID);
1334: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'MR_Serial_Tbl(0).Serial_ID'|| MR_Serial_Tbl(0).Serial_ID);
1335: END IF;
1336:
1337: AHL_VWP_RULES_PVT.Tech_Dependency
1330: MR_Serial_Tbl(0).UE_ID := l_unit_eff_id;
1331: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1332: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Calling AHL_VWP_RULES_PVT.Tech_Dependency');
1333: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'MR_Serial_Tbl(0).MR_ID -->'|| MR_Serial_Tbl(0).MR_ID);
1334: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'MR_Serial_Tbl(0).Serial_ID'|| MR_Serial_Tbl(0).Serial_ID);
1335: END IF;
1336:
1337: AHL_VWP_RULES_PVT.Tech_Dependency
1338: (p_visit_id => p_visit_id,
1340: p_MR_Serial_Tbl => MR_Serial_Tbl,
1341: x_return_status => l_return_status
1342: );
1343:
1344: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1345: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'After AHL_VWP_RULES_PVT.Tech_Dependency - l_return_status : '||l_return_status);
1346: END IF;
1347:
1348: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1341: x_return_status => l_return_status
1342: );
1343:
1344: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1345: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'After AHL_VWP_RULES_PVT.Tech_Dependency - l_return_status : '||l_return_status);
1346: END IF;
1347:
1348: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1349: RAISE Fnd_Api.G_EXC_ERROR;
1381: END IF;
1382: -- End changes by rnahata for Issue 105
1383:
1384: -- Call create_mr_tasks recursively for the next level of UEs
1385: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1386: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
1387: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || c_relation_rec.related_ue_id);
1388: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_MR_Id);
1389: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || p_visit_id);
1382: -- End changes by rnahata for Issue 105
1383:
1384: -- Call create_mr_tasks recursively for the next level of UEs
1385: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1386: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
1387: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || c_relation_rec.related_ue_id);
1388: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_MR_Id);
1389: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || p_visit_id);
1390: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
1383:
1384: -- Call create_mr_tasks recursively for the next level of UEs
1385: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1386: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
1387: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || c_relation_rec.related_ue_id);
1388: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_MR_Id);
1389: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || p_visit_id);
1390: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
1391: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_request_id);
1384: -- Call create_mr_tasks recursively for the next level of UEs
1385: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1386: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
1387: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || c_relation_rec.related_ue_id);
1388: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_MR_Id);
1389: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || p_visit_id);
1390: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
1391: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_request_id);
1392: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || l_instance_qty);
1385: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1386: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
1387: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || c_relation_rec.related_ue_id);
1388: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_MR_Id);
1389: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || p_visit_id);
1390: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
1391: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_request_id);
1392: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || l_instance_qty);
1393: END IF;
1386: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Before calling create_mr_tasks');
1387: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || c_relation_rec.related_ue_id);
1388: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_MR_Id);
1389: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || p_visit_id);
1390: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
1391: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_request_id);
1392: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || l_instance_qty);
1393: END IF;
1394:
1387: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'ue id =>' || c_relation_rec.related_ue_id);
1388: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_MR_Id);
1389: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || p_visit_id);
1390: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
1391: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_request_id);
1392: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || l_instance_qty);
1393: END IF;
1394:
1395: create_mr_tasks(p_ue_id => c_relation_rec.related_ue_id,
1388: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'parent ue id =>' || l_parent_MR_Id);
1389: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'visit id =>' || p_visit_id);
1390: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'department id =>' || l_department_id);
1391: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'service request id =>' || l_service_request_id);
1392: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'quantity =>' || l_instance_qty);
1393: END IF;
1394:
1395: create_mr_tasks(p_ue_id => c_relation_rec.related_ue_id,
1396: p_parent_ue_id => l_parent_MR_Id,
1467: --------------------- initialize -----------------------
1468: SAVEPOINT Update_Planned_Task;
1469:
1470: -- Debug info.
1471: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1472: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
1473: END IF;
1474:
1475: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
1468: SAVEPOINT Update_Planned_Task;
1469:
1470: -- Debug info.
1471: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1472: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
1473: END IF;
1474:
1475: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
1476: Fnd_Msg_Pub.initialize;
1498: OPEN c_Task(l_Task_rec.visit_task_id);
1499: FETCH c_Task INTO c_Task_rec;
1500: CLOSE c_Task;
1501:
1502: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1503: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id);
1504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name);
1505: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
1506: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
1499: FETCH c_Task INTO c_Task_rec;
1500: CLOSE c_Task;
1501:
1502: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1503: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id);
1504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name);
1505: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
1506: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
1507: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Object version number = ' || l_task_rec.object_version_number);
1500: CLOSE c_Task;
1501:
1502: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1503: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id);
1504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name);
1505: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
1506: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
1507: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Object version number = ' || l_task_rec.object_version_number);
1508: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Duration from record = ' || l_task_rec.duration);
1501:
1502: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1503: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id);
1504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name);
1505: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
1506: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
1507: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Object version number = ' || l_task_rec.object_version_number);
1508: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Duration from record = ' || l_task_rec.duration);
1509: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit start from hour/duration=' || '-' || l_task_rec.start_from_hour || '-' || l_task_rec.duration);
1502: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1503: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id);
1504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name);
1505: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
1506: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
1507: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Object version number = ' || l_task_rec.object_version_number);
1508: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Duration from record = ' || l_task_rec.duration);
1509: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit start from hour/duration=' || '-' || l_task_rec.start_from_hour || '-' || l_task_rec.duration);
1510: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Task Type code/value=' || l_task_rec.task_type_code || '-' || l_task_rec.task_type_value );
1503: fnd_log.string(fnd_log.level_statement,L_DEBUG, 'Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id);
1504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name);
1505: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
1506: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
1507: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Object version number = ' || l_task_rec.object_version_number);
1508: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Duration from record = ' || l_task_rec.duration);
1509: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit start from hour/duration=' || '-' || l_task_rec.start_from_hour || '-' || l_task_rec.duration);
1510: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Task Type code/value=' || l_task_rec.task_type_code || '-' || l_task_rec.task_type_value );
1511: fnd_log.string(fnd_log.level_statement,L_DEBUG,'department_id = ' || l_task_rec.department_id );
1504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name);
1505: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
1506: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
1507: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Object version number = ' || l_task_rec.object_version_number);
1508: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Duration from record = ' || l_task_rec.duration);
1509: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit start from hour/duration=' || '-' || l_task_rec.start_from_hour || '-' || l_task_rec.duration);
1510: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Task Type code/value=' || l_task_rec.task_type_code || '-' || l_task_rec.task_type_value );
1511: fnd_log.string(fnd_log.level_statement,L_DEBUG,'department_id = ' || l_task_rec.department_id );
1512: END IF;
1505: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
1506: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
1507: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Object version number = ' || l_task_rec.object_version_number);
1508: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Duration from record = ' || l_task_rec.duration);
1509: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit start from hour/duration=' || '-' || l_task_rec.start_from_hour || '-' || l_task_rec.duration);
1510: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Task Type code/value=' || l_task_rec.task_type_code || '-' || l_task_rec.task_type_value );
1511: fnd_log.string(fnd_log.level_statement,L_DEBUG,'department_id = ' || l_task_rec.department_id );
1512: END IF;
1513:
1506: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
1507: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Object version number = ' || l_task_rec.object_version_number);
1508: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Duration from record = ' || l_task_rec.duration);
1509: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit start from hour/duration=' || '-' || l_task_rec.start_from_hour || '-' || l_task_rec.duration);
1510: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Task Type code/value=' || l_task_rec.task_type_code || '-' || l_task_rec.task_type_value );
1511: fnd_log.string(fnd_log.level_statement,L_DEBUG,'department_id = ' || l_task_rec.department_id );
1512: END IF;
1513:
1514: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
1507: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Object version number = ' || l_task_rec.object_version_number);
1508: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Duration from record = ' || l_task_rec.duration);
1509: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit start from hour/duration=' || '-' || l_task_rec.start_from_hour || '-' || l_task_rec.duration);
1510: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Task Type code/value=' || l_task_rec.task_type_code || '-' || l_task_rec.task_type_value );
1511: fnd_log.string(fnd_log.level_statement,L_DEBUG,'department_id = ' || l_task_rec.department_id );
1512: END IF;
1513:
1514: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
1515: --
1535: --Assign the returned value
1536: l_task_rec.department_id := l_department_id;
1537: END IF;
1538:
1539: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1540: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Dept ID= ' || l_Task_rec.department_id );
1541: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost parent= ' || l_Task_rec.cost_parent_number);
1542: END IF;
1543:
1536: l_task_rec.department_id := l_department_id;
1537: END IF;
1538:
1539: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1540: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Dept ID= ' || l_Task_rec.department_id );
1541: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost parent= ' || l_Task_rec.cost_parent_number);
1542: END IF;
1543:
1544: --
1537: END IF;
1538:
1539: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1540: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Dept ID= ' || l_Task_rec.department_id );
1541: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost parent= ' || l_Task_rec.cost_parent_number);
1542: END IF;
1543:
1544: --
1545: -- For COST PARENT TASK
1565: --Assign the returned value
1566: l_Task_rec.cost_parent_id := l_cost_parent_id;
1567: END IF;
1568:
1569: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1570: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost parent ID = ' || l_Task_rec.cost_parent_id);
1571: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Validation: Start -- For COST PARENT ');
1572: END IF;
1573:
1566: l_Task_rec.cost_parent_id := l_cost_parent_id;
1567: END IF;
1568:
1569: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1570: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost parent ID = ' || l_Task_rec.cost_parent_id);
1571: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Validation: Start -- For COST PARENT ');
1572: END IF;
1573:
1574: -- To Check for cost parent task id not forming loop
1567: END IF;
1568:
1569: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1570: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost parent ID = ' || l_Task_rec.cost_parent_id);
1571: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Validation: Start -- For COST PARENT ');
1572: END IF;
1573:
1574: -- To Check for cost parent task id not forming loop
1575: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
1582: );
1583:
1584: END IF;
1585:
1586: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1587: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Validation: End -- For COST PARENT ');
1588: END IF;
1589:
1590: ----------- End defining and validate all LOVs on Create Visit's Task UI Screen---
1583:
1584: END IF;
1585:
1586: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1587: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Validation: End -- For COST PARENT ');
1588: END IF;
1589:
1590: ----------- End defining and validate all LOVs on Create Visit's Task UI Screen---
1591:
1590: ----------- End defining and validate all LOVs on Create Visit's Task UI Screen---
1591:
1592: ----------------------- validate ----------------------
1593:
1594: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1595: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Validate');
1596: END IF;
1597:
1598: -- For all optional fields check if its g_miss_num/g_miss_char/g_miss_date
1591:
1592: ----------------------- validate ----------------------
1593:
1594: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1595: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Validate');
1596: END IF;
1597:
1598: -- For all optional fields check if its g_miss_num/g_miss_char/g_miss_date
1599: -- then Null else the value call Default_Missing_Attribs procedure
1647: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1648: END IF;
1649:
1650: -------------------------- update --------------------
1651: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1652: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Update');
1653: END IF;
1654:
1655: --Modified by mpothuku to fix LTP forum issue #208 on 04/19/05
1648: END IF;
1649:
1650: -------------------------- update --------------------
1651: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1652: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Update');
1653: END IF;
1654:
1655: --Modified by mpothuku to fix LTP forum issue #208 on 04/19/05
1656: IF( nvl(p_module_type,'XXX') <> 'LTP') THEN
1752: AHL_VWP_RULES_PVT.Get_Warranty_Rec_for_Update(
1753: p_task_rec => l_task_rec,
1754: x_warranty_entl_tbl => l_entl_rec_tbl);
1755:
1756: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1757: fnd_log.string(fnd_log.level_statement,
1758: L_DEBUG,
1759: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements.');
1760: END IF;
1753: p_task_rec => l_task_rec,
1754: x_warranty_entl_tbl => l_entl_rec_tbl);
1755:
1756: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1757: fnd_log.string(fnd_log.level_statement,
1758: L_DEBUG,
1759: 'Before calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements.');
1760: END IF;
1761:
1766: x_return_status => l_return_status,
1767: x_msg_count => l_msg_count,
1768: x_msg_data => l_msg_data);
1769:
1770: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1771: fnd_log.string(fnd_log.level_statement,
1772: L_DEBUG,
1773: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
1774: l_return_status);
1767: x_msg_count => l_msg_count,
1768: x_msg_data => l_msg_data);
1769:
1770: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1771: fnd_log.string(fnd_log.level_statement,
1772: L_DEBUG,
1773: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
1774: l_return_status);
1775: END IF;
1783: --salogan added for supplier warranty ends
1784:
1785: -- Added cxcheng POST11510--------------
1786: --Now adjust the times derivation for task
1787: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1788: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
1789: END IF;
1790:
1791: --SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: Call Adjust_Task_Times only if past date is null
1784:
1785: -- Added cxcheng POST11510--------------
1786: --Now adjust the times derivation for task
1787: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1788: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
1789: END IF;
1790:
1791: --SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: Call Adjust_Task_Times only if past date is null
1792: IF l_task_rec.PAST_TASK_START_DATE IS NULL THEN
1799: x_msg_data => l_msg_data,
1800: p_task_id => l_task_rec.visit_task_id);
1801: END IF;
1802:
1803: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1804: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Adjust_Task_Times - l_return_status : '||l_return_status);
1805: END IF;
1806:
1807: --Standard check to count messages
1800: p_task_id => l_task_rec.visit_task_id);
1801: END IF;
1802:
1803: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1804: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Adjust_Task_Times - l_return_status : '||l_return_status);
1805: END IF;
1806:
1807: --Standard check to count messages
1808: l_msg_count := Fnd_Msg_Pub.count_msg;
1826: FETCH c_Task INTO c_upd_Task_rec;
1827: CLOSE c_Task;
1828:
1829: IF c_upd_Task_rec.start_date_time IS NOT NULL THEN
1830: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1831: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
1832: END IF;
1833:
1834: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
1827: CLOSE c_Task;
1828:
1829: IF c_upd_Task_rec.start_date_time IS NOT NULL THEN
1830: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1831: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
1832: END IF;
1833:
1834: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
1835: p_api_version => 1.0,
1845: x_return_status => l_return_status,
1846: x_msg_count => l_msg_count,
1847: x_msg_data => l_msg_data );
1848:
1849: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1850: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
1851: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Planned Order Flag : ' || l_planned_order_flag);
1852: END IF;
1853:
1846: x_msg_count => l_msg_count,
1847: x_msg_data => l_msg_data );
1848:
1849: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1850: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
1851: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Planned Order Flag : ' || l_planned_order_flag);
1852: END IF;
1853:
1854: IF l_return_status <> 'S' THEN
1847: x_msg_data => l_msg_data );
1848:
1849: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1850: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
1851: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Planned Order Flag : ' || l_planned_order_flag);
1852: END IF;
1853:
1854: IF l_return_status <> 'S' THEN
1855: RAISE Fnd_Api.G_EXC_ERROR;
1877: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1878: COMMIT;
1879: END IF;
1880:
1881: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1882: fnd_log.string(fnd_log.level_procedure,L_DEBUG ||'.end','At the end of PLSQL procedure');
1883: END IF;
1884:
1885: EXCEPTION
1878: COMMIT;
1879: END IF;
1880:
1881: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1882: fnd_log.string(fnd_log.level_procedure,L_DEBUG ||'.end','At the end of PLSQL procedure');
1883: END IF;
1884:
1885: EXCEPTION
1886: WHEN Fnd_Api.g_exc_error THEN
1949: BEGIN
1950: --------------------- initialize -----------------------
1951: SAVEPOINT Delete_Planned_Task;
1952: -- Check if API is called in debug mode. If yes, enable debug.
1953: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1954: fnd_log.string(fnd_log.level_procedure,l_debug||'.begin','At the start of PLSQL procedure');
1955: END IF;
1956:
1957: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
1950: --------------------- initialize -----------------------
1951: SAVEPOINT Delete_Planned_Task;
1952: -- Check if API is called in debug mode. If yes, enable debug.
1953: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1954: fnd_log.string(fnd_log.level_procedure,l_debug||'.begin','At the start of PLSQL procedure');
1955: END IF;
1956:
1957: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
1958: Fnd_Msg_Pub.initialize;
1971: RAISE Fnd_Api.g_exc_unexpected_error;
1972: END IF;
1973:
1974: ------------------------Start of API Body------------------------------------
1975: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1976: fnd_log.string(fnd_log.level_statement,l_debug,'Task Id' || p_visit_task_ID);
1977: END IF;
1978:
1979: -- To check if the input taskid exists in task entity.
1972: END IF;
1973:
1974: ------------------------Start of API Body------------------------------------
1975: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1976: fnd_log.string(fnd_log.level_statement,l_debug,'Task Id' || p_visit_task_ID);
1977: END IF;
1978:
1979: -- To check if the input taskid exists in task entity.
1980: OPEN c_Task(p_Visit_Task_ID);
1984: CLOSE c_Task;
1985: Fnd_Message.set_name('AHL', 'AHL_VWP_TASK_ID_INVALID');
1986: FND_MESSAGE.SET_TOKEN('TASK_ID',p_visit_task_id,false);
1987: Fnd_Msg_Pub.ADD;
1988: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1989: fnd_log.string(fnd_log.level_statement,l_debug,'Invalid Task Id' || p_visit_task_ID);
1990: END IF;
1991: RAISE Fnd_Api.g_exc_error;
1992: ELSE
1985: Fnd_Message.set_name('AHL', 'AHL_VWP_TASK_ID_INVALID');
1986: FND_MESSAGE.SET_TOKEN('TASK_ID',p_visit_task_id,false);
1987: Fnd_Msg_Pub.ADD;
1988: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1989: fnd_log.string(fnd_log.level_statement,l_debug,'Invalid Task Id' || p_visit_task_ID);
1990: END IF;
1991: RAISE Fnd_Api.g_exc_error;
1992: ELSE
1993: CLOSE c_Task;
1994: -- To find the visit related information
1995: l_origin_id:= c_task_rec.originating_task_id;
1996:
1997: If l_origin_id is Not Null then
1998: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1999: fnd_log.string(fnd_log.level_statement,l_debug,'Before calling AHL_VWP_TASKS_PVT.Delete_Summary_Task');
2000: END IF;
2001:
2002: AHL_VWP_TASKS_PVT.Delete_Summary_Task(
1995: l_origin_id:= c_task_rec.originating_task_id;
1996:
1997: If l_origin_id is Not Null then
1998: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1999: fnd_log.string(fnd_log.level_statement,l_debug,'Before calling AHL_VWP_TASKS_PVT.Delete_Summary_Task');
2000: END IF;
2001:
2002: AHL_VWP_TASKS_PVT.Delete_Summary_Task(
2003: p_api_version => p_api_version,
2009: x_return_status => x_return_status,
2010: x_msg_count => x_msg_count,
2011: x_msg_data => x_msg_data);
2012:
2013: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2014: fnd_log.string(fnd_log.level_statement,l_debug,'After calling AHL_VWP_TASKS_PVT.Delete_Summary_Task : x_return_status - '||x_return_status);
2015: END IF;
2016:
2017: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
2010: x_msg_count => x_msg_count,
2011: x_msg_data => x_msg_data);
2012:
2013: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2014: fnd_log.string(fnd_log.level_statement,l_debug,'After calling AHL_VWP_TASKS_PVT.Delete_Summary_Task : x_return_status - '||x_return_status);
2015: END IF;
2016:
2017: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
2018: RAISE Fnd_Api.G_EXC_ERROR;
2033: p_count => x_msg_count,
2034: p_data => x_msg_data
2035: );
2036:
2037: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2038: fnd_log.string(fnd_log.level_procedure,l_debug ||'.end','At the end of PLSQL procedure');
2039: END IF;
2040: EXCEPTION
2041: WHEN Fnd_Api.g_exc_error THEN
2034: p_data => x_msg_data
2035: );
2036:
2037: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2038: fnd_log.string(fnd_log.level_procedure,l_debug ||'.end','At the end of PLSQL procedure');
2039: END IF;
2040: EXCEPTION
2041: WHEN Fnd_Api.g_exc_error THEN
2042: ROLLBACK TO Delete_Planned_Task;
2093: --
2094: -- Validate required items.
2095: x_return_status := FND_API.G_RET_STS_SUCCESS;
2096:
2097: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2098: fnd_log.string(fnd_log.level_procedure,l_debug||'.begin', 'At the start of the procedure..');
2099: fnd_log.string(fnd_log.level_procedure,l_debug, 'Before Check_Visit_Task_Req_Items');
2100: END IF;
2101:
2094: -- Validate required items.
2095: x_return_status := FND_API.G_RET_STS_SUCCESS;
2096:
2097: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2098: fnd_log.string(fnd_log.level_procedure,l_debug||'.begin', 'At the start of the procedure..');
2099: fnd_log.string(fnd_log.level_procedure,l_debug, 'Before Check_Visit_Task_Req_Items');
2100: END IF;
2101:
2102: Check_Visit_Task_Req_Items (
2095: x_return_status := FND_API.G_RET_STS_SUCCESS;
2096:
2097: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2098: fnd_log.string(fnd_log.level_procedure,l_debug||'.begin', 'At the start of the procedure..');
2099: fnd_log.string(fnd_log.level_procedure,l_debug, 'Before Check_Visit_Task_Req_Items');
2100: END IF;
2101:
2102: Check_Visit_Task_Req_Items (
2103: p_task_rec => p_task_rec,
2106: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
2107: RETURN;
2108: END IF;
2109:
2110: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2111: fnd_log.string(fnd_log.level_statement,l_debug,'After Check_Visit_Task_Req_Items');
2112: END IF;
2113:
2114: -- Validate uniqueness.
2107: RETURN;
2108: END IF;
2109:
2110: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2111: fnd_log.string(fnd_log.level_statement,l_debug,'After Check_Visit_Task_Req_Items');
2112: END IF;
2113:
2114: -- Validate uniqueness.
2115: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2111: fnd_log.string(fnd_log.level_statement,l_debug,'After Check_Visit_Task_Req_Items');
2112: END IF;
2113:
2114: -- Validate uniqueness.
2115: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2116: fnd_log.string(fnd_log.level_statement,l_debug,'Before Check_Visit_Task_UK_Items');
2117: END IF;
2118:
2119: Check_Visit_Task_UK_Items (
2112: END IF;
2113:
2114: -- Validate uniqueness.
2115: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2116: fnd_log.string(fnd_log.level_statement,l_debug,'Before Check_Visit_Task_UK_Items');
2117: END IF;
2118:
2119: Check_Visit_Task_UK_Items (
2120: p_task_rec => p_task_rec,
2124: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
2125: RETURN;
2126: END IF;
2127:
2128: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2129: fnd_log.string(fnd_log.level_procedure,l_debug,'After Check_Visit_Task_UK_Items..');
2130: fnd_log.string(fnd_log.level_procedure,l_debug||'.end','At the end of the procedure');
2131: END IF;
2132: END Check_Task_Items;
2125: RETURN;
2126: END IF;
2127:
2128: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2129: fnd_log.string(fnd_log.level_procedure,l_debug,'After Check_Visit_Task_UK_Items..');
2130: fnd_log.string(fnd_log.level_procedure,l_debug||'.end','At the end of the procedure');
2131: END IF;
2132: END Check_Task_Items;
2133:
2126: END IF;
2127:
2128: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2129: fnd_log.string(fnd_log.level_procedure,l_debug,'After Check_Visit_Task_UK_Items..');
2130: fnd_log.string(fnd_log.level_procedure,l_debug||'.end','At the end of the procedure');
2131: END IF;
2132: END Check_Task_Items;
2133:
2134: ---------------------------------------------------------------------
2188: BEGIN
2189:
2190: x_return_status := FND_API.G_RET_STS_SUCCESS;
2191:
2192: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2193: fnd_log.string(fnd_log.level_procedure,l_debug,'At the Start of Check_Visit_Task_Req_Items ');
2194: END IF;
2195:
2196: -- TASK NAME ==== NAME
2189:
2190: x_return_status := FND_API.G_RET_STS_SUCCESS;
2191:
2192: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2193: fnd_log.string(fnd_log.level_procedure,l_debug,'At the Start of Check_Visit_Task_Req_Items ');
2194: END IF;
2195:
2196: -- TASK NAME ==== NAME
2197: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
2200: x_return_status := Fnd_Api.g_ret_sts_error;
2201: RETURN;
2202: END IF;
2203:
2204: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2205: fnd_log.string(fnd_log.level_statement,l_debug,'Inside Validation Start from Hour = ' || p_task_rec.START_FROM_HOUR);
2206: END IF;
2207:
2208: IF (p_task_rec.START_FROM_HOUR IS NOT NULL and p_Task_rec.START_FROM_HOUR <> Fnd_Api.G_MISS_NUM) THEN
2201: RETURN;
2202: END IF;
2203:
2204: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2205: fnd_log.string(fnd_log.level_statement,l_debug,'Inside Validation Start from Hour = ' || p_task_rec.START_FROM_HOUR);
2206: END IF;
2207:
2208: IF (p_task_rec.START_FROM_HOUR IS NOT NULL and p_Task_rec.START_FROM_HOUR <> Fnd_Api.G_MISS_NUM) THEN
2209: IF p_task_rec.START_FROM_HOUR < 0 OR FLOOR(p_task_rec.START_FROM_HOUR) <> p_task_rec.START_FROM_HOUR THEN
2235: l_debug CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
2236:
2237: BEGIN
2238: x_return_status := Fnd_Api.g_ret_sts_success;
2239: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2240: fnd_log.string(fnd_log.level_procedure,l_debug,'At the Start of Check_Visit_Task_UK_Items ');
2241: END IF;
2242: --
2243: -- For Task, when ID is passed in, we need to
2236:
2237: BEGIN
2238: x_return_status := Fnd_Api.g_ret_sts_success;
2239: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2240: fnd_log.string(fnd_log.level_procedure,l_debug,'At the Start of Check_Visit_Task_UK_Items ');
2241: END IF;
2242: --
2243: -- For Task, when ID is passed in, we need to
2244: -- check if this ID is unique.
2242: --
2243: -- For Task, when ID is passed in, we need to
2244: -- check if this ID is unique.
2245: IF p_validation_mode = Jtf_Plsql_Api.g_create AND p_task_rec.Visit_Task_ID IS NOT NULL THEN
2246: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2247: fnd_log.string(fnd_log.level_statement,'ahl.plsql.',': = Check_Visit_Task_UK_Items Uniqueness Of ID');
2248: END IF;
2249: -- FOR CREATION
2250: IF Ahl_Utility_Pvt.check_uniqueness(
2243: -- For Task, when ID is passed in, we need to
2244: -- check if this ID is unique.
2245: IF p_validation_mode = Jtf_Plsql_Api.g_create AND p_task_rec.Visit_Task_ID IS NOT NULL THEN
2246: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2247: fnd_log.string(fnd_log.level_statement,'ahl.plsql.',': = Check_Visit_Task_UK_Items Uniqueness Of ID');
2248: END IF;
2249: -- FOR CREATION
2250: IF Ahl_Utility_Pvt.check_uniqueness(
2251: 'Ahl_Visit_Tasks_vl',