1: PACKAGE BODY AMS_DMPerformance_PVT as
2: /* $Header: amsvdpfb.pls 115.8 2002/12/09 11:20:59 choang ship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
2: /* $Header: amsvdpfb.pls 115.8 2002/12/09 11:20:59 choang ship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
6: -- AMS_DMPerformance_PVT
7: -- Purpose
8: --
9: -- History
10: -- 26-Jan-2001 choang Added increment of object ver num in update api.
17: -- End of Comments
18: -- ===============================================================
19:
20:
21: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_DMPerformance_PVT';
22: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amsvdpfb.pls';
23:
24: /***
25: G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
247:
248: -- Local Variables
249: l_object_version_number NUMBER;
250: l_PERFORMANCE_ID NUMBER;
251: l_tar_performance_rec AMS_DMPerformance_PVT.performance_rec_type := P_performance_rec;
252:
253: CURSOR c_get_dmperformance(p_performance_id NUMBER) IS
254: SELECT *
255: FROM AMS_DM_PERFORMANCE
908: IS
909: L_API_NAME CONSTANT VARCHAR2(30) := 'Validate_Performance';
910: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
911: l_object_version_number NUMBER;
912: l_performance_rec AMS_DMPerformance_PVT.performance_rec_type;
913: BEGIN
914: -- Standard Start of API savepoint
915: SAVEPOINT Validate_Performance_;
916:
1117: END LOOP;
1118: CLOSE c_get_perf_rows;
1119: END get_performance_indices;
1120:
1121: END AMS_DMPerformance_PVT;