[Home] [Help]
75: X_Return_Status VARCHAR2(1);
76: X_Msg_Count NUMBER;
77: X_Msg_Data VARCHAR2(2000);
78:
79: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
80: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
81: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
82:
83: BEGIN
76: X_Msg_Count NUMBER;
77: X_Msg_Data VARCHAR2(2000);
78:
79: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
80: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
81: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
82:
83: BEGIN
84: -- Alter session
77: X_Msg_Data VARCHAR2(2000);
78:
79: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
80: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
81: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
82:
83: BEGIN
84: -- Alter session
85: EXECUTE IMMEDIATE 'ALTER SESSION ENABLE PARALLEL DML';
129: Fetch c_Get_Message INTO G_NO_LEAD_TIME_MSG;
130: Close c_Get_Message;
131:
132: -- Initialize API return status to SUCCESS
133: x_return_status := FND_API.G_RET_STS_SUCCESS;
134:
135:
136: -- Standard call to get message count and if count is 1, get message info.
137: FND_MSG_PUB.Count_And_Get
139: p_data => x_msg_data
140: );
141:
142: EXCEPTION
143: WHEN FND_API.G_EXC_ERROR THEN
144: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
145: P_API_NAME => L_API_NAME
146: ,P_PKG_NAME => G_PKG_NAME
147: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
149: ,P_ROLLBACK_FLAG => l_Rollback
150: ,X_MSG_COUNT => X_MSG_COUNT
151: ,X_MSG_DATA => X_MSG_DATA
152: ,X_RETURN_STATUS => X_RETURN_STATUS);
153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
154: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
155: P_API_NAME => L_API_NAME
156: ,P_PKG_NAME => G_PKG_NAME
157: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
234: X_Return_Status VARCHAR2(1);
235: X_Msg_Count NUMBER;
236: X_Msg_Data VARCHAR2(2000);
237:
238: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
239: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
240: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
241:
242: l_get_app_info boolean;
235: X_Msg_Count NUMBER;
236: X_Msg_Data VARCHAR2(2000);
237:
238: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
239: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
240: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
241:
242: l_get_app_info boolean;
243: l_status varchar2(1);
236: X_Msg_Data VARCHAR2(2000);
237:
238: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
239: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
240: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
241:
242: l_get_app_info boolean;
243: l_status varchar2(1);
244: l_industry varchar2(1);
277: SAVEPOINT GENERATE_RECOMMENDATIONS_PVT;
278:
279: if p_api_version_number <> 2.0 then
280: -- Standard call to check for call compatibility.
281: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
282: p_api_version_number,
283: l_api_name,
284: G_PKG_NAME) THEN
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
282: p_api_version_number,
283: l_api_name,
284: G_PKG_NAME) THEN
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: END IF;
287: end if;
288:
289:
287: end if;
288:
289:
290: -- Initialize message list if p_init_msg_list is set to TRUE.
291: IF FND_API.to_Boolean( l_init_msg_list )
292: THEN
293: FND_MSG_PUB.initialize;
294: END IF;
295:
294: END IF;
295:
296:
297: -- Initialize API return status to SUCCESS
298: x_return_status := FND_API.G_RET_STS_SUCCESS;
299:
300: --
301: -- API body
302: --
313: -- Generate ASL
314: -- If l_usg_count > 0 Then
315: Calculate_Forecast (
316: P_Api_Version_Number => 1.0,
317: P_Init_Msg_List => FND_API.G_FALSE,
318: P_Commit => FND_API.G_TRUE,
319: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
320: P_Level_Id => P_Level_id,
321: P_reason_code => 'RECM',
314: -- If l_usg_count > 0 Then
315: Calculate_Forecast (
316: P_Api_Version_Number => 1.0,
317: P_Init_Msg_List => FND_API.G_FALSE,
318: P_Commit => FND_API.G_TRUE,
319: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
320: P_Level_Id => P_Level_id,
321: P_reason_code => 'RECM',
322: X_Return_Status => X_Return_Status,
315: Calculate_Forecast (
316: P_Api_Version_Number => 1.0,
317: P_Init_Msg_List => FND_API.G_FALSE,
318: P_Commit => FND_API.G_TRUE,
319: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
320: P_Level_Id => P_Level_id,
321: P_reason_code => 'RECM',
322: X_Return_Status => X_Return_Status,
323: X_Msg_Count => X_Msg_Count,
321: P_reason_code => 'RECM',
322: X_Return_Status => X_Return_Status,
323: X_Msg_Count => X_Msg_Count,
324: X_Msg_Data => X_Msg_Data );
325: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
326: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
327: End If;
328: -- End If;
329: fnd_message.set_name('CSP','CSP_ASL_MSG');
322: X_Return_Status => X_Return_Status,
323: X_Msg_Count => X_Msg_Count,
324: X_Msg_Data => X_Msg_Data );
325: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
326: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
327: End If;
328: -- End If;
329: fnd_message.set_name('CSP','CSP_ASL_MSG');
330: fnd_message.set_token('VALUE','calculate_forecast');
334: -- Re-establish Savepoint
335: SAVEPOINT GENERATE_RECOMMENDATIONS_PVT;
336: Calculate_New_Product_Planning (
337: P_Api_Version_Number => 1.0,
338: P_Init_Msg_List => FND_API.G_FALSE,
339: P_Commit => FND_API.G_TRUE,
340: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
341: P_Level_Id => P_Level_id,
342: X_Return_Status => X_Return_Status,
335: SAVEPOINT GENERATE_RECOMMENDATIONS_PVT;
336: Calculate_New_Product_Planning (
337: P_Api_Version_Number => 1.0,
338: P_Init_Msg_List => FND_API.G_FALSE,
339: P_Commit => FND_API.G_TRUE,
340: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
341: P_Level_Id => P_Level_id,
342: X_Return_Status => X_Return_Status,
343: X_Msg_Count => X_Msg_Count,
336: Calculate_New_Product_Planning (
337: P_Api_Version_Number => 1.0,
338: P_Init_Msg_List => FND_API.G_FALSE,
339: P_Commit => FND_API.G_TRUE,
340: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
341: P_Level_Id => P_Level_id,
342: X_Return_Status => X_Return_Status,
343: X_Msg_Count => X_Msg_Count,
344: X_Msg_Data => X_Msg_Data );
341: P_Level_Id => P_Level_id,
342: X_Return_Status => X_Return_Status,
343: X_Msg_Count => X_Msg_Count,
344: X_Msg_Data => X_Msg_Data );
345: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
346: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
347: End If;
348: fnd_message.set_name('CSP','CSP_ASL_MSG');
349: fnd_message.set_token('VALUE','calculate_new_product_planning');
342: X_Return_Status => X_Return_Status,
343: X_Msg_Count => X_Msg_Count,
344: X_Msg_Data => X_Msg_Data );
345: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
346: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
347: End If;
348: fnd_message.set_name('CSP','CSP_ASL_MSG');
349: fnd_message.set_token('VALUE','calculate_new_product_planning');
350: fnd_msg_pub.add;
354: -- Re-establish Savepoint
355: SAVEPOINT GENERATE_RECOMMENDATIONS_PVT;
356: Calculate_Product_Norm (
357: P_Api_Version_Number => 1.0,
358: P_Init_Msg_List => FND_API.G_FALSE,
359: P_Commit => FND_API.G_TRUE,
360: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
361: P_Level_Id => P_Level_id,
362: X_Return_Status => X_Return_Status,
355: SAVEPOINT GENERATE_RECOMMENDATIONS_PVT;
356: Calculate_Product_Norm (
357: P_Api_Version_Number => 1.0,
358: P_Init_Msg_List => FND_API.G_FALSE,
359: P_Commit => FND_API.G_TRUE,
360: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
361: P_Level_Id => P_Level_id,
362: X_Return_Status => X_Return_Status,
363: X_Msg_Count => X_Msg_Count,
356: Calculate_Product_Norm (
357: P_Api_Version_Number => 1.0,
358: P_Init_Msg_List => FND_API.G_FALSE,
359: P_Commit => FND_API.G_TRUE,
360: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
361: P_Level_Id => P_Level_id,
362: X_Return_Status => X_Return_Status,
363: X_Msg_Count => X_Msg_Count,
364: X_Msg_Data => X_Msg_Data );
361: P_Level_Id => P_Level_id,
362: X_Return_Status => X_Return_Status,
363: X_Msg_Count => X_Msg_Count,
364: X_Msg_Data => X_Msg_Data );
365: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
366: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
367: End If;
368: End If;
369: fnd_message.set_name('CSP','CSP_ASL_MSG');
362: X_Return_Status => X_Return_Status,
363: X_Msg_Count => X_Msg_Count,
364: X_Msg_Data => X_Msg_Data );
365: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
366: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
367: End If;
368: End If;
369: fnd_message.set_name('CSP','CSP_ASL_MSG');
370: fnd_message.set_token('VALUE','calculate_product_norm');
375: -- Re-establish Savepoint
376: SAVEPOINT GENERATE_RECOMMENDATIONS_PVT;
377: Calculate_Territory_Norm (
378: P_Api_Version_Number => 1.0,
379: P_Init_Msg_List => FND_API.G_FALSE,
380: P_Commit => FND_API.G_TRUE,
381: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
382: P_Level_Id => P_Level_id,
383: X_Return_Status => X_Return_Status,
376: SAVEPOINT GENERATE_RECOMMENDATIONS_PVT;
377: Calculate_Territory_Norm (
378: P_Api_Version_Number => 1.0,
379: P_Init_Msg_List => FND_API.G_FALSE,
380: P_Commit => FND_API.G_TRUE,
381: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
382: P_Level_Id => P_Level_id,
383: X_Return_Status => X_Return_Status,
384: X_Msg_Count => X_Msg_Count,
377: Calculate_Territory_Norm (
378: P_Api_Version_Number => 1.0,
379: P_Init_Msg_List => FND_API.G_FALSE,
380: P_Commit => FND_API.G_TRUE,
381: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
382: P_Level_Id => P_Level_id,
383: X_Return_Status => X_Return_Status,
384: X_Msg_Count => X_Msg_Count,
385: X_Msg_Data => X_Msg_Data );
382: P_Level_Id => P_Level_id,
383: X_Return_Status => X_Return_Status,
384: X_Msg_Count => X_Msg_Count,
385: X_Msg_Data => X_Msg_Data );
386: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
387: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
388: End If;
389: End If;
390: fnd_message.set_name('CSP','CSP_ASL_MSG');
383: X_Return_Status => X_Return_Status,
384: X_Msg_Count => X_Msg_Count,
385: X_Msg_Data => X_Msg_Data );
386: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
387: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
388: End If;
389: End If;
390: fnd_message.set_name('CSP','CSP_ASL_MSG');
391: fnd_message.set_token('VALUE','calculate_territory_norm');
718: SAVEPOINT GENERATE_RECOMMENDATIONS_PVT;
719: -- Calculate Tracking Signal for Subinventories
720: Calculate_Forecast (
721: P_Api_Version_Number => 1.0,
722: P_Init_Msg_List => FND_API.G_FALSE,
723: P_Commit => FND_API.G_TRUE,
724: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
725: P_Level_Id => P_Level_id,
726: P_reason_code => 'TS',
719: -- Calculate Tracking Signal for Subinventories
720: Calculate_Forecast (
721: P_Api_Version_Number => 1.0,
722: P_Init_Msg_List => FND_API.G_FALSE,
723: P_Commit => FND_API.G_TRUE,
724: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
725: P_Level_Id => P_Level_id,
726: P_reason_code => 'TS',
727: X_Return_Status => X_Return_Status,
720: Calculate_Forecast (
721: P_Api_Version_Number => 1.0,
722: P_Init_Msg_List => FND_API.G_FALSE,
723: P_Commit => FND_API.G_TRUE,
724: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
725: P_Level_Id => P_Level_id,
726: P_reason_code => 'TS',
727: X_Return_Status => X_Return_Status,
728: X_Msg_Count => X_Msg_Count,
726: P_reason_code => 'TS',
727: X_Return_Status => X_Return_Status,
728: X_Msg_Count => X_Msg_Count,
729: X_Msg_Data => X_Msg_Data );
730: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
731: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
732: End If;
733:
734: -- Re-establish Savepoint
727: X_Return_Status => X_Return_Status,
728: X_Msg_Count => X_Msg_Count,
729: X_Msg_Data => X_Msg_Data );
730: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
731: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
732: End If;
733:
734: -- Re-establish Savepoint
735: SAVEPOINT GENERATE_RECOMMENDATIONS_PVT;
818: SAVEPOINT GENERATE_RECOMMENDATIONS_PVT;
819: if p_api_version_number <> 2.0 then
820: Apply_Business_Rules (
821: P_Api_Version_Number => 1.0,
822: P_Init_Msg_List => FND_API.G_FALSE,
823: P_Commit => FND_API.G_TRUE,
824: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
825: X_Return_Status => x_return_status,
826: X_Msg_Count => x_msg_count,
819: if p_api_version_number <> 2.0 then
820: Apply_Business_Rules (
821: P_Api_Version_Number => 1.0,
822: P_Init_Msg_List => FND_API.G_FALSE,
823: P_Commit => FND_API.G_TRUE,
824: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
825: X_Return_Status => x_return_status,
826: X_Msg_Count => x_msg_count,
827: X_Msg_Data => x_msg_data);
820: Apply_Business_Rules (
821: P_Api_Version_Number => 1.0,
822: P_Init_Msg_List => FND_API.G_FALSE,
823: P_Commit => FND_API.G_TRUE,
824: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
825: X_Return_Status => x_return_status,
826: X_Msg_Count => x_msg_count,
827: X_Msg_Data => x_msg_data);
828: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
824: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
825: X_Return_Status => x_return_status,
826: X_Msg_Count => x_msg_count,
827: X_Msg_Data => x_msg_data);
828: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
829: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
830: End If;
831:
832: fnd_message.set_name('CSP','CSP_ASL_MSG');
825: X_Return_Status => x_return_status,
826: X_Msg_Count => x_msg_count,
827: X_Msg_Data => x_msg_data);
828: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
829: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
830: End If;
831:
832: fnd_message.set_name('CSP','CSP_ASL_MSG');
833: fnd_message.set_token('VALUE','Apply Business Rules');
838: -- End of API body
839: --
840:
841: -- Standard check for p_commit
842: IF FND_API.to_Boolean( l_commit )
843: THEN
844: COMMIT WORK;
845: END IF;
846:
853: p_data => x_msg_data
854: );
855: retcode := 0;
856: EXCEPTION
857: WHEN FND_API.G_EXC_ERROR THEN
858: Add_Err_Msg;
859: retcode := 2;
860: errbuf := X_Msg_Data;
861: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
866: ,P_ROLLBACK_FLAG => l_Rollback
867: ,X_MSG_COUNT => X_MSG_COUNT
868: ,X_MSG_DATA => X_MSG_DATA
869: ,X_RETURN_STATUS => X_RETURN_STATUS);
870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
871: Add_Err_Msg;
872: retcode := 2;
873: errbuf := X_Msg_Data;
874: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
934: -- Standard Start of API savepoint
935: SAVEPOINT PURGE_DATA_PVT;
936:
937: -- Standard call to check for call compatibility.
938: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
939: p_api_version_number,
940: l_api_name,
941: G_PKG_NAME)
942: THEN
939: p_api_version_number,
940: l_api_name,
941: G_PKG_NAME)
942: THEN
943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
944: END IF;
945:
946:
947: -- Initialize message list if p_init_msg_list is set to TRUE.
944: END IF;
945:
946:
947: -- Initialize message list if p_init_msg_list is set to TRUE.
948: IF FND_API.to_Boolean( p_init_msg_list )
949: THEN
950: FND_MSG_PUB.initialize;
951: END IF;
952:
951: END IF;
952:
953:
954: -- Initialize API return status to SUCCESS
955: x_return_status := FND_API.G_RET_STS_SUCCESS;
956:
957: --
958: -- API body
959: --
971: EXECUTE IMMEDIATE 'TRUNCATE TABLE '||l_oracle_schema||'.CSP_SUPPLY_CHAIN';
972:
973:
974:
975: IF FND_API.to_Boolean( p_commit )
976: THEN
977: COMMIT WORK;
978: END IF;
979:
981: -- End of API body
982: --
983:
984: -- Standard check for p_commit
985: IF FND_API.to_Boolean( p_commit )
986: THEN
987: COMMIT WORK;
988: END IF;
989:
995: p_data => x_msg_data
996: );
997:
998: EXCEPTION
999: WHEN FND_API.G_EXC_ERROR THEN
1000: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1001: P_API_NAME => L_API_NAME
1002: ,P_PKG_NAME => G_PKG_NAME
1003: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1006: ,X_MSG_COUNT => X_MSG_COUNT
1007: ,X_MSG_DATA => X_MSG_DATA
1008: ,X_RETURN_STATUS => X_RETURN_STATUS);
1009:
1010: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1011: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1012: P_API_NAME => L_API_NAME
1013: ,P_PKG_NAME => G_PKG_NAME
1014: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1053: X_Return_Status VARCHAR2(1);
1054: X_Msg_Count NUMBER;
1055: X_Msg_Data VARCHAR2(2000);
1056:
1057: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
1058: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
1059: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1060:
1061: l_get_app_info boolean;
1054: X_Msg_Count NUMBER;
1055: X_Msg_Data VARCHAR2(2000);
1056:
1057: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
1058: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
1059: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1060:
1061: l_get_app_info boolean;
1062: l_status varchar2(1);
1055: X_Msg_Data VARCHAR2(2000);
1056:
1057: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
1058: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
1059: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1060:
1061: l_get_app_info boolean;
1062: l_status varchar2(1);
1063: l_industry varchar2(1);
1065: BEGIN
1066: -- Alter session
1067: EXECUTE IMMEDIATE 'ALTER SESSION ENABLE PARALLEL DML';
1068: -- Standard call to check for call compatibility.
1069: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1070: p_api_version_number,
1071: l_api_name,
1072: G_PKG_NAME)
1073: THEN
1070: p_api_version_number,
1071: l_api_name,
1072: G_PKG_NAME)
1073: THEN
1074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1075: END IF;
1076:
1077:
1078: -- Initialize message list if p_init_msg_list is set to TRUE.
1075: END IF;
1076:
1077:
1078: -- Initialize message list if p_init_msg_list is set to TRUE.
1079: IF FND_API.to_Boolean( l_init_msg_list )
1080: THEN
1081: FND_MSG_PUB.initialize;
1082: END IF;
1083:
1083:
1084:
1085:
1086: -- Initialize API return status to SUCCESS
1087: x_return_status := FND_API.G_RET_STS_SUCCESS;
1088:
1089: --
1090: -- API body
1091: --
1104: When others then
1105: G_LAST_RUN_DATE := NULL;
1106: End;
1107:
1108: G_LAST_RUN_DATE := NVL(G_LAST_RUN_DATE,FND_API.G_MISS_DATE);
1109: If G_LAST_RUN_DATE < trunc(sysdate) - 1 Then
1110: l_get_app_info := fnd_installation.get_app_info('CSP',l_status,l_industry, l_oracle_schema);
1111: -- Delete from CSP_SUPPLY_CHAIN
1112: EXECUTE IMMEDIATE 'TRUNCATE TABLE '||l_oracle_schema||'.CSP_SUPPLY_CHAIN';
1114: SAVEPOINT CREATE_USAGE_PVT;
1115: -- Build Supply Chain
1116: Create_Supply_Chain (
1117: P_Api_Version_Number => 1.0,
1118: P_Init_Msg_List => FND_API.G_FALSE,
1119: P_Commit => FND_API.G_TRUE,
1120: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
1121: X_Return_Status => X_Return_Status,
1122: X_Msg_Count => X_Msg_Count,
1115: -- Build Supply Chain
1116: Create_Supply_Chain (
1117: P_Api_Version_Number => 1.0,
1118: P_Init_Msg_List => FND_API.G_FALSE,
1119: P_Commit => FND_API.G_TRUE,
1120: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
1121: X_Return_Status => X_Return_Status,
1122: X_Msg_Count => X_Msg_Count,
1123: X_Msg_Data => X_Msg_Data );
1116: Create_Supply_Chain (
1117: P_Api_Version_Number => 1.0,
1118: P_Init_Msg_List => FND_API.G_FALSE,
1119: P_Commit => FND_API.G_TRUE,
1120: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
1121: X_Return_Status => X_Return_Status,
1122: X_Msg_Count => X_Msg_Count,
1123: X_Msg_Data => X_Msg_Data );
1124: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
1120: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
1121: X_Return_Status => X_Return_Status,
1122: X_Msg_Count => X_Msg_Count,
1123: X_Msg_Data => X_Msg_Data );
1124: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
1125: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1126: End If;
1127:
1128: -- Re-establish Savepoint
1121: X_Return_Status => X_Return_Status,
1122: X_Msg_Count => X_Msg_Count,
1123: X_Msg_Data => X_Msg_Data );
1124: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
1125: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1126: End If;
1127:
1128: -- Re-establish Savepoint
1129: SAVEPOINT CREATE_USAGE_PVT;
1130:
1131: --- Get Usage
1132: Create_Usage_History (
1133: P_Api_Version_Number => 1.0,
1134: P_Init_Msg_List => FND_API.G_FALSE,
1135: P_Commit => FND_API.G_TRUE,
1136: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1137: X_Return_Status => X_Return_Status,
1138: X_Msg_Count => X_Msg_Count,
1131: --- Get Usage
1132: Create_Usage_History (
1133: P_Api_Version_Number => 1.0,
1134: P_Init_Msg_List => FND_API.G_FALSE,
1135: P_Commit => FND_API.G_TRUE,
1136: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1137: X_Return_Status => X_Return_Status,
1138: X_Msg_Count => X_Msg_Count,
1139: X_Msg_Data => X_Msg_Data
1132: Create_Usage_History (
1133: P_Api_Version_Number => 1.0,
1134: P_Init_Msg_List => FND_API.G_FALSE,
1135: P_Commit => FND_API.G_TRUE,
1136: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1137: X_Return_Status => X_Return_Status,
1138: X_Msg_Count => X_Msg_Count,
1139: X_Msg_Data => X_Msg_Data
1140: );
1137: X_Return_Status => X_Return_Status,
1138: X_Msg_Count => X_Msg_Count,
1139: X_Msg_Data => X_Msg_Data
1140: );
1141: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
1142: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1143: End If;
1144: -- Re-establish Savepoint
1145: SAVEPOINT CREATE_USAGE_PVT;
1138: X_Msg_Count => X_Msg_Count,
1139: X_Msg_Data => X_Msg_Data
1140: );
1141: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
1142: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1143: End If;
1144: -- Re-establish Savepoint
1145: SAVEPOINT CREATE_USAGE_PVT;
1146: if not fnd_profile.save('CSP_USAGE_RUN_DATE',trunc(sysdate) -1,'SITE') Then
1143: End If;
1144: -- Re-establish Savepoint
1145: SAVEPOINT CREATE_USAGE_PVT;
1146: if not fnd_profile.save('CSP_USAGE_RUN_DATE',trunc(sysdate) -1,'SITE') Then
1147: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1148: End If;
1149: COMMIT;
1150: -- Re-establish Savepoint
1151: SAVEPOINT CREATE_USAGE_PVT;
1167: p_data => x_msg_data
1168: );
1169: retcode := 0;
1170: EXCEPTION
1171: WHEN FND_API.G_EXC_ERROR THEN
1172: retcode := 2;
1173: errbuf := X_Msg_Data;
1174: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1175: P_API_NAME => L_API_NAME
1180: ,X_MSG_COUNT => X_MSG_COUNT
1181: ,X_MSG_DATA => X_MSG_DATA
1182: ,X_RETURN_STATUS => X_RETURN_STATUS);
1183: Add_Err_Msg;
1184: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1185: retcode := 2;
1186: errbuf := X_Msg_Data;
1187: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1188: P_API_NAME => L_API_NAME
1414: -- Standard Start of API savepoint
1415: SAVEPOINT CALCULATE_FORECAST_PVT;
1416:
1417: -- Standard call to check for call compatibility.
1418: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1419: p_api_version_number,
1420: l_api_name,
1421: G_PKG_NAME)
1422: THEN
1419: p_api_version_number,
1420: l_api_name,
1421: G_PKG_NAME)
1422: THEN
1423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1424: END IF;
1425:
1426:
1427: -- Initialize message list if p_init_msg_list is set to TRUE.
1424: END IF;
1425:
1426:
1427: -- Initialize message list if p_init_msg_list is set to TRUE.
1428: IF FND_API.to_Boolean( p_init_msg_list )
1429: THEN
1430: FND_MSG_PUB.initialize;
1431: END IF;
1432:
1431: END IF;
1432:
1433:
1434: -- Initialize API return status to SUCCESS
1435: x_return_status := FND_API.G_RET_STS_SUCCESS;
1436:
1437: --
1438: -- API body
1439: --
1613: -- End of API body
1614: --
1615:
1616: -- Standard check for p_commit
1617: IF FND_API.to_Boolean( p_commit )
1618: THEN
1619: COMMIT WORK;
1620: END IF;
1621:
1626: p_data => x_msg_data
1627: );
1628:
1629: EXCEPTION
1630: WHEN FND_API.G_EXC_ERROR THEN
1631: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1632: P_API_NAME => L_API_NAME
1633: ,P_PKG_NAME => G_PKG_NAME
1634: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1637: ,X_MSG_COUNT => X_MSG_COUNT
1638: ,X_MSG_DATA => X_MSG_DATA
1639: ,X_RETURN_STATUS => X_RETURN_STATUS);
1640:
1641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1642: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1643: P_API_NAME => L_API_NAME
1644: ,P_PKG_NAME => G_PKG_NAME
1645: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1690: -- Standard Start of API savepoint
1691: SAVEPOINT CALCULATE_PNORM_PVT;
1692:
1693: -- Standard call to check for call compatibility.
1694: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1695: p_api_version_number,
1696: l_api_name,
1697: G_PKG_NAME)
1698: THEN
1695: p_api_version_number,
1696: l_api_name,
1697: G_PKG_NAME)
1698: THEN
1699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1700: END IF;
1701:
1702:
1703: -- Initialize message list if p_init_msg_list is set to TRUE.
1700: END IF;
1701:
1702:
1703: -- Initialize message list if p_init_msg_list is set to TRUE.
1704: IF FND_API.to_Boolean( p_init_msg_list )
1705: THEN
1706: FND_MSG_PUB.initialize;
1707: END IF;
1708:
1745: and csi.sub_inventory_code (+) = cppf.secondary_inventory;
1746:
1747:
1748: -- Standard check for p_commit
1749: IF FND_API.to_Boolean( p_commit )
1750: THEN
1751: COMMIT WORK;
1752: END IF;
1753:
1758: p_data => x_msg_data
1759: );
1760:
1761: EXCEPTION
1762: WHEN FND_API.G_EXC_ERROR THEN
1763: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1764: P_API_NAME => L_API_NAME
1765: ,P_PKG_NAME => G_PKG_NAME
1766: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1769: ,X_MSG_COUNT => X_MSG_COUNT
1770: ,X_MSG_DATA => X_MSG_DATA
1771: ,X_RETURN_STATUS => X_RETURN_STATUS);
1772:
1773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1774: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1775: P_API_NAME => L_API_NAME
1776: ,P_PKG_NAME => G_PKG_NAME
1777: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1822: -- Standard Start of API savepoint
1823: SAVEPOINT CALCULATE_NPROD_PVT;
1824:
1825: -- Standard call to check for call compatibility.
1826: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1827: p_api_version_number,
1828: l_api_name,
1829: G_PKG_NAME)
1830: THEN
1827: p_api_version_number,
1828: l_api_name,
1829: G_PKG_NAME)
1830: THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: END IF;
1833:
1834:
1835: -- Initialize message list if p_init_msg_list is set to TRUE.
1832: END IF;
1833:
1834:
1835: -- Initialize message list if p_init_msg_list is set to TRUE.
1836: IF FND_API.to_Boolean( p_init_msg_list )
1837: THEN
1838: FND_MSG_PUB.initialize;
1839: END IF;
1840:
1876: and csi.organization_id (+) = cnpp.organization_id
1877: and csi.sub_inventory_code (+) = cnpp.secondary_inventory;
1878:
1879: -- Standard check for p_commit
1880: IF FND_API.to_Boolean( p_commit )
1881: THEN
1882: COMMIT WORK;
1883: END IF;
1884:
1889: p_data => x_msg_data
1890: );
1891:
1892: EXCEPTION
1893: WHEN FND_API.G_EXC_ERROR THEN
1894: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1895: P_API_NAME => L_API_NAME
1896: ,P_PKG_NAME => G_PKG_NAME
1897: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1900: ,X_MSG_COUNT => X_MSG_COUNT
1901: ,X_MSG_DATA => X_MSG_DATA
1902: ,X_RETURN_STATUS => X_RETURN_STATUS);
1903:
1904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1905: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1906: P_API_NAME => L_API_NAME
1907: ,P_PKG_NAME => G_PKG_NAME
1908: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1953: -- Standard Start of API savepoint
1954: SAVEPOINT CALCULATE_TNORM_PVT;
1955:
1956: -- Standard call to check for call compatibility.
1957: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1958: p_api_version_number,
1959: l_api_name,
1960: G_PKG_NAME)
1961: THEN
1958: p_api_version_number,
1959: l_api_name,
1960: G_PKG_NAME)
1961: THEN
1962: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1963: END IF;
1964:
1965:
1966: -- Initialize message list if p_init_msg_list is set to TRUE.
1963: END IF;
1964:
1965:
1966: -- Initialize message list if p_init_msg_list is set to TRUE.
1967: IF FND_API.to_Boolean( p_init_msg_list )
1968: THEN
1969: FND_MSG_PUB.initialize;
1970: END IF;
1971:
2007: group by nvl(csi.item_supplied,curos.inventory_item_id),
2008: curos.organization_id,curos.secondary_inventory,curos.awu;
2009:
2010: -- Standard check for p_commit
2011: IF FND_API.to_Boolean( p_commit )
2012: THEN
2013: COMMIT WORK;
2014: END IF;
2015:
2020: p_data => x_msg_data
2021: );
2022:
2023: EXCEPTION
2024: WHEN FND_API.G_EXC_ERROR THEN
2025: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2026: P_API_NAME => L_API_NAME
2027: ,P_PKG_NAME => G_PKG_NAME
2028: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2031: ,X_MSG_COUNT => X_MSG_COUNT
2032: ,X_MSG_DATA => X_MSG_DATA
2033: ,X_RETURN_STATUS => X_RETURN_STATUS);
2034:
2035: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2036: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2037: P_API_NAME => L_API_NAME
2038: ,P_PKG_NAME => G_PKG_NAME
2039: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2103: -- Standard Start of API savepoint
2104: SAVEPOINT CREATE_SUPPLY_CHAIN_PVT;
2105:
2106: -- Standard call to check for call compatibility.
2107: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2108: p_api_version_number,
2109: l_api_name,
2110: G_PKG_NAME)
2111: THEN
2108: p_api_version_number,
2109: l_api_name,
2110: G_PKG_NAME)
2111: THEN
2112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2113: END IF;
2114:
2115:
2116: -- Initialize message list if p_init_msg_list is set to TRUE.
2113: END IF;
2114:
2115:
2116: -- Initialize message list if p_init_msg_list is set to TRUE.
2117: IF FND_API.to_Boolean( p_init_msg_list )
2118: THEN
2119: FND_MSG_PUB.initialize;
2120: END IF;
2121:
2120: END IF;
2121:
2122:
2123: -- Initialize API return status to SUCCESS
2124: x_return_status := FND_API.G_RET_STS_SUCCESS;
2125:
2126: --
2127: -- API body
2128: --
2249: -- End of API body
2250: --
2251:
2252: -- Standard check for p_commit
2253: IF FND_API.to_Boolean( p_commit )
2254: THEN
2255: COMMIT WORK;
2256: END IF;
2257:
2262: p_data => x_msg_data
2263: );
2264:
2265: EXCEPTION
2266: WHEN FND_API.G_EXC_ERROR THEN
2267: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2268: P_API_NAME => L_API_NAME
2269: ,P_PKG_NAME => G_PKG_NAME
2270: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2272: ,P_ROLLBACK_FLAG => 'N'
2273: ,X_MSG_COUNT => X_MSG_COUNT
2274: ,X_MSG_DATA => X_MSG_DATA
2275: ,X_RETURN_STATUS => X_RETURN_STATUS);
2276: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2277: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2278: P_API_NAME => L_API_NAME
2279: ,P_PKG_NAME => G_PKG_NAME
2280: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2338: -- Standard Start of API savepoint
2339: SAVEPOINT CREATE_SUPPLY_CHAIN_PVT;
2340:
2341: -- Standard call to check for call compatibility.
2342: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2343: p_api_version_number,
2344: l_api_name,
2345: G_PKG_NAME)
2346: THEN
2343: p_api_version_number,
2344: l_api_name,
2345: G_PKG_NAME)
2346: THEN
2347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2348: END IF;
2349:
2350:
2351: -- Initialize message list if p_init_msg_list is set to TRUE.
2348: END IF;
2349:
2350:
2351: -- Initialize message list if p_init_msg_list is set to TRUE.
2352: IF FND_API.to_Boolean( p_init_msg_list )
2353: THEN
2354: FND_MSG_PUB.initialize;
2355: END IF;
2356:
2355: END IF;
2356:
2357:
2358: -- Initialize API return status to SUCCESS
2359: x_return_status := FND_API.G_RET_STS_SUCCESS;
2360:
2361: --
2362: -- API body
2363: --
2505: -- End of API body
2506: --
2507:
2508: -- Standard check for p_commit
2509: IF FND_API.to_Boolean( p_commit )
2510: THEN
2511: COMMIT WORK;
2512: END IF;
2513:
2518: p_data => x_msg_data
2519: );
2520:
2521: EXCEPTION
2522: WHEN FND_API.G_EXC_ERROR THEN
2523: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2524: P_API_NAME => L_API_NAME
2525: ,P_PKG_NAME => G_PKG_NAME
2526: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2529: ,X_MSG_COUNT => X_MSG_COUNT
2530: ,X_MSG_DATA => X_MSG_DATA
2531: ,X_RETURN_STATUS => X_RETURN_STATUS);
2532:
2533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2534: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2535: P_API_NAME => L_API_NAME
2536: ,P_PKG_NAME => G_PKG_NAME
2537: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2597: SAVEPOINT CREATE_USAGE_HIST_PVT;
2598:
2599:
2600: -- Initialize API return status to SUCCESS
2601: x_return_status := FND_API.G_RET_STS_SUCCESS;
2602:
2603: --
2604: -- API body
2605: --
2630: fnd_global.user_id,
2631: sysdate
2632: from mtl_material_transactions mmt
2633: where mmt.creation_date >
2634: decode(G_LAST_RUN_DATE,fnd_api.g_miss_date,G_LAST_RUN_DATE,
2635: to_date(to_char(G_LAST_RUN_DATE,'dd/mm/yy') || ' 23:59:59','dd/mm/yy hh24:mi:ss')) And mmt.creation_date < trunc(sysdate)
2636: and mmt.transaction_action_id = g_txn_action_id
2637: group by
2638: mmt.organization_id,
2706: -- End of API body
2707: --
2708:
2709: -- Standard check for p_commit
2710: IF FND_API.to_Boolean( p_commit )
2711: THEN
2712: COMMIT WORK;
2713: END IF;
2714:
2719: p_data => x_msg_data
2720: );
2721:
2722: EXCEPTION
2723: WHEN FND_API.G_EXC_ERROR THEN
2724: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2725: P_API_NAME => L_API_NAME
2726: ,P_PKG_NAME => G_PKG_NAME
2727: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2730: ,X_MSG_COUNT => X_MSG_COUNT
2731: ,X_MSG_DATA => X_MSG_DATA
2732: ,X_RETURN_STATUS => X_RETURN_STATUS);
2733:
2734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2735: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2736: P_API_NAME => L_API_NAME
2737: ,P_PKG_NAME => G_PKG_NAME
2738: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2996:
2997: l_Msg_Count NUMBER;
2998: l_Msg_Data Varchar2(2000);
2999:
3000: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
3001: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
3002: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
3003:
3004: X_Return_Status VARCHAR2(1);
2997: l_Msg_Count NUMBER;
2998: l_Msg_Data Varchar2(2000);
2999:
3000: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
3001: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
3002: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
3003:
3004: X_Return_Status VARCHAR2(1);
3005: X_Msg_Count NUMBER;
2998: l_Msg_Data Varchar2(2000);
2999:
3000: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
3001: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
3002: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
3003:
3004: X_Return_Status VARCHAR2(1);
3005: X_Msg_Count NUMBER;
3006: X_Msg_Data VARCHAR2(2000);
3022: -- End of API body
3023: --
3024:
3025: -- Standard check for p_commit
3026: IF FND_API.to_Boolean( l_commit )
3027: THEN
3028: COMMIT WORK;
3029: END IF;
3030:
3033: ( p_count => x_msg_count,
3034: p_data => x_msg_data
3035: );
3036: EXCEPTION
3037: WHEN FND_API.G_EXC_ERROR THEN
3038: retcode := 2;
3039: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
3040: P_API_NAME => L_API_NAME
3041: ,P_PKG_NAME => G_PKG_NAME
3045: ,X_MSG_COUNT => X_MSG_COUNT
3046: ,X_MSG_DATA => X_MSG_DATA
3047: ,X_RETURN_STATUS => X_RETURN_STATUS);
3048:
3049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3050: retcode := 2;
3051: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
3052: P_API_NAME => L_API_NAME
3053: ,P_PKG_NAME => G_PKG_NAME
3117:
3118: l_Msg_Count NUMBER;
3119: l_Msg_Data Varchar2(2000);
3120:
3121: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
3122: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
3123: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
3124:
3125:
3118: l_Msg_Count NUMBER;
3119: l_Msg_Data Varchar2(2000);
3120:
3121: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
3122: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
3123: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
3124:
3125:
3126: BEGIN
3119: l_Msg_Data Varchar2(2000);
3120:
3121: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
3122: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
3123: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
3124:
3125:
3126: BEGIN
3127: -- Standard Start of API savepoint
3127: -- Standard Start of API savepoint
3128: SAVEPOINT CALCULATE_NEEDBY_PVT;
3129:
3130: -- Standard call to check for call compatibility.
3131: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3132: p_api_version_number,
3133: l_api_name,
3134: G_PKG_NAME)
3135: THEN
3132: p_api_version_number,
3133: l_api_name,
3134: G_PKG_NAME)
3135: THEN
3136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3137: END IF;
3138:
3139:
3140: -- Initialize message list if p_init_msg_list is set to TRUE.
3137: END IF;
3138:
3139:
3140: -- Initialize message list if p_init_msg_list is set to TRUE.
3141: IF FND_API.to_Boolean( p_init_msg_list )
3142: THEN
3143: FND_MSG_PUB.initialize;
3144: END IF;
3145:
3143: FND_MSG_PUB.initialize;
3144: END IF;
3145:
3146: -- Initialize API return status to SUCCESS
3147: x_return_status := FND_API.G_RET_STS_SUCCESS;
3148:
3149: --
3150: -- API body
3151: --
3177: -- End of API body
3178: --
3179:
3180: -- Standard check for p_commit
3181: IF FND_API.to_Boolean( l_commit )
3182: THEN
3183: COMMIT WORK;
3184: END IF;
3185:
3189: p_data => x_msg_data
3190: );
3191:
3192: EXCEPTION
3193: WHEN FND_API.G_EXC_ERROR THEN
3194: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
3195: P_API_NAME => L_API_NAME
3196: ,P_PKG_NAME => G_PKG_NAME
3197: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
3200: ,X_MSG_COUNT => X_MSG_COUNT
3201: ,X_MSG_DATA => X_MSG_DATA
3202: ,X_RETURN_STATUS => X_RETURN_STATUS);
3203:
3204: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3205: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
3206: P_API_NAME => L_API_NAME
3207: ,P_PKG_NAME => G_PKG_NAME
3208: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR