[Home] [Help]
347:
348: -- Fix for Prev. Maint. performance bug# 5093064.
349: -- instead of calling procedure AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS,
350: -- write PM effectivity logic in this procedure.
351: PROCEDURE Process_PM_MR_Affected_Items(p_commit IN VARCHAR2 := FND_API.G_FALSE,
352: x_msg_count OUT NOCOPY NUMBER,
353: x_msg_data OUT NOCOPY VARCHAR2,
354: x_return_status OUT NOCOPY VARCHAR2,
355: p_mr_header_id IN NUMBER,
533: -- Unit's Effectivity will be built for the input item instance.
534: --
535:
536: PROCEDURE Process_Unit (
537: p_commit IN VARCHAR2 := FND_API.G_FALSE,
538: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
539: x_msg_count OUT NOCOPY NUMBER,
540: x_msg_data OUT NOCOPY VARCHAR2,
541: x_return_status OUT NOCOPY VARCHAR2,
534: --
535:
536: PROCEDURE Process_Unit (
537: p_commit IN VARCHAR2 := FND_API.G_FALSE,
538: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
539: x_msg_count OUT NOCOPY NUMBER,
540: x_msg_data OUT NOCOPY VARCHAR2,
541: x_return_status OUT NOCOPY VARCHAR2,
542: p_csi_item_instance_id IN NUMBER,
568: -- Standard start of API savepoint
569: SAVEPOINT Process_Unit_PVT;
570:
571: -- Initialize message list if p_init_msg_list is set to TRUE
572: IF FND_API.To_Boolean(p_init_msg_list) THEN
573: FND_MSG_PUB.Initialize;
574: END IF;
575:
576: -- Initialize Procedure return status to success
573: FND_MSG_PUB.Initialize;
574: END IF;
575:
576: -- Initialize Procedure return status to success
577: x_return_status := FND_API.G_RET_STS_SUCCESS;
578:
579: -- Enable Debug.
580: IF G_DEBUG = 'Y' THEN
581: AHL_DEBUG_PUB.enable_debug;
608: Validate_item_instance(p_csi_item_instance_id, l_inventory_item_id,
609: l_inv_master_organization_id);
610:
611: IF FND_MSG_PUB.Count_msg > 0 THEN
612: RAISE FND_API.G_EXC_ERROR;
613: END IF;
614:
615: -- Log success message if called by concurrent program.
616: IF (p_concurrent_flag = 'Y') THEN
633: l_uc_header_id, G_master_config_id);
634:
635: -- Check for errors.
636: IF FND_MSG_PUB.Count_msg > 0 THEN
637: RAISE FND_API.G_EXC_ERROR;
638: END IF;
639:
640: -- Build the Configuration tree structure.(G_config_node_tbl).
641: Build_Config_Tree(l_csi_item_instance_id, G_master_config_id, G_CONFIG_NODE_TBL);
674: x_return_status => x_return_status,
675: x_msg_count => x_msg_count,
676: x_msg_data => x_msg_data );
677:
678: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
681: RAISE FND_API.G_EXC_ERROR;
682: END IF;
675: x_msg_count => x_msg_count,
676: x_msg_data => x_msg_data );
677:
678: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
681: RAISE FND_API.G_EXC_ERROR;
682: END IF;
683:
676: x_msg_data => x_msg_data );
677:
678: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
681: RAISE FND_API.G_EXC_ERROR;
682: END IF;
683:
684: -- Build applicability for group MRs.
677:
678: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
681: RAISE FND_API.G_EXC_ERROR;
682: END IF;
683:
684: -- Build applicability for group MRs.
685: AHL_UMP_UTIL_PKG.Process_Group_MRs;
695: x_msg_count => x_msg_count,
696: x_msg_data => x_msg_data,
697: x_UnSch_programs_tbl => l_UnSch_programs_tbl);
698:
699: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
700: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
701: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
702: RAISE FND_API.G_EXC_ERROR;
703: END IF;
696: x_msg_data => x_msg_data,
697: x_UnSch_programs_tbl => l_UnSch_programs_tbl);
698:
699: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
700: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
701: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
702: RAISE FND_API.G_EXC_ERROR;
703: END IF;
704:
697: x_UnSch_programs_tbl => l_UnSch_programs_tbl);
698:
699: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
700: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
701: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
702: RAISE FND_API.G_EXC_ERROR;
703: END IF;
704:
705: END IF; -- pm_install check.
698:
699: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
700: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
701: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
702: RAISE FND_API.G_EXC_ERROR;
703: END IF;
704:
705: END IF; -- pm_install check.
706:
725:
726: IF (l_ret_code = -54) THEN
727: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_ALREADY_RUNNING');
728: FND_MSG_PUB.ADD;
729: RAISE FND_API.G_EXC_ERROR;
730: END IF;
731:
732: /*
733: -- Log success message if called by concurrent program.
752: AHL_UMP_PROCESSUNIT_EXTN_PVT.Flush_From_Temp_Table(G_config_node_tbl);
753:
754: -- Check for errors.
755: IF FND_MSG_PUB.Count_msg > 0 THEN
756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
757: END IF;
758:
759: /* -- commented for performance fix - bug# 6893404
760: IF (G_IS_PM_INSTALLED = 'N') THEN
763: --call for material requirement forecst
764: AHL_UMP_FORECAST_REQ_PVT.process_mrl_req_forecast
765: (
766: p_api_version => 1.0,
767: p_init_msg_list => FND_API.G_TRUE,
768: p_commit => FND_API.G_FALSE,
769: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
770: x_return_status => x_return_status,
771: x_msg_count => x_msg_count,
764: AHL_UMP_FORECAST_REQ_PVT.process_mrl_req_forecast
765: (
766: p_api_version => 1.0,
767: p_init_msg_list => FND_API.G_TRUE,
768: p_commit => FND_API.G_FALSE,
769: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
770: x_return_status => x_return_status,
771: x_msg_count => x_msg_count,
772: x_msg_data => x_msg_data,
765: (
766: p_api_version => 1.0,
767: p_init_msg_list => FND_API.G_TRUE,
768: p_commit => FND_API.G_FALSE,
769: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
770: x_return_status => x_return_status,
771: x_msg_count => x_msg_count,
772: x_msg_data => x_msg_data,
773: p_applicable_instances_tbl => G_config_node_tbl
773: p_applicable_instances_tbl => G_config_node_tbl
774: );
775:
776: -- Check for errors.
777: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
779: END IF;
780:
781: END IF;
774: );
775:
776: -- Check for errors.
777: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
779: END IF;
780:
781: END IF;
782: */
781: END IF;
782: */
783:
784: -- Standard check of p_commit
785: IF FND_API.TO_BOOLEAN(p_commit) THEN
786: COMMIT WORK;
787: END IF;
788:
789: -- Log success message if called by concurrent program.
794: -- Standard call to get message count and if count is 1, get message info
795: FND_MSG_PUB.Count_And_Get
796: ( p_count => x_msg_count,
797: p_data => x_msg_data,
798: p_encoded => fnd_api.g_false
799: );
800:
801: --
802: EXCEPTION
799: );
800:
801: --
802: EXCEPTION
803: WHEN FND_API.G_EXC_ERROR THEN
804: x_return_status := FND_API.G_RET_STS_ERROR;
805: Rollback to Process_Unit_PVT;
806: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
807: p_data => x_msg_data,
800:
801: --
802: EXCEPTION
803: WHEN FND_API.G_EXC_ERROR THEN
804: x_return_status := FND_API.G_RET_STS_ERROR;
805: Rollback to Process_Unit_PVT;
806: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
807: p_data => x_msg_data,
808: p_encoded => fnd_api.g_false);
804: x_return_status := FND_API.G_RET_STS_ERROR;
805: Rollback to Process_Unit_PVT;
806: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
807: p_data => x_msg_data,
808: p_encoded => fnd_api.g_false);
809:
810: IF (p_concurrent_flag = 'Y') THEN
811:
812: fnd_file.put_line(fnd_file.log, 'Process Unit failed for item instance: '|| p_csi_item_instance_id);
815:
816: -- Disable debug
817: AHL_DEBUG_PUB.disable_debug;
818:
819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
820: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
821: Rollback to Process_Unit_PVT;
822: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
823: p_data => x_msg_data,
816: -- Disable debug
817: AHL_DEBUG_PUB.disable_debug;
818:
819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
820: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
821: Rollback to Process_Unit_PVT;
822: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
823: p_data => x_msg_data,
824: p_encoded => fnd_api.g_false);
820: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
821: Rollback to Process_Unit_PVT;
822: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
823: p_data => x_msg_data,
824: p_encoded => fnd_api.g_false);
825:
826: IF (p_concurrent_flag = 'Y') THEN
827: fnd_file.put_line(fnd_file.log, 'Process Unit failed for item instance: '|| p_csi_item_instance_id);
828: log_error_messages;
832: AHL_DEBUG_PUB.disable_debug;
833:
834: WHEN OTHERS THEN
835:
836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: Rollback to Process_Unit_PVT;
838: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
839: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
840: p_procedure_name => 'Process_Unit_PVT',
841: p_error_text => SUBSTR(SQLERRM,1,240));
842: END IF;
843: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
844: p_data => x_msg_data,
845: p_encoded => fnd_api.g_false);
846:
847:
848: IF (p_concurrent_flag = 'Y') THEN
849: fnd_file.put_line(fnd_file.log, 'Process Unit failed for item instance: '|| p_csi_item_instance_id);
874: -- and informational messages will be logged into the log file.
875: --
876:
877: PROCEDURE Process_MRAffected_Units (
878: p_commit IN VARCHAR2 := FND_API.G_FALSE,
879: x_msg_count OUT NOCOPY NUMBER,
880: x_msg_data OUT NOCOPY VARCHAR2,
881: x_return_status OUT NOCOPY VARCHAR2,
882: p_mr_header_id IN NUMBER,
898:
899: BEGIN
900:
901: -- Initialize Procedure return status to success
902: x_return_status := FND_API.G_RET_STS_SUCCESS;
903:
904: -- Enable Debug.
905: IF G_DEBUG = 'Y' THEN
906: AHL_DEBUG_PUB.enable_debug;
912: AHL_DEBUG_PUB.debug('Application Usage Profile:' || fnd_profile.value('AHL_APPLN_USAGE'));
913: END IF;
914:
915: IF (p_concurrent_flag = 'Y') THEN
916: l_commit := FND_API.G_TRUE;
917: l_conc_request_id := fnd_global.conc_request_id;
918: IF (l_conc_request_id = -1) OR (l_conc_request_id IS NULL) OR (l_conc_request_id <= 0) THEN
919: -- this will happen only when called from UMP Terminate_MR_Instances api.
920: l_conc_request_id := fnd_global.login_id;
952: p_mtl_category_id => p_mtl_category_id,
953: p_process_option => p_process_option,
954: x_return_status => x_return_status);
955:
956: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
957: RETURN;
958: END IF;
959:
960: IF (p_old_mr_header_id IS NOT NULL AND p_old_mr_header_id <> FND_API.G_MISS_NUM) THEN
956: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
957: RETURN;
958: END IF;
959:
960: IF (p_old_mr_header_id IS NOT NULL AND p_old_mr_header_id <> FND_API.G_MISS_NUM) THEN
961: -- Call FMP API to get all items instances which have old mr_id in its applicability.
962: Populate_BUE_Worker_for_MR(p_conc_request_id => l_conc_request_id,
963: p_mr_header_id => p_old_mr_header_id,
964: p_concurrent_flag => p_concurrent_flag,
964: p_concurrent_flag => p_concurrent_flag,
965: p_mtl_category_id => p_mtl_category_id,
966: p_process_option => p_process_option,
967: x_return_status => x_return_status);
968: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
969: RETURN;
970: END IF;
971: END IF; -- p_old_mr_header_id I
972:
979: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
980: END IF;
981: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
982: fnd_file.new_line(FND_FILE.LOG,1);
983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
984: EXIT; -- abort and return to calling pgm.
985:
986: ELSE
987: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id);
998:
999: ELSE
1000: LOOP
1001: -- initialize return status.
1002: x_return_status := FND_API.G_RET_STS_SUCCESS;
1003:
1004: -- process each unit from worker table.
1005: Get_Next_BUE_Row(p_parent_conc_pgm_id => l_conc_request_id,
1006: p_conc_child_req_id => l_conc_request_id,
1007: errbuf => x_msg_data,
1008: x_return_status => x_return_status,
1009: x_item_instance_id => l_instance_id);
1010:
1011: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1012: EXIT; -- abort and return to calling pgm.
1013: END IF;
1014:
1015: EXIT WHEN (l_instance_id IS NULL);
1020:
1021: -- Call Process Unit for the item instance.
1022: Process_Unit (
1023: p_commit => l_commit,
1024: p_init_msg_list => FND_API.G_TRUE,
1025: x_msg_count => x_msg_count,
1026: x_msg_data => x_msg_data,
1027: x_return_status => x_return_status,
1028: p_csi_item_instance_id => l_instance_id,
1027: x_return_status => x_return_status,
1028: p_csi_item_instance_id => l_instance_id,
1029: p_concurrent_flag => p_concurrent_flag);
1030:
1031: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1032: EXIT; -- abort and return to calling pgm.
1033: END IF;
1034:
1035: END LOOP;
1062: -- The contract number modifier for above contract number
1063:
1064: PROCEDURE Process_PM_Contracts
1065: (
1066: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1067: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1068: x_msg_count OUT NOCOPY NUMBER,
1069: x_msg_data OUT NOCOPY VARCHAR2,
1070: x_return_status OUT NOCOPY VARCHAR2,
1063:
1064: PROCEDURE Process_PM_Contracts
1065: (
1066: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1067: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1068: x_msg_count OUT NOCOPY NUMBER,
1069: x_msg_data OUT NOCOPY VARCHAR2,
1070: x_return_status OUT NOCOPY VARCHAR2,
1071: p_contract_number IN VARCHAR2 := NULL,
1105: -- Standard start of API savepoint
1106: SAVEPOINT Process_PM_Contracts_PVT;
1107:
1108: -- Initialize message list if p_init_msg_list is set to TRUE
1109: IF FND_API.To_Boolean(p_init_msg_list) THEN
1110: FND_MSG_PUB.Initialize;
1111: END IF;
1112:
1113: -- Initialize Procedure return status to success
1110: FND_MSG_PUB.Initialize;
1111: END IF;
1112:
1113: -- Initialize Procedure return status to success
1114: x_return_status := FND_API.G_RET_STS_SUCCESS;
1115:
1116: -- Enable Debug.
1117: IF G_DEBUG = 'Y' THEN
1118: AHL_DEBUG_PUB.enable_debug;
1130:
1131: IF (p_concurrent_flag = 'Y') THEN
1132: fnd_file.put_line(fnd_file.log, 'Starting processing for contract Number '|| p_contract_number || ' and contract modifier' || p_contract_modifier);
1133: -- If the call is from concurrent program, then commit should default to TRUE
1134: l_commit := FND_API.G_TRUE;
1135: END IF;
1136:
1137: l_inp_cont_rec.contract_number := p_contract_number;
1138: l_inp_cont_rec.contract_number_modifier := p_contract_modifier;
1163:
1164: OKS_ENTITLEMENTS_PUB.get_contracts
1165: (
1166: p_api_version => 1.0,
1167: p_init_msg_list => FND_API.G_FALSE,
1168: p_inp_rec => l_inp_cont_rec,
1169: x_return_status => x_return_status,
1170: x_msg_count => x_msg_count,
1171: x_msg_data => x_msg_data,
1173: );
1174:
1175: -- Check Error Message stack.
1176: l_msg_count := FND_MSG_PUB.count_msg;
1177: IF (l_msg_count > 0 or x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1179: END IF;
1180:
1181: IF (l_ent_cont_tbl.count > 0)
1174:
1175: -- Check Error Message stack.
1176: l_msg_count := FND_MSG_PUB.count_msg;
1177: IF (l_msg_count > 0 or x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1179: END IF;
1180:
1181: IF (l_ent_cont_tbl.count > 0)
1182: THEN
1195: x_return_status => x_return_status,
1196: p_csi_item_instance_id => l_ent_cont_tbl(i).coverage_level_id,
1197: p_concurrent_flag => p_concurrent_flag
1198: );
1199: IF (p_concurrent_flag = 'Y' and (FND_MSG_PUB.count_msg > 0 or x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1200: fnd_file.put_line(fnd_file.log, 'Process_Unit failed for instance: ' || l_ent_cont_tbl(i).coverage_level_id);
1201: END IF;
1202: END IF;
1203: END LOOP;
1204: END IF;
1205:
1206: -- Check Error Message stack.
1207: l_msg_count := FND_MSG_PUB.count_msg;
1208: IF (l_msg_count > 0 or x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1210: END IF;
1211:
1212: -- Standard check of p_commit
1205:
1206: -- Check Error Message stack.
1207: l_msg_count := FND_MSG_PUB.count_msg;
1208: IF (l_msg_count > 0 or x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1210: END IF;
1211:
1212: -- Standard check of p_commit
1213: IF FND_API.TO_BOOLEAN(p_commit) THEN
1209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1210: END IF;
1211:
1212: -- Standard check of p_commit
1213: IF FND_API.TO_BOOLEAN(p_commit) THEN
1214: COMMIT WORK;
1215: END IF;
1216:
1217: -- Log success message if called by concurrent program.
1223: FND_MSG_PUB.Count_And_Get
1224: (
1225: p_count => x_msg_count,
1226: p_data => x_msg_data,
1227: p_encoded => fnd_api.g_false
1228: );
1229:
1230: EXCEPTION
1231: WHEN FND_API.G_EXC_ERROR THEN
1227: p_encoded => fnd_api.g_false
1228: );
1229:
1230: EXCEPTION
1231: WHEN FND_API.G_EXC_ERROR THEN
1232: x_return_status := FND_API.G_RET_STS_ERROR;
1233: Rollback to Process_PM_Contracts_PVT;
1234: FND_MSG_PUB.count_and_get
1235: (
1228: );
1229:
1230: EXCEPTION
1231: WHEN FND_API.G_EXC_ERROR THEN
1232: x_return_status := FND_API.G_RET_STS_ERROR;
1233: Rollback to Process_PM_Contracts_PVT;
1234: FND_MSG_PUB.count_and_get
1235: (
1236: p_count => x_msg_count,
1234: FND_MSG_PUB.count_and_get
1235: (
1236: p_count => x_msg_count,
1237: p_data => x_msg_data,
1238: p_encoded => fnd_api.g_false
1239: );
1240: IF (p_concurrent_flag = 'Y') THEN
1241: fnd_file.put_line(fnd_file.log, 'Process_PM_Contracts failed for: contract Number '|| p_contract_number || ' and contract modifier' || p_contract_modifier);
1242: log_error_messages;
1242: log_error_messages;
1243: END IF;
1244: AHL_DEBUG_PUB.disable_debug;
1245:
1246: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1248: Rollback to Process_PM_Contracts_PVT;
1249: FND_MSG_PUB.count_and_get
1250: (
1243: END IF;
1244: AHL_DEBUG_PUB.disable_debug;
1245:
1246: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1248: Rollback to Process_PM_Contracts_PVT;
1249: FND_MSG_PUB.count_and_get
1250: (
1251: p_count => x_msg_count,
1249: FND_MSG_PUB.count_and_get
1250: (
1251: p_count => x_msg_count,
1252: p_data => x_msg_data,
1253: p_encoded => fnd_api.g_false
1254: );
1255: IF (p_concurrent_flag = 'Y') THEN
1256: fnd_file.put_line(fnd_file.log, 'Process_PM_Contracts failed for: contract Number '|| p_contract_number || ' and contract modifier' || p_contract_modifier);
1257: log_error_messages;
1258: END IF;
1259: AHL_DEBUG_PUB.disable_debug;
1260:
1261: WHEN OTHERS THEN
1262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1263: Rollback to Process_PM_Contracts_PVT;
1264: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1265: fnd_msg_pub.add_exc_msg
1266: (
1272: FND_MSG_PUB.count_and_get
1273: (
1274: p_count => x_msg_count,
1275: p_data => x_msg_data,
1276: p_encoded => fnd_api.g_false
1277: );
1278: IF (p_concurrent_flag = 'Y') THEN
1279: fnd_file.put_line(fnd_file.log, 'Process_PM_Contracts failed for: contract Number '|| p_contract_number || ' and contract modifier' || p_contract_modifier);
1280: log_error_messages;
1295: -- This flag will be 'Y' if called from a concurrent program. Based on this flag, the error
1296: -- and informational messages will be logged into the log file by Process_Unit.
1297:
1298: PROCEDURE Process_All_Units (
1299: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1300: x_msg_count OUT NOCOPY NUMBER,
1301: x_msg_data OUT NOCOPY VARCHAR2,
1302: x_return_status OUT NOCOPY VARCHAR2,
1303: p_concurrent_flag IN VARCHAR2 := 'N',
1328:
1329: BEGIN
1330:
1331: -- Initialize Procedure return status to success
1332: x_return_status := FND_API.G_RET_STS_SUCCESS;
1333:
1334: -- Enable Debug.
1335: -- Add api start debug mesg.
1336: IF G_DEBUG = 'Y' THEN
1339: END IF;
1340:
1341: -- For concurrent program.
1342: IF (p_concurrent_flag = 'Y') THEN
1343: l_commit := FND_API.G_TRUE;
1344: END IF;
1345:
1346: IF (G_IS_PM_INSTALLED = 'N') THEN
1347: -- AHL processing.
1354: x_msg_count => x_msg_count,
1355: x_msg_data => x_msg_data,
1356: x_return_status => x_return_status);
1357:
1358: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1359: RETURN;
1360: END IF;
1361:
1362: ELSE
1407: FND_MESSAGE.Set_Token('INST_ID', p_csi_item_instance_id);
1408: FND_MSG_PUB.ADD;
1409: CLOSE csi_item_instances_csr;
1410: --dbms_output.put_line('Instance not found');
1411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1412: ELSIF (trunc(l_active_end_date) < trunc(sysdate)) THEN
1413: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INST_EXPIRED');
1414: FND_MESSAGE.Set_Token('NUMBER', l_instance_number);
1415: FND_MSG_PUB.ADD;
1812: x_uf_details_tbl => l_uf_details_tbl,
1813: x_return_status => l_return_status);
1814: /* This will give forecast defined item/pc_node level. */
1815:
1816: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1818: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1819: RAISE FND_API.G_EXC_ERROR;
1820: END IF;
1813: x_return_status => l_return_status);
1814: /* This will give forecast defined item/pc_node level. */
1815:
1816: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1818: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1819: RAISE FND_API.G_EXC_ERROR;
1820: END IF;
1821:
1814: /* This will give forecast defined item/pc_node level. */
1815:
1816: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1818: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1819: RAISE FND_API.G_EXC_ERROR;
1820: END IF;
1821:
1822: -- populate l_forecast_details_tbl based on l_uf_details_tbl.
1815:
1816: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1818: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1819: RAISE FND_API.G_EXC_ERROR;
1820: END IF;
1821:
1822: -- populate l_forecast_details_tbl based on l_uf_details_tbl.
1823: IF (l_uf_details_tbl.COUNT) > 0 THEN
1865: p_add_unit_item_forecast => 'Y',
1866: x_uf_details_tbl => l_uf_details_tbl,
1867: x_return_status => l_return_status);
1868:
1869: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1871: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1872: RAISE FND_API.G_EXC_ERROR;
1873: END IF;
1866: x_uf_details_tbl => l_uf_details_tbl,
1867: x_return_status => l_return_status);
1868:
1869: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1871: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1872: RAISE FND_API.G_EXC_ERROR;
1873: END IF;
1874:
1867: x_return_status => l_return_status);
1868:
1869: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1871: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1872: RAISE FND_API.G_EXC_ERROR;
1873: END IF;
1874:
1875: -- Bug# 6749351:Removed duplicate check which is now taken care by get_uf_from_pc.
1868:
1869: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1871: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1872: RAISE FND_API.G_EXC_ERROR;
1873: END IF;
1874:
1875: -- Bug# 6749351:Removed duplicate check which is now taken care by get_uf_from_pc.
1876: IF (l_uf_details_tbl.count > 0) THEN
2050: WHEN OTHERS THEN
2051: IF (SQLCODE = -54) THEN
2052: --FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_ALREADY_RUNNING');
2053: --FND_MSG_PUB.ADD;
2054: --RAISE FND_API.G_EXC_ERROR;
2055: x_ret_code := '-54';
2056: ELSE
2057: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2058: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2058: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2059: p_procedure_name => 'Lock_UnitEffectivity_Records',
2060: p_error_text => SUBSTR(SQLERRM,1,240));
2061: END IF;
2062: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2063: END IF;
2064:
2065: END Lock_UnitEffectivity_Records;
2066:
6235: FND_MESSAGE.Set_Token('UE_ID',l_ue_relns_rec.ue_id);
6236: FND_MESSAGE.Set_Token('RELATED_UE_ID', l_ue_relns_rec.related_ue_id);
6237: FND_MSG_PUB.ADD;
6238: CLOSE ahl_ue_csr;
6239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6240: END IF;
6241: --dbms_output.put_line ('found ue relns');
6242:
6243: l_ue_details_tbl(i).match_flag := 'N';
6668:
6669: FOR i IN 1..l_msg_count LOOP
6670: FND_MSG_PUB.get (
6671: p_msg_index => i,
6672: p_encoded => FND_API.G_FALSE,
6673: p_data => l_msg_data,
6674: p_msg_index_out => l_msg_index_out );
6675:
6676: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_msg_data);
6726:
6727: -- call api to fetch all applicable mrs for PM installation.
6728: AHL_FMP_PVT.get_pm_applicable_mrs(
6729: p_api_version => l_api_version,
6730: p_init_msg_list => FND_API.G_FALSE,
6731: p_commit => FND_API.G_FALSE,
6732: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6733: x_return_status => x_return_status,
6734: x_msg_count => x_msg_count,
6727: -- call api to fetch all applicable mrs for PM installation.
6728: AHL_FMP_PVT.get_pm_applicable_mrs(
6729: p_api_version => l_api_version,
6730: p_init_msg_list => FND_API.G_FALSE,
6731: p_commit => FND_API.G_FALSE,
6732: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6733: x_return_status => x_return_status,
6734: x_msg_count => x_msg_count,
6735: x_msg_data => x_msg_data,
6728: AHL_FMP_PVT.get_pm_applicable_mrs(
6729: p_api_version => l_api_version,
6730: p_init_msg_list => FND_API.G_FALSE,
6731: p_commit => FND_API.G_FALSE,
6732: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6733: x_return_status => x_return_status,
6734: x_msg_count => x_msg_count,
6735: x_msg_data => x_msg_data,
6736: p_item_instance_id => p_csi_ii_id,
6738: x_applicable_programs_tbl => l_appl_programs_tbl);
6739:
6740:
6741: -- Raise errors if exceptions occur
6742: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6743: RAISE FND_API.G_EXC_ERROR;
6744: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6746: END IF;
6739:
6740:
6741: -- Raise errors if exceptions occur
6742: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6743: RAISE FND_API.G_EXC_ERROR;
6744: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6746: END IF;
6747:
6740:
6741: -- Raise errors if exceptions occur
6742: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6743: RAISE FND_API.G_EXC_ERROR;
6744: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6746: END IF;
6747:
6748: -- initialize.
6741: -- Raise errors if exceptions occur
6742: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6743: RAISE FND_API.G_EXC_ERROR;
6744: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6746: END IF;
6747:
6748: -- initialize.
6749: l_pgm_index := 0;
7286: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_PMPROGRAM_NOTFOUND');
7287: FND_MESSAGE.Set_Token('PMPROGRAM',sch_activity_rec.mr_header_id);
7288: FND_MSG_PUB.ADD;
7289: CLOSE ahl_cont_scheduled_csr;
7290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7291: END IF;
7292:
7293: -- check for existence of accomplishments.
7294:
7368: x_msg_count => l_msg_count,
7369: x_msg_data => l_msg_data,
7370: x_pm_schedule => l_pm_schedule_tbl);
7371:
7372: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
7373: RAISE FND_API.G_EXC_ERROR;
7374: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7376: END IF;
7369: x_msg_data => l_msg_data,
7370: x_pm_schedule => l_pm_schedule_tbl);
7371:
7372: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
7373: RAISE FND_API.G_EXC_ERROR;
7374: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7376: END IF;
7377:
7370: x_pm_schedule => l_pm_schedule_tbl);
7371:
7372: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
7373: RAISE FND_API.G_EXC_ERROR;
7374: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7376: END IF;
7377:
7378: IF G_DEBUG = 'Y' THEN
7371:
7372: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
7373: RAISE FND_API.G_EXC_ERROR;
7374: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7376: END IF;
7377:
7378: IF G_DEBUG = 'Y' THEN
7379: AHL_DEBUG_PUB.debug('Service Line ID: ' || l_inp_sch_rec.service_line_id);
7404: l_due_date := NULL;
7405: l_temp_unit_effectivity_rec := l_temp_ue_initrec;
7406:
7407: IF (l_pm_schedule_tbl(i).schedule_on IS NOT NULL) AND
7408: (l_pm_schedule_tbl(i).schedule_on <> FND_API.G_MISS_DATE) THEN
7409: l_due_date := l_pm_schedule_tbl(i).schedule_on;
7410: ELSIF (l_pm_schedule_tbl(i).schedule_to IS NOT NULL) AND
7411: (l_pm_schedule_tbl(i).schedule_to <> FND_API.G_MISS_DATE) THEN
7412: l_due_date := l_pm_schedule_tbl(i).schedule_to;
7407: IF (l_pm_schedule_tbl(i).schedule_on IS NOT NULL) AND
7408: (l_pm_schedule_tbl(i).schedule_on <> FND_API.G_MISS_DATE) THEN
7409: l_due_date := l_pm_schedule_tbl(i).schedule_on;
7410: ELSIF (l_pm_schedule_tbl(i).schedule_to IS NOT NULL) AND
7411: (l_pm_schedule_tbl(i).schedule_to <> FND_API.G_MISS_DATE) THEN
7412: l_due_date := l_pm_schedule_tbl(i).schedule_to;
7413: END IF;
7414:
7415: -- write into temporary table if due date is not null.
7422: l_temp_unit_effectivity_rec.program_mr_header_id := sch_activity_rec.program_mr_header_id;
7423: l_temp_unit_effectivity_rec.service_line_id := sch_activity_rec.service_line_id;
7424: -- Added for ER# 2636001.
7425: IF (l_pm_schedule_tbl(i).schedule_from IS NOT NULL AND
7426: l_pm_schedule_tbl(i).schedule_from <> FND_API.G_MISS_DATE) THEN
7427: l_temp_unit_effectivity_rec.earliest_due_date := l_pm_schedule_tbl(i).schedule_from;
7428: END IF;
7429: IF (l_pm_schedule_tbl(i).schedule_to IS NOT NULL AND
7430: l_pm_schedule_tbl(i).schedule_to <> FND_API.G_MISS_DATE) THEN
7426: l_pm_schedule_tbl(i).schedule_from <> FND_API.G_MISS_DATE) THEN
7427: l_temp_unit_effectivity_rec.earliest_due_date := l_pm_schedule_tbl(i).schedule_from;
7428: END IF;
7429: IF (l_pm_schedule_tbl(i).schedule_to IS NOT NULL AND
7430: l_pm_schedule_tbl(i).schedule_to <> FND_API.G_MISS_DATE) THEN
7431: l_temp_unit_effectivity_rec.latest_due_date := l_pm_schedule_tbl(i).schedule_to;
7432: END IF;
7433:
7434: -- increment forecast sequence.
8171:
8172: BEGIN
8173:
8174: -- Set return status.
8175: x_return_status := FND_API.G_RET_STS_SUCCESS;
8176:
8177: -- Enable Debug.
8178: IF G_DEBUG = 'Y' THEN
8179: AHL_DEBUG_PUB.enable_debug;
8187: AHL_DEBUG_PUB.debug('Count on p_deferral_threshold_tbl:' || p_deferral_threshold_tbl.COUNT);
8188: END IF;
8189:
8190: -- Validate input parameters.
8191: IF (p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
8192: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DEF_UE_NULL');
8193: FND_MSG_PUB.ADD;
8194: RAISE FND_API.G_EXC_ERROR;
8195: ELSE
8190: -- Validate input parameters.
8191: IF (p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
8192: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DEF_UE_NULL');
8193: FND_MSG_PUB.ADD;
8194: RAISE FND_API.G_EXC_ERROR;
8195: ELSE
8196: OPEN ahl_unit_effectivity_csr (p_unit_effectivity_id);
8197: FETCH ahl_unit_effectivity_csr INTO l_csi_item_instance_id, l_mr_header_id;
8198: IF (ahl_unit_effectivity_csr%NOTFOUND) THEN
8198: IF (ahl_unit_effectivity_csr%NOTFOUND) THEN
8199: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DEF_UE_INVALID');
8200: FND_MESSAGE.Set_Token('UE_ID', p_unit_effectivity_id);
8201: FND_MSG_PUB.ADD;
8202: RAISE FND_API.G_EXC_ERROR;
8203: END IF;
8204: END IF;
8205:
8206: IF (l_mr_header_id IS NOT NULL) THEN
8210: IF (ahl_mr_headers_csr%NOTFOUND) THEN
8211: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DEF_MR_INVALID');
8212: FND_MESSAGE.Set_Token('UE_ID', p_unit_effectivity_id);
8213: FND_MSG_PUB.ADD;
8214: RAISE FND_API.G_EXC_ERROR;
8215: END IF;
8216: CLOSE ahl_mr_headers_csr;
8217: ELSE
8218: -- SR case.
8238: END IF;
8239:
8240: -- Check for errors.
8241: IF FND_MSG_PUB.Count_msg > 0 THEN
8242: RAISE FND_API.G_EXC_ERROR;
8243: END IF;
8244:
8245: IF G_DEBUG = 'Y' THEN
8246: AHL_DEBUG_PUB.debug('Step 3');
8337: -- Standard call to get message count and if count is 1, get message info
8338: FND_MSG_PUB.Count_And_Get
8339: ( p_count => x_msg_count,
8340: p_data => x_msg_data,
8341: p_encoded => fnd_api.g_false
8342: );
8343:
8344: --
8345: EXCEPTION
8342: );
8343:
8344: --
8345: EXCEPTION
8346: WHEN FND_API.G_EXC_ERROR THEN
8347: x_return_status := FND_API.G_RET_STS_ERROR;
8348: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8349: p_data => x_msg_data,
8350: p_encoded => fnd_api.g_false);
8343:
8344: --
8345: EXCEPTION
8346: WHEN FND_API.G_EXC_ERROR THEN
8347: x_return_status := FND_API.G_RET_STS_ERROR;
8348: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8349: p_data => x_msg_data,
8350: p_encoded => fnd_api.g_false);
8351:
8346: WHEN FND_API.G_EXC_ERROR THEN
8347: x_return_status := FND_API.G_RET_STS_ERROR;
8348: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8349: p_data => x_msg_data,
8350: p_encoded => fnd_api.g_false);
8351:
8352: -- Disable debug
8353: AHL_DEBUG_PUB.disable_debug;
8354:
8351:
8352: -- Disable debug
8353: AHL_DEBUG_PUB.disable_debug;
8354:
8355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8357: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8358: p_data => x_msg_data,
8359: p_encoded => fnd_api.g_false);
8352: -- Disable debug
8353: AHL_DEBUG_PUB.disable_debug;
8354:
8355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8357: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8358: p_data => x_msg_data,
8359: p_encoded => fnd_api.g_false);
8360:
8355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8357: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8358: p_data => x_msg_data,
8359: p_encoded => fnd_api.g_false);
8360:
8361: -- Disable debug
8362: AHL_DEBUG_PUB.disable_debug;
8363:
8362: AHL_DEBUG_PUB.disable_debug;
8363:
8364: WHEN OTHERS THEN
8365:
8366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8367: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8368: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
8369: p_procedure_name => 'Get_Deferred_Due_Date',
8370: p_error_text => SUBSTR(SQLERRM,1,240));
8370: p_error_text => SUBSTR(SQLERRM,1,240));
8371: END IF;
8372: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8373: p_data => x_msg_data,
8374: p_encoded => fnd_api.g_false);
8375:
8376:
8377: -- Disable debug
8378: AHL_DEBUG_PUB.disable_debug;
8711: CLOSE ahl_unit_deferral_csr;
8712: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DEF_NOTFOUND');
8713: FND_MESSAGE.Set_Token('UE_ID',unit_effectivity_rec.defer_from_ue_id);
8714: FND_MSG_PUB.ADD;
8715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8716: END IF;
8717:
8718: CLOSE ahl_unit_deferral_csr;
8719: */
8870: --l_calc_due_date := NULL;
8871: FND_MESSAGE.Set_Name('AHL','AHL_PUE_INCIDENT_ID_MISSING');
8872: FND_MESSAGE.Set_Token('CS_INC_ID',unit_effectivity_rec.cs_incident_id);
8873: FND_MSG_PUB.ADD;
8874: RAISE FND_API.G_EXC_ERROR;
8875: ELSE
8876:
8877: IF l_repair_time <> 0 AND
8878: unit_effectivity_rec.DEFERRAL_EFFECTIVE_ON IS NOT NULL
9382: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_RELN_NOTFOUND');
9383: FND_MESSAGE.Set_Token('UE_ID',ahl_ue_relns_rec.ue_id);
9384: FND_MESSAGE.Set_Token('RELATED_UE_ID', ahl_ue_relns_rec.related_ue_id);
9385: FND_MSG_PUB.ADD;
9386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9387: END IF;
9388:
9389: l_ue_details_tbl(i).level := ahl_ue_relns_rec.level;
9390: l_ue_details_tbl(i).unit_effectivity_id := ahl_ue_relns_rec.related_ue_id;
9631: FND_MESSAGE.Set_Token('UE_ID',l_ue_rec.unit_effectivity_id);
9632: FND_MSG_PUB.ADD;
9633: -- dbms_output.put_line('unit effectivity not found for ue id' ||l_ue_rec.unit_effectivity_id );
9634: ClOSE ahl_unit_effectivity_csr;
9635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9636: ELSE
9637: -- set UE attributes.
9638: IF (ahl_unplanned_ue_rec.status_code IS NULL) AND (l_exception_flag = TRUE) THEN
9639: IF G_DEBUG = 'Y' THEN
9781: FND_MESSAGE.Set_Token('UE_ID',l_ue_rec.unit_effectivity_id);
9782: FND_MSG_PUB.ADD;
9783: -- dbms_output.put_line('descendent mr not found for ue id');
9784: ClOSE ahl_unit_effectivity_csr;
9785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9786: END IF;
9787: ClOSE ahl_unit_effectivity_csr;
9788: END LOOP; -- decendent_csr
9789:
9806: PROCEDURE Get_Forecasted_Counter_Values(
9807: x_return_status OUT NOCOPY VARCHAR2,
9808: x_msg_data OUT NOCOPY VARCHAR2,
9809: x_msg_count OUT NOCOPY NUMBER,
9810: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
9811: p_csi_item_instance_id IN NUMBER, -- Instance Id
9812: p_forecasted_date IN DATE,
9813: x_counter_values_tbl OUT NOCOPY counter_values_tbl_type) -- Forecasted Counter Vals.
9814: IS
9836: AHL_DEBUG_PUB.Debug('Start API Get_Forecasted_Counter_Values');
9837: END IF;
9838:
9839: -- Initialize message list if p_init_msg_list is set to TRUE
9840: IF FND_API.To_Boolean(p_init_msg_list) THEN
9841: FND_MSG_PUB.Initialize;
9842: END IF;
9843:
9844: -- Initialize Procedure return status to success
9841: FND_MSG_PUB.Initialize;
9842: END IF;
9843:
9844: -- Initialize Procedure return status to success
9845: x_return_status := FND_API.G_RET_STS_SUCCESS;
9846:
9847: -- Enable Debug.
9848: IF G_DEBUG = 'Y' THEN
9849: AHL_DEBUG_PUB.enable_debug;
9863: Validate_item_instance(p_csi_item_instance_id, l_inventory_item_id,
9864: l_inv_master_organization_id);
9865:
9866: IF FND_MSG_PUB.Count_msg > 0 THEN
9867: RAISE FND_API.G_EXC_ERROR;
9868: END IF;
9869:
9870: -- set instance variable.
9871: l_csi_item_instance_id := p_csi_item_instance_id;
9880: l_uc_header_id, G_master_config_id);
9881:
9882: -- Check for errors.
9883: IF FND_MSG_PUB.Count_msg > 0 THEN
9884: RAISE FND_API.G_EXC_ERROR;
9885: END IF;
9886:
9887: -- Build the Configuration tree structure.(G_config_node_tbl).
9888: Build_Config_Tree(l_csi_item_instance_id, G_master_config_id, G_CONFIG_NODE_TBL);
9941: END IF; -- count.
9942: END IF; -- Debug = Y
9943:
9944: IF NOT(l_return_value) THEN
9945: RAISE FND_API.G_EXC_ERROR; /* no forecast available */
9946: ELSE
9947: x_counter_values_tbl := l_due_at_counter_val_tbl;
9948: END IF;
9949:
9950: -- Standard call to get message count and if count is 1, get message info
9951: FND_MSG_PUB.Count_And_Get
9952: ( p_count => x_msg_count,
9953: p_data => x_msg_data,
9954: p_encoded => fnd_api.g_false
9955: );
9956:
9957: IF G_DEBUG = 'Y' THEN
9958: AHL_DEBUG_PUB.Debug('End API Get_Forecasted_Counter_Values');
9959: END IF;
9960:
9961: --
9962: EXCEPTION
9963: WHEN FND_API.G_EXC_ERROR THEN
9964: x_return_status := FND_API.G_RET_STS_ERROR;
9965: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
9966: p_data => x_msg_data,
9967: p_encoded => fnd_api.g_false);
9960:
9961: --
9962: EXCEPTION
9963: WHEN FND_API.G_EXC_ERROR THEN
9964: x_return_status := FND_API.G_RET_STS_ERROR;
9965: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
9966: p_data => x_msg_data,
9967: p_encoded => fnd_api.g_false);
9968:
9963: WHEN FND_API.G_EXC_ERROR THEN
9964: x_return_status := FND_API.G_RET_STS_ERROR;
9965: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
9966: p_data => x_msg_data,
9967: p_encoded => fnd_api.g_false);
9968:
9969: -- Disable debug
9970: AHL_DEBUG_PUB.disable_debug;
9971:
9968:
9969: -- Disable debug
9970: AHL_DEBUG_PUB.disable_debug;
9971:
9972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9974: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
9975: p_data => x_msg_data,
9976: p_encoded => fnd_api.g_false);
9969: -- Disable debug
9970: AHL_DEBUG_PUB.disable_debug;
9971:
9972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9974: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
9975: p_data => x_msg_data,
9976: p_encoded => fnd_api.g_false);
9977:
9972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9974: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
9975: p_data => x_msg_data,
9976: p_encoded => fnd_api.g_false);
9977:
9978: -- Disable debug
9979: AHL_DEBUG_PUB.disable_debug;
9980:
9978: -- Disable debug
9979: AHL_DEBUG_PUB.disable_debug;
9980:
9981: WHEN OTHERS THEN
9982: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9983: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9984: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
9985: p_procedure_name => 'Get_Forecasted_Counter_Values',
9986: p_error_text => SUBSTR(SQLERRM,1,240));
9986: p_error_text => SUBSTR(SQLERRM,1,240));
9987: END IF;
9988: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
9989: p_data => x_msg_data,
9990: p_encoded => fnd_api.g_false);
9991:
9992: -- Disable debug
9993: AHL_DEBUG_PUB.disable_debug;
9994:
10147: -- Added procedure to replace call to ahl_fmp_pvt.get_mr_affected_items for Prev. Maint
10148: -- Called when processing based on MR invoked through concurrent program.
10149: -- Perf fix for bug# 5093064.
10150: PROCEDURE Process_PM_MR_Affected_Items(
10151: p_commit IN VARCHAR2 := FND_API.G_FALSE,
10152: x_msg_count OUT NOCOPY NUMBER,
10153: x_msg_data OUT NOCOPY VARCHAR2,
10154: x_return_status OUT NOCOPY VARCHAR2,
10155: p_mr_header_id IN NUMBER,
10245: IF check_mr_exists%NOTFOUND THEN
10246: CLOSE check_mr_exists;
10247: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INVALID_MR');
10248: FND_MSG_PUB.ADD;
10249: RAISE FND_API.G_EXC_ERROR;
10250: END IF;
10251: CLOSE check_mr_exists;
10252:
10253: IF l_debug = 'Y' THEN
10292: FND_MESSAGE.Set_Token('INV_ID',l_mr_effect.inventory_item_id);
10293: FND_MSG_PUB.ADD;
10294: --DBMS_OUTPUT.put_line('Master org not found for inventory item:' || l_mr_effect.inventory_item_id);
10295: ClOSE get_master_org_id_csr;
10296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10297: END IF;
10298: CLOSE get_master_org_id_csr;
10299:
10300: OPEN get_minmax_inst_csr(l_mr_effect.inventory_item_id,l_master_org_id);
10347:
10348: FOR i IN l_csi_inst_tbl.FIRST..l_csi_inst_tbl.LAST LOOP
10349: -- Call Process Unit for the item instance.
10350: Process_Unit (
10351: p_commit => FND_API.G_TRUE,
10352: p_init_msg_list => FND_API.G_TRUE,
10353: x_msg_count => x_msg_count,
10354: x_msg_data => x_msg_data,
10355: x_return_status => x_return_status,
10348: FOR i IN l_csi_inst_tbl.FIRST..l_csi_inst_tbl.LAST LOOP
10349: -- Call Process Unit for the item instance.
10350: Process_Unit (
10351: p_commit => FND_API.G_TRUE,
10352: p_init_msg_list => FND_API.G_TRUE,
10353: x_msg_count => x_msg_count,
10354: x_msg_data => x_msg_data,
10355: x_return_status => x_return_status,
10356: p_csi_item_instance_id => l_csi_inst_tbl(i),
10355: x_return_status => x_return_status,
10356: p_csi_item_instance_id => l_csi_inst_tbl(i),
10357: p_concurrent_flag => 'N');
10358:
10359: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10360: EXIT;
10361: END IF;
10362:
10363: END LOOP; -- l_csi_inst_tbl.FIRST
10361: END IF;
10362:
10363: END LOOP; -- l_csi_inst_tbl.FIRST
10364: END IF; -- l_csi_inst_tbl.count
10365: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10366: EXIT;
10367: END IF;
10368:
10369: EXIT WHEN get_inst%NOTFOUND;
10434: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
10435: END IF;
10436: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
10437: fnd_file.new_line(FND_FILE.LOG,1);
10438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10439:
10440: ELSE
10441: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id || ' launched to process instances between:' || l_start_csi_id || ' and ' || l_end_csi_id);
10442:
10510: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
10511: END IF;
10512: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
10513: fnd_file.new_line(FND_FILE.LOG,1);
10514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10515:
10516: ELSE
10517: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id || ' launched to process instances between:' || p_csi_min_id || ' and ' || p_csi_min_id);
10518:
10590: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
10591: END IF;
10592: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
10593: fnd_file.new_line(FND_FILE.LOG,1);
10594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10595:
10596: ELSE
10597: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id ||
10598: ' launched to process instances between:' || l_begin_count_csi_id || ' and ' ||
10616: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
10617: END IF;
10618: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
10619: fnd_file.new_line(FND_FILE.LOG,1);
10620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10621:
10622: ELSE
10623: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id ||
10624: ' launched to process instances between:' || l_begin_count_csi_id || ' and ' ||
10743: --FOR inst_rec IN get_inst(p_mr_header_id, p_start_instance_id, p_end_instance_id) LOOP
10744: FOR i IN l_csi_inst_tbl.FIRST..l_csi_inst_tbl.LAST LOOP
10745: -- Call Process Unit for the item instance.
10746: Process_Unit (
10747: p_commit => FND_API.G_TRUE,
10748: p_init_msg_list => FND_API.G_TRUE,
10749: x_msg_count => l_msg_count,
10750: x_msg_data => l_msg_data,
10751: x_return_status => l_return_status,
10744: FOR i IN l_csi_inst_tbl.FIRST..l_csi_inst_tbl.LAST LOOP
10745: -- Call Process Unit for the item instance.
10746: Process_Unit (
10747: p_commit => FND_API.G_TRUE,
10748: p_init_msg_list => FND_API.G_TRUE,
10749: x_msg_count => l_msg_count,
10750: x_msg_data => l_msg_data,
10751: x_return_status => l_return_status,
10752: p_csi_item_instance_id => l_csi_inst_tbl(i),
10753: --inst_rec.instance_id,
10754: p_concurrent_flag => 'Y');
10755:
10756: l_msg_count := FND_MSG_PUB.Count_Msg;
10757: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
10758: THEN
10759: retcode := 2; -- error based only on return status
10760: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
10761: THEN
10756: l_msg_count := FND_MSG_PUB.Count_Msg;
10757: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
10758: THEN
10759: retcode := 2; -- error based only on return status
10760: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
10761: THEN
10762: retcode := 1; -- warning based on return status + msg count
10763: END IF;
10764:
10821: AHL_DEBUG_PUB.debug('Input p_num_of_workers:' || p_num_of_workers);
10822: END IF;
10823:
10824: -- initialize return status.
10825: x_return_status := FND_API.G_RET_STS_SUCCESS;
10826:
10827: IF (p_concurrent_flag = 'Y') THEN
10828: l_conc_req_id := fnd_global.conc_request_id;
10829: ELSE
10845: p_process_option => p_process_option,
10846: errbuf => x_msg_data,
10847: x_return_status => x_return_status);
10848:
10849: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10850: RETURN;
10851: END IF;
10852:
10853: -- launch worker programs.
10860: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
10861: END IF;
10862: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
10863: fnd_file.new_line(FND_FILE.LOG,1);
10864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10865:
10866: ELSE
10867: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id );
10868: IF G_debug = 'Y' THEN
10878: ELSE
10879:
10880: LOOP
10881: -- initialize return status.
10882: x_return_status := FND_API.G_RET_STS_SUCCESS;
10883:
10884: Get_Next_BUE_Row(p_parent_conc_pgm_id => l_conc_req_id,
10885: p_conc_child_req_id => l_conc_req_id,
10886: x_return_status => x_return_status,
10886: x_return_status => x_return_status,
10887: errbuf => x_msg_data,
10888: x_item_instance_id => l_instance_id);
10889:
10890: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10891: EXIT;
10892: END IF;
10893:
10894: EXIT WHEN (l_instance_id IS NULL);
10899:
10900: -- Call Process Unit for the item instance.
10901: Process_Unit (
10902: p_commit => p_commit_flag,
10903: p_init_msg_list => FND_API.G_TRUE,
10904: x_msg_count => x_msg_count,
10905: x_msg_data => x_msg_data,
10906: x_return_status => x_return_status,
10907: p_csi_item_instance_id => l_instance_id,
10906: x_return_status => x_return_status,
10907: p_csi_item_instance_id => l_instance_id,
10908: p_concurrent_flag => p_concurrent_flag);
10909:
10910: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) AND (p_commit_flag = FND_API.G_FALSE) THEN
10911: EXIT;
10912: END IF;
10913:
10914: END LOOP;
10958:
10959: -- AHL processing.
10960: LOOP
10961: -- initialize return status.
10962: l_return_status := FND_API.G_RET_STS_SUCCESS;
10963:
10964: G_DEBUG_LINE_NUM := 10;
10965:
10966: -- get next unit to process.
10969: x_return_status => l_return_status,
10970: errbuf => errbuf,
10971: x_item_instance_id => l_instance_id);
10972:
10973: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10974: EXIT;
10975: END IF;
10976:
10977: EXIT WHEN (l_instance_id IS NULL);
10983: G_DEBUG_LINE_NUM := 20;
10984:
10985: -- Call Process Unit for the item instance.
10986: Process_Unit (
10987: p_commit => FND_API.G_TRUE,
10988: p_init_msg_list => FND_API.G_TRUE,
10989: x_msg_count => l_msg_count,
10990: x_msg_data => l_msg_data,
10991: x_return_status => l_return_status,
10984:
10985: -- Call Process Unit for the item instance.
10986: Process_Unit (
10987: p_commit => FND_API.G_TRUE,
10988: p_init_msg_list => FND_API.G_TRUE,
10989: x_msg_count => l_msg_count,
10990: x_msg_data => l_msg_data,
10991: x_return_status => l_return_status,
10992: p_csi_item_instance_id => l_instance_id,
10994:
10995: fnd_file.put_line(FND_FILE.LOG,'End time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
10996:
10997: l_msg_count := FND_MSG_PUB.Count_Msg;
10998: IF (retcode <> 2 AND l_return_status <> FND_API.G_RET_STS_SUCCESS)
10999: THEN
11000: retcode := 2; -- error based only on return status
11001: ELSIF (retcode = 0 AND l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
11002: THEN
10997: l_msg_count := FND_MSG_PUB.Count_Msg;
10998: IF (retcode <> 2 AND l_return_status <> FND_API.G_RET_STS_SUCCESS)
10999: THEN
11000: retcode := 2; -- error based only on return status
11001: ELSIF (retcode = 0 AND l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
11002: THEN
11003: retcode := 1; -- warning based on return status + msg count
11004: END IF;
11005:
11019: END IF;
11020:
11021: --
11022: EXCEPTION
11023: WHEN FND_API.G_EXC_ERROR THEN
11024: retcode := 2;
11025: errbuf := 'Process_Unit_Range:EXC:' || G_DEBUG_LINE_NUM || ':' || substrb(sqlerrm,1,60);
11026:
11027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11023: WHEN FND_API.G_EXC_ERROR THEN
11024: retcode := 2;
11025: errbuf := 'Process_Unit_Range:EXC:' || G_DEBUG_LINE_NUM || ':' || substrb(sqlerrm,1,60);
11026:
11027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11028: retcode := 2;
11029: errbuf := 'Process_Unit_Range:UNEXP:' || G_DEBUG_LINE_NUM || ':' || substrb(sqlerrm,1,60);
11030:
11031: WHEN OTHERS THEN
11067: retcode := 0;
11068:
11069: -- After commit call UMP BUE api to build UEs.
11070: AHL_UMP_PROCESSUNIT_PVT.Process_MRAffected_Units (
11071: p_commit => FND_API.G_TRUE,
11072: x_msg_count => l_msg_count,
11073: x_msg_data => l_msg_data,
11074: x_return_status => l_return_status, -- ignore status returned by this api.
11075: p_old_mr_header_id => p_old_mr_header_id,
11077: p_concurrent_flag => 'Y',
11078: p_num_of_workers => 5);
11079:
11080: l_msg_count := FND_MSG_PUB.Count_Msg;
11081: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
11082: THEN
11083: retcode := 2; -- error based only on return status
11084: log_error_messages;
11085: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
11081: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
11082: THEN
11083: retcode := 2; -- error based only on return status
11084: log_error_messages;
11085: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
11086: THEN
11087: retcode := 1; -- warning based on return status + msg count
11088: log_error_messages;
11089: END IF;
11093: END IF;
11094:
11095: --
11096: EXCEPTION
11097: WHEN FND_API.G_EXC_ERROR THEN
11098: retcode := 2;
11099: errbuf := 'Process_Unit_Range:MR:EXC:' || G_DEBUG_LINE_NUM || ':' || substrb(sqlerrm,1,60);
11100:
11101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11097: WHEN FND_API.G_EXC_ERROR THEN
11098: retcode := 2;
11099: errbuf := 'Process_Unit_Range:MR:EXC:' || G_DEBUG_LINE_NUM || ':' || substrb(sqlerrm,1,60);
11100:
11101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11102: retcode := 2;
11103: errbuf := 'Process_Unit_Range:MR:UNEXP:' || G_DEBUG_LINE_NUM || ':' || substrb(sqlerrm,1,60);
11104:
11105: WHEN OTHERS THEN
11333: AHL_DEBUG_PUB.debug('Concurrent flag:' || p_concurrent_flag);
11334: END IF;
11335:
11336: -- initialize return status.
11337: x_return_status := FND_API.G_RET_STS_SUCCESS;
11338:
11339: IF (p_process_option = 'AHL_BUE_ALL_COMPONENTS') THEN
11340: l_opt_uc := 2;
11341: ELSIF (p_process_option = 'AHL_BUE_ALL_UNITS') THEN
11590: ROLLBACK;
11591: l_status := SQLCODE;
11592: errbuf := 'Get_Next_BUE_Row:' || substrb(sqlerrm,1,60);
11593: l_instance_id := NULL;
11594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11595: IF (bue_lock_row%ISOPEN) THEN
11596: CLOSE bue_lock_row;
11597: END IF;
11598: END;
11614: END IF;
11615:
11616: EXCEPTION
11617: WHEN OTHERS THEN
11618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11619: errbuf := 'AHL_UMP_ProcessUnit_Pvt.Process.Get_Next_BUE_Row:' || SUBSTR(SQLERRM,1,240);
11620: x_item_instance_id := NULL;
11621:
11622: END Get_Next_BUE_Row;
11992: AHL_DEBUG_PUB.debug('Input Conc Request ID:' || p_concurrent_flag);
11993: END IF;
11994:
11995: -- initialize return status.
11996: x_return_status := FND_API.G_RET_STS_SUCCESS;
11997:
11998: -- get instances applicable to the MR.
11999: -- this API will insert the applicable MRs into temp table ahl_mr_instances_temp
12000: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS (
11998: -- get instances applicable to the MR.
11999: -- this API will insert the applicable MRs into temp table ahl_mr_instances_temp
12000: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS (
12001: p_api_version => 1.0,
12002: p_init_msg_list => FND_API.G_TRUE,
12003: x_return_status => x_return_status,
12004: x_msg_count => l_msg_count,
12005: x_msg_data => l_msg_data,
12006: p_mr_header_id => p_mr_header_id,
12007: p_top_node_flag => 'N',
12008: p_unique_inst_flag => 'Y',
12009: x_mr_item_inst_tbl => l_mr_item_instances_tbl );
12010:
12011: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12012: ROLLBACK;
12013: RETURN;
12014: END IF;
12015: