[Home] [Help]
PACKAGE BODY: APPS.IEM_REROUTING_HISTS_PVT
Source
1 PACKAGE BODY IEM_REROUTING_HISTS_PVT as
2 /* $Header: iemvrehb.pls 115.1 2002/12/06 00:20:22 sboorela shipped $*/
3 G_PKG_NAME CONSTANT varchar2(30) :='IEM_REROUTING_HISTS_PVT ';
4
5 PROCEDURE create_item (p_api_version_number IN NUMBER,
6 p_init_msg_list IN VARCHAR2 ,
7 p_commit IN VARCHAR2 ,
8 p_message_id IN NUMBER,
9 p_agent_id IN NUMBER,
10 p_CREATED_BY IN NUMBER,
11 p_CREATION_DATE IN DATE,
12 p_LAST_UPDATED_BY IN NUMBER ,
13 p_LAST_UPDATE_DATE IN DATE,
14 p_LAST_UPDATE_LOGIN IN NUMBER ,
15 p_ATTRIBUTE1 IN VARCHAR2,
16 p_ATTRIBUTE2 IN VARCHAR2,
17 p_ATTRIBUTE3 IN VARCHAR2,
18 p_ATTRIBUTE4 IN VARCHAR2,
19 p_ATTRIBUTE5 IN VARCHAR2,
20 p_ATTRIBUTE6 IN VARCHAR2,
21 p_ATTRIBUTE7 IN VARCHAR2,
22 p_ATTRIBUTE8 IN VARCHAR2,
23 p_ATTRIBUTE9 IN VARCHAR2,
24 p_ATTRIBUTE10 IN VARCHAR2,
25 p_ATTRIBUTE11 IN VARCHAR2,
26 p_ATTRIBUTE12 IN VARCHAR2,
27 p_ATTRIBUTE13 IN VARCHAR2,
28 p_ATTRIBUTE14 IN VARCHAR2,
29 p_ATTRIBUTE15 IN VARCHAR2,
30 x_return_status OUT NOCOPY VARCHAR2,
31 x_msg_count OUT NOCOPY NUMBER,
32 x_msg_data OUT NOCOPY VARCHAR2
33 ) is
34 l_api_name VARCHAR2(255):='create_item';
35 l_api_version_number NUMBER:=1.0;
36 l_seq_id number;
37 l_grp_cnt number;
38
39 BEGIN
40 -- Standard call to check for call compatibility.
41 IF NOT FND_API.Compatible_API_Call (l_api_version_number,
42 p_api_version_number,
43 l_api_name,
44 G_PKG_NAME)
45 THEN
46 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47 END IF;
48 x_return_status := FND_API.G_RET_STS_SUCCESS;
49 -- Initialize message list if p_init_msg_list is set to TRUE.
50 IF p_init_msg_list ='T'
51 THEN
52 FND_MSG_PUB.initialize;
53 END IF;
54 select iem_reroute_hists_s1.nextval into l_seq_id from dual;
55 INSERT INTO IEM_REROUTE_HISTS (
56 reroute_id,
57 MESSAGE_ID ,
58 AGENT_ID ,
59 CREATED_BY ,
60 CREATION_DATE ,
61 LAST_UPDATED_BY ,
62 LAST_UPDATE_DATE ,
63 LAST_UPDATE_LOGIN ,
64 ATTRIBUTE1 ,
65 ATTRIBUTE2 ,
66 ATTRIBUTE3 ,
67 ATTRIBUTE4 ,
68 ATTRIBUTE5 ,
69 ATTRIBUTE6 ,
70 ATTRIBUTE7 ,
71 ATTRIBUTE8 ,
72 ATTRIBUTE9 ,
73 ATTRIBUTE10 ,
74 ATTRIBUTE11 ,
75 ATTRIBUTE12 ,
76 ATTRIBUTE13 ,
77 ATTRIBUTE14 ,
78 ATTRIBUTE15
79 )
80 VALUES
81 (
82 l_seq_id,
83 p_message_id,
84 p_agent_id,
85 decode(p_CREATED_BY,null,-1,p_CREATED_BY),
86 sysdate,
87 decode(p_LAST_UPDATED_BY,null,-1,p_LAST_UPDATED_BY),
88 sysdate,
89 decode(p_LAST_UPDATE_LOGIN,null,-1,p_LAST_UPDATE_LOGIN),
90 p_ATTRIBUTE1,
91 p_ATTRIBUTE2,
92 p_ATTRIBUTE3,
93 p_ATTRIBUTE4,
94 p_ATTRIBUTE5,
95 p_ATTRIBUTE6,
96 p_ATTRIBUTE7,
97 p_ATTRIBUTE8,
98 p_ATTRIBUTE9,
99 p_ATTRIBUTE10,
100 p_ATTRIBUTE11,
101 p_ATTRIBUTE12,
102 p_ATTRIBUTE13,
103 p_ATTRIBUTE14,
104 p_ATTRIBUTE15
105 );
106 -- Standard Check Of p_commit.
107 IF p_commit='T' THEN
108 COMMIT WORK;
109 END IF;
110 -- Standard callto get message count and if count is 1, get message info.
111 FND_MSG_PUB.Count_And_Get
112 ( p_count => x_msg_count,
113 p_data => x_msg_data
114 );
115 EXCEPTION
116 WHEN FND_API.G_EXC_ERROR THEN
117 x_return_status := FND_API.G_RET_STS_ERROR ;
118 FND_MSG_PUB.Count_And_Get
119 ( p_count => x_msg_count,
120 p_data => x_msg_data
121 );
122 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
123 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
124 FND_MSG_PUB.Count_And_Get
125 ( p_count => x_msg_count,
126 p_data => x_msg_data
127 );
128 WHEN OTHERS THEN
129 x_return_status := FND_API.G_RET_STS_ERROR;
130 IF FND_MSG_PUB.Check_Msg_Level
131 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
132 THEN
133 FND_MSG_PUB.Add_Exc_Msg
134 ( G_PKG_NAME ,
135 l_api_name
136 );
137 END IF;
138 FND_MSG_PUB.Count_And_Get
139 ( p_count => x_msg_count ,
140 p_data => x_msg_data
141 );
142
143 END create_item;
144
145 PROCEDURE delete_item (p_api_version_number IN NUMBER,
146 p_init_msg_list IN VARCHAR2 ,
147 p_commit IN VARCHAR2 ,
148 p_message_id in number,
149 x_return_status OUT NOCOPY VARCHAR2,
150 x_msg_count OUT NOCOPY NUMBER,
151 x_msg_data OUT NOCOPY VARCHAR2
152 ) is
153 l_api_name VARCHAR2(255):='delete_item';
154 l_api_version_number NUMBER:=1.0;
155
156 BEGIN
157 -- Standard call to check for call compatibility.
158 IF NOT FND_API.Compatible_API_Call (l_api_version_number,
159 p_api_version_number,
160 l_api_name,
161 G_PKG_NAME)
162 THEN
163 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
164 END IF;
165 x_return_status := FND_API.G_RET_STS_SUCCESS;
166 -- Initialize message list if p_init_msg_list is set to TRUE.
167 IF p_init_msg_list ='T'
168 THEN
169 FND_MSG_PUB.initialize;
170 END IF;
171 delete from IEM_REROUTE_HISTS
172 where message_id=p_message_id;
173
174 -- Standard Check Of p_commit.
175 IF p_commit='T' THEN
176 COMMIT WORK;
177 END IF;
178 -- Standard callto get message count and if count is 1, get message info.
179 FND_MSG_PUB.Count_And_Get
180 ( p_count => x_msg_count,
181 p_data => x_msg_data
182 );
183 EXCEPTION
184 WHEN FND_API.G_EXC_ERROR THEN
185 ROLLBACK TO delete_item_PVT;
186 x_return_status := FND_API.G_RET_STS_ERROR ;
187 FND_MSG_PUB.Count_And_Get
188 ( p_count => x_msg_count,
189 p_data => x_msg_data
190 );
191 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
192 ROLLBACK TO delete_item_PVT;
193 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
194 FND_MSG_PUB.Count_And_Get
195 ( p_count => x_msg_count,
196 p_data => x_msg_data
197 );
198 WHEN OTHERS THEN
199 ROLLBACK TO delete_item_PVT;
200 x_return_status := FND_API.G_RET_STS_ERROR;
201 IF FND_MSG_PUB.Check_Msg_Level
202 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
203 THEN
204 FND_MSG_PUB.Add_Exc_Msg
205 ( G_PKG_NAME ,
206 l_api_name
207 );
208 END IF;
209 FND_MSG_PUB.Count_And_Get
210 ( p_count => x_msg_count ,
211 p_data => x_msg_data
212 );
213
214 END delete_item;
215 END IEM_REROUTING_HISTS_PVT ;