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:
850: p_data => x_msg_data
851: );
852: retcode := 0;
853: EXCEPTION
854: WHEN FND_API.G_EXC_ERROR THEN
855: Add_Err_Msg;
856: retcode := 2;
857: errbuf := X_Msg_Data;
858: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
863: ,P_ROLLBACK_FLAG => l_Rollback
864: ,X_MSG_COUNT => X_MSG_COUNT
865: ,X_MSG_DATA => X_MSG_DATA
866: ,X_RETURN_STATUS => X_RETURN_STATUS);
867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
868: Add_Err_Msg;
869: retcode := 2;
870: errbuf := X_Msg_Data;
871: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
931: -- Standard Start of API savepoint
932: SAVEPOINT PURGE_DATA_PVT;
933:
934: -- Standard call to check for call compatibility.
935: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
936: p_api_version_number,
937: l_api_name,
938: G_PKG_NAME)
939: THEN
936: p_api_version_number,
937: l_api_name,
938: G_PKG_NAME)
939: THEN
940: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
941: END IF;
942:
943:
944: -- Initialize message list if p_init_msg_list is set to TRUE.
941: END IF;
942:
943:
944: -- Initialize message list if p_init_msg_list is set to TRUE.
945: IF FND_API.to_Boolean( p_init_msg_list )
946: THEN
947: FND_MSG_PUB.initialize;
948: END IF;
949:
948: END IF;
949:
950:
951: -- Initialize API return status to SUCCESS
952: x_return_status := FND_API.G_RET_STS_SUCCESS;
953:
954: --
955: -- API body
956: --
968: EXECUTE IMMEDIATE 'TRUNCATE TABLE '||l_oracle_schema||'.CSP_SUPPLY_CHAIN';
969:
970:
971:
972: IF FND_API.to_Boolean( p_commit )
973: THEN
974: COMMIT WORK;
975: END IF;
976:
978: -- End of API body
979: --
980:
981: -- Standard check for p_commit
982: IF FND_API.to_Boolean( p_commit )
983: THEN
984: COMMIT WORK;
985: END IF;
986:
992: p_data => x_msg_data
993: );
994:
995: EXCEPTION
996: WHEN FND_API.G_EXC_ERROR THEN
997: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
998: P_API_NAME => L_API_NAME
999: ,P_PKG_NAME => G_PKG_NAME
1000: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1003: ,X_MSG_COUNT => X_MSG_COUNT
1004: ,X_MSG_DATA => X_MSG_DATA
1005: ,X_RETURN_STATUS => X_RETURN_STATUS);
1006:
1007: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1008: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1009: P_API_NAME => L_API_NAME
1010: ,P_PKG_NAME => G_PKG_NAME
1011: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1050: X_Return_Status VARCHAR2(1);
1051: X_Msg_Count NUMBER;
1052: X_Msg_Data VARCHAR2(2000);
1053:
1054: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
1055: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
1056: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1057:
1058: l_get_app_info boolean;
1051: X_Msg_Count NUMBER;
1052: X_Msg_Data VARCHAR2(2000);
1053:
1054: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
1055: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
1056: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1057:
1058: l_get_app_info boolean;
1059: l_status varchar2(1);
1052: X_Msg_Data VARCHAR2(2000);
1053:
1054: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
1055: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
1056: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1057:
1058: l_get_app_info boolean;
1059: l_status varchar2(1);
1060: l_industry varchar2(1);
1062: BEGIN
1063: -- Alter session
1064: EXECUTE IMMEDIATE 'ALTER SESSION ENABLE PARALLEL DML';
1065: -- Standard call to check for call compatibility.
1066: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1067: p_api_version_number,
1068: l_api_name,
1069: G_PKG_NAME)
1070: THEN
1067: p_api_version_number,
1068: l_api_name,
1069: G_PKG_NAME)
1070: THEN
1071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1072: END IF;
1073:
1074:
1075: -- Initialize message list if p_init_msg_list is set to TRUE.
1072: END IF;
1073:
1074:
1075: -- Initialize message list if p_init_msg_list is set to TRUE.
1076: IF FND_API.to_Boolean( l_init_msg_list )
1077: THEN
1078: FND_MSG_PUB.initialize;
1079: END IF;
1080:
1080:
1081:
1082:
1083: -- Initialize API return status to SUCCESS
1084: x_return_status := FND_API.G_RET_STS_SUCCESS;
1085:
1086: --
1087: -- API body
1088: --
1101: When others then
1102: G_LAST_RUN_DATE := NULL;
1103: End;
1104:
1105: G_LAST_RUN_DATE := NVL(G_LAST_RUN_DATE,FND_API.G_MISS_DATE);
1106: If G_LAST_RUN_DATE < trunc(sysdate) - 1 Then
1107: l_get_app_info := fnd_installation.get_app_info('CSP',l_status,l_industry, l_oracle_schema);
1108: -- Delete from CSP_SUPPLY_CHAIN
1109: EXECUTE IMMEDIATE 'TRUNCATE TABLE '||l_oracle_schema||'.CSP_SUPPLY_CHAIN';
1111: SAVEPOINT CREATE_USAGE_PVT;
1112: -- Build Supply Chain
1113: Create_Supply_Chain (
1114: P_Api_Version_Number => 1.0,
1115: P_Init_Msg_List => FND_API.G_FALSE,
1116: P_Commit => FND_API.G_TRUE,
1117: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
1118: X_Return_Status => X_Return_Status,
1119: X_Msg_Count => X_Msg_Count,
1112: -- Build Supply Chain
1113: Create_Supply_Chain (
1114: P_Api_Version_Number => 1.0,
1115: P_Init_Msg_List => FND_API.G_FALSE,
1116: P_Commit => FND_API.G_TRUE,
1117: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
1118: X_Return_Status => X_Return_Status,
1119: X_Msg_Count => X_Msg_Count,
1120: X_Msg_Data => X_Msg_Data );
1113: Create_Supply_Chain (
1114: P_Api_Version_Number => 1.0,
1115: P_Init_Msg_List => FND_API.G_FALSE,
1116: P_Commit => FND_API.G_TRUE,
1117: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
1118: X_Return_Status => X_Return_Status,
1119: X_Msg_Count => X_Msg_Count,
1120: X_Msg_Data => X_Msg_Data );
1121: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
1117: P_validation_level => FND_API.G_VALID_LEVEL_FULL,
1118: X_Return_Status => X_Return_Status,
1119: X_Msg_Count => X_Msg_Count,
1120: X_Msg_Data => X_Msg_Data );
1121: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
1122: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1123: End If;
1124:
1125: -- Re-establish Savepoint
1118: X_Return_Status => X_Return_Status,
1119: X_Msg_Count => X_Msg_Count,
1120: X_Msg_Data => X_Msg_Data );
1121: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
1122: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1123: End If;
1124:
1125: -- Re-establish Savepoint
1126: SAVEPOINT CREATE_USAGE_PVT;
1127:
1128: --- Get Usage
1129: Create_Usage_History (
1130: P_Api_Version_Number => 1.0,
1131: P_Init_Msg_List => FND_API.G_FALSE,
1132: P_Commit => FND_API.G_TRUE,
1133: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1134: X_Return_Status => X_Return_Status,
1135: X_Msg_Count => X_Msg_Count,
1128: --- Get Usage
1129: Create_Usage_History (
1130: P_Api_Version_Number => 1.0,
1131: P_Init_Msg_List => FND_API.G_FALSE,
1132: P_Commit => FND_API.G_TRUE,
1133: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1134: X_Return_Status => X_Return_Status,
1135: X_Msg_Count => X_Msg_Count,
1136: X_Msg_Data => X_Msg_Data
1129: Create_Usage_History (
1130: P_Api_Version_Number => 1.0,
1131: P_Init_Msg_List => FND_API.G_FALSE,
1132: P_Commit => FND_API.G_TRUE,
1133: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1134: X_Return_Status => X_Return_Status,
1135: X_Msg_Count => X_Msg_Count,
1136: X_Msg_Data => X_Msg_Data
1137: );
1134: X_Return_Status => X_Return_Status,
1135: X_Msg_Count => X_Msg_Count,
1136: X_Msg_Data => X_Msg_Data
1137: );
1138: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
1139: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1140: End If;
1141: -- Re-establish Savepoint
1142: SAVEPOINT CREATE_USAGE_PVT;
1135: X_Msg_Count => X_Msg_Count,
1136: X_Msg_Data => X_Msg_Data
1137: );
1138: If X_Return_status <> FND_API.G_RET_STS_SUCCESS Then
1139: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1140: End If;
1141: -- Re-establish Savepoint
1142: SAVEPOINT CREATE_USAGE_PVT;
1143: if not fnd_profile.save('CSP_USAGE_RUN_DATE',trunc(sysdate) -1,'SITE') Then
1140: End If;
1141: -- Re-establish Savepoint
1142: SAVEPOINT CREATE_USAGE_PVT;
1143: if not fnd_profile.save('CSP_USAGE_RUN_DATE',trunc(sysdate) -1,'SITE') Then
1144: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1145: End If;
1146: COMMIT;
1147: -- Re-establish Savepoint
1148: SAVEPOINT CREATE_USAGE_PVT;
1187: p_data => x_msg_data
1188: );
1189: retcode := 0;
1190: EXCEPTION
1191: WHEN FND_API.G_EXC_ERROR THEN
1192: retcode := 2;
1193: errbuf := X_Msg_Data;
1194: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1195: P_API_NAME => L_API_NAME
1200: ,X_MSG_COUNT => X_MSG_COUNT
1201: ,X_MSG_DATA => X_MSG_DATA
1202: ,X_RETURN_STATUS => X_RETURN_STATUS);
1203: Add_Err_Msg;
1204: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1205: retcode := 2;
1206: errbuf := X_Msg_Data;
1207: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1208: P_API_NAME => L_API_NAME
1434: -- Standard Start of API savepoint
1435: SAVEPOINT CALCULATE_FORECAST_PVT;
1436:
1437: -- Standard call to check for call compatibility.
1438: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1439: p_api_version_number,
1440: l_api_name,
1441: G_PKG_NAME)
1442: THEN
1439: p_api_version_number,
1440: l_api_name,
1441: G_PKG_NAME)
1442: THEN
1443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1444: END IF;
1445:
1446:
1447: -- Initialize message list if p_init_msg_list is set to TRUE.
1444: END IF;
1445:
1446:
1447: -- Initialize message list if p_init_msg_list is set to TRUE.
1448: IF FND_API.to_Boolean( p_init_msg_list )
1449: THEN
1450: FND_MSG_PUB.initialize;
1451: END IF;
1452:
1451: END IF;
1452:
1453:
1454: -- Initialize API return status to SUCCESS
1455: x_return_status := FND_API.G_RET_STS_SUCCESS;
1456:
1457: --
1458: -- API body
1459: --
1633: -- End of API body
1634: --
1635:
1636: -- Standard check for p_commit
1637: IF FND_API.to_Boolean( p_commit )
1638: THEN
1639: COMMIT WORK;
1640: END IF;
1641:
1646: p_data => x_msg_data
1647: );
1648:
1649: EXCEPTION
1650: WHEN FND_API.G_EXC_ERROR THEN
1651: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1652: P_API_NAME => L_API_NAME
1653: ,P_PKG_NAME => G_PKG_NAME
1654: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1657: ,X_MSG_COUNT => X_MSG_COUNT
1658: ,X_MSG_DATA => X_MSG_DATA
1659: ,X_RETURN_STATUS => X_RETURN_STATUS);
1660:
1661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1662: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1663: P_API_NAME => L_API_NAME
1664: ,P_PKG_NAME => G_PKG_NAME
1665: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1710: -- Standard Start of API savepoint
1711: SAVEPOINT CALCULATE_PNORM_PVT;
1712:
1713: -- Standard call to check for call compatibility.
1714: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1715: p_api_version_number,
1716: l_api_name,
1717: G_PKG_NAME)
1718: THEN
1715: p_api_version_number,
1716: l_api_name,
1717: G_PKG_NAME)
1718: THEN
1719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1720: END IF;
1721:
1722:
1723: -- Initialize message list if p_init_msg_list is set to TRUE.
1720: END IF;
1721:
1722:
1723: -- Initialize message list if p_init_msg_list is set to TRUE.
1724: IF FND_API.to_Boolean( p_init_msg_list )
1725: THEN
1726: FND_MSG_PUB.initialize;
1727: END IF;
1728:
1765: and csi.sub_inventory_code (+) = cppf.secondary_inventory;
1766:
1767:
1768: -- Standard check for p_commit
1769: IF FND_API.to_Boolean( p_commit )
1770: THEN
1771: COMMIT WORK;
1772: END IF;
1773:
1778: p_data => x_msg_data
1779: );
1780:
1781: EXCEPTION
1782: WHEN FND_API.G_EXC_ERROR THEN
1783: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1784: P_API_NAME => L_API_NAME
1785: ,P_PKG_NAME => G_PKG_NAME
1786: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1789: ,X_MSG_COUNT => X_MSG_COUNT
1790: ,X_MSG_DATA => X_MSG_DATA
1791: ,X_RETURN_STATUS => X_RETURN_STATUS);
1792:
1793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1794: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1795: P_API_NAME => L_API_NAME
1796: ,P_PKG_NAME => G_PKG_NAME
1797: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1842: -- Standard Start of API savepoint
1843: SAVEPOINT CALCULATE_NPROD_PVT;
1844:
1845: -- Standard call to check for call compatibility.
1846: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1847: p_api_version_number,
1848: l_api_name,
1849: G_PKG_NAME)
1850: THEN
1847: p_api_version_number,
1848: l_api_name,
1849: G_PKG_NAME)
1850: THEN
1851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1852: END IF;
1853:
1854:
1855: -- Initialize message list if p_init_msg_list is set to TRUE.
1852: END IF;
1853:
1854:
1855: -- Initialize message list if p_init_msg_list is set to TRUE.
1856: IF FND_API.to_Boolean( p_init_msg_list )
1857: THEN
1858: FND_MSG_PUB.initialize;
1859: END IF;
1860:
1896: and csi.organization_id (+) = cnpp.organization_id
1897: and csi.sub_inventory_code (+) = cnpp.secondary_inventory;
1898:
1899: -- Standard check for p_commit
1900: IF FND_API.to_Boolean( p_commit )
1901: THEN
1902: COMMIT WORK;
1903: END IF;
1904:
1909: p_data => x_msg_data
1910: );
1911:
1912: EXCEPTION
1913: WHEN FND_API.G_EXC_ERROR THEN
1914: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1915: P_API_NAME => L_API_NAME
1916: ,P_PKG_NAME => G_PKG_NAME
1917: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1920: ,X_MSG_COUNT => X_MSG_COUNT
1921: ,X_MSG_DATA => X_MSG_DATA
1922: ,X_RETURN_STATUS => X_RETURN_STATUS);
1923:
1924: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1925: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1926: P_API_NAME => L_API_NAME
1927: ,P_PKG_NAME => G_PKG_NAME
1928: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1973: -- Standard Start of API savepoint
1974: SAVEPOINT CALCULATE_TNORM_PVT;
1975:
1976: -- Standard call to check for call compatibility.
1977: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1978: p_api_version_number,
1979: l_api_name,
1980: G_PKG_NAME)
1981: THEN
1978: p_api_version_number,
1979: l_api_name,
1980: G_PKG_NAME)
1981: THEN
1982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1983: END IF;
1984:
1985:
1986: -- Initialize message list if p_init_msg_list is set to TRUE.
1983: END IF;
1984:
1985:
1986: -- Initialize message list if p_init_msg_list is set to TRUE.
1987: IF FND_API.to_Boolean( p_init_msg_list )
1988: THEN
1989: FND_MSG_PUB.initialize;
1990: END IF;
1991:
2027: group by nvl(csi.item_supplied,curos.inventory_item_id),
2028: curos.organization_id,curos.secondary_inventory,curos.awu;
2029:
2030: -- Standard check for p_commit
2031: IF FND_API.to_Boolean( p_commit )
2032: THEN
2033: COMMIT WORK;
2034: END IF;
2035:
2040: p_data => x_msg_data
2041: );
2042:
2043: EXCEPTION
2044: WHEN FND_API.G_EXC_ERROR THEN
2045: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2046: P_API_NAME => L_API_NAME
2047: ,P_PKG_NAME => G_PKG_NAME
2048: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2051: ,X_MSG_COUNT => X_MSG_COUNT
2052: ,X_MSG_DATA => X_MSG_DATA
2053: ,X_RETURN_STATUS => X_RETURN_STATUS);
2054:
2055: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2056: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2057: P_API_NAME => L_API_NAME
2058: ,P_PKG_NAME => G_PKG_NAME
2059: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2123: -- Standard Start of API savepoint
2124: SAVEPOINT CREATE_SUPPLY_CHAIN_PVT;
2125:
2126: -- Standard call to check for call compatibility.
2127: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2128: p_api_version_number,
2129: l_api_name,
2130: G_PKG_NAME)
2131: THEN
2128: p_api_version_number,
2129: l_api_name,
2130: G_PKG_NAME)
2131: THEN
2132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2133: END IF;
2134:
2135:
2136: -- Initialize message list if p_init_msg_list is set to TRUE.
2133: END IF;
2134:
2135:
2136: -- Initialize message list if p_init_msg_list is set to TRUE.
2137: IF FND_API.to_Boolean( p_init_msg_list )
2138: THEN
2139: FND_MSG_PUB.initialize;
2140: END IF;
2141:
2140: END IF;
2141:
2142:
2143: -- Initialize API return status to SUCCESS
2144: x_return_status := FND_API.G_RET_STS_SUCCESS;
2145:
2146: --
2147: -- API body
2148: --
2269: -- End of API body
2270: --
2271:
2272: -- Standard check for p_commit
2273: IF FND_API.to_Boolean( p_commit )
2274: THEN
2275: COMMIT WORK;
2276: END IF;
2277:
2282: p_data => x_msg_data
2283: );
2284:
2285: EXCEPTION
2286: WHEN FND_API.G_EXC_ERROR THEN
2287: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2288: P_API_NAME => L_API_NAME
2289: ,P_PKG_NAME => G_PKG_NAME
2290: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2292: ,P_ROLLBACK_FLAG => 'N'
2293: ,X_MSG_COUNT => X_MSG_COUNT
2294: ,X_MSG_DATA => X_MSG_DATA
2295: ,X_RETURN_STATUS => X_RETURN_STATUS);
2296: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2297: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2298: P_API_NAME => L_API_NAME
2299: ,P_PKG_NAME => G_PKG_NAME
2300: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2358: -- Standard Start of API savepoint
2359: SAVEPOINT CREATE_SUPPLY_CHAIN_PVT;
2360:
2361: -- Standard call to check for call compatibility.
2362: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2363: p_api_version_number,
2364: l_api_name,
2365: G_PKG_NAME)
2366: THEN
2363: p_api_version_number,
2364: l_api_name,
2365: G_PKG_NAME)
2366: THEN
2367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2368: END IF;
2369:
2370:
2371: -- Initialize message list if p_init_msg_list is set to TRUE.
2368: END IF;
2369:
2370:
2371: -- Initialize message list if p_init_msg_list is set to TRUE.
2372: IF FND_API.to_Boolean( p_init_msg_list )
2373: THEN
2374: FND_MSG_PUB.initialize;
2375: END IF;
2376:
2375: END IF;
2376:
2377:
2378: -- Initialize API return status to SUCCESS
2379: x_return_status := FND_API.G_RET_STS_SUCCESS;
2380:
2381: --
2382: -- API body
2383: --
2525: -- End of API body
2526: --
2527:
2528: -- Standard check for p_commit
2529: IF FND_API.to_Boolean( p_commit )
2530: THEN
2531: COMMIT WORK;
2532: END IF;
2533:
2538: p_data => x_msg_data
2539: );
2540:
2541: EXCEPTION
2542: WHEN FND_API.G_EXC_ERROR THEN
2543: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2544: P_API_NAME => L_API_NAME
2545: ,P_PKG_NAME => G_PKG_NAME
2546: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2549: ,X_MSG_COUNT => X_MSG_COUNT
2550: ,X_MSG_DATA => X_MSG_DATA
2551: ,X_RETURN_STATUS => X_RETURN_STATUS);
2552:
2553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2554: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2555: P_API_NAME => L_API_NAME
2556: ,P_PKG_NAME => G_PKG_NAME
2557: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2617: SAVEPOINT CREATE_USAGE_HIST_PVT;
2618:
2619:
2620: -- Initialize API return status to SUCCESS
2621: x_return_status := FND_API.G_RET_STS_SUCCESS;
2622:
2623: --
2624: -- API body
2625: --
2650: fnd_global.user_id,
2651: sysdate
2652: from mtl_material_transactions mmt
2653: where mmt.creation_date >
2654: decode(G_LAST_RUN_DATE,fnd_api.g_miss_date,G_LAST_RUN_DATE,
2655: 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)
2656: and mmt.transaction_action_id = g_txn_action_id
2657: group by
2658: mmt.organization_id,
2726: -- End of API body
2727: --
2728:
2729: -- Standard check for p_commit
2730: IF FND_API.to_Boolean( p_commit )
2731: THEN
2732: COMMIT WORK;
2733: END IF;
2734:
2739: p_data => x_msg_data
2740: );
2741:
2742: EXCEPTION
2743: WHEN FND_API.G_EXC_ERROR THEN
2744: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2745: P_API_NAME => L_API_NAME
2746: ,P_PKG_NAME => G_PKG_NAME
2747: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2750: ,X_MSG_COUNT => X_MSG_COUNT
2751: ,X_MSG_DATA => X_MSG_DATA
2752: ,X_RETURN_STATUS => X_RETURN_STATUS);
2753:
2754: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2755: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2756: P_API_NAME => L_API_NAME
2757: ,P_PKG_NAME => G_PKG_NAME
2758: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
3016:
3017: l_Msg_Count NUMBER;
3018: l_Msg_Data Varchar2(2000);
3019:
3020: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
3021: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
3022: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
3023:
3024: l_get_app_info boolean;
3017: l_Msg_Count NUMBER;
3018: l_Msg_Data Varchar2(2000);
3019:
3020: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
3021: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
3022: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
3023:
3024: l_get_app_info boolean;
3025: l_status varchar2(1);
3018: l_Msg_Data Varchar2(2000);
3019:
3020: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
3021: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
3022: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
3023:
3024: l_get_app_info boolean;
3025: l_status varchar2(1);
3026: l_industry varchar2(1);
3069: -- End of API body
3070: --
3071:
3072: -- Standard check for p_commit
3073: IF FND_API.to_Boolean( l_commit )
3074: THEN
3075: COMMIT WORK;
3076: END IF;
3077:
3080: ( p_count => x_msg_count,
3081: p_data => x_msg_data
3082: );
3083: EXCEPTION
3084: WHEN FND_API.G_EXC_ERROR THEN
3085: retcode := 2;
3086: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
3087: P_API_NAME => L_API_NAME
3088: ,P_PKG_NAME => G_PKG_NAME
3092: ,X_MSG_COUNT => X_MSG_COUNT
3093: ,X_MSG_DATA => X_MSG_DATA
3094: ,X_RETURN_STATUS => X_RETURN_STATUS);
3095:
3096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3097: retcode := 2;
3098: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
3099: P_API_NAME => L_API_NAME
3100: ,P_PKG_NAME => G_PKG_NAME
3164:
3165: l_Msg_Count NUMBER;
3166: l_Msg_Data Varchar2(2000);
3167:
3168: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
3169: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
3170: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
3171:
3172:
3165: l_Msg_Count NUMBER;
3166: l_Msg_Data Varchar2(2000);
3167:
3168: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
3169: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
3170: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
3171:
3172:
3173: BEGIN
3166: l_Msg_Data Varchar2(2000);
3167:
3168: l_Init_Msg_List VARCHAR2(1) := FND_API.G_TRUE;
3169: l_Commit VARCHAR2(1) := FND_API.G_TRUE;
3170: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
3171:
3172:
3173: BEGIN
3174: -- Standard Start of API savepoint
3174: -- Standard Start of API savepoint
3175: SAVEPOINT CALCULATE_NEEDBY_PVT;
3176:
3177: -- Standard call to check for call compatibility.
3178: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3179: p_api_version_number,
3180: l_api_name,
3181: G_PKG_NAME)
3182: THEN
3179: p_api_version_number,
3180: l_api_name,
3181: G_PKG_NAME)
3182: THEN
3183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3184: END IF;
3185:
3186:
3187: -- Initialize message list if p_init_msg_list is set to TRUE.
3184: END IF;
3185:
3186:
3187: -- Initialize message list if p_init_msg_list is set to TRUE.
3188: IF FND_API.to_Boolean( p_init_msg_list )
3189: THEN
3190: FND_MSG_PUB.initialize;
3191: END IF;
3192:
3190: FND_MSG_PUB.initialize;
3191: END IF;
3192:
3193: -- Initialize API return status to SUCCESS
3194: x_return_status := FND_API.G_RET_STS_SUCCESS;
3195:
3196: --
3197: -- API body
3198: --
3224: -- End of API body
3225: --
3226:
3227: -- Standard check for p_commit
3228: IF FND_API.to_Boolean( l_commit )
3229: THEN
3230: COMMIT WORK;
3231: END IF;
3232:
3236: p_data => x_msg_data
3237: );
3238:
3239: EXCEPTION
3240: WHEN FND_API.G_EXC_ERROR THEN
3241: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
3242: P_API_NAME => L_API_NAME
3243: ,P_PKG_NAME => G_PKG_NAME
3244: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
3247: ,X_MSG_COUNT => X_MSG_COUNT
3248: ,X_MSG_DATA => X_MSG_DATA
3249: ,X_RETURN_STATUS => X_RETURN_STATUS);
3250:
3251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3252: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
3253: P_API_NAME => L_API_NAME
3254: ,P_PKG_NAME => G_PKG_NAME
3255: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR