[Home] [Help]
139: FETCH get_visit_instance INTO l_visit_instance_id;
140: -- Added additional or condition by senthil as the Visit Instance Id can be null.
141: IF get_visit_instance%NOTFOUND OR l_visit_instance_id is NULL THEN
142: CLOSE get_visit_instance;
143: RETURN FND_API.G_RET_STS_SUCCESS;
144: ELSE
145: CLOSE get_visit_instance;
146: IF l_visit_instance_id = p_instance_id THEN
147: RETURN FND_API.G_RET_STS_SUCCESS;
143: RETURN FND_API.G_RET_STS_SUCCESS;
144: ELSE
145: CLOSE get_visit_instance;
146: IF l_visit_instance_id = p_instance_id THEN
147: RETURN FND_API.G_RET_STS_SUCCESS;
148: ELSE
149: OPEN check_instance_in_tree(l_visit_instance_id, p_instance_id);
150: FETCH check_instance_in_tree INTO l_instance_id;
151: IF check_instance_in_tree%FOUND THEN
149: OPEN check_instance_in_tree(l_visit_instance_id, p_instance_id);
150: FETCH check_instance_in_tree INTO l_instance_id;
151: IF check_instance_in_tree%FOUND THEN
152: CLOSE check_instance_in_tree;
153: RETURN FND_API.G_RET_STS_SUCCESS;
154: ELSE
155: CLOSE check_instance_in_tree;
156: RETURN FND_API.G_RET_STS_ERROR;
157: END IF;
152: CLOSE check_instance_in_tree;
153: RETURN FND_API.G_RET_STS_SUCCESS;
154: ELSE
155: CLOSE check_instance_in_tree;
156: RETURN FND_API.G_RET_STS_ERROR;
157: END IF;
158: END IF;
159: END IF;
160: END;
250: AND NVL(org.operating_unit,mo_global.get_current_org_id())
251: = mo_global.get_current_org_id()
252: ) ;
253: END IF;
254: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
255: ELSE
256: x_return_status := Fnd_Api.G_RET_STS_ERROR;
257: END IF;
258:
252: ) ;
253: END IF;
254: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
255: ELSE
256: x_return_status := Fnd_Api.G_RET_STS_ERROR;
257: END IF;
258:
259: IF (l_log_procedure >= l_log_current_level) THEN
260: fnd_log.string(l_log_procedure,
265: END IF;
266:
267: EXCEPTION
268: WHEN NO_DATA_FOUND THEN
269: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
270: x_error_msg_code:= 'AHL_VWP_ITEM_NOT_EXISTS';
271: WHEN TOO_MANY_ROWS THEN
272: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
273: x_error_msg_code:= 'AHL_VWP_ITEM_NOT_EXISTS';
268: WHEN NO_DATA_FOUND THEN
269: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
270: x_error_msg_code:= 'AHL_VWP_ITEM_NOT_EXISTS';
271: WHEN TOO_MANY_ROWS THEN
272: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
273: x_error_msg_code:= 'AHL_VWP_ITEM_NOT_EXISTS';
274: WHEN OTHERS THEN
275: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
276: RAISE;
271: WHEN TOO_MANY_ROWS THEN
272: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
273: x_error_msg_code:= 'AHL_VWP_ITEM_NOT_EXISTS';
274: WHEN OTHERS THEN
275: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
276: RAISE;
277: END Check_Item_Name_Or_Id;
278:
279: -- Post 11.5.10 Enhancements
340: OPEN c_proj_template(p_proj_temp_name);
341: FETCH c_proj_template INTO x_project_id;
342: IF c_proj_template%NOTFOUND
343: THEN
344: x_return_status := Fnd_Api.G_RET_STS_ERROR;
345: ELSE
346: IF (l_log_statement >= l_log_current_level) THEN
347: fnd_log.string(l_log_statement,
348: L_DEBUG_KEY,
347: fnd_log.string(l_log_statement,
348: L_DEBUG_KEY,
349: 'Project Id = ' || x_project_id);
350: END IF;
351: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
352: END IF;
353: CLOSE c_proj_template;
354: END IF;
355:
360: END IF;
361:
362: EXCEPTION
363: WHEN OTHERS THEN
364: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
365: RAISE;
366: END Check_Project_Template_Or_Id;
367:
368: --------------------------------------------------------------------
409: WHERE Serial_Number = p_serial_number AND Inventory_Item_Id = p_item_id AND Inv_Master_Organization_Id = p_org_id
410: AND ACTIVE_START_DATE <= sysdate AND (ACTIVE_END_DATE >= sysdate OR ACTIVE_END_DATE IS NULL);
411: END IF;
412:
413: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
414:
415: IF (l_log_procedure >= l_log_current_level) THEN
416: fnd_log.string(l_log_procedure,
417: L_DEBUG_KEY ||'.end',
420: END IF;
421:
422: EXCEPTION
423: WHEN NO_DATA_FOUND THEN
424: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
425: x_error_msg_code:= 'AHL_VWP_SERIAL_NOT_EXISTS';
426: WHEN TOO_MANY_ROWS THEN
427: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
428: x_error_msg_code:= 'AHL_VWP_SERIAL_NOT_EXISTS';
423: WHEN NO_DATA_FOUND THEN
424: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
425: x_error_msg_code:= 'AHL_VWP_SERIAL_NOT_EXISTS';
426: WHEN TOO_MANY_ROWS THEN
427: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
428: x_error_msg_code:= 'AHL_VWP_SERIAL_NOT_EXISTS';
429: WHEN OTHERS THEN
430: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
431: RAISE;
426: WHEN TOO_MANY_ROWS THEN
427: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
428: x_error_msg_code:= 'AHL_VWP_SERIAL_NOT_EXISTS';
429: WHEN OTHERS THEN
430: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
431: RAISE;
432: END Check_Serial_Name_Or_Id;
433:
434: --------------------------------------------------------------------
471: WHERE organization_id = p_organization_id
472: AND description = p_dept_name;
473: END IF;
474:
475: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
476:
477: IF (l_log_procedure >= l_log_current_level) THEN
478: fnd_log.string(l_log_procedure,
479: L_DEBUG_KEY ||'.end',
482: END IF;
483:
484: EXCEPTION
485: WHEN NO_DATA_FOUND THEN
486: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
487: x_error_msg_code:= 'AHL_VWP_DEPT_NOT_EXISTS';
488: WHEN TOO_MANY_ROWS THEN
489: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
490: x_error_msg_code:= 'AHL_VWP_DEPT_NOT_EXISTS';
485: WHEN NO_DATA_FOUND THEN
486: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
487: x_error_msg_code:= 'AHL_VWP_DEPT_NOT_EXISTS';
488: WHEN TOO_MANY_ROWS THEN
489: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
490: x_error_msg_code:= 'AHL_VWP_DEPT_NOT_EXISTS';
491: WHEN OTHERS THEN
492: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
493: RAISE;
488: WHEN TOO_MANY_ROWS THEN
489: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
490: x_error_msg_code:= 'AHL_VWP_DEPT_NOT_EXISTS';
491: WHEN OTHERS THEN
492: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
493: RAISE;
494: END Check_Dept_Desc_Or_Id;
495:
496: --------------------------------------------------------------------
546: WHERE hou.organization_id = mp.organization_id
547: AND NVL(operating_unit, mo_global.get_current_org_id()) = mo_global.get_current_org_id())
548: AND MP.EAM_enabled_flag='Y';
549: END IF;
550: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
551: IF (l_log_procedure >= l_log_current_level) THEN
552: fnd_log.string(l_log_procedure,
553: L_DEBUG_KEY ||'.end',
554: 'At the end of PL SQL procedure. Return Status = ' || x_return_status ||
556: END IF;
557:
558: EXCEPTION
559: WHEN NO_DATA_FOUND THEN
560: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
561: x_error_msg_code:= 'AHL_VWP_ORG_NOT_EXISTS';
562: WHEN TOO_MANY_ROWS THEN
563: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
564: x_error_msg_code:= 'AHL_VWP_ORG_NOT_EXISTS';
559: WHEN NO_DATA_FOUND THEN
560: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
561: x_error_msg_code:= 'AHL_VWP_ORG_NOT_EXISTS';
562: WHEN TOO_MANY_ROWS THEN
563: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
564: x_error_msg_code:= 'AHL_VWP_ORG_NOT_EXISTS';
565: WHEN OTHERS THEN
566: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
567: RAISE;
562: WHEN TOO_MANY_ROWS THEN
563: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
564: x_error_msg_code:= 'AHL_VWP_ORG_NOT_EXISTS';
565: WHEN OTHERS THEN
566: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
567: RAISE;
568: END Check_Org_Name_Or_Id;
569:
570: --------------------------------------------------------------------
612: AND cit.CMRO_FLAG = 'Y'
613: AND Incident_Number = p_service_number;
614: -- yazhou 19Oct2005 ends
615: ELSE
616: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
617: x_error_msg_code:= 'AHL_VWP_SERVICE_REQ_NOT_EXISTS';
618: END IF;
619:
620: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
616: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
617: x_error_msg_code:= 'AHL_VWP_SERVICE_REQ_NOT_EXISTS';
618: END IF;
619:
620: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
621:
622: IF (l_log_procedure >= l_log_current_level) THEN
623: fnd_log.string(l_log_procedure,
624: L_DEBUG_KEY ||'.end',
627: END IF;
628:
629: EXCEPTION
630: WHEN NO_DATA_FOUND THEN
631: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
632: x_error_msg_code:= 'AHL_VWP_SERVICE_REQ_NOT_EXISTS';
633: WHEN TOO_MANY_ROWS THEN
634: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
635: x_error_msg_code:= 'AHL_VWP_SERVICE_REQ_NOT_EXISTS';
630: WHEN NO_DATA_FOUND THEN
631: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
632: x_error_msg_code:= 'AHL_VWP_SERVICE_REQ_NOT_EXISTS';
633: WHEN TOO_MANY_ROWS THEN
634: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
635: x_error_msg_code:= 'AHL_VWP_SERVICE_REQ_NOT_EXISTS';
636: WHEN OTHERS THEN
637: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
638: RAISE;
633: WHEN TOO_MANY_ROWS THEN
634: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
635: x_error_msg_code:= 'AHL_VWP_SERVICE_REQ_NOT_EXISTS';
636: WHEN OTHERS THEN
637: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
638: RAISE;
639: END Check_SR_Request_Number_Or_Id;
640:
641: --------------------------------------------------------------------
713: x_bln_flag := 'N';
714: END IF;
715: CLOSE c_sim_visit;
716: */
717: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
718:
719: IF (l_log_procedure >= l_log_current_level) THEN
720: fnd_log.string(l_log_procedure,
721: L_DEBUG_KEY ||'.end',
724: END IF;
725:
726: EXCEPTION
727: WHEN NO_DATA_FOUND THEN
728: x_return_status := Fnd_Api.G_RET_STS_ERROR;
729: x_error_msg_code:= 'AHL_LTP_SIMULATION_PLAN_NOT_EXISTS';
730: WHEN TOO_MANY_ROWS THEN
731: x_return_status := Fnd_Api.G_RET_STS_ERROR;
732: x_error_msg_code:= 'AHL_LTP_SIMULATION_PLAN_NOT_EXISTS';
727: WHEN NO_DATA_FOUND THEN
728: x_return_status := Fnd_Api.G_RET_STS_ERROR;
729: x_error_msg_code:= 'AHL_LTP_SIMULATION_PLAN_NOT_EXISTS';
730: WHEN TOO_MANY_ROWS THEN
731: x_return_status := Fnd_Api.G_RET_STS_ERROR;
732: x_error_msg_code:= 'AHL_LTP_SIMULATION_PLAN_NOT_EXISTS';
733: WHEN OTHERS THEN
734: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
735: RAISE;
730: WHEN TOO_MANY_ROWS THEN
731: x_return_status := Fnd_Api.G_RET_STS_ERROR;
732: x_error_msg_code:= 'AHL_LTP_SIMULATION_PLAN_NOT_EXISTS';
733: WHEN OTHERS THEN
734: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
735: RAISE;
736: END Check_Visit_is_Simulated;
737:
738: --------------------------------------------------------------------
767: IF (p_visit_task_id IS NOT NULL) THEN
768: SELECT Visit_Task_Id INTO x_visit_task_id
769: FROM AHL_VISIT_TASKS_B
770: WHERE Visit_Task_Id = p_visit_task_id AND Visit_Id = p_visit_id AND status_code <> 'DELETED';
771: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
772: ELSIF (p_visit_task_number IS NOT NULL) THEN
773: SELECT Visit_Task_Id INTO x_visit_task_id
774: FROM AHL_VISIT_TASKS_B
775: WHERE Visit_Task_Number = p_visit_task_number AND Visit_Id = p_visit_id AND status_code <> 'DELETED';
772: ELSIF (p_visit_task_number IS NOT NULL) THEN
773: SELECT Visit_Task_Id INTO x_visit_task_id
774: FROM AHL_VISIT_TASKS_B
775: WHERE Visit_Task_Number = p_visit_task_number AND Visit_Id = p_visit_id AND status_code <> 'DELETED';
776: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
777: ELSE
778: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
779: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_TASKS_NOT_EXISTS');
780: Fnd_Msg_Pub.ADD;
774: FROM AHL_VISIT_TASKS_B
775: WHERE Visit_Task_Number = p_visit_task_number AND Visit_Id = p_visit_id AND status_code <> 'DELETED';
776: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
777: ELSE
778: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
779: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_TASKS_NOT_EXISTS');
780: Fnd_Msg_Pub.ADD;
781: END IF;
782:
779: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_TASKS_NOT_EXISTS');
780: Fnd_Msg_Pub.ADD;
781: END IF;
782:
783: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
784: IF (l_log_procedure >= l_log_current_level) THEN
785: fnd_log.string(l_log_procedure,
786: L_DEBUG_KEY ||'.end',
787: 'At the end of PL SQL procedure. Return Status = ' || x_return_status ||
788: 'Visit Task Id = ' || x_visit_task_id);
789: END IF;
790: EXCEPTION
791: WHEN NO_DATA_FOUND THEN
792: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
793: x_error_msg_code:= 'AHL_VWP_VISIT_TASKS_NOT_EXISTS';
794: WHEN TOO_MANY_ROWS THEN
795: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
796: x_error_msg_code:= 'AHL_VWP_VISIT_TASKS_NOT_EXISTS';
791: WHEN NO_DATA_FOUND THEN
792: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
793: x_error_msg_code:= 'AHL_VWP_VISIT_TASKS_NOT_EXISTS';
794: WHEN TOO_MANY_ROWS THEN
795: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
796: x_error_msg_code:= 'AHL_VWP_VISIT_TASKS_NOT_EXISTS';
797: WHEN OTHERS THEN
798: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
799: RAISE;
794: WHEN TOO_MANY_ROWS THEN
795: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
796: x_error_msg_code:= 'AHL_VWP_VISIT_TASKS_NOT_EXISTS';
797: WHEN OTHERS THEN
798: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
799: RAISE;
800: END Check_Visit_Task_Number_OR_ID;
801:
802: --------------------------------------------------------------------
848: AND SYSDATE BETWEEN nvl(start_date_active,sysdate) --sowsubra FP:Bug#5758829
849: AND NVL(end_date_active,SYSDATE);
850: END IF;
851:
852: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
853:
854: IF (l_log_procedure >= l_log_current_level) THEN
855: fnd_log.string(l_log_procedure,
856: L_DEBUG_KEY ||'.end',
859: END IF;
860:
861: EXCEPTION
862: WHEN NO_DATA_FOUND THEN
863: x_return_status := Fnd_Api.G_RET_STS_ERROR;
864: WHEN TOO_MANY_ROWS THEN
865: x_return_status := Fnd_Api.G_RET_STS_ERROR;
866: WHEN OTHERS THEN
867: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
861: EXCEPTION
862: WHEN NO_DATA_FOUND THEN
863: x_return_status := Fnd_Api.G_RET_STS_ERROR;
864: WHEN TOO_MANY_ROWS THEN
865: x_return_status := Fnd_Api.G_RET_STS_ERROR;
866: WHEN OTHERS THEN
867: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
868: RAISE;
869: END Check_Lookup_Name_Or_Id;
863: x_return_status := Fnd_Api.G_RET_STS_ERROR;
864: WHEN TOO_MANY_ROWS THEN
865: x_return_status := Fnd_Api.G_RET_STS_ERROR;
866: WHEN OTHERS THEN
867: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
868: RAISE;
869: END Check_Lookup_Name_Or_Id;
870:
871:
911: fnd_log.string(l_log_procedure,
912: L_DEBUG_KEY ||'.begin',
913: 'At the start of PL SQL procedure.');
914: END IF;
915: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
916: -- Always return x_check_project = 'Y' as we no longer need to check for Project Billing
917: -- Superuser Resp. Part of ADS bug fix 4357001.
918: x_check_project := 'Y';
919:
926: fnd_log.string(l_log_procedure,L_DEBUG_KEY, 'Responsiblity_Id from c_fnd_response = ' || l_responsibility_id);
927: END IF;
928:
929: IF c_fnd_response%NOTFOUND THEN
930: x_return_status := Fnd_Api.g_ret_sts_error;
931: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
932: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_NO_SUPERUSER');
933: Fnd_Msg_Pub.ADD;
934: CLOSE c_fnd_response;
944: fnd_log.string(l_log_procedure,L_DEBUG_KEY, 'Responsiblity_Id from c_fnd_user_resp = ' || l_responsibility_id);
945: END IF;
946:
947: IF c_fnd_user_resp%NOTFOUND THEN
948: x_return_status := Fnd_Api.g_ret_sts_error;
949: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
950: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_NO_USER_GROUPS');
951: Fnd_Msg_Pub.ADD;
952: END IF;
952: END IF;
953: END IF;
954: CLOSE c_fnd_user_resp;
955:
956: IF x_return_status =Fnd_Api.G_RET_STS_SUCCESS THEN
957:
958: IF l_responsibility_id = l_responsibility_id THEN
959: x_check_project := 'Y';
960:
973: * fix from PA.
974: p_return_status => l_return_status ,
975: p_calling_mode => 'PUBLISH');
976: p_return_status => l_return_status);
977: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
978: RAISE G_EXC_ERROR;
979: END IF;
980:
981: ELSE
979: END IF;
980:
981: ELSE
982: x_check_project := 'N';
983: x_return_status := Fnd_Api.g_ret_sts_error;
984:
985: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
986: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_NO_RESPONSIBILITY');
987: Fnd_Msg_Pub.ADD;
1011: fnd_log.string(fnd_log.level_event,
1012: L_DEBUG_KEY,
1013: 'After calling PA_INTERFACE_UTILS_PUB.Set_Global_Info. Return Status = ' || x_return_status);
1014: END IF;
1015: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1016: IF (l_log_statement >= l_log_current_level) THEN
1017: fnd_log.string(l_log_statement,
1018: L_DEBUG_KEY,
1019: 'Errors from PA_INTERFACE_UTILS_PUB.Set_Global_Info. Message count: ' ||
1018: L_DEBUG_KEY,
1019: 'Errors from PA_INTERFACE_UTILS_PUB.Set_Global_Info. Message count: ' ||
1020: l_msg_count || ', message data: ' || l_msg_data);
1021: END IF;
1022: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1023: RAISE FND_API.G_EXC_ERROR;
1024: ELSE
1025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1026: END IF;
1019: 'Errors from PA_INTERFACE_UTILS_PUB.Set_Global_Info. Message count: ' ||
1020: l_msg_count || ', message data: ' || l_msg_data);
1021: END IF;
1022: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1023: RAISE FND_API.G_EXC_ERROR;
1024: ELSE
1025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1026: END IF;
1027: END IF;
1021: END IF;
1022: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1023: RAISE FND_API.G_EXC_ERROR;
1024: ELSE
1025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1026: END IF;
1027: END IF;
1028: -- End Changes made by jaramana on July 25, 2005
1029:
1035: END IF;
1036:
1037: EXCEPTION
1038: WHEN NO_DATA_FOUND THEN
1039: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1040: WHEN TOO_MANY_ROWS THEN
1041: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1042: WHEN OTHERS THEN
1043: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1037: EXCEPTION
1038: WHEN NO_DATA_FOUND THEN
1039: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1040: WHEN TOO_MANY_ROWS THEN
1041: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1042: WHEN OTHERS THEN
1043: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1044: RAISE;
1045: END Check_Proj_Responsibility;
1039: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1040: WHEN TOO_MANY_ROWS THEN
1041: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1042: WHEN OTHERS THEN
1043: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1044: RAISE;
1045: END Check_Proj_Responsibility;
1046:
1047: --------------------------------------------------------------------
1094: WHERE Instance_Id = x_instance_id;
1095: ELSE
1096: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
1097: Fnd_Msg_Pub.ADD;
1098: RAISE Fnd_Api.G_EXC_ERROR;
1099: END IF;
1100: END IF;
1101:
1102: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1098: RAISE Fnd_Api.G_EXC_ERROR;
1099: END IF;
1100: END IF;
1101:
1102: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1103: IF (l_log_procedure >= l_log_current_level) THEN
1104: fnd_log.string(l_log_procedure,
1105: L_DEBUG_KEY ||'.end',
1106: 'At the end of PL SQL procedure. Return Status = ' || x_return_status ||
1107: '. Item Id = ' || x_item_id || ' Item Org Id' || x_item_org_id);
1108: END IF;
1109: EXCEPTION
1110: WHEN NO_DATA_FOUND THEN
1111: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1112: WHEN TOO_MANY_ROWS THEN
1113: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1114: WHEN OTHERS THEN
1115: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1109: EXCEPTION
1110: WHEN NO_DATA_FOUND THEN
1111: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1112: WHEN TOO_MANY_ROWS THEN
1113: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1114: WHEN OTHERS THEN
1115: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1116: RAISE;
1117: END Get_Serial_Item_by_Unit;
1111: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1112: WHEN TOO_MANY_ROWS THEN
1113: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1114: WHEN OTHERS THEN
1115: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1116: RAISE;
1117: END Get_Serial_Item_by_Unit;
1118:
1119: --------------------------------------------------------------------
1263: l_type := 'PLANNED';
1264: ELSE
1265: l_type := 'UNPLANNED';
1266: IF p_serial_id IS NULL THEN
1267: x_return_status := Fnd_Api.g_ret_sts_error;
1268: IF (l_log_statement >= l_log_current_level) THEN
1269: fnd_log.string(l_log_statement,
1270: L_DEBUG_KEY,
1271: 'Error in Insert_Tasks. Serial Id missing.');
1372: CLOSE get_originating_mr_id;
1373: END IF;
1374: --VWP ER-12424063:: tchimira :: 17-FEB -2011 :: end
1375: l_msg_count := Fnd_Msg_Pub.count_msg;
1376: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1377: x_msg_count := l_msg_count;
1378: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1379: RAISE Fnd_Api.G_EXC_ERROR;
1380: END IF;
1374: --VWP ER-12424063:: tchimira :: 17-FEB -2011 :: end
1375: l_msg_count := Fnd_Msg_Pub.count_msg;
1376: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1377: x_msg_count := l_msg_count;
1378: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1379: RAISE Fnd_Api.G_EXC_ERROR;
1380: END IF;
1381:
1382: IF (l_log_statement >= l_log_current_level) THEN
1375: l_msg_count := Fnd_Msg_Pub.count_msg;
1376: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1377: x_msg_count := l_msg_count;
1378: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1379: RAISE Fnd_Api.G_EXC_ERROR;
1380: END IF;
1381:
1382: IF (l_log_statement >= l_log_current_level) THEN
1383: fnd_log.string(l_log_statement,
1489: END IF;
1490: IF l_type = 'SUMMARY' THEN
1491: AHL_LTP_REQST_MATRL_PVT.Associate_Stage_Materials (
1492: p_api_version => 1.0,
1493: p_init_msg_list => Fnd_Api.G_FALSE,
1494: p_commit => Fnd_Api.G_FALSE,
1495: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1496: p_module_type => 'VST',
1497: p_visit_id => p_visit_id,
1490: IF l_type = 'SUMMARY' THEN
1491: AHL_LTP_REQST_MATRL_PVT.Associate_Stage_Materials (
1492: p_api_version => 1.0,
1493: p_init_msg_list => Fnd_Api.G_FALSE,
1494: p_commit => Fnd_Api.G_FALSE,
1495: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1496: p_module_type => 'VST',
1497: p_visit_id => p_visit_id,
1498: p_mr_header_id => p_mr_id,
1491: AHL_LTP_REQST_MATRL_PVT.Associate_Stage_Materials (
1492: p_api_version => 1.0,
1493: p_init_msg_list => Fnd_Api.G_FALSE,
1494: p_commit => Fnd_Api.G_FALSE,
1495: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1496: p_module_type => 'VST',
1497: p_visit_id => p_visit_id,
1498: p_mr_header_id => p_mr_id,
1499: p_instance_id => p_serial_id,
1509: 'After callingAHL_LTP_REQST_MATRL_PVT.Associate_Stage_Materials. l_return_status = ' || l_return_status);
1510: END IF;
1511:
1512: -- Check Error Message stack.
1513: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1514: x_msg_count := l_msg_count;
1515: x_return_status := l_return_status;
1516: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1517: RAISE Fnd_Api.g_exc_error;
1512: -- Check Error Message stack.
1513: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1514: x_msg_count := l_msg_count;
1515: x_return_status := l_return_status;
1516: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1517: RAISE Fnd_Api.g_exc_error;
1518: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1519: RAISE Fnd_Api.g_exc_unexpected_error;
1520: END IF;
1513: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1514: x_msg_count := l_msg_count;
1515: x_return_status := l_return_status;
1516: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1517: RAISE Fnd_Api.g_exc_error;
1518: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1519: RAISE Fnd_Api.g_exc_unexpected_error;
1520: END IF;
1521: END IF;
1514: x_msg_count := l_msg_count;
1515: x_return_status := l_return_status;
1516: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1517: RAISE Fnd_Api.g_exc_error;
1518: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1519: RAISE Fnd_Api.g_exc_unexpected_error;
1520: END IF;
1521: END IF;
1522: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: END
1515: x_return_status := l_return_status;
1516: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1517: RAISE Fnd_Api.g_exc_error;
1518: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1519: RAISE Fnd_Api.g_exc_unexpected_error;
1520: END IF;
1521: END IF;
1522: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: END
1523:
1552: l_return_status);
1553: END IF;
1554:
1555: l_msg_count := Fnd_Msg_Pub.count_msg;
1556: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1557: x_msg_count := l_msg_count;
1558: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1559: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1560: END IF;
1554:
1555: l_msg_count := Fnd_Msg_Pub.count_msg;
1556: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1557: x_msg_count := l_msg_count;
1558: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1559: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1560: END IF;
1561: -- salogan added for supplier warranty ends
1562:
1555: l_msg_count := Fnd_Msg_Pub.count_msg;
1556: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1557: x_msg_count := l_msg_count;
1558: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1559: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1560: END IF;
1561: -- salogan added for supplier warranty ends
1562:
1563: -- Added cxcheng POST11510--------------
1573: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: Call Adjust_Task_Times only if past date is null
1574: IF p_past_task_start_date IS NULL THEN
1575: AHL_VWP_TIMES_PVT.Adjust_Task_Times
1576: (p_api_version => 1.0,
1577: p_init_msg_list => Fnd_Api.G_FALSE,
1578: p_commit => Fnd_Api.G_FALSE,
1579: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1580: x_return_status => l_return_status,
1581: x_msg_count => l_msg_count,
1574: IF p_past_task_start_date IS NULL THEN
1575: AHL_VWP_TIMES_PVT.Adjust_Task_Times
1576: (p_api_version => 1.0,
1577: p_init_msg_list => Fnd_Api.G_FALSE,
1578: p_commit => Fnd_Api.G_FALSE,
1579: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1580: x_return_status => l_return_status,
1581: x_msg_count => l_msg_count,
1582: x_msg_data => l_msg_data,
1575: AHL_VWP_TIMES_PVT.Adjust_Task_Times
1576: (p_api_version => 1.0,
1577: p_init_msg_list => Fnd_Api.G_FALSE,
1578: p_commit => Fnd_Api.G_FALSE,
1579: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1580: x_return_status => l_return_status,
1581: x_msg_count => l_msg_count,
1582: x_msg_data => l_msg_data,
1583: p_task_id => l_task_id,
1591: l_return_status);
1592: END IF;
1593:
1594: l_msg_count := Fnd_Msg_Pub.count_msg;
1595: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1596: IF (l_log_statement >= l_log_current_level) THEN
1597: fnd_log.string(l_log_statement,
1598: L_DEBUG_KEY,
1599: 'Errors from AHL_VWP_TIMES_PVT.Adjust_Task_Times. Message count: ' ||
1599: 'Errors from AHL_VWP_TIMES_PVT.Adjust_Task_Times. Message count: ' ||
1600: l_msg_count || ', message data: ' || l_msg_data);
1601: END IF;
1602: x_msg_count := l_msg_count;
1603: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1604: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1605: END IF;
1606:
1607: x_return_status := Fnd_Api.g_ret_sts_success;
1600: l_msg_count || ', message data: ' || l_msg_data);
1601: END IF;
1602: x_msg_count := l_msg_count;
1603: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1604: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1605: END IF;
1606:
1607: x_return_status := Fnd_Api.g_ret_sts_success;
1608: IF (l_log_procedure >= l_log_current_level) THEN
1603: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1604: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1605: END IF;
1606:
1607: x_return_status := Fnd_Api.g_ret_sts_success;
1608: IF (l_log_procedure >= l_log_current_level) THEN
1609: fnd_log.string(l_log_procedure,
1610: L_DEBUG_KEY || '.end',
1611: 'Return Status = ' || x_return_status || '. Task Id = ' || x_task_id);
2009:
2010: IF l_tsk_flag = 'Y' THEN
2011: SELECT ahl_task_links_s.nextval INTO l_task_link_id FROM DUAL;
2012:
2013: IF l_task_rec.attribute_category = Fnd_Api.G_MISS_CHAR THEN
2014: l_task_rec.attribute_category := NULL;
2015: END IF;
2016: --
2017: IF l_task_rec.attribute1 = Fnd_Api.G_MISS_CHAR THEN
2013: IF l_task_rec.attribute_category = Fnd_Api.G_MISS_CHAR THEN
2014: l_task_rec.attribute_category := NULL;
2015: END IF;
2016: --
2017: IF l_task_rec.attribute1 = Fnd_Api.G_MISS_CHAR THEN
2018: l_task_rec.attribute1 := NULL;
2019: END IF;
2020: --
2021: IF l_task_rec.attribute2 = Fnd_Api.G_MISS_CHAR THEN
2017: IF l_task_rec.attribute1 = Fnd_Api.G_MISS_CHAR THEN
2018: l_task_rec.attribute1 := NULL;
2019: END IF;
2020: --
2021: IF l_task_rec.attribute2 = Fnd_Api.G_MISS_CHAR THEN
2022: l_task_rec.attribute2 := NULL;
2023: END IF;
2024: --
2025: IF l_task_rec.attribute3 = Fnd_Api.G_MISS_CHAR THEN
2021: IF l_task_rec.attribute2 = Fnd_Api.G_MISS_CHAR THEN
2022: l_task_rec.attribute2 := NULL;
2023: END IF;
2024: --
2025: IF l_task_rec.attribute3 = Fnd_Api.G_MISS_CHAR THEN
2026: l_task_rec.attribute3 := NULL;
2027: END IF;
2028: --
2029: IF l_task_rec.attribute4 = Fnd_Api.G_MISS_CHAR THEN
2025: IF l_task_rec.attribute3 = Fnd_Api.G_MISS_CHAR THEN
2026: l_task_rec.attribute3 := NULL;
2027: END IF;
2028: --
2029: IF l_task_rec.attribute4 = Fnd_Api.G_MISS_CHAR THEN
2030: l_task_rec.attribute4 := NULL;
2031: END IF;
2032: --
2033: IF l_task_rec.attribute5 = Fnd_Api.G_MISS_CHAR THEN
2029: IF l_task_rec.attribute4 = Fnd_Api.G_MISS_CHAR THEN
2030: l_task_rec.attribute4 := NULL;
2031: END IF;
2032: --
2033: IF l_task_rec.attribute5 = Fnd_Api.G_MISS_CHAR THEN
2034: l_task_rec.attribute5 := NULL;
2035: END IF;
2036: --
2037: IF l_task_rec.attribute6 = Fnd_Api.G_MISS_CHAR THEN
2033: IF l_task_rec.attribute5 = Fnd_Api.G_MISS_CHAR THEN
2034: l_task_rec.attribute5 := NULL;
2035: END IF;
2036: --
2037: IF l_task_rec.attribute6 = Fnd_Api.G_MISS_CHAR THEN
2038: l_task_rec.attribute6 := NULL;
2039: END IF;
2040: --
2041: IF l_task_rec.attribute7 = Fnd_Api.G_MISS_CHAR THEN
2037: IF l_task_rec.attribute6 = Fnd_Api.G_MISS_CHAR THEN
2038: l_task_rec.attribute6 := NULL;
2039: END IF;
2040: --
2041: IF l_task_rec.attribute7 = Fnd_Api.G_MISS_CHAR THEN
2042: l_task_rec.attribute7 := NULL;
2043: END IF;
2044: --
2045: IF l_task_rec.attribute8 = Fnd_Api.G_MISS_CHAR THEN
2041: IF l_task_rec.attribute7 = Fnd_Api.G_MISS_CHAR THEN
2042: l_task_rec.attribute7 := NULL;
2043: END IF;
2044: --
2045: IF l_task_rec.attribute8 = Fnd_Api.G_MISS_CHAR THEN
2046: l_task_rec.attribute8 := NULL;
2047: END IF;
2048: --
2049: IF l_task_rec.attribute9 = Fnd_Api.G_MISS_CHAR THEN
2045: IF l_task_rec.attribute8 = Fnd_Api.G_MISS_CHAR THEN
2046: l_task_rec.attribute8 := NULL;
2047: END IF;
2048: --
2049: IF l_task_rec.attribute9 = Fnd_Api.G_MISS_CHAR THEN
2050: l_task_rec.attribute9 := NULL;
2051: END IF;
2052: --
2053: IF l_task_rec.attribute10 = Fnd_Api.G_MISS_CHAR THEN
2049: IF l_task_rec.attribute9 = Fnd_Api.G_MISS_CHAR THEN
2050: l_task_rec.attribute9 := NULL;
2051: END IF;
2052: --
2053: IF l_task_rec.attribute10 = Fnd_Api.G_MISS_CHAR THEN
2054: l_task_rec.attribute10 := NULL;
2055: END IF;
2056: --
2057: IF l_task_rec.attribute11 = Fnd_Api.G_MISS_CHAR THEN
2053: IF l_task_rec.attribute10 = Fnd_Api.G_MISS_CHAR THEN
2054: l_task_rec.attribute10 := NULL;
2055: END IF;
2056: --
2057: IF l_task_rec.attribute11 = Fnd_Api.G_MISS_CHAR THEN
2058: l_task_rec.attribute11 := NULL;
2059: END IF;
2060: --
2061: IF l_task_rec.attribute12 = Fnd_Api.G_MISS_CHAR THEN
2057: IF l_task_rec.attribute11 = Fnd_Api.G_MISS_CHAR THEN
2058: l_task_rec.attribute11 := NULL;
2059: END IF;
2060: --
2061: IF l_task_rec.attribute12 = Fnd_Api.G_MISS_CHAR THEN
2062: l_task_rec.attribute12 := NULL;
2063: END IF;
2064: --
2065: IF l_task_rec.attribute13 = Fnd_Api.G_MISS_CHAR THEN
2061: IF l_task_rec.attribute12 = Fnd_Api.G_MISS_CHAR THEN
2062: l_task_rec.attribute12 := NULL;
2063: END IF;
2064: --
2065: IF l_task_rec.attribute13 = Fnd_Api.G_MISS_CHAR THEN
2066: l_task_rec.attribute13 := NULL;
2067: END IF;
2068: --
2069: IF l_task_rec.attribute14 = Fnd_Api.G_MISS_CHAR THEN
2065: IF l_task_rec.attribute13 = Fnd_Api.G_MISS_CHAR THEN
2066: l_task_rec.attribute13 := NULL;
2067: END IF;
2068: --
2069: IF l_task_rec.attribute14 = Fnd_Api.G_MISS_CHAR THEN
2070: l_task_rec.attribute14 := NULL;
2071: END IF;
2072: --
2073: IF l_task_rec.attribute15 = Fnd_Api.G_MISS_CHAR THEN
2069: IF l_task_rec.attribute14 = Fnd_Api.G_MISS_CHAR THEN
2070: l_task_rec.attribute14 := NULL;
2071: END IF;
2072: --
2073: IF l_task_rec.attribute15 = Fnd_Api.G_MISS_CHAR THEN
2074: l_task_rec.attribute15 := NULL;
2075: END IF;
2076:
2077: IF (l_log_statement >= l_log_current_level) THEN
2123: fnd_log.string(l_log_statement,
2124: L_DEBUG_KEY,
2125: 'After calling VALIDATE_VWP_LINKS and return status is:'||l_return_status);
2126: END IF;
2127: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2128: l_msg_count := FND_MSG_PUB.count_msg;
2129: IF (l_log_statement >= l_log_current_level) THEN
2130: fnd_log.string(l_log_statement,
2131: L_DEBUG_KEY,
2130: fnd_log.string(l_log_statement,
2131: L_DEBUG_KEY,
2132: 'Errors from VALIDATE_VWP_LINKS. l_msg_data: ' || l_msg_data);
2133: END IF;
2134: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2135: RAISE FND_API.G_EXC_ERROR;
2136: ELSE
2137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2138: END IF;
2131: L_DEBUG_KEY,
2132: 'Errors from VALIDATE_VWP_LINKS. l_msg_data: ' || l_msg_data);
2133: END IF;
2134: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2135: RAISE FND_API.G_EXC_ERROR;
2136: ELSE
2137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2138: END IF;
2139: END IF; -- Return Status is not Success
2133: END IF;
2134: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2135: RAISE FND_API.G_EXC_ERROR;
2136: ELSE
2137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2138: END IF;
2139: END IF; -- Return Status is not Success
2140: -- VWPE ER-12424063:: tchimira :: 31-MAY-2011:: end
2141:
2150: EXIT WHEN y = p_MR_Serial_tbl.LAST ;
2151: y := p_MR_Serial_tbl.NEXT(y);
2152: END LOOP;
2153: END IF; -- End of check p_MR_Id_tbl.count > 0
2154: x_return_status := Fnd_Api.g_ret_sts_success;
2155: IF (l_log_procedure >= l_log_current_level) THEN
2156: fnd_log.string(l_log_procedure,
2157: L_DEBUG_KEY ||'.end',
2158: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
2413: l_org_id := p_org_id;
2414: END IF;
2415:
2416: l_msg_count := FND_MSG_PUB.count_msg;
2417: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2418: x_return_status := FND_API.G_RET_STS_ERROR;
2419: RAISE FND_API.G_EXC_ERROR;
2420: END IF;
2421:
2414: END IF;
2415:
2416: l_msg_count := FND_MSG_PUB.count_msg;
2417: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2418: x_return_status := FND_API.G_RET_STS_ERROR;
2419: RAISE FND_API.G_EXC_ERROR;
2420: END IF;
2421:
2422: IF (l_log_statement >= l_log_current_level) THEN
2415:
2416: l_msg_count := FND_MSG_PUB.count_msg;
2417: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2418: x_return_status := FND_API.G_RET_STS_ERROR;
2419: RAISE FND_API.G_EXC_ERROR;
2420: END IF;
2421:
2422: IF (l_log_statement >= l_log_current_level) THEN
2423: fnd_log.string(l_log_statement,
2456: '. Return Status = ' || l_return_status);
2457: END IF;
2458:
2459: l_msg_count := FND_MSG_PUB.count_msg;
2460: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2461: IF (l_log_statement >= l_log_current_level) THEN
2462: fnd_log.string(l_log_statement,
2463: L_DEBUG_KEY,
2464: 'Errors from INSERT_TASKS. Message count: ' ||
2463: L_DEBUG_KEY,
2464: 'Errors from INSERT_TASKS. Message count: ' ||
2465: l_msg_count || ', message data: ' || l_msg_data);
2466: END IF;
2467: x_return_status := FND_API.G_RET_STS_ERROR;
2468: RAISE FND_API.G_EXC_ERROR;
2469: END IF;
2470:
2471: p_x_parent_MR_Id := l_task_id; -- To get MR as parent for child summary tasks
2464: 'Errors from INSERT_TASKS. Message count: ' ||
2465: l_msg_count || ', message data: ' || l_msg_data);
2466: END IF;
2467: x_return_status := FND_API.G_RET_STS_ERROR;
2468: RAISE FND_API.G_EXC_ERROR;
2469: END IF;
2470:
2471: p_x_parent_MR_Id := l_task_id; -- To get MR as parent for child summary tasks
2472: l_parent_Task_Id := l_task_id; -- To get MR as parent for child planned/unplanned tasks
2519: ELSE
2520: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NO_EXIST');
2521: Fnd_Msg_Pub.ADD;
2522: CLOSE c_stage;
2523: RAISE FND_API.G_EXC_ERROR;
2524: END IF;
2525: -- PRAKKUM :: 14-JUL-2011 :: VWPE 12730539 :: NED
2526: END IF;
2527: CLOSE c_stage;
2573: '. Visit ID = ' || l_visit_id);
2574: END IF;
2575:
2576: l_msg_count := FND_MSG_PUB.count_msg;
2577: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2578: IF (l_log_statement >= l_log_current_level) THEN
2579: fnd_log.string(l_log_statement,
2580: L_DEBUG_KEY,
2581: 'Errors from INSERT_TASKS. Message count: ' ||
2580: L_DEBUG_KEY,
2581: 'Errors from INSERT_TASKS. Message count: ' ||
2582: l_msg_count || ', message data: ' || l_msg_data);
2583: END IF;
2584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2585: RAISE FND_API.G_EXC_ERROR;
2586: END IF;
2587:
2588: -- To call LTP Process Materials API for APS Integration by Shbhanda 04-Dec-03
2581: 'Errors from INSERT_TASKS. Message count: ' ||
2582: l_msg_count || ', message data: ' || l_msg_data);
2583: END IF;
2584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2585: RAISE FND_API.G_EXC_ERROR;
2586: END IF;
2587:
2588: -- To call LTP Process Materials API for APS Integration by Shbhanda 04-Dec-03
2589: OPEN c_task_det(l_task_id);
2598: 'PLANNED TASK - Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
2599: END IF;
2600: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
2601: p_api_version => 1.0,
2602: p_init_msg_list => FND_API.g_false,
2603: p_commit => FND_API.g_false,
2604: p_validation_level => FND_API.g_valid_level_full,
2605: p_visit_id => l_Visit_Id,
2606: p_visit_task_id => l_Task_Id,
2599: END IF;
2600: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
2601: p_api_version => 1.0,
2602: p_init_msg_list => FND_API.g_false,
2603: p_commit => FND_API.g_false,
2604: p_validation_level => FND_API.g_valid_level_full,
2605: p_visit_id => l_Visit_Id,
2606: p_visit_task_id => l_Task_Id,
2607: p_org_id => NULL,
2600: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
2601: p_api_version => 1.0,
2602: p_init_msg_list => FND_API.g_false,
2603: p_commit => FND_API.g_false,
2604: p_validation_level => FND_API.g_valid_level_full,
2605: p_visit_id => l_Visit_Id,
2606: p_visit_task_id => l_Task_Id,
2607: p_org_id => NULL,
2608: p_start_date => NULL,
2616: L_DEBUG_KEY,
2617: 'PLANNED TASK - After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
2618: END IF;
2619: l_msg_count := FND_MSG_PUB.count_msg;
2620: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2621: X_return_status := FND_API.G_RET_STS_ERROR;
2622: RAISE FND_API.G_EXC_ERROR;
2623: END IF;
2624: END IF; --check for Visit Task Start Date
2617: 'PLANNED TASK - After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
2618: END IF;
2619: l_msg_count := FND_MSG_PUB.count_msg;
2620: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2621: X_return_status := FND_API.G_RET_STS_ERROR;
2622: RAISE FND_API.G_EXC_ERROR;
2623: END IF;
2624: END IF; --check for Visit Task Start Date
2625:
2618: END IF;
2619: l_msg_count := FND_MSG_PUB.count_msg;
2620: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2621: X_return_status := FND_API.G_RET_STS_ERROR;
2622: RAISE FND_API.G_EXC_ERROR;
2623: END IF;
2624: END IF; --check for Visit Task Start Date
2625:
2626: EXIT WHEN i = MR_Route_Tbl.LAST ;
2627: i := MR_Route_Tbl.NEXT(i);
2628: END LOOP;
2629: END IF;
2630:
2631: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2632: IF (l_log_procedure >= l_log_current_level) THEN
2633: fnd_log.string(l_log_procedure,
2634: L_DEBUG_KEY ||'.end',
2635: 'At the end of PL SQL procedure. Return Status = ' || x_return_status ||
2637: END IF;
2638:
2639: EXCEPTION
2640: WHEN NO_DATA_FOUND THEN
2641: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2642: WHEN TOO_MANY_ROWS THEN
2643: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2644: WHEN OTHERS THEN
2645: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2639: EXCEPTION
2640: WHEN NO_DATA_FOUND THEN
2641: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2642: WHEN TOO_MANY_ROWS THEN
2643: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2644: WHEN OTHERS THEN
2645: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2646: RAISE;
2647: END Create_Tasks_for_MR;
2641: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2642: WHEN TOO_MANY_ROWS THEN
2643: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2644: WHEN OTHERS THEN
2645: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2646: RAISE;
2647: END Create_Tasks_for_MR;
2648:
2649:
2681: 'Visit Task Id = ' || p_visit_task_id || 'Cost Parent Id = ' || p_cost_parent_id);
2682: END IF;
2683: -- Check for cost parent task id not forming loop
2684: IF (p_cost_parent_id IS NOT NULL AND
2685: p_cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
2686:
2687: IF p_cost_parent_id = p_visit_task_id THEN
2688: IF (l_log_statement >= l_log_current_level) THEN
2689: fnd_log.string(l_log_statement,
2691: 'p_cost_parent_id = p_visit_task_id');
2692: END IF;
2693: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_COST_LOOP');
2694: Fnd_Msg_Pub.ADD;
2695: RAISE Fnd_Api.G_EXC_ERROR;
2696: END IF;
2697:
2698: OPEN c_child (p_visit_task_id, p_visit_id);
2699: LOOP
2707: END IF;
2708: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_COST_LOOP');
2709: Fnd_Msg_Pub.ADD;
2710: CLOSE c_child;
2711: RAISE Fnd_Api.G_EXC_ERROR;
2712: END IF;
2713: EXIT WHEN c_child%NOTFOUND;
2714: END LOOP;
2715: CLOSE c_child;
2757: p_visit_task_id || '. Originating Task Id' || p_originating_task_id);
2758: END IF;
2759: -- Check for originating task id not forming loop
2760: IF (p_originating_task_id IS NOT NULL AND
2761: p_originating_task_id <> Fnd_Api.G_MISS_NUM ) THEN
2762:
2763: IF p_originating_task_id = p_visit_task_id THEN
2764: IF (l_log_statement >= l_log_current_level) THEN
2765: fnd_log.string(l_log_statement,
2767: 'TASK LOOP1');
2768: END IF;
2769: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_ORIGIN_LOOP');
2770: Fnd_Msg_Pub.ADD;
2771: RAISE Fnd_Api.G_EXC_ERROR;
2772: END IF;
2773:
2774: OPEN c_child (p_visit_task_id, p_visit_id);
2775: LOOP
2784:
2785: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_ORIGIN_LOOP');
2786: Fnd_Msg_Pub.ADD;
2787: CLOSE c_child;
2788: RAISE Fnd_Api.G_EXC_ERROR;
2789: END IF;
2790:
2791: EXIT WHEN c_child%NOTFOUND;
2792: END LOOP;
2824: L_DEBUG_KEY ||'.begin',
2825: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id ||
2826: 'p_flag' || p_flag);
2827: END IF;
2828: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2829: IF p_visit_id IS NOT NULL THEN
2830: UPDATE AHL_VISITS_B
2831: SET OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1,
2832: --TCHIMIRA::BUG 9222622 ::15-DEC-2009::UPDATE WHO COLUMNS
2913: 'At the start of PL SQL procedure. Visit Id = ' ||
2914: p_visit_id || 'Price List Name = ' || p_price_list_name);
2915: END IF;
2916: -- Initialize API return status to success
2917: x_return_status := FND_API.G_RET_STS_SUCCESS;
2918:
2919: OPEN visit_info_csr(p_visit_id);
2920: FETCH visit_info_csr INTO l_service_request_id;
2921: IF (visit_info_csr%NOTFOUND) THEN
2925: fnd_log.string(l_log_unexpected,
2926: L_DEBUG_KEY,
2927: 'Visit id not found in AHL_VISITS_B table');
2928: END IF;
2929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2930: ELSIF(l_service_request_id IS NULL)THEN
2931: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT_UPDT_NOS');
2932: FND_MSG_PUB.ADD;
2933: IF (fnd_log.level_error >= l_log_current_level)THEN
2934: fnd_log.string(fnd_log.level_error,
2935: L_DEBUG_KEY,
2936: 'price list can not be associated because service request id is not associated to visit');
2937: END IF;
2938: x_return_status := FND_API.G_RET_STS_ERROR;
2939: END IF;
2940: CLOSE visit_info_csr;
2941:
2942: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2938: x_return_status := FND_API.G_RET_STS_ERROR;
2939: END IF;
2940: CLOSE visit_info_csr;
2941:
2942: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2943: RETURN;
2944: END IF;
2945:
2946: OPEN customer_id_csr(l_service_request_id);
2953: L_DEBUG_KEY,
2954: 'Associated Service Request ' || l_service_request_id ||
2955: ' is invalid as record not found.');
2956: END IF;
2957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2958: ELSIF(l_customer_id IS NULL)THEN
2959: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_SRVREQ_NOCUST');
2960: FND_MSG_PUB.ADD;
2961: IF (fnd_log.level_error >= l_log_current_level)THEN
2962: fnd_log.string(fnd_log.level_error,
2963: L_DEBUG_KEY,
2964: 'Customer id for corresponding service request ' || l_service_request_id || ' is null.');
2965: END IF;
2966: x_return_status := FND_API.G_RET_STS_ERROR;
2967: END IF;
2968: CLOSE customer_id_csr;
2969:
2970: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2966: x_return_status := FND_API.G_RET_STS_ERROR;
2967: END IF;
2968: CLOSE customer_id_csr;
2969:
2970: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2971: RETURN;
2972: END IF;
2973:
2974: -- find out the price list id
2982: fnd_log.string(fnd_log.level_error,
2983: L_DEBUG_KEY,
2984: 'Valid price list not found with price list name ' || p_price_list_name);
2985: END IF;
2986: x_return_status := FND_API.G_RET_STS_ERROR;
2987: END IF;
2988: CLOSE price_list_id_csr;
2989:
2990: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2986: x_return_status := FND_API.G_RET_STS_ERROR;
2987: END IF;
2988: CLOSE price_list_id_csr;
2989:
2990: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2991: RETURN;
2992: END IF;
2993: IF (l_log_procedure >= l_log_current_level) THEN
2994: fnd_log.string(l_log_procedure,
3092: END IF;
3093: END LOOP;
3094: CLOSE c_parent;
3095: -- RR
3096: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3097: IF (l_log_procedure >= l_log_current_level) THEN
3098: fnd_log.string(l_log_procedure,
3099: L_DEBUG_KEY ||'.end',
3100: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
3147: IF x_item_tbl(k).item_id=p_item_tbl2(i).item_id
3148: AND x_item_tbl(k).uom_code=p_item_tbl2(i).uom_code
3149: AND x_item_tbl(k).effective_date=p_item_tbl2(i).effective_date
3150: THEN
3151: IF x_item_tbl(k).duration is not NULL AND x_item_tbl(k).duration <> FND_API.G_MISS_NUM
3152: AND p_item_tbl2(i).duration is not NULL AND p_item_tbl2(i).duration <> FND_API.G_MISS_NUM THEN
3153: x_item_tbl(k).duration := nvl(x_item_tbl(k).duration,0)+nvl(p_item_tbl2(i).duration,0);
3154: l_item_present:=true;
3155: ELSIF (x_item_tbl(k).duration is NULL OR x_item_tbl(k).duration = FND_API.G_MISS_NUM )
3148: AND x_item_tbl(k).uom_code=p_item_tbl2(i).uom_code
3149: AND x_item_tbl(k).effective_date=p_item_tbl2(i).effective_date
3150: THEN
3151: IF x_item_tbl(k).duration is not NULL AND x_item_tbl(k).duration <> FND_API.G_MISS_NUM
3152: AND p_item_tbl2(i).duration is not NULL AND p_item_tbl2(i).duration <> FND_API.G_MISS_NUM THEN
3153: x_item_tbl(k).duration := nvl(x_item_tbl(k).duration,0)+nvl(p_item_tbl2(i).duration,0);
3154: l_item_present:=true;
3155: ELSIF (x_item_tbl(k).duration is NULL OR x_item_tbl(k).duration = FND_API.G_MISS_NUM )
3156: AND (p_item_tbl2(i).duration is NULL OR p_item_tbl2(i).duration = FND_API.G_MISS_NUM) THEN
3151: IF x_item_tbl(k).duration is not NULL AND x_item_tbl(k).duration <> FND_API.G_MISS_NUM
3152: AND p_item_tbl2(i).duration is not NULL AND p_item_tbl2(i).duration <> FND_API.G_MISS_NUM THEN
3153: x_item_tbl(k).duration := nvl(x_item_tbl(k).duration,0)+nvl(p_item_tbl2(i).duration,0);
3154: l_item_present:=true;
3155: ELSIF (x_item_tbl(k).duration is NULL OR x_item_tbl(k).duration = FND_API.G_MISS_NUM )
3156: AND (p_item_tbl2(i).duration is NULL OR p_item_tbl2(i).duration = FND_API.G_MISS_NUM) THEN
3157: x_item_tbl(k).quantity := nvl(x_item_tbl(k).quantity,0)+nvl(p_item_tbl2(i).quantity,0);
3158: l_item_present:=true;
3159: END IF;
3152: AND p_item_tbl2(i).duration is not NULL AND p_item_tbl2(i).duration <> FND_API.G_MISS_NUM THEN
3153: x_item_tbl(k).duration := nvl(x_item_tbl(k).duration,0)+nvl(p_item_tbl2(i).duration,0);
3154: l_item_present:=true;
3155: ELSIF (x_item_tbl(k).duration is NULL OR x_item_tbl(k).duration = FND_API.G_MISS_NUM )
3156: AND (p_item_tbl2(i).duration is NULL OR p_item_tbl2(i).duration = FND_API.G_MISS_NUM) THEN
3157: x_item_tbl(k).quantity := nvl(x_item_tbl(k).quantity,0)+nvl(p_item_tbl2(i).quantity,0);
3158: l_item_present:=true;
3159: END IF;
3160: END IF;
3400: fnd_log.string(l_log_procedure,
3401: L_DEBUG_KEY ||'.begin',
3402: 'At the start of PL SQL procedure. Department Id = ' || p_dept_id);
3403: END IF;
3404: IF P_DEPT_ID IS NOT NULL AND P_DEPT_ID <> FND_API.G_MISS_NUM
3405: THEN
3406: OPEN get_dept_csr (p_dept_id);
3407: FETCH get_dept_csr INTO l_dummy;
3408: IF (get_dept_csr%NOTFOUND) THEN
3405: THEN
3406: OPEN get_dept_csr (p_dept_id);
3407: FETCH get_dept_csr INTO l_dummy;
3408: IF (get_dept_csr%NOTFOUND) THEN
3409: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
3410: ELSE
3411: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3412: END IF;
3413: CLOSE get_dept_csr;
3407: FETCH get_dept_csr INTO l_dummy;
3408: IF (get_dept_csr%NOTFOUND) THEN
3409: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
3410: ELSE
3411: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3412: END IF;
3413: CLOSE get_dept_csr;
3414: ELSE
3415: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3411: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3412: END IF;
3413: CLOSE get_dept_csr;
3414: ELSE
3415: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3416: END IF;
3417: IF (l_log_procedure >= l_log_current_level) THEN
3418: fnd_log.string(l_log_procedure,
3419: L_DEBUG_KEY ||'.end',
3513: 'At the start of PL SQL procedure. Visit task id = ' || p_task_rec.visit_task_id);
3514: END IF;
3515:
3516: -- Initialize API return status to success
3517: x_return_status := FND_API.G_RET_STS_SUCCESS;
3518:
3519: -- Get the cost parent id corresponding to the cost parent number
3520: -- Please note that this cost parent is the new updated cost parent
3521: -- and hence it is mandatory to pass this to the cursor get_cost_parent_dates
3533: IF (cost_parent_dates_rec.start_date_time > p_task_rec.past_task_start_date
3534: OR cost_parent_dates_rec.end_date_time < p_task_rec.past_task_end_date) THEN
3535: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_PAST_DATE_INVLD');
3536: Fnd_Msg_Pub.ADD;
3537: x_return_status := FND_API.G_RET_STS_ERROR;
3538: END IF;
3539: END IF;
3540:
3541: -- Get the start and end of this task's first non-summary cost child in the cost hierarchy
3548: IF (cost_child_dates_rec.start_date_time < p_task_rec.past_task_start_date
3549: OR cost_child_dates_rec.end_date_time > p_task_rec.past_task_end_date) THEN
3550: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_PAST_DATE_INVLD');
3551: Fnd_Msg_Pub.ADD;
3552: x_return_status := FND_API.G_RET_STS_ERROR;
3553: END IF;
3554: END IF;
3555:
3556: -- Cursor to find out the cumulative duration of all the stages before the stage of this task
3569: -- Validate that the any of the tasks does not start before the stage starts
3570: IF p_task_rec.past_task_start_date < l_stage_planned_start_time THEN
3571: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_TASK_DATE_INVLD');
3572: Fnd_Msg_Pub.ADD;
3573: x_return_status := FND_API.G_RET_STS_ERROR;
3574: END IF;
3575:
3576: IF (l_log_procedure >= l_log_current_level)THEN
3577: fnd_log.string ( l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PLSQL procedure, x_return_status=' || x_return_status);
3658:
3659: FND_MESSAGE.Set_Name('AHL', 'AHL_VWP_ST_VAL_INVLD');
3660: FND_MESSAGE.Set_Token('VALUE', p_service_type);
3661: FND_MSG_PUB.ADD;
3662: RAISE FND_API.G_EXC_ERROR;
3663: END IF;
3664: CLOSE get_service_type_code;
3665: END IF;
3666: ELSIF (p_module_type = 'SR') THEN
3684:
3685: FND_MESSAGE.Set_Name('AHL', 'AHL_VWP_ST_VAL_INVLD');
3686: FND_MESSAGE.Set_Token('VALUE', p_service_type);
3687: FND_MSG_PUB.ADD;
3688: RAISE FND_API.G_EXC_ERROR;
3689: END IF;
3690: CLOSE get_service_type_code;
3691: END IF;
3692: ELSE
3704:
3705: FND_MESSAGE.Set_Name('AHL', 'AHL_VWP_ST_CD_INVLD');
3706: FND_MESSAGE.Set_Token('CODE', p_x_service_type_code);
3707: FND_MSG_PUB.ADD;
3708: RAISE FND_API.G_EXC_ERROR;
3709: END IF;
3710: CLOSE check_service_type_code;
3711: END IF; -- (p_x_service_type_code IS NULL) check, for SR module type call
3712: ELSE
3713: -- if p_module_type is not JSP and SR, i.e. public API call for creation:
3714: -- - if passed Service Type attributes are G_MISS_CHAR, NULLify them
3715: -- - else if NULL, default to the appropriate profile
3716: -- - else validate in the usual manner
3717: IF (p_x_service_type_code = FND_API.G_MISS_CHAR OR
3718: p_service_type = FND_API.G_MISS_CHAR) THEN
3719: -- NULLify the Service Type attributes
3720: p_x_service_type_code := NULL;
3721: ELSIF (p_x_service_type_code IS NULL) THEN
3714: -- - if passed Service Type attributes are G_MISS_CHAR, NULLify them
3715: -- - else if NULL, default to the appropriate profile
3716: -- - else validate in the usual manner
3717: IF (p_x_service_type_code = FND_API.G_MISS_CHAR OR
3718: p_service_type = FND_API.G_MISS_CHAR) THEN
3719: -- NULLify the Service Type attributes
3720: p_x_service_type_code := NULL;
3721: ELSIF (p_x_service_type_code IS NULL) THEN
3722: -- check for p_service_type
3756:
3757: FND_MESSAGE.Set_Name('AHL', 'AHL_VWP_ST_VAL_INVLD');
3758: FND_MESSAGE.Set_Token('VALUE', p_service_type);
3759: FND_MSG_PUB.ADD;
3760: RAISE FND_API.G_EXC_ERROR;
3761: END IF;
3762: CLOSE get_service_type_code;
3763: END IF;
3764: ELSE
3776:
3777: FND_MESSAGE.Set_Name('AHL', 'AHL_VWP_ST_CD_INVLD');
3778: FND_MESSAGE.Set_Token('CODE', p_x_service_type_code);
3779: FND_MSG_PUB.ADD;
3780: RAISE FND_API.G_EXC_ERROR;
3781: END IF;
3782: CLOSE check_service_type_code;
3783: END IF; -- FND_API.G_MISS_CHAR check, for non-JSP and non-SR module type call
3784: END IF; -- (p_module_type = 'JSP') check
3779: FND_MSG_PUB.ADD;
3780: RAISE FND_API.G_EXC_ERROR;
3781: END IF;
3782: CLOSE check_service_type_code;
3783: END IF; -- FND_API.G_MISS_CHAR check, for non-JSP and non-SR module type call
3784: END IF; -- (p_module_type = 'JSP') check
3785: IF (l_log_procedure >= l_log_current_level) THEN
3786: FND_LOG.string(l_log_procedure, l_debug_key||'.end',
3787: 'At the end of the API.'||
3815: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
3816: -- Local variables defined for the procedure
3817: l_mr_template NUMBER;
3818: l_route_template NUMBER;
3819: l_contract_id NUMBER := FND_API.G_MISS_NUM;
3820: l_warranty_entl_id NUMBER := null;
3821: l_task_type VARCHAR2(20):= null;
3822: l_ovn NUMBER;
3823: l_dummy VARCHAR2(1);
3917: OPEN c_task_type(p_task_id);
3918: FETCH c_task_type into l_task_type;
3919: CLOSE c_task_type;
3920: IF(p_service_req_id IS NOT NULL AND l_task_type = 'SUMMARY') THEN
3921: l_entitlement_rec.visit_task_id := FND_API.G_MISS_NUM;
3922: --do nothing, in this case we donot have to create or update the existing Entl record
3923: --so passing the create flag as null
3924: l_entitlement_rec.operation_flag := null;
3925: ELSE
3937: FETCH c_match_contract into l_contract_id; -- Store the warranty contract id for the template/instance match
3938: EXIT WHEN c_match_contract%NOTFOUND OR c_match_contract%ROWCOUNT > 1;
3939: END LOOP;
3940: IF(c_match_contract%ROWCOUNT <> 1)THEN
3941: l_contract_id := FND_API.G_MISS_NUM;
3942: END IF;
3943: CLOSE c_match_contract;
3944: END IF;
3945: CLOSE c_mr_template;
3942: END IF;
3943: CLOSE c_match_contract;
3944: END IF;
3945: CLOSE c_mr_template;
3946: IF(l_contract_id = FND_API.G_MISS_NUM) THEN -- If the warranty template id at the MR level is not found and/or No warranty contract match
3947: OPEN c_route_template(p_task_id); -- Fetch the warranty template id at the Route level
3948: FETCH c_route_template into l_mr_template;
3949: IF(c_route_template%FOUND) THEN -- If the warranty template id at the Route level is found
3950: OPEN c_match_contract(p_instance_id, l_mr_template);
3953: FETCH c_match_contract into l_contract_id; -- Store the warranty contract id for the template/instance match
3954: EXIT WHEN c_match_contract%NOTFOUND OR c_match_contract%ROWCOUNT > 1;
3955: END LOOP;
3956: IF(c_match_contract%ROWCOUNT <> 1)THEN
3957: l_contract_id := FND_API.G_MISS_NUM;
3958: END IF;
3959: CLOSE c_match_contract;
3960: END IF;
3961: END IF;
3959: CLOSE c_match_contract;
3960: END IF;
3961: END IF;
3962: --Store the Warranty contract id and entitlement status code in Entitlements Record
3963: IF(l_contract_id = FND_API.G_MISS_NUM) THEN
3964: l_entitlement_rec.warranty_contract_id := null;
3965: l_entitlement_rec.entitlement_status_code := 'REVIEW';
3966: ELSE
3967: l_entitlement_rec.warranty_contract_id := l_contract_id;
4117: l_contract_id := l_old_contract_id;
4118: l_entl_status := l_old_entl_status;
4119:
4120: IF(p_task_rec.warranty_not_appl_flag = 'Y') THEN -- If Warranty Not Applicable check box is checked
4121: l_contract_id := FND_API.G_MISS_NUM;
4122: l_entl_status := 'NOT_APPLICABLE';
4123: ELSE -- If Warranty Not Applicable check box is unchecked
4124: IF(p_task_rec.contract_number is not null) THEN -- If contact number is associated
4125: OPEN c_get_contract_id(p_task_rec.contract_number);
4131: FND_MSG_PUB.add;
4132: END IF;
4133: l_entl_status := 'APPROVED';
4134: ELSE -- If contact number is not associated
4135: l_contract_id := FND_API.G_MISS_NUM;
4136: IF(l_old_entl_status <> 'APPROVED') THEN
4137: l_entl_status := l_old_entl_status;
4138: ELSE
4139: l_entl_status := 'NOT_APPLICABLE';
4231: -- And to convert WBS rule into task rule, route dependencies to task rules
4232: --------------------------------------------------------------------------------------
4233: PROCEDURE Handle_Task_Dependency (
4234: p_api_version IN NUMBER,
4235: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4236: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4237: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4238:
4239: p_visit_id IN NUMBER,
4232: --------------------------------------------------------------------------------------
4233: PROCEDURE Handle_Task_Dependency (
4234: p_api_version IN NUMBER,
4235: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4236: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4237: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4238:
4239: p_visit_id IN NUMBER,
4240: p_task_tbl IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
4233: PROCEDURE Handle_Task_Dependency (
4234: p_api_version IN NUMBER,
4235: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4236: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4237: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4238:
4239: p_visit_id IN NUMBER,
4240: p_task_tbl IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
4241:
4344: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of the PLSQL procedure');
4345: END IF;
4346:
4347: -- Initialize message list if p_init_msg_list is set to TRUE.
4348: IF Fnd_Api.to_boolean(p_init_msg_list)
4349: THEN
4350: Fnd_Msg_Pub.initialize;
4351: END IF;
4352:
4350: Fnd_Msg_Pub.initialize;
4351: END IF;
4352:
4353: -- Initialize API return status to success
4354: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4355:
4356: -- Standard call to check for call compatibility.
4357: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4358: p_api_version,
4353: -- Initialize API return status to success
4354: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4355:
4356: -- Standard call to check for call compatibility.
4357: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4358: p_api_version,
4359: l_api_name,G_PKG_NAME)
4360: THEN
4361: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4357: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4358: p_api_version,
4359: l_api_name,G_PKG_NAME)
4360: THEN
4361: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4362: END IF;
4363:
4364: -- Loop through all the task records that are passed to this API
4365: FOR i IN l_task_tbl.FIRST..l_task_tbl.LAST
4387: fnd_log.string(l_log_statement,
4388: L_DEBUG_KEY,
4389: 'After calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_UPDATES: Return Status = ' || l_return_status );
4390: END IF;
4391: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4392: x_msg_count := l_msg_count;
4393: x_return_status := l_return_status;
4394: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4395: RAISE Fnd_Api.g_exc_error;
4390: END IF;
4391: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4392: x_msg_count := l_msg_count;
4393: x_return_status := l_return_status;
4394: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4395: RAISE Fnd_Api.g_exc_error;
4396: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4397: RAISE Fnd_Api.g_exc_unexpected_error;
4398: END IF;
4391: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4392: x_msg_count := l_msg_count;
4393: x_return_status := l_return_status;
4394: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4395: RAISE Fnd_Api.g_exc_error;
4396: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4397: RAISE Fnd_Api.g_exc_unexpected_error;
4398: END IF;
4399: END IF;
4392: x_msg_count := l_msg_count;
4393: x_return_status := l_return_status;
4394: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4395: RAISE Fnd_Api.g_exc_error;
4396: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4397: RAISE Fnd_Api.g_exc_unexpected_error;
4398: END IF;
4399: END IF;
4400:
4393: x_return_status := l_return_status;
4394: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4395: RAISE Fnd_Api.g_exc_error;
4396: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4397: RAISE Fnd_Api.g_exc_unexpected_error;
4398: END IF;
4399: END IF;
4400:
4401: END LOOP; -- Loop through all the tasks hierarchy
4494:
4495: --Calculate and update all the stages planned start and end dates
4496: AHL_VWP_VISITS_STAGES_PVT.UPDATE_STAGES_HIERARICHY (
4497: p_api_version => 1.0,
4498: p_init_msg_list => Fnd_Api.g_false,
4499: p_commit => Fnd_Api.g_false,
4500: p_validation_level => Fnd_Api.g_valid_level_full,
4501: p_module_type => 'JSP',
4502: p_visit_id => p_visit_id,
4495: --Calculate and update all the stages planned start and end dates
4496: AHL_VWP_VISITS_STAGES_PVT.UPDATE_STAGES_HIERARICHY (
4497: p_api_version => 1.0,
4498: p_init_msg_list => Fnd_Api.g_false,
4499: p_commit => Fnd_Api.g_false,
4500: p_validation_level => Fnd_Api.g_valid_level_full,
4501: p_module_type => 'JSP',
4502: p_visit_id => p_visit_id,
4503: x_return_status => l_return_status,
4496: AHL_VWP_VISITS_STAGES_PVT.UPDATE_STAGES_HIERARICHY (
4497: p_api_version => 1.0,
4498: p_init_msg_list => Fnd_Api.g_false,
4499: p_commit => Fnd_Api.g_false,
4500: p_validation_level => Fnd_Api.g_valid_level_full,
4501: p_module_type => 'JSP',
4502: p_visit_id => p_visit_id,
4503: x_return_status => l_return_status,
4504: x_msg_count => l_msg_count,
4510: L_DEBUG_KEY,
4511: 'After calling UPDATE_STAGES_HIERARICHY and return status is:'||l_return_status);
4512: END IF;
4513:
4514: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4515: x_msg_count := l_msg_count;
4516: x_return_status := l_return_status;
4517: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4518: RAISE Fnd_Api.g_exc_error;
4513:
4514: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4515: x_msg_count := l_msg_count;
4516: x_return_status := l_return_status;
4517: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4518: RAISE Fnd_Api.g_exc_error;
4519: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4520: RAISE Fnd_Api.g_exc_unexpected_error;
4521: END IF;
4514: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4515: x_msg_count := l_msg_count;
4516: x_return_status := l_return_status;
4517: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4518: RAISE Fnd_Api.g_exc_error;
4519: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4520: RAISE Fnd_Api.g_exc_unexpected_error;
4521: END IF;
4522: END IF;
4515: x_msg_count := l_msg_count;
4516: x_return_status := l_return_status;
4517: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4518: RAISE Fnd_Api.g_exc_error;
4519: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4520: RAISE Fnd_Api.g_exc_unexpected_error;
4521: END IF;
4522: END IF;
4523: */
4516: x_return_status := l_return_status;
4517: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4518: RAISE Fnd_Api.g_exc_error;
4519: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4520: RAISE Fnd_Api.g_exc_unexpected_error;
4521: END IF;
4522: END IF;
4523: */
4524:
4522: END IF;
4523: */
4524:
4525: EXCEPTION
4526: WHEN Fnd_Api.g_exc_error THEN
4527: x_return_status := Fnd_Api.g_ret_sts_error;
4528: ROLLBACK TO Handle_Task_Dependency;
4529: Fnd_Msg_Pub.count_and_get(
4530: p_encoded => Fnd_Api.g_false,
4523: */
4524:
4525: EXCEPTION
4526: WHEN Fnd_Api.g_exc_error THEN
4527: x_return_status := Fnd_Api.g_ret_sts_error;
4528: ROLLBACK TO Handle_Task_Dependency;
4529: Fnd_Msg_Pub.count_and_get(
4530: p_encoded => Fnd_Api.g_false,
4531: p_count => x_msg_count,
4526: WHEN Fnd_Api.g_exc_error THEN
4527: x_return_status := Fnd_Api.g_ret_sts_error;
4528: ROLLBACK TO Handle_Task_Dependency;
4529: Fnd_Msg_Pub.count_and_get(
4530: p_encoded => Fnd_Api.g_false,
4531: p_count => x_msg_count,
4532: p_data => x_msg_data
4533: );
4534: WHEN Fnd_Api.g_exc_unexpected_error THEN
4530: p_encoded => Fnd_Api.g_false,
4531: p_count => x_msg_count,
4532: p_data => x_msg_data
4533: );
4534: WHEN Fnd_Api.g_exc_unexpected_error THEN
4535: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4536: ROLLBACK TO Handle_Task_Dependency;
4537: Fnd_Msg_Pub.count_and_get (
4538: p_encoded => Fnd_Api.g_false,
4531: p_count => x_msg_count,
4532: p_data => x_msg_data
4533: );
4534: WHEN Fnd_Api.g_exc_unexpected_error THEN
4535: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4536: ROLLBACK TO Handle_Task_Dependency;
4537: Fnd_Msg_Pub.count_and_get (
4538: p_encoded => Fnd_Api.g_false,
4539: p_count => x_msg_count,
4534: WHEN Fnd_Api.g_exc_unexpected_error THEN
4535: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4536: ROLLBACK TO Handle_Task_Dependency;
4537: Fnd_Msg_Pub.count_and_get (
4538: p_encoded => Fnd_Api.g_false,
4539: p_count => x_msg_count,
4540: p_data => x_msg_data
4541: );
4542: WHEN OTHERS THEN
4539: p_count => x_msg_count,
4540: p_data => x_msg_data
4541: );
4542: WHEN OTHERS THEN
4543: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4544: ROLLBACK TO Handle_Task_Dependency;
4545: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4546: THEN
4547: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4546: THEN
4547: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4548: END IF;
4549: Fnd_Msg_Pub.count_and_get (
4550: p_encoded => Fnd_Api.g_false,
4551: p_count => x_msg_count,
4552: p_data => x_msg_data
4553: );
4554:
4566: -- To make warranty not applicable for a task
4567: --------------------------------------------------------------------
4568: PROCEDURE Warranty_Not_Applicable (
4569: p_api_version IN NUMBER,
4570: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4571: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4572: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4573: p_task_tbl IN Task_Tbl_Type,
4574: x_return_status OUT NOCOPY VARCHAR2,
4567: --------------------------------------------------------------------
4568: PROCEDURE Warranty_Not_Applicable (
4569: p_api_version IN NUMBER,
4570: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4571: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4572: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4573: p_task_tbl IN Task_Tbl_Type,
4574: x_return_status OUT NOCOPY VARCHAR2,
4575: x_msg_count OUT NOCOPY NUMBER,
4568: PROCEDURE Warranty_Not_Applicable (
4569: p_api_version IN NUMBER,
4570: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4571: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4572: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4573: p_task_tbl IN Task_Tbl_Type,
4574: x_return_status OUT NOCOPY VARCHAR2,
4575: x_msg_count OUT NOCOPY NUMBER,
4576: x_msg_data OUT NOCOPY VARCHAR2
4627: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of the PLSQL procedure');
4628: END IF;
4629:
4630: -- Initialize message list if p_init_msg_list is set to TRUE.
4631: IF Fnd_Api.to_boolean(p_init_msg_list)
4632: THEN
4633: Fnd_Msg_Pub.initialize;
4634: END IF;
4635:
4633: Fnd_Msg_Pub.initialize;
4634: END IF;
4635:
4636: -- Initialize API return status to success
4637: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4638:
4639: -- Standard call to check for call compatibility.
4640: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4641: p_api_version,
4636: -- Initialize API return status to success
4637: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4638:
4639: -- Standard call to check for call compatibility.
4640: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4641: p_api_version,
4642: l_api_name,G_PKG_NAME)
4643: THEN
4644: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4640: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4641: p_api_version,
4642: l_api_name,G_PKG_NAME)
4643: THEN
4644: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4645: END IF;
4646:
4647: FOR i IN l_task_tbl.FIRST..l_task_tbl.LAST
4648: LOOP
4651: CLOSE c_warranty_record;
4652: IF (c_warranty_rec.OBJECT_VERSION_NUMBER <> l_task_tbl(i).OBJECT_VERSION_NUMBER) THEN
4653: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
4654: Fnd_Msg_Pub.ADD;
4655: RAISE Fnd_Api.G_EXC_ERROR;
4656: END IF;
4657:
4658: l_task_tbl(i).instance_id := c_warranty_rec.instance_id;
4659: l_task_tbl(i).warranty_entitlement_id := c_warranty_rec.warranty_entitlement_id;
4692: l_return_status);
4693: END IF;
4694:
4695: l_msg_count := Fnd_Msg_Pub.count_msg;
4696: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
4697: x_msg_count := l_msg_count;
4698: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4699: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4700: END IF;
4694:
4695: l_msg_count := Fnd_Msg_Pub.count_msg;
4696: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
4697: x_msg_count := l_msg_count;
4698: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4699: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4700: END IF;
4701: END LOOP;
4702:
4695: l_msg_count := Fnd_Msg_Pub.count_msg;
4696: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
4697: x_msg_count := l_msg_count;
4698: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4699: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4700: END IF;
4701: END LOOP;
4702:
4703: -- MANESING::Component Maintenance Planning Project, 07-Aug-2011, added standard check for commit
4701: END LOOP;
4702:
4703: -- MANESING::Component Maintenance Planning Project, 07-Aug-2011, added standard check for commit
4704: -- Standard check of p_commit
4705: IF FND_API.to_boolean(p_commit) THEN
4706: COMMIT WORK;
4707: END IF;
4708:
4709: IF (l_log_procedure >= l_log_current_level) THEN
4710: FND_LOG.string(l_log_procedure, l_debug_key || '.end', 'At the end of PL/SQL procedure');
4711: END IF;
4712:
4713: EXCEPTION
4714: WHEN Fnd_Api.g_exc_error THEN
4715: ROLLBACK TO Warranty_Not_Applicable;
4716: x_return_status := Fnd_Api.g_ret_sts_error;
4717: Fnd_Msg_Pub.count_and_get(
4718: p_encoded => Fnd_Api.g_false,
4712:
4713: EXCEPTION
4714: WHEN Fnd_Api.g_exc_error THEN
4715: ROLLBACK TO Warranty_Not_Applicable;
4716: x_return_status := Fnd_Api.g_ret_sts_error;
4717: Fnd_Msg_Pub.count_and_get(
4718: p_encoded => Fnd_Api.g_false,
4719: p_count => x_msg_count,
4720: p_data => x_msg_data
4714: WHEN Fnd_Api.g_exc_error THEN
4715: ROLLBACK TO Warranty_Not_Applicable;
4716: x_return_status := Fnd_Api.g_ret_sts_error;
4717: Fnd_Msg_Pub.count_and_get(
4718: p_encoded => Fnd_Api.g_false,
4719: p_count => x_msg_count,
4720: p_data => x_msg_data
4721: );
4722: WHEN Fnd_Api.g_exc_unexpected_error THEN
4718: p_encoded => Fnd_Api.g_false,
4719: p_count => x_msg_count,
4720: p_data => x_msg_data
4721: );
4722: WHEN Fnd_Api.g_exc_unexpected_error THEN
4723: ROLLBACK TO Warranty_Not_Applicable;
4724: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4725: Fnd_Msg_Pub.count_and_get (
4726: p_encoded => Fnd_Api.g_false,
4720: p_data => x_msg_data
4721: );
4722: WHEN Fnd_Api.g_exc_unexpected_error THEN
4723: ROLLBACK TO Warranty_Not_Applicable;
4724: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4725: Fnd_Msg_Pub.count_and_get (
4726: p_encoded => Fnd_Api.g_false,
4727: p_count => x_msg_count,
4728: p_data => x_msg_data
4722: WHEN Fnd_Api.g_exc_unexpected_error THEN
4723: ROLLBACK TO Warranty_Not_Applicable;
4724: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4725: Fnd_Msg_Pub.count_and_get (
4726: p_encoded => Fnd_Api.g_false,
4727: p_count => x_msg_count,
4728: p_data => x_msg_data
4729: );
4730: WHEN OTHERS THEN
4728: p_data => x_msg_data
4729: );
4730: WHEN OTHERS THEN
4731: ROLLBACK TO Warranty_Not_Applicable;
4732: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4733: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4734: THEN
4735: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4736: END IF;
4734: THEN
4735: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4736: END IF;
4737: Fnd_Msg_Pub.count_and_get (
4738: p_encoded => Fnd_Api.g_false,
4739: p_count => x_msg_count,
4740: p_data => x_msg_data
4741: );
4742:
4758:
4759: PROCEDURE Add_Return_To_Supply
4760: (
4761: p_api_version IN NUMBER,
4762: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4763: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4764: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4765: p_task_tbl_type IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
4766: x_return_status OUT NOCOPY VARCHAR2,
4759: PROCEDURE Add_Return_To_Supply
4760: (
4761: p_api_version IN NUMBER,
4762: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4763: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4764: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4765: p_task_tbl_type IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
4766: x_return_status OUT NOCOPY VARCHAR2,
4767: x_msg_count OUT NOCOPY NUMBER,
4760: (
4761: p_api_version IN NUMBER,
4762: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4763: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4764: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4765: p_task_tbl_type IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
4766: x_return_status OUT NOCOPY VARCHAR2,
4767: x_msg_count OUT NOCOPY NUMBER,
4768: x_msg_data OUT NOCOPY VARCHAR2
4844: FND_LOG.string(FND_LOG.level_procedure, L_DEBUG || '.begin','At the start of PLSQL procedure');
4845: END IF;
4846:
4847: -- Initialize message list if p_init_msg_list is set to TRUE.
4848: IF FND_API.to_boolean( p_init_msg_list ) THEN
4849: FND_MSG_PUB.initialize;
4850: END IF;
4851:
4852: -- Initialize API return status to success
4849: FND_MSG_PUB.initialize;
4850: END IF;
4851:
4852: -- Initialize API return status to success
4853: x_return_status := FND_API.G_RET_STS_SUCCESS;
4854:
4855: -- Standard call to check for call compatibility.
4856: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4852: -- Initialize API return status to success
4853: x_return_status := FND_API.G_RET_STS_SUCCESS;
4854:
4855: -- Standard call to check for call compatibility.
4856: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4858: END IF;
4859:
4860: FOR i in p_task_tbl_type.FIRST..p_task_tbl_type.LAST
4853: x_return_status := FND_API.G_RET_STS_SUCCESS;
4854:
4855: -- Standard call to check for call compatibility.
4856: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4858: END IF;
4859:
4860: FOR i in p_task_tbl_type.FIRST..p_task_tbl_type.LAST
4861: LOOP
4880: IF (l_task_type_code = 'SUMMARY' OR l_task_type_code = 'DUPLICATE') THEN
4881: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_INVALID_TASK');
4882: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
4883: FND_MSG_PUB.add;
4884: x_return_status := FND_API.G_RET_STS_ERROR;
4885:
4886: ELSE
4887: -- Check Task Status
4888: IF (l_status_code <> 'PLANNING') THEN
4888: IF (l_status_code <> 'PLANNING') THEN
4889: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_INVALID_STATUS');
4890: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
4891: FND_MSG_PUB.add;
4892: x_return_status := FND_API.G_RET_STS_ERROR;
4893: END IF;
4894:
4895: -- Check if this flag already marked RTS
4896: IF(l_current_rts = 'Y') THEN
4896: IF(l_current_rts = 'Y') THEN
4897: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_PRESENT');
4898: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
4899: FND_MSG_PUB.add;
4900: x_return_status := FND_API.G_RET_STS_ERROR;
4901: END IF;
4902:
4903: -- Cursor to get the RTS count for this instance
4904: FOR l_count_rec in get_rts_count(l_visit_id, p_task_tbl_type(i).visit_task_id, l_instance_id)
4910: IF (l_rts_count > 0) THEN
4911: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_FOUND');
4912: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
4913: FND_MSG_PUB.add;
4914: x_return_status := FND_API.G_RET_STS_ERROR;
4915: END IF;
4916: END IF;
4917:
4918: -- Kasridha: Changes for Component Maintenance Planning Project Begins
4942: -- Kasridha: Changes for Component Maintenance Planning Project Ends
4943:
4944:
4945: -- Perform update if the status is still success
4946: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4947: UPDATE AHL_VISIT_TASKS_B
4948: SET object_version_number = object_version_number + 1,
4949: last_update_date = sysdate,
4950: last_updated_by = FND_GLOBAL.user_id,
4956: IF ( SQL%ROWCOUNT = 0 ) THEN
4957: FND_MESSAGE.set_name('AHL','AHL_TASK_RECORD_CHANGED');
4958: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
4959: FND_MSG_PUB.add;
4960: x_return_status := FND_API.G_RET_STS_ERROR;
4961: END IF;
4962:
4963: END IF;
4964:
4987: END IF;
4988:
4989: AHL_CMP_PVT.Move_To_InRepair_Locator(
4990: p_api_version => l_api_version,
4991: p_init_msg_list => Fnd_Api.g_false,
4992: p_commit => Fnd_Api.g_false,
4993: p_validation_level => p_validation_level,
4994: p_wip_entity_id => l_rts_wip_entity_id,
4995: p_instance_id => l_instance_id,
4988:
4989: AHL_CMP_PVT.Move_To_InRepair_Locator(
4990: p_api_version => l_api_version,
4991: p_init_msg_list => Fnd_Api.g_false,
4992: p_commit => Fnd_Api.g_false,
4993: p_validation_level => p_validation_level,
4994: p_wip_entity_id => l_rts_wip_entity_id,
4995: p_instance_id => l_instance_id,
4996: p_repair_batch_name => l_rpr_batch_name,
5004: l_debug,
5005: 'After Calling AHL_VWP_PROJ_PROD_PVT.Move_To_InRepair_Locator.' ||
5006: 'Return Status = ' || x_return_status );
5007: END IF;
5008: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5009: IF x_return_status = Fnd_Api.g_ret_sts_error THEN
5010: RAISE Fnd_Api.g_exc_error;
5011: ELSIF x_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5012: RAISE Fnd_Api.g_exc_unexpected_error;
5005: 'After Calling AHL_VWP_PROJ_PROD_PVT.Move_To_InRepair_Locator.' ||
5006: 'Return Status = ' || x_return_status );
5007: END IF;
5008: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5009: IF x_return_status = Fnd_Api.g_ret_sts_error THEN
5010: RAISE Fnd_Api.g_exc_error;
5011: ELSIF x_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5012: RAISE Fnd_Api.g_exc_unexpected_error;
5013: END IF;
5006: 'Return Status = ' || x_return_status );
5007: END IF;
5008: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5009: IF x_return_status = Fnd_Api.g_ret_sts_error THEN
5010: RAISE Fnd_Api.g_exc_error;
5011: ELSIF x_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5012: RAISE Fnd_Api.g_exc_unexpected_error;
5013: END IF;
5014:
5007: END IF;
5008: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5009: IF x_return_status = Fnd_Api.g_ret_sts_error THEN
5010: RAISE Fnd_Api.g_exc_error;
5011: ELSIF x_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5012: RAISE Fnd_Api.g_exc_unexpected_error;
5013: END IF;
5014:
5015: END IF;
5008: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5009: IF x_return_status = Fnd_Api.g_ret_sts_error THEN
5010: RAISE Fnd_Api.g_exc_error;
5011: ELSIF x_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5012: RAISE Fnd_Api.g_exc_unexpected_error;
5013: END IF;
5014:
5015: END IF;
5016: END IF;
5019:
5020: END LOOP;
5021:
5022: --Standard check for commit
5023: IF (FND_API.TO_BOOLEAN(p_commit) AND x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5024: COMMIT;
5025: END IF;
5026:
5027: -- Count and Get messages
5024: COMMIT;
5025: END IF;
5026:
5027: -- Count and Get messages
5028: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5029: p_count => x_msg_count,
5030: p_data => x_msg_data);
5031:
5032: IF (l_log_procedure >= l_log_current_level) THEN
5033: fnd_log.string(l_log_procedure, L_DEBUG || '.end', 'At the end of PL SQL procedure');
5034: END IF;
5035:
5036: EXCEPTION
5037: WHEN FND_API.G_EXC_ERROR THEN
5038: ROLLBACK TO add_rts_sp;
5039: x_return_status := FND_API.G_RET_STS_ERROR;
5040: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5041: p_count => x_msg_count,
5035:
5036: EXCEPTION
5037: WHEN FND_API.G_EXC_ERROR THEN
5038: ROLLBACK TO add_rts_sp;
5039: x_return_status := FND_API.G_RET_STS_ERROR;
5040: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5041: p_count => x_msg_count,
5042: p_data => x_msg_data);
5043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5036: EXCEPTION
5037: WHEN FND_API.G_EXC_ERROR THEN
5038: ROLLBACK TO add_rts_sp;
5039: x_return_status := FND_API.G_RET_STS_ERROR;
5040: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5041: p_count => x_msg_count,
5042: p_data => x_msg_data);
5043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5044: ROLLBACK TO add_rts_sp;
5039: x_return_status := FND_API.G_RET_STS_ERROR;
5040: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5041: p_count => x_msg_count,
5042: p_data => x_msg_data);
5043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5044: ROLLBACK TO add_rts_sp;
5045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5046: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5047: p_count => x_msg_count,
5041: p_count => x_msg_count,
5042: p_data => x_msg_data);
5043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5044: ROLLBACK TO add_rts_sp;
5045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5046: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5047: p_count => x_msg_count,
5048: p_data => x_msg_data);
5049: WHEN OTHERS THEN
5042: p_data => x_msg_data);
5043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5044: ROLLBACK TO add_rts_sp;
5045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5046: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5047: p_count => x_msg_count,
5048: p_data => x_msg_data);
5049: WHEN OTHERS THEN
5050: ROLLBACK TO add_rts_sp;
5047: p_count => x_msg_count,
5048: p_data => x_msg_data);
5049: WHEN OTHERS THEN
5050: ROLLBACK TO add_rts_sp;
5051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5052: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5053: FND_MSG_PUB.add_exc_msg (G_PKG_NAME, L_API_NAME);
5054: END IF;
5055: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5052: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5053: FND_MSG_PUB.add_exc_msg (G_PKG_NAME, L_API_NAME);
5054: END IF;
5055: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5056: p_count => x_msg_count,
5057: p_data => x_msg_data);
5058:
5059: END Add_Return_To_Supply;
5072:
5073: PROCEDURE Remove_Return_To_Supply
5074: (
5075: p_api_version IN NUMBER,
5076: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5077: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5078: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5079: p_task_tbl_type IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
5080: x_return_status OUT NOCOPY VARCHAR2,
5073: PROCEDURE Remove_Return_To_Supply
5074: (
5075: p_api_version IN NUMBER,
5076: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5077: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5078: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5079: p_task_tbl_type IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
5080: x_return_status OUT NOCOPY VARCHAR2,
5081: x_msg_count OUT NOCOPY NUMBER,
5074: (
5075: p_api_version IN NUMBER,
5076: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5077: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5078: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5079: p_task_tbl_type IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
5080: x_return_status OUT NOCOPY VARCHAR2,
5081: x_msg_count OUT NOCOPY NUMBER,
5082: x_msg_data OUT NOCOPY VARCHAR2
5113: FND_LOG.string(FND_LOG.level_procedure, L_DEBUG || '.begin','At the start of PLSQL procedure');
5114: END IF;
5115:
5116: -- Initialize message list if p_init_msg_list is set to TRUE.
5117: IF FND_API.to_boolean( p_init_msg_list ) THEN
5118: FND_MSG_PUB.initialize;
5119: END IF;
5120:
5121: -- Initialize API return status to success
5118: FND_MSG_PUB.initialize;
5119: END IF;
5120:
5121: -- Initialize API return status to success
5122: x_return_status := FND_API.G_RET_STS_SUCCESS;
5123:
5124: -- Standard call to check for call compatibility.
5125: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5121: -- Initialize API return status to success
5122: x_return_status := FND_API.G_RET_STS_SUCCESS;
5123:
5124: -- Standard call to check for call compatibility.
5125: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5127: END IF;
5128:
5129: FOR i in p_task_tbl_type.FIRST..p_task_tbl_type.LAST
5122: x_return_status := FND_API.G_RET_STS_SUCCESS;
5123:
5124: -- Standard call to check for call compatibility.
5125: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5127: END IF;
5128:
5129: FOR i in p_task_tbl_type.FIRST..p_task_tbl_type.LAST
5130: LOOP
5145: IF (l_task_type_code = 'SUMMARY' OR l_task_type_code = 'DUPLICATE') THEN
5146: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_INVALID_TASK');
5147: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
5148: FND_MSG_PUB.add;
5149: x_return_status := FND_API.G_RET_STS_ERROR;
5150:
5151: ELSE
5152: -- Check Task Status
5153: IF (l_status_code <> 'PLANNING') THEN
5153: IF (l_status_code <> 'PLANNING') THEN
5154: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_INVALID_STATUS');
5155: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
5156: FND_MSG_PUB.add;
5157: x_return_status := FND_API.G_RET_STS_ERROR;
5158: END IF;
5159:
5160: -- Check if this flag already unmarked RTS
5161: IF(l_current_rts = 'N') THEN
5161: IF(l_current_rts = 'N') THEN
5162: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_NOT_PRESENT');
5163: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
5164: FND_MSG_PUB.add;
5165: x_return_status := FND_API.G_RET_STS_ERROR;
5166: END IF;
5167: END IF;
5168:
5169: -- Perform update if the status is still success
5166: END IF;
5167: END IF;
5168:
5169: -- Perform update if the status is still success
5170: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5171: UPDATE AHL_VISIT_TASKS_B
5172: SET object_version_number = object_version_number + 1,
5173: last_update_date = sysdate,
5174: last_updated_by = FND_GLOBAL.user_id,
5180: IF ( SQL%ROWCOUNT = 0 ) THEN
5181: FND_MESSAGE.set_name('AHL','AHL_TASK_RECORD_CHANGED');
5182: FND_MESSAGE.set_token( 'TASK_NO', l_visit_task_number );
5183: FND_MSG_PUB.add;
5184: x_return_status := FND_API.G_RET_STS_ERROR;
5185: END IF;
5186: END IF;
5187:
5188: END LOOP;
5186: END IF;
5187:
5188: END LOOP;
5189: --Standard check for commit
5190: IF (FND_API.TO_BOOLEAN(p_commit) AND x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5191: COMMIT;
5192: END IF;
5193:
5194: -- Count and Get messages
5191: COMMIT;
5192: END IF;
5193:
5194: -- Count and Get messages
5195: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5196: p_count => x_msg_count,
5197: p_data => x_msg_data);
5198:
5199: IF (l_log_procedure >= l_log_current_level) THEN
5200: fnd_log.string(l_log_procedure, L_DEBUG || '.end', 'At the end of PL SQL procedure');
5201: END IF;
5202:
5203: EXCEPTION
5204: WHEN FND_API.G_EXC_ERROR THEN
5205: ROLLBACK TO remove_rts_sp;
5206: x_return_status := FND_API.G_RET_STS_ERROR;
5207: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5208: p_count => x_msg_count,
5202:
5203: EXCEPTION
5204: WHEN FND_API.G_EXC_ERROR THEN
5205: ROLLBACK TO remove_rts_sp;
5206: x_return_status := FND_API.G_RET_STS_ERROR;
5207: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5208: p_count => x_msg_count,
5209: p_data => x_msg_data);
5210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5203: EXCEPTION
5204: WHEN FND_API.G_EXC_ERROR THEN
5205: ROLLBACK TO remove_rts_sp;
5206: x_return_status := FND_API.G_RET_STS_ERROR;
5207: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5208: p_count => x_msg_count,
5209: p_data => x_msg_data);
5210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5211: ROLLBACK TO remove_rts_sp;
5206: x_return_status := FND_API.G_RET_STS_ERROR;
5207: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5208: p_count => x_msg_count,
5209: p_data => x_msg_data);
5210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5211: ROLLBACK TO remove_rts_sp;
5212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5213: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5214: p_count => x_msg_count,
5208: p_count => x_msg_count,
5209: p_data => x_msg_data);
5210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5211: ROLLBACK TO remove_rts_sp;
5212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5213: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5214: p_count => x_msg_count,
5215: p_data => x_msg_data);
5216: WHEN OTHERS THEN
5209: p_data => x_msg_data);
5210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5211: ROLLBACK TO remove_rts_sp;
5212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5213: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5214: p_count => x_msg_count,
5215: p_data => x_msg_data);
5216: WHEN OTHERS THEN
5217: ROLLBACK TO remove_rts_sp;
5214: p_count => x_msg_count,
5215: p_data => x_msg_data);
5216: WHEN OTHERS THEN
5217: ROLLBACK TO remove_rts_sp;
5218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5219: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5220: FND_MSG_PUB.add_exc_msg (G_PKG_NAME, L_API_NAME);
5221: END IF;
5222: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5219: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5220: FND_MSG_PUB.add_exc_msg (G_PKG_NAME, L_API_NAME);
5221: END IF;
5222: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5223: p_count => x_msg_count,
5224: p_data => x_msg_data);
5225:
5226: END Remove_Return_To_Supply;
5246:
5247: PROCEDURE Validate_Return_To_Supply
5248: (
5249: p_api_version IN NUMBER,
5250: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5251: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5252: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5253: p_module_type IN VARCHAR2,
5254: p_visit_id IN NUMBER,
5247: PROCEDURE Validate_Return_To_Supply
5248: (
5249: p_api_version IN NUMBER,
5250: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5251: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5252: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5253: p_module_type IN VARCHAR2,
5254: p_visit_id IN NUMBER,
5255: p_tasks_tbl IN Task_Tbl_Type,
5248: (
5249: p_api_version IN NUMBER,
5250: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5251: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5252: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5253: p_module_type IN VARCHAR2,
5254: p_visit_id IN NUMBER,
5255: p_tasks_tbl IN Task_Tbl_Type,
5256: x_return_status OUT NOCOPY VARCHAR2,
5290: FND_LOG.string(FND_LOG.level_procedure, L_DEBUG || '.begin','At the start of PLSQL procedure');
5291: END IF;
5292:
5293: -- Initialize message list if p_init_msg_list is set to TRUE.
5294: IF FND_API.to_boolean( p_init_msg_list ) THEN
5295: FND_MSG_PUB.initialize;
5296: END IF;
5297:
5298: -- Initialize API return status to success
5295: FND_MSG_PUB.initialize;
5296: END IF;
5297:
5298: -- Initialize API return status to success
5299: x_return_status := FND_API.G_RET_STS_SUCCESS;
5300:
5301: -- Standard call to check for call compatibility.
5302: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5298: -- Initialize API return status to success
5299: x_return_status := FND_API.G_RET_STS_SUCCESS;
5300:
5301: -- Standard call to check for call compatibility.
5302: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5304: END IF;
5305:
5306: IF (l_log_statement >= l_log_current_level) THEN
5299: x_return_status := FND_API.G_RET_STS_SUCCESS;
5300:
5301: -- Standard call to check for call compatibility.
5302: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5304: END IF;
5305:
5306: IF (l_log_statement >= l_log_current_level) THEN
5307: FND_LOG.string(l_log_statement, L_DEBUG, 'p_module_type: ' || p_module_type);
5317: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_VALIDATE_ERR');
5318: FND_MESSAGE.set_token( 'INST_NO', l_instance_num );
5319: FND_MSG_PUB.add;
5320:
5321: IF (x_return_status <> FND_API.G_RET_STS_ERROR) THEN
5322: x_return_status := FND_API.G_RET_STS_ERROR;
5323: END IF;
5324:
5325: IF (l_log_statement >= l_log_current_level) THEN
5318: FND_MESSAGE.set_token( 'INST_NO', l_instance_num );
5319: FND_MSG_PUB.add;
5320:
5321: IF (x_return_status <> FND_API.G_RET_STS_ERROR) THEN
5322: x_return_status := FND_API.G_RET_STS_ERROR;
5323: END IF;
5324:
5325: IF (l_log_statement >= l_log_current_level) THEN
5326: FND_LOG.string(l_log_statement, L_DEBUG, 'For Visit id: ' || p_visit_id || ' RTS violating instance number:' || l_instance_num);
5372: FND_MESSAGE.set_name('AHL','AHL_VWP_RTS_VALIDATE_ERR');
5373: FND_MESSAGE.set_token( 'INST_NO', l_instance_num );
5374: FND_MSG_PUB.add;
5375:
5376: IF (x_return_status <> FND_API.G_RET_STS_ERROR) THEN
5377: x_return_status := FND_API.G_RET_STS_ERROR;
5378: END IF;
5379:
5380: IF (l_log_statement >= l_log_current_level) THEN
5373: FND_MESSAGE.set_token( 'INST_NO', l_instance_num );
5374: FND_MSG_PUB.add;
5375:
5376: IF (x_return_status <> FND_API.G_RET_STS_ERROR) THEN
5377: x_return_status := FND_API.G_RET_STS_ERROR;
5378: END IF;
5379:
5380: IF (l_log_statement >= l_log_current_level) THEN
5381: FND_LOG.string(l_log_statement, L_DEBUG, 'RTS violating instance number:' || l_instance_num);
5389:
5390: END IF;-- END IF(p_module_type = 'VST')
5391:
5392: -- Count and Get messages
5393: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
5394: p_count => x_msg_count,
5395: p_data => x_msg_data);
5396:
5397: IF (l_log_procedure >= l_log_current_level) THEN
5417:
5418: PROCEDURE Flag_Duplicate_Task
5419: (
5420: p_api_version IN NUMBER,
5421: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
5422: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5423: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
5424: p_module_type IN VARCHAR2 := NULL,
5425: p_task_rec_tbl IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
5418: PROCEDURE Flag_Duplicate_Task
5419: (
5420: p_api_version IN NUMBER,
5421: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
5422: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5423: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
5424: p_module_type IN VARCHAR2 := NULL,
5425: p_task_rec_tbl IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
5426: x_return_status OUT NOCOPY VARCHAR2,
5419: (
5420: p_api_version IN NUMBER,
5421: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
5422: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5423: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
5424: p_module_type IN VARCHAR2 := NULL,
5425: p_task_rec_tbl IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
5426: x_return_status OUT NOCOPY VARCHAR2,
5427: x_msg_count OUT NOCOPY NUMBER,
5524: IF (l_log_procedure >= l_log_current_level) THEN
5525: FND_LOG.string(l_log_procedure, L_DEBUG_KEY || '.begin', 'At the start of the PLSQL procedure Flag_Duplicate_Task. p_task_rec.COUNT ->' || p_task_rec_tbl.COUNT);
5526: END IF;
5527: -- Initialize message list if p_init_msg_list is set to TRUE
5528: IF FND_API.To_Boolean(p_init_msg_list) THEN
5529: FND_MSG_PUB.Initialize;
5530: END IF;
5531: -- Initialize API return status to success
5532: x_return_status := FND_API.G_RET_STS_SUCCESS;
5528: IF FND_API.To_Boolean(p_init_msg_list) THEN
5529: FND_MSG_PUB.Initialize;
5530: END IF;
5531: -- Initialize API return status to success
5532: x_return_status := FND_API.G_RET_STS_SUCCESS;
5533: -- Standard call to check for call compatibility.
5534: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN
5535: IF (l_log_statement >= l_log_current_level) THEN
5536: fnd_log.string(l_log_statement,L_DEBUG_KEY||'UNEXPECTED ERROR', 'l_api_version :' || l_api_version || 'p_api_version :' || p_api_version );
5530: END IF;
5531: -- Initialize API return status to success
5532: x_return_status := FND_API.G_RET_STS_SUCCESS;
5533: -- Standard call to check for call compatibility.
5534: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN
5535: IF (l_log_statement >= l_log_current_level) THEN
5536: fnd_log.string(l_log_statement,L_DEBUG_KEY||'UNEXPECTED ERROR', 'l_api_version :' || l_api_version || 'p_api_version :' || p_api_version );
5537: END IF;
5538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;--G_EXC_ERROR
5534: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN
5535: IF (l_log_statement >= l_log_current_level) THEN
5536: fnd_log.string(l_log_statement,L_DEBUG_KEY||'UNEXPECTED ERROR', 'l_api_version :' || l_api_version || 'p_api_version :' || p_api_version );
5537: END IF;
5538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;--G_EXC_ERROR
5539: END IF;
5540: --------------------Start of API Body-----------------------------------
5541: FOR i IN p_task_rec_tbl.FIRST .. p_task_rec_tbl.LAST
5542: LOOP
5550: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVD_TASK_FOR_DUP_FLAG' ); -- //Task can not be flagged duplicate as it is either not in planning or
5551: -- //its task type is not planned or unplanned.
5552: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5553: Fnd_Msg_Pub.ADD;
5554: RAISE FND_API.G_EXC_ERROR;
5555: END IF;
5556: CLOSE validate_task_csr; --Added by tchimira since the cursor must be closed in any case
5557: OPEN validate_route_csr(p_task_rec_tbl(i).Visit_Task_Id);
5558: FETCH validate_route_csr INTO l_dummy;
5561: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVD_ROUTE_DUP_FLAG' ); -- // Task can not be flagged duplicate because either duplicate flag of Route for the Task is not set
5562: -- //or its return to supply flag is set.
5563: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5564: Fnd_Msg_Pub.ADD;
5565: RAISE FND_API.G_EXC_ERROR;
5566: END IF;
5567: CLOSE validate_route_csr; --Added by tchimira since the cursor must be closed in any case
5568: OPEN validate_duplicate_task_csr(p_task_rec_tbl(i).Visit_Task_Id);
5569: FETCH validate_duplicate_task_csr INTO l_dummy;
5572: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNQ_ROUTE_FOR_DUP_FLAG'); -- //Task number can not be flagged duplicate because all the tasks created
5573: -- //for a given route and item instance pair cannot be flagged duplicate.
5574: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5575: Fnd_Msg_Pub.ADD;
5576: RAISE FND_API.G_EXC_ERROR;
5577: END IF;
5578: CLOSE validate_duplicate_task_csr; --Added by tchimira since the cursor must be closed in any case
5579: OPEN validate_mr_csr (p_task_rec_tbl(i).Visit_Task_Id);
5580: FETCH validate_mr_csr INTO l_dummy;
5583: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVD_RT_FOR_DUP_FLAG'); -- //Task cannot be flagged duplicate because all the tasks of a given MR
5584: -- //in a visit cannot be flagged duplicate.
5585: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5586: Fnd_Msg_Pub.ADD;
5587: RAISE FND_API.G_EXC_ERROR;
5588: END IF;
5589: CLOSE validate_mr_csr; --Added by tchimira since the cursor must be closed in any case
5590: -- SATRAJEN :: Bug 13054370 :: Tasks which are dependent should not be marked as duplicate.
5591: OPEN validate_dep_csr (p_task_rec_tbl(i).Visit_Task_Id);
5596: CLOSE validate_dep_csr;
5597: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEP_TASK_FOR_DUP_FLAG'); -- //Task cannot be flagged duplicate because tasks which are dependent cannot be flagged duplicate.
5598: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5599: Fnd_Msg_Pub.ADD;
5600: RAISE FND_API.G_EXC_ERROR;
5601: END IF;
5602: -- SATRAJEN :: END of Bug 13054370
5603: OPEN visit_task_csr(p_task_rec_tbl(i).Visit_Task_Id);
5604: FETCH visit_task_csr INTO l_object_version_number;
5606: CLOSE visit_task_csr;
5607: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_DELETED'); -- // The task has been deleted.
5608: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5609: Fnd_Msg_Pub.ADD;
5610: RAISE FND_API.G_EXC_ERROR;
5611: END IF;
5612: CLOSE visit_task_csr; --Added by tchimira since the cursor must be closed in any case
5613: IF (l_object_version_number > p_task_rec_tbl(i).object_version_number) THEN
5614: Fnd_Message.SET_NAME('AHL','AHL_TASK_RECORD_CHANGED'); -- // Record has been changed
5613: IF (l_object_version_number > p_task_rec_tbl(i).object_version_number) THEN
5614: Fnd_Message.SET_NAME('AHL','AHL_TASK_RECORD_CHANGED'); -- // Record has been changed
5615: Fnd_Message.Set_Token('TASK_NO', p_task_rec_tbl(i).Visit_Task_Number);
5616: Fnd_Msg_Pub.ADD;
5617: RAISE FND_API.G_EXC_ERROR;
5618: ELSE
5619: UPDATE AHL_VISIT_TASKS_B
5620: SET TASK_TYPE_CODE = 'DUPLICATE' ,
5621: LAST_UPDATE_DATE = SYSDATE ,
5626: END IF;
5627: END LOOP;
5628: ---------------------------End of Body-------------------------------------
5629: -- Standard check of p_commit.
5630: IF Fnd_Api.To_Boolean ( p_commit ) THEN
5631: COMMIT WORK;
5632: END IF;
5633: IF (l_log_procedure >= l_log_current_level)THEN
5634: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end', 'At the end of PLSQL procedure Flag_Duplicate_Task, x_return_status=' || x_return_status);
5634: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end', 'At the end of PLSQL procedure Flag_Duplicate_Task, x_return_status=' || x_return_status);
5635: END IF;
5636:
5637: EXCEPTION
5638: WHEN FND_API.G_EXC_ERROR THEN
5639: x_return_status := FND_API.G_RET_STS_ERROR;
5640: ROLLBACK TO Flag_Duplicate_Task;
5641: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5635: END IF;
5636:
5637: EXCEPTION
5638: WHEN FND_API.G_EXC_ERROR THEN
5639: x_return_status := FND_API.G_RET_STS_ERROR;
5640: ROLLBACK TO Flag_Duplicate_Task;
5641: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5637: EXCEPTION
5638: WHEN FND_API.G_EXC_ERROR THEN
5639: x_return_status := FND_API.G_RET_STS_ERROR;
5640: ROLLBACK TO Flag_Duplicate_Task;
5641: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5644: ROLLBACK TO Flag_Duplicate_Task;
5645: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5638: WHEN FND_API.G_EXC_ERROR THEN
5639: x_return_status := FND_API.G_RET_STS_ERROR;
5640: ROLLBACK TO Flag_Duplicate_Task;
5641: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5644: ROLLBACK TO Flag_Duplicate_Task;
5645: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5646: WHEN OTHERS THEN
5639: x_return_status := FND_API.G_RET_STS_ERROR;
5640: ROLLBACK TO Flag_Duplicate_Task;
5641: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5644: ROLLBACK TO Flag_Duplicate_Task;
5645: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5646: WHEN OTHERS THEN
5647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5641: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5644: ROLLBACK TO Flag_Duplicate_Task;
5645: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5646: WHEN OTHERS THEN
5647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5648: ROLLBACK TO Flag_Duplicate_Task;
5649: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5644: ROLLBACK TO Flag_Duplicate_Task;
5645: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5646: WHEN OTHERS THEN
5647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5648: ROLLBACK TO Flag_Duplicate_Task;
5649: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5650: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME, p_procedure_name => L_API_NAME, p_error_text => SUBSTR(SQLERRM,1,500));
5651: END IF;
5648: ROLLBACK TO Flag_Duplicate_Task;
5649: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5650: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME, p_procedure_name => L_API_NAME, p_error_text => SUBSTR(SQLERRM,1,500));
5651: END IF;
5652: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5653: END Flag_Duplicate_Task;
5654:
5655:
5656: -------------------------------------------------------------------
5665: -------------------------------------------------------------------
5666: PROCEDURE Remove_Duplicate_Task_Flag
5667: (
5668: p_api_version IN NUMBER,
5669: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
5670: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5671: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
5672: p_module_type IN VARCHAR2 := NULL,
5673: p_task_rec_tbl IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
5666: PROCEDURE Remove_Duplicate_Task_Flag
5667: (
5668: p_api_version IN NUMBER,
5669: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
5670: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5671: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
5672: p_module_type IN VARCHAR2 := NULL,
5673: p_task_rec_tbl IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
5674: x_return_status OUT NOCOPY VARCHAR2,
5667: (
5668: p_api_version IN NUMBER,
5669: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
5670: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5671: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
5672: p_module_type IN VARCHAR2 := NULL,
5673: p_task_rec_tbl IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
5674: x_return_status OUT NOCOPY VARCHAR2,
5675: x_msg_count OUT NOCOPY NUMBER,
5720: IF (l_log_procedure >= l_log_current_level) THEN
5721: FND_LOG.string(l_log_procedure, L_DEBUG_KEY || '.begin', 'At the start of the PLSQL procedure Remove_Duplicate_Task_Flag. p_task_rec.COUNT ->' || p_task_rec_tbl.COUNT);
5722: END IF;
5723: -- Initialize message list if p_init_msg_list is set to TRUE
5724: IF FND_API.To_Boolean(p_init_msg_list) THEN
5725: FND_MSG_PUB.Initialize;
5726: END IF;
5727: -- Initialize API return status to success
5728: x_return_status := FND_API.G_RET_STS_SUCCESS;
5724: IF FND_API.To_Boolean(p_init_msg_list) THEN
5725: FND_MSG_PUB.Initialize;
5726: END IF;
5727: -- Initialize API return status to success
5728: x_return_status := FND_API.G_RET_STS_SUCCESS;
5729: -- Standard call to check for call compatibility.
5730: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN
5731: IF (l_log_statement >= l_log_current_level) THEN
5732: fnd_log.string(l_log_statement,L_DEBUG_KEY||'UNEXPECTED ERROR', 'l_api_version :' || l_api_version || 'p_api_version :' || p_api_version );
5726: END IF;
5727: -- Initialize API return status to success
5728: x_return_status := FND_API.G_RET_STS_SUCCESS;
5729: -- Standard call to check for call compatibility.
5730: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN
5731: IF (l_log_statement >= l_log_current_level) THEN
5732: fnd_log.string(l_log_statement,L_DEBUG_KEY||'UNEXPECTED ERROR', 'l_api_version :' || l_api_version || 'p_api_version :' || p_api_version );
5733: END IF;
5734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;--G_EXC_ERROR
5730: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN
5731: IF (l_log_statement >= l_log_current_level) THEN
5732: fnd_log.string(l_log_statement,L_DEBUG_KEY||'UNEXPECTED ERROR', 'l_api_version :' || l_api_version || 'p_api_version :' || p_api_version );
5733: END IF;
5734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;--G_EXC_ERROR
5735: END IF;
5736:
5737: --------------------Start of API Body-----------------------------------
5738: FOR i IN p_task_rec_tbl.FIRST .. p_task_rec_tbl.LAST
5746: CLOSE validate_task_csr;
5747: Fnd_Message.SET_NAME('AHL','AHL_VWP_TSK_INVD_FOR_REMOV_DUP' ); --// Task is either not in planning or task type is not Duplicate.
5748: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5749: Fnd_Msg_Pub.ADD;
5750: RAISE FND_API.G_EXC_ERROR;
5751: END IF;
5752:
5753: OPEN validate_task_status_csr(p_task_rec_tbl(i).Visit_Task_Id);
5754: FETCH validate_task_status_csr INTO l_dummy;
5756: CLOSE validate_task_status_csr;
5757: Fnd_Message.SET_NAME('AHL','AHL_VWP_MR_INVD_FOR_REMOVE_DUP' ); --// MR for the Task has some tasks in released status.
5758: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5759: Fnd_Msg_Pub.ADD;
5760: RAISE FND_API.G_EXC_ERROR;
5761: END IF;
5762:
5763: OPEN update_visit_task_csr(p_task_rec_tbl(i).Visit_Task_Id);
5764: FETCH update_visit_task_csr INTO update_task_rec;
5767: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_HAS_NO_UE_RECORD '); -- // Duplicate flag for Task number can not be removed as it has no
5768: -- // unit effectivity record.
5769: Fnd_Message.Set_Token('TASK_NUM', p_task_rec_tbl(i).Visit_Task_Number);
5770: Fnd_Msg_Pub.ADD;
5771: RAISE FND_API.G_EXC_ERROR;
5772: END IF;
5773: IF ((update_task_rec.MANUALLY_PLANNED_FLAG is NULL) OR (update_task_rec.MANUALLY_PLANNED_FLAG = 'N')) THEN
5774: l_task_type_code := 'PLANNED';
5775: ELSIF ((update_task_rec.MANUALLY_PLANNED_FLAG = 'Y') AND (update_task_rec.SERVICE_REQUEST_ID is not NULL)) THEN
5781: IF (update_task_rec.object_version_number > p_task_rec_tbl(i).object_version_number) THEN
5782: Fnd_Message.SET_NAME('AHL','AHL_TASK_RECORD_CHANGED'); -- // Record has been changed
5783: Fnd_Message.Set_Token('TASK_NO', p_task_rec_tbl(i).Visit_Task_Number);
5784: Fnd_Msg_Pub.ADD;
5785: RAISE FND_API.G_EXC_ERROR;
5786: ELSE
5787: UPDATE AHL_VISIT_TASKS_B
5788: SET TASK_TYPE_CODE = l_task_type_code ,
5789: LAST_UPDATE_DATE = SYSDATE ,
5796: END LOOP;
5797: ---------------------------End of Body-------------------------------------
5798:
5799: -- Standard check of p_commit.
5800: IF Fnd_Api.To_Boolean ( p_commit ) THEN
5801: COMMIT WORK;
5802: END IF;
5803: IF (l_log_procedure >= l_log_current_level)THEN
5804: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end', 'At the end of PLSQL procedure Remove_Duplicate_Task_Flag, x_return_status=' || x_return_status);
5804: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end', 'At the end of PLSQL procedure Remove_Duplicate_Task_Flag, x_return_status=' || x_return_status);
5805: END IF;
5806:
5807: EXCEPTION
5808: WHEN FND_API.G_EXC_ERROR THEN
5809: x_return_status := FND_API.G_RET_STS_ERROR;
5810: ROLLBACK TO Remove_Duplicate_Task_Flag;
5811: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5805: END IF;
5806:
5807: EXCEPTION
5808: WHEN FND_API.G_EXC_ERROR THEN
5809: x_return_status := FND_API.G_RET_STS_ERROR;
5810: ROLLBACK TO Remove_Duplicate_Task_Flag;
5811: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5807: EXCEPTION
5808: WHEN FND_API.G_EXC_ERROR THEN
5809: x_return_status := FND_API.G_RET_STS_ERROR;
5810: ROLLBACK TO Remove_Duplicate_Task_Flag;
5811: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5814: ROLLBACK TO Remove_Duplicate_Task_Flag;
5815: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5808: WHEN FND_API.G_EXC_ERROR THEN
5809: x_return_status := FND_API.G_RET_STS_ERROR;
5810: ROLLBACK TO Remove_Duplicate_Task_Flag;
5811: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5814: ROLLBACK TO Remove_Duplicate_Task_Flag;
5815: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5816: WHEN OTHERS THEN
5809: x_return_status := FND_API.G_RET_STS_ERROR;
5810: ROLLBACK TO Remove_Duplicate_Task_Flag;
5811: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5814: ROLLBACK TO Remove_Duplicate_Task_Flag;
5815: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5816: WHEN OTHERS THEN
5817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5811: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5814: ROLLBACK TO Remove_Duplicate_Task_Flag;
5815: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5816: WHEN OTHERS THEN
5817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5818: ROLLBACK TO Remove_Duplicate_Task_Flag;
5819: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5814: ROLLBACK TO Remove_Duplicate_Task_Flag;
5815: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5816: WHEN OTHERS THEN
5817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5818: ROLLBACK TO Remove_Duplicate_Task_Flag;
5819: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5820: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME, p_procedure_name => L_API_NAME, p_error_text => SUBSTR(SQLERRM,1,500));
5821: END IF;
5818: ROLLBACK TO Remove_Duplicate_Task_Flag;
5819: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5820: fnd_msg_pub.add_exc_msg( p_pkg_name => G_PKG_NAME, p_procedure_name => L_API_NAME, p_error_text => SUBSTR(SQLERRM,1,500));
5821: END IF;
5822: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
5823: END Remove_Duplicate_Task_Flag;
5824:
5825: --VWPE :: AVIKUKUM :: 05-APR-2011 :: END
5826:
5832: -- Parameters :
5833: --
5834: -- Standard IN Parameters :
5835: -- p_api_version IN NUMBER Required
5836: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5837: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5838: --
5839: -- Standard OUT Parameters :
5840: -- x_return_status OUT VARCHAR2 Required
5833: --
5834: -- Standard IN Parameters :
5835: -- p_api_version IN NUMBER Required
5836: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5837: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5838: --
5839: -- Standard OUT Parameters :
5840: -- x_return_status OUT VARCHAR2 Required
5841: -- x_msg_count OUT NUMBER Required
5845: -- p_ue_id IN NUMBER Required
5846: --------------------------------------------------------------------------------------------------------------------
5847: PROCEDURE Cancel_Planning_tasks (
5848: p_api_version IN NUMBER,
5849: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5850: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5851: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5852: p_ue_id IN NUMBER,
5853: x_return_status OUT NOCOPY VARCHAR2,
5846: --------------------------------------------------------------------------------------------------------------------
5847: PROCEDURE Cancel_Planning_tasks (
5848: p_api_version IN NUMBER,
5849: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5850: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5851: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5852: p_ue_id IN NUMBER,
5853: x_return_status OUT NOCOPY VARCHAR2,
5854: x_msg_count OUT NOCOPY NUMBER,
5847: PROCEDURE Cancel_Planning_tasks (
5848: p_api_version IN NUMBER,
5849: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5850: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5851: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5852: p_ue_id IN NUMBER,
5853: x_return_status OUT NOCOPY VARCHAR2,
5854: x_msg_count OUT NOCOPY NUMBER,
5855: x_msg_data OUT NOCOPY VARCHAR2)IS
5902: SAVEPOINT Cancel_Planning_tasks_pvt;
5903:
5904: -- Initialize message list if p_init_msg_list is set to TRUE
5905:
5906: IF FND_API.To_Boolean( p_init_msg_list) THEN
5907: FND_MSG_PUB.Initialize;
5908: END IF;
5909:
5910: -- Initialize API return status to success
5907: FND_MSG_PUB.Initialize;
5908: END IF;
5909:
5910: -- Initialize API return status to success
5911: x_return_status := FND_API.G_RET_STS_SUCCESS;
5912:
5913: -- Standard call to check for call compatibility.
5914: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
5915: p_api_version,
5910: -- Initialize API return status to success
5911: x_return_status := FND_API.G_RET_STS_SUCCESS;
5912:
5913: -- Standard call to check for call compatibility.
5914: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
5915: p_api_version,
5916: l_api_name,G_PKG_NAME)
5917: THEN
5918: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5914: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
5915: p_api_version,
5916: l_api_name,G_PKG_NAME)
5917: THEN
5918: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5919: END IF;
5920:
5921: -- make sure that UE id is present in the input and is valid
5922: IF(p_ue_id IS NULL OR p_ue_id = FND_API.G_MISS_NUM) THEN
5918: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5919: END IF;
5920:
5921: -- make sure that UE id is present in the input and is valid
5922: IF(p_ue_id IS NULL OR p_ue_id = FND_API.G_MISS_NUM) THEN
5923: FND_MESSAGE.Set_Name('AHL','AHL_AVF_SNPSHT_INPUT_MISS'); --tch
5924: FND_MSG_PUB.ADD;
5925:
5926: IF (fnd_log.level_exception >= l_log_current_level)THEN
5930: L_DEBUG,
5931: 'UE id is mandatory but found null in input '
5932: );
5933: END IF;
5934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5935:
5936: ELSE
5937:
5938: OPEN get_summary_task ( p_ue_id );
5949: END IF;
5950:
5951: AHL_VWP_TASKS_PVT.Delete_Task (
5952: p_api_version => p_api_version,
5953: p_init_msg_list => Fnd_Api.g_false,
5954: p_commit => Fnd_Api.g_false,
5955: p_Visit_Task_Id => l_summary_task_id,
5956: x_return_status => l_return_status,
5957: x_msg_count => l_msg_count,
5950:
5951: AHL_VWP_TASKS_PVT.Delete_Task (
5952: p_api_version => p_api_version,
5953: p_init_msg_list => Fnd_Api.g_false,
5954: p_commit => Fnd_Api.g_false,
5955: p_Visit_Task_Id => l_summary_task_id,
5956: x_return_status => l_return_status,
5957: x_msg_count => l_msg_count,
5958: x_msg_data => l_msg_data );
5960: IF (l_log_statement >= l_log_current_level) THEN
5961: fnd_log.string(l_log_statement,L_DEBUG,'After call to Delete_Task: l_return_status:'||l_return_status||' l_msg_count:'||l_msg_count);
5962: END IF;
5963:
5964: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5965: x_msg_count := l_msg_count;
5966: x_return_status := l_return_status;
5967: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5968: RAISE Fnd_Api.g_exc_error;
5963:
5964: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5965: x_msg_count := l_msg_count;
5966: x_return_status := l_return_status;
5967: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5968: RAISE Fnd_Api.g_exc_error;
5969: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5970: RAISE Fnd_Api.g_exc_unexpected_error;
5971: END IF;
5964: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5965: x_msg_count := l_msg_count;
5966: x_return_status := l_return_status;
5967: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5968: RAISE Fnd_Api.g_exc_error;
5969: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5970: RAISE Fnd_Api.g_exc_unexpected_error;
5971: END IF;
5972: END IF;
5965: x_msg_count := l_msg_count;
5966: x_return_status := l_return_status;
5967: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5968: RAISE Fnd_Api.g_exc_error;
5969: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5970: RAISE Fnd_Api.g_exc_unexpected_error;
5971: END IF;
5972: END IF;
5973: END IF; --IF l_summary_task_id IS NOT NULL THEN
5966: x_return_status := l_return_status;
5967: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5968: RAISE Fnd_Api.g_exc_error;
5969: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5970: RAISE Fnd_Api.g_exc_unexpected_error;
5971: END IF;
5972: END IF;
5973: END IF; --IF l_summary_task_id IS NOT NULL THEN
5974:
5994: ---------------------------End of Body-------------------------------------
5995: -- END of API body.
5996: -- Standard check of p_commit.
5997:
5998: IF Fnd_Api.To_Boolean (p_commit) THEN
5999: COMMIT WORK;
6000: END IF;
6001:
6002: Fnd_Msg_Pub.count_and_get(
5999: COMMIT WORK;
6000: END IF;
6001:
6002: Fnd_Msg_Pub.count_and_get(
6003: p_encoded => Fnd_Api.g_false,
6004: p_count => x_msg_count,
6005: p_data => x_msg_data
6006: );
6007:
6015: END IF;
6016:
6017: EXCEPTION
6018:
6019: WHEN FND_API.G_EXC_ERROR THEN
6020:
6021: x_return_status := FND_API.G_RET_STS_ERROR;
6022: ROLLBACK TO Cancel_Planning_tasks_pvt;
6023: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6017: EXCEPTION
6018:
6019: WHEN FND_API.G_EXC_ERROR THEN
6020:
6021: x_return_status := FND_API.G_RET_STS_ERROR;
6022: ROLLBACK TO Cancel_Planning_tasks_pvt;
6023: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6024: p_data => x_msg_data,
6025: p_encoded => fnd_api.g_false);
6021: x_return_status := FND_API.G_RET_STS_ERROR;
6022: ROLLBACK TO Cancel_Planning_tasks_pvt;
6023: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6024: p_data => x_msg_data,
6025: p_encoded => fnd_api.g_false);
6026:
6027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6029: ROLLBACK TO Cancel_Planning_tasks_pvt;
6023: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6024: p_data => x_msg_data,
6025: p_encoded => fnd_api.g_false);
6026:
6027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6029: ROLLBACK TO Cancel_Planning_tasks_pvt;
6030: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6031: p_data => x_msg_data,
6024: p_data => x_msg_data,
6025: p_encoded => fnd_api.g_false);
6026:
6027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6029: ROLLBACK TO Cancel_Planning_tasks_pvt;
6030: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6031: p_data => x_msg_data,
6032: p_encoded => fnd_api.g_false);
6028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6029: ROLLBACK TO Cancel_Planning_tasks_pvt;
6030: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6031: p_data => x_msg_data,
6032: p_encoded => fnd_api.g_false);
6033:
6034: WHEN OTHERS THEN
6035: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6036: ROLLBACK TO Cancel_Planning_tasks_pvt;
6031: p_data => x_msg_data,
6032: p_encoded => fnd_api.g_false);
6033:
6034: WHEN OTHERS THEN
6035: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6036: ROLLBACK TO Cancel_Planning_tasks_pvt;
6037:
6038: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6039: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6042: END IF;
6043:
6044: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6045: p_data => x_msg_data,
6046: p_encoded => fnd_api.g_false);
6047: END Cancel_Planning_tasks;
6048: -- tchimira on 14-Mar-2012 for the bug 13694807 - end
6049:
6050: END AHL_VWP_RULES_PVT;