1: PACKAGE BODY AMS_Dm_Binvalues_PVT as
2: /* $Header: amsvdbvb.pls 115.5 2003/05/07 08:23:10 rosharma ship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
2: /* $Header: amsvdbvb.pls 115.5 2003/05/07 08:23:10 rosharma ship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
6: -- AMS_Dm_Binvalues_PVT
7: -- Purpose
8: --
9: -- History
10: -- 07-May-2003 rosharma Bug # 2943269
14: -- End of Comments
15: -- ===============================================================
16:
17:
18: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_Dm_Binvalues_PVT';
19: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amsvdbvb.pls';
20:
21: G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
22: G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
53: l_object_version_number NUMBER := 1;
54: l_org_id NUMBER := FND_API.G_MISS_NUM;
55: l_BIN_VALUE_ID NUMBER;
56: l_dummy NUMBER;
57: l_dm_binvalues_rec AMS_Dm_Binvalues_PVT.dm_binvalues_rec_type:= p_dm_binvalues_rec;
58:
59: CURSOR c_id IS
60: SELECT AMS_DM_BIN_VALUES_s.NEXTVAL
61: FROM dual;
273: -- Local Variables
274: l_object_version_number NUMBER;
275: l_BIN_VALUE_ID NUMBER;
276: l_ref_dm_binvalues_rec c_get_Dm_Binvalues%ROWTYPE ;
277: l_tar_dm_binvalues_rec AMS_Dm_Binvalues_PVT.dm_binvalues_rec_type := P_dm_binvalues_rec;
278: l_rowid ROWID;
279:
280: BEGIN
281: -- Standard Start of API savepoint
1101: IS
1102: L_API_NAME CONSTANT VARCHAR2(30) := 'Validate_Dm_Binvalues';
1103: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
1104: l_object_version_number NUMBER;
1105: l_dm_binvalues_rec AMS_Dm_Binvalues_PVT.dm_binvalues_rec_type;
1106:
1107: BEGIN
1108: -- Standard Start of API savepoint
1109: SAVEPOINT VALIDATE_Dm_Binvalues_;
1274: END IF;
1275:
1276: END Validate_dm_binvalues_Rec;
1277:
1278: END AMS_Dm_Binvalues_PVT;