[Home] [Help]
PACKAGE BODY: APPS.IEM_RT_PROC_EMAILS_PVT
Source
1 PACKAGE BODY iem_rt_proc_emails_pvt as
2 /* $Header: iemrprcb.pls 120.0 2005/06/02 13:55:37 appldev noship $*/
3 G_PKG_NAME CONSTANT varchar2(30) :='iem_rt_proc_emails_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_email_account_id IN NUMBER,
10 p_priority IN NUMBER ,
11 p_agent_id IN NUMBER,
12 p_group_id IN NUMBER,
13 p_sent_date IN varchar2,
14 p_received_date in date,
15 p_rt_classification_id in number,
16 p_customer_id in number,
17 p_contact_id in number,
18 p_relationship_id in number,
19 p_interaction_id in number,
20 p_ih_media_item_id in number,
21 p_msg_status in varchar2,
22 p_mail_proc_status in varchar2,
23 p_mail_item_status in varchar2,
24 p_category_map_id in number,
25 p_rule_id in number,
26 p_subject in varchar2,
27 p_sender_address in varchar2,
28 p_from_agent_id in number,
29 x_return_status OUT NOCOPY VARCHAR2,
30 x_msg_count OUT NOCOPY NUMBER,
31 x_msg_data OUT NOCOPY VARCHAR2
32 ) is
33 l_api_name VARCHAR2(255):='create_item';
34 l_api_version_number NUMBER:=1.0;
35 l_seq_id number;
36 l_grp_cnt number;
37 l_CREATED_BY number:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID'));
38 l_LAST_UPDATED_BY number:= TO_NUMBER (FND_PROFILE.VALUE('USER_ID'));
39 l_LAST_UPDATE_LOGIN number:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ID')) ;
40
41 BEGIN
42 -- Standard call to check for call compatibility.
43 IF NOT FND_API.Compatible_API_Call (l_api_version_number,
44 p_api_version_number,
45 l_api_name,
46 G_PKG_NAME)
47 THEN
48 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
49 END IF;
50 x_return_status := FND_API.G_RET_STS_SUCCESS;
51 -- Initialize message list if p_init_msg_list is set to TRUE.
52 IF p_init_msg_list ='T'
53 THEN
54 FND_MSG_PUB.initialize;
55 END IF;
56 x_return_status := FND_API.G_RET_STS_SUCCESS;
57
58 INSERT INTO IEM_RT_PROC_EMAILS (
59 MESSAGE_ID ,
60 EMAIL_ACCOUNT_ID ,
61 PRIORITY ,
62 resource_id,
63 GROUP_ID,
64 SENT_DATE ,
65 RECEIVED_DATE,
66 RT_CLASSIFICATION_ID,
67 CUSTOMER_ID ,
68 CONTACT_ID ,
69 RELATIONSHIP_ID ,
70 IH_INTERACTION_ID,
71 IH_MEDIA_ITEM_ID ,
72 MSG_STATUS ,
73 MAIL_ITEM_STATUS,
74 MAIL_PROC_STATUS,
75 CATEGORY_MAP_ID,
76 RULE_ID,
77 SUBJECT ,
78 from_address ,
79 from_resource_id,
80 CREATED_BY ,
81 CREATION_DATE ,
82 LAST_UPDATED_BY ,
83 LAST_UPDATE_DATE ,
84 LAST_UPDATE_LOGIN ,
85 ATTRIBUTE1 ,
86 ATTRIBUTE2 ,
87 ATTRIBUTE3 ,
88 ATTRIBUTE4 ,
89 ATTRIBUTE5 ,
90 ATTRIBUTE6 ,
91 ATTRIBUTE7 ,
92 ATTRIBUTE8 ,
93 ATTRIBUTE9 ,
94 ATTRIBUTE10 ,
95 ATTRIBUTE11 ,
96 ATTRIBUTE12 ,
97 ATTRIBUTE13 ,
98 ATTRIBUTE14 ,
99 ATTRIBUTE15
100 )
101 VALUES
102 (
103 p_message_id,
104 p_email_account_id ,
105 p_priority ,
106 p_agent_id ,
107 p_group_id ,
108 p_sent_date,
109 p_received_date,
110 p_rt_classification_id,
111 p_customer_id ,
112 p_contact_id ,
113 p_relationship_id ,
114 p_interaction_id,
115 p_ih_media_item_id ,
116 p_msg_status ,
117 p_mail_item_status,
118 p_mail_proc_status,
119 p_category_map_id,
120 p_rule_id,
121 p_subject ,
122 p_sender_address ,
123 p_from_agent_id,
124 decode(l_CREATED_BY,null,-1,l_CREATED_BY),
125 sysdate,
126 decode(l_LAST_UPDATED_BY,null,-1,l_LAST_UPDATED_BY),
127 sysdate,
128 decode(l_LAST_UPDATE_LOGIN,null,-1,l_LAST_UPDATE_LOGIN),
129 null,
130 null,
131 null,
132 null,
133 null,
134 null,
135 null,
136 null,
137 null,
138 null,
139 null,
140 null,
141 null,
142 null,
143 null
144 );
145
146 -- Standard Check Of p_commit.
147 IF p_commit='T' THEN
148 COMMIT WORK;
149 END IF;
150 -- Standard callto get message count and if count is 1, get message info.
151 FND_MSG_PUB.Count_And_Get
152 ( p_count => x_msg_count,
153 p_data => x_msg_data
154 );
155 EXCEPTION
156 WHEN FND_API.G_EXC_ERROR THEN
157 x_return_status := FND_API.G_RET_STS_ERROR ;
158 FND_MSG_PUB.Count_And_Get
159 ( p_count => x_msg_count,
160 p_data => x_msg_data
161 );
162 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
163 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
164 FND_MSG_PUB.Count_And_Get
165 ( p_count => x_msg_count,
166 p_data => x_msg_data
167 );
168 WHEN OTHERS THEN
169 x_return_status := FND_API.G_RET_STS_ERROR;
170 IF FND_MSG_PUB.Check_Msg_Level
171 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
172 THEN
173 FND_MSG_PUB.Add_Exc_Msg
174 ( G_PKG_NAME ,
175 l_api_name
176 );
177 END IF;
178 FND_MSG_PUB.Count_And_Get
179 ( p_count => x_msg_count ,
180 p_data => x_msg_data
181 );
182
183 END create_item;
184
185 PROCEDURE delete_item (p_api_version_number IN NUMBER,
186 p_init_msg_list IN VARCHAR2 ,
187 p_commit IN VARCHAR2 ,
188 p_message_id in number,
189 x_return_status OUT NOCOPY VARCHAR2,
190 x_msg_count OUT NOCOPY NUMBER,
191 x_msg_data OUT NOCOPY VARCHAR2
192 ) is
193 l_api_name VARCHAR2(255):='delete_item';
194 l_api_version_number NUMBER:=1.0;
195
196 BEGIN
197 -- Standard call to check for call compatibility.
198 IF NOT FND_API.Compatible_API_Call (l_api_version_number,
199 p_api_version_number,
200 l_api_name,
201 G_PKG_NAME)
202 THEN
203 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204 END IF;
205 -- Initialize message list if p_init_msg_list is set to TRUE.
206 IF p_init_msg_list ='T'
207 THEN
208 FND_MSG_PUB.initialize;
209 END IF;
210 x_return_status := FND_API.G_RET_STS_SUCCESS;
211 delete from IEM_POST_MDTS
212 where message_id=p_message_id;
213
214 -- Standard Check Of p_commit.
215 IF p_commit='T' THEN
216 COMMIT WORK;
217 END IF;
218 -- Standard callto get message count and if count is 1, get message info.
219 FND_MSG_PUB.Count_And_Get
220 ( p_count => x_msg_count,
221 p_data => x_msg_data
222 );
223 EXCEPTION
224 WHEN FND_API.G_EXC_ERROR THEN
225 ROLLBACK TO delete_item_PVT;
226 x_return_status := FND_API.G_RET_STS_ERROR ;
227 FND_MSG_PUB.Count_And_Get
228 ( p_count => x_msg_count,
229 p_data => x_msg_data
230 );
231 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
232 ROLLBACK TO delete_item_PVT;
233 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
234 FND_MSG_PUB.Count_And_Get
235 ( p_count => x_msg_count,
236 p_data => x_msg_data
237 );
238 WHEN OTHERS THEN
239 ROLLBACK TO delete_item_PVT;
240 x_return_status := FND_API.G_RET_STS_ERROR;
241 IF FND_MSG_PUB.Check_Msg_Level
242 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
243 THEN
244 FND_MSG_PUB.Add_Exc_Msg
245 ( G_PKG_NAME ,
246 l_api_name
247 );
248 END IF;
249 FND_MSG_PUB.Count_And_Get
250 ( p_count => x_msg_count ,
251 p_data => x_msg_data
252 );
253
254 END delete_item;
255 END iem_rt_proc_emails_pvt ;