[Home] [Help]
PACKAGE BODY: APPS.EGO_GENERIC_TEMP_DML_PVT
Source
1 PACKAGE BODY EGO_GENERIC_TEMP_DML_PVT AS
2 /* $Header: EGOVGTDB.pls 120.0.12010000.2 2009/08/05 13:23:41 vijoshi noship $ */
3
4 PROCEDURE Insert_Row ( p_api_version IN NUMBER
5 --,p_commit IN VARCHAR2 default G_FALSE
6 ,p_generic_temp_tbl IN EGO_GENERIC_TEMP_TBL_TYPE
7 ,x_return_status OUT NOCOPY VARCHAR2
8 ,x_msg_data OUT NOCOPY VARCHAR2
9 ,x_msg_count OUT NOCOPY NUMBER
10 )
11 IS
12
13 l_api_name varchar2(20) := 'Insert_Row';
14
15 l_c_attrib1 EGO_GENERIC_TEMP.C_ATTRIBUTE1%TYPE;
16 l_c_attrib2 EGO_GENERIC_TEMP.C_ATTRIBUTE2%TYPE;
17 l_n_attrib1 EGO_GENERIC_TEMP.N_ATTRIBUTE1%TYPE;
18 l_n_attrib2 EGO_GENERIC_TEMP.N_ATTRIBUTE1%TYPE;
19 l_d_attrib1 EGO_GENERIC_TEMP.D_ATTRIBUTE1%TYPE;
20 l_d_attrib2 EGO_GENERIC_TEMP.D_ATTRIBUTE1%TYPE;
21
22
23 BEGIN
24 x_return_status := G_RET_STS_SUCCESS;
25
26 for i in p_generic_temp_tbl.first..p_generic_temp_tbl.last
27 loop
28
29 l_c_attrib1 := p_generic_temp_tbl(i).C_ATTRIBUTE1;
30 l_c_attrib2 := p_generic_temp_tbl(i).C_ATTRIBUTE2;
31
32 l_n_attrib1 := p_generic_temp_tbl(i).N_ATTRIBUTE1;
33 l_n_attrib2 := p_generic_temp_tbl(i).N_ATTRIBUTE2;
34
35 l_d_attrib1 := p_generic_temp_tbl(i).D_ATTRIBUTE1;
36 l_d_attrib2 := p_generic_temp_tbl(i).D_ATTRIBUTE2;
37
38
39 INSERT INTO EGO_GENERIC_TEMP (
40 C_ATTRIBUTE1
41 ,C_ATTRIBUTE2
42 ,N_ATTRIBUTE1
43 ,N_ATTRIBUTE2
44 ,D_ATTRIBUTE1
45 ,D_ATTRIBUTE2
46 ,CREATED_BY
47 ,CREATION_DATE
48 ,LAST_UPDATED_BY
49 ,LAST_UPDATE_DATE
50 ,LAST_UPDATE_LOGIN
51 ) VALUES
52 (
53 l_c_attrib1
54 ,l_c_attrib2
55 ,l_n_attrib1
56 ,l_n_attrib2
57 ,l_d_attrib1
58 ,l_d_attrib2
59 ,G_CURRENT_USER_ID
60 ,sysdate
61 ,G_CURRENT_USER_ID
62 ,sysdate
63 ,G_CURRENT_LOGIN_ID
64 );
65 end loop;
66
67 --IF p_commit = G_TRUE THEN
68 -- COMMIT WORK;
69 --END IF;
70 EXCEPTION
71 WHEN OTHERS THEN
72 x_return_status := G_RET_STS_UNEXP_ERROR;
73 x_msg_data := SQLERRM;
74 FND_MESSAGE.Set_Name('EGO', 'EGO_INSERT_ERROR');
75 FND_MESSAGE.Set_Token('PKG_NAME', G_PKG_NAME);
76 FND_MESSAGE.Set_Token('API_NAME', l_api_name);
77 FND_MESSAGE.Set_Token('SQL_ERR_MSG',x_msg_data );
78 FND_MSG_PUB.Add;
79 FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
80 ,p_count => x_msg_count
81 ,p_data => x_msg_data);
82
83 END Insert_Row;
84 END EGO_GENERIC_TEMP_DML_PVT;