302: l_inst_id NUMBER := 0 ;
303:
304: BEGIN
305:
306: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
307: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.begin', 'At the start of the API');
308: END IF;
309:
310:
303:
304: BEGIN
305:
306: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
307: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.begin', 'At the start of the API');
308: END IF;
309:
310:
311: ------------------------- Start of Body -------------------------------------
323: OPEN c_visit(p_x_task_Rec.visit_id);
324: FETCH c_visit INTO c_visit_rec;
325: CLOSE c_visit;
326:
327: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
328: fnd_log.string(fnd_log.level_statement, l_full_name, 'tasktype= ' || p_x_task_Rec.task_type_code);
329:
330: END IF;
331: -- Check item name or item id
324: FETCH c_visit INTO c_visit_rec;
325: CLOSE c_visit;
326:
327: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
328: fnd_log.string(fnd_log.level_statement, l_full_name, 'tasktype= ' || p_x_task_Rec.task_type_code);
329:
330: END IF;
331: -- Check item name or item id
332: IF (p_x_task_Rec.inventory_item_id IS NOT NULL AND
341: x_org_id => l_org_id,
342: x_item_name => l_item_name,
343: x_return_status => l_return_status,
344: x_error_msg_code => l_msg_data);
345: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
346: fnd_log.string(fnd_log.level_statement, l_full_name, 'item id, item name, orgid: ' || l_item_id || '**' || l_item_name || '**' || l_org_id);
347: END IF;
348: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
349: THEN
342: x_item_name => l_item_name,
343: x_return_status => l_return_status,
344: x_error_msg_code => l_msg_data);
345: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
346: fnd_log.string(fnd_log.level_statement, l_full_name, 'item id, item name, orgid: ' || l_item_id || '**' || l_item_name || '**' || l_org_id);
347: END IF;
348: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
349: THEN
350: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
359:
360:
361: ELSE -- Else of item id and item org id exists or not
362: IF p_x_task_Rec.item_name IS NULL OR p_x_task_Rec.item_name = FND_API.g_miss_char THEN
363: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
364: fnd_log.string(fnd_log.level_statement, l_full_name, 'Item name missing');
365: END IF;
366: Fnd_Message.SET_NAME('AHL','AHL_VWP_TSK_ITEM_MISSING');
367: Fnd_Msg_Pub.ADD;
360:
361: ELSE -- Else of item id and item org id exists or not
362: IF p_x_task_Rec.item_name IS NULL OR p_x_task_Rec.item_name = FND_API.g_miss_char THEN
363: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
364: fnd_log.string(fnd_log.level_statement, l_full_name, 'Item name missing');
365: END IF;
366: Fnd_Message.SET_NAME('AHL','AHL_VWP_TSK_ITEM_MISSING');
367: Fnd_Msg_Pub.ADD;
368: RAISE Fnd_Api.G_EXC_ERROR;
367: Fnd_Msg_Pub.ADD;
368: RAISE Fnd_Api.G_EXC_ERROR;
369: ELSE
370: -- Item name is not null, but at least one of item id and org id is null
371: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
372: fnd_log.string(fnd_log.level_statement, l_full_name, 'Check item else condition.');
373: END IF;
374: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
375: Fnd_Msg_Pub.ADD;
368: RAISE Fnd_Api.G_EXC_ERROR;
369: ELSE
370: -- Item name is not null, but at least one of item id and org id is null
371: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
372: fnd_log.string(fnd_log.level_statement, l_full_name, 'Check item else condition.');
373: END IF;
374: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
375: Fnd_Msg_Pub.ADD;
376: RAISE Fnd_Api.G_EXC_ERROR;
428: p_x_task_Rec.instance_id := l_instance_id;
429: END IF;
430: ELSE
431: -- Neither Serial Number not Instance Id has been passed
432: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
433: fnd_log.string(fnd_log.level_statement, l_full_name, 'Check serial not found else');
434: END IF;
435: Fnd_Message.SET_NAME('AHL','AHL_VWP_TSK_SERIAL_MISSING');
436: Fnd_Msg_Pub.ADD;
429: END IF;
430: ELSE
431: -- Neither Serial Number not Instance Id has been passed
432: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
433: fnd_log.string(fnd_log.level_statement, l_full_name, 'Check serial not found else');
434: END IF;
435: Fnd_Message.SET_NAME('AHL','AHL_VWP_TSK_SERIAL_MISSING');
436: Fnd_Msg_Pub.ADD;
437: RAISE Fnd_Api.G_EXC_ERROR;
475: p_x_task_Rec.dept_name := NULL;
476: -- Post 11.5.10 changes by Senthil
477: p_x_task_Rec.department_id := c_visit_rec.department_id;
478: END IF;
479: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
480: fnd_log.string(fnd_log.level_statement, l_full_name, 'Dept ID= ' || p_x_task_Rec.department_id);
481: END IF;
482: ELSE -- Else of if visit org not exists
483: IF (p_x_task_Rec.dept_name IS NOT NULL AND p_x_task_Rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
476: -- Post 11.5.10 changes by Senthil
477: p_x_task_Rec.department_id := c_visit_rec.department_id;
478: END IF;
479: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
480: fnd_log.string(fnd_log.level_statement, l_full_name, 'Dept ID= ' || p_x_task_Rec.department_id);
481: END IF;
482: ELSE -- Else of if visit org not exists
483: IF (p_x_task_Rec.dept_name IS NOT NULL AND p_x_task_Rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
484: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
480: fnd_log.string(fnd_log.level_statement, l_full_name, 'Dept ID= ' || p_x_task_Rec.department_id);
481: END IF;
482: ELSE -- Else of if visit org not exists
483: IF (p_x_task_Rec.dept_name IS NOT NULL AND p_x_task_Rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
484: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
485: fnd_log.string(fnd_log.level_statement, l_full_name, 'NO ORGANIZATION FOR VISIT');
486: END IF;
487: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_NO_ORG_EXISTS');
488: Fnd_Msg_Pub.ADD;
481: END IF;
482: ELSE -- Else of if visit org not exists
483: IF (p_x_task_Rec.dept_name IS NOT NULL AND p_x_task_Rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
484: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
485: fnd_log.string(fnd_log.level_statement, l_full_name, 'NO ORGANIZATION FOR VISIT');
486: END IF;
487: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_NO_ORG_EXISTS');
488: Fnd_Msg_Pub.ADD;
489: RAISE Fnd_Api.G_EXC_ERROR;
490: END IF;
491: END IF; -- End of if visit org exists
492:
493:
494: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
495: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.end', 'At the normal execution end of the procedure');
496: END IF;
497:
498:
491: END IF; -- End of if visit org exists
492:
493:
494: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
495: FND_LOG.string(FND_LOG.level_procedure, l_full_name || '.end', 'At the normal execution end of the procedure');
496: END IF;
497:
498:
499: ------------------------- Finish of Body -------------------------------------
600: BEGIN
601: --------------------- initialize -----------------------
602: SAVEPOINT Create_Unplanned_Task;
603: -- Debug info.
604: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
605: fnd_log.string(fnd_log.level_procedure, l_full_name || '.begin', 'Entering Procedure');
606: END IF;
607:
608: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
601: --------------------- initialize -----------------------
602: SAVEPOINT Create_Unplanned_Task;
603: -- Debug info.
604: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
605: fnd_log.string(fnd_log.level_procedure, l_full_name || '.begin', 'Entering Procedure');
606: END IF;
607:
608: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
609: Fnd_Msg_Pub.initialize;
644: IF l_instance_id = FND_API.g_miss_num THEN
645: l_instance_id := NULL;
646: END IF;
647:
648: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
649: fnd_log.string(fnd_log.level_statement, l_full_name, 'Visitid , service, dept: ' || l_visit_id || '---' || '---' || l_department_id);
650: fnd_log.string(fnd_log.level_statement, l_full_name, 'Serial, Item, Item Org: ' || l_instance_id || '---' ||l_item_id || '---' || l_org_id);
651: fnd_log.string(fnd_log.level_statement, l_full_name, 'mr_header:' ||l_mr_header_id );
652: END IF;
645: l_instance_id := NULL;
646: END IF;
647:
648: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
649: fnd_log.string(fnd_log.level_statement, l_full_name, 'Visitid , service, dept: ' || l_visit_id || '---' || '---' || l_department_id);
650: fnd_log.string(fnd_log.level_statement, l_full_name, 'Serial, Item, Item Org: ' || l_instance_id || '---' ||l_item_id || '---' || l_org_id);
651: fnd_log.string(fnd_log.level_statement, l_full_name, 'mr_header:' ||l_mr_header_id );
652: END IF;
653:
646: END IF;
647:
648: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
649: fnd_log.string(fnd_log.level_statement, l_full_name, 'Visitid , service, dept: ' || l_visit_id || '---' || '---' || l_department_id);
650: fnd_log.string(fnd_log.level_statement, l_full_name, 'Serial, Item, Item Org: ' || l_instance_id || '---' ||l_item_id || '---' || l_org_id);
651: fnd_log.string(fnd_log.level_statement, l_full_name, 'mr_header:' ||l_mr_header_id );
652: END IF;
653:
654: --B6452310 - sowsubra - commented to allow duplicate MR's in a visit
647:
648: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
649: fnd_log.string(fnd_log.level_statement, l_full_name, 'Visitid , service, dept: ' || l_visit_id || '---' || '---' || l_department_id);
650: fnd_log.string(fnd_log.level_statement, l_full_name, 'Serial, Item, Item Org: ' || l_instance_id || '---' ||l_item_id || '---' || l_org_id);
651: fnd_log.string(fnd_log.level_statement, l_full_name, 'mr_header:' ||l_mr_header_id );
652: END IF;
653:
654: --B6452310 - sowsubra - commented to allow duplicate MR's in a visit
655: --Begin Comment out
709: ----------------------------------------------------------------------------------------------------------
710: */
711: -- yazhou 15Nov2005 ends
712:
713: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
714: fnd_log.string(fnd_log.level_statement, l_full_name, 'About to call AHL_UMP_UNPLANNED_PVT.CREATE_UNIT_EFFECTIVITY with p_mr_header_id = ' || l_mr_header_id || ' and p_instance_id = ' || l_instance_id);
715: END IF;
716:
717: AHL_UMP_UNPLANNED_PVT.CREATE_UNIT_EFFECTIVITY(
710: */
711: -- yazhou 15Nov2005 ends
712:
713: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
714: fnd_log.string(fnd_log.level_statement, l_full_name, 'About to call AHL_UMP_UNPLANNED_PVT.CREATE_UNIT_EFFECTIVITY with p_mr_header_id = ' || l_mr_header_id || ' and p_instance_id = ' || l_instance_id);
715: END IF;
716:
717: AHL_UMP_UNPLANNED_PVT.CREATE_UNIT_EFFECTIVITY(
718: p_api_version => 1.0,
722: p_mr_header_id => l_mr_header_id,
723: p_instance_id => l_instance_id,
724: x_orig_ue_id => l_ue_id);
725:
726: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
727: fnd_log.string(fnd_log.level_statement, l_full_name, 'Returned from call to AHL_UMP_UNPLANNED_PVT.CREATE_UNIT_EFFECTIVITY. x_return_status = ' || l_return_status || ' and x_orig_ue_id = ' || l_ue_id);
728: END IF;
729:
730: IF l_msg_count > 0 OR NVL(l_return_status,'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
723: p_instance_id => l_instance_id,
724: x_orig_ue_id => l_ue_id);
725:
726: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
727: fnd_log.string(fnd_log.level_statement, l_full_name, 'Returned from call to AHL_UMP_UNPLANNED_PVT.CREATE_UNIT_EFFECTIVITY. x_return_status = ' || l_return_status || ' and x_orig_ue_id = ' || l_ue_id);
728: END IF;
729:
730: IF l_msg_count > 0 OR NVL(l_return_status,'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
731: X_msg_count := l_msg_count;
736:
737: p_x_task_Rec.task_type_code :='UNPLANNED';
738: p_x_task_Rec.unit_effectivity_id :=l_ue_id;
739:
740: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
741: fnd_log.string(fnd_log.level_statement, l_full_name, 'About to call AHL_VWP_PLAN_TASKS_PVT.CREATE_PLANNED_TASK');
742: END IF;
743:
744: AHL_VWP_PLAN_TASKS_PVT.CREATE_PLANNED_TASK(
737: p_x_task_Rec.task_type_code :='UNPLANNED';
738: p_x_task_Rec.unit_effectivity_id :=l_ue_id;
739:
740: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
741: fnd_log.string(fnd_log.level_statement, l_full_name, 'About to call AHL_VWP_PLAN_TASKS_PVT.CREATE_PLANNED_TASK');
742: END IF;
743:
744: AHL_VWP_PLAN_TASKS_PVT.CREATE_PLANNED_TASK(
745: p_api_version => 1.0,
747: x_return_status => l_return_status,
748: x_msg_count => l_msg_count,
749: x_msg_data => l_msg_data);
750:
751: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
752: fnd_log.string(fnd_log.level_statement, l_full_name, 'Returned from call to AHL_VWP_PLAN_TASKS_PVT.CREATE_PLANNED_TASK. x_return_status = ' || l_return_status || ', p_x_task_rec.VISIT_TASK_ID = ' || p_x_task_rec.VISIT_TASK_ID);
753: END IF;
754:
755: IF l_msg_count > 0 THEN
748: x_msg_count => l_msg_count,
749: x_msg_data => l_msg_data);
750:
751: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
752: fnd_log.string(fnd_log.level_statement, l_full_name, 'Returned from call to AHL_VWP_PLAN_TASKS_PVT.CREATE_PLANNED_TASK. x_return_status = ' || l_return_status || ', p_x_task_rec.VISIT_TASK_ID = ' || p_x_task_rec.VISIT_TASK_ID);
753: END IF;
754:
755: IF l_msg_count > 0 THEN
756: X_msg_count := l_msg_count;
806: p_count => x_msg_count,
807: p_data => x_msg_data
808: );
809:
810: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
811: fnd_log.string(fnd_log.level_procedure, l_full_name ||'.end', 'Exiting procedure');
812: END IF;
813:
814: EXCEPTION
807: p_data => x_msg_data
808: );
809:
810: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
811: fnd_log.string(fnd_log.level_procedure, l_full_name ||'.end', 'Exiting procedure');
812: END IF;
813:
814: EXCEPTION
815: WHEN Fnd_Api.g_exc_error THEN
894: --------------------- initialize -----------------------
895: SAVEPOINT Update_Unplanned_Task;
896:
897: -- Debug info.
898: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
899: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':*************************Start*************************');
900: END IF;
901:
902: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
895: SAVEPOINT Update_Unplanned_Task;
896:
897: -- Debug info.
898: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
899: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':*************************Start*************************');
900: END IF;
901:
902: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
903: Fnd_Msg_Pub.initialize;
924: OPEN c_Task(l_Task_rec.visit_task_id);
925: FETCH c_Task INTO c_Task_rec;
926: CLOSE c_Task;
927:
928: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
929: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id);
930: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name);
931: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
932: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
925: FETCH c_Task INTO c_Task_rec;
926: CLOSE c_Task;
927:
928: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
929: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id);
930: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name);
931: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
932: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
933: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Object version number = ' || l_task_rec.object_version_number);
926: CLOSE c_Task;
927:
928: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
929: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id);
930: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name);
931: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
932: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
933: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Object version number = ' || l_task_rec.object_version_number);
934: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Duration from record = ' || l_task_rec.duration);
927:
928: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
929: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id);
930: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name);
931: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
932: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
933: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Object version number = ' || l_task_rec.object_version_number);
934: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Duration from record = ' || l_task_rec.duration);
935: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Visit start from hour/duration=' || '-' || l_task_rec.start_from_hour || '-' || l_task_rec.duration);
928: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
929: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id);
930: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name);
931: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
932: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
933: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Object version number = ' || l_task_rec.object_version_number);
934: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Duration from record = ' || l_task_rec.duration);
935: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Visit start from hour/duration=' || '-' || l_task_rec.start_from_hour || '-' || l_task_rec.duration);
936: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Task Type code/value=' || l_task_rec.task_type_code || '-' || l_task_rec.task_type_value );
929: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Visit Id/Task Id = ' || l_task_rec.visit_id || '-' || l_task_rec.visit_task_id);
930: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name);
931: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
932: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
933: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Object version number = ' || l_task_rec.object_version_number);
934: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Duration from record = ' || l_task_rec.duration);
935: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Visit start from hour/duration=' || '-' || l_task_rec.start_from_hour || '-' || l_task_rec.duration);
936: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Task Type code/value=' || l_task_rec.task_type_code || '-' || l_task_rec.task_type_value );
937: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': department_id = ' || l_task_rec.department_id );
930: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Inventory Id /org/name =' || l_task_rec.inventory_item_id || '-' || l_task_rec.item_organization_id || '-' || l_task_rec.item_name);
931: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
932: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
933: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Object version number = ' || l_task_rec.object_version_number);
934: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Duration from record = ' || l_task_rec.duration);
935: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Visit start from hour/duration=' || '-' || l_task_rec.start_from_hour || '-' || l_task_rec.duration);
936: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Task Type code/value=' || l_task_rec.task_type_code || '-' || l_task_rec.task_type_value );
937: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': department_id = ' || l_task_rec.department_id );
938: END IF;
931: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Cost Id -- Number=' || l_task_rec.cost_parent_id || '**' || l_task_rec.cost_parent_number );
932: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
933: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Object version number = ' || l_task_rec.object_version_number);
934: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Duration from record = ' || l_task_rec.duration);
935: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Visit start from hour/duration=' || '-' || l_task_rec.start_from_hour || '-' || l_task_rec.duration);
936: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Task Type code/value=' || l_task_rec.task_type_code || '-' || l_task_rec.task_type_value );
937: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': department_id = ' || l_task_rec.department_id );
938: END IF;
939:
932: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Originating Id/Number=' || l_task_rec.originating_task_id || '**' || l_task_rec.orginating_task_number);
933: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Object version number = ' || l_task_rec.object_version_number);
934: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Duration from record = ' || l_task_rec.duration);
935: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Visit start from hour/duration=' || '-' || l_task_rec.start_from_hour || '-' || l_task_rec.duration);
936: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Task Type code/value=' || l_task_rec.task_type_code || '-' || l_task_rec.task_type_value );
937: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': department_id = ' || l_task_rec.department_id );
938: END IF;
939:
940: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
933: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Object version number = ' || l_task_rec.object_version_number);
934: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Duration from record = ' || l_task_rec.duration);
935: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Visit start from hour/duration=' || '-' || l_task_rec.start_from_hour || '-' || l_task_rec.duration);
936: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Task Type code/value=' || l_task_rec.task_type_code || '-' || l_task_rec.task_type_value );
937: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': department_id = ' || l_task_rec.department_id );
938: END IF;
939:
940: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
941: --
961: --Assign the returned value
962: l_task_rec.department_id := l_department_id;
963: END IF;
964:
965: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
966: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Dept ID= ' || l_Task_rec.department_id );
967: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Cost parent= ' || l_Task_rec.cost_parent_number);
968: END IF;
969:
962: l_task_rec.department_id := l_department_id;
963: END IF;
964:
965: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
966: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Dept ID= ' || l_Task_rec.department_id );
967: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Cost parent= ' || l_Task_rec.cost_parent_number);
968: END IF;
969:
970: --
963: END IF;
964:
965: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
966: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Dept ID= ' || l_Task_rec.department_id );
967: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Cost parent= ' || l_Task_rec.cost_parent_number);
968: END IF;
969:
970: --
971: -- For COST PARENT TASK
991: --Assign the returned value
992: l_Task_rec.cost_parent_id := l_cost_parent_id;
993: END IF;
994:
995: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
996: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Cost parent ID = ' || l_Task_rec.cost_parent_id);
997: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Validation: Start -- For COST PARENT ');
998: END IF;
999:
992: l_Task_rec.cost_parent_id := l_cost_parent_id;
993: END IF;
994:
995: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
996: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Cost parent ID = ' || l_Task_rec.cost_parent_id);
997: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Validation: Start -- For COST PARENT ');
998: END IF;
999:
1000: -- To Check for cost parent task id not forming loop
993: END IF;
994:
995: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
996: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Cost parent ID = ' || l_Task_rec.cost_parent_id);
997: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Validation: Start -- For COST PARENT ');
998: END IF;
999:
1000: -- To Check for cost parent task id not forming loop
1001: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
1008: );
1009:
1010: END IF;
1011:
1012: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1013: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Validation: End -- For COST PARENT ');
1014: END IF;
1015:
1016: ----------- End defining and validate all LOVs on Create Visit's Task UI Screen---
1009:
1010: END IF;
1011:
1012: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1013: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||': Validation: End -- For COST PARENT ');
1014: END IF;
1015:
1016: ----------- End defining and validate all LOVs on Create Visit's Task UI Screen---
1017:
1017:
1018:
1019: ----------------------- validate ----------------------
1020:
1021: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1022: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':Validate');
1023: END IF;
1024:
1025: -- For all optional fields check if its g_miss_num/g_miss_char/g_miss_date
1018:
1019: ----------------------- validate ----------------------
1020:
1021: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1022: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':Validate');
1023: END IF;
1024:
1025: -- For all optional fields check if its g_miss_num/g_miss_char/g_miss_date
1026: -- then Null else the value call Default_Missing_Attribs procedure
1072: RAISE Fnd_Api.G_EXC_ERROR;
1073: END IF;
1074:
1075: -------------------------- update --------------------
1076: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1077: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':Update');
1078: END IF;
1079:
1080: --Modified by mpothuku to fix LTP forum issue #208 on 04/19/05
1073: END IF;
1074:
1075: -------------------------- update --------------------
1076: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1077: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':Update');
1078: END IF;
1079:
1080: --Modified by mpothuku to fix LTP forum issue #208 on 04/19/05
1081: IF( nvl(p_module_type,'XXX') <> 'LTP') THEN
1190: x_return_status => l_return_status,
1191: x_msg_count => l_msg_count,
1192: x_msg_data => l_msg_data );
1193:
1194: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1195: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||'After AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
1196: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.',l_full_name ||'Planned Order Flag : ' || l_planned_order_flag);
1197: END IF;
1198:
1191: x_msg_count => l_msg_count,
1192: x_msg_data => l_msg_data );
1193:
1194: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1195: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||'After AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
1196: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.',l_full_name ||'Planned Order Flag : ' || l_planned_order_flag);
1197: END IF;
1198:
1199: IF l_return_status <> 'S' THEN
1192: x_msg_data => l_msg_data );
1193:
1194: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1195: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||'After AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
1196: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.',l_full_name ||'Planned Order Flag : ' || l_planned_order_flag);
1197: END IF;
1198:
1199: IF l_return_status <> 'S' THEN
1200: RAISE Fnd_Api.G_EXC_ERROR;
1224: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1225: COMMIT;
1226: END IF;
1227:
1228: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1229: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':*************************END*************************');
1230: END IF;
1231:
1232:
1225: COMMIT;
1226: END IF;
1227:
1228: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1229: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':*************************END*************************');
1230: END IF;
1231:
1232:
1233: EXCEPTION
1300: --------------------- initialize -----------------------
1301: SAVEPOINT Delete_Unplanned_Task;
1302:
1303: -- Check if API is called in debug mode. If yes, enable debug.
1304: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1305: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':*************************START*************************');
1306: END IF;
1307:
1308: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
1301: SAVEPOINT Delete_Unplanned_Task;
1302:
1303: -- Check if API is called in debug mode. If yes, enable debug.
1304: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1305: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':*************************START*************************');
1306: END IF;
1307:
1308: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
1309: Fnd_Msg_Pub.initialize;
1321: RAISE Fnd_Api.g_exc_unexpected_error;
1322: END IF;
1323:
1324: ------------------------Start of API Body------------------------------------
1325: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1326: THEN
1327: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':Task Id' || p_visit_task_ID);
1328: END IF;
1329:
1323:
1324: ------------------------Start of API Body------------------------------------
1325: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1326: THEN
1327: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':Task Id' || p_visit_task_ID);
1328: END IF;
1329:
1330: -- To check if the input taskid exists in task entity.
1331:
1344: l_origin_id:= c_task_rec.originating_task_id;
1345:
1346: IF l_origin_id IS NOT NULL THEN
1347:
1348: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1349: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', ' Before Call to Delete Summary task ');
1350: END IF;
1351:
1352: AHL_VWP_TASKS_PVT.Delete_Summary_Task(
1345:
1346: IF l_origin_id IS NOT NULL THEN
1347:
1348: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1349: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', ' Before Call to Delete Summary task ');
1350: END IF;
1351:
1352: AHL_VWP_TASKS_PVT.Delete_Summary_Task(
1353: p_api_version => p_api_version,
1390: IF l_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1391: X_msg_count := l_msg_count;
1392: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1393:
1394: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1395: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', ' Error Before Commit---> After Delete Summary task call');
1396: END IF;
1397:
1398: RAISE Fnd_Api.G_EXC_ERROR;
1391: X_msg_count := l_msg_count;
1392: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1393:
1394: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1395: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', ' Error Before Commit---> After Delete Summary task call');
1396: END IF;
1397:
1398: RAISE Fnd_Api.G_EXC_ERROR;
1399: END IF;
1403: IF Fnd_Api.to_boolean (p_commit) THEN
1404: COMMIT;
1405: END IF;
1406:
1407: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1408: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':*************************END*************************');
1409: END IF;
1410: EXCEPTION
1411: WHEN Fnd_Api.g_exc_error THEN
1404: COMMIT;
1405: END IF;
1406:
1407: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1408: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':*************************END*************************');
1409: END IF;
1410: EXCEPTION
1411: WHEN Fnd_Api.g_exc_error THEN
1412: ROLLBACK TO Delete_Unplanned_Task;
1460: -- Validate required items.
1461:
1462: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1463:
1464: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1465: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Task_Items' || ':Before Check_Visit_Task_Req_Items');
1466: END IF;
1467: Check_Visit_Task_Req_Items (
1468: p_task_rec => p_task_rec,
1461:
1462: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1463:
1464: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1465: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Task_Items' || ':Before Check_Visit_Task_Req_Items');
1466: END IF;
1467: Check_Visit_Task_Req_Items (
1468: p_task_rec => p_task_rec,
1469: x_return_status => x_return_status
1470: );
1471: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
1472: RETURN;
1473: END IF;
1474: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1475: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', 'Check_Task_Items' || ':After Check_Visit_Task_Req_Items');
1476: END IF;
1477:
1478: --
1471: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
1472: RETURN;
1473: END IF;
1474: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1475: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', 'Check_Task_Items' || ':After Check_Visit_Task_Req_Items');
1476: END IF;
1477:
1478: --
1479: -- Validate uniqueness.
1476: END IF;
1477:
1478: --
1479: -- Validate uniqueness.
1480: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1481: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME, 'Check_Task_Items' ||':Before Check_Visit_Task_UK_Items');
1482: END IF;
1483: Check_Visit_Task_UK_Items (
1484: p_task_rec => p_task_rec,
1477:
1478: --
1479: -- Validate uniqueness.
1480: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1481: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME, 'Check_Task_Items' ||':Before Check_Visit_Task_UK_Items');
1482: END IF;
1483: Check_Visit_Task_UK_Items (
1484: p_task_rec => p_task_rec,
1485: p_validation_mode => p_validation_mode,
1487: );
1488: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
1489: RETURN;
1490: END IF;
1491: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1492: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME, 'Check_Task_Items' ||':Before Check_Visit_Task_UK_Items');
1493: END IF;
1494: END Check_Task_Items;
1495:
1488: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
1489: RETURN;
1490: END IF;
1491: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1492: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME, 'Check_Task_Items' ||':Before Check_Visit_Task_UK_Items');
1493: END IF;
1494: END Check_Task_Items;
1495:
1496: ---------------------------------------------------------------------
1546:
1547: BEGIN
1548:
1549: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1550: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1551: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Visit_Task_Req_Items: = Start Check_Visit_Task_Req_Items ');
1552: END IF;
1553: -- TASK NAME ==== NAME
1554: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
1547: BEGIN
1548:
1549: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1550: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1551: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Visit_Task_Req_Items: = Start Check_Visit_Task_Req_Items ');
1552: END IF;
1553: -- TASK NAME ==== NAME
1554: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
1555: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
1556: Fnd_Msg_Pub.ADD;
1557: x_return_status := Fnd_Api.g_ret_sts_error;
1558: RETURN;
1559: END IF;
1560: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1561: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Visit_Task_Req_Items:Inside Validation Start from Hour = ' || p_task_rec.START_FROM_HOUR);
1562: END IF;
1563: IF (p_task_rec.START_FROM_HOUR IS NOT NULL and p_Task_rec.START_FROM_HOUR <> Fnd_Api.G_MISS_NUM) THEN
1564: IF p_task_rec.START_FROM_HOUR < 0 OR FLOOR(p_task_rec.START_FROM_HOUR) <> p_task_rec.START_FROM_HOUR THEN
1557: x_return_status := Fnd_Api.g_ret_sts_error;
1558: RETURN;
1559: END IF;
1560: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1561: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Visit_Task_Req_Items:Inside Validation Start from Hour = ' || p_task_rec.START_FROM_HOUR);
1562: END IF;
1563: IF (p_task_rec.START_FROM_HOUR IS NOT NULL and p_Task_rec.START_FROM_HOUR <> Fnd_Api.G_MISS_NUM) THEN
1564: IF p_task_rec.START_FROM_HOUR < 0 OR FLOOR(p_task_rec.START_FROM_HOUR) <> p_task_rec.START_FROM_HOUR THEN
1565: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
1587: l_valid_flag VARCHAR2(1);
1588:
1589: BEGIN
1590: x_return_status := Fnd_Api.g_ret_sts_success;
1591: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1592: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Visit_Task_UK_Items: = Start Check_Visit_Task_UK_Items ');
1593: END IF;
1594: --
1595: -- For Task, when ID is passed in, we need to
1588:
1589: BEGIN
1590: x_return_status := Fnd_Api.g_ret_sts_success;
1591: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1592: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Visit_Task_UK_Items: = Start Check_Visit_Task_UK_Items ');
1593: END IF;
1594: --
1595: -- For Task, when ID is passed in, we need to
1596: -- check if this ID is unique.
1594: --
1595: -- For Task, when ID is passed in, we need to
1596: -- check if this ID is unique.
1597: IF p_validation_mode = Jtf_Plsql_Api.g_create AND p_task_rec.Visit_Task_ID IS NOT NULL THEN
1598: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1599: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Visit_Task_UK_Items : = Check_Visit_Task_UK_Items Uniqueness Of ID');
1600: END IF;
1601: -- FOR CREATION
1602: IF Ahl_Utility_Pvt.check_uniqueness(
1595: -- For Task, when ID is passed in, we need to
1596: -- check if this ID is unique.
1597: IF p_validation_mode = Jtf_Plsql_Api.g_create AND p_task_rec.Visit_Task_ID IS NOT NULL THEN
1598: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1599: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Visit_Task_UK_Items : = Check_Visit_Task_UK_Items Uniqueness Of ID');
1600: END IF;
1601: -- FOR CREATION
1602: IF Ahl_Utility_Pvt.check_uniqueness(
1603: 'Ahl_Visit_Tasks_vl',